Racing

   5 REM racing
  10 GO SUB 9000
  20 RESTORE
  30 LET n=1
  40 FOR n=1 TO 96
  50 READ e,f,g$,i,j,k$: IF e=99
9 THEN GO TO 20
  60 PRINT AT e,f;g$;AT i,j;k$:
PAUSE 1: IF POINT (29,4) THEN PR
INT AT 21,3;"  "
  70 IF POINT (10,148) THEN PRIN
T AT 3,1;"  "
  80 IF POINT (236,167) THEN PRI
NT AT 1,28;"  "
  90 IF POINT (236,22) THEN PRIN
T AT 19,29;"  "
 100 IF INKEY$="9" THEN PRINT AT
 21,3;"
  ";AT 17,15;"[graphics]": PAUSE 0
 110 IF INKEY$="0" THEN PRINT AT
 17,15;"  ": RESTORE 360: GO TO
50
 120 IF INKEY$="1" THEN PRINT AT
 15,13;"[graphics]";AT 14,13;"[graphics]";AT 15,18
;" ";AT 14,18;" "
 130 IF INKEY$="2" THEN PRINT AT
 15,18;"[graphics]";AT 14,18;"[graphics]";AT 15,13
;" ";AT 14,13;" "
 140 IF INKEY$="8" THEN PRINT AT
 15,13;" ";AT 14,13;" ";AT 15,18
;" ";AT 14,18;" "
 150 NEXT n
 160 DATA 21,27,"[graphics]",20,28,"  "
 170 DATA 21,26,"[graphics]",21,28,"  "
 180 DATA 21,25,"[graphics]",21,27,"  "
 190 DATA 21,24,"[graphics]",21,26,"  "
 200 DATA 21,23,"[graphics]",21,25,"  "
 210 DATA 21,22,"[graphics]",21,24,"  "
 220 DATA 21,21,"[graphics]",21,23,"  "
 230 DATA 21,20,"[graphics]",21,22,"  "
 240 DATA 21,19,"[graphics]",21,21,"  "
 250 DATA 21,18,"[graphics]",21,20,"  "
 260 DATA 21,17,"[graphics]",21,19,"  "
 270 DATA 21,16,"[graphics]",21,18,"  "
 280 DATA 21,15,"[graphics]",21,17,"  "
 290 DATA 21,14,"[graphics]",21,16,"  "
 300 DATA 21,13,"[graphics]",21,15,"  "
 310 DATA 21,12,"[graphics]",21,14,"  "
 320 DATA 21,11,"[graphics]",21,13,"  "
 330 DATA 21,10,"[graphics]",21,12,"  "
 340 DATA 21,9,"[graphics]",21,11,"  "
 350 DATA 21,8,"[graphics]",21,10,"  "
 360 DATA 21,7,"[graphics]",21,9,"  "
 370 DATA 21,6,"[graphics]",21,8,"  "
 380 DATA 21,5,"[graphics]",21,7,"  "
 390 DATA 21,4,"[graphics]",21,6,"  "
 400 DATA 21,3,"[graphics]",21,5,"  "
 410 DATA 20,2,"[graphics]",21,3,"[graphics]"
 420 DATA 19,1,"[graphics]",20,2,"[graphics]"
 430 DATA 20,1,"  ",19,1,"[graphics]"
 440 DATA 18,1,"[graphics]",19,1,"  "
 450 DATA 17,1,"[graphics]",18,1,"  "
 460 DATA 16,1,"[graphics]",17,1,"  "
 470 DATA 15,1,"[graphics]",16,1,"  "
 480 DATA 14,1,"[graphics]",15,1,"  "
 490 DATA 13,1,"[graphics]",14,1,"  "
 500 DATA 12,1,"[graphics]",13,1,"  "
 510 DATA 11,1,"[graphics]",12,1,"  "
 520 DATA 10,1,"[graphics]",11,1,"  "
 530 DATA 9,1,"[graphics]",10,1,"  "
 540 DATA 8,1,"[graphics]",9,1,"  "
 550 DATA 7,1,"[graphics]",8,1,"  "
 560 DATA 6,1,"[graphics]",7,1,"  "
 570 DATA 5,1,"[graphics]",6,1,"  "
 580 DATA 4,1,"[graphics]",5,1,"  "
 590 DATA 3,1,"[graphics]",4,1,"  "
 600 DATA 2,1,"[graphics]",3,1,"[graphics]"
 610 DATA 1,1,"[graphics]",2,1,"[graphics]"
 620 DATA 1,1,"[graphics]",2,1,"  "
 630 DATA 1,2,"[graphics]",2,2,"  "
 640 DATA 1,3,"[graphics]",2,3,"  "
 650 DATA 1,4,"[graphics]",2,4,"  "
 660 DATA 1,5,"[graphics]",2,5,"  "
 670 DATA 1,6,"[graphics]",2,6,"  "
 680 DATA 1,7,"[graphics]",2,7,"  "
 690 DATA 1,8,"[graphics]",2,8,"  "
 700 DATA 1,9,"[graphics]",2,9,"  "
 710 DATA 1,10,"[graphics]",2,10,"  "
 720 DATA 1,11,"[graphics]",2,11,"  "
 730 DATA 1,12,"[graphics]",2,12,"  "
 740 DATA 1,13,"[graphics]",2,13,"  "
 750 DATA 1,14,"[graphics]",2,14,"  "
 760 DATA 1,15,"[graphics]",2,15,"  "
 770 DATA 1,16,"[graphics]",2,16,"  "
 780 DATA 1,17,"[graphics]",2,17,"  "
 790 DATA 1,18,"[graphics]",2,18,"  "
 800 DATA 1,19,"[graphics]",2,19,"  "
 810 DATA 1,20,"[graphics]",2,20,"  "
 820 DATA 1,21,"[graphics]",2,21,"  "
 830 DATA 1,22,"[graphics]",2,22,"  "
 840 DATA 1,23,"[graphics]",2,23,"  "
 850 DATA 1,24,"[graphics]",2,24,"  "
 860 DATA 1,25,"[graphics]",2,25,"  "
 870 DATA 1,26,"[graphics]",2,26,"  "
 880 DATA 1,27,"[graphics]",2,27,"  "
 890 DATA 1,28,"[graphics]",2,29,"[graphics]"
 900 DATA 2,29,"[graphics]",3,29,"[graphics]"
 910 DATA 2,29,"  ",3,29,"[graphics]"
 920 DATA 3,29,"  ",4,29,"[graphics]"
 930 DATA 4,29,"  ",5,29,"[graphics]"
 940 DATA 5,29,"  ",6,29,"[graphics]"
 950 DATA 6,29,"  ",7,29,"[graphics]"
 960 DATA 7,29,"  ",8,29,"[graphics]"
 970 DATA 8,29,"  ",9,29,"[graphics]"
 980 DATA 9,29,"  ",10,29,"[graphics]"
 990 DATA 10,29,"  ",11,29,"[graphics]"
1000 DATA 11,29,"  ",12,29,"[graphics]"
1010 DATA 12,29,"  ",13,29,"[graphics]"
1020 DATA 13,29,"  ",14,29,"[graphics]"
1030 DATA 14,29,"  ",15,29,"[graphics]"
1040 DATA 15,29,"  ",16,29,"[graphics]"
1050 DATA 16,29,"  ",17,29,"[graphics]"
1060 DATA 17,29,"  ",18,29,"[graphics]"
1070 DATA 18,29,"  ",19,29,"[graphics]"
1080 DATA 20,29,"[graphics]",19,29,"[graphics]"
1090 DATA 21,28,"[graphics]",20,28,"[graphics]"
1100 DATA 999,999,"999",999,999,
"999"
9000 INK 4
9010 PRINT AT 15,14;"[graphics]"
9020 PRINT AT 14,14;"[graphics]"
9030 PRINT AT 13,14;"[graphics]"
9040 PLOT 156,47: DRAW -58,0
9050 INK 0
9060 PLOT 0,0
9070 DRAW 255,0: DRAW 0,175: DRA
W -255,0: DRAW 0,-175
9080 LET ds=1*PI/180
9090 FOR p=0 TO 2*PI STEP ds
9100 LET x=11*COS (p)*9.5
9110 LET y=11*SIN (p)*6
9120 LET x=x+127
9130 LET y=y+85
9140 PLOT x,y
9150 NEXT p
9160 PRINT AT 19,20;" ";AT 18,21
;" ";AT 19,11;" ";AT 18,10;" "
9170 PLOT 156,21: DRAW -58,0,1
9180 PLOT 175,28: DRAW -96,0,1.2
9190 RETURN