GTO

Gallery

Source Code

   0 REM "GTO" GRAPHIC BY                 ANTHONY WILLING
  10 REM "GTO"
  15 GOSUB 2000
  20 PRINT AT 3,10;"\..\..\..\..\..\..\..\..\..\.."
  30 LET G=9
  40 FOR F=4 TO 8
  50 PRINT AT F,G;"\.'"
  60 LET G=G-1
  70 NEXT F
  80 LET G=5
  90 FOR F=9 TO 18
 100 PRINT AT F,G;"\'."
 110 LET G=G+1
 120 NEXT F
 130 LET G=15
 140 FOR F=18 TO 9 STEP -1
 150 PRINT AT F,G;"\.'"
 160 LET G=G+1
 170 NEXT F
 180 LET G=24
 190 FOR F=8 TO 4 STEP -1
 200 PRINT AT F,G;"\'."
 210 LET G=G-1
 220 NEXT F
 230 FOR S=8 TO 20 STEP 4
 240 PRINT AT 9,S;"% % "
 250 PRINT AT 10,S;"% % "
 260 NEXT S
 270 FOR S=10 TO 18 STEP 4
 280 PRINT AT 11,S;"% % "
 290 PRINT AT 12,S;"% % "
 300 NEXT S
 310 FOR S=12 TO 16 STEP 4
 320 PRINT AT 13,S;"% % "
 330 PRINT AT 14,S;"% % "
 340 NEXT S
 350 PRINT AT 15,14;"% % "
 360 PRINT AT 16,14;"% % "
 370 FOR H=11 TO 18
 380 PRINT AT 4,H;"\,,"
 390 NEXT H
 400 PRINT AT 5,9;"\,,\##\##\##\##\##\##\##\##\##\##\,,"
 410 PRINT AT 6,8;"\,,\##\##\##\##\##\##\##\##\##\##\##\##\,,"
 420 PRINT AT 7,7;"\,,\##\##\##\##\##\##\##\##\##\##\##\##\##\##\,,"
 430 PRINT AT 8,6;"\,,\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\,,"
 440 GOSUB 1000
 450 PRINT AT 5,10;"\~~\~~\~~\,,  \,,\~~\~~\~~"
 460 GOSUB 1000
 470 PRINT AT 6,10;" \##\##\##  \##   "
 480 GOSUB 1000
 490 PRINT AT 7,10;" \## \##  \##   "
 500 GOSUB 1000
 510 PRINT AT 8,10;"\,,\,,\,,\##\,,\,,\##\,,\,,\,,"
 520 GOSUB 1000
 530 PRINT AT 6,18;"\##"
 540 PRINT AT 7,18;"\##"
 550 GOSUB 1000
 560 PRINT AT 19,24;"%A%W/83"
 570 GOSUB 1000
 580 PRINT AT 2,13;"%1%9%6%6"
 590 POKE 16384,74
 600 STOP 
1000 FOR D=1 TO 20
1010 NEXT D
1020 RETURN 
2000 FOR O=0 TO 30
2010 PRINT AT 0,O;"%*"
2020 NEXT O
2030 FOR D=1 TO 20
2040 PRINT AT D,30;"%*"
2050 NEXT D
2060 FOR U=30 TO 0 STEP -1
2070 PRINT AT 20,U;"%*"
2080 NEXT U
2090 FOR Q=20 TO 1 STEP -1
2100 PRINT AT Q,0;"%*"
2110 NEXT Q
2120 RETURN 
2130 STOP 
2140 CLEAR 
2150 SAVE "1019%8"
2160 RUN