Multiple names: SPTGEN, SPRITEGEN., BL-SPTGEN/D
FILE INFORMATION
FILENAME(S):
• SPTGEN<br>• SPRITEGEN.<br>• BL-SPTGEN/D
FILE TYPE(S): PRG
FILE SIZE: 13.8K
FIRST SEEN: 2025-11-30 16:59:37
APPEARS ON: 5 disk(s)
FILE HASH
e7fcd81846378b8c8f2877a1411be0ebbea5bee64ba211dcf0e4c290e4722e23
FOUND ON DISKS (5 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| WHITE BLK LIGHTN | SPTGEN | PRG | High Voltage Complete C64 Collection | 12 | 1 | DOWNLOAD FILE |
| DISK 38 2 | SPRITEGEN. | PRG | Curtcool, Frank | 13 | 0 | DOWNLOAD FILE |
| BASIC LIGHTNING | BL-SPTGEN/D | PRG | DuncanTwain | 23 | 2 | DOWNLOAD FILE |
| CBM64WL | SPTGEN | PRG | hedning, loot | 12 | 1 | DOWNLOAD FILE |
| BASIC LIGHTNING | BL-SPTGEN/D | PRG | hedning, shine | 23 | 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 44 49 53 43 20 56 45 52 53 49 4F 4E 20 2A |* DISC 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 03 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 30 3A 22 |,1)..":".X$."0:"|
00001B00: AA 58 24 00 29 73 24 0E 8B 58 24 B2 22 22 A7 58 |.X$.)s$..X$."".X|
00001B10: 24 B2 22 30 22 CC 8B C3 28 58 24 29 B3 33 A7 58 |$."0"...(X$).3.X|
00001B20: 24 B2 22 30 3A 22 AA 58 24 00 2F 73 2E 0E F8 00 |$."0:".X$./s....|
00001B30: 35 73 38 0E 27 00 56 73 42 0E EE 44 49 53 4B 43 |5s8.'.VsB..DISKC|
00001B40: 48 45 43 4B 3A F7 41 2C 42 24 2C 43 2C 44 3A 9F |HECK:.A,B$,C,D:.|
00001B50: 31 2C 38 2C 31 35 00 90 73 4C 0E 84 31 2C 41 2C |1,8,15..sL..1,A,|
00001B60: 42 24 2C 43 2C 44 3A A0 31 3A 8B 41 B3 B1 30 3A |B$,C,D:.1:.A..0:|
00001B70: F9 49 4E 50 24 28 42 24 2C 42 24 AA 22 20 3C 43 |.INP$(B$,B$." <C|
00001B80: 52 3E 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 29 |R> TO CONTINUE")|
00001B90: 00 96 73 56 0E F8 00 9C 73 60 0E 27 00 D8 73 74 |..sV....s`.'..st|
00001BA0: 0E EE 53 43 52 41 54 43 48 3A F7 41 24 3A F9 46 |..SCRATCH:.A$:.F|
00001BB0: 49 4C 45 4E 41 4D 45 28 41 24 2C 22 46 49 4C 45 |ILENAME(A$,"FILE|
00001BC0: 4E 41 4D 45 22 29 3A 9F 31 2C 38 2C 31 35 2C 22 |NAME"):.1,8,15,"|
00001BD0: 53 22 AA 41 24 3A A0 31 00 E7 73 7E 0E F9 44 49 |S".A$:.1..s~..DI|
00001BE0: 53 4B 43 48 45 43 4B 00 ED 73 88 0E F8 00 F3 73 |SKCHECK..s.....s|
00001BF0: 92 0E 27 00 29 74 A6 0E EE 56 41 4C 49 44 41 54 |..'.)t...VALIDAT|
00001C00: 45 3A F7 41 24 3A F9 46 49 4C 45 4E 41 4D 45 28 |E:.A$:.FILENAME(|
00001C10: 41 24 2C 22 45 4E 54 45 52 20 44 52 49 56 45 20 |A$,"ENTER DRIVE |
00001C20: 4F 52 20 3C 43 52 3E 22 29 00 4A 74 AB 0E 9F 31 |OR <CR>").Jt...1|
00001C30: 2C 38 2C 31 35 2C 22 56 22 AA 41 24 3A A0 31 3A |,8,15,"V".A$:.1:|
00001C40: F9 44 49 53 4B 43 48 45 43 4B 00 50 74 B0 0E F8 |.DISKCHECK.Pt...|
00001C50: 00 56 74 BA 0E 27 00 8E 74 C4 0E EE 49 4E 49 54 |.Vt..'..t...INIT|
00001C60: 49 41 4C 49 53 45 3A F7 41 24 3A F9 46 49 4C 45 |IALISE:.A$:.FILE|
00001C70: 4E 41 4D 45 28 41 24 2C 22 45 4E 54 45 52 20 44 |NAME(A$,"ENTER D|
00001C80: 52 49 56 45 20 4F 52 20 3C 43 52 3E 22 29 00 AF |RIVE OR <CR>")..|
00001C90: 74 C9 0E 9F 31 2C 38 2C 31 35 2C 22 49 22 AA 41 |t...1,8,15,"I".A|
00001CA0: 24 3A A0 31 3A F9 44 49 53 4B 43 48 45 43 4B 00 |$:.1:.DISKCHECK.|
00001CB0: B5 74 CE 0E F8 00 BB 74 D8 0E 27 00 F4 74 E2 0E |.t.....t..'..t..|
00001CC0: EE 43 4F 50 59 3A F7 41 24 2C 42 24 3A F9 46 49 |.COPY:.A$,B$:.FI|
00001CD0: 4C 45 4E 41 4D 45 28 41 24 2C 22 46 52 4F 4D 22 |LENAME(A$,"FROM"|
00001CE0: 29 3A F9 46 49 4C 45 4E 41 4D 45 28 42 24 2C 22 |):.FILENAME(B$,"|
00001CF0: 54 4F 22 29 00 1C 75 EC 0E 9F 31 2C 38 2C 31 35 |TO")..u...1,8,15|
00001D00: 2C 22 43 22 AA 42 24 AA 22 3D 22 AA 41 24 3A A0 |,"C".B$."=".A$:.|
00001D10: 31 3A F9 44 49 53 4B 43 48 45 43 4B 00 22 75 F6 |1:.DISKCHECK."u.|
00001D20: 0E F8 00 28 75 00 0F 27 00 63 75 0A 0F EE 52 45 |...(u..'.cu...RE|
00001D30: 4E 41 4D 45 3A F7 41 24 2C 42 24 3A F9 46 49 4C |NAME:.A$,B$:.FIL|
00001D40: 45 4E 41 4D 45 28 41 24 2C 22 4F 4C 44 22 29 3A |ENAME(A$,"OLD"):|
00001D50: F9 46 49 4C 45 4E 41 4D 45 28 42 24 2C 22 4E 45 |.FILENAME(B$,"NE|
00001D60: 57 22 29 00 8B 75 14 0F 9F 31 2C 38 2C 31 35 2C |W")..u...1,8,15,|
00001D70: 22 52 22 AA 42 24 AA 22 3D 22 AA 41 24 3A A0 31 |"R".B$."=".A$:.1|
00001D80: 3A F9 44 49 53 4B 43 48 45 43 4B 00 91 75 1E 0F |:.DISKCHECK..u..|
00001D90: F8 00 97 75 28 0F 27 00 D2 75 3C 0F EE 53 41 56 |...u(.'..u<..SAV|
00001DA0: 45 3A F7 41 24 3A F9 46 49 4C 45 4E 41 4D 45 28 |E:.A$:.FILENAME(|
00001DB0: 41 24 2C 22 46 49 4C 45 4E 41 4D 45 22 29 3A F9 |A$,"FILENAME"):.|
00001DC0: 53 56 45 28 41 24 29 3A F9 44 49 53 4B 43 48 45 |SVE(A$):.DISKCHE|
00001DD0: 43 4B 00 D8 75 46 0F F8 00 DE 75 50 0F 27 00 19 |CK..uF....uP.'..|
00001DE0: 76 5A 0F EE 4C 4F 41 44 3A F7 41 24 3A F9 46 49 |vZ..LOAD:.A$:.FI|
00001DF0: 4C 45 4E 41 4D 45 28 41 24 2C 22 46 49 4C 45 4E |LENAME(A$,"FILEN|
00001E00: 41 4D 45 22 29 3A F9 4C 4F 44 28 41 24 29 3A F9 |AME"):.LOD(A$):.|
00001E10: 44 49 53 4B 43 48 45 43 4B 00 1F 76 64 0F F8 00 |DISKCHECK..vd...|
00001E20: 25 76 6E 0F 27 00 3F 76 73 0F EE 44 49 52 45 43 |%vn.'.?vs..DIREC|
00001E30: 54 4F 52 59 3A F7 58 2C 59 2C 59 24 2C 41 24 00 |TORY:.X,Y,Y$,A$.|
00001E40: 75 76 74 0F F9 46 49 4C 45 4E 41 4D 45 28 41 24 |uvt..FILENAME(A$|
00001E50: 2C 22 45 4E 54 45 52 20 44 52 49 56 45 20 4F 52 |,"ENTER DRIVE OR|
00001E60: 20 3C 43 52 3E 22 29 3A 9F 31 2C 38 2C 30 2C 22 | <CR>"):.1,8,0,"|
00001E70: 24 22 AA 41 24 00 A3 76 78 0F A1 23 31 2C 41 24 |$".A$..vx..#1,A$|
00001E80: 3A A1 23 31 2C 41 24 3A E9 53 54 B2 30 3A A1 23 |:.#1,A$:.ST.0:.#|
00001E90: 31 2C 41 24 3A A1 23 31 2C 41 24 3A 8B 53 54 B3 |1,A$:.#1,A$:.ST.|
00001EA0: B1 30 F0 00 E1 76 7D 0F 58 B2 D1 44 49 53 4B 43 |.0...v}.X..DISKC|
00001EB0: 48 52 3A 59 B2 D1 44 49 53 4B 43 48 52 3A 59 24 |HR:Y..DISKCHR:Y$|
00001EC0: B2 C4 28 58 AA 59 AC 32 35 36 29 AA 22 20 22 3A |..(X.Y.256)." ":|
00001ED0: E7 3A A1 23 31 2C 41 24 3A 59 24 B2 59 24 AA 41 |.:.#1,A$:Y$.Y$.A|
00001EE0: 24 00 24 77 82 0F E8 41 24 B2 22 22 B0 53 54 B3 |$.$w...A$."".ST.|
00001EF0: B1 30 3A 99 40 30 2C 31 36 3B 22 20 20 20 20 20 |.0:.@0,16;" |
00001F00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001F10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001F20: 20 20 20 22 00 45 77 87 0F F9 49 4E 50 24 28 41 | ".Ew...INP$(A|
00001F30: 24 2C 59 24 29 3A 8B 41 24 B2 22 58 22 B0 53 54 |$,Y$):.A$."X".ST|
00001F40: B3 B1 30 A7 F0 00 50 77 8C 0F EA 3A A0 31 3A F8 |..0...Pw...:.1:.|
00001F50: 00 7D 77 91 0F EE 44 49 53 4B 43 48 52 3A F7 41 |.}w...DISKCHR:.A|
00001F60: 24 2C 41 3A A1 23 31 2C 41 24 3A 8B 41 24 B2 22 |$,A:.#1,A$:.A$."|
00001F70: 22 A7 41 B2 30 CC 41 B2 C6 28 41 24 29 00 84 77 |".A.0.A..(A$)..w|
00001F80: 96 0F B2 41 00 8A 77 9B 0F 27 00 97 77 A0 0F EE |...A..w..'..w...|
00001F90: 53 3A F7 49 2C 58 25 00 B7 77 AA 0F 58 25 B2 E4 |S:.I,X%..w..X%..|
00001FA0: 3A E4 B2 DF 3A DF B2 58 25 3A 58 25 B2 E3 3A E3 |:...:..X%:X%..:.|
00001FB0: B2 DE 3A DE B2 58 25 00 CB 77 B4 0F 58 25 B2 E2 |..:..X%..w..X%..|
00001FC0: 3A E2 B2 DD 3A DD B2 58 25 3A F8 00 D1 77 B9 0F |:...:..X%:...w..|
00001FD0: 27 00 0C 78 BE 0F EE 45 31 3A F7 42 24 3A F9 49 |'..x...E1:.B$:.I|
00001FE0: 4E 50 24 28 42 24 2C 22 53 50 52 49 54 45 20 50 |NP$(B$,"SPRITE P|
00001FF0: 41 52 41 4D 45 54 45 52 20 4F 55 54 20 4F 46 20 |ARAMETER OUT OF |
00002000: 52 41 4E 47 45 20 3C 43 52 3E 22 29 00 16 78 BF |RANGE <CR>")..x.|
00002010: 0F E4 B2 30 3A F8 00 1D 78 C0 0F 20 27 00 33 78 |...0:...x.. '.3x|
00002020: D2 0F EE 43 48 53 45 3A F7 58 2C 42 24 3A 45 52 |...CHSE:.X,B$:ER|
00002030: 25 B2 30 00 5B 78 DC 0F 58 B2 01 7A 28 E4 29 3A |%.0.[x..X..z(.):|
00002040: 48 25 B2 E0 3A 4C 25 B2 E1 3A E0 B2 53 31 25 28 |H%..:L%..:..S1%(|
00002050: 33 29 3A E1 B2 53 31 25 28 34 29 00 94 78 E6 0F |3):..S1%(4)..x..|
00002060: 8B 58 B3 30 A7 F9 49 4E 50 24 28 42 24 2C 22 53 |.X.0..INP$(B$,"S|
00002070: 50 52 49 54 45 20 4E 4F 54 20 44 45 46 49 4E 45 |PRITE NOT DEFINE|
00002080: 44 20 50 52 45 53 53 20 3C 43 52 3E 22 29 3A 45 |D PRESS <CR>"):E|
00002090: 52 25 B2 31 00 9A 78 F0 0F F8 00 A0 78 F5 0F 27 |R%.1..x.....x..'|
000020A0: 00 B7 78 04 10 EE 43 48 53 44 45 3A F7 58 2C 42 |..x...CHSDE:.X,B|
000020B0: 24 3A 45 52 25 B2 30 00 DF 78 0E 10 58 B2 01 7A |$:ER%.0..x..X..z|
000020C0: 28 E4 29 3A 48 25 B2 E0 3A 4C 25 B2 E1 3A E0 B2 |(.):H%..:L%..:..|
000020D0: 53 31 25 28 33 29 3A E1 B2 53 31 25 28 34 29 00 |S1%(3):..S1%(4).|
000020E0: 1C 79 18 10 8B 58 B1 30 A7 F9 49 4E 50 24 28 42 |.y...X.0..INP$(B|
000020F0: 24 2C 22 53 50 52 49 54 45 20 41 4C 52 45 41 44 |$,"SPRITE ALREAD|
00002100: 59 20 44 45 46 49 4E 45 44 20 50 52 45 53 53 20 |Y DEFINED PRESS |
00002110: 3C 43 52 3E 22 29 3A 45 52 25 B2 31 00 22 79 22 |<CR>"):ER%.1."y"|
00002120: 10 F8 00 28 79 27 10 27 00 2E 79 59 10 27 00 5E |...(y'.'..yY.'.^|
00002130: 79 68 10 EE 4D 4F 44 45 34 3A E7 3A F9 41 41 3A |yh..MODE4:.:.AA:|
00002140: F9 46 46 3A 8B 01 7B 28 33 39 29 A7 F9 4D 4F 56 |.FF:..{(39)..MOV|
00002150: 45 57 CC 8B 01 7B 28 35 37 29 F9 43 48 57 00 70 |EW...{(57).CHW.p|
00002160: 79 6D 10 8B A8 01 7B 28 31 39 29 A7 34 32 33 35 |ym....{(19).4235|
00002170: 00 A5 79 72 10 8B A8 01 7B 28 31 39 29 3A F9 49 |..yr....{(19):.I|
00002180: 4E 50 25 28 22 45 4E 54 45 52 20 53 50 52 49 54 |NP%("ENTER SPRIT|
00002190: 45 20 4E 55 4D 42 45 52 22 2C 53 25 29 3A CC 3A |E NUMBER",S%):.:|
000021A0: 89 34 32 31 30 00 C3 79 7C 10 8B A8 D1 45 52 28 |.4210..y|....ER(|
000021B0: 31 2C 53 25 2C 32 35 35 29 A7 F9 45 31 3A 89 34 |1,S%,255)..E1:.4|
000021C0: 32 33 35 00 E5 79 81 10 8B CE 28 24 32 46 46 45 |235..y....($2FFE|
000021D0: 29 AA 31 30 AC E0 AC E1 AA 37 B1 24 42 46 46 46 |).10.....7.$BFFF|
000021E0: A7 34 33 38 30 00 19 7A 86 10 E4 B2 53 25 3A F9 |.4380..z....S%:.|
000021F0: 43 48 53 44 45 3A EB 45 52 25 B2 30 3A 01 02 3A |CHSDE:.ER%.0:..:|
00002200: 01 3D 3A F9 53 4D 50 28 4D 28 29 29 3A F9 53 45 |.=:.SMP(M()):.SE|
00002210: 54 31 28 53 31 25 28 29 29 00 39 7A 87 10 DF B2 |T1(S1%()).9z....|
00002220: 53 25 3A DE B2 30 3A DD B2 30 3A F9 52 45 54 32 |S%:..0:..0:.RET2|
00002230: 28 53 32 25 28 29 29 3A ED 00 3F 7A 8B 10 27 00 |(S2%()):..?z..'.|
00002240: 51 7A 8C 10 8B A8 01 7B 28 31 33 29 A7 34 32 36 |Qz.....{(13).426|
00002250: 35 00 85 7A 90 10 8B A8 01 7B 28 31 33 29 3A F9 |5..z.....{(13):.|
00002260: 49 4E 50 25 28 22 45 4E 54 45 52 20 53 50 52 49 |INP%("ENTER SPRI|
00002270: 54 45 20 4E 55 4D 42 45 52 22 2C 53 25 29 3A CC |TE NUMBER",S%):.|
00002280: 89 34 32 34 30 00 A3 7A 9A 10 8B A8 D1 45 52 28 |.4240..z.....ER(|
00002290: 31 2C 53 25 2C 32 35 35 29 A7 F9 45 31 3A 89 34 |1,S%,255)..E1:.4|
000022A0: 32 36 35 00 D3 7A A4 10 E4 B2 53 25 3A F9 43 48 |265..z....S%:.CH|
000022B0: 53 45 3A EB 45 52 25 B2 30 3A 01 3E 3A F9 53 4D |SE:.ER%.0:.>:.SM|
000022C0: 50 28 4D 28 29 29 3A F9 53 45 54 31 28 53 31 25 |P(M()):.SET1(S1%|
000022D0: 28 29 29 00 F3 7A A5 10 DF B2 53 25 3A DE B2 30 |())..z....S%:..0|
000022E0: 3A DD B2 30 3A F9 52 45 54 32 28 53 32 25 28 29 |:..0:.RET2(S2%()|
000022F0: 29 3A ED 00 F9 7A A9 10 27 00 0A 7B AA 10 8B A8 |):...z..'..{....|
00002300: 01 7B 28 39 29 A7 34 32 39 35 00 3C 7B AE 10 8B |.{(9).4295.<{...|
00002310: A8 01 7B 28 39 29 A7 F9 49 4E 50 25 28 22 45 4E |..{(9)..INP%("EN|
00002320: 54 45 52 20 53 50 52 49 54 45 20 4E 55 4D 42 45 |TER SPRITE NUMBE|
00002330: 52 22 2C 53 25 29 CC 89 34 32 37 30 00 5A 7B B8 |R",S%)..4270.Z{.|
00002340: 10 8B A8 D1 45 52 28 31 2C 53 25 2C 32 35 35 29 |....ER(1,S%,255)|
00002350: A7 F9 45 31 3A 89 34 32 39 35 00 89 7B C2 10 E4 |..E1:.4295..{...|
00002360: B2 53 25 3A F9 43 48 53 45 3A 8B 45 52 25 B2 30 |.S%:.CHSE:.ER%.0|
00002370: 01 03 3A F9 53 4D 50 28 4D 28 29 29 3A F9 53 45 |..:.SMP(M()):.SE|
00002380: 54 31 28 53 31 25 28 29 29 00 8F 7B C7 10 27 00 |T1(S1%())..{..'.|
00002390: 9F 7B C8 10 8B 01 7B 28 31 37 29 F9 41 46 4C 00 |.{....{(17).AFL.|
000023A0: AF 7B C9 10 8B 01 7B 28 35 37 29 F9 43 48 57 00 |.{....{(57).CHW.|
000023B0: C1 7B CB 10 8B A8 01 7B 28 33 34 29 A7 34 34 30 |.{.....{(34).440|
000023C0: 30 00 F3 7B CC 10 8B A8 01 7B 28 33 34 29 F9 49 |0..{.....{(34).I|
000023D0: 4E 50 25 28 22 45 4E 54 45 52 20 53 50 52 49 54 |NP%("ENTER SPRIT|
000023E0: 45 20 4E 55 4D 42 45 52 22 2C 53 25 29 CC 89 34 |E NUMBER",S%)..4|
000023F0: 33 30 30 00 11 7C D6 10 8B A8 D1 45 52 28 31 2C |300..|.....ER(1,|
00002400: 53 25 2C 32 35 35 29 A7 F9 45 31 3A 89 34 34 30 |S%,255)..E1:.440|
00002410: 30 00 2D 7C E0 10 E4 B2 53 25 3A F9 43 48 53 44 |0.-|....S%:.CHSD|
00002420: 45 3A 8B 45 52 25 B2 31 A7 34 34 30 30 00 5E 7C |E:.ER%.1.4400.^||
00002430: EA 10 F9 49 4E 50 25 28 22 45 4E 54 45 52 20 48 |...INP%("ENTER H|
00002440: 45 49 47 48 54 22 2C 48 25 29 3A 8B D1 45 52 28 |EIGHT",H%):..ER(|
00002450: 31 2C 48 25 2C 32 35 35 29 89 34 33 35 30 00 93 |1,H%,255).4350..|
00002460: 7C F4 10 F9 49 4E 50 24 28 42 24 2C 22 48 45 49 ||...INP$(B$,"HEI|
00002470: 47 48 54 20 4F 55 54 20 4F 46 20 52 41 4E 47 45 |GHT OUT OF RANGE|
00002480: 20 50 52 45 53 53 20 3C 43 52 3E 22 29 3A 89 34 | PRESS <CR>"):.4|
00002490: 34 30 30 00 C3 7C FE 10 F9 49 4E 50 25 28 22 45 |400..|...INP%("E|
000024A0: 4E 54 45 52 20 57 49 44 54 48 22 2C 57 25 29 3A |NTER WIDTH",W%):|
000024B0: 8B D1 45 52 28 31 2C 57 25 2C 32 35 35 29 A7 34 |..ER(1,W%,255).4|
000024C0: 33 37 30 00 F7 7C 08 11 F9 49 4E 50 24 28 42 24 |370..|...INP$(B$|
000024D0: 2C 22 57 49 44 54 48 20 4F 55 54 20 4F 46 20 52 |,"WIDTH OUT OF R|
000024E0: 41 4E 47 45 20 50 52 45 53 53 20 3C 43 52 3E 22 |ANGE PRESS <CR>"|
000024F0: 29 3A 89 34 34 30 30 00 1B 7D 12 11 8B CE 28 24 |):.4400..}....($|
00002500: 32 46 46 45 29 AA 31 30 AC 48 25 AC 57 25 AA 37 |2FFE).10.H%.W%.7|
00002510: B3 24 43 30 30 30 A7 34 33 39 30 00 56 7D 1C 11 |.$C000.4390.V}..|
00002520: F9 49 4E 50 24 28 42 24 2C 22 49 4E 53 55 46 46 |.INP$(B$,"INSUFF|
00002530: 49 43 49 45 4E 54 20 53 50 52 49 54 45 20 53 50 |ICIENT SPRITE SP|
00002540: 41 43 45 20 50 52 45 53 53 20 3C 43 52 3E 22 29 |ACE PRESS <CR>")|
00002550: 3A 89 34 34 30 30 00 83 7D 26 11 E4 B2 53 25 3A |:.4400..}&...S%:|
00002560: E0 B2 48 25 3A E1 B2 57 25 3A 01 02 3A F9 53 4D |..H%:..W%:..:.SM|
00002570: 50 28 4D 28 29 29 3A F9 53 45 54 31 28 53 31 25 |P(M()):.SET1(S1%|
00002580: 28 29 29 00 89 7D 30 11 27 00 9B 7D 35 11 8B A8 |())..}0.'..}5...|
00002590: 01 7B 28 31 32 29 A7 34 34 35 30 00 CD 7D 3A 11 |.{(12).4450..}:.|
000025A0: 8B A8 01 7B 28 31 32 29 F9 49 4E 50 25 28 22 45 |...{(12).INP%("E|
000025B0: 4E 54 45 52 20 53 50 52 49 54 45 20 4E 55 4D 42 |NTER SPRITE NUMB|
000025C0: 45 52 22 2C 53 25 29 CC 89 34 34 31 30 00 EB 7D |ER",S%)..4410..}|
000025D0: 44 11 8B A8 D1 45 52 28 31 2C 53 25 2C 32 35 35 |D....ER(1,S%,255|
000025E0: 29 A7 F9 45 31 3A 89 34 34 35 30 00 06 7E 4E 11 |)..E1:.4450..~N.|
000025F0: E4 B2 53 25 3A F9 43 48 53 45 3A 8B 45 52 25 B2 |..S%:.CHSE:.ER%.|
00002600: 31 89 34 34 35 30 00 21 7E 58 11 F9 53 4D 50 28 |1.4450.!~X..SMP(|
00002610: 4D 28 29 29 3A F9 53 45 54 31 28 53 31 25 28 29 |M()):.SET1(S1%()|
00002620: 29 00 27 7E 62 11 27 00 39 7E 67 11 8B A8 01 7B |).'~b.'.9~g....{|
00002630: 28 31 30 29 A7 34 35 34 35 00 6B 7E 6C 11 8B A8 |(10).4545.k~l...|
00002640: 01 7B 28 31 30 29 F9 49 4E 50 25 28 22 45 4E 54 |.{(10).INP%("ENT|
00002650: 45 52 20 53 50 52 49 54 45 20 4E 55 4D 42 45 52 |ER SPRITE NUMBER|
00002660: 22 2C 53 25 29 CC 89 34 34 36 30 00 89 7E 76 11 |",S%)..4460..~v.|
00002670: 8B A8 D1 45 52 28 31 2C 53 25 2C 32 35 35 29 A7 |...ER(1,S%,255).|
00002680: F9 45 31 3A 89 34 35 34 35 00 B0 7E 8A 11 F9 49 |.E1:.4545..~...I|
00002690: 4E 50 25 28 22 45 4E 54 45 52 20 4E 55 4D 42 45 |NP%("ENTER NUMBE|
000026A0: 52 20 49 4E 20 53 45 52 49 45 53 22 2C 4E 25 29 |R IN SERIES",N%)|
000026B0: 00 D1 7E 94 11 8B A8 D1 45 52 28 31 2C 53 25 AA |..~.....ER(1,S%.|
000026C0: 4E 25 2C 32 35 36 29 A7 F9 45 31 3A 89 34 35 34 |N%,256)..E1:.454|
000026D0: 35 00 F4 7E 9E 11 F9 49 4E 50 25 28 22 45 4E 54 |5..~...INP%("ENT|
000026E0: 45 52 20 44 45 4C 41 59 20 46 41 43 54 4F 52 22 |ER DELAY FACTOR"|
000026F0: 2C 44 25 29 00 06 7F A8 11 81 49 B2 53 25 A4 53 |,D%)......I.S%.S|
00002700: 25 AA 4E 25 AB 31 00 2E 7F B2 11 E4 B2 49 3A F9 |%.N%.1.......I:.|
00002710: 43 48 53 45 3A 8B 45 52 25 B2 31 A7 F9 53 45 54 |CHSE:.ER%.1..SET|
00002720: 31 28 53 31 25 28 29 29 3A 89 34 35 34 35 00 35 |1(S1%()):.4545.5|
00002730: 7F B3 11 82 49 00 4E 7F B7 11 81 49 B2 53 25 A4 |....I.N....I.S%.|
00002740: 53 25 AA 4E 25 AB 31 3A E4 B2 49 3A 01 3E 00 81 |S%.N%.1:..I:.>..|
00002750: 7F BC 11 81 4A B2 31 A4 44 25 3A 82 4A 3A 82 49 |....J.1.D%:.J:.I|
00002760: 3A F9 53 4D 50 28 4D 28 29 29 3A F9 53 45 54 31 |:.SMP(M()):.SET1|
00002770: 28 53 31 25 28 29 29 3A DF B2 53 25 AA 4E 25 AB |(S1%()):..S%.N%.|
00002780: 31 00 92 7F BD 11 F9 52 45 54 32 28 53 32 25 28 |1......RET2(S2%(|
00002790: 29 29 00 98 7F C1 11 27 00 AB 7F C2 11 8B 01 7B |)).....'.......{|
000027A0: 28 33 39 29 A7 F9 4D 4F 56 45 57 00 BD 7F C6 11 |(39)..MOVEW.....|
000027B0: 8B A8 01 7B 28 33 36 29 A7 34 38 36 30 00 F7 7F |...{(36).4860...|
000027C0: D0 11 8B A8 01 7B 28 33 36 29 A7 F9 49 4E 50 25 |.....{(36)..INP%|
000027D0: 28 22 45 4E 54 45 52 20 54 41 52 47 45 54 20 53 |("ENTER TARGET S|
000027E0: 50 52 49 54 45 20 4E 55 4D 42 45 52 22 2C 53 25 |PRITE NUMBER",S%|
000027F0: 29 CC 89 34 35 36 30 00 12 80 E4 11 E4 B2 53 25 |)..4560.......S%|
00002800: 3A F9 43 48 53 45 3A 8B 45 52 25 B2 31 A7 34 39 |:.CHSE:.ER%.1.49|
00002810: 36 30 00 37 80 EE 11 F9 49 4E 50 25 28 22 45 4E |60.7....INP%("EN|
00002820: 54 45 52 20 54 41 52 47 45 54 20 43 4F 4C 55 4D |TER TARGET COLUM|
00002830: 4E 22 2C 43 32 25 29 00 56 80 F8 11 8B A8 D1 45 |N",C2%).V......E|
00002840: 52 28 30 2C 43 32 25 2C 32 35 35 29 A7 F9 45 31 |R(0,C2%,255)..E1|
00002850: 3A 89 34 39 36 30 00 78 80 02 12 F9 49 4E 50 25 |:.4960.x....INP%|
00002860: 28 22 45 4E 54 45 52 20 54 41 52 47 45 54 20 52 |("ENTER TARGET R|
00002870: 4F 57 22 2C 52 32 25 29 00 96 80 0C 12 8B A8 D1 |OW",R2%)........|
00002880: 45 52 28 30 2C 52 32 25 2C 32 35 35 29 F9 45 31 |ER(0,R2%,255).E1|
00002890: 3A 89 34 39 36 30 00 B7 80 16 12 E3 B2 43 32 25 |:.4960.......C2%|
000028A0: 3A E2 B2 52 32 25 3A 48 32 25 B2 48 25 3A 4C 32 |:..R2%:H2%.H%:L2|
000028B0: 25 B2 4C 25 3A F9 53 00 E2 80 20 12 F9 49 4E 50 |%.L%:.S... ..INP|
000028C0: 25 28 22 45 4E 54 45 52 20 53 4F 55 52 43 45 20 |%("ENTER SOURCE |
000028D0: 53 50 52 49 54 45 20 4E 55 4D 42 45 52 22 2C 53 |SPRITE NUMBER",S|
000028E0: 25 29 00 FF 80 2A 12 8B A8 D1 45 52 28 30 2C 53 |%)...*....ER(0,S|
000028F0: 25 2C 32 35 35 29 F9 45 31 3A 89 34 39 36 30 00 |%,255).E1:.4960.|
00002900: 1A 81 34 12 E4 B2 53 25 3A F9 43 48 53 45 3A 8B |..4...S%:.CHSE:.|
00002910: 45 52 25 B2 31 A7 34 39 36 30 00 3F 81 3E 12 F9 |ER%.1.4960.?.>..|
00002920: 49 4E 50 25 28 22 45 4E 54 45 52 20 53 4F 55 52 |INP%("ENTER SOUR|
00002930: 43 45 20 43 4F 4C 55 4D 4E 22 2C 43 31 25 29 00 |CE COLUMN",C1%).|
00002940: 5E 81 48 12 8B A8 D1 45 52 28 30 2C 43 31 25 2C |^.H....ER(0,C1%,|
00002950: 32 35 35 29 A7 F9 45 31 3A 89 34 39 36 30 00 80 |255)..E1:.4960..|
00002960: 81 52 12 F9 49 4E 50 25 28 22 45 4E 54 45 52 20 |.R..INP%("ENTER |
00002970: 53 4F 55 52 43 45 20 52 4F 57 22 2C 52 31 25 29 |SOURCE ROW",R1%)|
00002980: 00 9F 81 5C 12 8B A8 D1 45 52 28 30 2C 52 31 25 |...\....ER(0,R1%|
00002990: 2C 32 35 35 29 A7 F9 45 31 3A 89 34 39 36 30 00 |,255)..E1:.4960.|
000029A0: BD 81 66 12 E3 B2 43 31 25 3A E2 B2 52 31 25 3A |..f...C1%:..R1%:|
000029B0: 48 31 25 B2 48 25 3A 4C 31 25 B2 4C 25 00 E0 81 |H1%.H%:L1%.L%...|
000029C0: 70 12 F9 49 4E 50 25 28 22 45 4E 54 45 52 20 57 |p..INP%("ENTER W|
000029D0: 49 4E 44 4F 57 20 57 49 44 54 48 22 2C 4C 25 29 |INDOW WIDTH",L%)|
000029E0: 00 FD 81 7A 12 8B A8 D1 45 52 28 31 2C 4C 25 2C |...z....ER(1,L%,|
000029F0: 32 35 35 29 F9 45 31 3A 89 34 39 36 30 00 21 82 |255).E1:.4960.!.|
00002A00: 84 12 F9 49 4E 50 25 28 22 45 4E 54 45 52 20 57 |...INP%("ENTER W|
00002A10: 49 4E 44 4F 57 20 48 45 49 47 48 54 22 2C 48 25 |INDOW HEIGHT",H%|
00002A20: 29 00 3F 82 8E 12 8B A8 D1 45 52 28 30 2C 48 25 |).?......ER(0,H%|
00002A30: 2C 32 35 35 29 A7 F9 45 31 3A 89 34 39 36 30 00 |,255)..E1:.4960.|
00002A40: 4D 82 98 12 E0 B2 48 25 3A E1 B2 4C 25 00 6D 82 |M.....H%:..L%.m.|
00002A50: A2 12 F9 49 4E 50 24 28 42 24 2C 22 45 4E 54 45 |...INP$(B$,"ENTE|
00002A60: 52 20 4F 50 45 52 41 54 49 4F 4E 22 29 00 82 82 |R OPERATION")...|
00002A70: AC 12 8B 42 24 B2 22 42 22 A7 01 36 3A 89 34 39 |...B$."B"..6:.49|
00002A80: 36 30 00 97 82 B6 12 8B 42 24 B2 22 41 22 A7 01 |60......B$."A"..|
00002A90: 38 3A 89 34 39 36 30 00 AC 82 C0 12 8B 42 24 B2 |8:.4960......B$.|
00002AA0: 22 4F 22 A7 01 39 3A 89 34 39 36 30 00 C1 82 CA |"O"..9:.4960....|
00002AB0: 12 8B 42 24 B2 22 45 22 A7 01 37 3A 89 34 39 36 |..B$."E"..7:.496|
00002AC0: 30 00 E3 82 D4 12 8B 42 24 B3 B1 22 53 22 AF 42 |0......B$.."S".B|
00002AD0: 24 B3 B1 22 58 22 AF 42 24 B3 B1 22 59 22 A7 34 |$.."X".B$.."Y".4|
00002AE0: 39 36 30 00 0C 83 D6 12 8B 28 43 31 25 AA 4C 25 |960......(C1%.L%|
00002AF0: 29 B1 4C 31 25 B0 28 52 31 25 AA 48 25 29 B1 48 |).L1%.(R1%.H%).H|
00002B00: 31 25 A7 F9 45 31 3A 89 34 39 36 30 00 1E 83 D8 |1%..E1:.4960....|
00002B10: 12 8B 42 24 B3 B1 22 53 22 A7 34 38 33 30 00 53 |..B$.."S".4830.S|
00002B20: 83 DA 12 8B 28 43 32 25 AA 48 25 29 B3 B2 4C 32 |....(C2%.H%)..L2|
00002B30: 25 AF 28 52 32 25 AA 4C 25 29 B3 B2 48 32 25 A7 |%.(R2%.L%)..H2%.|
00002B40: 01 35 3A 89 34 39 36 30 3A CC F9 45 31 3A 89 34 |.5:.4960:..E1:.4|
00002B50: 39 36 30 00 65 83 DE 12 8B 42 24 B3 B1 22 58 22 |960.e....B$.."X"|
00002B60: A7 34 38 33 36 00 9C 83 E0 12 8B 28 43 32 25 AA |.4836......(C2%.|
00002B70: 32 AC 4C 25 29 B3 B2 4C 32 25 AF 28 52 32 25 AA |2.L%)..L2%.(R2%.|
00002B80: 48 25 29 B3 B2 48 32 25 A7 01 3B 3A 89 34 39 36 |H%)..H2%..;:.496|
00002B90: 30 3A CC F9 45 31 3A 89 34 39 36 30 00 AE 83 E4 |0:..E1:.4960....|
00002BA0: 12 8B 42 24 B3 B1 22 59 22 A7 34 38 35 30 00 E5 |..B$.."Y".4850..|
00002BB0: 83 E6 12 8B 28 43 32 25 AA 4C 25 29 B3 B2 4C 32 |....(C2%.L%)..L2|
00002BC0: 25 AF 28 52 32 25 AA 32 AC 48 25 29 B3 B2 48 32 |%.(R2%.2.H%)..H2|
00002BD0: 25 A7 01 3C 3A 89 34 39 36 30 3A CC F9 45 31 3A |%..<:.4960:..E1:|
00002BE0: 89 34 39 36 30 00 F6 83 F2 12 8B 42 24 B2 22 52 |.4960......B$."R|
00002BF0: 22 A7 34 39 36 30 00 09 84 FC 12 E8 01 7B 28 34 |".4960.......{(4|
00002C00: 37 29 AF 01 7B 28 32 38 29 00 13 84 06 13 89 4C |7)..{(28)......L|
00002C10: 4F 4F 50 00 2A 84 60 13 F9 53 45 54 31 28 53 31 |OOP.*.`..SET1(S1|
00002C20: 25 28 29 29 3A 89 34 38 36 30 00 30 84 65 13 27 |%()):.4860.0.e.'|
00002C30: 00 3D 84 88 13 EE 4D 4F 44 45 35 3A E7 00 4F 84 |.=....MODE5:..O.|
00002C40: 92 13 8B A8 01 7B 28 34 31 29 A7 35 30 33 30 00 |.....{(41).5030.|
00002C50: 67 84 9C 13 8B A8 01 7B 28 34 31 29 F9 53 41 56 |g......{(41).SAV|
00002C60: 45 CC 89 35 30 32 30 00 79 84 A6 13 8B A8 01 7B |E..5020.y......{|
00002C70: 28 32 31 29 A7 35 30 35 30 00 91 84 B0 13 8B A8 |(21).5050.......|
00002C80: 01 7B 28 32 31 29 F9 4C 4F 41 44 CC 89 35 30 34 |.{(21).LOAD..504|
00002C90: 30 00 A3 84 BA 13 8B A8 01 7B 28 34 39 29 A7 35 |0........{(49).5|
00002CA0: 30 37 30 00 BE 84 C4 13 8B A8 01 7B 28 34 39 29 |070........{(49)|
00002CB0: F9 53 43 52 41 54 43 48 CC 89 35 30 36 30 00 D0 |.SCRATCH..5060..|
00002CC0: 84 CE 13 8B A8 01 7B 28 31 30 29 A7 35 30 39 30 |......{(10).5090|
00002CD0: 00 EA 84 D8 13 8B A8 01 7B 28 31 30 29 F9 52 45 |........{(10).RE|
00002CE0: 4E 41 4D 45 CC 89 35 30 38 30 00 FC 84 E2 13 8B |NAME..5080......|
00002CF0: A8 01 7B 28 33 34 29 A7 35 31 31 30 00 14 85 EC |..{(34).5110....|
00002D00: 13 8B A8 01 7B 28 33 34 29 F9 43 4F 50 59 CC 89 |....{(34).COPY..|
00002D10: 35 31 30 30 00 26 85 F6 13 8B A8 01 7B 28 31 32 |5100.&......{(12|
00002D20: 29 A7 35 31 33 30 00 44 85 00 14 8B A8 01 7B 28 |).5130.D......{(|
00002D30: 31 32 29 F9 49 4E 49 54 49 41 4C 49 53 45 CC 89 |12).INITIALISE..|
00002D40: 35 31 32 30 00 56 85 0A 14 8B A8 01 7B 28 35 39 |5120.V......{(59|
00002D50: 29 A7 35 31 35 30 00 72 85 14 14 8B A8 01 7B 28 |).5150.r......{(|
00002D60: 35 39 29 F9 56 41 4C 49 44 41 54 45 CC 89 35 31 |59).VALIDATE..51|
00002D70: 34 30 00 84 85 1E 14 8B A8 01 7B 28 31 38 29 A7 |40........{(18).|
00002D80: 35 31 39 30 00 A1 85 28 14 8B A8 01 7B 28 31 38 |5190...(....{(18|
00002D90: 29 F9 44 49 52 45 43 54 4F 52 59 CC 89 35 31 36 |).DIRECTORY..516|
00002DA0: 30 00 B8 85 46 14 F9 46 46 3A E8 01 7B 28 34 37 |0...F..FF:..{(47|
00002DB0: 29 AF 01 7B 28 32 38 29 00 BE 85 50 14 F8 00 C4 |)..{(28)...P....|
00002DC0: 85 5A 14 27 00 D3 85 70 17 EE 50 52 41 54 3A 99 |.Z.'...p..PRAT:.|
00002DD0: 22 93 22 00 16 86 75 17 99 40 30 2C 31 37 3B 22 |"."...u..@0,17;"|
00002DE0: 12 9F 49 4E 4B 20 92 31 05 3A 20 20 20 20 12 9E |..INK .1.: ..|
00002DF0: 20 20 20 20 20 20 20 20 20 20 1E 4D 4F 44 45 92 | .MODE.|
00002E00: 05 3A 20 20 20 20 1E 12 20 9F 20 53 50 4E 92 05 |.: .. . SPN..|
00002E10: 3A 20 20 20 20 22 00 5A 86 7A 17 99 40 30 2C 31 |: ".Z.z..@0,1|
00002E20: 38 3B 22 12 9F 49 4E 4B 20 92 9E 32 05 3A 20 20 |8;"..INK ..2.: |
00002E30: 20 20 12 9E 32 4F 52 34 92 05 3A 20 20 20 20 12 | ..2OR4..: .|
00002E40: 9E 20 9C 20 20 20 20 20 20 20 20 20 20 20 20 20 |. . |
00002E50: 20 20 20 20 20 20 20 20 20 22 00 A0 86 7F 17 99 | "......|
00002E60: 40 30 2C 31 39 3B 22 12 9F 49 4E 4B 20 92 9C 33 |@0,19;"..INK ..3|
00002E70: 05 3A 20 20 20 20 12 9E 20 20 20 20 20 20 20 20 |.: .. |
00002E80: 20 20 9C 20 43 4F 4C 92 05 3A 20 20 20 20 12 9C | . COL..: ..|
00002E90: 20 20 52 4F 57 92 05 3A 20 20 20 20 12 9C 20 22 | ROW..: .. "|
00002EA0: 00 E9 86 84 17 99 40 30 2C 32 30 3B 22 12 9F 50 |......@0,20;"..P|
00002EB0: 41 50 45 52 92 05 3A 20 20 20 20 12 1E 41 54 54 |APER..: ..ATT|
00002EC0: 52 92 05 3A 20 20 20 20 12 1E 20 9C 20 48 47 54 |R..: .. . HGT|
00002ED0: 92 05 3A 20 20 20 20 12 9C 20 20 57 49 44 92 05 |..: .. WID..|
00002EE0: 3A 20 20 20 20 12 9C 20 22 00 23 87 89 17 99 40 |: .. ".#....@|
00002EF0: 30 2C 32 31 3B 22 12 1F 20 20 20 20 20 20 20 20 |0,21;".. |
00002F00: 20 20 1F 20 20 20 20 20 20 20 20 20 20 9C 20 20 | . . |
00002F10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002F20: 20 20 22 00 65 87 8E 17 99 40 30 2C 32 32 3B 22 | ".e....@0,22;"|
00002F30: 12 1F 20 43 4F 4C 32 92 05 3A 20 20 20 20 12 1F |.. COL2..: ..|
00002F40: 52 4F 57 32 92 05 3A 20 20 20 20 12 1F 20 9E 53 |ROW2..: .. .S|
00002F50: 50 53 54 92 05 3A 20 20 20 20 20 12 9E 53 50 4E |PST..: ..SPN|
00002F60: 44 92 05 3A 22 00 9B 87 98 17 99 40 30 2C 32 33 |D..:"......@0,23|
00002F70: 3B 22 12 1F 20 20 20 20 20 20 20 20 20 20 20 20 |;".. |
00002F80: 20 20 20 20 20 20 20 20 1E 20 20 20 53 50 52 49 | . SPRI|
00002F90: 54 45 20 54 45 53 54 92 05 3A 22 00 D6 87 9D 17 |TE TEST..:".....|
00002FA0: 99 40 30 2C 32 34 3B 22 12 9C 20 20 20 20 20 20 |.@0,24;".. |
00002FB0: 20 20 20 20 53 50 4E 32 92 05 3A 20 20 20 20 12 | SPN2..: .|
00002FC0: 9C 20 1F 20 20 20 46 52 45 45 20 4D 45 4D 4F 52 |. . FREE MEMOR|
00002FD0: 59 92 05 3A 22 3B 00 DC 87 38 18 F8 00 E7 87 40 |Y..:";...8.....@|
00002FE0: 1F EE 4D 4F 44 45 31 00 20 88 4A 1F F9 4D 50 3A |..MODE1. .J..MP:|
00002FF0: EB 4D 44 25 B2 34 3A 49 4E 25 28 30 29 B2 32 3A |.MD%.4:IN%(0).2:|
00003000: 01 0D 3A 01 24 3A F9 44 49 53 28 31 2C 49 4E 25 |..:.$:.DIS(1,IN%|
00003010: 28 29 29 3A F9 41 46 49 4E 28 49 4E 25 28 29 29 |()):.AFIN(IN%())|
00003020: 00 3A 88 54 1F F9 47 52 49 44 31 3A ED 3A F9 45 |.:.T..GRID1:.:.E|
00003030: 44 54 31 24 3A 89 4C 4F 4F 50 00 40 88 5E 1F 27 |DT1$:.LOOP.@.^.'|
00003040: 00 4B 88 72 1F EE 4D 4F 44 45 32 00 69 88 7C 1F |.K.r..MODE2.i.|.|
00003050: F9 4D 50 3A EB 4D 44 25 B2 32 3A 49 4E 25 28 30 |.MP:.MD%.2:IN%(0|
00003060: 29 B2 34 3A 01 0E 3A 01 23 00 8A 88 81 1F 4D 44 |).4:..:.#.....MD|
00003070: 25 B2 34 3A 49 4E 25 28 34 29 B2 31 35 3A F9 41 |%.4:IN%(4).15:.A|
00003080: 46 49 4E 28 49 4E 25 28 29 29 00 B8 88 86 1F F9 |FIN(IN%())......|
00003090: 44 49 53 28 31 2C 49 4E 25 28 29 29 3A F9 47 52 |DIS(1,IN%()):.GR|
000030A0: 49 44 32 3A ED 3A 43 58 25 B2 31 3A F9 45 44 54 |ID2:.:CX%.1:.EDT|
000030B0: 32 24 3A 89 4C 4F 4F 50 00 BE 88 90 1F 27 00 C8 |2$:.LOOP.....'..|
000030C0: 88 28 23 EE 4C 4F 4F 50 00 D6 88 29 23 4D 4F 25 |.(#.LOOP...)#MO%|
000030D0: B2 30 3A F9 4D 50 00 F9 88 32 23 8B 01 7B 28 34 |.0:.MP...2#..{(4|
000030E0: 37 29 AF 01 7B 28 37 29 A7 4D 4F 25 B2 31 3A F9 |7)..{(7).MO%.1:.|
000030F0: 4D 50 3A 89 4D 4F 44 45 31 00 1D 89 3C 23 8B 01 |MP:.MODE1...<#..|
00003100: 7B 28 34 37 29 AF 01 7B 28 33 31 29 A7 4D 4F 25 |{(47)..{(31).MO%|
00003110: B2 32 3A F9 4D 50 3A 89 4D 4F 44 45 32 00 40 89 |.2:.MP:.MODE2.@.|
00003120: 46 23 8B 01 7B 28 34 37 29 AF 01 7B 28 31 29 A7 |F#..{(47)..{(1).|
00003130: 4D 4F 25 B2 33 3A F9 4D 50 3A F9 4D 4F 44 45 33 |MO%.3:.MP:.MODE3|
00003140: 00 64 89 50 23 8B 01 7B 28 34 37 29 AF 01 7B 28 |.d.P#..{(47)..{(|
00003150: 32 35 29 A7 4D 4F 25 B2 34 3A F9 4D 50 3A 89 4D |25).MO%.4:.MP:.M|
00003160: 4F 44 45 34 00 87 89 5A 23 8B 01 7B 28 34 37 29 |ODE4...Z#..{(47)|
00003170: AF 01 7B 28 32 29 A7 4D 4F 25 B2 35 3A F9 4D 50 |..{(2).MO%.5:.MP|
00003180: 3A F9 4D 4F 44 45 35 00 91 89 64 23 89 39 30 30 |:.MODE5...d#.900|
00003190: 31 00 97 89 4F C3 80 00 B8 89 50 C3 27 50 52 4F |1...O.....P.'PRO|
000031A0: 43 50 4F 4B 45 20 50 55 54 53 20 4D 2F 43 20 49 |CPOKE PUTS M/C I|
000031B0: 4E 20 4D 45 4D 4F 52 59 00 D2 89 5A C3 27 46 52 |N MEMORY...Z.'FR|
000031C0: 4F 4D 20 24 30 34 41 30 20 54 4F 20 24 30 35 46 |OM $04A0 TO $05F|
000031D0: 46 2E 00 F3 89 64 C3 27 50 52 4F 43 43 48 52 32 |F....d.'PROCCHR2|
000031E0: 48 49 52 45 53 28 58 2C 59 29 20 43 4F 4E 56 45 |HIRES(X,Y) CONVE|
000031F0: 52 54 53 00 13 8A 6E C3 27 43 48 52 24 53 51 52 |RTS...n.'CHR$SQR|
00003200: 20 54 4F 20 48 49 52 45 53 20 41 54 20 28 58 2C | TO HIRES AT (X,|
00003210: 59 29 2E 00 34 8A 78 C3 27 50 52 4F 43 48 49 52 |Y)..4.x.'PROCHIR|
00003220: 45 53 32 43 48 52 20 44 4F 45 53 20 52 45 56 45 |ES2CHR DOES REVE|
00003230: 52 53 45 2E 00 59 8A 82 C3 EE 50 4F 4B 45 3A F7 |RSE..Y....POKE:.|
00003240: 49 2C 4A 3A 8C 4D 43 44 41 54 41 3A 81 49 B2 24 |I,J:.MCDATA:.I.$|
00003250: 34 41 30 A4 24 30 35 39 37 00 69 8A 8C C3 87 4A |4A0.$0597.i....J|
00003260: 3A 97 49 2C 4A 3A 82 3A F8 00 AD 8A 96 C3 EE 4D |:.I,J:.:.......M|
00003270: 43 44 41 54 41 3A 83 31 36 39 2C 34 30 2C 31 33 |CDATA:.169,40,13|
00003280: 33 2C 33 34 2C 31 36 39 2C 32 30 34 2C 31 33 33 |3,34,169,204,133|
00003290: 2C 33 35 2C 31 36 39 2C 38 2C 31 33 33 2C 33 37 |,35,169,8,133,37|
000032A0: 2C 31 36 30 2C 38 2C 31 37 37 2C 33 34 00 ED 8A |,160,8,177,34...|
000032B0: A0 C3 83 37 33 2C 32 35 35 2C 32 30 31 2C 31 37 |...73,255,201,17|
000032C0: 35 2C 31 30 32 2C 33 36 2C 31 33 36 2C 32 30 38 |5,102,36,136,208|
000032D0: 2C 32 34 35 2C 31 36 35 2C 33 36 2C 31 34 35 2C |,245,165,36,145,|
000032E0: 37 33 2C 32 33 30 2C 37 33 2C 31 36 35 00 27 8B |73,230,73,165.'.|
000032F0: AA C3 83 33 34 2C 32 34 2C 31 30 35 2C 34 30 2C |...34,24,105,40,|
00003300: 31 33 33 2C 33 34 2C 31 34 34 2C 32 2C 32 33 30 |133,34,144,2,230|
00003310: 2C 33 35 2C 31 39 38 2C 33 37 2C 32 30 38 2C 32 |,35,198,37,208,2|
00003320: 32 32 2C 39 36 2C 30 00 63 8B B4 C3 83 31 36 39 |22,96,0.c....169|
00003330: 2C 34 30 2C 31 33 33 2C 33 34 2C 31 36 39 2C 32 |,40,133,34,169,2|
00003340: 30 34 2C 31 33 33 2C 33 35 2C 31 36 39 2C 38 2C |04,133,35,169,8,|
00003350: 31 33 33 2C 33 37 2C 31 36 30 2C 38 2C 31 37 37 |133,37,160,8,177|
00003360: 2C 37 33 00 9F 8B BE C3 83 31 33 33 2C 33 36 2C |,73......133,36,|
00003370: 32 33 30 2C 37 33 2C 31 30 32 2C 33 36 2C 31 36 |230,73,102,36,16|
00003380: 39 2C 34 30 2C 34 32 2C 37 33 2C 31 2C 31 34 35 |9,40,42,73,1,145|
00003390: 2C 33 34 2C 31 33 36 2C 32 30 38 2C 32 34 34 00 |,34,136,208,244.|
000033A0: DA 8B C8 C3 83 31 36 35 2C 33 34 2C 31 30 35 2C |.....165,34,105,|
000033B0: 34 30 2C 31 33 33 2C 33 34 2C 31 34 34 2C 32 2C |40,133,34,144,2,|
000033C0: 32 33 30 2C 33 35 2C 31 39 38 2C 33 37 2C 32 30 |230,35,198,37,20|
000033D0: 38 2C 32 32 32 2C 39 36 2C 30 00 05 8C CD C3 83 |8,222,96,0......|
000033E0: 31 36 39 2C 35 33 2C 31 33 33 2C 31 2C 33 32 2C |169,53,133,1,32,|
000033F0: 32 30 38 2C 34 2C 31 36 39 2C 35 35 2C 31 33 33 |208,4,169,55,133|
00003400: 2C 31 2C 39 36 00 36 8C D2 C3 EE 43 48 52 32 48 |,1,96.6....CHR2H|
00003410: 49 52 45 53 28 58 2C 59 29 3A EF 37 33 2C 24 45 |IRES(X,Y):.73,$E|
00003420: 30 30 30 AA 58 AC 38 AA 59 AC 33 32 30 3A 9E 24 |000.X.8.Y.320:.$|
00003430: 30 34 41 30 3A F8 00 65 8C DC C3 EE 48 49 52 45 |04A0:..e....HIRE|
00003440: 53 32 43 48 52 28 58 2C 59 29 3A EF 37 33 2C 24 |S2CHR(X,Y):.73,$|
00003450: 44 46 46 38 AA 58 AC 38 AA 59 AC 33 32 30 3A 9E |DFF8.X.8.Y.320:.|
00003460: 24 30 35 30 30 00 78 8C DD C3 8B 41 46 4C 41 47 |$0500.x....AFLAG|
00003470: 25 B2 31 A7 F9 55 50 50 00 7E 8C DE C3 F8 00 C6 |%.1..UPP.~......|
00003480: 8C E6 C3 83 31 36 39 2C 32 30 34 2C 31 33 33 2C |....169,204,133,|
00003490: 37 36 2C 31 36 39 2C 34 31 2C 31 33 33 2C 37 35 |76,169,41,133,75|
000034A0: 2C 31 36 39 2C 38 2C 31 33 33 2C 37 37 2C 31 36 |,169,8,133,77,16|
000034B0: 30 2C 30 2C 31 37 37 2C 37 35 2C 37 34 2C 37 34 |0,0,177,75,74,74|
000034C0: 2C 37 34 2C 37 34 00 0F 8D F0 C3 83 31 36 32 2C |,74,74......162,|
000034D0: 33 2C 32 32 31 2C 32 34 38 2C 35 2C 32 34 30 2C |3,221,248,5,240,|
000034E0: 33 2C 32 30 32 2C 32 30 38 2C 32 34 38 2C 31 33 |3,202,208,248,13|
000034F0: 38 2C 36 2C 37 38 2C 36 2C 37 38 2C 35 2C 37 38 |8,6,78,6,78,5,78|
00003500: 2C 31 33 33 2C 37 38 2C 32 30 30 2C 32 30 30 00 |,133,78,200,200.|
00003510: 56 8D FA C3 83 31 39 32 2C 38 2C 32 30 38 2C 32 |V....192,8,208,2|
00003520: 32 35 2C 31 34 35 2C 37 33 2C 31 36 35 2C 37 35 |25,145,73,165,75|
00003530: 2C 31 30 35 2C 33 39 2C 31 33 33 2C 37 35 2C 31 |,105,39,133,75,1|
00003540: 34 34 2C 32 2C 32 33 30 2C 37 36 2C 32 33 30 2C |44,2,230,76,230,|
00003550: 37 33 2C 31 39 38 00 A0 8D 04 C4 83 37 37 2C 32 |73,198......77,2|
00003560: 30 38 2C 32 30 35 2C 39 36 2C 31 36 39 2C 35 33 |08,205,96,169,53|
00003570: 2C 31 33 33 2C 31 2C 31 36 39 2C 32 30 34 2C 31 |,133,1,169,204,1|
00003580: 33 33 2C 37 36 2C 31 36 39 2C 34 30 2C 31 33 33 |33,76,169,40,133|
00003590: 2C 37 35 2C 31 36 39 2C 38 2C 31 33 33 2C 37 37 |,75,169,8,133,77|
000035A0: 00 EA 8D 0E C4 83 31 36 30 2C 38 2C 31 37 37 2C |......160,8,177,|
000035B0: 37 33 2C 31 33 33 2C 37 38 2C 31 36 35 2C 37 38 |73,133,78,165,78|
000035C0: 2C 34 31 2C 33 2C 31 37 30 2C 31 38 39 2C 32 34 |,41,3,170,189,24|
000035D0: 38 2C 35 2C 31 30 2C 31 30 2C 31 30 2C 31 30 2C |8,5,10,10,10,10,|
000035E0: 31 33 33 2C 37 39 2C 31 37 37 00 32 8E 18 C4 83 |133,79,177.2....|
000035F0: 37 35 2C 34 31 2C 31 35 2C 35 2C 37 39 2C 31 34 |75,41,15,5,79,14|
00003600: 35 2C 37 35 2C 31 33 36 2C 31 34 35 2C 37 35 2C |5,75,136,145,75,|
00003610: 37 30 2C 37 38 2C 37 30 2C 37 38 2C 31 33 36 2C |70,78,70,78,136,|
00003620: 32 30 38 2C 32 32 34 2C 32 33 30 2C 37 33 2C 31 |208,224,230,73,1|
00003630: 36 35 00 77 8E 22 C4 83 37 35 2C 32 34 2C 31 30 |65.w."..75,24,10|
00003640: 35 2C 34 30 2C 31 33 33 2C 37 35 2C 31 34 34 2C |5,40,133,75,144,|
00003650: 32 2C 32 33 30 2C 37 36 2C 31 39 38 2C 37 37 2C |2,230,76,198,77,|
00003660: 32 30 38 2C 32 30 31 2C 31 36 39 2C 35 35 2C 31 |208,201,169,55,1|
00003670: 33 33 2C 31 2C 39 36 00 A8 8E 7C C4 EE 43 48 52 |33,1,96...|..CHR|
00003680: 34 48 49 52 45 53 28 58 2C 59 29 3A EF 37 33 2C |4HIRES(X,Y):.73,|
00003690: 24 44 46 46 38 AA 58 AC 38 AA 59 AC 33 32 30 3A |$DFF8.X.8.Y.320:|
000036A0: 9E 24 30 35 30 43 3A F8 00 D9 8E E0 C4 EE 48 49 |.$050C:.......HI|
000036B0: 52 45 53 34 43 48 52 28 58 2C 59 29 3A EF 37 33 |RES4CHR(X,Y):.73|
000036C0: 2C 24 44 46 46 38 AA 58 AC 38 AA 59 AC 33 32 30 |,$DFF8.X.8.Y.320|
000036D0: 3A 9E 24 30 35 34 43 3A F8 00 ED 8E 60 EA EE 53 |:.$054C:....`..S|
000036E0: 56 45 28 5A 24 29 3A 02 2B 5A 24 3A F8 00 01 8F |VE(Z$):.+Z$:....|
000036F0: 6A EA EE 4C 4F 44 28 5A 24 29 3A 02 2C 5A 24 3A |j..LOD(Z$):.,Z$:|
00003700: F8 00 00 00 |.... |
.X'X...********** DISC 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$."0:".X$.)S$.
.X$."".X$."0"L.C(X$).3.X$."0:".X$./S....
5S8.'.VSB..DISKCHECK:.A,B$,C,D:.1,8,15..
SL..1,A,B$,C,D: 1:.A..0:.INP$(B$,B$." <C
R> TO CONTINUE")..SV....S`.'.XST..SCRATC
H:.A$:.FILENAME(A$,"FILENAME"):.1,8,15,"
S".A$: 1..S~..DISKCHECK..S.....S..'.)T..
.VALIDATE:.A$:.FILENAME(A$,"ENTER DRIVE
OR <CR>").JT...1,8,15,"V".A$: 1:.DISKCHE
CK.PT....VT..'..TD..INITIALISE:.A$:.FILE
NAME(A$,"ENTER DRIVE OR <CR>")..TI..1,8,
15,"I".A$: 1:.DISKCHECK..TN....TX.'..T..
.COPY:.A$,B$:.FILENAME(A$,"FROM"):.FILEN
AME(B$,"TO")..U...1,8,15,"C".B$."=".A$:
1:.DISKCHECK."U....(U..'.CU...RENAME:.A$
,B$:.FILENAME(A$,"OLD"):.FILENAME(B$,"NE
W")..U...1,8,15,"R".B$."=".A$: 1:.DISKCH
ECK..U.....U(.'.RU<..SAVE:.A$:.FILENAME(
A$,"FILENAME"):.SVE(A$):.DISKCHECK.XUF..
..UP.'..VZ..LOAD:.A$:.FILENAME(A$,"FILEN
AME"):.LOD(A$):.DISKCHECK..VD...%VN.'.?V
S..DIRECTORY:.X,Y,Y$,A$.UVT..FILENAME(A$
,"ENTER DRIVE OR <CR>"):.1,8,0,"$".A$..V
X..#1,A$:.#1,A$:.ST.0:.#1,A$:.#1,A$:.ST.
.0...V}.X.QDISKCHR:Y.QDISKCHR:Y$.D(X.Y.2
56)." ":.:.#1,A$:Y$.Y$.A$.$W...A$."".ST.
.0:.@0,16;"
".EW...INP$(A$,Y$):.A$."X".ST
..0...PW...: 1:..}W...DISKCHR:.A$,A:.#1,
A$:.A$."".A.0LA.F(A$)..W...A..W..'..W ..
S:.I,X%..W..X%..:...:..X%:X%..:...:..X%.
KW..X%..:...:..X%:..QW..'..X...E1:.B$:.I
NP$(B$,"SPRITE PARAMETER OUT OF RANGE <C
R>")..X....0:...X.. '.3XR..CHSE:.X,B$:ER
%.0.[X..X..Z(.):H%..:L%..:..S1%(3):..S1%
(4)..X...X.0..INP$(B$,"SPRITE NOT DEFINE
D PRESS <CR>"):ER%.1..X.... X..'..X...CH
SDE:.X,B$:ER%.0..X..X..Z(.):H%..:L%..:..
S1%(3):..S1%(4)..Y...X.0..INP$(B$,"SPRIT
E ALREADY DEFINED PRESS <CR>"):ER%.1."Y"
...(Y'.'..YY.'.^YH..MODE4:.:.AA:.FF:..{(
39)..MOVEWL..{(57).CHW.PYM....{(19).4235
..YR....{(19):.INP%("ENTER SPRITE NUMBER
",S%):L:.4210.CY|...QER(1,S%,255)..E1:.4
235..Y...N($2FFE).10.....7.$BFFF.4380..Z
....S%:.CHSDE:.ER%.0:..:.=:.SMP(M()):.SE
T1(S1%()).9Z....S%:..0:..0:.RET2(S2%()):
..?Z..'.QZ.....{(13).4265..Z.....{(13):.
INP%("ENTER SPRITE NUMBER",S%):L.4240..Z
....QER(1,S%,255)..E1:.4265.SZ....S%:.CH
SE:.ER%.0:.>:.SMP(M()):.SET1(S1%())..Z..
..S%:..0:..0:.RET2(S2%()):...Z..'..{....
.{(9).4295.<{.....{(9)..INP%("ENTER SPRI
TE NUMBER",S%)L.4270.Z{....QER(1,S%,255)
..E1:.4295..{B...S%:.CHSE:.ER%.0..:.SMP(
M()):.SET1(S1%())..{G.'..{H...{(17).AFL.
.{I...{(57).CHW.A{K....{(34).4400..{L...
.{(34).INP%("ENTER SPRITE NUMBER",S%)L.4
300..|V...QER(1,S%,255)..E1:.4400.-|....
S%:.CHSDE:.ER%.1.4400.^|...INP%("ENTER H
EIGHT",H%):.QER(1,H%,255).4350..|...INP$
(B$,"HEIGHT OUT OF RANGE PRESS <CR>"):.4
400.C|...INP%("ENTER WIDTH",W%):.QER(1,W
%,255).4370..|...INP$(B$,"WIDTH OUT OF R
ANGE PRESS <CR>"):.4400..}...N($2FFE).10
.H%.W%.7.$C000.4390.V}...INP$(B$,"INSUFF
ICIENT SPRITE SPACE PRESS <CR>"):.4400..
}&...S%:..H%:..W%:..:.SMP(M()):.SET1(S1%
())..}0.'..}5....{(12).4450.M}:....{(12)
.INP%("ENTER SPRITE NUMBER",S%)L.4410..}
D...QER(1,S%,255)..E1:.4450..~N...S%:.CH
SE:.ER%.1.4450.!~X..SMP(M()):.SET1(S1%()
).'~B.'.9~G....{(10).4545.K~L....{(10).I
NP%("ENTER SPRITE NUMBER",S%)L.4460..~V.
..QER(1,S%,255)..E1:.4545..~...INP%("ENT
ER NUMBER IN SERIES",N%).Q~....QER(1,S%.
N%,256)..E1:.4545..~...INP%("ENTER DELAY
FACTOR",D%).....I.S%.S%.N%.1......I:.
CHSE:.ER%.1..SET1(S1%()):.4545.5...I.N
...I.S%.S%.N%.1:..I:.>.....J.1.D%:.J:.I
:.SMP(M()):.SET1(S1%()):..S%.N%.1.....R
ET2(S2%())..A.'..B...{(39)..MOVEW..F.
...{(36).4860..P....{(36)..INP%("ENTER
TARGET SPRITE NUMBER",S%)L.4560.......S%
:.CHSE:.ER%.1.4960.7....INP%("ENTER TARG
ET COLUMN",C2%).V.....QER(0,C2%,255)..E1
:.4960.X....INP%("ENTER TARGET ROW",R2%)
.......QER(0,R2%,255).E1:.4960.......C2%
:..R2%:H2%.H%:L2%.L%:.S... ..INP%("ENTER
SOURCE SPRITE NUMBER",S%)...*...QER(0,S
%,255).E1:.4960...4...S%:.CHSE:.ER%.1.49
60.?.>..INP%("ENTER SOURCE COLUMN",C1%).
^.H...QER(0,C1%,255)..E1:.4960...R..INP%
("ENTER SOURCE ROW",R1%)...\...QER(0,R1%
,255)..E1:.4960...F...C1%:..R1%:H1%.H%:L
1%.L%...P..INP%("ENTER WINDOW WIDTH",L%)
...Z...QER(1,L%,255).E1:.4960.!....INP%(
"ENTER WINDOW HEIGHT",H%).?.....QER(0,H%
,255)..E1:.4960.M.....H%:..L%.M....INP$(
B$,"ENTER OPERATION")......B$."B"..6:.49
60......B$."A"..8:.4960......B$."O"..9:.
4960.A.J..B$."E"..7:.4960...T..B$.."S".B
$.."X".B$.."Y".4960...V..(C1%.L%).L1%.(R
1%.H%).H1%..E1:.4960...X..B$.."S".4830.S
.Z..(C2%.H%)..L2%.(R2%.L%)..H2%..5:.4960
:L.E1:.4960.E....B$.."X".4836......(C2%.
2.L%)..L2%.(R2%.H%)..H2%..;:.4960:L.E1:.
4960......B$.."Y".4850......(C2%.L%)..L2
%.(R2%.2.H%)..H2%..<:.4960:L.E1:.4960...
...B$."R".4960.......{(47)..{(28)......L
OOP.*.`..SET1(S1%()):.4860.0.E.'.=....MO
DE5:..O......{(41).5030.G......{(41).SAV
EL.5020.Y......{(21).5050........{(21).L
OADL.5040........{(49).5070...D....{(49)
.SCRATCHL.5060.P.N....{(10).5090...X....
{(10).RENAMEL.5080........{(34).5110....
....{(34).COPYL.5100.&......{(12).5130.D
......{(12).INITIALISEL.5120.V......{(59
).5150.R......{(59).VALIDATEL.5140......
..{(18).5190...(....{(18).DIRECTORYL.516
0...F..FF:..{(47)..{(28)...P...D.Z.'.S.P
..PRAT:."."...U..@0,17;"..INK .1.: ..
.MODE..: .. . SPN..: ".Z
.Z..@0,18;"..INK ..2.: ..2OR4..: .
. . ". ...@0,19;".
.INK ..3.: .. . COL..: ..
ROW..: .. "......@0,20;"..PAPER..:
..ATTR..: .. . HGT..: .. WID..
: .. ".#....@0,21;".. .
. ".E....@0,22;"
.. COL2..: ..ROW2..: .. .SPST..:
..SPND..:"......@0,23;"..
. SPRITE TEST..:".V....@0,24;"
.. SPN2..: .. . FREE MEMOR
Y..:";...8.....@..MODE1. .J..MP:.MD%.4:I
N%(0).2:..:.$:.DIS(1,IN%()):.AFIN(IN%())
.:.T..GRID1:.:.EDT1$:.LOOP.@.^.'.K.R..MO
DE2.I.|..MP:.MD%.2:IN%(0).4:..:.#.....MD
%.4:IN%(4).15:.AFIN(IN%())......DIS(1,IN
%()):.GRID2:.:CX%.1:.EDT2$:.LOOP.....'.H
.(#.LOOP.V.)#MO%.0:.MP...2#..{(47)..{(7)
.MO%.1:.MP:.MODE1...<#..{(47)..{(31).MO%
.2:.MP:.MODE2.@.F#..{(47)..{(1).MO%.3:.M
P:.MODE3.D.P#..{(47)..{(25).MO%.4:.MP:.M
ODE4...Z#..{(47)..{(2).MO%.5:.MP:.MODE5.
..D#.9001...OC....PC'PROCPOKE PUTS M/C I
N MEMORY.R.ZC'FROM $04A0 TO $05FF....DC'
PROCCHR2HIRES(X,Y) CONVERTS...NC'CHR$SQR
TO HIRES AT (X,Y)..4.XC'PROCHIRES2CHR D
OES REVERSE..Y..C.POKE:.I,J:.MCDATA:.I.$
4A0.$0597.I..C.J:.I,J:.:.....C.MCDATA:.1
69,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.'.
.C.34,24,105,40,133,34,144,2,230,35,198,
37,208,222,96,0.C..C.169,40,133,34,169,2
04,133,35,169,8,133,37,160,8,177,73....C
.133,36,230,73,102,36,169,40,42,73,1,145
,34,136,208,244.Z.HC.165,34,105,40,133,3
4,144,2,230,35,198,37,208,222,96,0...MC.
169,53,133,1,32,208,4,169,55,133,1,96.6.
RC.CHR2HIRES(X,Y):.73,$E000.X.8.Y.320:.$
04A0:..E..C.HIRES2CHR(X,Y):.73,$DFF8.X.8
.Y.320:.$0500.X..C.AFLAG%.1..UPP.~..C..F
..C.169,204,133,76,169,41,133,75,169,8,1
33,77,160,0,177,75,74,74,74,74....C.162,
3,221,248,5,240,3,202,208,248,138,6,78,6
,78,5,78,133,78,200,200.V..C.192,8,208,2
25,145,73,165,75,105,39,133,75,144,2,230
,76,230,73,198. ..D.77,208,205,96,169,53
,133,1,169,204,133,76,169,40,133,75,169,
8,133,77....D.160,8,177,73,133,78,165,78
,41,3,170,189,248,5,10,10,10,10,133,79,1
77.2..D.75,41,15,5,79,145,75,136,145,75,
70,78,70,78,136,208,224,230,73,165.W."D.
75,24,105,40,133,75,144,2,230,76,198,77,
208,201,169,55,133,1,96...|D.CHR4HIRES(X
,Y):.73,$DFF8.X.8.Y.320:.$050C:..Y..D.HI
RES4CHR(X,Y):.73,$DFF8.X.8.Y.320:.$054C:
....`..SVE(Z$):.+Z$:....J..LOD(Z$):.,Z$:
....
> CLICK IMAGE PREVIEW FOR FULL MODAL