12-28
FILE INFORMATION
FILENAME(S): 12-28
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 21:12:26
APPEARS ON: 2 disk(s)
FILE HASH
fc17cd91533beedae33af56de8ab80ddebac2f1a0e0b4d6bdfa412c69344a5b4
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOTUS SOFT | 12-28 | PRG | DuncanTwain | 25 | 0 | DOWNLOAD FILE |
| PROG 64 WEST | 12-28 | PRG | DuncanTwain | 25 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 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 00 4F 08 01 00 8F 20 2A |********.O.... *| 00000030: 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 31 32 | PROGRAM 12| 00000040: 2D 32 38 20 20 20 20 20 20 20 20 20 20 20 2A 00 |-28 *.| 00000050: 76 08 02 00 8F 20 2A 20 20 42 49 54 20 4D 41 50 |v.... * BIT MAP| 00000060: 20 4D 55 4C 54 49 43 4F 4C 4F 52 20 4D 4F 44 45 | MULTICOLOR MODE| 00000070: 20 20 20 20 20 2A 00 9D 08 03 00 8F 20 2A 20 20 | *...... * | 00000080: 20 20 20 20 53 43 52 45 45 4E 20 45 44 49 54 4F | SCREEN EDITO| 00000090: 52 20 20 20 20 20 20 20 20 20 20 20 2A 00 C4 08 |R *...| 000000A0: 04 00 8F 20 2A 20 20 20 28 43 29 20 52 20 57 45 |... * (C) R WE| 000000B0: 53 54 20 31 39 38 34 20 20 20 20 20 20 20 20 20 |ST 1984 | 000000C0: 20 20 20 2A 00 EB 08 05 00 8F 20 2A 4E 4F 54 45 | *...... *NOTE| 000000D0: 3A 20 41 54 20 53 54 41 52 54 2C 20 49 4E 50 55 |: AT START, INPU| 000000E0: 54 20 43 4F 4C 4F 55 52 53 20 2A 00 12 09 06 00 |T COLOURS *.....| 000000F0: 8F 20 2A 57 49 54 48 20 43 54 52 4C 2D 57 48 54 |. *WITH CTRL-WHT| 00000100: 2C 20 43 3D 52 45 44 2C 20 57 48 41 54 45 56 45 |, C=RED, WHATEVE| 00000110: 52 2A 00 39 09 07 00 8F 20 2A 2A 2A 2A 2A 2A 2A |R*.9.... *******| 00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 56 09 0A 00 97 20 |*********.V.... | 00000140: 35 36 2C 38 31 39 32 AD 32 35 36 3A 20 97 20 35 |56,8192.256: . 5| 00000150: 35 2C 30 3A 20 9C 00 7A 09 0B 00 99 20 22 42 41 |5,0: ..z.... "BA| 00000160: 43 4B 47 52 4F 55 4E 44 3F 22 3B 3A 20 8D 20 35 |CKGROUND?";: . 5| 00000170: 30 30 30 30 3A 20 42 41 B2 47 00 9E 09 0C 00 99 |0000: BA.G......| 00000180: 20 22 20 20 20 20 20 20 41 55 58 31 3F 22 3B 3A | " AUX1?";:| 00000190: 20 8D 20 35 30 30 30 30 3A 20 41 31 B2 47 00 C2 | . 50000: A1.G..| 000001A0: 09 0D 00 99 20 22 20 20 20 20 20 20 41 55 58 32 |.... " AUX2| 000001B0: 3F 22 3B 3A 20 8D 20 35 30 30 30 30 3A 20 41 32 |?";: . 50000: A2| 000001C0: B2 47 00 E6 09 0E 00 99 20 22 20 43 48 41 52 41 |.G...... " CHARA| 000001D0: 43 54 45 52 3F 22 3B 3A 20 8D 20 35 30 30 30 30 |CTER?";: . 50000| 000001E0: 3A 20 43 43 B2 47 00 10 0A 0F 00 97 20 35 33 32 |: CC.G...... 532| 000001F0: 36 35 2C C2 28 35 33 32 36 35 29 20 B0 20 33 32 |65,.(53265) . 32| 00000200: 3A 20 8F 20 42 49 54 20 4D 41 50 20 4D 4F 44 45 |: . BIT MAP MODE| 00000210: 00 3D 0A 10 00 97 20 35 33 32 37 32 2C C2 28 35 |.=.... 53272,.(5| 00000220: 33 32 37 32 29 20 B0 20 38 3A 20 20 8F 20 42 49 |3272) . 8: . BI| 00000230: 54 2D 4D 41 50 20 41 54 20 38 31 39 32 00 65 0A |T-MAP AT 8192.e.| 00000240: 11 00 97 20 35 33 32 37 30 2C C2 28 35 33 32 37 |... 53270,.(5327| 00000250: 30 29 20 B0 20 31 36 3A 20 8F 20 4D 55 4C 54 49 |0) . 16: . MULTI| 00000260: 43 4F 4C 4F 52 00 91 0A 14 00 97 20 35 33 32 38 |COLOR...... 5328| 00000270: 31 2C 42 41 3A 20 20 20 20 20 20 20 20 20 20 20 |1,BA: | 00000280: 20 20 20 20 20 8F 20 42 41 43 4B 47 52 4F 55 4E | . BACKGROUN| 00000290: 44 00 B6 0A 1A 00 81 20 4A B2 34 39 31 35 32 20 |D...... J.49152 | 000002A0: A4 20 34 39 32 30 35 3A 20 87 20 58 3A 20 97 20 |. 49205: . X: . | 000002B0: 4A 2C 58 3A 20 82 00 E0 0A 1C 00 43 45 B2 31 36 |J,X: ......CE.16| 000002C0: AC 41 31 20 AA 20 41 32 3A 20 97 20 34 39 31 38 |.A1 . A2: . 4918| 000002D0: 38 2C 43 43 3A 20 97 20 34 39 31 39 32 2C 43 45 |8,CC: . 49192,CE| 000002E0: 00 0E 0B 1E 00 9E 20 34 39 31 35 32 3A 20 8F 20 |...... 49152: . | 000002F0: 43 4F 4C 4F 52 20 56 41 4C 55 45 53 20 41 52 45 |COLOR VALUES ARE| 00000300: 20 50 4F 4B 45 44 20 49 4E 54 4F 20 4D 4C 00 2A | POKED INTO ML.*| 00000310: 0B 50 00 81 20 4A B2 30 20 A4 20 37 3A 20 50 32 |.P.. J.0 . 7: P2| 00000320: 28 4A 29 B2 32 AE 4A 3A 20 82 00 5C 0B 5A 00 42 |(J).2.J: ..\.Z.B| 00000330: B2 33 3A 20 58 B2 31 36 30 3A 20 59 B2 31 30 30 |.3: X.160: Y.100| 00000340: 3A 20 8F 20 53 54 41 52 54 20 49 4E 20 43 48 41 |: . START IN CHA| 00000350: 52 41 43 54 45 52 20 43 4F 4C 4F 52 00 73 0B 64 |RACTER COLOR.s.d| 00000360: 00 A1 20 47 24 3A 20 47 B2 C6 28 47 24 AA C7 28 |.. G$: G..(G$..(| 00000370: 30 29 29 00 95 0B 6E 00 8B 20 47 B1 34 38 20 AF |0))...n.. G.48 .| 00000380: 20 47 B3 35 33 20 A7 20 42 B2 47 AB 34 39 3A 20 | G.53 . B.G.49: | 00000390: 89 20 35 30 30 00 C2 0B C8 00 8B 20 47 24 B2 22 |. 500...... G$."| 000003A0: 20 22 20 A7 20 4D 4F 56 45 B2 31 AB 4D 4F 56 45 | " . MOVE.1.MOVE| 000003B0: 3A 20 8F 20 54 4F 47 47 4C 45 20 46 45 41 54 55 |: . TOGGLE FEATU| 000003C0: 52 45 00 F1 0B D2 00 8B 20 47 24 B2 22 1D 22 20 |RE...... G$."." | 000003D0: A7 20 58 B2 58 AA 32 3A 20 8B 20 58 B1 33 31 38 |. X.X.2: . X.318| 000003E0: 20 A7 20 58 B2 33 31 38 3A 20 8F 20 52 49 47 48 | . X.318: . RIGH| 000003F0: 54 00 1F 0C DC 00 8B 20 47 24 B2 22 9D 22 20 A7 |T...... G$."." .| 00000400: 20 58 B2 58 AB 32 3A 20 8B 20 58 B3 30 20 20 20 | X.X.2: . X.0 | 00000410: A7 20 58 B2 30 3A 20 20 20 8F 20 4C 45 46 54 00 |. X.0: . LEFT.| 00000420: 4B 0C E6 00 8B 20 47 24 B2 22 91 22 20 A7 20 59 |K.... G$."." . Y| 00000430: B2 59 AB 31 3A 20 8B 20 59 B3 30 20 20 20 A7 20 |.Y.1: . Y.0 . | 00000440: 59 B2 30 3A 20 20 20 8F 20 55 50 00 79 0C F0 00 |Y.0: . UP.y...| 00000450: 8B 20 47 24 B2 22 11 22 20 A7 20 59 B2 59 AA 31 |. G$."." . Y.Y.1| 00000460: 3A 20 8B 20 59 B1 31 39 39 20 A7 20 59 B2 31 39 |: . Y.199 . Y.19| 00000470: 39 3A 20 8F 20 44 4F 57 4E 00 A3 0C FA 00 8B 20 |9: . DOWN...... | 00000480: 47 24 B2 22 85 22 20 A7 20 42 41 B2 28 42 41 AA |G$."." . BA.(BA.| 00000490: 31 29 20 AF 20 31 35 3A 20 97 20 35 33 32 38 31 |1) . 15: . 53281| 000004A0: 2C 42 41 00 D3 0C 04 01 8B 20 47 24 B2 22 86 22 |,BA...... G$."."| 000004B0: 20 A7 20 41 31 B2 28 41 31 AA 31 29 20 AF 20 31 | . A1.(A1.1) . 1| 000004C0: 35 3A 20 43 45 B2 28 43 45 AA 31 36 29 20 AF 20 |5: CE.(CE.16) . | 000004D0: 32 35 35 00 03 0D 0E 01 8B 20 47 24 B2 22 87 22 |255...... G$."."| 000004E0: 20 A7 20 41 32 B2 28 41 32 AA 31 29 20 AF 20 31 | . A2.(A2.1) . 1| 000004F0: 35 3A 20 43 45 B2 28 43 45 AA 31 29 20 20 AF 20 |5: CE.(CE.1) . | 00000500: 32 35 35 00 21 0D 18 01 8B 20 47 24 B2 22 88 22 |255.!.... G$."."| 00000510: 20 A7 20 43 43 B2 28 43 43 AA 31 29 20 AF 20 31 | . CC.(CC.1) . 1| 00000520: 35 00 40 0D F4 01 53 43 52 45 45 4E 43 48 52 B2 |5.@...SCREENCHR.| 00000530: 34 30 AC B5 28 59 AD 38 29 AA B5 28 58 AD 38 29 |40..(Y.8)..(X.8)| 00000540: 00 5D 0D FE 01 52 4F 57 B2 59 20 AF 20 37 3A 20 |.]...ROW.Y . 7: | 00000550: 42 49 54 B2 36 AB 28 58 20 AF 20 37 29 00 7F 0D |BIT.6.(X . 7)...| 00000560: 08 02 43 48 41 52 B2 38 31 39 32 AA 38 AC 53 43 |..CHAR.8192.8.SC| 00000570: 52 AA 52 4F 57 3A 20 50 45 B2 C2 28 43 48 29 00 |R.ROW: PE..(CH).| 00000580: B4 0D 12 02 97 20 43 48 2C 28 50 45 20 AF 20 28 |..... CH,(PE . (| 00000590: 32 35 35 AB 33 AC 50 32 28 42 49 54 29 29 29 20 |255.3.P2(BIT))) | 000005A0: AF 20 A8 20 42 AC 32 AE 42 49 54 3A 20 8F 20 46 |. . B.2.BIT: . F| 000005B0: 4C 41 53 48 00 EC 0D 1C 02 97 20 43 48 2C 28 50 |LASH...... CH,(P| 000005C0: 45 20 AF 20 28 32 35 35 AB 33 AC 50 32 28 42 49 |E . (255.3.P2(BI| 000005D0: 54 29 29 29 20 B0 20 20 20 20 20 20 42 AC 32 AE |T))) . B.2.| 000005E0: 42 49 54 3A 20 8F 20 46 4C 41 53 48 00 18 0E 26 |BIT: . FLASH...&| 000005F0: 02 8B 20 4D 4F 56 45 B2 31 20 A7 20 97 20 43 48 |.. MOVE.1 . . CH| 00000600: 2C 50 45 3A 20 8F 20 52 45 50 4C 41 43 45 20 55 |,PE: . REPLACE U| 00000610: 4E 43 48 41 4E 47 45 44 00 43 0E 4E 02 8B 20 4D |NCHANGED.C.N.. M| 00000620: 4F 56 45 B2 30 20 A7 20 97 20 31 30 32 34 AA 53 |OVE.0 . . 1024.S| 00000630: 43 2C 43 45 3A 20 97 20 35 35 32 39 36 AA 53 43 |C,CE: . 55296.SC| 00000640: 2C 43 43 00 4D 0E 58 02 89 20 31 30 30 00 6F 0E |,CC.M.X.. 100.o.| 00000650: 1F 4E 8F 20 4D 4C 20 54 4F 20 43 4C 45 41 52 20 |.N. ML TO CLEAR | 00000660: 42 49 54 20 4D 41 50 20 53 43 52 45 45 4E 3A 00 |BIT MAP SCREEN:.| 00000670: 96 0E 20 4E 83 20 31 36 32 2C 33 32 2C 31 33 38 |.. N. 162,32,138| 00000680: 2C 31 33 33 2C 32 35 32 2C 31 36 39 2C 30 2C 31 |,133,252,169,0,1| 00000690: 33 33 2C 32 35 31 00 C0 0E 21 4E 83 20 31 34 35 |33,251...!N. 145| 000006A0: 2C 32 35 31 2C 32 30 30 2C 32 30 38 2C 32 35 31 |,251,200,208,251| 000006B0: 2C 32 33 30 2C 32 35 32 2C 32 30 32 2C 32 30 38 |,230,252,202,208| 000006C0: 00 EA 0E 25 4E 83 20 32 34 36 2C 31 33 34 2C 32 |...%N. 246,134,2| 000006D0: 35 32 2C 31 33 34 2C 32 35 34 2C 31 36 39 2C 32 |52,134,254,169,2| 000006E0: 31 36 2C 31 33 33 2C 32 35 33 00 10 0F 26 4E 83 |16,133,253...&N.| 000006F0: 20 31 36 39 2C 34 2C 31 33 33 2C 32 35 35 2C 31 | 169,4,133,255,1| 00000700: 36 32 2C 34 2C 31 36 30 2C 30 2C 31 36 39 2C 33 |62,4,160,0,169,3| 00000710: 00 35 0F 2A 4E 83 20 31 34 35 2C 32 35 32 2C 31 |.5.*N. 145,252,1| 00000720: 36 39 2C 35 33 2C 31 34 35 2C 32 35 34 2C 32 30 |69,53,145,254,20| 00000730: 30 2C 32 30 38 00 5E 0F 2B 4E 83 20 32 34 35 2C |0,208.^.+N. 245,| 00000740: 32 33 30 2C 32 35 33 2C 32 33 30 2C 32 35 35 2C |230,253,230,255,| 00000750: 32 30 32 2C 32 30 38 2C 32 33 38 2C 39 36 00 7E |202,208,238,96.~| 00000760: 0F 4F C3 8F 20 43 4F 4E 56 45 52 54 20 43 4F 4C |.O.. CONVERT COL| 00000770: 4F 52 20 4B 45 59 50 52 45 53 53 45 53 3A 00 98 |OR KEYPRESSES:..| 00000780: 0F 50 C3 A1 20 47 24 3A 20 8B 20 47 24 B2 22 22 |.P.. G$: . G$.""| 00000790: 20 89 20 35 30 30 30 30 00 AD 0F 5A C3 99 20 47 | . 50000...Z.. G| 000007A0: 24 20 22 12 20 20 20 20 20 20 20 20 22 00 C4 0F |$ ". "...| 000007B0: 64 C3 47 B2 C2 28 36 34 36 29 3A 20 99 20 22 05 |d.G..(646): . ".| 000007C0: 22 3A 20 8E 00 00 00 |": .... |
..(.... ********************************
.O.... * PROGRAM 12-28 *.
V.... * BIT MAP MULTICOLOR MODE *..
.... * SCREEN EDITOR *.D.
... * (C) R WEST 1984 *....
.. *NOTE: AT START, INPUT COLOURS *.....
. *WITH CTRL-WHT, C=RED, WHATEVER*.9....
********************************.V....
56,8192.256: . 55,0: ..Z.... "BACKGROUND
?";: . 50000: BA.G...... " AUX1?";:
. 50000: A1.G.B.... " AUX2?";: . 5
0000: A2.G...... " CHARACTER?";: . 50000
: CC.G...... 53265,B(53265) . 32: . BIT
MAP MODE.=.... 53272,B(53272) . 8: . BI
T-MAP AT 8192.E.... 53270,B(53270) . 16:
. MULTICOLOR...... 53281,BA:
. BACKGROUND...... J.49152 . 49205:
. X: . J,X: ......CE.16.A1 . A2: . 4918
8,CC: . 49192,CE...... 49152: . COLOR VA
LUES ARE POKED INTO ML.*.P.. J.0 . 7: P2
(J).2.J: ..\.Z.B.3: X.160: Y.100: . STAR
T IN CHARACTER COLOR.S.D.. G$: G.F(G$.G(
0))...N.. G.48 . G.53 . B.G.49: . 500.B.
H.. G$." " . MOVE.1.MOVE: . TOGGLE FEATU
RE...R.. G$."." . X.X.2: . X.318 . X.318
: . RIGHT...... G$."." . X.X.2: . X.0
. X.0: . LEFT.K.... G$."." . Y.Y.1: .
Y.0 . Y.0: . UP.Y.... G$."." . Y.Y.1
: . Y.199 . Y.199: . DOWN...... G$."." .
BA.(BA.1) . 15: . 53281,BA.S.... G$."."
. A1.(A1.1) . 15: CE.(CE.16) . 255.....
. G$."." . A2.(A2.1) . 15: CE.(CE.1) .
255.!.... G$."." . CC.(CC.1) . 15.@...SC
REENCHR.40..(Y.8)..(X.8).]...ROW.Y . 7:
BIT.6.(X . 7)....CHAR.8192.8.SCR.ROW: P
E.B(CH)...... CH,(PE . (255.3.P2(BIT)))
. . B.2.BIT: . FLASH...... CH,(PE . (255
.3.P2(BIT))) . B.2.BIT: . FLASH...&
.. MOVE.1 . . CH,PE: . REPLACE UNCHANGED
.C.N.. MOVE.0 . . 1024.SC,CE: . 55296.SC
,CC.M.X.. 100.O..N. ML TO CLEAR BIT MAP
SCREEN:... N. 162,32,138,133,252,169,0,1
33,251...!N. 145,251,200,208,251,230,252
,202,208...%N. 246,134,252,134,254,169,2
16,133,253...&N. 169,4,133,255,162,4,160
,0,169,3.5.*N. 145,252,169,53,145,254,20
0,208.^.+N. 245,230,253,230,255,202,208,
238,96.~.OC. CONVERT COLOR KEYPRESSES:..
.PC. G$: . G$."" . 50000...ZC. G$ ".
".D.DCG.B(646): . ".": ....
> CLICK IMAGE PREVIEW FOR FULL MODAL