Ford Falcon

Gallery

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
2000 FOR P=1 TO 30
2010 NEXT P
2020 RETURN 
3000 FOR P=1 TO 10
3010 NEXT P
3020 RETURN 
5000 PRINT AT 4,19;"*"
5010 GOSUB 2000
5020 FOR A=0 TO 4
5030 PRINT AT A,19;"."
5040 PRINT AT A,19;" "
5050 NEXT A
5060 LET T=19
5065 LET V=19
5070 FOR S=5 TO 12
5080 PRINT AT S,T-1;".";AT S,V+1;"."
5090 PRINT AT S,T-1;" "
5095 PRINT AT S,V+1;" "
5100 LET T=T-1
5110 LET V=V+1
5120 NEXT S
5130 RETURN 
5140 STOP 
5150 CLEAR 
5160 SAVE "1019%6"
5170 RUN