/ Nibble Magazine / nib03.dsk / LE MANS (APPLESOFT).bas

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 20 20 52 45 4d 20 20 | 2a 2a 2a 2a 2a 2a 2a 2a |1  REM  |********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0a 32 |********|******.2|
|00000020| 20 20 52 45 4d 20 20 2a | 20 20 20 20 20 20 4c 45 |  REM  *|      LE|
|00000030| 20 4d 41 4e 53 20 20 20 | 20 20 20 20 2a 0a 33 20 | MANS   |    *.3 |
|00000040| 20 52 45 4d 20 20 2a 20 | 42 59 20 43 48 41 52 4c | REM  * |BY CHARL|
|00000050| 45 53 20 47 20 42 4f 4f | 44 59 20 2a 0a 34 20 20 |ES G BOO|DY *.4  |
|00000060| 52 45 4d 20 20 2a 20 43 | 4f 50 59 52 49 47 48 54 |REM  * C|OPYRIGHT|
|00000070| 20 28 43 29 20 31 39 38 | 31 20 2a 0a 35 20 20 52 | (C) 198|1 *.5  R|
|00000080| 45 4d 20 20 2a 20 42 59 | 20 4d 49 43 52 4f 53 50 |EM  * BY| MICROSP|
|00000090| 41 52 43 2c 20 49 4e 43 | 20 2a 0a 36 20 20 52 45 |ARC, INC| *.6  RE|
|000000a0| 4d 20 20 2a 20 4c 49 4e | 43 4f 4c 4e 2c 20 4d 41 |M  * LIN|COLN, MA|
|000000b0| 20 20 30 31 37 37 33 20 | 2a 0a 37 20 20 52 45 4d |  01773 |*.7  REM|
|000000c0| 20 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |  ******|********|
|000000d0| 2a 2a 2a 2a 2a 2a 2a 2a | 0a 38 20 20 52 45 4d 20 |********|.8  REM |
|000000e0| 0a 39 20 20 52 45 4d 20 | 20 43 4f 4e 56 45 52 54 |.9  REM | CONVERT|
|000000f0| 45 44 20 46 52 4f 4d 20 | 49 4e 54 45 47 45 52 20 |ED FROM |INTEGER |
|00000100| 42 41 53 49 43 20 54 4f | 20 41 50 50 4c 45 53 4f |BASIC TO| APPLESO|
|00000110| 46 54 20 42 41 53 49 43 | 20 42 59 20 53 41 4d 55 |FT BASIC| BY SAMU|
|00000120| 45 4c 20 53 54 4f 44 44 | 41 52 44 2c 20 32 30 30 |EL STODD|ARD, 200|
|00000130| 38 2e 0a 31 30 20 20 48 | 49 4d 45 4d 3a 20 33 38 |8..10  H|IMEM: 38|
|00000140| 31 34 34 3a 20 47 4f 53 | 55 42 20 39 35 35 0a 31 |144: GOS|UB 955.1|
|00000150| 35 20 50 20 3d 20 50 20 | 2b 31 3a 20 50 4f 4b 45 |5 P = P |+1: POKE|
|00000160| 20 33 38 31 32 37 20 2d | 50 2c 32 30 34 3a 20 50 | 38127 -|P,204: P|
|00000170| 4f 4b 45 20 33 38 31 34 | 31 20 2d 50 2c 32 30 34 |OKE 3814|1 -P,204|
|00000180| 3a 20 49 46 20 50 20 3c | 32 33 20 20 54 48 45 4e |: IF P <|23  THEN|
|00000190| 20 20 52 45 54 55 52 4e | 20 0a 31 37 20 20 50 4f |  RETURN| .17  PO|
|000001a0| 50 20 3a 20 47 4f 54 4f | 20 31 38 35 0a 32 30 20 |P : GOTO| 185.20 |
|000001b0| 52 20 3d 20 20 49 4e 54 | 28 20 52 4e 44 28 31 29 |R =  INT|( RND(1)|
|000001c0| 20 2a 28 32 20 2a 52 31 | 20 2b 31 29 20 2d 52 31 | *(2 *R1| +1) -R1|
|000001d0| 29 3a 54 49 20 3d 20 20 | 49 4e 54 28 20 52 4e 44 |):TI =  |INT( RND|
|000001e0| 28 31 29 20 2a 31 31 20 | 2b 34 29 0a 32 35 20 20 |(1) *11 |+4).25  |
|000001f0| 46 4f 52 20 41 20 3d 20 | 31 20 54 4f 20 54 49 3a |FOR A = |1 TO TI:|
|00000200| 54 20 3d 20 54 20 2b 52 | 3a 20 49 46 20 54 20 3c |T = T +R|: IF T <|
|00000210| 31 20 20 54 48 45 4e 20 | 54 20 3d 20 31 0a 32 37 |1  THEN |T = 1.27|
|00000220| 20 20 49 46 20 54 20 3e | 50 20 20 54 48 45 4e 20 |  IF T >|P  THEN |
|00000230| 54 20 3d 20 50 0a 33 30 | 20 20 49 46 20 54 20 3d |T = P.30|  IF T =|
|00000240| 20 31 20 20 4f 52 20 54 | 20 3d 20 50 20 20 54 48 | 1  OR T| = P  TH|
|00000250| 45 4e 20 52 20 3d 20 52 | 20 2a 20 2d 31 0a 33 32 |EN R = R| * -1.32|
|00000260| 20 20 49 46 20 4d 2f 31 | 30 30 20 3d 20 20 49 4e |  IF M/1|00 =  IN|
|00000270| 54 28 4d 2f 31 30 30 29 | 20 20 54 48 45 4e 20 20 |T(M/100)|  THEN  |
|00000280| 47 4f 53 55 42 20 31 35 | 0a 33 35 20 4d 20 3d 20 |GOSUB 15|.35 M = |
|00000290| 4d 20 2b 31 3a 20 48 54 | 41 42 20 54 3a 20 56 54 |M +1: HT|AB T: VT|
|000002a0| 41 42 20 31 39 3a 20 50 | 52 49 4e 54 20 41 24 3a |AB 19: P|RINT A$:|
|000002b0| 20 43 41 4c 4c 20 20 2d | 39 31 32 3a 58 20 3d 20 | CALL  -|912:X = |
|000002c0| 20 49 4e 54 28 20 50 44 | 4c 28 30 29 2f 37 29 20 | INT( PD|L(0)/7) |
|000002d0| 2b 31 0a 34 30 20 59 20 | 3d 20 20 49 4e 54 28 20 |+1.40 Y |=  INT( |
|000002e0| 50 44 4c 28 31 29 2f 37 | 29 20 2b 31 3a 20 49 46 |PDL(1)/7|) +1: IF|
|000002f0| 20 20 53 43 52 4e 28 20 | 59 20 2d 31 2c 38 29 20 |  SCRN( |Y -1,8) |
|00000300| 3d 20 31 30 20 20 54 48 | 45 4e 20 34 35 0a 34 32 |= 10  TH|EN 45.42|
|00000310| 20 59 59 20 3d 20 59 59 | 20 2d 31 3a 20 56 54 41 | YY = YY| -1: VTA|
|00000320| 42 20 32 34 3a 20 48 54 | 41 42 20 32 33 3a 20 50 |B 24: HT|AB 23: P|
|00000330| 52 49 4e 54 20 59 59 3b | 22 20 22 3b 0a 34 35 20 |RINT YY;|" ";.45 |
|00000340| 20 49 46 20 20 53 43 52 | 4e 28 20 58 20 2d 31 2c | IF  SCR|N( X -1,|
|00000350| 38 29 20 3d 20 31 31 20 | 20 54 48 45 4e 20 35 30 |8) = 11 | THEN 50|
|00000360| 0a 34 37 20 20 56 54 41 | 42 20 32 34 3a 20 48 54 |.47  VTA|B 24: HT|
|00000370| 41 42 20 37 3a 5a 20 3d | 20 5a 20 2d 31 3a 20 50 |AB 7:Z =| Z -1: P|
|00000380| 52 49 4e 54 20 5a 3b 22 | 20 22 3b 0a 35 30 20 20 |RINT Z;"| ";.50  |
|00000390| 56 54 41 42 20 34 3a 20 | 48 54 41 42 20 58 3a 20 |VTAB 4: |HTAB X: |
|000003a0| 50 52 49 4e 54 20 43 24 | 3b 3a 20 48 54 41 42 20 |PRINT C$|;: HTAB |
|000003b0| 59 3a 20 50 52 49 4e 54 | 20 58 24 3a 20 4e 45 58 |Y: PRINT| X$: NEX|
|000003c0| 54 20 3a 20 47 4f 54 4f | 20 32 30 0a 35 35 20 20 |T : GOTO| 20.55  |
|000003d0| 48 4f 4d 45 20 0a 36 35 | 20 20 47 52 20 3a 20 50 |HOME .65|  GR : P|
|000003e0| 4f 4b 45 20 33 34 2c 30 | 0a 37 30 20 20 47 4f 53 |OKE 34,0|.70  GOS|
|000003f0| 55 42 20 39 31 30 0a 37 | 35 20 5a 20 3d 20 35 30 |UB 910.7|5 Z = 50|
|00000400| 30 3a 59 59 20 3d 20 35 | 30 30 0a 38 30 20 20 56 |0:YY = 5|00.80  V|
|00000410| 54 41 42 20 32 34 0a 38 | 35 20 43 24 20 3d 20 22 |TAB 24.8|5 C$ = "|
|00000420| 2a 22 0a 39 30 20 58 24 | 20 3d 20 22 3b 22 0a 39 |*".90 X$| = ";".9|
|00000430| 35 20 54 20 3d 20 31 0a | 31 30 30 20 20 46 4f 52 |5 T = 1.|100  FOR|
|00000440| 20 41 20 3d 20 31 20 54 | 4f 20 32 30 3a 20 48 54 | A = 1 T|O 20: HT|
|00000450| 41 42 20 54 3a 20 50 52 | 49 4e 54 20 41 24 3b 3a |AB T: PR|INT A$;:|
|00000460| 20 4e 45 58 54 20 0a 31 | 30 35 20 20 56 54 41 42 | NEXT .1|05  VTAB|
|00000470| 20 32 34 3a 20 48 54 41 | 42 20 31 0a 31 31 30 20 | 24: HTA|B 1.110 |
|00000480| 20 50 52 49 4e 54 20 22 | 50 4f 53 49 54 49 4f 4e | PRINT "|POSITION|
|00000490| 20 54 48 45 20 47 52 45 | 59 20 43 41 52 20 4f 4e | THE GRE|Y CAR ON|
|000004a0| 20 54 48 45 20 4c 45 46 | 54 20 54 52 41 43 4b 20 | THE LEF|T TRACK |
|000004b0| 41 4e 44 20 54 48 45 20 | 4f 54 48 45 52 20 43 41 |AND THE |OTHER CA|
|000004c0| 52 20 4f 4e 20 54 48 45 | 20 52 49 47 48 54 20 54 |R ON THE| RIGHT T|
|000004d0| 52 41 43 4b 2e 22 0a 31 | 31 35 20 20 50 52 49 4e |RACK.".1|15  PRIN|
|000004e0| 54 20 22 50 55 53 48 20 | 42 55 54 54 4f 4e 20 4f |T "PUSH |BUTTON O|
|000004f0| 4e 20 47 52 45 59 20 43 | 41 52 20 50 41 44 44 4c |N GREY C|AR PADDL|
|00000500| 45 20 54 4f 20 53 54 41 | 52 54 2e 22 3b 0a 31 32 |E TO STA|RT.";.12|
|00000510| 35 20 20 48 54 41 42 20 | 31 3a 20 56 54 41 42 20 |5  HTAB |1: VTAB |
|00000520| 34 0a 31 33 30 20 20 49 | 46 20 20 50 45 45 4b 28 |4.130  I|F  PEEK(|
|00000530| 20 2d 31 36 32 38 37 29 | 20 3e 31 32 37 20 20 54 | -16287)| >127  T|
|00000540| 48 45 4e 20 31 35 35 0a | 31 33 35 20 20 50 52 49 |HEN 155.|135  PRI|
|00000550| 4e 54 20 20 4c 45 46 54 | 24 28 41 24 2c 34 30 29 |NT  LEFT|$(A$,40)|
|00000560| 3b 3a 20 56 54 41 42 20 | 34 0a 31 34 30 20 20 48 |;: VTAB |4.140  H|
|00000570| 54 41 42 20 28 20 50 44 | 4c 28 30 29 2f 37 29 20 |TAB ( PD|L(0)/7) |
|00000580| 2b 31 3a 20 50 52 49 4e | 54 20 43 24 3b 0a 31 34 |+1: PRIN|T C$;.14|
|00000590| 35 20 20 48 54 41 42 20 | 28 20 50 44 4c 28 31 29 |5  HTAB |( PDL(1)|
|000005a0| 2f 37 29 20 2b 31 3a 20 | 50 52 49 4e 54 20 58 24 |/7) +1: |PRINT X$|
|000005b0| 3b 3a 20 48 54 41 42 20 | 31 0a 31 35 30 20 20 47 |;: HTAB |1.150  G|
|000005c0| 4f 54 4f 20 31 33 30 0a | 31 35 35 20 20 56 54 41 |OTO 130.|155  VTA|
|000005d0| 42 20 32 31 3a 20 43 41 | 4c 4c 20 20 2d 39 35 38 |B 21: CA|LL  -958|
|000005e0| 0a 31 36 30 20 20 50 4f | 4b 45 20 33 35 2c 32 32 |.160  PO|KE 35,22|
|000005f0| 3a 20 56 54 41 42 20 32 | 34 3a 20 48 54 41 42 20 |: VTAB 2|4: HTAB |
|00000600| 32 3a 20 50 52 49 4e 54 | 20 22 47 52 45 59 20 22 |2: PRINT| "GREY "|
|00000610| 3b 5a 3b 3a 20 48 54 41 | 42 20 31 38 3a 20 50 52 |;Z;: HTA|B 18: PR|
|00000620| 49 4e 54 20 22 42 4c 55 | 45 20 22 3b 59 59 3b 0a |INT "BLU|E ";YY;.|
|00000630| 31 36 35 20 20 47 4f 54 | 4f 20 32 35 0a 31 38 35 |165  GOT|O 25.185|
|00000640| 20 20 43 4f 4c 4f 52 3d | 20 30 3a 20 48 4c 49 4e |  COLOR=| 0: HLIN|
|00000650| 20 30 2c 33 39 20 41 54 | 20 38 3a 20 48 4c 49 4e | 0,39 AT| 8: HLIN|
|00000660| 20 30 2c 33 39 20 41 54 | 20 39 0a 31 39 30 20 20 | 0,39 AT| 9.190  |
|00000670| 43 4f 4c 4f 52 3d 20 31 | 35 3a 20 46 4f 52 20 49 |COLOR= 1|5: FOR I|
|00000680| 20 3d 20 31 20 54 4f 20 | 33 30 3a 20 48 4c 49 4e | = 1 TO |30: HLIN|
|00000690| 20 30 2c 33 39 20 41 54 | 20 39 20 2b 49 3a 20 4e | 0,39 AT| 9 +I: N|
|000006a0| 45 58 54 20 0a 31 39 35 | 20 20 50 4f 4b 45 20 33 |EXT .195|  POKE 3|
|000006b0| 35 2c 32 34 3a 20 50 4f | 4b 45 20 33 34 2c 32 30 |5,24: PO|KE 34,20|
|000006c0| 0a 32 30 30 20 20 48 54 | 41 42 20 37 3a 20 56 54 |.200  HT|AB 7: VT|
|000006d0| 41 42 20 32 31 3a 20 49 | 46 20 5a 20 3e 59 59 20 |AB 21: I|F Z >YY |
|000006e0| 20 54 48 45 4e 20 20 50 | 52 49 4e 54 20 22 47 52 | THEN  P|RINT "GR|
|000006f0| 45 59 20 43 41 52 20 57 | 49 4e 53 21 21 21 21 21 |EY CAR W|INS!!!!!|
|00000700| 22 3a 20 47 4f 54 4f 20 | 32 30 35 0a 32 30 32 20 |": GOTO |205.202 |
|00000710| 20 49 46 20 59 59 20 3e | 5a 20 20 54 48 45 4e 20 | IF YY >|Z  THEN |
|00000720| 20 50 52 49 4e 54 20 22 | 42 4c 55 45 20 43 41 52 | PRINT "|BLUE CAR|
|00000730| 20 57 49 4e 53 21 21 21 | 21 21 22 0a 32 30 35 20 | WINS!!!|!!".205 |
|00000740| 20 48 54 41 42 20 34 3a | 20 50 52 49 4e 54 20 22 | HTAB 4:| PRINT "|
|00000750| 44 4f 20 59 4f 55 20 57 | 41 4e 54 20 41 4e 4f 54 |DO YOU W|ANT ANOT|
|00000760| 48 45 52 20 52 41 43 45 | 20 28 59 2f 4e 29 3f 22 |HER RACE| (Y/N)?"|
|00000770| 3a 20 49 4e 50 55 54 20 | 5a 24 3a 20 49 46 20 5a |: INPUT |Z$: IF Z|
|00000780| 24 20 3c 20 3e 22 59 22 | 20 20 54 48 45 4e 20 32 |$ < >"Y"|  THEN 2|
|00000790| 30 30 30 0a 32 30 37 20 | 20 43 41 4c 4c 20 20 2d |000.207 | CALL  -|
|000007a0| 39 35 38 0a 32 31 30 20 | 20 48 54 41 42 20 34 3a |958.210 | HTAB 4:|
|000007b0| 20 50 52 49 4e 54 20 22 | 54 48 45 20 53 41 4d 45 | PRINT "|THE SAME|
|000007c0| 20 53 45 54 2d 55 50 3f | 20 28 59 2f 4e 29 3f 22 | SET-UP?| (Y/N)?"|
|000007d0| 3a 20 49 4e 50 55 54 20 | 5a 24 3a 20 49 46 20 5a |: INPUT |Z$: IF Z|
|000007e0| 24 20 3c 20 3e 22 59 22 | 20 20 54 48 45 4e 20 31 |$ < >"Y"|  THEN 1|
|000007f0| 30 35 30 0a 32 31 32 20 | 50 20 3d 20 31 35 3a 4d |050.212 |P = 15:M|
|00000800| 20 3d 20 31 3a 20 47 4f | 54 4f 20 35 35 0a 33 30 | = 1: GO|TO 55.30|
|00000810| 35 20 50 20 3d 20 50 20 | 2b 31 3a 20 50 4f 4b 45 |5 P = P |+1: POKE|
|00000820| 20 33 38 31 32 37 20 2d | 50 2c 32 30 34 3a 20 50 | 38127 -|P,204: P|
|00000830| 4f 4b 45 20 33 38 31 34 | 31 20 2d 50 2c 32 30 34 |OKE 3814|1 -P,204|
|00000840| 3a 20 49 46 20 50 20 3c | 32 33 20 20 54 48 45 4e |: IF P <|23  THEN|
|00000850| 20 20 52 45 54 55 52 4e | 20 0a 33 30 37 20 20 50 |  RETURN| .307  P|
|00000860| 4f 50 20 3a 20 47 4f 54 | 4f 20 34 38 30 0a 33 31 |OP : GOT|O 480.31|
|00000870| 30 20 52 20 3d 20 20 49 | 4e 54 28 20 52 4e 44 28 |0 R =  I|NT( RND(|
|00000880| 31 29 20 2a 28 32 20 2a | 52 31 20 2b 31 29 20 2d |1) *(2 *|R1 +1) -|
|00000890| 52 31 29 3a 54 49 20 3d | 20 20 49 4e 54 28 20 52 |R1):TI =|  INT( R|
|000008a0| 4e 44 28 31 29 20 2a 31 | 31 20 2b 34 29 0a 33 31 |ND(1) *1|1 +4).31|
|000008b0| 35 20 20 46 4f 52 20 41 | 20 3d 20 31 20 54 4f 20 |5  FOR A| = 1 TO |
|000008c0| 54 49 3a 54 20 3d 20 54 | 20 2b 52 3a 20 49 46 20 |TI:T = T| +R: IF |
|000008d0| 54 20 3c 31 20 20 54 48 | 45 4e 20 54 20 3d 20 31 |T <1  TH|EN T = 1|
|000008e0| 0a 33 31 37 20 20 49 46 | 20 54 20 3e 50 20 20 54 |.317  IF| T >P  T|
|000008f0| 48 45 4e 20 54 20 3d 20 | 50 0a 33 32 30 20 20 49 |HEN T = |P.320  I|
|00000900| 46 20 54 20 3d 20 31 20 | 20 4f 52 20 54 20 3d 20 |F T = 1 | OR T = |
|00000910| 50 20 20 54 48 45 4e 20 | 52 20 3d 20 52 20 2a 20 |P  THEN |R = R * |
|00000920| 2d 31 0a 33 32 32 20 20 | 49 46 20 4d 2f 31 30 30 |-1.322  |IF M/100|
|00000930| 20 3d 20 20 49 4e 54 28 | 4d 2f 31 30 30 29 20 20 | =  INT(|M/100)  |
|00000940| 54 48 45 4e 20 20 47 4f | 53 55 42 20 33 30 35 0a |THEN  GO|SUB 305.|
|00000950| 33 32 35 20 4d 20 3d 20 | 4d 20 2b 31 3a 20 48 54 |325 M = |M +1: HT|
|00000960| 41 42 20 54 3a 20 56 54 | 41 42 20 32 34 3a 20 50 |AB T: VT|AB 24: P|
|00000970| 52 49 4e 54 20 41 24 3b | 3a 20 56 54 41 42 20 31 |RINT A$;|: VTAB 1|
|00000980| 30 3a 58 20 3d 20 20 49 | 4e 54 28 20 50 44 4c 28 |0:X =  I|NT( PDL(|
|00000990| 30 29 2f 37 29 20 2b 31 | 0a 33 33 30 20 59 20 3d |0)/7) +1|.330 Y =|
|000009a0| 20 20 49 4e 54 28 20 50 | 44 4c 28 31 29 2f 37 29 |  INT( P|DL(1)/7)|
|000009b0| 20 2b 31 3a 20 49 46 20 | 20 53 43 52 4e 28 20 59 | +1: IF | SCRN( Y|
|000009c0| 20 2d 31 2c 32 30 29 20 | 3c 20 3e 31 30 20 20 54 | -1,20) |< >10  T|
|000009d0| 48 45 4e 20 20 50 52 49 | 4e 54 20 42 24 3b 0a 33 |HEN  PRI|NT B$;.3|
|000009e0| 33 32 20 20 49 46 20 20 | 53 43 52 4e 28 20 59 20 |32  IF  |SCRN( Y |
|000009f0| 2d 31 2c 32 30 29 20 3c | 20 3e 31 30 20 20 54 48 |-1,20) <| >10  TH|
|00000a00| 45 4e 20 59 59 20 3d 20 | 59 59 20 2b 31 0a 33 33 |EN YY = |YY +1.33|
|00000a10| 35 20 20 49 46 20 20 53 | 43 52 4e 28 20 58 20 2d |5  IF  S|CRN( X -|
|00000a20| 31 2c 32 30 29 20 3c 20 | 3e 31 31 20 20 54 48 45 |1,20) < |>11  THE|
|00000a30| 4e 20 20 50 52 49 4e 54 | 20 42 24 3b 0a 33 33 37 |N  PRINT| B$;.337|
|00000a40| 20 20 49 46 20 20 53 43 | 52 4e 28 20 58 20 2d 31 |  IF  SC|RN( X -1|
|00000a50| 2c 32 30 29 20 3c 20 3e | 31 31 20 20 54 48 45 4e |,20) < >|11  THEN|
|00000a60| 20 5a 20 3d 20 5a 20 2b | 31 0a 33 34 30 20 20 48 | Z = Z +|1.340  H|
|00000a70| 54 41 42 20 58 3a 20 50 | 52 49 4e 54 20 43 24 3b |TAB X: P|RINT C$;|
|00000a80| 3a 20 48 54 41 42 20 59 | 3a 20 50 52 49 4e 54 20 |: HTAB Y|: PRINT |
|00000a90| 58 24 3a 20 4e 45 58 54 | 20 3a 20 47 4f 54 4f 20 |X$: NEXT| : GOTO |
|00000aa0| 33 31 30 0a 33 35 35 20 | 20 48 4f 4d 45 20 0a 33 |310.355 | HOME .3|
|00000ab0| 36 30 20 20 47 52 20 3a | 20 50 4f 4b 45 20 33 34 |60  GR :| POKE 34|
|00000ac0| 2c 30 0a 33 36 35 20 20 | 47 4f 53 55 42 20 39 31 |,0.365  |GOSUB 91|
|00000ad0| 30 0a 33 37 30 20 5a 20 | 3d 20 30 3a 59 59 20 3d |0.370 Z |= 0:YY =|
|00000ae0| 20 30 0a 33 37 35 20 20 | 56 54 41 42 20 32 34 0a | 0.375  |VTAB 24.|
|00000af0| 33 38 30 20 43 24 20 3d | 20 22 2a 22 0a 33 38 35 |380 C$ =| "*".385|
|00000b00| 20 58 24 20 3d 20 22 3b | 22 0a 33 39 30 20 54 20 | X$ = ";|".390 T |
|00000b10| 3d 20 31 3a 43 20 3d 20 | 32 30 0a 33 39 35 20 20 |= 1:C = |20.395  |
|00000b20| 46 4f 52 20 41 20 3d 20 | 31 20 54 4f 20 31 34 3a |FOR A = |1 TO 14:|
|00000b30| 20 48 54 41 42 20 54 3a | 20 50 52 49 4e 54 20 41 | HTAB T:| PRINT A|
|00000b40| 24 3b 3a 20 4e 45 58 54 | 20 0a 34 30 30 20 20 56 |$;: NEXT| .400  V|
|00000b50| 54 41 42 20 32 34 3a 20 | 48 54 41 42 20 31 0a 34 |TAB 24: |HTAB 1.4|
|00000b60| 30 35 20 20 50 52 49 4e | 54 20 22 50 4f 53 49 54 |05  PRIN|T "POSIT|
|00000b70| 49 4f 4e 20 54 48 45 20 | 47 52 45 59 20 43 41 52 |ION THE |GREY CAR|
|00000b80| 20 4f 4e 20 54 48 45 20 | 4c 45 46 54 20 54 52 41 | ON THE |LEFT TRA|
|00000b90| 43 4b 20 41 4e 44 20 54 | 48 45 20 4f 54 48 45 52 |CK AND T|HE OTHER|
|00000ba0| 20 43 41 52 20 4f 4e 20 | 54 48 45 20 52 49 47 48 | CAR ON |THE RIGH|
|00000bb0| 54 20 54 52 41 43 4b 2e | 22 0a 34 31 30 20 20 50 |T TRACK.|".410  P|
|00000bc0| 52 49 4e 54 20 22 50 55 | 53 48 20 42 55 54 54 4f |RINT "PU|SH BUTTO|
|00000bd0| 4e 20 4f 4e 20 47 52 45 | 59 20 43 41 52 20 50 41 |N ON GRE|Y CAR PA|
|00000be0| 44 44 4c 45 20 54 4f 20 | 53 54 41 52 54 2e 22 3b |DDLE TO |START.";|
|00000bf0| 0a 34 32 30 20 20 48 54 | 41 42 20 31 3a 20 56 54 |.420  HT|AB 1: VT|
|00000c00| 41 42 20 31 30 0a 34 32 | 35 20 20 49 46 20 20 50 |AB 10.42|5  IF  P|
|00000c10| 45 45 4b 28 20 2d 31 36 | 32 38 37 29 20 3e 31 32 |EEK( -16|287) >12|
|00000c20| 37 20 20 54 48 45 4e 20 | 34 35 30 0a 34 33 30 20 |7  THEN |450.430 |
|00000c30| 20 50 52 49 4e 54 20 20 | 4c 45 46 54 24 28 41 24 | PRINT  |LEFT$(A$|
|00000c40| 2c 34 30 29 3b 3a 20 56 | 54 41 42 20 39 0a 34 33 |,40);: V|TAB 9.43|
|00000c50| 35 20 20 48 54 41 42 20 | 28 20 50 44 4c 28 30 29 |5  HTAB |( PDL(0)|
|00000c60| 2f 37 29 20 2b 31 3a 20 | 50 52 49 4e 54 20 43 24 |/7) +1: |PRINT C$|
|00000c70| 3b 0a 34 34 30 20 20 48 | 54 41 42 20 28 20 50 44 |;.440  H|TAB ( PD|
|00000c80| 4c 28 31 29 2f 37 29 20 | 2b 31 3a 20 50 52 49 4e |L(1)/7) |+1: PRIN|
|00000c90| 54 20 58 24 3b 3a 20 48 | 54 41 42 20 31 0a 34 34 |T X$;: H|TAB 1.44|
|00000ca0| 35 20 20 47 4f 54 4f 20 | 34 32 35 0a 34 35 30 20 |5  GOTO |425.450 |
|00000cb0| 20 50 4f 4b 45 20 20 2d | 31 36 33 30 32 2c 30 3a | POKE  -|16302,0:|
|00000cc0| 20 56 54 41 42 20 32 31 | 3a 20 46 4f 52 20 41 20 | VTAB 21|: FOR A |
|00000cd0| 3d 20 31 20 54 4f 20 34 | 3a 20 50 52 49 4e 54 20 |= 1 TO 4|: PRINT |
|00000ce0| 41 24 3b 3a 20 4e 45 58 | 54 20 0a 34 35 35 20 20 |A$;: NEX|T .455  |
|00000cf0| 47 4f 54 4f 20 33 31 35 | 0a 34 38 30 20 20 54 45 |GOTO 315|.480  TE|
|00000d00| 58 54 20 3a 20 48 4f 4d | 45 20 0a 34 38 32 20 20 |XT : HOM|E .482  |
|00000d10| 50 52 49 4e 54 20 22 20 | 47 52 45 59 20 43 41 52 |PRINT " |GREY CAR|
|00000d20| 20 53 43 4f 52 45 3a 20 | 22 3b 35 30 30 20 2d 5a | SCORE: |";500 -Z|
|00000d30| 3b 3a 20 50 52 49 4e 54 | 20 22 20 42 4c 55 45 20 |;: PRINT| " BLUE |
|00000d40| 43 41 52 20 53 43 4f 52 | 45 3a 20 22 3b 35 30 30 |CAR SCOR|E: ";500|
|00000d50| 20 2d 59 59 3b 0a 34 38 | 35 20 20 48 54 41 42 20 | -YY;.48|5  HTAB |
|00000d60| 37 3a 20 49 46 20 5a 20 | 3c 59 59 20 20 54 48 45 |7: IF Z |<YY  THE|
|00000d70| 4e 20 20 50 52 49 4e 54 | 20 22 47 52 45 59 20 43 |N  PRINT| "GREY C|
|00000d80| 41 52 20 57 49 4e 53 21 | 21 21 21 21 22 3a 20 47 |AR WINS!|!!!!": G|
|00000d90| 4f 54 4f 20 34 39 30 0a | 34 38 37 20 20 49 46 20 |OTO 490.|487  IF |
|00000da0| 59 59 20 3c 5a 20 20 54 | 48 45 4e 20 20 50 52 49 |YY <Z  T|HEN  PRI|
|00000db0| 4e 54 20 22 42 4c 55 45 | 20 43 41 52 20 57 49 4e |NT "BLUE| CAR WIN|
|00000dc0| 53 21 21 21 21 21 22 0a | 34 39 30 20 20 50 52 49 |S!!!!!".|490  PRI|
|00000dd0| 4e 54 20 3a 20 50 52 49 | 4e 54 20 3a 20 48 54 41 |NT : PRI|NT : HTA|
|00000de0| 42 20 34 3a 20 50 52 49 | 4e 54 20 22 44 4f 20 59 |B 4: PRI|NT "DO Y|
|00000df0| 4f 55 20 57 41 4e 54 20 | 41 4e 4f 54 48 45 52 20 |OU WANT |ANOTHER |
|00000e00| 52 41 43 45 3f 20 28 59 | 2f 4e 29 3f 22 3a 20 49 |RACE? (Y|/N)?": I|
|00000e10| 4e 50 55 54 20 5a 24 3a | 20 49 46 20 5a 24 20 3c |NPUT Z$:| IF Z$ <|
|00000e20| 20 3e 22 59 22 20 20 54 | 48 45 4e 20 32 30 30 30 | >"Y"  T|HEN 2000|
|00000e30| 0a 34 39 34 20 20 43 41 | 4c 4c 20 20 2d 39 35 38 |.494  CA|LL  -958|
|00000e40| 0a 34 39 35 20 20 50 52 | 49 4e 54 20 22 54 48 45 |.495  PR|INT "THE|
|00000e50| 20 53 41 4d 45 20 53 45 | 54 2d 55 50 3f 20 28 59 | SAME SE|T-UP? (Y|
|00000e60| 2f 4e 29 3f 22 3a 20 49 | 4e 50 55 54 20 5a 24 3a |/N)?": I|NPUT Z$:|
|00000e70| 20 49 46 20 5a 24 20 3c | 20 3e 22 59 22 20 20 54 | IF Z$ <| >"Y"  T|
|00000e80| 48 45 4e 20 31 30 35 30 | 0a 34 39 37 20 50 20 3d |HEN 1050|.497 P =|
|00000e90| 20 31 35 3a 4d 20 3d 20 | 30 3a 20 47 4f 54 4f 20 | 15:M = |0: GOTO |
|00000ea0| 33 35 35 0a 39 30 30 20 | 41 24 20 3d 20 22 22 20 |355.900 |A$ = "" |
|00000eb0| 2b 22 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 4c 4c 4c |+";;;;;;|;;;;;LLL|
|00000ec0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 4c 4c 4c 4c 4c |********|***LLLLL|
|00000ed0| 4c 4c 4c 4c 4c 4c 4c 4c | 4c 4c 4c 4c 4c 22 3a 20 |LLLLLLLL|LLLLL": |
|00000ee0| 52 45 4d 20 20 53 54 52 | 49 4e 47 20 43 4f 4e 43 |REM  STR|ING CONC|
|00000ef0| 41 54 45 4e 41 54 49 4f | 4e 20 46 4f 52 43 45 53 |ATENATIO|N FORCES|
|00000f00| 20 41 24 20 41 54 20 48 | 49 4d 45 4d 0a 39 30 35 | A$ AT H|IMEM.905|
|00000f10| 20 20 52 45 54 55 52 4e | 20 0a 39 31 30 20 20 46 |  RETURN| .910  F|
|00000f20| 4f 52 20 49 20 3d 20 33 | 38 31 30 31 20 54 4f 20 |OR I = 3|8101 TO |
|00000f30| 33 38 31 31 31 3a 20 50 | 4f 4b 45 20 49 2c 35 39 |38111: P|OKE I,59|
|00000f40| 3a 20 4e 45 58 54 20 0a | 39 31 35 20 20 46 4f 52 |: NEXT .|915  FOR|
|00000f50| 20 49 20 3d 20 33 38 31 | 31 35 20 54 4f 20 33 38 | I = 381|15 TO 38|
|00000f60| 31 32 35 3a 20 50 4f 4b | 45 20 49 2c 34 32 3a 20 |125: POK|E I,42: |
|00000f70| 4e 45 58 54 20 0a 39 32 | 30 20 20 52 45 54 55 52 |NEXT .92|0  RETUR|
|00000f80| 4e 20 0a 39 35 35 20 20 | 52 45 4d 20 20 49 4e 49 |N .955  |REM  INI|
|00000f90| 54 49 41 4c 49 5a 41 54 | 49 4f 4e 0a 39 35 37 20 |TIALIZAT|ION.957 |
|00000fa0| 20 47 4f 53 55 42 20 39 | 30 30 0a 39 36 30 20 50 | GOSUB 9|00.960 P|
|00000fb0| 20 3d 20 31 35 3a 52 20 | 3d 20 30 3a 54 20 3d 20 | = 15:R |= 0:T = |
|00000fc0| 30 3a 41 20 3d 20 30 3a | 20 44 49 4d 20 43 24 28 |0:A = 0:| DIM C$(|
|00000fd0| 31 29 2c 58 24 28 31 29 | 3a 4d 20 3d 20 31 3a 42 |1),X$(1)|:M = 1:B|
|00000fe0| 24 20 3d 20 20 43 48 52 | 24 28 37 29 0a 39 36 35 |$ =  CHR|$(7).965|
|00000ff0| 20 20 50 4f 4b 45 20 32 | 35 30 2c 31 36 30 0a 31 |  POKE 2|50,160.1|
|00001000| 30 30 30 20 20 54 45 58 | 54 20 3a 20 43 41 4c 4c |000  TEX|T : CALL|
|00001010| 20 20 2d 39 33 36 3a 20 | 50 52 49 4e 54 20 22 57 |  -936: |PRINT "W|
|00001020| 45 4c 43 4f 4d 45 20 54 | 4f 20 47 52 41 4e 44 20 |ELCOME T|O GRAND |
|00001030| 50 52 49 58 2c 20 41 20 | 43 4f 4d 50 45 54 49 54 |PRIX, A |COMPETIT|
|00001040| 49 56 45 20 20 20 20 52 | 4f 41 44 20 52 41 43 45 |IVE    R|OAD RACE|
|00001050| 20 47 41 4d 45 20 46 4f | 52 20 54 57 4f 20 50 4c | GAME FO|R TWO PL|
|00001060| 41 59 45 52 53 2e 22 3a | 20 50 52 49 4e 54 20 0a |AYERS.":| PRINT .|
|00001070| 31 30 30 35 20 20 50 52 | 49 4e 54 20 22 54 48 52 |1005  PR|INT "THR|
|00001080| 45 45 20 4c 45 56 45 4c | 53 20 4f 46 20 54 52 41 |EE LEVEL|S OF TRA|
|00001090| 43 4b 20 44 49 46 46 49 | 43 55 4c 54 59 20 41 52 |CK DIFFI|CULTY AR|
|000010a0| 45 20 20 20 20 41 56 41 | 49 4c 41 42 4c 45 2e 20 |E    AVA|ILABLE. |
|000010b0| 20 43 48 4f 4f 53 45 20 | 59 4f 55 52 53 20 42 59 | CHOOSE |YOURS BY|
|000010c0| 20 4e 55 4d 42 45 52 20 | 41 4e 44 20 20 48 49 54 | NUMBER |AND  HIT|
|000010d0| 20 52 45 54 55 52 4e 3a | 22 0a 31 30 31 30 20 20 | RETURN:|".1010  |
|000010e0| 48 54 41 42 20 35 3a 20 | 50 52 49 4e 54 20 22 31 |HTAB 5: |PRINT "1|
|000010f0| 2e 20 46 52 45 45 57 41 | 59 20 44 52 49 56 45 52 |. FREEWA|Y DRIVER|
|00001100| 22 3a 20 48 54 41 42 20 | 35 3a 20 50 52 49 4e 54 |": HTAB |5: PRINT|
|00001110| 20 22 32 2e 20 41 4d 41 | 54 45 55 52 20 52 41 43 | "2. AMA|TEUR RAC|
|00001120| 45 20 44 52 49 56 45 52 | 22 3a 20 48 54 41 42 20 |E DRIVER|": HTAB |
|00001130| 35 3a 20 50 52 49 4e 54 | 20 22 33 2e 20 47 52 41 |5: PRINT| "3. GRA|
|00001140| 4e 44 20 50 52 49 58 20 | 44 52 49 56 45 52 22 0a |ND PRIX |DRIVER".|
|00001150| 31 30 31 35 20 20 50 52 | 49 4e 54 20 3a 20 48 54 |1015  PR|INT : HT|
|00001160| 41 42 20 31 30 3a 20 49 | 4e 50 55 54 20 22 57 48 |AB 10: I|NPUT "WH|
|00001170| 49 43 48 3f 20 22 3b 52 | 31 0a 31 30 32 35 20 20 |ICH? ";R|1.1025  |
|00001180| 50 52 49 4e 54 20 3a 20 | 50 52 49 4e 54 20 22 48 |PRINT : |PRINT "H|
|00001190| 4f 57 20 44 4f 20 59 4f | 55 20 57 41 4e 54 20 41 |OW DO YO|U WANT A|
|000011a0| 20 43 41 52 20 4f 46 46 | 20 54 48 45 20 52 4f 41 | CAR OFF| THE ROA|
|000011b0| 44 20 20 20 20 20 20 49 | 4e 44 49 43 41 54 45 44 |D      I|NDICATED|
|000011c0| 3f 22 3a 20 48 54 41 42 | 20 35 3a 20 50 52 49 4e |?": HTAB| 5: PRIN|
|000011d0| 54 20 22 31 2e 20 44 45 | 43 52 45 41 53 49 4e 47 |T "1. DE|CREASING|
|000011e0| 20 53 43 4f 52 45 20 28 | 53 54 45 41 44 59 20 53 | SCORE (|STEADY S|
|000011f0| 50 45 45 44 29 22 0a 31 | 30 33 30 20 20 48 54 41 |PEED)".1|030  HTA|
|00001200| 42 20 35 3a 20 50 52 49 | 4e 54 20 22 32 2e 20 42 |B 5: PRI|NT "2. B|
|00001210| 45 4c 4c 20 26 20 44 45 | 43 52 45 41 53 49 4e 47 |ELL & DE|CREASING|
|00001220| 20 53 43 4f 52 45 20 28 | 53 4c 4f 57 53 20 47 41 | SCORE (|SLOWS GA|
|00001230| 4d 45 29 22 0a 31 30 33 | 35 20 20 50 52 49 4e 54 |ME)".103|5  PRINT|
|00001240| 20 3a 20 48 54 41 42 20 | 31 30 3a 20 49 4e 50 55 | : HTAB |10: INPU|
|00001250| 54 20 22 57 48 49 43 48 | 3f 20 22 3b 52 0a 31 30 |T "WHICH|? ";R.10|
|00001260| 34 30 20 20 49 46 20 52 | 20 3d 20 31 20 20 54 48 |40  IF R| = 1  TH|
|00001270| 45 4e 20 20 47 4f 54 4f | 20 35 35 0a 31 30 34 35 |EN  GOTO| 55.1045|
|00001280| 20 20 47 4f 54 4f 20 33 | 35 35 0a 31 30 35 30 20 |  GOTO 3|55.1050 |
|00001290| 20 54 45 58 54 20 3a 20 | 48 4f 4d 45 20 3a 50 20 | TEXT : |HOME :P |
|000012a0| 3d 20 31 35 3a 4d 20 3d | 20 31 3a 20 47 4f 54 4f |= 15:M =| 1: GOTO|
|000012b0| 20 31 30 30 35 0a 32 30 | 30 30 20 20 54 45 58 54 | 1005.20|00  TEXT|
|000012c0| 20 3a 20 48 4f 4d 45 20 | 3a 20 45 4e 44 20       | : HOME |: END   |
+--------+-------------------------+-------------------------+--------+--------+