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
\n1000 FOR D=1 TO 20
\n1010 NEXT D
\n1020 RETURN
\n2000 FOR O=0 TO 30
\n2010 PRINT AT 0,O;"%*"
\n2020 NEXT O
\n2030 FOR D=1 TO 20
\n2040 PRINT AT D,30;"%*"
\n2050 NEXT D
\n2060 FOR U=30 TO 0 STEP -1
\n2070 PRINT AT 20,U;"%*"
\n2080 NEXT U
\n2090 FOR Q=20 TO 1 STEP -1
\n2100 PRINT AT Q,0;"%*"
\n2110 NEXT Q
\n2120 RETURN
\n2130 STOP
\n2140 CLEAR
\n2150 SAVE "1019%8"
\n2160 RUN
