00000000  0d 00 05 1d 20 f4 22 81  28 43 29 31 39 38 34 20  |.... .".(C)1984 |
00000010  50 65 74 65 72 20 4a 6f  68 6e 73 6f 6e 0d 00 06  |Peter Johnson...|
00000020  0e 2a 52 55 4e 20 4f 56  45 52 33 0d 00 0a 0a 2a  |.*RUN OVER3....*|
00000030  46 58 39 2c 32 0d 00 0b  0b 2a 46 58 31 30 2c 30  |FX9,2....*FX10,0|
00000040  0d 00 0c 0b 2a 46 58 31  33 2c 34 0d 00 0f 09 2a  |....*FX13,4....*|
00000050  54 41 50 45 0d 00 10 24  e3 49 25 3d 30 b8 26 31  |TAPE...$.I%=0.&1|
00000060  37 46 43 88 34 3a 49 25  21 26 42 30 30 3d 49 25  |7FC.4:I%!&B00=I%|
00000070  21 26 33 42 30 30 3a ed  0d 00 14 85 de 48 49 25  |!&3B00:......HI%|
00000080  28 35 29 3a e3 49 25 3d  31 b8 35 3a 48 49 25 28  |(5):.I%=1.5:HI%(|
00000090  49 25 29 3d 31 36 30 30  30 2d 49 25 2a 31 30 30  |I%)=16000-I%*100|
000000a0  30 3a ed 3a 4d 3d 26 42  30 30 3a 43 4f 44 45 25  |0:.:M=&B00:CODE%|
000000b0  3d 26 31 41 34 30 3a 53  43 31 25 3d 4d 2b 37 30  |=&1A40:SC1%=M+70|
000000c0  3a 42 4f 4e 55 53 25 3d  4d 2b 38 33 3a 53 54 41  |:BONUS%=M+83:STA|
000000d0  47 45 25 3d 4d 2b 31 35  38 3a 43 4f 4c 31 25 3d  |GE%=M+158:COL1%=|
000000e0  4d 2b 31 36 30 3a 43 4f  4c 32 25 3d 4d 2b 31 36  |M+160:COL2%=M+16|
000000f0  31 3a 47 53 45 54 25 3d  4d 2b 31 37 38 0d 00 50  |1:GSET%=M+178..P|
00000100  0b ee 85 e5 8d 54 6c 41  0d 00 5a 24 20 eb 32 3a  |.....TlA..Z$ .2:|
00000110  ef 32 33 2c 31 2c 30 3b  30 3b 30 3b 30 3b 3a f2  |.23,1,0;0;0;0;:.|
00000120  42 4c 41 43 4b 3a e4 8d  64 68 43 20 0d 00 64 2d  |BLACK:..dhC ..d-|
00000130  3f 53 54 41 47 45 25 3d  31 3a 3f 47 53 45 54 25  |?STAGE%=1:?GSET%|
00000140  3d 38 38 3a e3 49 25 3d  30 b8 33 3a 49 25 3f 53  |=88:.I%=0.3:I%?S|
00000150  43 31 25 3d 32 32 34 3a  ed 0d 00 96 14 f2 42 4c  |C1%=224:......BL|
00000160  41 43 4b 3a 2a 46 58 32  30 30 2c 33 20 0d 00 a0  |ACK:*FX200,3 ...|
00000170  4c e4 28 3f 53 54 41 47  45 25 2b 34 29 2a 31 30  |L.(?STAGE%+4)*10|
00000180  30 30 3a f2 4f 4c 3a f2  53 54 41 54 3a f1 8a 37  |00:.OL:.STAT:..7|
00000190  2c 32 35 29 3b 22 85 93  97 98 99 22 3b 3a ef 3f  |,25);".....";:.?|
000001a0  53 54 41 47 45 25 2b 32  32 34 3a ef 32 33 2c 31  |STAGE%+224:.23,1|
000001b0  2c 30 3b 30 3b 30 3b 30  3b 0d 00 aa 3b 20 e3 49  |,0;0;0;0;...; .I|
000001c0  25 3d 30 b8 32 30 30 88  31 36 3a d4 31 2c 2d 31  |%=0.200.16:.1,-1|
000001d0  35 2c 49 25 2c 31 3a d4  31 2c 2d 31 35 2c 49 25  |5,I%,1:.1,-15,I%|
000001e0  2b 34 38 2c 31 3a ed 3a  f1 8a 37 2c 32 35 29 3b  |+48,1:.:..7,25);|
000001f0  89 28 36 29 0d 00 b4 0c  2a 46 58 32 30 30 2c 32  |.(6)....*FX200,2|
00000200  0d 00 c8 2d d6 43 4f 44  45 25 3a e7 3f 42 4f 4e  |...-.CODE%:.?BON|
00000210  55 53 25 3e 34 33 3f 53  54 41 47 45 25 3d 3f 53  |US%>43?STAGE%=?S|
00000220  54 41 47 45 25 2b 31 3a  e5 8d 74 56 40 0d 00 f0  |TAGE%+1:..tV@...|
00000230  9a 53 43 4f 52 45 25 3d  30 3a e3 49 25 3d 30 b8  |.SCORE%=0:.I%=0.|
00000240  33 3a 53 43 4f 52 45 25  3d 53 43 4f 52 45 25 2b  |3:SCORE%=SCORE%+|
00000250  28 49 25 3f 53 43 31 25  2d 32 32 34 29 2a 31 30  |(I%?SC1%-224)*10|
00000260  5e 49 25 3a ed 3a 53 43  4f 52 45 25 3d 53 43 4f  |^I%:.:SCORE%=SCO|
00000270  52 45 25 2a 31 30 3a e3  49 25 3d 31 b8 35 3a e7  |RE%*10:.I%=1.5:.|
00000280  20 53 43 4f 52 45 25 3e  48 49 25 28 49 25 29 20  | SCORE%>HI%(I%) |
00000290  e3 4a 25 3d 34 b8 49 25  88 2d 31 3a 48 49 25 28  |.J%=4.I%.-1:HI%(|
000002a0  4a 25 2b 31 29 3d 48 49  25 28 4a 25 29 3a ed 3a  |J%+1)=HI%(J%):.:|
000002b0  48 49 25 28 49 25 29 3d  53 43 4f 52 45 25 3a 49  |HI%(I%)=SCORE%:I|
000002c0  25 3d 36 3a ed 8b ed 0d  01 22 0b 2a 46 58 31 35  |%=6:.....".*FX15|
000002d0  2c 31 0d 01 2c 91 e3 49  25 3d 31 b8 35 3a fb 37  |,1..,..I%=1.5:.7|
000002e0  3a f1 8a 37 2c 32 30 2b  49 25 29 3b 49 25 3b 3a  |:..7,20+I%);I%;:|
000002f0  fb 28 49 25 2b 31 29 83  36 2b 31 3a f1 3b 48 49  |.(I%+1).6+1:.;HI|
00000300  25 28 49 25 29 3a ed 3a  fb 31 33 32 3a fb 37 3a  |%(I%):.:.132:.7:|
00000310  f1 8a 34 2c 32 39 29 3b  22 50 52 45 53 53 20 53  |..4,29);"PRESS S|
00000320  50 41 43 45 21 22 3a fb  31 32 38 3a f5 20 fd 20  |PACE!":.128:. . |
00000330  be 3d 22 20 22 3a e3 49  25 3d 31 b8 35 3a f1 8a  |.=" ":.I%=1.5:..|
00000340  37 2c 32 30 2b 49 25 29  3b 89 28 36 29 3a ed 3a  |7,20+I%);.(6):.:|
00000350  f1 8a 34 2c 32 39 29 3b  89 28 31 32 29 3a e5 8d  |..4,29);.(12):..|
00000360  44 64 40 0d 03 e8 61 20  fb 31 33 30 3a db 3a fb  |Dd@...a .130:.:.|
00000370  31 32 38 3a e3 49 25 3d  30 b8 32 35 3a e6 30 2c  |128:.I%=0.25:.0,|
00000380  39 2b 28 49 25 83 33 29  3a ec 30 2c 35 38 30 2d  |9+(I%.3):.0,580-|
00000390  49 25 5e 32 3a df 31 32  38 30 2c 35 38 30 2d 49  |I%^2:.1280,580-I|
000003a0  25 5e 32 3a ed 3a e6 30  2c 30 3a ec 35 30 2c 30  |%^2:.:.0,0:.50,0|
000003b0  3a ec 36 34 30 2c 35 39  34 3a f0 38 35 2c 31 32  |:.640,594:.85,12|
000003c0  33 30 2c 30 0d 03 f2 c2  20 ec 36 33 36 2c 35 39  |30,0.... .636,59|
000003d0  30 3a ec 36 33 36 2c 35  39 30 3a e3 49 25 3d 30  |0:.636,590:.I%=0|
000003e0  b8 32 35 3a e6 30 2c 31  32 2b 28 49 25 83 33 29  |.25:.0,12+(I%.3)|
000003f0  3a f0 38 35 2c 36 34 30  2d 28 49 25 5e 32 29 2c  |:.85,640-(I%^2),|
00000400  35 39 30 2d 49 25 5e 32  3a f0 38 35 2c 36 33 32  |590-I%^2:.85,632|
00000410  2d 28 49 25 5e 32 29 2b  49 25 2a 32 2c 35 39 30  |-(I%^2)+I%*2,590|
00000420  2d 49 25 5e 32 3a ed 3a  ec 36 34 34 2c 35 39 30  |-I%^2:.:.644,590|
00000430  3a ec 36 34 34 2c 35 39  30 3a e3 49 25 3d 30 b8  |:.644,590:.I%=0.|
00000440  32 35 3a e6 30 2c 31 32  2b 28 49 25 83 33 29 3a  |25:.0,12+(I%.3):|
00000450  f0 38 35 2c 36 34 30 2b  28 49 25 5e 32 29 2c 35  |.85,640+(I%^2),5|
00000460  39 30 2d 49 25 5e 32 3a  f0 38 35 2c 36 34 38 2b  |90-I%^2:.85,648+|
00000470  28 49 25 5e 32 29 2d 49  25 2a 32 2c 35 39 30 2d  |(I%^2)-I%*2,590-|
00000480  49 25 5e 32 3a ed 0d 03  f3 06 20 f8 0d 13 88 46  |I%^2:..... ....F|
00000490  3f 43 4f 4c 31 25 3d 32  3a 3f 43 4f 4c 32 25 3d  |?COL1%=2:?COL2%=|
000004a0  33 3a e6 30 2c 36 3a f2  53 4b 59 3a e6 30 2c 33  |3:.0,6:.SKY:.0,3|
000004b0  3a f2 43 49 52 43 4c 45  28 37 30 29 3a f2 43 4c  |:.CIRCLE(70):.CL|
000004c0  4f 55 44 53 3a f2 4d 4f  55 4e 54 28 31 2c 35 29  |OUDS:.MOUNT(1,5)|
000004d0  3a f8 0d 17 70 21 3f 43  4f 4c 31 25 3d 30 3a 3f  |:...p!?COL1%=0:?|
000004e0  43 4f 4c 32 25 3d 30 3a  e6 30 2c 30 3a f2 53 4b  |COL2%=0:.0,0:.SK|
000004f0  59 3a f8 0d 1b 58 46 3f  43 4f 4c 31 25 3d 37 3a  |Y:...XF?COL1%=7:|
00000500  3f 43 4f 4c 32 25 3d 37  3a e6 30 2c 36 3a f2 53  |?COL2%=7:.0,6:.S|
00000510  4b 59 3a e6 30 2c 33 3a  f2 43 49 52 43 4c 45 28  |KY:.0,3:.CIRCLE(|
00000520  37 30 29 3a f2 43 4c 4f  55 44 53 3a f2 4d 4f 55  |70):.CLOUDS:.MOU|
00000530  4e 54 28 30 2c 37 29 3a  f8 0d 1f 40 54 3f 43 4f  |NT(0,7):...@T?CO|
00000540  4c 31 25 3d 33 3a 3f 43  4f 4c 32 25 3d 33 3a e6  |L1%=3:?COL2%=3:.|
00000550  30 2c 36 3a f2 53 4b 59  3a e6 30 2c 33 3a f2 43  |0,6:.SKY:.0,3:.C|
00000560  49 52 43 4c 45 28 31 30  30 29 3a e3 49 25 3d 30  |IRCLE(100):.I%=0|
00000570  b8 33 3a f2 50 59 52 28  b3 28 31 31 30 30 29 2c  |.3:.PYR(.(1100),|
00000580  33 30 2b b3 28 35 30 29  29 3a ed 3a f8 0d 23 28  |30+.(50)):.:..#(|
00000590  3a 3f 43 4f 4c 31 25 3d  34 3a 3f 43 4f 4c 32 25  |:?COL1%=4:?COL2%|
000005a0  3d 37 3a e6 30 2c 36 3a  f2 53 4b 59 3a e6 30 2c  |=7:.0,6:.SKY:.0,|
000005b0  33 3a f2 43 49 52 43 4c  45 28 37 30 29 3a f2 43  |3:.CIRCLE(70):.C|
000005c0  4c 4f 55 44 53 3a f8 0d  27 10 1e 20 3f 47 53 45  |LOUDS:..'.. ?GSE|
000005d0  54 25 3d 34 30 3a 3f 53  54 41 47 45 25 3d 31 3a  |T%=40:?STAGE%=1:|
000005e0  e5 8d 74 48 53 0d 27 74  7c dd f2 4d 4f 55 4e 54  |..tHS.'t|..MOUNT|
000005f0  28 43 31 2c 43 32 29 3a  e3 49 25 3d 2d 34 30 b8  |(C1,C2):.I%=-40.|
00000600  31 33 30 30 88 35 30 3a  e6 30 2c 43 32 3a ec 49  |1300.50:.0,C2:.I|
00000610  25 2c 36 30 30 3a 52 25  3d 32 30 2b b3 28 36 30  |%,600:R%=20+.(60|
00000620  29 2b 49 25 3a ec 49 25  2b b3 28 32 30 29 2c 36  |)+I%:.I%+.(20),6|
00000630  30 30 3a f0 38 35 2c 52  25 2c 36 30 30 2b b3 28  |00:.85,R%,600+.(|
00000640  35 30 29 3a e6 30 2c 43  31 3a f0 38 35 2c 52 25  |50):.0,C1:.85,R%|
00000650  2b b3 28 36 30 29 2b 32  30 2c 36 30 30 3a ed 3a  |+.(60)+20,600:.:|
00000660  e1 0d 2a f8 4c dd f2 43  49 52 43 4c 45 28 52 25  |..*.L..CIRCLE(R%|
00000670  29 3a e3 49 25 3d 31 32  b8 33 36 30 88 31 32 3a  |):.I%=12.360.12:|
00000680  ec 31 30 38 2c 39 30 30  3a df 31 30 38 2b 52 25  |.108,900:.108+R%|
00000690  2a 9b 28 b2 28 49 25 29  29 2c 39 30 30 2b 52 25  |*.(.(I%)),900+R%|
000006a0  2a b5 28 b2 28 49 25 29  29 3a ed 3a e1 0d 2e e0  |*.(.(I%)):.:....|
000006b0  84 dd f2 43 4c 4f 55 44  28 58 25 2c 59 25 2c 53  |...CLOUD(X%,Y%,S|
000006c0  25 29 3a e3 49 25 3d 30  b8 53 25 88 34 3a ec 58  |%):.I%=0.S%.4:.X|
000006d0  25 2d 49 25 2d b3 28 49  25 2a 32 29 2c 59 25 2b  |%-I%-.(I%*2),Y%+|
000006e0  53 25 2d 49 25 3a df 58  25 2b 49 25 2b b3 28 49  |S%-I%:.X%+I%+.(I|
000006f0  25 2b 32 29 2c 59 25 2b  53 25 2d 49 25 3a ec 58  |%+2),Y%+S%-I%:.X|
00000700  25 2d 49 25 2d b3 28 49  25 2a 32 29 2c 59 25 2d  |%-I%-.(I%*2),Y%-|
00000710  53 25 2b 49 25 3a df 58  25 2b 49 25 2b b3 28 49  |S%+I%:.X%+I%+.(I|
00000720  25 2a 32 29 2c 59 25 2d  53 25 2b 49 25 3a ed 3a  |%*2),Y%-S%+I%:.:|
00000730  e1 0d 32 c8 58 dd f2 53  54 52 49 50 3a ec 30 2c  |..2.X..STRIP:.0,|
00000740  35 39 36 3a ec 30 2c 35  38 38 3a f0 38 35 2c 31  |596:.0,588:.85,1|
00000750  32 38 30 2c 35 39 36 3a  f0 38 35 2c 31 32 38 30  |280,596:.85,1280|
00000760  2c 35 38 38 3a e6 30 2c  30 3a ec 36 34 30 2c 35  |,588:.0,0:.640,5|
00000770  39 32 3a ec 36 33 32 2c  35 38 34 3a f0 38 35 2c  |92:.632,584:.85,|
00000780  36 34 38 2c 35 38 34 3a  e1 0d 32 c9 37 20 dd f2  |648,584:..2.7 ..|
00000790  53 4b 59 3a ec 31 32 38  30 2c 36 30 30 3a ec 31  |SKY:.1280,600:.1|
000007a0  32 38 30 2c 31 30 32 34  3a f0 38 35 2c 30 2c 36  |280,1024:.85,0,6|
000007b0  30 30 3a f0 38 35 2c 30  2c 31 30 32 34 3a e1 20  |00:.85,0,1024:. |
000007c0  0d 36 b0 b8 20 dd f2 53  54 41 54 3a ef 31 39 2c  |.6.. ..STAT:.19,|
000007d0  31 32 2c 37 3b 30 3b 31  39 2c 31 33 2c 30 3b 30  |12,7;0;19,13,0;0|
000007e0  3b 31 39 2c 31 34 2c 30  3b 30 3b 3a e6 30 2c 30  |;19,14,0;0;:.0,0|
000007f0  3a ec 31 39 30 2c 39 36  34 3a ec 35 31 38 2c 39  |:.190,964:.518,9|
00000800  36 34 3a f0 38 35 2c 31  39 30 2c 39 31 34 3a f0  |64:.85,190,914:.|
00000810  38 35 2c 35 31 38 2c 39  31 34 3a ec 36 31 34 2c  |85,518,914:.614,|
00000820  39 36 34 3a ec 37 38 34  2c 39 36 34 3a f0 38 35  |964:.784,964:.85|
00000830  2c 36 31 34 2c 39 31 34  3a f0 38 35 2c 37 38 34  |,614,914:.85,784|
00000840  2c 39 31 34 3a ec 38 39  34 2c 39 36 34 3a ec 31  |,914:.894,964:.1|
00000850  30 39 34 2c 39 36 34 3a  f0 38 35 2c 38 39 34 2c  |094,964:.85,894,|
00000860  39 31 34 3a f0 38 35 2c  31 30 39 34 2c 39 31 34  |914:.85,1094,914|
00000870  3a e6 30 2c 34 3a ef 35  0d 36 b1 6b 20 ec 32 35  |:.0,4:.5.6.k .25|
00000880  36 2c 31 30 30 30 3a f1  22 8a 8b 8c 22 3a ec 36  |6,1000:."...":.6|
00000890  31 36 2c 31 30 30 30 3a  f1 22 90 91 92 22 3a ec  |16,1000:."...":.|
000008a0  38 39 36 2c 31 30 30 30  3a f1 22 8d 8e 8f 22 3a  |896,1000:."...":|
000008b0  ec 35 34 38 2c 38 39 36  3a f1 22 94 95 96 22 3a  |.548,896:."...":|
000008c0  ef 34 3a f1 8a 33 2c 35  29 3b 89 28 31 31 29 3b  |.4:..3,5);.(11);|
000008d0  3a fb 31 33 32 3a f1 89  28 33 29 3a fb 31 32 38  |:.132:..(3):.128|
000008e0  3a fb 31 0d 36 b2 44 20  f1 8a 33 2c 32 29 3b 3a  |:.1.6.D ..3,2);:|
000008f0  e3 49 25 3d 33 b8 30 88  2d 31 3a ef 49 25 3f 53  |.I%=3.0.-1:.I%?S|
00000900  43 31 25 3a ed 3a ef 32  32 34 3a f1 8a 31 30 2c  |C1%:.:.224:..10,|
00000910  32 29 3b 22 89 89 22 3b  8a 31 34 2c 32 29 3b 22  |2);"..";.14,2);"|
00000920  80 80 80 22 3a e1 20 0d  3a 98 4a dd f2 43 4c 4f  |...":. .:.J..CLO|
00000930  55 44 53 3a e6 30 2c 37  3a e3 4a 25 3d 30 b8 33  |UDS:.0,7:.J%=0.3|
00000940  3a f2 43 4c 4f 55 44 28  4a 25 2a 33 30 30 2b b3  |:.CLOUD(J%*300+.|
00000950  28 33 30 30 29 2c b3 28  33 30 30 29 2b 37 30 30  |(300),.(300)+700|
00000960  2c 34 30 2b b3 28 31 30  29 2a 33 29 3a ed 3a e1  |,40+.(10)*3):.:.|
00000970  20 0d 3e 80 68 dd f2 4f  4c 3a 3f 26 46 45 30 37  | .>.h..OL:?&FE07|
00000980  3d 3f 26 32 38 32 3a ef  32 30 2c 31 39 2c 39 2c  |=?&282:.20,19,9,|
00000990  3f 43 4f 4c 32 25 3b 30  3b 31 39 2c 31 30 2c 3f  |?COL2%;0;19,10,?|
000009a0  43 4f 4c 31 25 3b 30 3b  31 39 2c 31 31 2c 3f 43  |COL1%;0;19,11,?C|
000009b0  4f 4c 31 25 3b 30 3b 31  39 2c 32 2c 3f 43 4f 4c  |OL1%;0;19,2,?COL|
000009c0  31 25 3b 30 3b 3a e6 30  2c 3f 43 4f 4c 32 25 3a  |1%;0;:.0,?COL2%:|
000009d0  f2 53 54 52 49 50 3a e1  20 0d 42 68 54 dd f2 50  |.STRIP:. .BhT..P|
000009e0  59 52 28 49 25 2c 48 25  29 3a e6 30 2c 33 3a ec  |YR(I%,H%):.0,3:.|
000009f0  49 25 2c 36 30 30 3a ec  49 25 2b 48 25 2c 36 30  |I%,600:.I%+H%,60|
00000a00  30 2b 48 25 3a f0 38 35  2c 49 25 2b 48 25 2a 31  |0+H%:.85,I%+H%*1|
00000a10  2e 33 2c 36 30 30 3a e6  30 2c 30 3a f0 38 35 2c  |.3,600:.0,0:.85,|
00000a20  49 25 2b 48 25 2a 32 2c  36 30 30 3a e1 0d 4e 20  |I%+H%*2,600:..N |
00000a30  31 dd f2 42 4c 41 43 4b  3a e3 49 25 3d 30 b8 31  |1..BLACK:.I%=0.1|
00000a40  35 3a ef 31 39 2c 49 25  2c 30 3b 30 3b 30 3b 3a  |5:.19,I%,0;0;0;:|
00000a50  ed 3a 3f 26 46 45 30 37  3d 26 42 30 3a e1 0d 8d  |.:?&FE07=&B0:...|
00000a60