�
� Stock_car
� by AW Halse
(� (c) Micro Power 1984
2�
<�4
F	�init
P�19,1;0;0;0;
d�5
n �13*32,31*32+16:�"_________"
x�13*32,30*32:�"STOCK-CAR"
�!�13*32,29*32+16:�"_________";
��4
��28,4)"by AW Halse";

6�31,0,11

@��"Controls:      Player1     Player2                                              Car             red        green        Left             Z           *          Right            X        return        Change down      A           ?"

J&�"Change up        Q           +"'

T��"   This is a game for one or two playersin  which you each  control a racing carracing  against   either  a  computer orhuman opponent."'

^��"  Your gear and number of completed lapsare  displayed at the  top of the screenas well  as your speed ( in the form  ofa horizontal bar). ";

h��"In each gear you havea different acceleration  and top speed.Pressing  ESCAPE  will return you to thestart of the program.";

r'�BOX(10*32,22*32,26*32-4,28*32-4,1)

w	Q%=12

|3�BOX(10*32+Q%,22*32+Q%,26*32-4-Q%,28*32-4-Q%,0)

�	Q%=20

�3�BOX(10*32+Q%,22*32+Q%,26*32-4-Q%,28*32-4-Q%,1)

��0:�129 

��19;4;0;0;19,1,7;0;0;

��28,11,8,24,5,12

�
*RUN"CAR"

��REM          

��

�� �c(A$,line)

��(39-�A$)�2,line);A$;

��

� 

�� �init

�-�1,1,-1,4,-1,1,2,3,127,-127,-1,-10,126,80

�-�2,1,3,5,6,10,10,10,127,-1,-1,-127,126,30
0�3,1,-3,-5,-6,10,10,10,127,-1,-1,-127,126,30

*FX4,1
+�23,&E4,&80,&C0,&C0,&E0,&E0,&C0,&C0,&80
&!�23,&E5,0,0,0,0,0,&18,&7E,&FF
0�23,&E6,1,3,3,7,7,3,3,1
:!�23,&E7,&FF,&7E,&18,0,0,0,0,0
D+�23,&EC,&FF,&FF,&FF,&FF,&FF,&FF,&FF,&FF
N+�23,&E8,&C0,&F8,&FC,&FE,&FE,&FE,&FF,&FF
X+�23,&E9,&FF,&FF,&FE,&FE,&FE,&FC,&F8,&C0
b)�23,&EA,&FF,&FF,&7F,&7F,&7F,&3F,&1F,3
l)�23,&EB,3,&1F,&3F,&7F,&7F,&7F,&FF,&FF
v"�23,&ED,0,0,0,1,&F,&3F,&7F,&FF
�%�23,&EE,0,0,0,&1F,&FF,&FF,&FF,&FF
�)�23,&EF,0,&1E,&7F,&FF,&FF,&FF,&FF,&FF
�'�23,&F1,0,0,&80,&C0,&E0,&F8,&FE,&FF
�� &A8,&55,&2A,&15
�� &02,&5,&AA,&55
�� &A8,&55,&AA,&55
�� &28,&54,&AA,&54
�� &2A,&54,&54,&AA
�� &A,&A5,&A5,&A
�� &10,&29,&29,&10
�� &A8,&54,&54,&2A
�� &55,&AA,&55,&2A
�� &55,&AA,&41,&00
� &55,&AA,&55,&2A
� &55,&AA,&54,&A0
	��t^B
� G%=&F2 � &FD
 � A$,B$,C$,D$
*A=�A$:B=�B$
4C=�C$:D=�D$
>�23,G%,A,0,B,0,C,0,D,0
H�
R!�23,&FF,&A0,0,&A0,0,&A,0,&A,0
W�23,&FE,0,0,0,&FF,&FF,0,0,0
\�
�� �BOX(X1,Y1,X2,Y2,col) 
�� 5
��24,X1;Y1;X2;Y2;
�0,128+col
�
�4
$�
�

00000000  0d 00 0a 05 f4 0d 00 14  0f f4 20 53 74 6f 63 6b  |.......... Stock|
00000010  5f 63 61 72 0d 00 1e 11  f4 20 62 79 20 41 57 20  |_car..... by AW |
00000020  48 61 6c 73 65 0d 00 28  1a f4 20 28 63 29 20 4d  |Halse..(.. (c) M|
00000030  69 63 72 6f 20 50 6f 77  65 72 20 31 39 38 34 0d  |icro Power 1984.|
00000040  00 32 05 f4 0d 00 3c 06  eb 34 0d 00 46 09 f2 69  |.2....<..4..F..i|
00000050  6e 69 74 0d 00 50 10 ef  31 39 2c 31 3b 30 3b 30  |nit..P..19,1;0;0|
00000060  3b 30 3b 0d 00 64 06 ef  35 0d 00 6e 20 ec 31 33  |;0;..d..5..n .13|
00000070  2a 33 32 2c 33 31 2a 33  32 2b 31 36 3a f1 22 5f  |*32,31*32+16:."_|
00000080  5f 5f 5f 5f 5f 5f 5f 5f  22 0d 00 78 1d ec 31 33  |________"..x..13|
00000090  2a 33 32 2c 33 30 2a 33  32 3a f1 22 53 54 4f 43  |*32,30*32:."STOC|
000000a0  4b 2d 43 41 52 22 0d 00  82 21 ec 31 33 2a 33 32  |K-CAR"...!.13*32|
000000b0  2c 32 39 2a 33 32 2b 31  36 3a f1 22 5f 5f 5f 5f  |,29*32+16:."____|
000000c0  5f 5f 5f 5f 5f 22 3b 0d  00 8c 06 ef 34 0d 00 96  |_____";.....4...|
000000d0  19 f1 8a 32 38 2c 34 29  22 62 79 20 41 57 20 48  |...28,4)"by AW H|
000000e0  61 6c 73 65 22 3b 0d 01  36 0c ef 33 31 2c 30 2c  |alse";..6..31,0,|
000000f0  31 31 0d 01 40 ed f1 22  43 6f 6e 74 72 6f 6c 73  |11..@.."Controls|
00000100  3a 20 20 20 20 20 20 50  6c 61 79 65 72 31 20 20  |:      Player1  |
00000110  20 20 20 50 6c 61 79 65  72 32 20 20 20 20 20 20  |   Player2      |
00000120  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000140  20 20 20 20 20 20 20 20  43 61 72 20 20 20 20 20  |        Car     |
00000150  20 20 20 20 20 20 20 20  72 65 64 20 20 20 20 20  |        red     |
00000160  20 20 20 67 72 65 65 6e  20 20 20 20 20 20 20 20  |   green        |
00000170  4c 65 66 74 20 20 20 20  20 20 20 20 20 20 20 20  |Left            |
00000180  20 5a 20 20 20 20 20 20  20 20 20 20 20 2a 20 20  | Z           *  |
00000190  20 20 20 20 20 20 20 20  52 69 67 68 74 20 20 20  |        Right   |
000001a0  20 20 20 20 20 20 20 20  20 58 20 20 20 20 20 20  |         X      |
000001b0  20 20 72 65 74 75 72 6e  20 20 20 20 20 20 20 20  |  return        |
000001c0  43 68 61 6e 67 65 20 64  6f 77 6e 20 20 20 20 20  |Change down     |
000001d0  20 41 20 20 20 20 20 20  20 20 20 20 20 3f 22 0d  | A           ?".|
000001e0  01 4a 26 f1 22 43 68 61  6e 67 65 20 75 70 20 20  |.J&."Change up  |
000001f0  20 20 20 20 20 20 51 20  20 20 20 20 20 20 20 20  |      Q         |
00000200  20 20 2b 22 27 0d 01 54  8f f1 22 20 20 20 54 68  |  +"'..T.."   Th|
00000210  69 73 20 69 73 20 61 20  67 61 6d 65 20 66 6f 72  |is is a game for|
00000220  20 6f 6e 65 20 6f 72 20  74 77 6f 20 70 6c 61 79  | one or two play|
00000230  65 72 73 69 6e 20 20 77  68 69 63 68 20 79 6f 75  |ersin  which you|
00000240  20 65 61 63 68 20 20 63  6f 6e 74 72 6f 6c 20 61  | each  control a|
00000250  20 72 61 63 69 6e 67 20  63 61 72 72 61 63 69 6e  | racing carracin|
00000260  67 20 20 61 67 61 69 6e  73 74 20 20 20 65 69 74  |g  against   eit|
00000270  68 65 72 20 20 61 20 20  63 6f 6d 70 75 74 65 72  |her  a  computer|
00000280  20 6f 72 68 75 6d 61 6e  20 6f 70 70 6f 6e 65 6e  | orhuman opponen|
00000290  74 2e 22 27 0d 01 5e 93  f1 22 20 20 59 6f 75 72  |t."'..^.."  Your|
000002a0  20 67 65 61 72 20 61 6e  64 20 6e 75 6d 62 65 72  | gear and number|
000002b0  20 6f 66 20 63 6f 6d 70  6c 65 74 65 64 20 6c 61  | of completed la|
000002c0  70 73 61 72 65 20 20 64  69 73 70 6c 61 79 65 64  |psare  displayed|
000002d0  20 61 74 20 74 68 65 20  20 74 6f 70 20 6f 66 20  | at the  top of |
000002e0  74 68 65 20 73 63 72 65  65 6e 61 73 20 77 65 6c  |the screenas wel|
000002f0  6c 20 20 61 73 20 79 6f  75 72 20 73 70 65 65 64  |l  as your speed|
00000300  20 28 20 69 6e 20 74 68  65 20 66 6f 72 6d 20 20  | ( in the form  |
00000310  6f 66 61 20 68 6f 72 69  7a 6f 6e 74 61 6c 20 62  |ofa horizontal b|
00000320  61 72 29 2e 20 22 3b 0d  01 68 82 f1 22 49 6e 20  |ar). ";..h.."In |
00000330  65 61 63 68 20 67 65 61  72 20 79 6f 75 20 68 61  |each gear you ha|
00000340  76 65 61 20 64 69 66 66  65 72 65 6e 74 20 61 63  |vea different ac|
00000350  63 65 6c 65 72 61 74 69  6f 6e 20 20 61 6e 64 20  |celeration  and |
00000360  74 6f 70 20 73 70 65 65  64 2e 50 72 65 73 73 69  |top speed.Pressi|
00000370  6e 67 20 20 45 53 43 41  50 45 20 20 77 69 6c 6c  |ng  ESCAPE  will|
00000380  20 72 65 74 75 72 6e 20  79 6f 75 20 74 6f 20 74  | return you to t|
00000390  68 65 73 74 61 72 74 20  6f 66 20 74 68 65 20 70  |hestart of the p|
000003a0  72 6f 67 72 61 6d 2e 22  3b 0d 01 72 27 f2 42 4f  |rogram.";..r'.BO|
000003b0  58 28 31 30 2a 33 32 2c  32 32 2a 33 32 2c 32 36  |X(10*32,22*32,26|
000003c0  2a 33 32 2d 34 2c 32 38  2a 33 32 2d 34 2c 31 29  |*32-4,28*32-4,1)|
000003d0  0d 01 77 09 51 25 3d 31  32 0d 01 7c 33 f2 42 4f  |..w.Q%=12..|3.BO|
000003e0  58 28 31 30 2a 33 32 2b  51 25 2c 32 32 2a 33 32  |X(10*32+Q%,22*32|
000003f0  2b 51 25 2c 32 36 2a 33  32 2d 34 2d 51 25 2c 32  |+Q%,26*32-4-Q%,2|
00000400  38 2a 33 32 2d 34 2d 51  25 2c 30 29 0d 01 81 09  |8*32-4-Q%,0)....|
00000410  51 25 3d 32 30 0d 01 86  33 f2 42 4f 58 28 31 30  |Q%=20...3.BOX(10|
00000420  2a 33 32 2b 51 25 2c 32  32 2a 33 32 2b 51 25 2c  |*32+Q%,22*32+Q%,|
00000430  32 36 2a 33 32 2d 34 2d  51 25 2c 32 38 2a 33 32  |26*32-4-Q%,28*32|
00000440  2d 34 2d 51 25 2c 31 29  0d 01 90 0c fb 30 3a fb  |-4-Q%,1).....0:.|
00000450  31 32 39 20 0d 01 9a 19  ef 31 39 3b 34 3b 30 3b  |129 .....19;4;0;|
00000460  30 3b 31 39 2c 31 2c 37  3b 30 3b 30 3b 0d 01 a4  |0;19,1,7;0;0;...|
00000470  14 ef 32 38 2c 31 31 2c  38 2c 32 34 2c 35 2c 31  |..28,11,8,24,5,1|
00000480  32 0d 01 ae 0d 2a 52 55  4e 22 43 41 52 22 0d 01  |2....*RUN"CAR"..|
00000490  b3 1a f4 08 08 08 0b 52  45 4d 00 00 00 00 20 20  |.......REM....  |
000004a0  20 20 20 20 20 20 20 20  0d 01 b8 05 f4 0d 01 c2  |        ........|
000004b0  11 dd 20 f2 63 28 41 24  2c 6c 69 6e 65 29 0d 01  |.. .c(A$,line)..|
000004c0  cc 1a f1 8a 28 33 39 2d  a9 41 24 29 81 32 2c 6c  |....(39-.A$).2,l|
000004d0  69 6e 65 29 3b 41 24 3b  0d 01 d6 05 e1 0d 01 e0  |ine);A$;........|
000004e0  05 20 0d 01 ea 0b dd 20  f2 69 6e 69 74 0d 01 f4  |. ..... .init...|
000004f0  2d e2 31 2c 31 2c 2d 31  2c 34 2c 2d 31 2c 31 2c  |-.1,1,-1,4,-1,1,|
00000500  32 2c 33 2c 31 32 37 2c  2d 31 32 37 2c 2d 31 2c  |2,3,127,-127,-1,|
00000510  2d 31 30 2c 31 32 36 2c  38 30 0d 01 fe 2d e2 32  |-10,126,80...-.2|
00000520  2c 31 2c 33 2c 35 2c 36  2c 31 30 2c 31 30 2c 31  |,1,3,5,6,10,10,1|
00000530  30 2c 31 32 37 2c 2d 31  2c 2d 31 2c 2d 31 32 37  |0,127,-1,-1,-127|
00000540  2c 31 32 36 2c 33 30 0d  02 08 30 e2 33 2c 31 2c  |,126,30...0.3,1,|
00000550  2d 33 2c 2d 35 2c 2d 36  2c 31 30 2c 31 30 2c 31  |-3,-5,-6,10,10,1|
00000560  30 2c 31 32 37 2c 2d 31  2c 2d 31 2c 2d 31 32 37  |0,127,-1,-1,-127|
00000570  2c 31 32 36 2c 33 30 0d  02 12 0a 2a 46 58 34 2c  |,126,30....*FX4,|
00000580  31 0d 02 1c 2b ef 32 33  2c 26 45 34 2c 26 38 30  |1...+.23,&E4,&80|
00000590  2c 26 43 30 2c 26 43 30  2c 26 45 30 2c 26 45 30  |,&C0,&C0,&E0,&E0|
000005a0  2c 26 43 30 2c 26 43 30  2c 26 38 30 0d 02 26 21  |,&C0,&C0,&80..&!|
000005b0  ef 32 33 2c 26 45 35 2c  30 2c 30 2c 30 2c 30 2c  |.23,&E5,0,0,0,0,|
000005c0  30 2c 26 31 38 2c 26 37  45 2c 26 46 46 0d 02 30  |0,&18,&7E,&FF..0|
000005d0  1b ef 32 33 2c 26 45 36  2c 31 2c 33 2c 33 2c 37  |..23,&E6,1,3,3,7|
000005e0  2c 37 2c 33 2c 33 2c 31  0d 02 3a 21 ef 32 33 2c  |,7,3,3,1..:!.23,|
000005f0  26 45 37 2c 26 46 46 2c  26 37 45 2c 26 31 38 2c  |&E7,&FF,&7E,&18,|
00000600  30 2c 30 2c 30 2c 30 2c  30 0d 02 44 2b ef 32 33  |0,0,0,0,0..D+.23|
00000610  2c 26 45 43 2c 26 46 46  2c 26 46 46 2c 26 46 46  |,&EC,&FF,&FF,&FF|
00000620  2c 26 46 46 2c 26 46 46  2c 26 46 46 2c 26 46 46  |,&FF,&FF,&FF,&FF|
00000630  2c 26 46 46 0d 02 4e 2b  ef 32 33 2c 26 45 38 2c  |,&FF..N+.23,&E8,|
00000640  26 43 30 2c 26 46 38 2c  26 46 43 2c 26 46 45 2c  |&C0,&F8,&FC,&FE,|
00000650  26 46 45 2c 26 46 45 2c  26 46 46 2c 26 46 46 0d  |&FE,&FE,&FF,&FF.|
00000660  02 58 2b ef 32 33 2c 26  45 39 2c 26 46 46 2c 26  |.X+.23,&E9,&FF,&|
00000670  46 46 2c 26 46 45 2c 26  46 45 2c 26 46 45 2c 26  |FF,&FE,&FE,&FE,&|
00000680  46 43 2c 26 46 38 2c 26  43 30 0d 02 62 29 ef 32  |FC,&F8,&C0..b).2|
00000690  33 2c 26 45 41 2c 26 46  46 2c 26 46 46 2c 26 37  |3,&EA,&FF,&FF,&7|
000006a0  46 2c 26 37 46 2c 26 37  46 2c 26 33 46 2c 26 31  |F,&7F,&7F,&3F,&1|
000006b0  46 2c 33 0d 02 6c 29 ef  32 33 2c 26 45 42 2c 33  |F,3..l).23,&EB,3|
000006c0  2c 26 31 46 2c 26 33 46  2c 26 37 46 2c 26 37 46  |,&1F,&3F,&7F,&7F|
000006d0  2c 26 37 46 2c 26 46 46  2c 26 46 46 0d 02 76 22  |,&7F,&FF,&FF..v"|
000006e0  ef 32 33 2c 26 45 44 2c  30 2c 30 2c 30 2c 31 2c  |.23,&ED,0,0,0,1,|
000006f0  26 46 2c 26 33 46 2c 26  37 46 2c 26 46 46 0d 02  |&F,&3F,&7F,&FF..|
00000700  80 25 ef 32 33 2c 26 45  45 2c 30 2c 30 2c 30 2c  |.%.23,&EE,0,0,0,|
00000710  26 31 46 2c 26 46 46 2c  26 46 46 2c 26 46 46 2c  |&1F,&FF,&FF,&FF,|
00000720  26 46 46 0d 02 8a 29 ef  32 33 2c 26 45 46 2c 30  |&FF...).23,&EF,0|
00000730  2c 26 31 45 2c 26 37 46  2c 26 46 46 2c 26 46 46  |,&1E,&7F,&FF,&FF|
00000740  2c 26 46 46 2c 26 46 46  2c 26 46 46 0d 02 94 27  |,&FF,&FF,&FF...'|
00000750  ef 32 33 2c 26 46 31 2c  30 2c 30 2c 26 38 30 2c  |.23,&F1,0,0,&80,|
00000760  26 43 30 2c 26 45 30 2c  26 46 38 2c 26 46 45 2c  |&C0,&E0,&F8,&FE,|
00000770  26 46 46 0d 02 9e 15 dc  20 26 41 38 2c 26 35 35  |&FF..... &A8,&55|
00000780  2c 26 32 41 2c 26 31 35  0d 02 a8 14 dc 20 26 30  |,&2A,&15..... &0|
00000790  32 2c 26 35 2c 26 41 41  2c 26 35 35 0d 02 b2 15  |2,&5,&AA,&55....|
000007a0  dc 20 26 41 38 2c 26 35  35 2c 26 41 41 2c 26 35  |. &A8,&55,&AA,&5|
000007b0  35 0d 02 bc 15 dc 20 26  32 38 2c 26 35 34 2c 26  |5..... &28,&54,&|
000007c0  41 41 2c 26 35 34 0d 02  c6 15 dc 20 26 32 41 2c  |AA,&54..... &2A,|
000007d0  26 35 34 2c 26 35 34 2c  26 41 41 0d 02 d0 13 dc  |&54,&54,&AA.....|
000007e0  20 26 41 2c 26 41 35 2c  26 41 35 2c 26 41 0d 02  | &A,&A5,&A5,&A..|
000007f0  da 15 dc 20 26 31 30 2c  26 32 39 2c 26 32 39 2c  |... &10,&29,&29,|
00000800  26 31 30 0d 02 e4 15 dc  20 26 41 38 2c 26 35 34  |&10..... &A8,&54|
00000810  2c 26 35 34 2c 26 32 41  0d 02 ee 15 dc 20 26 35  |,&54,&2A..... &5|
00000820  35 2c 26 41 41 2c 26 35  35 2c 26 32 41 0d 02 f8  |5,&AA,&55,&2A...|
00000830  15 dc 20 26 35 35 2c 26  41 41 2c 26 34 31 2c 26  |.. &55,&AA,&41,&|
00000840  30 30 0d 03 02 15 dc 20  26 35 35 2c 26 41 41 2c  |00..... &55,&AA,|
00000850  26 35 35 2c 26 32 41 0d  03 0c 15 dc 20 26 35 35  |&55,&2A..... &55|
00000860  2c 26 41 41 2c 26 35 34  2c 26 41 30 0d 03 11 09  |,&AA,&54,&A0....|
00000870  f7 8d 74 5e 42 0d 03 16  12 e3 20 47 25 3d 26 46  |..t^B..... G%=&F|
00000880  32 20 b8 20 26 46 44 0d  03 20 11 f3 20 41 24 2c  |2 . &FD.. .. A$,|
00000890  42 24 2c 43 24 2c 44 24  0d 03 2a 0f 41 3d a0 41  |B$,C$,D$..*.A=.A|
000008a0  24 3a 42 3d a0 42 24 0d  03 34 0f 43 3d a0 43 24  |$:B=.B$..4.C=.C$|
000008b0  3a 44 3d a0 44 24 0d 03  3e 1a ef 32 33 2c 47 25  |:D=.D$..>..23,G%|
000008c0  2c 41 2c 30 2c 42 2c 30  2c 43 2c 30 2c 44 2c 30  |,A,0,B,0,C,0,D,0|
000008d0  0d 03 48 05 ed 0d 03 52  21 ef 32 33 2c 26 46 46  |..H....R!.23,&FF|
000008e0  2c 26 41 30 2c 30 2c 26  41 30 2c 30 2c 26 41 2c  |,&A0,0,&A0,0,&A,|
000008f0  30 2c 26 41 2c 30 0d 03  57 1f ef 32 33 2c 26 46  |0,&A,0..W..23,&F|
00000900  45 2c 30 2c 30 2c 30 2c  26 46 46 2c 26 46 46 2c  |E,0,0,0,&FF,&FF,|
00000910  30 2c 30 2c 30 0d 03 5c  05 e1 0d 03 e8 1c dd 20  |0,0,0..\....... |
00000920  f2 42 4f 58 28 58 31 2c  59 31 2c 58 32 2c 59 32  |.BOX(X1,Y1,X2,Y2|
00000930  2c 63 6f 6c 29 20 0d 03  f2 07 ef 20 35 0d 03 fc  |,col) ..... 5...|
00000940  14 ef 32 34 2c 58 31 3b  59 31 3b 58 32 3b 59 32  |..24,X1;Y1;X2;Y2|
00000950  3b 0d 04 06 0e e6 30 2c  31 32 38 2b 63 6f 6c 0d  |;.....0,128+col.|
00000960  04 10 05 da 0d 04 1a 06  ef 34 0d 04 24 05 e1 0d  |.........4..$...|
00000970  ff                                                |.|
00000971