BL-SPTGEN/T
FILE INFORMATION
FILENAME(S): BL-SPTGEN/T
FILE TYPE(S): PRG
FILE SIZE: 13.6K
FIRST SEEN: 2025-11-30 21:11:26
APPEARS ON: 2 disk(s)
FILE HASH
f45aa48dac964d2e84767f952efd7a98e7b338218b27815e63720bdd315dad46
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BASIC LIGHTNING | BL-SPTGEN/T | PRG | DuncanTwain | 12 | 2 | DOWNLOAD FILE |
| BASIC LIGHTNING | BL-SPTGEN/T | PRG | hedning, shine | 12 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 58 27 58 01 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |.X'X...*********|
00000010: 2A 20 54 41 50 45 20 56 45 52 53 49 4F 4E 20 2A |* TAPE VERSION *|
00000020: 2A 2A 2A 2A 2A 2A 2A 00 31 58 02 00 F2 3A 8A 31 |*******.1X...:.1|
00000030: 30 00 4F 58 03 00 EE 48 49 42 45 45 50 3A 02 13 |0.OX...HIBEEP:..|
00000040: 31 2C 32 30 31 35 38 3A 02 1A 31 2C 33 3A F8 00 |1,20158:..1,3:..|
00000050: 6D 58 04 00 EE 4C 4F 42 45 45 50 3A 02 13 31 2C |mX...LOBEEP:..1,|
00000060: 31 36 30 30 30 3A 02 1A 31 2C 33 3A F8 00 95 58 |16000:..1,3:...X|
00000070: 05 00 EE 53 53 45 54 3A 02 25 3A 02 1E 31 35 3A |...SSET:.%:..15:|
00000080: 02 17 31 3A 02 1B 31 2C 31 2C 34 2C 35 2C 30 3A |..1:..1,1,4,5,0:|
00000090: 02 1C 31 2C CF 00 A9 58 06 00 02 1F 32 35 30 3A |..1,...X....250:|
000000A0: 02 21 32 3A 02 20 37 3A F8 00 E2 58 0A 00 20 EE |.!2:. 7:...X.. .|
000000B0: 54 45 53 54 3A 01 4D 3A 86 53 31 25 28 35 29 2C |TEST:.M:.S1%(5),|
000000C0: 53 32 25 28 32 29 2C 49 4E 25 28 35 29 2C 4D 28 |S2%(2),IN%(5),M(|
000000D0: 33 29 2C 4D 25 28 33 29 2C 54 49 25 28 34 29 3A |3),M%(3),TI%(4):|
000000E0: 01 2F 00 0E 59 0B 00 01 2B 02 02 3A 01 27 02 01 |./..Y...+..:.'..|
000000F0: 3A 01 26 02 01 3A 01 25 02 01 3A F9 53 53 45 54 |:.&..:.%..:.SSET|
00000100: 3A 54 53 42 50 B2 35 3A F9 53 54 41 52 54 00 31 |:TSBP.5:.START.1|
00000110: 59 0C 00 01 28 31 35 3A F9 50 4F 4B 45 3A 57 58 |Y...(15:.POKE:WX|
00000120: 25 B2 31 30 3A 57 59 25 B2 30 3A 01 30 3A 89 43 |%.10:WY%.0:.0:.C|
00000130: 57 00 4F 59 64 00 83 20 36 2C 31 35 2C 31 38 2C |W.OYd.. 6,15,18,|
00000140: 32 2C 36 2C 31 37 2C 35 2C 36 2C 31 38 2C 32 00 |2,6,17,5,6,18,2.|
00000150: 6C 59 65 00 83 20 36 2C 31 39 2C 30 2C 36 2C 32 |lYe.. 6,19,0,6,2|
00000160: 30 2C 31 35 2C 31 35 2C 32 30 2C 30 00 8B 59 6E |0,15,15,20,0..Yn|
00000170: 00 83 20 33 2C 31 35 2C 32 34 2C 31 2C 36 2C 32 |.. 3,15,24,1,6,2|
00000180: 32 2C 30 2C 31 35 2C 32 32 2C 30 00 B4 59 78 00 |2,0,15,22,0..Yx.|
00000190: 83 20 36 2C 33 35 2C 31 37 2C 30 2C 32 35 2C 31 |. 6,35,17,0,25,1|
000001A0: 39 2C 31 30 2C 33 35 2C 31 39 2C 30 2C 32 35 2C |9,10,35,19,0,25,|
000001B0: 32 30 2C 31 00 CA 59 79 00 83 20 33 35 2C 32 30 |20,1..Yy.. 35,20|
000001C0: 2C 31 2C 32 35 2C 31 37 2C 30 00 F6 59 82 00 83 |,1,25,17,0..Y...|
000001D0: 20 34 2C 32 35 2C 32 32 2C 34 30 39 36 30 2C 33 | 4,25,22,40960,3|
000001E0: 35 2C 32 32 2C 34 30 39 36 30 2C 33 35 2C 32 33 |5,22,40960,35,23|
000001F0: 2C 34 30 39 36 30 00 07 5A 83 00 83 20 33 35 2C |,40960..Z... 35,|
00000200: 32 34 2C 38 31 39 32 00 0D 5A 84 00 27 00 24 5A |24,8192..Z..'.$Z|
00000210: E8 03 EE 50 52 4E 54 28 58 25 2C 59 25 2C 41 24 |...PRNT(X%,Y%,A$|
00000220: 2C 5A 25 29 00 51 5A F2 03 99 40 58 25 2C 59 25 |,Z%).QZ...@X%,Y%|
00000230: 3B C8 28 C9 28 C4 28 5A 25 29 2C C3 28 C4 28 5A |;.(.(.(Z%),.(.(Z|
00000240: 25 29 29 AB 31 29 AA 22 20 20 22 2C 35 29 3B 3A |%)).1)." ",5);:|
00000250: F8 00 57 5A F7 03 27 00 68 5A 1A 04 EE 49 4E 46 |..WZ..'.hZ...INF|
00000260: 41 28 F6 41 25 28 29 29 00 99 5A 24 04 41 25 28 |A(.A%())..Z$.A%(|
00000270: 30 29 B2 28 C2 28 24 44 30 31 36 29 AF 24 31 30 |0).(.($D016).$10|
00000280: 29 AD 38 AA 32 3A EB 41 25 28 30 29 B2 32 3A 41 |).8.2:.A%(0).2:A|
00000290: 25 28 34 29 B2 DA AF 31 35 00 BF 5A 2E 04 41 25 |%(4)...15..Z..A%|
000002A0: 28 33 29 B2 28 DA AD 31 36 29 AF 31 35 3A EC 3A |(3).(..16).15:.:|
000002B0: 41 25 28 31 29 B2 28 DA AD 31 36 29 AF 31 35 00 |A%(1).(..16).15.|
000002C0: FB 5A 38 04 41 25 28 32 29 B2 DA AF 31 35 3A 41 |.Z8.A%(2)...15:A|
000002D0: 25 28 33 29 B2 28 DA AD 32 35 36 29 AF 31 35 3A |%(3).(..256).15:|
000002E0: ED 3A 41 25 28 35 29 B2 41 46 4C 41 47 25 3A F9 |.:A%(5).AFLAG%:.|
000002F0: 44 49 53 28 31 2C 41 25 28 29 29 00 01 5B 42 04 |DIS(1,A%())..[B.|
00000300: F8 00 07 5B 47 04 27 00 18 5B 4C 04 EE 41 46 49 |...[G.'..[L..AFI|
00000310: 4E 28 F6 41 25 28 29 29 00 56 5B 56 04 97 24 44 |N(.A%()).V[V..$D|
00000320: 30 31 36 2C 28 C2 28 24 44 30 31 36 29 AF 32 33 |016,(.($D016).23|
00000330: 39 29 B0 28 28 41 25 28 30 29 AB 32 29 AC 38 29 |9).((A%(0).2).8)|
00000340: 3A 41 46 4C 41 47 25 B2 41 25 28 35 29 3A EB 41 |:AFLAG%.A%(5):.A|
00000350: 25 28 30 29 B2 32 00 88 5B 60 04 DA B2 41 25 28 |%(0).2..[`...A%(|
00000360: 34 29 AA 31 36 AC 41 25 28 33 29 3A EC 3A DA B2 |4).16.A%(3):.:..|
00000370: 41 25 28 32 29 AA 31 36 AC 41 25 28 31 29 AA 32 |A%(2).16.A%(1).2|
00000380: 35 36 AC 41 25 28 33 29 00 9A 5B 6A 04 ED 3A 4D |56.A%(3)..[j..:M|
00000390: 44 25 B2 41 25 28 30 29 3A F8 00 A0 5B 6F 04 27 |D%.A%(0):...[o.'|
000003A0: 00 B1 5B 7E 04 EE 53 45 54 32 28 F6 41 25 28 29 |..[~..SET2(.A%()|
000003B0: 29 00 CF 5B 88 04 DF B2 41 25 28 30 29 3A DE B2 |)..[....A%(0):..|
000003C0: 41 25 28 31 29 3A DD B2 41 25 28 32 29 3A F8 00 |A%(1):..A%(2):..|
000003D0: D5 5B 8D 04 27 00 E6 5B B0 04 EE 52 45 54 32 28 |.[..'..[...RET2(|
000003E0: F6 41 25 28 29 29 00 11 5C BA 04 41 25 28 30 29 |.A%())..\..A%(0)|
000003F0: B2 DF 3A 41 25 28 31 29 B2 DE 3A 41 25 28 32 29 |..:A%(1)..:A%(2)|
00000400: B2 DD 3A F9 44 49 53 28 32 2C 41 25 28 29 29 3A |..:.DIS(2,A%()):|
00000410: F8 00 17 5C BF 04 27 00 28 5C E2 04 EE 53 45 54 |...\..'.(\...SET|
00000420: 31 28 F6 41 25 28 29 29 00 60 5C EC 04 E4 B2 41 |1(.A%()).`\....A|
00000430: 25 28 30 29 3A E3 B2 41 25 28 31 29 3A E2 B2 41 |%(0):..A%(1):..A|
00000440: 25 28 32 29 3A E0 B2 41 25 28 33 29 3A E1 B2 41 |%(2):..A%(3):..A|
00000450: 25 28 34 29 3A 4D 4F 25 B2 41 25 28 35 29 3A F8 |%(4):MO%.A%(5):.|
00000460: 00 66 5C F1 04 27 00 77 5C 14 05 EE 52 45 54 31 |.f\..'.w\...RET1|
00000470: 28 F6 41 25 28 29 29 00 AD 5C 1E 05 41 25 28 30 |(.A%())..\..A%(0|
00000480: 29 B2 E4 3A 41 25 28 31 29 B2 E3 3A 41 25 28 32 |)..:A%(1)..:A%(2|
00000490: 29 B2 E2 3A 41 25 28 33 29 B2 E0 3A 41 25 28 34 |)..:A%(3)..:A%(4|
000004A0: 29 B2 E1 3A 41 25 28 35 29 B2 4D 4F 25 00 C0 5C |)..:A%(5).MO%..\|
000004B0: 28 05 F9 44 49 53 28 33 2C 41 25 28 29 29 3A F8 |(..DIS(3,A%()):.|
000004C0: 00 C6 5C 2D 05 27 00 D5 5C 46 05 EE 53 4D 50 28 |..\-.'..\F..SMP(|
000004D0: F6 41 28 29 29 00 17 5D 50 05 4D 28 30 29 B2 CE |.A())..]P.M(0)..|
000004E0: 28 24 32 46 46 43 29 3A 4D 28 31 29 B2 CE 28 24 |($2FFC):M(1)..($|
000004F0: 32 46 46 45 29 3A 4D 28 32 29 B2 01 78 28 E4 29 |2FFE):M(2)..x(.)|
00000500: AB 37 3A 4D 28 33 29 B2 24 32 30 30 30 AB 4D 28 |.7:M(3).$2000.M(|
00000510: 31 29 AA 4D 28 30 29 00 2B 5D 55 05 8B 4D 28 32 |1).M(0).+]U..M(2|
00000520: 29 B2 AB 38 A7 4D 28 32 29 B2 30 00 3E 5D 5A 05 |)..8.M(2).0.>]Z.|
00000530: F9 44 49 53 28 34 2C 4D 25 28 29 29 3A F8 00 44 |.DIS(4,M%()):..D|
00000540: 5D 5F 05 27 00 6B 5D 78 05 EE 44 49 53 28 49 25 |]_.'.k]x..DIS(I%|
00000550: 2C F6 41 25 28 29 29 3A F7 4E 25 2C 4A 2C 58 25 |,.A%()):.N%,J,X%|
00000560: 2C 59 25 2C 41 24 2C 5A 25 2C 5A 00 87 5D 82 05 |,Y%,A$,Z%,Z..]..|
00000570: 91 49 25 8C 31 30 30 2C 31 31 30 2C 31 32 30 2C |.I%.100,110,120,|
00000580: 31 33 30 3A 87 4E 25 00 C3 5D 8C 05 EB 49 25 B3 |130:.N%..]...I%.|
00000590: B1 34 3A 81 4A B2 31 A4 4E 25 3A 87 58 25 2C 59 |.4:.J.1.N%:.X%,Y|
000005A0: 25 2C 5A 25 3A 8B 42 4F 4F 54 25 B2 31 A7 5A 25 |%,Z%:.BOOT%.1.Z%|
000005B0: B2 41 25 28 4A AB 31 29 CC 41 25 28 4A AB 31 29 |.A%(J.1).A%(J.1)|
000005C0: B2 5A 25 00 EF 5D 96 05 F9 50 52 4E 54 28 58 25 |.Z%..]...PRNT(X%|
000005D0: 2C 59 25 2C 41 24 2C 5A 25 29 3A 82 4A 3A EC 3A |,Y%,A$,Z%):.J:.:|
000005E0: 81 4A B2 31 A4 34 3A 87 58 25 2C 59 25 2C 5A 00 |.J.1.4:.X%,Y%,Z.|
000005F0: 0E 5E 97 05 8B 42 4F 4F 54 25 B2 31 A7 5A B2 4D |.^...BOOT%.1.Z.M|
00000600: 28 4A AB 31 29 CC 4D 28 4A AB 31 29 B2 5A 00 3D |(J.1).M(J.1).Z.=|
00000610: 5E 98 05 8B 4A B3 34 99 40 58 25 2C 59 25 3B C8 |^...J.4.@X%,Y%;.|
00000620: 28 C9 28 C4 28 5A 29 2C C3 28 C4 28 5A 29 29 AB |(.(.(Z),.(.(Z)).|
00000630: 31 29 AA 22 20 20 20 20 22 2C 35 29 3B 00 6B 5E |1)." ",5);.k^|
00000640: 99 05 8B 4A B2 34 99 40 58 25 2C 59 25 3B C8 28 |...J.4.@X%,Y%;.(|
00000650: C9 28 C4 28 5A 29 2C C3 28 C4 28 5A 29 29 AB 31 |.(.(Z),.(.(Z)).1|
00000660: 29 AA 22 20 20 20 22 2C 34 29 3B 00 76 5E 9A 05 |)." ",4);.v^..|
00000670: 82 4A 3A ED 3A F8 00 7C 5E 9B 05 27 00 8E 5E AA |.J:.:..|^..'..^.|
00000680: 05 EE 49 4E 50 24 28 F6 42 24 2C 41 24 29 00 A5 |..INP$(.B$,A$)..|
00000690: 5E B4 05 99 40 30 2C 31 35 3B 41 24 3B 3A 85 22 |^...@0,15;A$;:."|
000006A0: 20 22 3B 42 24 00 DE 5E BE 05 99 40 30 2C 31 35 | ";B$..^...@0,15|
000006B0: 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |;" |
000006C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006D0: 20 20 20 20 20 20 20 20 20 20 22 3B 3A F8 00 E4 | ";:...|
000006E0: 5E C3 05 27 00 FA 5E DC 05 EE 49 4E 50 25 28 41 |^..'..^...INP%(A|
000006F0: 24 2C F6 58 25 29 3A F7 42 24 00 25 5F E6 05 F9 |$,.X%):.B$.%_...|
00000700: 49 4E 50 24 28 42 24 2C 41 24 29 3A 58 25 B2 D1 |INP$(B$,A$):X%..|
00000710: 47 56 4C 28 42 24 29 3A 8B 45 52 25 B3 B1 30 A7 |GVL(B$):.ER%..0.|
00000720: 89 31 35 31 30 00 2B 5F E7 05 F8 00 31 5F EB 05 |.1510.+_....1_..|
00000730: 27 00 43 5F 0E 06 EE 45 52 28 58 25 2C 59 25 2C |'.C_...ER(X%,Y%,|
00000740: 5A 25 29 00 56 5F 18 06 B2 59 25 B1 B2 58 25 AF |Z%).V_...Y%..X%.|
00000750: 59 25 B3 B2 5A 25 00 5C 5F 1D 06 27 00 95 5F 40 |Y%..Z%.\_..'.._@|
00000760: 06 EE 47 56 4C 28 41 24 29 3A F7 58 25 2C 49 2C |..GVL(A$):.X%,I,|
00000770: 59 25 2C 45 31 25 2C 45 32 25 3A 45 52 25 B2 30 |Y%,E1%,E2%:ER%.0|
00000780: 3A 8B C3 28 41 24 29 B2 30 A7 58 25 B2 AB 31 3A |:..(A$).0.X%..1:|
00000790: 89 31 36 36 30 00 D0 5F 4A 06 EB C6 28 41 24 29 |.1660.._J...(A$)|
000007A0: B2 33 36 3A 81 49 B2 32 A4 C3 28 41 24 29 3A 59 |.36:.I.2..(A$):Y|
000007B0: 25 B2 C6 28 CA 28 41 24 2C 49 2C 31 29 29 3A 45 |%..(.(A$,I,1)):E|
000007C0: 31 25 B2 D1 45 52 28 34 38 2C 59 25 2C 35 37 29 |1%..ER(48,Y%,57)|
000007D0: 00 FE 5F 54 06 45 32 25 B2 D1 45 52 28 36 35 2C |.._T.E2%..ER(65,|
000007E0: 59 25 2C 37 30 29 3A 45 52 25 B2 45 52 25 AA 28 |Y%,70):ER%.ER%.(|
000007F0: 31 AA 45 31 25 29 AF 28 31 AA 45 32 25 29 00 33 |1.E1%).(1.E2%).3|
00000800: 60 5E 06 58 25 B2 31 36 AC 58 25 AB 45 31 25 AC |`^.X%.16.X%.E1%.|
00000810: 28 59 25 AB 34 38 29 AB 45 32 25 AC 28 59 25 AB |(Y%.48).E2%.(Y%.|
00000820: 35 35 29 3A 82 49 3A EC 3A 81 49 B2 31 A4 C3 28 |55):.I:.:.I.1..(|
00000830: 41 24 29 00 67 60 68 06 59 25 B2 C6 28 CA 28 41 |A$).g`h.Y%..(.(A|
00000840: 24 2C 49 2C 31 29 29 3A 45 31 25 B2 D1 45 52 28 |$,I,1)):E1%..ER(|
00000850: 34 38 2C 59 25 2C 35 37 29 3A 45 52 25 B2 45 52 |48,Y%,57):ER%.ER|
00000860: 25 AA 31 AA 45 31 25 00 93 60 72 06 58 B2 58 25 |%.1.E1%..`r.X.X%|
00000870: AC 31 30 AB 45 31 25 AC 28 59 25 AB 34 38 29 3A |.10.E1%.(Y%.48):|
00000880: 8B 58 B3 33 32 37 36 38 58 25 B2 58 3A CC 45 52 |.X.32768X%.X:.ER|
00000890: 25 B2 31 00 9C 60 77 06 82 49 3A ED 00 A4 60 7C |%.1..`w..I:...`||
000008A0: 06 B2 58 25 00 AA 60 81 06 27 00 D6 60 A4 06 EE |..X%..`..'..`...|
000008B0: 47 52 49 44 31 3A F7 49 25 2C 4A 25 3A FE 30 2C |GRID1:.I%,J%:.0,|
000008C0: 54 53 42 50 2C 30 3A 01 33 30 2C 30 2C 30 2C 31 |TSBP,0:.30,0,0,1|
000008D0: 30 2C 31 35 2C DA 00 02 61 AE 06 01 2C 30 2C 30 |0,15,...a...,0,0|
000008E0: 2C 30 2C 31 30 2C 31 35 2C DA 3A FE 30 2C 54 53 |,0,10,15,.:.0,TS|
000008F0: 42 50 2C 31 3A 01 2C 30 2C 31 2C 31 2C 38 2C 38 |BP,1:.,0,1,1,8,8|
00000900: 2C DA 00 3C 61 B8 06 01 73 30 2C 30 2C 30 2C 22 |,..<a...s0,0,0,"|
00000910: 20 AF AF AF AF AF AF AF AF 22 2C 30 3A 81 49 B2 | ........",0:.I.|
00000920: 31 A4 38 3A 01 73 30 2C 30 2C 49 2C 22 A7 BA BA |1.8:.s0,0,I,"...|
00000930: BA BA BA BA BA BA 22 2C 30 3A 82 49 00 5F 61 C2 |......",0:.I._a.|
00000940: 06 01 0C 33 3A 01 09 30 2C 36 2C 36 2C 32 2C 32 |...3:..0,6,6,2,2|
00000950: 3A F9 53 45 54 31 28 53 31 25 28 29 29 3A F8 00 |:.SET1(S1%()):..|
00000960: 65 61 C7 06 27 00 71 61 D6 06 EE 46 4C 41 53 48 |ea..'.qa...FLASH|
00000970: 24 00 98 61 E0 06 01 34 30 2C 43 58 25 2C 43 59 |$..a...40,CX%,CY|
00000980: 25 2C 4D 44 25 AD 32 2C 31 3A F9 53 45 54 31 28 |%,MD%.2,1:.SET1(|
00000990: 53 31 25 28 29 29 3A F8 00 9E 61 E5 06 27 00 AA |S1%()):...a..'..|
000009A0: 61 08 07 EE 42 4C 4F 54 31 24 00 CF 61 12 07 01 |a...BLOT1$..a...|
000009B0: 2C 30 2C 43 58 25 2C 43 59 25 2C 31 2C 31 2C DA |,0,CX%,CY%,1,1,.|
000009C0: 3A F9 53 45 54 31 28 53 31 25 28 29 29 3A F8 00 |:.SET1(S1%()):..|
000009D0: D5 61 1C 07 27 00 DE 61 3A 07 EE 4F 4E 31 00 F6 |.a..'..a:..ON1..|
000009E0: 61 44 07 FE 30 2C 54 53 42 50 2C 30 3A F9 42 4C |aD..0,TSBP,0:.BL|
000009F0: 4F 54 31 24 3A F8 00 FC 61 49 07 27 00 06 62 6C |OT1$:...aI.'..bl|
00000A00: 07 EE 4F 46 46 31 00 1E 62 76 07 FE 30 2C 54 53 |..OFF1..bv..0,TS|
00000A10: 42 50 2C 31 3A F9 42 4C 4F 54 31 24 3A F8 00 24 |BP,1:.BLOT1$:..$|
00000A20: 62 7B 07 27 00 44 62 9E 07 EE 4D 4F 56 45 24 3A |b{.'.Db...MOVE$:|
00000A30: F7 49 3A 49 B2 4D 44 25 AD 32 3A 8B 49 B2 32 A7 |.I:I.MD%.2:.I.2.|
00000A40: 31 39 35 34 00 5C 62 9F 07 8B 01 7B 28 32 35 29 |1954.\b....{(25)|
00000A50: A7 49 4B 25 B2 33 3A F9 4F 46 46 31 00 72 62 A0 |.IK%.3:.OFF1.rb.|
00000A60: 07 8B 01 7B 28 31 29 A7 49 4B 25 B2 32 3A F9 4F |...{(1).IK%.2:.O|
00000A70: 4E 31 00 7C 62 A1 07 89 31 39 36 30 00 93 62 A2 |N1.|b...1960..b.|
00000A80: 07 8B 01 7B 28 32 35 29 A7 49 4B 25 B2 33 3A F9 |...{(25).IK%.3:.|
00000A90: 4F 4E 32 00 A9 62 A3 07 8B 01 7B 28 31 29 A7 49 |ON2..b....{(1).I|
00000AA0: 4B 25 B2 32 3A F9 4F 4E 32 00 C0 62 A4 07 8B 01 |K%.2:.ON2..b....|
00000AB0: 7B 28 33 31 29 A7 49 4B 25 B2 31 3A F9 4F 4E 32 |{(31).IK%.1:.ON2|
00000AC0: 00 D6 62 A5 07 8B 01 7B 28 37 29 A7 49 4B 25 B2 |..b....{(7).IK%.|
00000AD0: 30 3A F9 4F 4E 32 00 FE 62 A8 07 8B 01 7B 28 31 |0:.ON2..b....{(1|
00000AE0: 36 29 8B 01 7B 28 33 38 29 43 58 25 B2 43 58 25 |6)..{(38)CX%.CX%|
00000AF0: AB 49 3A F9 31 39 38 31 3A 89 31 39 36 30 00 27 |.I:.1981:.1960.'|
00000B00: 63 A9 07 8B 01 7B 28 31 36 29 8B A8 01 7B 28 33 |c....{(16)...{(3|
00000B10: 38 29 43 58 25 B2 43 58 25 AA 49 3A F9 31 39 38 |8)CX%.CX%.I:.198|
00000B20: 31 3A 89 31 39 36 31 00 4F 63 AC 07 8B 01 7B 28 |1:.1961.Oc....{(|
00000B30: 35 36 29 8B 01 7B 28 33 38 29 43 59 25 B2 43 59 |56)..{(38)CY%.CY|
00000B40: 25 AB 31 3A F9 31 39 38 31 3A 89 31 39 36 34 00 |%.1:.1981:.1964.|
00000B50: 78 63 AD 07 8B 01 7B 28 35 36 29 8B A8 01 7B 28 |xc....{(56)...{(|
00000B60: 33 38 29 43 59 25 B2 43 59 25 AA 31 3A F9 31 39 |38)CY%.CY%.1:.19|
00000B70: 38 31 3A 89 31 39 36 35 00 82 63 AE 07 F9 31 39 |81:.1965..c...19|
00000B80: 37 30 00 8E 63 AF 07 49 4B 25 B2 34 3A F8 00 94 |70..c..IK%.4:...|
00000B90: 63 B0 07 27 00 AC 63 B2 07 EE 46 46 3A F9 46 4C |c..'..c...FF:.FL|
00000BA0: 41 53 48 24 3A F9 46 4C 41 53 48 24 00 D0 63 B7 |ASH$:.FLASH$..c.|
00000BB0: 07 8B 4D 44 25 B2 32 A7 3A FC 49 4B 25 3A FB 32 |..MD%.2.:.IK%:.2|
00000BC0: 3A F9 4F 4E 31 3A FB 33 3A F9 4F 46 46 31 3A FA |:.ON1:.3:.OFF1:.|
00000BD0: 00 E7 63 B8 07 8B 4D 44 25 B2 34 AF 49 4B 25 B3 |..c...MD%.4.IK%.|
00000BE0: B1 34 A7 F9 4F 4E 32 00 ED 63 BC 07 F8 00 03 64 |.4..ON2..c.....d|
00000BF0: BD 07 EE 43 43 3A 8B 43 58 25 B3 31 43 58 25 B2 |...CC:.CX%.1CX%.|
00000C00: 39 AB 49 00 13 64 BE 07 8B 43 58 25 B1 38 43 58 |9.I..d...CX%.8CX|
00000C10: 25 B2 31 00 23 64 BF 07 8B 43 59 25 B2 30 43 59 |%.1.#d...CY%.0CY|
00000C20: 25 B2 38 00 33 64 C0 07 8B 43 59 25 B2 39 43 59 |%.8.3d...CY%.9CY|
00000C30: 25 B2 31 00 3D 64 C1 07 89 31 39 37 30 00 43 64 |%.1.=d...1970.Cd|
00000C40: C6 07 27 00 56 64 D0 07 EE 45 44 54 31 24 3A 49 |..'.Vd...EDT1$:I|
00000C50: 4B 25 B2 34 3A E7 00 6F 64 DA 07 F9 46 46 3A F9 |K%.4:..od...FF:.|
00000C60: 4D 4F 56 45 24 3A 49 4B 25 B2 34 3A F9 41 41 00 |MOVE$:IK%.4:.AA.|
00000C70: 81 64 DD 07 8B 01 7B 28 34 39 29 A7 F9 45 44 54 |.d....{(49)..EDT|
00000C80: 49 00 91 64 DE 07 8B 01 7B 28 31 37 29 F9 41 46 |I..d....{(17).AF|
00000C90: 4C 00 A9 64 DF 07 F9 4D 4F 56 45 24 3A 8B 01 7B |L..d...MOVE$:..{|
00000CA0: 28 35 37 29 3A F9 43 48 57 00 BA 64 E0 07 8B 01 |(57):.CHW..d....|
00000CB0: 7B 28 36 30 29 A7 89 4E 4D 49 00 CD 64 E1 07 8B |{(60)..NMI..d...|
00000CC0: 01 7B 28 33 34 29 A7 F9 47 52 49 44 31 00 F0 64 |.{(34)..GRID1..d|
00000CD0: E2 07 F9 4D 4F 56 45 24 3A EB 01 7B 28 31 38 29 |...MOVE$:..{(18)|
00000CE0: 3A F9 43 48 52 32 48 49 52 45 53 28 E3 2C E2 29 |:.CHR2HIRES(.,.)|
00000CF0: 00 28 65 E3 07 8B 41 46 4C 41 47 25 B2 31 A7 F9 |.(e...AFLAG%.1..|
00000D00: 41 46 49 4E 28 49 4E 25 28 29 29 3A 01 2C 30 2C |AFIN(IN%()):.,0,|
00000D10: E3 2C E2 2C 31 2C 31 2C DA 3A F9 53 45 54 31 28 |.,.,1,1,.:.SET1(|
00000D20: 53 31 25 28 29 29 3A ED 00 4B 65 E4 07 F9 4D 4F |S1%()):..Ke...MO|
00000D30: 56 45 24 3A 8B 01 7B 28 35 31 29 A7 F9 48 49 52 |VE$:..{(51)..HIR|
00000D40: 45 53 32 43 48 52 28 E3 2C E2 29 00 5E 65 E9 07 |ES2CHR(.,.).^e..|
00000D50: 8B 01 7B 28 33 39 29 A7 F9 4D 4F 56 45 57 00 7A |..{(39)..MOVEW.z|
00000D60: 65 EE 07 F9 4D 4F 56 45 24 3A E8 01 7B 28 34 37 |e...MOVE$:..{(47|
00000D70: 29 AF 01 7B 28 32 38 29 3A F8 00 80 65 F3 07 27 |)..{(28):...e..'|
00000D80: 00 90 65 02 08 EE 47 52 49 44 32 3A F7 49 2C 4A |..e...GRID2:.I,J|
00000D90: 00 BC 65 0C 08 01 2E 3A FE 30 2C 31 35 2C 31 3A |..e....:.0,15,1:|
00000DA0: 01 33 30 2C 30 2C 30 2C 31 30 2C 31 35 2C DA 3A |.30,0,0,10,15,.:|
00000DB0: F9 41 46 49 4E 28 49 4E 25 28 29 29 00 CE 65 0D |.AFIN(IN%())..e.|
00000DC0: 08 01 34 30 2C 30 2C 30 2C 31 30 2C 31 35 00 00 |..40,0,0,10,15..|
00000DD0: 66 1B 08 01 0C 33 3A 01 09 30 2C 36 2C 36 2C 32 |f....3:..0,6,6,2|
00000DE0: 2C 32 3A 01 09 30 2C 38 2C 38 2C 31 36 2C 38 3A |,2:..0,8,8,16,8:|
00000DF0: 01 0C 31 3A 01 09 30 2C 38 2C 38 2C 31 34 2C 36 |..1:..0,8,8,14,6|
00000E00: 00 2A 66 20 08 81 49 B2 31 A4 37 A9 32 3A 81 4A |.*f ..I.1.7.2:.J|
00000E10: B2 31 A4 38 3A 01 36 30 2C 31 2C 31 2C 32 2C 31 |.1.8:.60,1,1,2,1|
00000E20: 2C 30 2C 49 2C 4A 3A 82 3A 82 00 4A 66 22 08 F9 |,0,I,J:.:..Jf"..|
00000E30: 53 45 54 31 28 53 31 25 28 29 29 3A F9 53 45 54 |SET1(S1%()):.SET|
00000E40: 32 28 53 32 25 28 29 29 3A F8 00 50 66 25 08 27 |2(S2%()):..Pf%.'|
00000E50: 00 59 66 34 08 EE 4F 4E 32 00 7B 66 3E 08 01 2C |.Yf4..ON2.{f>..,|
00000E60: 30 2C 43 58 25 2C 43 59 25 2C 32 2C 31 2C 31 36 |0,CX%,CY%,2,1,16|
00000E70: AC 49 4E 25 28 49 4B 25 AA 31 29 00 A8 66 40 08 |.IN%(IK%.1)..f@.|
00000E80: F9 41 46 49 4E 28 49 4E 25 28 29 29 3A F9 53 45 |.AFIN(IN%()):.SE|
00000E90: 54 31 28 53 31 25 28 29 29 3A F9 53 45 54 32 28 |T1(S1%()):.SET2(|
00000EA0: 53 32 25 28 29 29 3A F8 00 AE 66 43 08 27 00 B9 |S2%()):...fC.'..|
00000EB0: 66 CA 08 EE 53 54 41 52 54 00 C3 66 D4 08 F9 50 |f...START..f...P|
00000EC0: 52 41 54 00 F6 66 D9 08 01 0D 3A 01 24 3A 01 22 |RAT..f....:.$:."|
00000ED0: 31 35 3A 42 4F 4F 54 25 B2 30 3A F9 44 49 53 28 |15:BOOT%.0:.DIS(|
00000EE0: 31 2C 49 4E 25 28 29 29 3A F9 44 49 53 28 32 2C |1,IN%()):.DIS(2,|
00000EF0: 53 32 25 28 29 29 00 2A 67 DE 08 F9 44 49 53 28 |S2%()).*g...DIS(|
00000F00: 33 2C 53 31 25 28 29 29 3A F9 44 49 53 28 34 2C |3,S1%()):.DIS(4,|
00000F10: 4D 25 28 29 29 3A 42 4F 4F 54 25 B2 31 3A F9 41 |M%()):BOOT%.1:.A|
00000F20: 46 49 4E 28 49 4E 25 28 29 29 00 3C 67 E8 08 43 |FIN(IN%()).<g..C|
00000F30: 58 25 B2 31 3A 43 59 25 B2 31 3A F8 00 42 67 F2 |X%.1:CY%.1:..Bg.|
00000F40: 08 27 00 4D 67 FC 08 EE 4D 4F 56 45 57 00 5F 67 |.'.Mg...MOVEW._g|
00000F50: 01 09 F9 46 3A 8B A8 01 7B 28 33 39 29 A7 F8 00 |...F:...{(39)...|
00000F60: 8E 67 06 09 8B 01 7B 28 31 36 29 8B 01 7B 28 33 |.g....{(16)..{(3|
00000F70: 38 29 8B D1 45 52 28 31 31 2C E3 2C 33 39 29 3A |8)..ER(11,.,39):|
00000F80: E3 B2 E3 AB 31 3A F9 46 3A 89 32 33 31 30 00 C0 |....1:.F:.2310..|
00000F90: 67 07 09 8B 01 7B 28 31 36 29 8B D1 45 52 28 31 |g....{(16)..ER(1|
00000FA0: 30 2C E3 2C 33 39 AB E1 29 8B A8 01 7B 28 33 38 |0,.,39..)...{(38|
00000FB0: 29 3A E3 B2 E3 AA 31 3A F9 46 3A 89 32 33 31 31 |):....1:.F:.2311|
00000FC0: 00 C6 67 08 09 ED 00 F4 67 09 09 8B 01 7B 28 35 |..g.....g....{(5|
00000FD0: 36 29 8B 01 7B 28 33 38 29 8B D1 45 52 28 31 2C |6)..{(38)..ER(1,|
00000FE0: E2 2C 31 39 29 3A E2 B2 E2 AB 31 3A F9 46 3A 89 |.,19):....1:.F:.|
00000FF0: 32 33 31 30 00 25 68 0A 09 8B 01 7B 28 35 36 29 |2310.%h....{(56)|
00001000: 8B D1 45 52 28 30 2C E2 2C 31 34 AB E0 29 8B A8 |..ER(0,.,14..)..|
00001010: 01 7B 28 33 38 29 3A E2 B2 E2 AA 31 3A F9 46 3A |.{(38):....1:.F:|
00001020: 89 32 33 31 34 00 3C 68 0C 09 F9 52 45 54 31 28 |.2314.<h...RET1(|
00001030: 53 31 25 28 29 29 3A 89 32 33 30 35 00 42 68 0D |S1%()):.2305.Bh.|
00001040: 09 27 00 6B 68 10 09 EE 4D 50 3A F9 50 52 4E 54 |.'.kh...MP:.PRNT|
00001050: 28 32 35 2C 31 37 2C 22 22 2C 4D 4F 25 29 3A 53 |(25,17,"",MO%):S|
00001060: 31 25 28 35 29 B2 4D 4F 25 3A F8 00 71 68 11 09 |1%(5).MO%:..qh..|
00001070: 27 00 7F 68 2E 09 EE 45 44 54 49 3A F7 58 25 00 |'..h...EDTI:.X%.|
00001080: 90 68 33 09 8B 01 7B 28 34 39 29 A7 32 33 35 35 |.h3...{(49).2355|
00001090: 00 D0 68 38 09 F9 49 4E 50 25 28 22 49 4E 4B 20 |..h8..INP%("INK |
000010A0: 54 4F 20 42 45 20 45 44 49 54 45 44 22 2C 49 4B |TO BE EDITED",IK|
000010B0: 25 29 3A 49 4B 25 B2 49 4B 25 AB 31 3A 8B A8 D1 |%):IK%.IK%.1:...|
000010C0: 45 52 28 30 2C 49 4B 25 2C 33 29 A7 32 33 36 30 |ER(0,IK%,3).2360|
000010D0: 00 0C 69 42 09 F9 49 4E 50 25 28 22 4E 45 57 20 |..iB..INP%("NEW |
000010E0: 56 41 4C 55 45 22 2C 58 25 29 3A 8B A8 D1 45 52 |VALUE",X%):...ER|
000010F0: 28 30 2C 58 25 2C 31 35 29 A7 32 33 37 30 CC 49 |(0,X%,15).2370.I|
00001100: 4E 25 28 49 4B 25 AA 31 29 B2 58 25 00 33 69 4C |N%(IK%.1).X%.3iL|
00001110: 09 F9 41 46 49 4E 28 49 4E 25 28 29 29 3A F9 44 |..AFIN(IN%()):.D|
00001120: 49 53 28 31 2C 49 4E 25 28 29 29 3A 49 4B 25 B2 |IS(1,IN%()):IK%.|
00001130: 34 3A F8 00 39 69 56 09 27 00 44 69 60 09 EE 4D |4:..9iV.'.Di`..M|
00001140: 4F 44 45 33 00 55 69 6A 09 8B A8 01 7B 28 39 29 |ODE3.Uij....{(9)|
00001150: A7 32 34 36 30 00 66 69 6F 09 8B 01 7B 28 31 37 |.2460.fio...{(17|
00001160: 29 A7 F9 41 46 4C 00 7B 69 74 09 8B 01 7B 28 31 |)..AFL.{it...{(1|
00001170: 32 29 A7 01 34 3A 89 32 34 35 35 00 90 69 7E 09 |2)..4:.2455..i~.|
00001180: 8B 01 7B 28 34 32 29 A7 01 74 3A 89 32 34 35 35 |..{(42)..t:.2455|
00001190: 00 A5 69 88 09 8B 01 7B 28 33 36 29 A7 01 31 3A |..i....{(36)..1:|
000011A0: 89 32 34 35 35 00 D9 69 92 09 8B 01 7B 28 33 34 |.2455..i....{(34|
000011B0: 29 A7 01 33 3A 8B 41 46 4C 41 47 25 B2 30 A7 01 |)..3:.AFLAG%.0..|
000011C0: 2C 30 2C E3 2C E2 2C E1 2C E0 2C 31 3A F9 41 46 |,0,.,.,.,.,1:.AF|
000011D0: 49 4E 28 49 4E 25 28 29 29 00 E3 69 96 09 89 32 |IN(IN%())..i...2|
000011E0: 34 36 30 00 F3 69 97 09 8B 01 7B 28 39 29 A7 32 |460..i....{(9).2|
000011F0: 34 35 35 00 16 6A 9C 09 8B A8 01 7B 28 35 39 29 |455..j.....{(59)|
00001200: AF A8 01 7B 28 35 37 29 AF 01 7B 28 33 39 29 A7 |...{(57)..{(39).|
00001210: F9 4D 4F 56 45 57 00 2A 6A A6 09 F9 41 41 3A 8B |.MOVEW.*j...AA:.|
00001220: 01 7B 28 35 37 29 F9 43 48 57 00 3C 6A F6 09 8B |.{(57).CHW.<j...|
00001230: A8 01 7B 28 34 31 29 A7 32 36 33 30 00 51 6A 00 |..{(41).2630.Qj.|
00001240: 0A F9 46 3A 8B A8 01 7B 28 33 38 29 A7 32 36 30 |..F:...{(38).260|
00001250: 30 00 64 6A 0A 0A 8B 01 7B 28 35 36 29 A7 DC B2 |0.dj....{(56)...|
00001260: 31 3A 01 2A 00 7D 6A 14 0A 8B 01 7B 28 31 36 29 |1:.*.}j....{(16)|
00001270: A7 8B 4D 44 25 B2 32 A7 01 14 CC 01 18 00 95 6A |..MD%.2........j|
00001280: 1E 0A 8B 01 7B 28 35 36 29 B0 01 7B 28 31 36 29 |....{(56)..{(16)|
00001290: A7 32 35 39 30 00 A9 6A 28 0A 8B 01 7B 28 35 36 |.2590..j(...{(56|
000012A0: 29 A7 DC B2 AB 31 3A 01 2A 00 C3 6A 32 0A 8B 01 |)....1:.*..j2...|
000012B0: 7B 28 31 36 29 A7 3A 8B 4D 44 25 B2 32 A7 01 13 |{(16).:.MD%.2...|
000012C0: CC 01 17 00 DB 6A 3C 0A 8B 01 7B 28 35 36 29 B0 |.....j<...{(56).|
000012D0: 01 7B 28 31 36 29 A7 32 36 32 30 00 ED 6A 46 0A |.{(16).2620..jF.|
000012E0: 8B A8 01 7B 28 31 30 29 A7 32 37 31 30 00 FE 6A |...{(10).2710..j|
000012F0: 4B 0A 8B 01 7B 28 31 37 29 A7 F9 41 46 4C 00 13 |K...{(17)..AFL..|
00001300: 6B 50 0A F9 46 3A 8B A8 01 7B 28 33 38 29 A7 32 |kP..F:...{(38).2|
00001310: 36 38 30 00 26 6B 5A 0A 8B 01 7B 28 35 36 29 A7 |680.&kZ...{(56).|
00001320: DC B2 31 3A 01 29 00 40 6B 64 0A 8B 01 7B 28 31 |..1:.).@kd...{(1|
00001330: 36 29 A7 3A 8B 4D 44 25 B2 32 A7 01 12 CC 01 16 |6).:.MD%.2......|
00001340: 00 58 6B 6E 0A 8B 01 7B 28 35 36 29 B0 01 7B 28 |.Xkn...{(56)..{(|
00001350: 31 36 29 A7 32 36 37 30 00 6C 6B 78 0A 8B 01 7B |16).2670.lkx...{|
00001360: 28 35 36 29 A7 DC B2 AB 31 3A 01 29 00 86 6B 82 |(56)....1:.)..k.|
00001370: 0A 8B 01 7B 28 31 36 29 A7 3A 8B 4D 44 25 B2 32 |...{(16).:.MD%.2|
00001380: A7 01 11 CC 01 15 00 9E 6B 8C 0A 8B 01 7B 28 35 |........k....{(5|
00001390: 36 29 B0 01 7B 28 31 36 29 A7 32 37 30 30 00 C0 |6)..{(16).2700..|
000013A0: 6B 96 0A EB 01 7B 28 33 30 29 3A E3 B2 31 30 3A |k....{(30):..10:|
000013B0: E2 B2 30 3A F9 52 45 54 31 28 53 31 25 28 29 29 |..0:.RET1(S1%())|
000013C0: 00 E6 6B 97 0A 8B 01 7B 28 33 38 29 A7 E0 B2 31 |..k....{(38)...1|
000013D0: 35 3A E1 B2 33 30 3A 01 33 3A F9 53 45 54 31 28 |5:..30:.3:.SET1(|
000013E0: 53 31 25 28 29 29 00 EC 6B 98 0A ED 00 FD 6B 9B |S1%())..k.....k.|
000013F0: 0A 8B 01 7B 28 31 37 29 A7 F9 41 46 4C 00 0F 6C |...{(17)..AFL..l|
00001400: A0 0A 8B A8 01 7B 28 35 39 29 A7 32 37 37 30 00 |.....{(59).2770.|
00001410: 29 6C A5 0A 8B A8 01 7B 28 35 36 29 AF A8 01 7B |)l.....{(56)...{|
00001420: 28 33 38 29 A7 32 37 37 30 00 47 6C AA 0A EB 01 |(38).2770.Gl....|
00001430: 7B 28 35 36 29 3A DC B2 AB 38 3A 8B 01 7B 28 33 |{(56):...8:..{(3|
00001440: 38 29 A7 DC B2 AB DC 00 61 6C B4 0A E0 B2 32 35 |8)......al....25|
00001450: 3A E1 B2 33 30 3A E3 B2 31 30 3A E2 B2 30 3A 01 |:..30:..10:..0:.|
00001460: 29 00 7F 6C BE 0A 8B 41 46 4C 41 47 25 B2 31 A7 |)..l...AFLAG%.1.|
00001470: E0 B2 31 35 3A 8B DC B1 30 A7 01 1F CC 01 20 00 |..15:...0..... .|
00001480: 92 6C C8 0A F9 53 45 54 31 28 53 31 25 28 29 29 |.l...SET1(S1%())|
00001490: 3A ED 00 A4 6C D2 0A 8B 01 7B 28 34 39 29 A7 F9 |:...l....{(49)..|
000014A0: 45 44 54 49 00 B4 6C DC 0A 8B 01 7B 28 31 37 29 |EDTI..l....{(17)|
000014B0: F9 41 46 4C 00 CE 6C 04 0B 8B A8 01 7B 28 34 37 |.AFL..l.....{(47|
000014C0: 29 B0 A8 01 7B 28 32 38 29 A7 32 34 31 30 00 D4 |)...{(28).2410..|
000014D0: 6C 0E 0B F8 00 DA 6C 18 0B 27 00 F8 6C 22 0B EE |l.....l..'..l"..|
000014E0: 46 3A E4 B2 30 3A 01 34 3A 81 49 B2 31 A4 34 30 |F:..0:.4:.I.1.40|
000014F0: 3A 82 49 3A 01 34 3A F8 00 FE 6C 2C 0B 27 00 07 |:.I:.4:...l,.'..|
00001500: 6D 54 0B EE 4E 4D 49 00 18 6D 59 0B 8B 01 7B 28 |mT..NMI..mY...{(|
00001510: 36 30 29 A7 32 39 30 35 00 35 6D 5E 0B EF 37 33 |60).2905.5m^..73|
00001520: 2C 24 30 35 46 38 3A 9E 24 30 34 41 30 3A 49 B2 |,$05F8:.$04A0:I.|
00001530: 24 30 35 46 38 00 5B 6D 68 0B 41 24 B2 22 42 59 |$05F8.[mh.A$."BY|
00001540: 54 45 22 AA C4 28 49 AB 24 30 35 46 38 29 AA 22 |TE"..(I.$05F8)."|
00001550: 20 3A 22 AA C4 28 C2 28 49 29 29 00 91 6D 72 0B | :"..(.(I))..mr.|
00001560: F9 49 4E 50 25 28 41 24 2C 59 25 29 3A 8B 59 25 |.INP%(A$,Y%):.Y%|
00001570: B1 AB 31 AF 59 25 B3 32 35 36 A7 97 49 2C 59 25 |..1.Y%.256..I,Y%|
00001580: 3A EF 37 33 2C 24 30 35 46 30 3A 9E 24 30 35 30 |:.73,$05F0:.$050|
00001590: 30 00 A8 6D 77 0B 8B 59 25 B3 AB 31 B0 59 25 B1 |0..mw..Y%..1.Y%.|
000015A0: 32 35 35 A7 32 39 33 30 00 C6 6D 7C 0B 49 B2 49 |255.2930..m|.I.I|
000015B0: AA 31 3A 8B 49 B2 24 30 36 30 30 A7 32 30 31 36 |.1:.I.$0600.2016|
000015C0: CC 89 32 39 32 30 00 CC 6D 81 0B 27 00 DF 6D B8 |..2920..m..'..m.|
000015D0: 0B EE 45 44 54 32 24 3A 49 4B 25 B2 34 3A E7 00 |..EDT2$:IK%.4:..|
000015E0: F4 6D C2 0B F9 46 46 3A 8B 49 4B 25 B3 B1 34 A7 |.m...FF:.IK%..4.|
000015F0: F9 4F 4E 32 00 02 6E CC 0B 49 4B 25 B2 34 3A F9 |.ON2..n..IK%.4:.|
00001600: 41 41 00 1A 6E FE 0B F9 4D 4F 56 45 24 3A 8B 01 |AA..n...MOVE$:..|
00001610: 7B 28 35 37 29 A7 F9 43 48 57 00 48 6E 08 0C 8B |{(57)..CHW.Hn...|
00001620: 01 7B 28 34 39 29 A7 81 49 B2 31 A4 34 3A 54 49 |.{(49)..I.1.4:TI|
00001630: 25 28 49 29 B2 49 4E 25 28 49 29 3A 82 3A F9 45 |%(I).IN%(I):.:.E|
00001640: 44 54 49 3A F9 45 44 32 00 53 6E 0D 0C F9 4D 4F |DTI:.ED2.Sn...MO|
00001650: 56 45 24 00 63 6E 12 0C 8B 01 7B 28 31 37 29 F9 |VE$.cn....{(17).|
00001660: 41 46 4C 00 7D 6E 1C 0C F9 4D 4F 56 45 24 3A 8B |AFL.}n...MOVE$:.|
00001670: 01 7B 28 33 34 29 A7 F9 47 52 49 44 32 00 9C 6E |.{(34)..GRID2..n|
00001680: 30 0C EB 01 7B 28 31 38 29 3A F9 50 3A F9 43 48 |0...{(18):.P:.CH|
00001690: 52 34 48 49 52 45 53 28 E3 2C E2 29 00 D2 6E 31 |R4HIRES(.,.)..n1|
000016A0: 0C 8B 41 46 4C 41 47 25 B2 31 A7 F9 41 46 49 4E |..AFLAG%.1..AFIN|
000016B0: 28 49 4E 25 28 29 29 3A 01 2C 30 2C E3 2C E2 2C |(IN%()):.,0,.,.,|
000016C0: 31 2C 31 2C DA 3A F9 53 45 54 31 28 53 31 25 28 |1,1,.:.SET1(S1%(|
000016D0: 29 29 00 D8 6E 32 0C ED 00 F7 6E 4E 0C EB 01 7B |))..n2....nN...{|
000016E0: 28 35 31 29 3A F9 50 3A F9 48 49 52 45 53 34 43 |(51):.P:.HIRES4C|
000016F0: 48 52 28 E3 2C E2 29 00 0A 6F 53 0C EB 41 46 4C |HR(.,.)..oS..AFL|
00001700: 41 47 25 B2 31 3A F9 55 50 50 00 2E 6F 54 0C 81 |AG%.1:.UPP..oT..|
00001710: 49 B2 31 A4 34 3A 54 49 25 28 49 29 B2 49 4E 25 |I.1.4:TI%(I).IN%|
00001720: 28 49 29 3A 82 3A F9 45 44 32 3A ED 3A ED 00 48 |(I):.:.ED2:.:..H|
00001730: 6F 58 0C F9 4D 4F 56 45 24 3A 8B 01 7B 28 33 39 |oX..MOVE$:..{(39|
00001740: 29 A7 F9 4D 4F 56 45 57 00 5D 6F 76 0C E8 01 7B |)..MOVEW.]ov...{|
00001750: 28 34 37 29 AF 01 7B 28 32 38 29 3A F8 00 63 6F |(47)..{(28):..co|
00001760: 7B 0C 27 00 79 6F 80 0C EE 45 44 32 3A F7 41 25 |{.'.yo...ED2:.A%|
00001770: 2C 49 2C 4A 2C 4B 2C 42 25 00 98 6F 8A 0C 81 49 |,I,J,K,B%..o...I|
00001780: B2 31 A4 34 3A 8B 54 49 25 28 49 29 B2 49 4E 25 |.1.4:.TI%(I).IN%|
00001790: 28 49 29 A7 82 49 3A F8 00 BF 6F 94 0C 81 4A B2 |(I)..I:...o...J.|
000017A0: 31 A4 37 A9 32 3A 81 4B B2 31 A4 38 3A 41 25 B2 |1.7.2:.K.1.8:A%.|
000017B0: C2 28 24 43 43 30 30 AA 34 30 AC 4B AA 4A 29 00 |.($CC00.40.K.J).|
000017C0: FE 6F 9E 0C 8B 28 28 41 25 AD 31 36 29 AF 31 35 |.o...((A%.16).15|
000017D0: 29 B2 54 49 25 28 49 29 A7 EF 24 43 43 30 30 AA |).TI%(I)..$CC00.|
000017E0: 34 30 AC 4B AA 4A 2C 28 28 41 25 AF 31 35 29 AA |40.K.J,((A%.15).|
000017F0: 49 4E 25 28 49 29 AC 31 36 29 AC 32 35 37 00 0F |IN%(I).16).257..|
00001800: 70 A8 0C 82 4B 2C 4A 3A 49 4B 25 B2 34 3A F8 00 |p...K,J:IK%.4:..|
00001810: 15 70 AD 0C 27 00 50 70 E4 0C EE 50 3A EF 24 30 |.p..'.Pp...P:.$0|
00001820: 35 46 38 2C 49 4E 25 28 34 29 AA 32 35 36 AC 49 |5F8,IN%(4).256.I|
00001830: 4E 25 28 31 29 3A EF 24 30 35 46 41 2C 49 4E 25 |N%(1):.$05FA,IN%|
00001840: 28 32 29 AA 32 35 36 AC 49 4E 25 28 33 29 3A F8 |(2).256.IN%(3):.|
00001850: 00 56 70 E9 0C 27 00 94 70 EE 0C EE 41 46 4C 3A |.Vp..'..p...AFL:|
00001860: 41 46 4C 41 47 25 B2 31 AB 41 46 4C 41 47 25 3A |AFLAG%.1.AFLAG%:|
00001870: F9 50 52 4E 54 28 31 35 2C 32 30 2C 22 22 2C 41 |.PRNT(15,20,"",A|
00001880: 46 4C 41 47 25 29 3A 49 4E 25 28 35 29 B2 41 46 |FLAG%):IN%(5).AF|
00001890: 4C 41 47 25 00 A5 70 F8 0C EB 41 46 4C 41 47 25 |LAG%..p...AFLAG%|
000018A0: B2 30 3A 01 30 00 B5 70 02 0D EC 3A 8B 4D 44 25 |.0:.0..p...:.MD%|
000018B0: B2 32 A7 01 2F 00 C3 70 0C 0D 8B 4D 44 25 B2 34 |.2../..p...MD%.4|
000018C0: A7 01 2E 00 CB 70 16 0D ED 3A F8 00 D1 70 20 0D |.....p...:...p .|
000018D0: 27 00 E5 70 2A 0D EE 43 48 57 3A 8B A8 01 7B 28 |'..p*..CHW:...{(|
000018E0: 35 37 29 A7 F8 00 F7 70 34 0D 8B A8 01 7B 28 33 |57)....p4....{(3|
000018F0: 38 29 A7 33 34 32 30 00 16 71 3E 0D 8B 01 7B 28 |8).3420..q>...{(|
00001900: 35 36 29 AF D1 45 52 28 32 2C E0 2C 32 35 35 29 |56)..ER(2,.,255)|
00001910: A7 E0 B2 E0 AB 31 00 35 71 48 0D 8B 01 7B 28 31 |.....1.5qH...{(1|
00001920: 36 29 AF D1 45 52 28 32 2C E1 2C 32 35 35 29 A7 |6)..ER(2,.,255).|
00001930: E1 B2 E1 AB 31 00 4F 71 52 0D F9 46 3A F9 52 45 |....1.OqR..F:.RE|
00001940: 54 31 28 53 31 25 28 29 29 3A 89 33 33 37 30 00 |T1(S1%()):.3370.|
00001950: 6F 71 5C 0D 8B 01 7B 28 35 36 29 AF D1 45 52 28 |oq\...{(56)..ER(|
00001960: 31 2C E0 2C 31 35 AB E2 29 A7 E0 B2 E0 AA 31 00 |1,.,15..).....1.|
00001970: 8F 71 66 0D 8B 01 7B 28 31 36 29 AF D1 45 52 28 |.qf...{(16)..ER(|
00001980: 31 2C E1 2C 33 39 AB E3 29 A7 E1 B2 E1 AA 31 00 |1,.,39..).....1.|
00001990: 99 71 70 0D 89 33 34 31 30 00 9F 71 75 0D 27 00 |.qp..3410..qu.'.|
000019A0: BA 71 7A 0D EE 55 50 50 3A 01 2D 3A F9 49 4E 46 |.qz..UPP:.-:.INF|
000019B0: 41 28 49 4E 25 28 29 29 3A F8 00 C0 71 98 0D 27 |A(IN%()):...q..'|
000019C0: 00 DC 71 AC 0D EE 44 4E 4E 3A 53 25 B2 E4 3A E4 |..q...DNN:S%..:.|
000019D0: B2 30 3A 01 2C 3A E4 B2 53 25 3A F8 00 E2 71 B6 |.0:.,:..S%:...q.|
000019E0: 0D 27 00 03 72 C0 0D EE 41 41 3A 8B 01 7B 28 35 |.'..r...AA:..{(5|
000019F0: 29 A7 F9 55 50 50 CC 8B 01 7B 28 32 39 29 A7 F9 |)..UPP...{(29)..|
00001A00: 44 4E 4E 00 09 72 C5 0D F8 00 0F 72 CA 0D 27 00 |DNN..r.....r..'.|
00001A10: 46 72 D4 0D EE 43 57 3A 42 24 B2 22 22 3A F9 49 |Fr...CW:B$."":.I|
00001A20: 4E 50 24 28 42 24 2C 22 43 4F 4C 44 20 53 54 41 |NP$(B$,"COLD STA|
00001A30: 52 54 20 4F 52 20 57 41 52 4D 20 53 54 41 52 54 |RT OR WARM START|
00001A40: 20 43 2F 57 22 29 00 74 72 DE 0D 8B C9 28 42 24 | C/W").tr....(B$|
00001A50: 2C 31 29 B2 22 57 22 A7 F9 53 4D 50 28 4D 28 29 |,1)."W"..SMP(M()|
00001A60: 29 3A F9 53 45 54 31 28 53 31 25 28 29 29 3A 89 |):.SET1(S1%()):.|
00001A70: 4C 4F 4F 50 00 A9 72 E8 0D 8B C9 28 42 24 2C 31 |LOOP..r....(B$,1|
00001A80: 29 B2 22 43 22 A7 01 2F 3A 01 01 30 2C 31 35 3A |)."C"../:..0,15:|
00001A90: 01 04 3A F9 47 52 49 44 31 3A F9 53 4D 50 28 4D |..:.GRID1:.SMP(M|
00001AA0: 28 29 29 3A 89 4C 4F 4F 50 00 B3 72 F2 0D 89 33 |()):.LOOP..r...3|
00001AB0: 35 34 30 00 B9 72 FC 0D 27 00 DC 72 10 0E EE 46 |540..r..'..r...F|
00001AC0: 49 4C 45 4E 41 4D 45 28 F6 58 24 2C 59 24 29 3A |ILENAME(.X$,Y$):|
00001AD0: F9 49 4E 50 24 28 58 24 2C 59 24 29 00 01 73 1A |.INP$(X$,Y$)..s.|
00001AE0: 0E 8B C3 28 58 24 29 B1 32 8B CA 28 58 24 2C 32 |...(X$).2..(X$,2|
00001AF0: 2C 31 29 B3 B1 22 3A 22 A7 58 24 B2 22 22 AA 58 |,1)..":".X$."".X|
00001B00: 24 00 24 73 24 0E 8B 58 24 B2 22 22 A7 58 24 B2 |$.$s$..X$."".X$.|
00001B10: 22 22 CC 8B C3 28 58 24 29 B3 33 A7 58 24 B2 22 |""...(X$).3.X$."|
00001B20: 22 AA 58 24 00 2A 73 2E 0E F8 00 30 73 38 0E 27 |".X$.*s....0s8.'|
00001B30: 00 41 73 42 0E EE 44 49 53 4B 43 48 45 43 4B 3A |.AsB..DISKCHECK:|
00001B40: F8 00 7B 73 4C 0E 84 31 2C 41 2C 42 24 2C 43 2C |..{sL..1,A,B$,C,|
00001B50: 44 3A A0 31 3A 8B 41 B3 B1 30 3A F9 49 4E 50 24 |D:.1:.A..0:.INP$|
00001B60: 28 42 24 2C 42 24 AA 22 20 3C 43 52 3E 20 54 4F |(B$,B$." <CR> TO|
00001B70: 20 43 4F 4E 54 49 4E 55 45 22 29 00 81 73 56 0E | CONTINUE")..sV.|
00001B80: F8 00 87 73 60 0E 27 00 96 73 74 0E EE 53 43 52 |...s`.'..st..SCR|
00001B90: 41 54 43 48 3A F8 00 A5 73 7E 0E F9 44 49 53 4B |ATCH:...s~..DISK|
00001BA0: 43 48 45 43 4B 00 AB 73 88 0E F8 00 B1 73 92 0E |CHECK..s.....s..|
00001BB0: 27 00 C1 73 A6 0E EE 56 41 4C 49 44 41 54 45 3A |'..s...VALIDATE:|
00001BC0: F8 00 E2 73 AB 0E 9F 31 2C 38 2C 31 35 2C 22 56 |...s...1,8,15,"V|
00001BD0: 22 AA 41 24 3A A0 31 3A F9 44 49 53 4B 43 48 45 |".A$:.1:.DISKCHE|
00001BE0: 43 4B 00 E8 73 B0 0E F8 00 EE 73 BA 0E 27 00 26 |CK..s.....s..'.&|
00001BF0: 74 C4 0E EE 49 4E 49 54 49 41 4C 49 53 45 3A F7 |t...INITIALISE:.|
00001C00: 41 24 3A F9 46 49 4C 45 4E 41 4D 45 28 41 24 2C |A$:.FILENAME(A$,|
00001C10: 22 45 4E 54 45 52 20 44 52 49 56 45 20 4F 52 20 |"ENTER DRIVE OR |
00001C20: 3C 43 52 3E 22 29 00 47 74 C9 0E 9F 31 2C 38 2C |<CR>").Gt...1,8,|
00001C30: 31 35 2C 22 49 22 AA 41 24 3A A0 31 3A F9 44 49 |15,"I".A$:.1:.DI|
00001C40: 53 4B 43 48 45 43 4B 00 4D 74 CE 0E F8 00 53 74 |SKCHECK.Mt....St|
00001C50: D8 0E 27 00 5F 74 E2 0E EE 43 4F 50 59 3A F8 00 |..'._t...COPY:..|
00001C60: 87 74 EC 0E 9F 31 2C 38 2C 31 35 2C 22 43 22 AA |.t...1,8,15,"C".|
00001C70: 42 24 AA 22 3D 22 AA 41 24 3A A0 31 3A F9 44 49 |B$."=".A$:.1:.DI|
00001C80: 53 4B 43 48 45 43 4B 00 8D 74 F6 0E F8 00 93 74 |SKCHECK..t.....t|
00001C90: 00 0F 27 00 A1 74 0A 0F EE 52 45 4E 41 4D 45 3A |..'..t...RENAME:|
00001CA0: F8 00 C9 74 14 0F 9F 31 2C 38 2C 31 35 2C 22 52 |...t...1,8,15,"R|
00001CB0: 22 AA 42 24 AA 22 3D 22 AA 41 24 3A A0 31 3A F9 |".B$."=".A$:.1:.|
00001CC0: 44 49 53 4B 43 48 45 43 4B 00 CF 74 1E 0F F8 00 |DISKCHECK..t....|
00001CD0: D5 74 28 0F 27 00 05 75 3C 0F EE 53 41 56 45 3A |.t(.'..u<..SAVE:|
00001CE0: F7 41 24 3A F9 46 49 4C 45 4E 41 4D 45 28 41 24 |.A$:.FILENAME(A$|
00001CF0: 2C 22 46 49 4C 45 4E 41 4D 45 22 29 3A F9 53 56 |,"FILENAME"):.SV|
00001D00: 45 28 41 24 29 00 0B 75 46 0F F8 00 11 75 50 0F |E(A$)..uF....uP.|
00001D10: 27 00 41 75 5A 0F EE 4C 4F 41 44 3A F7 41 24 3A |'.AuZ..LOAD:.A$:|
00001D20: F9 46 49 4C 45 4E 41 4D 45 28 41 24 2C 22 46 49 |.FILENAME(A$,"FI|
00001D30: 4C 45 4E 41 4D 45 22 29 3A F9 4C 4F 44 28 41 24 |LENAME"):.LOD(A$|
00001D40: 29 00 47 75 64 0F F8 00 4D 75 6E 0F 27 00 67 75 |).Gud...Mun.'.gu|
00001D50: 73 0F EE 44 49 52 45 43 54 4F 52 59 3A F7 58 2C |s..DIRECTORY:.X,|
00001D60: 59 2C 59 24 2C 41 24 00 9D 75 74 0F F9 46 49 4C |Y,Y$,A$..ut..FIL|
00001D70: 45 4E 41 4D 45 28 41 24 2C 22 45 4E 54 45 52 20 |ENAME(A$,"ENTER |
00001D80: 44 52 49 56 45 20 4F 52 20 3C 43 52 3E 22 29 3A |DRIVE OR <CR>"):|
00001D90: 9F 31 2C 38 2C 30 2C 22 24 22 AA 41 24 00 CB 75 |.1,8,0,"$".A$..u|
00001DA0: 78 0F A1 23 31 2C 41 24 3A A1 23 31 2C 41 24 3A |x..#1,A$:.#1,A$:|
00001DB0: E9 53 54 B2 30 3A A1 23 31 2C 41 24 3A A1 23 31 |.ST.0:.#1,A$:.#1|
00001DC0: 2C 41 24 3A 8B 53 54 B3 B1 30 F0 00 09 76 7D 0F |,A$:.ST..0...v}.|
00001DD0: 58 B2 D1 44 49 53 4B 43 48 52 3A 59 B2 D1 44 49 |X..DISKCHR:Y..DI|
00001DE0: 53 4B 43 48 52 3A 59 24 B2 C4 28 58 AA 59 AC 32 |SKCHR:Y$..(X.Y.2|
00001DF0: 35 36 29 AA 22 20 22 3A E7 3A A1 23 31 2C 41 24 |56)." ":.:.#1,A$|
00001E00: 3A 59 24 B2 59 24 AA 41 24 00 4C 76 82 0F E8 41 |:Y$.Y$.A$.Lv...A|
00001E10: 24 B2 22 22 B0 53 54 B3 B1 30 3A 99 40 30 2C 31 |$."".ST..0:.@0,1|
00001E20: 36 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |6;" |
00001E30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001E40: 20 20 20 20 20 20 20 20 20 20 20 22 00 6D 76 87 | ".mv.|
00001E50: 0F F9 49 4E 50 24 28 41 24 2C 59 24 29 3A 8B 41 |..INP$(A$,Y$):.A|
00001E60: 24 B2 22 58 22 B0 53 54 B3 B1 30 A7 F0 00 78 76 |$."X".ST..0...xv|
00001E70: 8C 0F EA 3A A0 31 3A F8 00 A5 76 91 0F EE 44 49 |...:.1:...v...DI|
00001E80: 53 4B 43 48 52 3A F7 41 24 2C 41 3A A1 23 31 2C |SKCHR:.A$,A:.#1,|
00001E90: 41 24 3A 8B 41 24 B2 22 22 A7 41 B2 30 CC 41 B2 |A$:.A$."".A.0.A.|
00001EA0: C6 28 41 24 29 00 AC 76 96 0F B2 41 00 B2 76 9B |.(A$)..v...A..v.|
00001EB0: 0F 27 00 BF 76 A0 0F EE 53 3A F7 49 2C 58 25 00 |.'..v...S:.I,X%.|
00001EC0: DF 76 AA 0F 58 25 B2 E4 3A E4 B2 DF 3A DF B2 58 |.v..X%..:...:..X|
00001ED0: 25 3A 58 25 B2 E3 3A E3 B2 DE 3A DE B2 58 25 00 |%:X%..:...:..X%.|
00001EE0: F3 76 B4 0F 58 25 B2 E2 3A E2 B2 DD 3A DD B2 58 |.v..X%..:...:..X|
00001EF0: 25 3A F8 00 F9 76 B9 0F 27 00 34 77 BE 0F EE 45 |%:...v..'.4w...E|
00001F00: 31 3A F7 42 24 3A F9 49 4E 50 24 28 42 24 2C 22 |1:.B$:.INP$(B$,"|
00001F10: 53 50 52 49 54 45 20 50 41 52 41 4D 45 54 45 52 |SPRITE PARAMETER|
00001F20: 20 4F 55 54 20 4F 46 20 52 41 4E 47 45 20 3C 43 | OUT OF RANGE <C|
00001F30: 52 3E 22 29 00 3E 77 BF 0F E4 B2 30 3A F8 00 45 |R>").>w....0:..E|
00001F40: 77 C0 0F 20 27 00 5B 77 D2 0F EE 43 48 53 45 3A |w.. '.[w...CHSE:|
00001F50: F7 58 2C 42 24 3A 45 52 25 B2 30 00 83 77 DC 0F |.X,B$:ER%.0..w..|
00001F60: 58 B2 01 7A 28 E4 29 3A 48 25 B2 E0 3A 4C 25 B2 |X..z(.):H%..:L%.|
00001F70: E1 3A E0 B2 53 31 25 28 33 29 3A E1 B2 53 31 25 |.:..S1%(3):..S1%|
00001F80: 28 34 29 00 BC 77 E6 0F 8B 58 B3 30 A7 F9 49 4E |(4)..w...X.0..IN|
00001F90: 50 24 28 42 24 2C 22 53 50 52 49 54 45 20 4E 4F |P$(B$,"SPRITE NO|
00001FA0: 54 20 44 45 46 49 4E 45 44 20 50 52 45 53 53 20 |T DEFINED PRESS |
00001FB0: 3C 43 52 3E 22 29 3A 45 52 25 B2 31 00 C2 77 F0 |<CR>"):ER%.1..w.|
00001FC0: 0F F8 00 C8 77 F5 0F 27 00 DF 77 04 10 EE 43 48 |....w..'..w...CH|
00001FD0: 53 44 45 3A F7 58 2C 42 24 3A 45 52 25 B2 30 00 |SDE:.X,B$:ER%.0.|
00001FE0: 07 78 0E 10 58 B2 01 7A 28 E4 29 3A 48 25 B2 E0 |.x..X..z(.):H%..|
00001FF0: 3A 4C 25 B2 E1 3A E0 B2 53 31 25 28 33 29 3A E1 |:L%..:..S1%(3):.|
00002000: B2 53 31 25 28 34 29 00 44 78 18 10 8B 58 B1 30 |.S1%(4).Dx...X.0|
00002010: A7 F9 49 4E 50 24 28 42 24 2C 22 53 50 52 49 54 |..INP$(B$,"SPRIT|
00002020: 45 20 41 4C 52 45 41 44 59 20 44 45 46 49 4E 45 |E ALREADY DEFINE|
00002030: 44 20 50 52 45 53 53 20 3C 43 52 3E 22 29 3A 45 |D PRESS <CR>"):E|
00002040: 52 25 B2 31 00 4A 78 22 10 F8 00 50 78 27 10 27 |R%.1.Jx"...Px'.'|
00002050: 00 56 78 59 10 27 00 86 78 68 10 EE 4D 4F 44 45 |.VxY.'..xh..MODE|
00002060: 34 3A E7 3A F9 41 41 3A F9 46 46 3A 8B 01 7B 28 |4:.:.AA:.FF:..{(|
00002070: 33 39 29 A7 F9 4D 4F 56 45 57 CC 8B 01 7B 28 35 |39)..MOVEW...{(5|
00002080: 37 29 F9 43 48 57 00 98 78 6D 10 8B A8 01 7B 28 |7).CHW..xm....{(|
00002090: 31 39 29 A7 34 32 33 35 00 CD 78 72 10 8B A8 01 |19).4235..xr....|
000020A0: 7B 28 31 39 29 3A F9 49 4E 50 25 28 22 45 4E 54 |{(19):.INP%("ENT|
000020B0: 45 52 20 53 50 52 49 54 45 20 4E 55 4D 42 45 52 |ER SPRITE NUMBER|
000020C0: 22 2C 53 25 29 3A CC 3A 89 34 32 31 30 00 EB 78 |",S%):.:.4210..x|
000020D0: 7C 10 8B A8 D1 45 52 28 31 2C 53 25 2C 32 35 35 ||....ER(1,S%,255|
000020E0: 29 A7 F9 45 31 3A 89 34 32 33 35 00 0D 79 81 10 |)..E1:.4235..y..|
000020F0: 8B CE 28 24 32 46 46 45 29 AA 31 30 AC E0 AC E1 |..($2FFE).10....|
00002100: AA 37 B1 24 42 46 46 46 A7 34 33 38 30 00 41 79 |.7.$BFFF.4380.Ay|
00002110: 86 10 E4 B2 53 25 3A F9 43 48 53 44 45 3A EB 45 |....S%:.CHSDE:.E|
00002120: 52 25 B2 30 3A 01 02 3A 01 3D 3A F9 53 4D 50 28 |R%.0:..:.=:.SMP(|
00002130: 4D 28 29 29 3A F9 53 45 54 31 28 53 31 25 28 29 |M()):.SET1(S1%()|
00002140: 29 00 61 79 87 10 DF B2 53 25 3A DE B2 30 3A DD |).ay....S%:..0:.|
00002150: B2 30 3A F9 52 45 54 32 28 53 32 25 28 29 29 3A |.0:.RET2(S2%()):|
00002160: ED 00 67 79 8B 10 27 00 79 79 8C 10 8B A8 01 7B |..gy..'.yy.....{|
00002170: 28 31 33 29 A7 34 32 36 35 00 AD 79 90 10 8B A8 |(13).4265..y....|
00002180: 01 7B 28 31 33 29 3A F9 49 4E 50 25 28 22 45 4E |.{(13):.INP%("EN|
00002190: 54 45 52 20 53 50 52 49 54 45 20 4E 55 4D 42 45 |TER SPRITE NUMBE|
000021A0: 52 22 2C 53 25 29 3A CC 89 34 32 34 30 00 CB 79 |R",S%):..4240..y|
000021B0: 9A 10 8B A8 D1 45 52 28 31 2C 53 25 2C 32 35 35 |.....ER(1,S%,255|
000021C0: 29 A7 F9 45 31 3A 89 34 32 36 35 00 FB 79 A4 10 |)..E1:.4265..y..|
000021D0: E4 B2 53 25 3A F9 43 48 53 45 3A EB 45 52 25 B2 |..S%:.CHSE:.ER%.|
000021E0: 30 3A 01 3E 3A F9 53 4D 50 28 4D 28 29 29 3A F9 |0:.>:.SMP(M()):.|
000021F0: 53 45 54 31 28 53 31 25 28 29 29 00 1B 7A A5 10 |SET1(S1%())..z..|
00002200: DF B2 53 25 3A DE B2 30 3A DD B2 30 3A F9 52 45 |..S%:..0:..0:.RE|
00002210: 54 32 28 53 32 25 28 29 29 3A ED 00 21 7A A9 10 |T2(S2%()):..!z..|
00002220: 27 00 32 7A AA 10 8B A8 01 7B 28 39 29 A7 34 32 |'.2z.....{(9).42|
00002230: 39 35 00 64 7A AE 10 8B A8 01 7B 28 39 29 A7 F9 |95.dz.....{(9)..|
00002240: 49 4E 50 25 28 22 45 4E 54 45 52 20 53 50 52 49 |INP%("ENTER SPRI|
00002250: 54 45 20 4E 55 4D 42 45 52 22 2C 53 25 29 CC 89 |TE NUMBER",S%)..|
00002260: 34 32 37 30 00 82 7A B8 10 8B A8 D1 45 52 28 31 |4270..z.....ER(1|
00002270: 2C 53 25 2C 32 35 35 29 A7 F9 45 31 3A 89 34 32 |,S%,255)..E1:.42|
00002280: 39 35 00 B1 7A C2 10 E4 B2 53 25 3A F9 43 48 53 |95..z....S%:.CHS|
00002290: 45 3A 8B 45 52 25 B2 30 01 03 3A F9 53 4D 50 28 |E:.ER%.0..:.SMP(|
000022A0: 4D 28 29 29 3A F9 53 45 54 31 28 53 31 25 28 29 |M()):.SET1(S1%()|
000022B0: 29 00 B7 7A C7 10 27 00 C7 7A C8 10 8B 01 7B 28 |)..z..'..z....{(|
000022C0: 31 37 29 F9 41 46 4C 00 D7 7A C9 10 8B 01 7B 28 |17).AFL..z....{(|
000022D0: 35 37 29 F9 43 48 57 00 E9 7A CB 10 8B A8 01 7B |57).CHW..z.....{|
000022E0: 28 33 34 29 A7 34 34 30 30 00 1B 7B CC 10 8B A8 |(34).4400..{....|
000022F0: 01 7B 28 33 34 29 F9 49 4E 50 25 28 22 45 4E 54 |.{(34).INP%("ENT|
00002300: 45 52 20 53 50 52 49 54 45 20 4E 55 4D 42 45 52 |ER SPRITE NUMBER|
00002310: 22 2C 53 25 29 CC 89 34 33 30 30 00 39 7B D6 10 |",S%)..4300.9{..|
00002320: 8B A8 D1 45 52 28 31 2C 53 25 2C 32 35 35 29 A7 |...ER(1,S%,255).|
00002330: F9 45 31 3A 89 34 34 30 30 00 55 7B E0 10 E4 B2 |.E1:.4400.U{....|
00002340: 53 25 3A F9 43 48 53 44 45 3A 8B 45 52 25 B2 31 |S%:.CHSDE:.ER%.1|
00002350: A7 34 34 30 30 00 86 7B EA 10 F9 49 4E 50 25 28 |.4400..{...INP%(|
00002360: 22 45 4E 54 45 52 20 48 45 49 47 48 54 22 2C 48 |"ENTER HEIGHT",H|
00002370: 25 29 3A 8B D1 45 52 28 31 2C 48 25 2C 32 35 35 |%):..ER(1,H%,255|
00002380: 29 89 34 33 35 30 00 BB 7B F4 10 F9 49 4E 50 24 |).4350..{...INP$|
00002390: 28 42 24 2C 22 48 45 49 47 48 54 20 4F 55 54 20 |(B$,"HEIGHT OUT |
000023A0: 4F 46 20 52 41 4E 47 45 20 50 52 45 53 53 20 3C |OF RANGE PRESS <|
000023B0: 43 52 3E 22 29 3A 89 34 34 30 30 00 EB 7B FE 10 |CR>"):.4400..{..|
000023C0: F9 49 4E 50 25 28 22 45 4E 54 45 52 20 57 49 44 |.INP%("ENTER WID|
000023D0: 54 48 22 2C 57 25 29 3A 8B D1 45 52 28 31 2C 57 |TH",W%):..ER(1,W|
000023E0: 25 2C 32 35 35 29 A7 34 33 37 30 00 1F 7C 08 11 |%,255).4370..|..|
000023F0: F9 49 4E 50 24 28 42 24 2C 22 57 49 44 54 48 20 |.INP$(B$,"WIDTH |
00002400: 4F 55 54 20 4F 46 20 52 41 4E 47 45 20 50 52 45 |OUT OF RANGE PRE|
00002410: 53 53 20 3C 43 52 3E 22 29 3A 89 34 34 30 30 00 |SS <CR>"):.4400.|
00002420: 43 7C 12 11 8B CE 28 24 32 46 46 45 29 AA 31 30 |C|....($2FFE).10|
00002430: AC 48 25 AC 57 25 AA 37 B3 24 43 30 30 30 A7 34 |.H%.W%.7.$C000.4|
00002440: 33 39 30 00 7E 7C 1C 11 F9 49 4E 50 24 28 42 24 |390.~|...INP$(B$|
00002450: 2C 22 49 4E 53 55 46 46 49 43 49 45 4E 54 20 53 |,"INSUFFICIENT S|
00002460: 50 52 49 54 45 20 53 50 41 43 45 20 50 52 45 53 |PRITE SPACE PRES|
00002470: 53 20 3C 43 52 3E 22 29 3A 89 34 34 30 30 00 AB |S <CR>"):.4400..|
00002480: 7C 26 11 E4 B2 53 25 3A E0 B2 48 25 3A E1 B2 57 ||&...S%:..H%:..W|
00002490: 25 3A 01 02 3A F9 53 4D 50 28 4D 28 29 29 3A F9 |%:..:.SMP(M()):.|
000024A0: 53 45 54 31 28 53 31 25 28 29 29 00 B1 7C 30 11 |SET1(S1%())..|0.|
000024B0: 27 00 C3 7C 35 11 8B A8 01 7B 28 31 32 29 A7 34 |'..|5....{(12).4|
000024C0: 34 35 30 00 F5 7C 3A 11 8B A8 01 7B 28 31 32 29 |450..|:....{(12)|
000024D0: F9 49 4E 50 25 28 22 45 4E 54 45 52 20 53 50 52 |.INP%("ENTER SPR|
000024E0: 49 54 45 20 4E 55 4D 42 45 52 22 2C 53 25 29 CC |ITE NUMBER",S%).|
000024F0: 89 34 34 31 30 00 13 7D 44 11 8B A8 D1 45 52 28 |.4410..}D....ER(|
00002500: 31 2C 53 25 2C 32 35 35 29 A7 F9 45 31 3A 89 34 |1,S%,255)..E1:.4|
00002510: 34 35 30 00 2E 7D 4E 11 E4 B2 53 25 3A F9 43 48 |450..}N...S%:.CH|
00002520: 53 45 3A 8B 45 52 25 B2 31 89 34 34 35 30 00 49 |SE:.ER%.1.4450.I|
00002530: 7D 58 11 F9 53 4D 50 28 4D 28 29 29 3A F9 53 45 |}X..SMP(M()):.SE|
00002540: 54 31 28 53 31 25 28 29 29 00 4F 7D 62 11 27 00 |T1(S1%()).O}b.'.|
00002550: 61 7D 67 11 8B A8 01 7B 28 31 30 29 A7 34 35 34 |a}g....{(10).454|
00002560: 35 00 93 7D 6C 11 8B A8 01 7B 28 31 30 29 F9 49 |5..}l....{(10).I|
00002570: 4E 50 25 28 22 45 4E 54 45 52 20 53 50 52 49 54 |NP%("ENTER SPRIT|
00002580: 45 20 4E 55 4D 42 45 52 22 2C 53 25 29 CC 89 34 |E NUMBER",S%)..4|
00002590: 34 36 30 00 B1 7D 76 11 8B A8 D1 45 52 28 31 2C |460..}v....ER(1,|
000025A0: 53 25 2C 32 35 35 29 A7 F9 45 31 3A 89 34 35 34 |S%,255)..E1:.454|
000025B0: 35 00 D8 7D 8A 11 F9 49 4E 50 25 28 22 45 4E 54 |5..}...INP%("ENT|
000025C0: 45 52 20 4E 55 4D 42 45 52 20 49 4E 20 53 45 52 |ER NUMBER IN SER|
000025D0: 49 45 53 22 2C 4E 25 29 00 F9 7D 94 11 8B A8 D1 |IES",N%)..}.....|
000025E0: 45 52 28 31 2C 53 25 AA 4E 25 2C 32 35 36 29 A7 |ER(1,S%.N%,256).|
000025F0: F9 45 31 3A 89 34 35 34 35 00 1C 7E 9E 11 F9 49 |.E1:.4545..~...I|
00002600: 4E 50 25 28 22 45 4E 54 45 52 20 44 45 4C 41 59 |NP%("ENTER DELAY|
00002610: 20 46 41 43 54 4F 52 22 2C 44 25 29 00 2E 7E A8 | FACTOR",D%)..~.|
00002620: 11 81 49 B2 53 25 A4 53 25 AA 4E 25 AB 31 00 56 |..I.S%.S%.N%.1.V|
00002630: 7E B2 11 E4 B2 49 3A F9 43 48 53 45 3A 8B 45 52 |~....I:.CHSE:.ER|
00002640: 25 B2 31 A7 F9 53 45 54 31 28 53 31 25 28 29 29 |%.1..SET1(S1%())|
00002650: 3A 89 34 35 34 35 00 5D 7E B3 11 82 49 00 76 7E |:.4545.]~...I.v~|
00002660: B7 11 81 49 B2 53 25 A4 53 25 AA 4E 25 AB 31 3A |...I.S%.S%.N%.1:|
00002670: E4 B2 49 3A 01 3E 00 A9 7E BC 11 81 4A B2 31 A4 |..I:.>..~...J.1.|
00002680: 44 25 3A 82 4A 3A 82 49 3A F9 53 4D 50 28 4D 28 |D%:.J:.I:.SMP(M(|
00002690: 29 29 3A F9 53 45 54 31 28 53 31 25 28 29 29 3A |)):.SET1(S1%()):|
000026A0: DF B2 53 25 AA 4E 25 AB 31 00 BA 7E BD 11 F9 52 |..S%.N%.1..~...R|
000026B0: 45 54 32 28 53 32 25 28 29 29 00 C0 7E C1 11 27 |ET2(S2%())..~..'|
000026C0: 00 D3 7E C2 11 8B 01 7B 28 33 39 29 A7 F9 4D 4F |..~....{(39)..MO|
000026D0: 56 45 57 00 E5 7E C6 11 8B A8 01 7B 28 33 36 29 |VEW..~.....{(36)|
000026E0: A7 34 38 36 30 00 1F 7F D0 11 8B A8 01 7B 28 33 |.4860........{(3|
000026F0: 36 29 A7 F9 49 4E 50 25 28 22 45 4E 54 45 52 20 |6)..INP%("ENTER |
00002700: 54 41 52 47 45 54 20 53 50 52 49 54 45 20 4E 55 |TARGET SPRITE NU|
00002710: 4D 42 45 52 22 2C 53 25 29 CC 89 34 35 36 30 00 |MBER",S%)..4560.|
00002720: 3A 7F E4 11 E4 B2 53 25 3A F9 43 48 53 45 3A 8B |:.....S%:.CHSE:.|
00002730: 45 52 25 B2 31 A7 34 39 36 30 00 5F 7F EE 11 F9 |ER%.1.4960._....|
00002740: 49 4E 50 25 28 22 45 4E 54 45 52 20 54 41 52 47 |INP%("ENTER TARG|
00002750: 45 54 20 43 4F 4C 55 4D 4E 22 2C 43 32 25 29 00 |ET COLUMN",C2%).|
00002760: 7E 7F F8 11 8B A8 D1 45 52 28 30 2C 43 32 25 2C |~......ER(0,C2%,|
00002770: 32 35 35 29 A7 F9 45 31 3A 89 34 39 36 30 00 A0 |255)..E1:.4960..|
00002780: 7F 02 12 F9 49 4E 50 25 28 22 45 4E 54 45 52 20 |....INP%("ENTER |
00002790: 54 41 52 47 45 54 20 52 4F 57 22 2C 52 32 25 29 |TARGET ROW",R2%)|
000027A0: 00 BE 7F 0C 12 8B A8 D1 45 52 28 30 2C 52 32 25 |........ER(0,R2%|
000027B0: 2C 32 35 35 29 F9 45 31 3A 89 34 39 36 30 00 DF |,255).E1:.4960..|
000027C0: 7F 16 12 E3 B2 43 32 25 3A E2 B2 52 32 25 3A 48 |.....C2%:..R2%:H|
000027D0: 32 25 B2 48 25 3A 4C 32 25 B2 4C 25 3A F9 53 00 |2%.H%:L2%.L%:.S.|
000027E0: 0A 80 20 12 F9 49 4E 50 25 28 22 45 4E 54 45 52 |.. ..INP%("ENTER|
000027F0: 20 53 4F 55 52 43 45 20 53 50 52 49 54 45 20 4E | SOURCE SPRITE N|
00002800: 55 4D 42 45 52 22 2C 53 25 29 00 27 80 2A 12 8B |UMBER",S%).'.*..|
00002810: A8 D1 45 52 28 30 2C 53 25 2C 32 35 35 29 F9 45 |..ER(0,S%,255).E|
00002820: 31 3A 89 34 39 36 30 00 42 80 34 12 E4 B2 53 25 |1:.4960.B.4...S%|
00002830: 3A F9 43 48 53 45 3A 8B 45 52 25 B2 31 A7 34 39 |:.CHSE:.ER%.1.49|
00002840: 36 30 00 67 80 3E 12 F9 49 4E 50 25 28 22 45 4E |60.g.>..INP%("EN|
00002850: 54 45 52 20 53 4F 55 52 43 45 20 43 4F 4C 55 4D |TER SOURCE COLUM|
00002860: 4E 22 2C 43 31 25 29 00 86 80 48 12 8B A8 D1 45 |N",C1%)...H....E|
00002870: 52 28 30 2C 43 31 25 2C 32 35 35 29 A7 F9 45 31 |R(0,C1%,255)..E1|
00002880: 3A 89 34 39 36 30 00 A8 80 52 12 F9 49 4E 50 25 |:.4960...R..INP%|
00002890: 28 22 45 4E 54 45 52 20 53 4F 55 52 43 45 20 52 |("ENTER SOURCE R|
000028A0: 4F 57 22 2C 52 31 25 29 00 C7 80 5C 12 8B A8 D1 |OW",R1%)...\....|
000028B0: 45 52 28 30 2C 52 31 25 2C 32 35 35 29 A7 F9 45 |ER(0,R1%,255)..E|
000028C0: 31 3A 89 34 39 36 30 00 E5 80 66 12 E3 B2 43 31 |1:.4960...f...C1|
000028D0: 25 3A E2 B2 52 31 25 3A 48 31 25 B2 48 25 3A 4C |%:..R1%:H1%.H%:L|
000028E0: 31 25 B2 4C 25 00 08 81 70 12 F9 49 4E 50 25 28 |1%.L%...p..INP%(|
000028F0: 22 45 4E 54 45 52 20 57 49 4E 44 4F 57 20 57 49 |"ENTER WINDOW WI|
00002900: 44 54 48 22 2C 4C 25 29 00 25 81 7A 12 8B A8 D1 |DTH",L%).%.z....|
00002910: 45 52 28 31 2C 4C 25 2C 32 35 35 29 F9 45 31 3A |ER(1,L%,255).E1:|
00002920: 89 34 39 36 30 00 49 81 84 12 F9 49 4E 50 25 28 |.4960.I....INP%(|
00002930: 22 45 4E 54 45 52 20 57 49 4E 44 4F 57 20 48 45 |"ENTER WINDOW HE|
00002940: 49 47 48 54 22 2C 48 25 29 00 67 81 8E 12 8B A8 |IGHT",H%).g.....|
00002950: D1 45 52 28 30 2C 48 25 2C 32 35 35 29 A7 F9 45 |.ER(0,H%,255)..E|
00002960: 31 3A 89 34 39 36 30 00 75 81 98 12 E0 B2 48 25 |1:.4960.u.....H%|
00002970: 3A E1 B2 4C 25 00 95 81 A2 12 F9 49 4E 50 24 28 |:..L%......INP$(|
00002980: 42 24 2C 22 45 4E 54 45 52 20 4F 50 45 52 41 54 |B$,"ENTER OPERAT|
00002990: 49 4F 4E 22 29 00 AA 81 AC 12 8B 42 24 B2 22 42 |ION")......B$."B|
000029A0: 22 A7 01 36 3A 89 34 39 36 30 00 BF 81 B6 12 8B |"..6:.4960......|
000029B0: 42 24 B2 22 41 22 A7 01 38 3A 89 34 39 36 30 00 |B$."A"..8:.4960.|
000029C0: D4 81 C0 12 8B 42 24 B2 22 4F 22 A7 01 39 3A 89 |.....B$."O"..9:.|
000029D0: 34 39 36 30 00 E9 81 CA 12 8B 42 24 B2 22 45 22 |4960......B$."E"|
000029E0: A7 01 37 3A 89 34 39 36 30 00 0B 82 D4 12 8B 42 |..7:.4960......B|
000029F0: 24 B3 B1 22 53 22 AF 42 24 B3 B1 22 58 22 AF 42 |$.."S".B$.."X".B|
00002A00: 24 B3 B1 22 59 22 A7 34 39 36 30 00 34 82 D6 12 |$.."Y".4960.4...|
00002A10: 8B 28 43 31 25 AA 4C 25 29 B1 4C 31 25 B0 28 52 |.(C1%.L%).L1%.(R|
00002A20: 31 25 AA 48 25 29 B1 48 31 25 A7 F9 45 31 3A 89 |1%.H%).H1%..E1:.|
00002A30: 34 39 36 30 00 46 82 D8 12 8B 42 24 B3 B1 22 53 |4960.F....B$.."S|
00002A40: 22 A7 34 38 33 30 00 7B 82 DA 12 8B 28 43 32 25 |".4830.{....(C2%|
00002A50: AA 48 25 29 B3 B2 4C 32 25 AF 28 52 32 25 AA 4C |.H%)..L2%.(R2%.L|
00002A60: 25 29 B3 B2 48 32 25 A7 01 35 3A 89 34 39 36 30 |%)..H2%..5:.4960|
00002A70: 3A CC F9 45 31 3A 89 34 39 36 30 00 8D 82 DE 12 |:..E1:.4960.....|
00002A80: 8B 42 24 B3 B1 22 58 22 A7 34 38 33 36 00 C4 82 |.B$.."X".4836...|
00002A90: E0 12 8B 28 43 32 25 AA 32 AC 4C 25 29 B3 B2 4C |...(C2%.2.L%)..L|
00002AA0: 32 25 AF 28 52 32 25 AA 48 25 29 B3 B2 48 32 25 |2%.(R2%.H%)..H2%|
00002AB0: A7 01 3B 3A 89 34 39 36 30 3A CC F9 45 31 3A 89 |..;:.4960:..E1:.|
00002AC0: 34 39 36 30 00 D6 82 E4 12 8B 42 24 B3 B1 22 59 |4960......B$.."Y|
00002AD0: 22 A7 34 38 35 30 00 0D 83 E6 12 8B 28 43 32 25 |".4850......(C2%|
00002AE0: AA 4C 25 29 B3 B2 4C 32 25 AF 28 52 32 25 AA 32 |.L%)..L2%.(R2%.2|
00002AF0: AC 48 25 29 B3 B2 48 32 25 A7 01 3C 3A 89 34 39 |.H%)..H2%..<:.49|
00002B00: 36 30 3A CC F9 45 31 3A 89 34 39 36 30 00 1E 83 |60:..E1:.4960...|
00002B10: F2 12 8B 42 24 B2 22 52 22 A7 34 39 36 30 00 31 |...B$."R".4960.1|
00002B20: 83 FC 12 E8 01 7B 28 34 37 29 AF 01 7B 28 32 38 |.....{(47)..{(28|
00002B30: 29 00 3B 83 06 13 89 4C 4F 4F 50 00 52 83 60 13 |).;....LOOP.R.`.|
00002B40: F9 53 45 54 31 28 53 31 25 28 29 29 3A 89 34 38 |.SET1(S1%()):.48|
00002B50: 36 30 00 58 83 65 13 27 00 65 83 88 13 EE 4D 4F |60.X.e.'.e....MO|
00002B60: 44 45 35 3A E7 00 77 83 92 13 8B A8 01 7B 28 34 |DE5:..w......{(4|
00002B70: 31 29 A7 35 30 33 30 00 8F 83 9C 13 8B A8 01 7B |1).5030........{|
00002B80: 28 34 31 29 F9 53 41 56 45 CC 89 35 30 32 30 00 |(41).SAVE..5020.|
00002B90: A1 83 A6 13 8B A8 01 7B 28 32 31 29 A7 35 30 35 |.......{(21).505|
00002BA0: 30 00 B9 83 B0 13 8B A8 01 7B 28 32 31 29 F9 4C |0........{(21).L|
00002BB0: 4F 41 44 CC 89 35 30 34 30 00 CB 83 BA 13 8B A8 |OAD..5040.......|
00002BC0: 01 7B 28 34 39 29 A7 35 30 37 30 00 E6 83 C4 13 |.{(49).5070.....|
00002BD0: 8B A8 01 7B 28 34 39 29 F9 53 43 52 41 54 43 48 |...{(49).SCRATCH|
00002BE0: CC 89 35 30 36 30 00 F8 83 CE 13 8B A8 01 7B 28 |..5060........{(|
00002BF0: 31 30 29 A7 35 30 39 30 00 12 84 D8 13 8B A8 01 |10).5090........|
00002C00: 7B 28 31 30 29 F9 52 45 4E 41 4D 45 CC 89 35 30 |{(10).RENAME..50|
00002C10: 38 30 00 24 84 E2 13 8B A8 01 7B 28 33 34 29 A7 |80.$......{(34).|
00002C20: 35 31 31 30 00 3C 84 EC 13 8B A8 01 7B 28 33 34 |5110.<......{(34|
00002C30: 29 F9 43 4F 50 59 CC 89 35 31 30 30 00 4E 84 F6 |).COPY..5100.N..|
00002C40: 13 8B A8 01 7B 28 31 32 29 A7 35 31 33 30 00 6C |....{(12).5130.l|
00002C50: 84 00 14 8B A8 01 7B 28 31 32 29 F9 49 4E 49 54 |......{(12).INIT|
00002C60: 49 41 4C 49 53 45 CC 89 35 31 32 30 00 7E 84 0A |IALISE..5120.~..|
00002C70: 14 8B A8 01 7B 28 35 39 29 A7 35 31 35 30 00 9A |....{(59).5150..|
00002C80: 84 14 14 8B A8 01 7B 28 35 39 29 F9 56 41 4C 49 |......{(59).VALI|
00002C90: 44 41 54 45 CC 89 35 31 34 30 00 AC 84 1E 14 8B |DATE..5140......|
00002CA0: A8 01 7B 28 31 38 29 A7 35 31 39 30 00 C9 84 28 |..{(18).5190...(|
00002CB0: 14 8B A8 01 7B 28 31 38 29 F9 44 49 52 45 43 54 |....{(18).DIRECT|
00002CC0: 4F 52 59 CC 89 35 31 36 30 00 E0 84 46 14 F9 46 |ORY..5160...F..F|
00002CD0: 46 3A E8 01 7B 28 34 37 29 AF 01 7B 28 32 38 29 |F:..{(47)..{(28)|
00002CE0: 00 E6 84 50 14 F8 00 EC 84 5A 14 27 00 FB 84 70 |...P.....Z.'...p|
00002CF0: 17 EE 50 52 41 54 3A 99 22 93 22 00 3E 85 75 17 |..PRAT:.".".>.u.|
00002D00: 99 40 30 2C 31 37 3B 22 12 9F 49 4E 4B 20 92 31 |.@0,17;"..INK .1|
00002D10: 05 3A 20 20 20 20 12 9E 20 20 20 20 20 20 20 20 |.: .. |
00002D20: 20 20 1E 4D 4F 44 45 92 05 3A 20 20 20 20 1E 12 | .MODE..: ..|
00002D30: 20 9F 20 53 50 4E 92 05 3A 20 20 20 20 22 00 82 | . SPN..: "..|
00002D40: 85 7A 17 99 40 30 2C 31 38 3B 22 12 9F 49 4E 4B |.z..@0,18;"..INK|
00002D50: 20 92 9E 32 05 3A 20 20 20 20 12 9E 32 4F 52 34 | ..2.: ..2OR4|
00002D60: 92 05 3A 20 20 20 20 12 9E 20 9C 20 20 20 20 20 |..: .. . |
00002D70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002D80: 20 22 00 C8 85 7F 17 99 40 30 2C 31 39 3B 22 12 | "......@0,19;".|
00002D90: 9F 49 4E 4B 20 92 9C 33 05 3A 20 20 20 20 12 9E |.INK ..3.: ..|
00002DA0: 20 20 20 20 20 20 20 20 20 20 9C 20 43 4F 4C 92 | . COL.|
00002DB0: 05 3A 20 20 20 20 12 9C 20 20 52 4F 57 92 05 3A |.: .. ROW..:|
00002DC0: 20 20 20 20 12 9C 20 22 00 11 86 84 17 99 40 30 | .. "......@0|
00002DD0: 2C 32 30 3B 22 12 9F 50 41 50 45 52 92 05 3A 20 |,20;"..PAPER..: |
00002DE0: 20 20 20 12 1E 41 54 54 52 92 05 3A 20 20 20 20 | ..ATTR..: |
00002DF0: 12 1E 20 9C 20 48 47 54 92 05 3A 20 20 20 20 12 |.. . HGT..: .|
00002E00: 9C 20 20 57 49 44 92 05 3A 20 20 20 20 12 9C 20 |. WID..: .. |
00002E10: 22 00 4B 86 89 17 99 40 30 2C 32 31 3B 22 12 1F |".K....@0,21;"..|
00002E20: 20 20 20 20 20 20 20 20 20 20 1F 20 20 20 20 20 | . |
00002E30: 20 20 20 20 20 9C 20 20 20 20 20 20 20 20 20 20 | . |
00002E40: 20 20 20 20 20 20 20 20 20 20 22 00 8D 86 8E 17 | ".....|
00002E50: 99 40 30 2C 32 32 3B 22 12 1F 20 43 4F 4C 32 92 |.@0,22;".. COL2.|
00002E60: 05 3A 20 20 20 20 12 1F 52 4F 57 32 92 05 3A 20 |.: ..ROW2..: |
00002E70: 20 20 20 12 1F 20 9E 53 50 53 54 92 05 3A 20 20 | .. .SPST..: |
00002E80: 20 20 20 12 9E 53 50 4E 44 92 05 3A 22 00 C3 86 | ..SPND..:"...|
00002E90: 98 17 99 40 30 2C 32 33 3B 22 12 1F 20 20 20 20 |...@0,23;".. |
00002EA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002EB0: 1E 20 20 20 53 50 52 49 54 45 20 54 45 53 54 92 |. SPRITE TEST.|
00002EC0: 05 3A 22 00 FE 86 9D 17 99 40 30 2C 32 34 3B 22 |.:"......@0,24;"|
00002ED0: 12 9C 20 20 20 20 20 20 20 20 20 20 53 50 4E 32 |.. SPN2|
00002EE0: 92 05 3A 20 20 20 20 12 9C 20 1F 20 20 20 46 52 |..: .. . FR|
00002EF0: 45 45 20 4D 45 4D 4F 52 59 92 05 3A 22 3B 00 04 |EE MEMORY..:";..|
00002F00: 87 38 18 F8 00 0F 87 40 1F EE 4D 4F 44 45 31 00 |.8.....@..MODE1.|
00002F10: 48 87 4A 1F F9 4D 50 3A EB 4D 44 25 B2 34 3A 49 |H.J..MP:.MD%.4:I|
00002F20: 4E 25 28 30 29 B2 32 3A 01 0D 3A 01 24 3A F9 44 |N%(0).2:..:.$:.D|
00002F30: 49 53 28 31 2C 49 4E 25 28 29 29 3A F9 41 46 49 |IS(1,IN%()):.AFI|
00002F40: 4E 28 49 4E 25 28 29 29 00 62 87 54 1F F9 47 52 |N(IN%()).b.T..GR|
00002F50: 49 44 31 3A ED 3A F9 45 44 54 31 24 3A 89 4C 4F |ID1:.:.EDT1$:.LO|
00002F60: 4F 50 00 68 87 5E 1F 27 00 73 87 72 1F EE 4D 4F |OP.h.^.'.s.r..MO|
00002F70: 44 45 32 00 91 87 7C 1F F9 4D 50 3A EB 4D 44 25 |DE2...|..MP:.MD%|
00002F80: B2 32 3A 49 4E 25 28 30 29 B2 34 3A 01 0E 3A 01 |.2:IN%(0).4:..:.|
00002F90: 23 00 B2 87 81 1F 4D 44 25 B2 34 3A 49 4E 25 28 |#.....MD%.4:IN%(|
00002FA0: 34 29 B2 31 35 3A F9 41 46 49 4E 28 49 4E 25 28 |4).15:.AFIN(IN%(|
00002FB0: 29 29 00 E0 87 86 1F F9 44 49 53 28 31 2C 49 4E |))......DIS(1,IN|
00002FC0: 25 28 29 29 3A F9 47 52 49 44 32 3A ED 3A 43 58 |%()):.GRID2:.:CX|
00002FD0: 25 B2 31 3A F9 45 44 54 32 24 3A 89 4C 4F 4F 50 |%.1:.EDT2$:.LOOP|
00002FE0: 00 E6 87 90 1F 27 00 F0 87 28 23 EE 4C 4F 4F 50 |.....'...(#.LOOP|
00002FF0: 00 FE 87 29 23 4D 4F 25 B2 30 3A F9 4D 50 00 21 |...)#MO%.0:.MP.!|
00003000: 88 32 23 8B 01 7B 28 34 37 29 AF 01 7B 28 37 29 |.2#..{(47)..{(7)|
00003010: A7 4D 4F 25 B2 31 3A F9 4D 50 3A 89 4D 4F 44 45 |.MO%.1:.MP:.MODE|
00003020: 31 00 45 88 3C 23 8B 01 7B 28 34 37 29 AF 01 7B |1.E.<#..{(47)..{|
00003030: 28 33 31 29 A7 4D 4F 25 B2 32 3A F9 4D 50 3A 89 |(31).MO%.2:.MP:.|
00003040: 4D 4F 44 45 32 00 68 88 46 23 8B 01 7B 28 34 37 |MODE2.h.F#..{(47|
00003050: 29 AF 01 7B 28 31 29 A7 4D 4F 25 B2 33 3A F9 4D |)..{(1).MO%.3:.M|
00003060: 50 3A F9 4D 4F 44 45 33 00 8C 88 50 23 8B 01 7B |P:.MODE3...P#..{|
00003070: 28 34 37 29 AF 01 7B 28 32 35 29 A7 4D 4F 25 B2 |(47)..{(25).MO%.|
00003080: 34 3A F9 4D 50 3A 89 4D 4F 44 45 34 00 AF 88 5A |4:.MP:.MODE4...Z|
00003090: 23 8B 01 7B 28 34 37 29 AF 01 7B 28 32 29 A7 4D |#..{(47)..{(2).M|
000030A0: 4F 25 B2 35 3A F9 4D 50 3A F9 4D 4F 44 45 35 00 |O%.5:.MP:.MODE5.|
000030B0: B9 88 64 23 89 39 30 30 31 00 BF 88 4F C3 80 00 |..d#.9001...O...|
000030C0: E0 88 50 C3 27 50 52 4F 43 50 4F 4B 45 20 50 55 |..P.'PROCPOKE PU|
000030D0: 54 53 20 4D 2F 43 20 49 4E 20 4D 45 4D 4F 52 59 |TS M/C IN MEMORY|
000030E0: 00 FA 88 5A C3 27 46 52 4F 4D 20 24 30 34 41 30 |...Z.'FROM $04A0|
000030F0: 20 54 4F 20 24 30 35 46 46 2E 00 1B 89 64 C3 27 | TO $05FF....d.'|
00003100: 50 52 4F 43 43 48 52 32 48 49 52 45 53 28 58 2C |PROCCHR2HIRES(X,|
00003110: 59 29 20 43 4F 4E 56 45 52 54 53 00 3B 89 6E C3 |Y) CONVERTS.;.n.|
00003120: 27 43 48 52 24 53 51 52 20 54 4F 20 48 49 52 45 |'CHR$SQR TO HIRE|
00003130: 53 20 41 54 20 28 58 2C 59 29 2E 00 5C 89 78 C3 |S AT (X,Y)..\.x.|
00003140: 27 50 52 4F 43 48 49 52 45 53 32 43 48 52 20 44 |'PROCHIRES2CHR D|
00003150: 4F 45 53 20 52 45 56 45 52 53 45 2E 00 81 89 82 |OES REVERSE.....|
00003160: C3 EE 50 4F 4B 45 3A F7 49 2C 4A 3A 8C 4D 43 44 |..POKE:.I,J:.MCD|
00003170: 41 54 41 3A 81 49 B2 24 34 41 30 A4 24 30 35 39 |ATA:.I.$4A0.$059|
00003180: 37 00 91 89 8C C3 87 4A 3A 97 49 2C 4A 3A 82 3A |7......J:.I,J:.:|
00003190: F8 00 D5 89 96 C3 EE 4D 43 44 41 54 41 3A 83 31 |.......MCDATA:.1|
000031A0: 36 39 2C 34 30 2C 31 33 33 2C 33 34 2C 31 36 39 |69,40,133,34,169|
000031B0: 2C 32 30 34 2C 31 33 33 2C 33 35 2C 31 36 39 2C |,204,133,35,169,|
000031C0: 38 2C 31 33 33 2C 33 37 2C 31 36 30 2C 38 2C 31 |8,133,37,160,8,1|
000031D0: 37 37 2C 33 34 00 15 8A A0 C3 83 37 33 2C 32 35 |77,34......73,25|
000031E0: 35 2C 32 30 31 2C 31 37 35 2C 31 30 32 2C 33 36 |5,201,175,102,36|
000031F0: 2C 31 33 36 2C 32 30 38 2C 32 34 35 2C 31 36 35 |,136,208,245,165|
00003200: 2C 33 36 2C 31 34 35 2C 37 33 2C 32 33 30 2C 37 |,36,145,73,230,7|
00003210: 33 2C 31 36 35 00 4F 8A AA C3 83 33 34 2C 32 34 |3,165.O....34,24|
00003220: 2C 31 30 35 2C 34 30 2C 31 33 33 2C 33 34 2C 31 |,105,40,133,34,1|
00003230: 34 34 2C 32 2C 32 33 30 2C 33 35 2C 31 39 38 2C |44,2,230,35,198,|
00003240: 33 37 2C 32 30 38 2C 32 32 32 2C 39 36 2C 30 00 |37,208,222,96,0.|
00003250: 8B 8A B4 C3 83 31 36 39 2C 34 30 2C 31 33 33 2C |.....169,40,133,|
00003260: 33 34 2C 31 36 39 2C 32 30 34 2C 31 33 33 2C 33 |34,169,204,133,3|
00003270: 35 2C 31 36 39 2C 38 2C 31 33 33 2C 33 37 2C 31 |5,169,8,133,37,1|
00003280: 36 30 2C 38 2C 31 37 37 2C 37 33 00 C7 8A BE C3 |60,8,177,73.....|
00003290: 83 31 33 33 2C 33 36 2C 32 33 30 2C 37 33 2C 31 |.133,36,230,73,1|
000032A0: 30 32 2C 33 36 2C 31 36 39 2C 34 30 2C 34 32 2C |02,36,169,40,42,|
000032B0: 37 33 2C 31 2C 31 34 35 2C 33 34 2C 31 33 36 2C |73,1,145,34,136,|
000032C0: 32 30 38 2C 32 34 34 00 02 8B C8 C3 83 31 36 35 |208,244......165|
000032D0: 2C 33 34 2C 31 30 35 2C 34 30 2C 31 33 33 2C 33 |,34,105,40,133,3|
000032E0: 34 2C 31 34 34 2C 32 2C 32 33 30 2C 33 35 2C 31 |4,144,2,230,35,1|
000032F0: 39 38 2C 33 37 2C 32 30 38 2C 32 32 32 2C 39 36 |98,37,208,222,96|
00003300: 2C 30 00 2D 8B CD C3 83 31 36 39 2C 35 33 2C 31 |,0.-....169,53,1|
00003310: 33 33 2C 31 2C 33 32 2C 32 30 38 2C 34 2C 31 36 |33,1,32,208,4,16|
00003320: 39 2C 35 35 2C 31 33 33 2C 31 2C 39 36 00 5E 8B |9,55,133,1,96.^.|
00003330: D2 C3 EE 43 48 52 32 48 49 52 45 53 28 58 2C 59 |...CHR2HIRES(X,Y|
00003340: 29 3A EF 37 33 2C 24 45 30 30 30 AA 58 AC 38 AA |):.73,$E000.X.8.|
00003350: 59 AC 33 32 30 3A 9E 24 30 34 41 30 3A F8 00 8D |Y.320:.$04A0:...|
00003360: 8B DC C3 EE 48 49 52 45 53 32 43 48 52 28 58 2C |....HIRES2CHR(X,|
00003370: 59 29 3A EF 37 33 2C 24 44 46 46 38 AA 58 AC 38 |Y):.73,$DFF8.X.8|
00003380: AA 59 AC 33 32 30 3A 9E 24 30 35 30 30 00 A0 8B |.Y.320:.$0500...|
00003390: DD C3 8B 41 46 4C 41 47 25 B2 31 A7 F9 55 50 50 |...AFLAG%.1..UPP|
000033A0: 00 A6 8B DE C3 F8 00 EE 8B E6 C3 83 31 36 39 2C |............169,|
000033B0: 32 30 34 2C 31 33 33 2C 37 36 2C 31 36 39 2C 34 |204,133,76,169,4|
000033C0: 31 2C 31 33 33 2C 37 35 2C 31 36 39 2C 38 2C 31 |1,133,75,169,8,1|
000033D0: 33 33 2C 37 37 2C 31 36 30 2C 30 2C 31 37 37 2C |33,77,160,0,177,|
000033E0: 37 35 2C 37 34 2C 37 34 2C 37 34 2C 37 34 00 37 |75,74,74,74,74.7|
000033F0: 8C F0 C3 83 31 36 32 2C 33 2C 32 32 31 2C 32 34 |....162,3,221,24|
00003400: 38 2C 35 2C 32 34 30 2C 33 2C 32 30 32 2C 32 30 |8,5,240,3,202,20|
00003410: 38 2C 32 34 38 2C 31 33 38 2C 36 2C 37 38 2C 36 |8,248,138,6,78,6|
00003420: 2C 37 38 2C 35 2C 37 38 2C 31 33 33 2C 37 38 2C |,78,5,78,133,78,|
00003430: 32 30 30 2C 32 30 30 00 7E 8C FA C3 83 31 39 32 |200,200.~....192|
00003440: 2C 38 2C 32 30 38 2C 32 32 35 2C 31 34 35 2C 37 |,8,208,225,145,7|
00003450: 33 2C 31 36 35 2C 37 35 2C 31 30 35 2C 33 39 2C |3,165,75,105,39,|
00003460: 31 33 33 2C 37 35 2C 31 34 34 2C 32 2C 32 33 30 |133,75,144,2,230|
00003470: 2C 37 36 2C 32 33 30 2C 37 33 2C 31 39 38 00 C8 |,76,230,73,198..|
00003480: 8C 04 C4 83 37 37 2C 32 30 38 2C 32 30 35 2C 39 |....77,208,205,9|
00003490: 36 2C 31 36 39 2C 35 33 2C 31 33 33 2C 31 2C 31 |6,169,53,133,1,1|
000034A0: 36 39 2C 32 30 34 2C 31 33 33 2C 37 36 2C 31 36 |69,204,133,76,16|
000034B0: 39 2C 34 30 2C 31 33 33 2C 37 35 2C 31 36 39 2C |9,40,133,75,169,|
000034C0: 38 2C 31 33 33 2C 37 37 00 12 8D 0E C4 83 31 36 |8,133,77......16|
000034D0: 30 2C 38 2C 31 37 37 2C 37 33 2C 31 33 33 2C 37 |0,8,177,73,133,7|
000034E0: 38 2C 31 36 35 2C 37 38 2C 34 31 2C 33 2C 31 37 |8,165,78,41,3,17|
000034F0: 30 2C 31 38 39 2C 32 34 38 2C 35 2C 31 30 2C 31 |0,189,248,5,10,1|
00003500: 30 2C 31 30 2C 31 30 2C 31 33 33 2C 37 39 2C 31 |0,10,10,133,79,1|
00003510: 37 37 00 5A 8D 18 C4 83 37 35 2C 34 31 2C 31 35 |77.Z....75,41,15|
00003520: 2C 35 2C 37 39 2C 31 34 35 2C 37 35 2C 31 33 36 |,5,79,145,75,136|
00003530: 2C 31 34 35 2C 37 35 2C 37 30 2C 37 38 2C 37 30 |,145,75,70,78,70|
00003540: 2C 37 38 2C 31 33 36 2C 32 30 38 2C 32 32 34 2C |,78,136,208,224,|
00003550: 32 33 30 2C 37 33 2C 31 36 35 00 9F 8D 22 C4 83 |230,73,165..."..|
00003560: 37 35 2C 32 34 2C 31 30 35 2C 34 30 2C 31 33 33 |75,24,105,40,133|
00003570: 2C 37 35 2C 31 34 34 2C 32 2C 32 33 30 2C 37 36 |,75,144,2,230,76|
00003580: 2C 31 39 38 2C 37 37 2C 32 30 38 2C 32 30 31 2C |,198,77,208,201,|
00003590: 31 36 39 2C 35 35 2C 31 33 33 2C 31 2C 39 36 00 |169,55,133,1,96.|
000035A0: D0 8D 7C C4 EE 43 48 52 34 48 49 52 45 53 28 58 |..|..CHR4HIRES(X|
000035B0: 2C 59 29 3A EF 37 33 2C 24 44 46 46 38 AA 58 AC |,Y):.73,$DFF8.X.|
000035C0: 38 AA 59 AC 33 32 30 3A 9E 24 30 35 30 43 3A F8 |8.Y.320:.$050C:.|
000035D0: 00 01 8E E0 C4 EE 48 49 52 45 53 34 43 48 52 28 |......HIRES4CHR(|
000035E0: 58 2C 59 29 3A EF 37 33 2C 24 44 46 46 38 AA 58 |X,Y):.73,$DFF8.X|
000035F0: AC 38 AA 59 AC 33 32 30 3A 9E 24 30 35 34 43 3A |.8.Y.320:.$054C:|
00003600: F8 00 24 8E 60 EA EE 53 56 45 28 5A 24 29 3A 01 |..$.`..SVE(Z$):.|
00003610: 22 31 3A 99 22 13 22 3A 20 02 24 5A 24 3A 01 22 |"1:.".": .$Z$:."|
00003620: 31 35 3A F8 00 47 8E 6A EA EE 4C 4F 44 28 5A 24 |15:..G.j..LOD(Z$|
00003630: 29 3A 01 22 31 3A 99 22 13 20 22 3A 02 23 5A 24 |):."1:.". ":.#Z$|
00003640: 3A 01 22 31 35 3A F8 00 00 00 |:."15:.... |
.X'X...********** TAPE VERSION ********.
1X...:.10.OX...HIBEEP:..1,20158:..1,3:..
MX...LOBEEP:..1,16000:..1,3:...X...SSET:
.%:..15:..1:..1,1,4,5,0:..1,O..X....250:
.!2:. 7:...X.. .TEST:.M:.S1%(5),S2%(2),I
N%(5),M(3),M%(3),TI%(4):./..Y...+..:.'..
:.&..:.%..:.SSET:TSBP.5:.START.1Y...(15:
.POKE:WX%.10:WY%.0:.0:.CW.OYD.. 6,15,18,
2,6,17,5,6,18,2.LYE.. 6,19,0,6,20,15,15,
20,0..YN.. 3,15,24,1,6,22,0,15,22,0..YX.
. 6,35,17,0,25,19,10,35,19,0,25,20,1.JYY
.. 35,20,1,25,17,0..Y... 4,25,22,40960,3
5,22,40960,35,23,40960..Z... 35,24,8192.
.Z..'.$Z...PRNT(X%,Y%,A$,Z%).QZ...@X%,Y%
;H(I(D(Z%),C(D(Z%)).1)." ",5);:..WZ..'.
HZ...INFA(.A%())..Z$.A%(0).(B($D016).$10
).8.2:.A%(0).2:A%(4).Z.15..Z..A%(3).(Z.1
6).15:.:A%(1).(Z.16).15..Z8.A%(2).Z.15:A
%(3).(Z.256).15:.:A%(5).AFLAG%:.DIS(1,A%
())..[B....[G.'..[L..AFIN(.A%()).V[V..$D
016,(B($D016).239).((A%(0).2).8):AFLAG%.
A%(5):.A%(0).2..[`.Z.A%(4).16.A%(3):.:Z.
A%(2).16.A%(1).256.A%(3)..[J..:MD%.A%(0)
:.. [O.'..[~..SET2(.A%()).O[....A%(0):..
A%(1):..A%(2):..U[..'..[...RET2(.A%())..
\..A%(0)..:A%(1)..:A%(2)..:.DIS(2,A%()):
...\..'.(\...SET1(.A%()).`\....A%(0):..A
%(1):..A%(2):..A%(3):..A%(4):MO%.A%(5):.
.F\..'.W\...RET1(.A%())..\..A%(0)..:A%(1
)..:A%(2)..:A%(3)..:A%(4)..:A%(5).MO%..\
(..DIS(3,A%()):..F\-.'.U\F..SMP(.A())..]
P.M(0).N($2FFC):M(1).N($2FFE):M(2)..X(.)
.7:M(3).$2000.M(1).M(0).+]U..M(2)..8.M(2
).0.>]Z..DIS(4,M%()):..D]_.'.K]X..DIS(I%
,.A%()):.N%,J,X%,Y%,A$,Z%,Z..]...I%.100,
110,120,130:.N%.C]...I%..4:.J.1.N%:.X%,Y
%,Z%:.BOOT%.1.Z%.A%(J.1)LA%(J.1).Z%..]..
.PRNT(X%,Y%,A$,Z%):.J:.:.J.1.4:.X%,Y%,Z.
.^...BOOT%.1.Z.M(J.1)LM(J.1).Z.=^...J.4.
@X%,Y%;H(I(D(Z),C(D(Z)).1)." ",5);.K^
...J.4.@X%,Y%;H(I(D(Z),C(D(Z)).1)." ",
4);.V^...J:.:..|^..'..^...INP$(.B$,A$)..
^...@0,15;A$;:." ";B$..^...@0,15;"
";:...
^C.'..^...INP%(A$,.X%):.B$.%_...INP$(B$,
A$):X%.QGVL(B$):.ER%..0..1510.+_....1_..
'.C_...ER(X%,Y%,Z%).V_...Y%..X%.Y%..Z%.\
_..'.._@..GVL(A$):.X%,I,Y%,E1%,E2%:ER%.0
:.C(A$).0.X%..1:.1660.P_J..F(A$).36:.I.2
.C(A$):Y%.F(J(A$,I,1)):E1%.QER(48,Y%,57)
.._T.E2%.QER(65,Y%,70):ER%.ER%.(1.E1%).(
1.E2%).3`^.X%.16.X%.E1%.(Y%.48).E2%.(Y%.
55):.I:.:.I.1.C(A$).G`H.Y%.F(J(A$,I,1)):
E1%.QER(48,Y%,57):ER%.ER%.1.E1%..`R.X.X%
.10.E1%.(Y%.48):.X.32768X%.X:LER%.1..`W.
.I:...`|..X%..`..'.V`...GRID1:.I%,J%:.0,
TSBP,0:.30,0,0,10,15,Z..A...,0,0,0,10,15
,Z:.0,TSBP,1:.,0,1,1,8,8,Z.<A...S0,0,0,"
........",0:.I.1.8:.S0,0,I,".........",
0:.I._AB...3:..0,6,6,2,2:.SET1(S1%()):..
EAG.'.QAV..FLASH$..A...40,CX%,CY%,MD%.2,
1:.SET1(S1%()):...A..'..A...BLOT1$.OA...
,0,CX%,CY%,1,1,Z:.SET1(S1%()):..UA..'..A
:..ON1..AD..0,TSBP,0:.BLOT1$:...AI.'..BL
..OFF1..BV..0,TSBP,1:.BLOT1$:..$B{.'.DB.
..MOVE$:.I:I.MD%.2:.I.2.1954.\B....{(25)
.IK%.3:.OFF1.RB ...{(1).IK%.2:.ON1.|B...
1960..B....{(25).IK%.3:.ON2..B....{(1).I
K%.2:.ON2..B....{(31).IK%.1:.ON2.VB....{
(7).IK%.0:.ON2..B....{(16)..{(38)CX%.CX%
.I:.1981:.1960.'C....{(16)...{(38)CX%.CX
%.I:.1981:.1961.OC....{(56)..{(38)CY%.CY
%.1:.1981:.1964.XC....{(56)...{(38)CY%.C
Y%.1:.1981:.1965..C...1970..C..IK%.4:...
C..'..C...FF:.FLASH$:.FLASH$.PC...MD%.2.
:.IK%:.2:.ON1:.3:.OFF1:...C...MD%.4.IK%.
.4..ON2..C.....D...CC:.CX%.1CX%.9.I..D..
.CX%.8CX%.1.#D...CY%.0CY%.8.3D...CY%.9CY
%.1.=DA..1970.CDF.'.VDP..EDT1$:IK%.4:..O
DZ..FF:.MOVE$:IK%.4:.AA..D....{(49)..EDT
I..D....{(17).AFL..D...MOVE$:..{(57):.CH
W..D....{(60)..NMI.MD....{(34)..GRID1..D
...MOVE$:..{(18):.CHR2HIRES(.,.).(E...AF
LAG%.1..AFIN(IN%()):.,0,.,.,1,1,Z:.SET1(
S1%()):..KE...MOVE$:..{(51)..HIRES2CHR(.
,.).^E....{(39)..MOVEW.ZE...MOVE$:..{(47
)..{(28):...E..'..E...GRID2:.I,J..E....:
.0,15,1:.30,0,0,10,15,Z:.AFIN(IN%()).NE.
..40,0,0,10,15..F....3:..0,6,6,2,2:..0,8
,8,16,8:..1:..0,8,8,14,6.*F ..I.1.7.2:.J
.1.8:.60,1,1,2,1,0,I,J:.:..JF"..SET1(S1%
()):.SET2(S2%()):..PF%.'.YF4..ON2.{F>..,
0,CX%,CY%,2,1,16.IN%(IK%.1)..F@..AFIN(IN
%()):.SET1(S1%()):.SET2(S2%()):...FC.'..
FJ..START.CFT..PRAT..FY...:.$:."15:BOOT%
.0:.DIS(1,IN%()):.DIS(2,S2%()).*G...DIS(
3,S1%()):.DIS(4,M%()):BOOT%.1:.AFIN(IN%(
)).<G..CX%.1:CY%.1:..BG..'.MG...MOVEW._G
...F:...{(39)....G....{(16)..{(38).QER(1
1,.,39):....1:.F:.2310..G....{(16).QER(1
0,.,39..)...{(38):....1:.F:.2311.FG.....
G....{(56)..{(38).QER(1,.,19):....1:.F:.
2310.%H....{(56).QER(0,.,14..)...{(38):.
...1:.F:.2314.<H...RET1(S1%()):.2305.BH.
.'.KH...MP:.PRNT(25,17,"",MO%):S1%(5).MO
%:..QH..'.H...EDTI:.X%..H3...{(49).2355
.PH8..INP%("INK TO BE EDITED",IK%):IK%.I
K%.1:..QER(0,IK%,3).2360..IB..INP%("NEW
VALUE",X%):..QER(0,X%,15).2370LIN%(IK%.1
).X%.3IL..AFIN(IN%()):.DIS(1,IN%()):IK%.
4:..9IV.'.DI`..MODE3.UIJ....{(9).2460.FI
O...{(17)..AFL.{IT...{(12)..4:.2455..I~.
..{(42)..T:.2455..I....{(36)..1:.2455.YI
....{(34)..3:.AFLAG%.0..,0,.,.,.,.,1:.AF
IN(IN%())..I...2460..I....{(9).2455..J..
...{(59)...{(57)..{(39)..MOVEW.*J...AA:.
.{(57).CHW.<J.....{(41).2630.QJ...F:...{
(38).2600.DJ....{(56)...1:.*.}J....{(16)
..MD%.2...L....J....{(56)..{(16).2590..J
(...{(56)....1:.*.CJ2...{(16).:.MD%.2...
L....J<...{(56)..{(16).2620..JF....{(10)
.2710..JK...{(17)..AFL..KP..F:...{(38).2
680.&KZ...{(56)...1:.).@KD...{(16).:.MD%
.2...L...XKN...{(56)..{(16).2670.LKX...{
(56)....1:.)..K....{(16).:.MD%.2...L....
K....{(56)..{(16).2700..K....{(30):..10:
..0:.RET1(S1%())..K....{(38)...15:..30:.
3:.SET1(S1%())..K.....K....{(17)..AFL..L
....{(59).2770.)L.....{(56)...{(38).277
0.GL....{(56):...8:..{(38)......AL....25
:..30:..10:..0:.).L...AFLAG%.1...15:...
0...L. ..LH..SET1(S1%()):...LR...{(49)..
EDTI..L....{(17).AFL.NL.....{(47)...{(28
).2410.TL....ZL..'..L"..F:..0:.4:.I.1.40
:.I:.4:...L,.'..MT..NMI..MY...{(60).2905
.5M^..73,$05F8:.$04A0:I.$05F8.[MH.A$."BY
TE".D(I.$05F8)." :".D(B(I))..MR..INP%(A$
,Y%):.Y%..1.Y%.256..I,Y%:.73,$05F0:.$050
0..MW..Y%..1.Y%.255.2930.FM|.I.I.1:.I.$0
600.2016L.2920.LM..'..M...EDT2$:IK%.4:..
.MB..FF:.IK%..4..ON2..NL.IK%.4:.AA..N...
MOVE$:..{(57)..CHW.HN....{(49)..I.1.4:TI
%(I).IN%(I):.:.EDTI:.ED2.SN...MOVE$.CN..
..{(17).AFL.}N...MOVE$:..{(34)..GRID2..N
0...{(18):.P:.CHR4HIRES(.,.).RN1..AFLAG%
.1..AFIN(IN%()):.,0,.,.,1,1,Z:.SET1(S1%(
)).XN2....NN...{(51):.P:.HIRES4CHR(.,.).
.OS..AFLAG%.1:.UPP..OT..I.1.4:TI%(I).IN%
(I):.:.ED2:.:..HOX..MOVE$:..{(39)..MOVEW
.]OV...{(47)..{(28):..CO{.'.YO...ED2:.A%
,I,J,K,B%..O...I.1.4:.TI%(I).IN%(I)..I:.
..O...J.1.7.2:.K.1.8:A%.B($CC00.40.K.J).
.O...((A%.16).15).TI%(I)..$CC00.40.K.J,(
(A%.15).IN%(I).16).257..P...K,J:IK%.4:..
.P..'.PP...P:.$05F8,IN%(4).256.IN%(1):.$
05FA,IN%(2).256.IN%(3):..VP..'..P...AFL:
AFLAG%.1.AFLAG%:.PRNT(15,20,"",AFLAG%):I
N%(5).AFLAG%..P...AFLAG%.0:.0..P...:.MD%
.2../.CP...MD%.4....KP...:..QP .'..P*..C
HW:...{(57)....P4....{(38).3420..Q>...{(
56).QER(2,.,255).....1.5QH...{(16).QER(2
,.,255).....1.OQR..F:.RET1(S1%()):.3370.
OQ\...{(56).QER(1,.,15..).....1..QF...{(
16).QER(1,.,39..).....1..QP..3410..QU.'.
.QZ..UPP:.-:.INFA(IN%()):...Q..'..Q...DN
N:S%..:..0:.,:..S%:...Q..'..R...AA:..{(5
)..UPPL..{(29)..DNN..RE....RJ.'.FRT..CW:
B$."":.INP$(B$,"COLD START OR WARM START
C/W").TR...I(B$,1)."W"..SMP(M()):.SET1(
S1%()):.LOOP..R...I(B$,1)."C"../:..0,15:
..:.GRID1:.SMP(M()):.LOOP..R...3540..R..
'..R...FILENAME(.X$,Y$):.INP$(X$,Y$)..S.
..C(X$).2.J(X$,2,1)..":".X$."".X$.$S$..X
$."".X$.""L.C(X$).3.X$."".X$.*S....0S8.'
.ASB..DISKCHECK:..{SL..1,A,B$,C,D: 1:.A.
.0:.INP$(B$,B$." <CR> TO CONTINUE")..SV.
...S`.'..ST..SCRATCH:...S~..DISKCHECK..S
.....S..'.AS...VALIDATE:...S...1,8,15,"V
".A$: 1:.DISKCHECK..S.....S..'.&TD..INIT
IALISE:.A$:.FILENAME(A$,"ENTER DRIVE OR
<CR>").GTI..1,8,15,"I".A$: 1:.DISKCHECK.
MTN...STX.'._T...COPY:...T...1,8,15,"C".
B$."=".A$: 1:.DISKCHECK..T.....T..'..T..
.RENAME:..IT...1,8,15,"R".B$."=".A$: 1:.
DISKCHECK.OT....UT(.'..U<..SAVE:.A$:.FIL
ENAME(A$,"FILENAME"):.SVE(A$)..UF....UP.
'.AUZ..LOAD:.A$:.FILENAME(A$,"FILENAME")
:.LOD(A$).GUD...MUN.'.GUS..DIRECTORY:.X,
Y,Y$,A$..UT..FILENAME(A$,"ENTER DRIVE OR
<CR>"):.1,8,0,"$".A$.KUX..#1,A$:.#1,A$:
.ST.0:.#1,A$:.#1,A$:.ST..0...V}.X.QDISKC
HR:Y.QDISKCHR:Y$.D(X.Y.256)." ":.:.#1,A$
:Y$.Y$.A$.LV...A$."".ST..0:.@0,16;"
".MV.
..INP$(A$,Y$):.A$."X".ST..0...XV...: 1:.
..V...DISKCHR:.A$,A:.#1,A$:.A$."".A.0LA.
F(A$)..V...A..V..'..V ..S:.I,X%..V..X%..
:...:..X%:X%..:...:..X%..V..X%..:...:..X
%:...V..'.4W...E1:.B$:.INP$(B$,"SPRITE P
ARAMETER OUT OF RANGE <CR>").>W....0:..E
W.. '.[WR..CHSE:.X,B$:ER%.0..W..X..Z(.):
H%..:L%..:..S1%(3):..S1%(4)..W...X.0..IN
P$(B$,"SPRITE NOT DEFINED PRESS <CR>"):E
R%.1.BW....HW..'..W...CHSDE:.X,B$:ER%.0.
.X..X..Z(.):H%..:L%..:..S1%(3):..S1%(4).
DX...X.0..INP$(B$,"SPRITE ALREADY DEFINE
D PRESS <CR>"):ER%.1.JX"...PX'.'.VXY.'..
XH..MODE4:.:.AA:.FF:..{(39)..MOVEWL..{(5
7).CHW..XM....{(19).4235.MXR....{(19):.I
NP%("ENTER SPRITE NUMBER",S%):L:.4210..X
|...QER(1,S%,255)..E1:.4235..Y...N($2FFE
).10.....7.$BFFF.4380.AY....S%:.CHSDE:.E
R%.0:..:.=:.SMP(M()):.SET1(S1%()).AY....
S%:..0:..0:.RET2(S2%()):..GY..'.YY.....{
(13).4265..Y.....{(13):.INP%("ENTER SPRI
TE NUMBER",S%):L.4240.KY....QER(1,S%,255
)..E1:.4265..Y....S%:.CHSE:.ER%.0:.>:.SM
P(M()):.SET1(S1%())..Z....S%:..0:..0:.RE
T2(S2%()):..!Z..'.2Z.....{(9).4295.DZ...
..{(9)..INP%("ENTER SPRITE NUMBER",S%)L.
4270..Z....QER(1,S%,255)..E1:.4295..ZB..
.S%:.CHSE:.ER%.0..:.SMP(M()):.SET1(S1%()
)..ZG.'.GZH...{(17).AFL.WZI...{(57).CHW.
.ZK....{(34).4400..{L....{(34).INP%("ENT
ER SPRITE NUMBER",S%)L.4300.9{V...QER(1,
S%,255)..E1:.4400.U{....S%:.CHSDE:.ER%.1
.4400..{...INP%("ENTER HEIGHT",H%):.QER(
1,H%,255).4350..{...INP$(B$,"HEIGHT OUT
OF RANGE PRESS <CR>"):.4400..{...INP%("E
NTER WIDTH",W%):.QER(1,W%,255).4370..|..
.INP$(B$,"WIDTH OUT OF RANGE PRESS <CR>"
):.4400.C|...N($2FFE).10.H%.W%.7.$C000.4
390.~|...INP$(B$,"INSUFFICIENT SPRITE SP
ACE PRESS <CR>"):.4400..|&...S%:..H%:..W
%:..:.SMP(M()):.SET1(S1%())..|0.'.C|5...
.{(12).4450..|:....{(12).INP%("ENTER SPR
ITE NUMBER",S%)L.4410..}D...QER(1,S%,255
)..E1:.4450..}N...S%:.CHSE:.ER%.1.4450.I
}X..SMP(M()):.SET1(S1%()).O}B.'.A}G....{
(10).4545..}L....{(10).INP%("ENTER SPRIT
E NUMBER",S%)L.4460..}V...QER(1,S%,255).
.E1:.4545.X}...INP%("ENTER NUMBER IN SER
IES",N%)..}....QER(1,S%.N%,256)..E1:.454
5..~...INP%("ENTER DELAY FACTOR",D%)..~.
..I.S%.S%.N%.1.V~....I:.CHSE:.ER%.1..SET
1(S1%()):.4545.]~...I.V~...I.S%.S%.N%.1:
..I:.>..~...J.1.D%:.J:.I:.SMP(M()):.SET1
(S1%()):..S%.N%.1..~...RET2(S2%())..~A.'
.S~B...{(39)..MOVEW..~F....{(36).4860..
P....{(36)..INP%("ENTER TARGET SPRITE NU
MBER",S%)L.4560.:....S%:.CHSE:.ER%.1.49
60._...INP%("ENTER TARGET COLUMN",C2%).
~....QER(0,C2%,255)..E1:.4960. ...INP%
("ENTER TARGET ROW",R2%)......QER(0,R2%
,255).E1:.4960......C2%:..R2%:H2%.H%:L2
%.L%:.S... ..INP%("ENTER SOURCE SPRITE N
UMBER",S%).'.*...QER(0,S%,255).E1:.4960.
B.4...S%:.CHSE:.ER%.1.4960.G.>..INP%("EN
TER SOURCE COLUMN",C1%)...H...QER(0,C1%,
255)..E1:.4960...R..INP%("ENTER SOURCE R
OW",R1%).G.\...QER(0,R1%,255)..E1:.4960.
..F...C1%:..R1%:H1%.H%:L1%.L%...P..INP%(
"ENTER WINDOW WIDTH",L%).%.Z...QER(1,L%,
255).E1:.4960.I....INP%("ENTER WINDOW HE
IGHT",H%).G.....QER(0,H%,255)..E1:.4960.
U.....H%:..L%......INP$(B$,"ENTER OPERAT
ION")......B$."B"..6:.4960......B$."A"..
8:.4960.T....B$."O"..9:.4960...J..B$."E"
..7:.4960...T..B$.."S".B$.."X".B$.."Y".4
960.4.V..(C1%.L%).L1%.(R1%.H%).H1%..E1:.
4960.F.X..B$.."S".4830.{.Z..(C2%.H%)..L2
%.(R2%.L%)..H2%..5:.4960:L.E1:.4960.....
.B$.."X".4836.D....(C2%.2.L%)..L2%.(R2%.
H%)..H2%..;:.4960:L.E1:.4960.V....B$.."Y
".4850......(C2%.L%)..L2%.(R2%.2.H%)..H2
%..<:.4960:L.E1:.4960......B$."R".4960.1
.....{(47)..{(28).;....LOOP.R.`..SET1(S1
%()):.4860.X.E.'.E....MODE5:..W......{(4
1).5030........{(41).SAVEL.5020........{
(21).5050........{(21).LOADL.5040.K.....
.{(49).5070...D....{(49).SCRATCHL.5060..
.N....{(10).5090...X....{(10).RENAMEL.50
80.$......{(34).5110.<......{(34).COPYL.
5100.N......{(12).5130.L......{(12).INIT
IALISEL.5120.~......{(59).5150........{(
59).VALIDATEL.5140........{(18).5190.I.(
....{(18).DIRECTORYL.5160...F..FF:..{(47
)..{(28)...P.....Z.'...P..PRAT:.".".>.U.
.@0,17;"..INK .1.: .. .MODE.
.: .. . SPN..: "...Z..@0,18;"..INK
..2.: ..2OR4..: .. .
".H...@0,19;"..INK ..3.: ..
. COL..: .. ROW..: .. "
......@0,20;"..PAPER..: ..ATTR..:
.. . HGT..: .. WID..: .. ".K....@
0,21;".. . .
"......@0,22;".. COL2..: ..
ROW2..: .. .SPST..: ..SPND..:".C.
...@0,23;".. . SPRI
TE TEST..:"......@0,24;".. SPN2
..: .. . FREE MEMORY..:";...8.....@
..MODE1.H.J..MP:.MD%.4:IN%(0).2:..:.$:.D
IS(1,IN%()):.AFIN(IN%()).B.T..GRID1:.:.E
DT1$:.LOOP.H.^.'.S.R..MODE2...|..MP:.MD%
.2:IN%(0).4:..:.#.....MD%.4:IN%(4).15:.A
FIN(IN%())......DIS(1,IN%()):.GRID2:.:CX
%.1:.EDT2$:.LOOP.....'...(#.LOOP...)#MO%
.0:.MP.!.2#..{(47)..{(7).MO%.1:.MP:.MODE
1.E.<#..{(47)..{(31).MO%.2:.MP:.MODE2.H.
F#..{(47)..{(1).MO%.3:.MP:.MODE3...P#..{
(47)..{(25).MO%.4:.MP:.MODE4...Z#..{(47)
..{(2).MO%.5:.MP:.MODE5...D#.9001...OC..
..PC'PROCPOKE PUTS M/C IN MEMORY...ZC'FR
OM $04A0 TO $05FF....DC'PROCCHR2HIRES(X,
Y) CONVERTS.;.NC'CHR$SQR TO HIRES AT (X,
Y)..\.XC'PROCHIRES2CHR DOES REVERSE.....
C.POKE:.I,J:.MCDATA:.I.$4A0.$0597....C.J
:.I,J:.:..U..C.MCDATA:.169,40,133,34,169
,204,133,35,169,8,133,37,160,8,177,34...
C.73,255,201,175,102,36,136,208,245,165
,36,145,73,230,73,165.O..C.34,24,105,40,
133,34,144,2,230,35,198,37,208,222,96,0.
...C.169,40,133,34,169,204,133,35,169,8,
133,37,160,8,177,73.G..C.133,36,230,73,1
02,36,169,40,42,73,1,145,34,136,208,244.
..HC.165,34,105,40,133,34,144,2,230,35,1
98,37,208,222,96,0.-.MC.169,53,133,1,32,
208,4,169,55,133,1,96.^.RC.CHR2HIRES(X,Y
):.73,$E000.X.8.Y.320:.$04A0:.....C.HIRE
S2CHR(X,Y):.73,$DFF8.X.8.Y.320:.$0500. .
.C.AFLAG%.1..UPP....C.....C.169,204,133,
76,169,41,133,75,169,8,133,77,160,0,177,
75,74,74,74,74.7..C.162,3,221,248,5,240,
3,202,208,248,138,6,78,6,78,5,78,133,78,
200,200.~..C.192,8,208,225,145,73,165,75
,105,39,133,75,144,2,230,76,230,73,198.H
..D.77,208,205,96,169,53,133,1,169,204,1
33,76,169,40,133,75,169,8,133,77....D.16
0,8,177,73,133,78,165,78,41,3,170,189,24
8,5,10,10,10,10,133,79,177.Z..D.75,41,15
,5,79,145,75,136,145,75,70,78,70,78,136,
208,224,230,73,165..."D.75,24,105,40,133
,75,144,2,230,76,198,77,208,201,169,55,1
33,1,96.P.|D.CHR4HIRES(X,Y):.73,$DFF8.X.
8.Y.320:.$050C:.....D.HIRES4CHR(X,Y):.73
,$DFF8.X.8.Y.320:.$054C:..$.`..SVE(Z$):.
"1:.".": .$Z$:."15:..G.J..LOD(Z$):."1:."
. ":.#Z$:."15:....
> CLICK IMAGE PREVIEW FOR FULL MODAL