10 REM =================================================== 20 REM ADVERTISEMENT: VISIT INDIA 30 REM COMMODORE 64 / PETSCII GRAPHIC MODE (40X25) 40 REM =================================================== 50 CLS : COLOR 4, 0 60 PRINT "┌──────────────────────────────────────┐" 70 LOCATE 2, 2 : COLOR 8, 0 : PRINT "♥♠" ; : COLOR 7, 0 : PRINT " ★ GO INDIA ★ " ; : COLOR 8, 0 : PRINT "♠♥" 80 REM --- INDIAN FLAG BLOCK ART --- 90 COLOR 8, 0 100 LOCATE 4, 2 : PRINT "██████████████████" 110 LOCATE 5, 2 : PRINT "██████████████████" 120 COLOR 1, 0 130 LOCATE 6, 2 : PRINT "████████" ; : COLOR 6, 0 : PRINT "●" ; : COLOR 1, 0 : PRINT "█████████" 140 LOCATE 7, 2 : PRINT "██████████████████" 150 COLOR 5, 0 160 LOCATE 8, 2 : PRINT "██████████████████" 170 LOCATE 9, 2 : PRINT "██████████████████" 180 REM --- TAJ MAHAL PETSCII --- 190 COLOR 1, 0 200 LOCATE 4, 24 : PRINT " ▲ " 210 LOCATE 5, 24 : PRINT " ▟█▙ " 220 LOCATE 6, 23 : PRINT " │ ▟███▙ │" 230 LOCATE 7, 22 : PRINT "─┼─█████─┼─" 240 LOCATE 8, 22 : PRINT " │▟█████▙│ " 250 LOCATE 9, 21 : PRINT "▙▟█████████▙▟" 260 REM --- NATURAL ASSETS (TIGER & PALM) --- 270 COLOR 8, 0 280 LOCATE 11, 26: PRINT "▞▚▞▚" ; : COLOR 13, 0 : PRINT " 🌴" 290 REM --- COLOR SEPARATION --- 300 COLOR 14, 0 310 LOCATE 13, 2 : PRINT "DISCOVER THE LAND OF WONDERS!" 320 COLOR 13, 0 330 LOCATE 15, 3 : PRINT "●" ; : COLOR 1, 0 : PRINT " HISTORIC TAJ MAHAL!" 340 COLOR 13, 0 350 LOCATE 17, 3 : PRINT "●" ; : COLOR 1, 0 : PRINT " WILD TIGER RESERVES!" 360 COLOR 13, 0 370 LOCATE 19, 3 : PRINT "●" ; : COLOR 1, 0 : PRINT " RICH CULTURE & FOOD!" 380 REM --- BOTTOM MENU INTERACTION --- 390 COLOR 12, 0 400 LOCATE 21, 2 : PRINT "──────────────────────────────────────" 410 COLOR 10, 0 420 LOCATE 23, 2 : PRINT "PRESS [1] TO BOOK FLIGHTS" 430 COLOR 7, 0 440 LOCATE 24, 2 : PRINT "PRESS [B] TO GO BACK" 450 REM --- KEYBOARD INPUT HANDLER --- 460 GET#2, K$ 470 IF K$ = "" THEN 460 480 IF K$ = "1" THEN 510 490 IF K$ = "B" OR K$ = "b" THEN 520 500 GOTO 460 510 CLS : COLOR 1, 0 : PRINT "REDIRECTING TO BOOKING OFFICE..." : END 520 CLS : COLOR 3, 0 : PRINT "RETURNING..." : END