12-24
FILE INFORMATION
FILENAME(S): 12-24
FILE TYPE(S): PRG
FILE SIZE: 3.4K
FIRST SEEN: 2025-11-30 21:12:26
APPEARS ON: 2 disk(s)
FILE HASH
a902cee26473eaf23f8d766d02983991819d1e384d3c8fbed54323eb5cccd98c
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOTUS SOFT | 12-24 | PRG | DuncanTwain | 11 | 0 | DOWNLOAD FILE |
| PROG 64 WEST | 12-24 | PRG | DuncanTwain | 11 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 00 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..).... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 51 08 01 00 8F 20 |*********.Q.... |
00000030: 2A 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 |* PROGRAM |
00000040: 31 32 2D 32 34 3A 20 20 20 20 20 20 20 20 20 20 |12-24: |
00000050: 2A 00 79 08 02 00 8F 20 2A 20 55 53 45 52 2D 44 |*.y.... * USER-D|
00000060: 45 46 49 4E 45 44 20 43 48 41 52 41 43 54 45 52 |EFINED CHARACTER|
00000070: 20 45 44 49 54 4F 52 20 2A 00 A1 08 03 00 8F 20 | EDITOR *...... |
00000080: 2A 20 53 54 41 4E 44 41 52 44 20 41 4E 44 20 4D |* STANDARD AND M|
00000090: 55 4C 54 49 43 4F 4C 4F 52 20 4D 4F 44 45 53 20 |ULTICOLOR MODES |
000000A0: 2A 00 C9 08 04 00 8F 20 2A 20 20 20 20 20 28 43 |*...... * (C|
000000B0: 29 20 4D 2E 20 57 45 53 54 20 20 31 39 38 34 20 |) M. WEST 1984 |
000000C0: 20 20 20 20 20 20 20 20 2A 00 F1 08 05 00 8F 20 | *...... |
000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000F0: 2A 00 25 09 06 00 97 20 35 36 2C 34 38 3A 20 9C |*.%.... 56,48: .|
00000100: 3A 20 53 43 52 45 45 4E B2 31 30 36 34 3A 20 56 |: SCREEN.1064: V|
00000110: 49 43 B2 35 33 32 34 38 3A 20 43 48 41 52 53 B2 |IC.53248: CHARS.|
00000120: 31 32 32 38 38 00 47 09 08 00 96 20 A5 20 52 56 |12288.G.... . RV|
00000130: 28 51 29 B2 51 AA 31 32 38 AC 28 31 AA 28 51 B1 |(Q).Q.128.(1.(Q.|
00000140: 31 32 37 29 AC 32 29 00 6E 09 0B 00 86 20 43 4F |127).2).n.... CO|
00000150: 24 28 31 35 29 3A 20 81 20 4A B2 30 20 A4 20 31 |$(15): . J.0 . 1|
00000160: 35 3A 20 87 20 43 4F 24 28 4A 29 3A 20 82 00 93 |5: . CO$(J): ...|
00000170: 09 0C 00 81 20 4A B2 34 39 31 35 32 20 A4 20 34 |.... J.49152 . 4|
00000180: 39 32 31 33 3A 20 87 20 58 3A 20 97 20 4A 2C 58 |9213: . X: . J,X|
00000190: 3A 20 82 00 B8 09 12 00 85 20 22 46 45 54 43 48 |: ....... "FETCH|
000001A0: 20 43 48 41 52 41 43 54 45 52 53 20 46 52 4F 4D | CHARACTERS FROM|
000001B0: 20 52 4F 4D 22 3B 58 24 00 CD 09 13 00 8B 20 58 | ROM";X$...... X|
000001C0: 24 B2 22 59 22 20 A7 20 8D 20 35 30 30 00 EB 09 |$."Y" . . 500...|
000001D0: 16 00 97 20 36 34 36 2C 30 3A 20 97 20 36 35 30 |... 646,0: . 650|
000001E0: 2C 31 32 38 3A 20 99 20 22 93 22 00 22 0A 1B 00 |,128: . "."."...|
000001F0: 81 20 4A B2 30 20 A4 20 31 32 37 3A 20 97 20 53 |. J.0 . 127: . S|
00000200: 43 AA 32 AC 4A AA 34 30 31 2C 4A 3A 20 97 20 53 |C.2.J.401,J: . S|
00000210: 43 AA 4A AC 32 AA 37 32 31 2C 4A AA 31 32 38 3A |C.J.2.721,J.128:|
00000220: 20 82 00 44 0A 28 00 97 20 56 49 43 AA 32 34 2C | ..D.(.. VIC.24,|
00000230: 28 C2 28 56 49 43 AA 32 34 29 AF 32 34 30 29 20 |(.(VIC.24).240) |
00000240: B0 20 31 32 00 5E 0A 64 00 4E 43 B2 30 3A 20 4F |. 12.^.d.NC.0: O|
00000250: 46 B2 4E 43 AC 38 3A 20 8D 20 33 30 30 30 00 81 |F.NC.8: . 3000..|
00000260: 0A 8C 00 97 20 35 33 32 38 30 2C 35 3A 20 97 20 |.... 53280,5: . |
00000270: 35 33 32 38 31 2C 35 3A 97 20 35 33 32 38 32 2C |53281,5:. 53282,|
00000280: 32 00 AB 0A 92 00 97 20 35 33 32 38 33 2C 38 3A |2...... 53283,8:|
00000290: 97 20 34 38 31 39 37 2C 30 3A 20 9E 20 34 39 31 |. 48197,0: . 491|
000002A0: 38 38 3A 20 8D 20 32 30 30 30 30 00 D0 0A B4 00 |88: . 20000.....|
000002B0: 58 43 B2 30 3A 20 59 43 B2 30 3A 20 43 43 B2 53 |XC.0: YC.0: CC.S|
000002C0: 43 3A 20 97 43 43 2C C2 28 43 43 29 B0 31 32 38 |C: .CC,.(CC).128|
000002D0: 00 E7 0A C8 00 A1 20 58 24 3A 20 8B 58 24 B2 22 |...... X$: .X$."|
000002E0: 22 20 A7 20 32 30 30 00 0D 0B CA 00 8B 20 58 24 |" . 200...... X$|
000002F0: B2 22 91 22 20 AF 20 59 43 B1 20 30 20 A7 20 59 |."." . YC. 0 . Y|
00000300: 43 B2 59 43 AB 31 3A 20 89 20 32 35 30 00 33 0B |C.YC.1: . 250.3.|
00000310: CC 00 8B 20 58 24 B2 22 1D 22 20 AF 20 58 43 B3 |... X$."." . XC.|
00000320: 33 39 20 A7 20 58 43 B2 58 43 AA 31 3A 20 89 20 |39 . XC.XC.1: . |
00000330: 32 35 30 00 59 0B CE 00 8B 20 58 24 B2 22 11 22 |250.Y.... X$."."|
00000340: 20 AF 20 59 43 B3 32 33 20 A7 20 59 43 B2 59 43 | . YC.23 . YC.YC|
00000350: AA 31 3A 20 89 20 32 35 30 00 7F 0B D0 00 8B 20 |.1: . 250...... |
00000360: 58 24 B2 22 9D 22 20 AF 20 58 43 B1 20 30 20 A7 |X$."." . XC. 0 .|
00000370: 20 58 43 B2 58 43 AB 31 3A 20 89 20 32 35 30 00 | XC.XC.1: . 250.|
00000380: 9C 0B DA 00 8B 20 58 24 B2 22 13 22 20 A7 20 8D |..... X$."." . .|
00000390: 20 34 30 30 30 3A 20 89 20 31 38 30 00 B9 0B DC | 4000: . 180....|
000003A0: 00 8B 20 58 24 B2 22 20 22 20 A7 20 8D 20 32 30 |.. X$." " . . 20|
000003B0: 30 30 3A 20 89 20 32 30 30 00 E3 0B E2 00 81 20 |00: . 200...... |
000003C0: 5A B2 31 20 A4 20 38 3A 8B 20 58 24 B3 B1 CA 28 |Z.1 . 8:. X$...(|
000003D0: 22 85 86 87 88 89 8A 8B 8C 22 2C 5A 2C 31 29 20 |"........",Z,1) |
000003E0: A7 20 82 00 25 0C E4 00 43 42 B2 5A AB 31 3A 20 |. ..%...CB.Z.1: |
000003F0: 91 20 5A 20 8D 20 32 31 30 30 30 2C 32 31 30 30 |. Z . 21000,2100|
00000400: 30 2C 32 31 30 30 30 2C 32 31 30 30 30 2C 31 31 |0,21000,21000,11|
00000410: 30 30 30 2C 31 32 30 30 30 2C 31 33 30 30 30 2C |000,12000,13000,|
00000420: 31 34 30 30 30 00 3B 0C E5 00 8B 20 5A B1 30 20 |14000.;.... Z.0 |
00000430: AF 20 5A B3 39 20 89 20 32 30 30 00 64 0C EC 00 |. Z.9 . 200.d...|
00000440: 81 20 5A B2 31 20 A4 20 37 3A 20 8B 20 58 24 B3 |. Z.1 . 7: . X$.|
00000450: B1 CA 28 22 3D 44 43 49 4D 54 22 2C 5A 2C 31 29 |..("=DCIMT",Z,1)|
00000460: 20 A7 20 82 00 8E 0C ED 00 91 20 5A 20 8D 20 36 | . ....... Z . 6|
00000470: 30 30 30 2C 37 30 30 30 2C 39 30 30 30 2C 39 35 |000,7000,9000,95|
00000480: 30 30 2C 31 30 30 30 30 2C 31 30 35 30 30 00 A4 |00,10000,10500..|
00000490: 0C EF 00 8B 20 5A B1 30 20 AF 20 5A B3 38 20 89 |.... Z.0 . Z.8 .|
000004A0: 20 32 30 30 00 C1 0C F6 00 8B 20 58 24 B2 22 53 | 200...... X$."S|
000004B0: 22 20 A7 20 8D 20 31 36 30 30 30 3A 20 89 20 32 |" . . 16000: . 2|
000004C0: 32 00 DE 0C F7 00 8B 20 58 24 B2 22 4C 22 20 A7 |2...... X$."L" .|
000004D0: 20 8D 20 31 38 30 30 30 3A 20 89 20 32 32 00 E8 | . 18000: . 22..|
000004E0: 0C F8 00 89 20 32 30 30 00 12 0D FA 00 8D 20 34 |.... 200...... 4|
000004F0: 30 30 30 3A 20 43 43 B2 58 43 AA 59 43 AC 34 30 |000: CC.XC.YC.40|
00000500: AA 53 43 3A 20 8D 20 34 30 30 30 3A 20 89 20 32 |.SC: . 4000: . 2|
00000510: 30 30 00 45 0D 83 01 83 20 22 42 4C 41 43 4B 20 |00.E.... "BLACK |
00000520: 22 2C 22 57 48 49 54 45 20 22 2C 22 52 45 44 20 |","WHITE ","RED |
00000530: 20 20 22 2C 22 43 59 41 4E 20 20 22 2C 22 50 55 | ","CYAN ","PU|
00000540: 52 50 4C 45 22 00 7E 0D 84 01 83 20 22 47 52 45 |RPLE".~.... "GRE|
00000550: 45 4E 22 2C 22 42 4C 55 45 22 2C 22 59 45 4C 4C |EN","BLUE","YELL|
00000560: 4F 57 22 2C 22 4F 52 41 4E 47 45 22 2C 22 42 52 |OW","ORANGE","BR|
00000570: 4F 57 4E 20 22 2C 22 4C 54 20 52 45 44 22 00 B1 |OWN ","LT RED"..|
00000580: 0D 85 01 83 20 22 47 52 41 59 20 31 22 2C 22 47 |.... "GRAY 1","G|
00000590: 52 41 59 20 32 22 2C 22 4C 54 20 47 52 4E 22 2C |RAY 2","LT GRN",|
000005A0: 22 4C 20 42 4C 55 45 22 2C 22 47 52 41 59 20 33 |"L BLUE","GRAY 3|
000005B0: 22 00 D7 0D 86 01 83 20 31 32 30 2C 31 36 32 2C |"...... 120,162,|
000005C0: 38 2C 31 36 30 2C 30 2C 31 36 39 2C 32 30 38 2C |8,160,0,169,208,|
000005D0: 31 33 33 2C 32 35 32 00 FE 0D 87 01 83 20 31 36 |133,252...... 16|
000005E0: 39 2C 34 38 2C 31 33 33 2C 32 35 34 2C 31 36 39 |9,48,133,254,169|
000005F0: 2C 30 2C 31 33 33 2C 32 35 31 2C 31 33 33 00 24 |,0,133,251,133.$|
00000600: 0E 88 01 83 20 32 35 33 2C 31 37 37 2C 32 35 31 |.... 253,177,251|
00000610: 2C 31 34 35 2C 32 35 33 2C 32 30 30 2C 32 30 38 |,145,253,200,208|
00000620: 2C 32 34 39 00 4C 0E 89 01 83 20 32 33 30 2C 32 |,249.L.... 230,2|
00000630: 35 32 2C 32 33 30 2C 32 35 34 2C 32 30 32 2C 32 |52,230,254,202,2|
00000640: 30 38 2C 32 34 32 2C 38 38 2C 39 36 00 72 0E 8B |08,242,88,96.r..|
00000650: 01 83 20 30 2C 31 36 39 2C 32 31 36 2C 31 33 33 |.. 0,169,216,133|
00000660: 2C 32 35 32 2C 31 36 39 2C 30 2C 31 33 33 2C 32 |,252,169,0,133,2|
00000670: 35 31 00 97 0E 8C 01 83 20 31 36 32 2C 34 2C 31 |51...... 162,4,1|
00000680: 36 30 2C 30 2C 31 37 33 2C 33 35 2C 31 39 32 2C |60,0,173,35,192,|
00000690: 31 34 35 2C 32 35 31 00 C0 0E 8D 01 83 20 32 30 |145,251...... 20|
000006A0: 30 2C 32 30 38 2C 32 34 38 2C 32 33 30 2C 32 35 |0,208,248,230,25|
000006B0: 32 2C 32 30 32 2C 32 30 38 2C 32 34 33 2C 39 36 |2,202,208,243,96|
000006C0: 00 E1 0E F4 01 97 20 35 36 33 33 33 2C 31 32 37 |...... 56333,127|
000006D0: 3A 20 97 20 31 2C 35 31 3A 20 9E 20 34 39 31 35 |: . 1,51: . 4915|
000006E0: 32 00 FC 0E 1C 02 97 20 31 2C 35 35 3A 20 97 20 |2...... 1,55: . |
000006F0: 35 36 33 33 33 2C 31 32 39 3A 20 8E 00 12 0F D0 |56333,129: .....|
00000700: 07 8B 20 59 43 B1 37 20 B0 20 58 43 B1 37 20 A7 |.. YC.7 . XC.7 .|
00000710: 20 8E 00 39 0F DA 07 50 54 B2 43 48 AA 59 43 AA | ..9...PT.CH.YC.|
00000720: 4F 46 3A 20 42 59 B2 C2 28 50 54 29 3A 20 4D 53 |OF: BY..(PT): MS|
00000730: B2 32 AE 28 37 AB 58 43 29 00 4C 0F EE 07 97 20 |.2.(7.XC).L.... |
00000740: 43 43 2C 33 38 32 AB C2 28 43 43 29 00 73 0F F8 |CC,382..(CC).s..|
00000750: 07 8B 20 28 42 59 20 AF 20 4D 53 29 B2 30 20 A7 |.. (BY . MS).0 .|
00000760: 20 97 20 50 54 2C 42 59 AA 4D 53 3A 20 89 20 32 | . PT,BY.MS: . 2|
00000770: 30 36 30 00 82 0F 02 08 97 20 50 54 2C 42 59 AB |060...... PT,BY.|
00000780: 4D 53 00 A8 0F 0C 08 97 20 32 31 34 2C 59 43 3A |MS...... 214,YC:|
00000790: 20 99 3A 20 99 A3 39 29 22 20 20 20 9D 9D 9D 9D | .: ..9)" ....|
000007A0: 22 3B 20 C2 28 50 54 29 00 AE 0F 16 08 8E 00 DB |"; .(PT)........|
000007B0: 0F B8 0B 99 20 22 13 22 3A 20 81 20 59 39 B2 30 |.... ".": . Y9.0|
000007C0: 20 A4 20 37 3A 20 50 54 B2 43 48 AA 59 39 AA 4F | . 7: PT.CH.Y9.O|
000007D0: 46 3A 20 42 59 B2 C2 28 50 54 29 00 EA 0F CC 0B |F: BY..(PT).....|
000007E0: 81 20 58 39 B2 30 20 A4 20 37 00 11 10 D6 0B 8B |. X9.0 . 7......|
000007F0: 20 28 42 59 AF 32 AE 28 37 AB 58 39 29 29 B1 30 | (BY.2.(7.X9)).0|
00000800: 20 A7 20 99 20 22 D1 22 3B 3A 20 89 20 33 30 34 | . . ".";: . 304|
00000810: 30 00 1C 10 DB 0B 99 20 22 2D 22 3B 00 35 10 E0 |0...... "-";.5..|
00000820: 0B 82 3A 20 99 20 22 20 20 20 20 9D 9D 9D 9D 22 |..: . " ...."|
00000830: 42 59 3A 20 82 00 61 10 F4 0B 99 20 22 13 20 20 |BY: ..a.... ". |
00000840: 20 20 20 20 20 20 20 20 20 20 53 43 52 45 45 4E | SCREEN|
00000850: 20 43 4F 44 45 3D 20 20 20 9D 9D 9D 9D 22 20 4E | CODE= ...." N|
00000860: 43 00 67 10 FE 0B 8E 00 7E 10 A0 0F 97 20 43 43 |C.g.....~.... CC|
00000870: 2C A5 52 56 28 C2 28 43 43 29 29 3A 20 8E 00 8D |,.RV(.(CC)): ...|
00000880: 10 70 17 8B 20 59 43 B3 39 20 A7 20 8E 00 B3 10 |.p.. YC.9 . ....|
00000890: 7A 17 4E 43 B2 A5 52 56 28 C2 28 43 43 29 29 3A |z.NC..RV(.(CC)):|
000008A0: 20 4F 46 B2 4E 43 AC 38 3A 20 8D 20 33 30 30 30 | OF.NC.8: . 3000|
000008B0: 3A 20 8E 00 D2 10 58 1B 8B 20 59 43 B1 37 20 B0 |: ....X.. YC.7 .|
000008C0: 20 58 43 B3 31 33 20 B0 20 58 43 B1 32 37 20 A7 | XC.13 . XC.27 .|
000008D0: 20 8E 00 E6 10 76 1B 97 20 43 43 2C A5 52 56 28 | ....v.. CC,.RV(|
000008E0: 4E 43 29 3A 20 8E 00 10 11 28 23 81 20 4A B2 43 |NC): ....(#. J.C|
000008F0: 48 AA 4F 46 20 A4 20 43 48 AA 4F 46 AA 37 3A 20 |H.OF . CH.OF.7: |
00000900: 97 20 4A 2C 30 3A 20 82 3A 20 8D 20 33 30 30 30 |. J,0: .: . 3000|
00000910: 00 2B 11 41 23 8B 20 59 43 B3 38 20 AF 20 58 43 |.+.A#. YC.8 . XC|
00000920: B3 38 20 A7 20 8D 20 34 30 30 30 00 31 11 46 23 |.8 . . 4000.1.F#|
00000930: 8E 00 5A 11 1C 25 81 20 4A B2 43 48 AA 4F 46 20 |..Z..%. J.CH.OF |
00000940: A4 20 43 48 AA 4F 46 AA 37 3A 20 97 20 4A 2C 32 |. CH.OF.7: . J,2|
00000950: 35 35 AB C2 28 4A 29 3A 20 82 00 7D 11 35 25 8D |55..(J): ..}.5%.|
00000960: 20 33 30 30 30 3A 20 8B 20 59 43 B3 38 20 AF 20 | 3000: . YC.8 . |
00000970: 58 43 B3 38 20 A7 20 8D 20 34 30 30 30 00 83 11 |XC.8 . . 4000...|
00000980: 3A 25 8E 00 93 11 10 27 56 B2 C2 28 56 49 43 AA |:%.....'V..(VIC.|
00000990: 32 32 29 00 BB 11 1A 27 8B 20 28 56 AF 31 36 29 |22)....'. (V.16)|
000009A0: B1 30 20 A7 20 97 20 56 49 43 AA 32 32 2C 56 20 |.0 . . VIC.22,V |
000009B0: AF 20 32 35 35 AB 31 36 3A 20 8E 00 D2 11 24 27 |. 255.16: ....$'|
000009C0: 97 20 56 49 43 AA 32 32 2C 56 20 B0 20 31 36 3A |. VIC.22,V . 16:|
000009D0: 20 8E 00 E1 11 04 29 8B 20 59 43 B3 39 20 A7 20 | .....). YC.9 . |
000009E0: 8E 00 FC 11 18 29 4E 4E B2 A5 52 56 28 C2 28 43 |.....)NN..RV(.(C|
000009F0: 43 29 29 3A 20 4F 47 B2 4E 4E AC 38 00 26 12 22 |C)): OG.NN.8.&."|
00000A00: 29 81 20 4A B2 30 20 A4 20 37 3A 20 97 20 43 48 |). J.0 . 7: . CH|
00000A10: AA 4F 47 AA 4A 2C C2 28 43 48 AA 4F 46 AA 4A 29 |.OG.J,.(CH.OF.J)|
00000A20: 3A 20 82 3A 20 8E 00 3E 12 F8 2A 54 B2 28 C2 28 |: .: ..>..*T.(.(|
00000A30: 35 33 32 38 30 29 AA 31 29 20 AF 20 31 35 00 60 |53280).1) . 15.`|
00000A40: 12 FB 2A 97 20 35 33 32 38 30 2C 54 3A 20 97 20 |..*. 53280,T: . |
00000A50: 35 33 32 38 31 2C 54 3A 20 89 20 32 30 30 30 30 |53281,T: . 20000|
00000A60: 00 78 12 E0 2E 54 B2 28 C2 28 35 33 32 38 32 29 |.x...T.(.(53282)|
00000A70: AA 31 29 20 AF 20 31 35 00 8F 12 E3 2E 97 20 35 |.1) . 15...... 5|
00000A80: 33 32 38 32 2C 54 3A 20 89 20 32 30 30 30 30 00 |3282,T: . 20000.|
00000A90: A7 12 C8 32 54 B2 28 C2 28 35 33 32 38 33 29 AA |...2T.(.(53283).|
00000AA0: 31 29 20 AF 20 31 35 00 BE 12 CB 32 97 20 35 33 |1) . 15....2. 53|
00000AB0: 32 38 33 2C 54 3A 20 89 20 32 30 30 30 30 00 D6 |283,T: . 20000..|
00000AC0: 12 B0 36 54 B2 28 C2 28 34 39 31 38 37 29 AA 31 |..6T.(.(49187).1|
00000AD0: 29 20 AF 20 31 35 00 F6 12 B3 36 97 20 34 39 31 |) . 15....6. 491|
00000AE0: 38 37 2C 54 3A 20 9E 20 34 39 31 38 38 3A 20 89 |87,T: . 49188: .|
00000AF0: 20 32 30 30 30 30 00 14 13 80 3E 8D 20 31 39 30 | 20000....>. 190|
00000B00: 30 30 3A 20 99 3A 20 9E 20 35 37 38 31 32 4E 4D |00: .: . 57812NM|
00000B10: 24 2C 44 4E 00 3D 13 94 3E 97 20 31 39 33 2C 30 |$,DN.=..>. 193,0|
00000B20: 3A 20 97 20 31 39 34 2C 34 38 3A 20 97 20 31 37 |: . 194,48: . 17|
00000B30: 34 2C 30 3A 20 97 20 31 37 35 2C 35 36 00 4C 13 |4,0: . 175,56.L.|
00000B40: A8 3E 9E 20 36 32 39 35 37 3A 20 8E 00 72 13 50 |.>. 62957: ..r.P|
00000B50: 46 8D 20 31 39 30 30 30 3A 20 97 20 31 34 37 2C |F. 19000: . 147,|
00000B60: 30 3A 20 9E 20 35 37 38 31 32 4E 4D 24 2C 44 4E |0: . 57812NM$,DN|
00000B70: 2C 30 00 9D 13 71 46 4C 39 B2 31 32 32 38 38 3A |,0...qFL9.12288:|
00000B80: 20 97 20 37 38 31 2C 4C 39 20 AF 20 32 35 35 3A | . 781,L9 . 255:|
00000B90: 20 97 20 37 38 32 2C 4C 39 AD 32 35 36 00 AC 13 | . 782,L9.256...|
00000BA0: 72 46 9E 20 36 32 36 32 32 3A 20 8E 00 CB 13 38 |rF. 62622: ....8|
00000BB0: 4A 85 20 22 93 20 20 20 20 20 20 20 20 20 46 49 |J. ". FI|
00000BC0: 4C 45 4E 41 4D 45 22 3B 4E 4D 24 00 E9 13 3D 4A |LENAME";NM$...=J|
00000BD0: 85 20 22 44 49 53 4B 20 4F 52 20 54 41 50 45 20 |. "DISK OR TAPE |
00000BE0: 28 44 2F 54 29 22 3B 58 24 00 00 14 42 4A 8B 20 |(D/T)";X$...BJ. |
00000BF0: 58 24 B2 22 44 22 20 A7 20 44 4E B2 38 3A 20 8E |X$."D" . DN.8: .|
00000C00: 00 0C 14 4C 4A 44 4E B2 31 3A 20 8E 00 33 14 20 |...LJDN.1: ..3. |
00000C10: 4E 99 20 22 13 11 22 A3 32 39 29 22 42 47 30 20 |N. "..".29)"BG0 |
00000C20: 22 43 4F 24 28 C2 28 35 33 32 38 30 29 20 AF 20 |"CO$(.(53280) . |
00000C30: 31 35 29 00 56 14 48 4E 99 20 A3 32 39 29 22 42 |15).V.HN. .29)"B|
00000C40: 47 31 20 22 43 4F 24 28 C2 28 35 33 32 38 32 29 |G1 "CO$(.(53282)|
00000C50: 20 AF 20 31 35 29 00 79 14 5C 4E 99 20 A3 32 39 | . 15).y.\N. .29|
00000C60: 29 22 42 47 32 20 22 43 4F 24 28 C2 28 35 33 32 |)"BG2 "CO$(.(532|
00000C70: 38 33 29 20 AF 20 31 35 29 00 9F 14 70 4E 99 20 |83) . 15)...pN. |
00000C80: A3 32 39 29 22 54 58 54 20 22 43 4F 24 28 C2 28 |.29)"TXT "CO$(.(|
00000C90: 34 39 31 38 37 29 20 AF 20 31 35 29 3A 20 8E 00 |49187) . 15): ..|
00000CA0: B5 14 08 52 8B 20 59 43 B1 37 20 B0 20 58 43 B1 |...R. YC.7 . XC.|
00000CB0: 37 20 A7 20 8E 00 E1 14 12 52 43 50 B2 43 43 20 |7 . .....RCP.CC |
00000CC0: AF 20 32 30 34 36 3A 20 8B 20 43 42 B1 31 20 A7 |. 2046: . CB.1 .|
00000CD0: 20 97 20 43 50 2C 38 31 3A 20 89 20 32 31 30 33 | . CP,81: . 2103|
00000CE0: 30 00 ED 14 1C 52 97 20 43 50 2C 34 35 00 19 15 |0....R. CP,45...|
00000CF0: 26 52 43 50 B2 43 50 AA 31 3A 20 8B 28 43 42 20 |&RCP.CP.1: .(CB |
00000D00: AF 20 31 29 B2 31 20 A7 20 97 20 43 50 2C 38 31 |. 1).1 . . CP,81|
00000D10: 3A 20 89 20 32 31 30 35 30 00 25 15 30 52 97 20 |: . 21050.%.0R. |
00000D20: 43 50 2C 34 35 00 46 15 3A 52 8D 34 30 30 30 3A |CP,45.F.:R.4000:|
00000D30: 20 50 54 B2 43 48 AA 59 43 AA 4F 46 3A 20 42 59 | PT.CH.YC.OF: BY|
00000D40: B2 C2 28 50 54 29 00 7B 15 44 52 4D 50 B2 37 AB |..(PT).{.DRMP.7.|
00000D50: 58 43 20 AF 20 36 3A 20 4D 4B B2 32 AE 4D 50 AC |XC . 6: MK.2.MP.|
00000D60: 33 3A 20 42 59 B2 28 42 59 20 AF 20 A8 20 4D 4B |3: BY.(BY . . MK|
00000D70: 29 20 AA 20 43 42 AC 32 AE 4D 50 00 94 15 4E 52 |) . CB.2.MP...NR|
00000D80: 97 20 50 54 2C 42 59 3A 20 97 20 32 31 34 2C 59 |. PT,BY: . 214,Y|
00000D90: 43 3A 20 99 00 B0 15 58 52 99 20 A3 39 29 22 20 |C: ....XR. .9)" |
00000DA0: 20 20 9D 9D 9D 9D 22 20 C2 28 50 54 29 3A 20 8E | ...." .(PT): .|
00000DB0: 00 00 00 |... |
..).... ********************************
*.Q.... * PROGRAM 12-24:
*.Y.... * USER-DEFINED CHARACTER EDITOR
*...... * STANDARD AND MULTICOLOR MODES
*.I.... * (C) M. WEST 1984
*...... ********************************
*.%.... 56,48: .: SCREEN.1064: VIC.53248
: CHARS.12288.G.... . RV(Q).Q.128.(1.(Q.
127).2).N.... CO$(15): . J.0 . 15: . CO$
(J): ....... J.49152 . 49213: . X: . J,X
: ....... "FETCH CHARACTERS FROM ROM";X$
.M.... X$."Y" . . 500...... 646,0: . 650
,128: . ".".".... J.0 . 127: . SC.2.J.40
1,J: . SC.J.2.721,J.128: ..D.(.. VIC.24,
(B(VIC.24).240) . 12.^.D.NC.0: OF.NC.8:
. 3000...... 53280,5: . 53281,5:. 53282,
2...... 53283,8:. 48197,0: . 49188: . 20
000.P...XC.0: YC.0: CC.SC: .CC,B(CC).128
...H.. X$: .X$."" . 200...J.. X$."." . Y
C. 0 . YC.YC.1: . 250.3.L.. X$."." . XC.
39 . XC.XC.1: . 250.Y.N.. X$."." . YC.23
. YC.YC.1: . 250..P.. X$."." . XC. 0 .
XC.XC.1: . 250...Z.. X$."." . . 4000: .
180...... X$." " . . 2000: . 200......
Z.1 . 8:. X$..J("........",Z,1) . ..%...
CB.Z.1: . Z . 21000,21000,21000,21000,11
000,12000,13000,14000.;.... Z.0 . Z.9 .
200.D.... Z.1 . 7: . X$..J("=DCIMT",Z,1)
. ....... Z . 6000,7000,9000,9500,10000
,10500...... Z.0 . Z.8 . 200.A.... X$."S
" . . 16000: . 22...... X$."L" . . 18000
: . 22...... 200...... 4000: CC.XC.YC.40
.SC: . 4000: . 200.E.... "BLACK ","WHITE
","RED ","CYAN ","PURPLE".~.... "GRE
EN","BLUE","YELLOW","ORANGE","BROWN ","L
T RED"...... "GRAY 1","GRAY 2","LT GRN",
"L BLUE","GRAY 3".W.... 120,162,8,160,0,
169,208,133,252...... 169,48,133,254,169
,0,133,251,133.$.... 253,177,251,145,253
,200,208,249.L.... 230,252,230,254,202,2
08,242,88,96.R.... 0,169,216,133,252,169
,0,133,251...... 162,4,160,0,173,35,192,
145,251...... 200,208,248,230,252,202,20
8,243,96...... 56333,127: . 1,51: . 4915
2...... 1,55: . 56333,129: ....P.. YC.7
. XC.7 . ..9.Z.PT.CH.YC.OF: BY.B(PT): MS
.2.(7.XC).L.... CC,382.B(CC).S.... (BY .
MS).0 . . PT,BY.MS: . 2060...... PT,BY.
MS...... 214,YC: .: ..9)" ...."; B(PT)
............ ".": . Y9.0 . 7: PT.CH.Y9.O
F: BY.B(PT)...L.. X9.0 . 7...V.. (BY.2.(
7.X9)).0 . . "Q";: . 3040...... "-";.5..
..: . " ...."BY: ..A.... ".
SCREEN CODE= ...." NC.G.....~. .. CC
,.RV(B(CC)): ....P.. YC.9 . ....Z.NC..RV
(B(CC)): OF.NC.8: . 3000: ..R.X.. YC.7 .
XC.13 . XC.27 . ....V.. CC,.RV(NC): ...
.(#. J.CH.OF . CH.OF.7: . J,0: .: . 3000
.+.A#. YC.8 . XC.8 . . 4000.1.F#..Z..%.
J.CH.OF . CH.OF.7: . J,255.B(J): ..}.5%.
3000: . YC.8 . XC.8 . . 4000...:%.....'
V.B(VIC.22)....'. (V.16).0 . . VIC.22,V
. 255.16: ..R.$'. VIC.22,V . 16: .....).
YC.9 . .....)NN..RV(B(CC)): OG.NN.8.&."
). J.0 . 7: . CH.OG.J,B(CH.OF.J): .: ..>
..*T.(B(53280).1) . 15.`..*. 53280,T: .
53281,T: . 20000.X...T.(B(53282).1) . 15
...... 53282,T: . 20000...H2T.(B(53283).
1) . 15...K2. 53283,T: . 20000.V..6T.(B(
49187).1) . 15....6. 49187,T: . 49188: .
20000....>. 19000: .: . 57812NM$,DN.=..
>. 193,0: . 194,48: . 174,0: . 175,56.L.
.>. 62957: ..R.PF. 19000: . 147,0: . 578
12NM$,DN,0...QFL9.12288: . 781,L9 . 255:
. 782,L9.256...RF. 62622: ..K.8J. ".
FILENAME";NM$...=J. "DISK OR TAPE
(D/T)";X$...BJ. X$."D" . DN.8: ....LJDN.
1: ..3. N. "..".29)"BG0 "CO$(B(53280) .
15).V.HN. .29)"BG1 "CO$(B(53282) . 15).Y
.\N. .29)"BG2 "CO$(B(53283) . 15)...PN.
.29)"TXT "CO$(B(49187) . 15): .....R. YC
.7 . XC.7 . .....RCP.CC . 2046: . CB.1 .
. CP,81: . 21030....R. CP,45...&RCP.CP.
1: .(CB . 1).1 . . CP,81: . 21050.%.0R.
CP,45.F.:R.4000: PT.CH.YC.OF: BY.B(PT).{
.DRMP.7.XC . 6: MK.2.MP.3: BY.(BY . . MK
) . CB.2.MP...NR. PT,BY: . 214,YC: ....X
R. .9)" ...." B(PT): ....
> CLICK IMAGE PREVIEW FOR FULL MODAL