Source Code
0 REM "FALCON" GRAPHIC BY ANTHONY WILLING (5/83)
10 REM "FALCON"
15 GOSUB 5000
20 PRINT AT 12,10;"\,,\,, \##"
30 GOSUB 2000
40 PRINT AT 13,10;"\## \~~\~~\## \## \##\~~ \##\~~\## \##\~~\##"
50 GOSUB 2000
60 PRINT AT 14,10;"\##\,, \,,\,,\## \## \## \## \## \## \##"
70 GOSUB 2000
80 PRINT AT 15,10;"\## \## \## \## \## \## \## \## \##"
90 GOSUB 2000
100 PRINT AT 16,10;"\## \##\,,\## \##\,, \##\,, \##\,,\## \## \##"
110 GOSUB 2000
120 GOSUB 2000
130 PRINT AT 4,17;"\. "
135 PRINT AT 5,17;"\' "
140 LET F=5
150 FOR G=16 TO 7 STEP -1
160 PRINT AT F,G;"\.:"
170 LET F=F+1
180 NEXT G
190 GOSUB 2000
200 FOR Z=6 TO 29
210 PRINT AT 17,Z;"\''"
220 NEXT Z
230 PRINT AT 17,30;"\''"
240 GOSUB 2000
250 PRINT AT 17,2;"\ '"
260 PRINT AT 16,2;"\ :\:'% % % % % % \@@% % \@@\;;\@@% \@@\;;% \@@\;;% \@@\;;\@@\..\@@\..\@@"
265 GOSUB 2000
270 PRINT AT 15,2;"\ .\:'% % % % % % \@@% % \@@% \@@% \@@\..\..\@@ \@@ \@@ \@@ \@@"
275 GOSUB 2000
280 PRINT AT 14,8;"% % \@@\;;\:.\,,\,,\## \## \## \## \## \## \##"
290 GOSUB 2000
300 PRINT AT 13,9;"% \@@% \: "
310 GOSUB 2000
320 PRINT AT 12,9;"\.:\;;\;;\:'"
330 GOSUB 2000
340 LET F=11
350 FOR G=11 TO 7 STEP -1
360 PRINT AT G,F;"% "
370 LET F=F+1
380 NEXT G
383 PRINT AT 11,12;"% "
386 PRINT AT 10,13;"% "
390 GOSUB 2000
400 PRINT AT 6,16;"\:'"
405 GOSUB 3000
410 PRINT AT 7,16;"\' "
415 GOSUB 3000
420 PRINT AT 8,15;"\: "
425 GOSUB 3000
430 PRINT AT 9,14;"\:'"
435 GOSUB 3000
440 PRINT AT 10,14;"\' "
445 GOSUB 3000
450 PRINT AT 11,13;"\: "
460 GOSUB 2000
470 GOSUB 2000
475 PRINT AT 14,4;"/"
480 PRINT AT 9,4;"%F"
485 GOSUB 3000
490 PRINT AT 9,5;"%O"
495 GOSUB 3000
500 PRINT AT 9,6;"%R"
505 GOSUB 3000
510 PRINT AT 9,7;"%D"
520 GOSUB 2000
530 PRINT AT 21,27;"%A%W/83"
540 POKE 16384,74
\n2000 FOR P=1 TO 30
\n2010 NEXT P
\n2020 RETURN
\n3000 FOR P=1 TO 10
\n3010 NEXT P
\n3020 RETURN
\n5000 PRINT AT 4,19;"*"
\n5010 GOSUB 2000
\n5020 FOR A=0 TO 4
\n5030 PRINT AT A,19;"."
\n5040 PRINT AT A,19;" "
\n5050 NEXT A
\n5060 LET T=19
\n5065 LET V=19
\n5070 FOR S=5 TO 12
\n5080 PRINT AT S,T-1;".";AT S,V+1;"."
\n5090 PRINT AT S,T-1;" "
\n5095 PRINT AT S,V+1;" "
\n5100 LET T=T-1
\n5110 LET V=V+1
\n5120 NEXT S
\n5130 RETURN
\n5140 STOP
\n5150 CLEAR
\n5160 SAVE "1019%6"
\n5170 RUN
