12-27

FILE INFORMATION

FILENAME(S): 12-27

FILE TYPE(S): PRG

FILE SIZE: 1.5K

FIRST SEEN: 2025-11-30 21:12:26

APPEARS ON: 2 disk(s)

FILE HASH

ebb000dd21f2a3b6a329b3bb3a9308a7b2663a0bfaac71b8dda4a647de1cd8e1

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
LOTUS SOFT	12-27	PRG	DuncanTwain	11	6	DOWNLOAD FILE
PROG 64 WEST	12-27	PRG	DuncanTwain	11	6	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 24 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 00 47 08 01  00 8F 20 2A 20 20 20 20  |****.G.... *    |
00000030: 20 20 50 52 4F 47 52 41  4D 20 31 32 2D 32 37 20  |  PROGRAM 12-27 |
00000040: 20 20 20 20 20 20 2A 00  6A 08 02 00 8F 20 2A 20  |      *.j.... * |
00000050: 20 42 49 54 20 4D 41 50  20 48 49 47 48 2D 52 45  | BIT MAP HIGH-RE|
00000060: 53 4F 4C 55 54 49 4F 4E  20 2A 00 8D 08 03 00 8F  |SOLUTION *......|
00000070: 20 2A 20 20 20 20 20 20  53 43 52 45 45 4E 20 45  | *      SCREEN E|
00000080: 44 49 54 4F 52 20 20 20  20 20 20 20 2A 00 B0 08  |DITOR       *...|
00000090: 04 00 8F 20 2A 20 20 20  20 20 28 43 29 20 52 20  |... *     (C) R |
000000A0: 57 45 53 54 20 31 39 38  34 20 20 20 20 20 20 2A  |WEST 1984      *|
000000B0: 00 D3 08 05 00 8F 20 2A  2A 2A 2A 2A 2A 2A 2A 2A  |...... *********|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000000D0: 2A 2A 2A 00 E8 08 0A 00  97 20 35 36 2C 38 31 39  |***...... 56,819|
000000E0: 32 AD 32 35 36 3A 20 9C  00 13 09 0E 00 97 20 35  |2.256: ....... 5|
000000F0: 33 32 36 35 2C C2 28 35  33 32 36 35 29 20 B0 20  |3265,.(53265) . |
00000100: 33 32 3A 20 20 8F 20 42  49 54 20 4D 41 50 20 4D  |32:  . BIT MAP M|
00000110: 4F 44 45 00 41 09 0F 00  97 20 35 33 32 37 32 2C  |ODE.A.... 53272,|
00000120: C2 28 35 33 32 37 32 29  20 B0 20 38 3A 20 20 20  |.(53272) . 8:   |
00000130: 8F 20 42 49 54 2D 4D 41  50 20 41 54 20 38 31 39  |. BIT-MAP AT 819|
00000140: 32 00 72 09 18 00 43 45  B2 31 36 AC 30 20 AA 20  |2.r...CE.16.0 . |
00000150: 33 3A 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |3:              |
00000160: 20 20 20 20 20 8F 20 42  4C 41 43 4B 2C 20 43 59  |     . BLACK, CY|
00000170: 41 4E 00 9B 09 19 00 81  20 4A B2 31 30 32 34 20  |AN...... J.1024 |
00000180: A4 20 32 30 32 33 3A 20  97 20 4A 2C 43 45 3A 20  |. 2023: . J,CE: |
00000190: 82 3A 20 8F 20 43 4F 4C  4F 52 53 00 C0 09 1D 00  |.: . COLORS.....|
000001A0: 81 20 4A B2 34 39 31 35  32 20 A4 20 34 39 31 37  |. J.49152 . 4917|
000001B0: 31 3A 20 87 20 58 3A 20  97 20 4A 2C 58 3A 20 82  |1: . X: . J,X: .|
000001C0: 00 F0 09 1E 00 9E 20 34  39 31 35 32 3A 20 20 20  |...... 49152:   |
000001D0: 20 20 20 20 20 20 20 20  20 20 8F 20 43 4C 45 41  |          . CLEA|
000001E0: 52 20 42 49 54 20 4D 41  50 20 53 43 52 45 45 4E  |R BIT MAP SCREEN|
000001F0: 00 0E 0A 50 00 81 20 49  B2 30 20 A4 20 37 3A 20  |...P.. I.0 . 7: |
00000200: 50 32 28 37 AB 49 29 B2  32 AE 49 3A 20 82 00 1F  |P2(7.I).2.I: ...|
00000210: 0A 5A 00 58 B2 31 36 30  3A 20 59 B2 31 30 30 00  |.Z.X.160: Y.100.|
00000220: 41 0A 64 00 50 45 B2 C2  28 35 36 33 32 30 29 3A  |A.d.PE..(56320):|
00000230: 20 20 8F 20 52 45 41 44  20 4A 4F 59 53 54 49 43  |  . READ JOYSTIC|
00000240: 4B 00 61 0A 65 00 52 B2  50 45 20 AF 20 38 3A 20  |K.a.e.R.PE . 8: |
00000250: 20 20 20 20 20 8F 20 52  49 47 48 54 20 49 46 20  |     . RIGHT IF |
00000260: 30 00 7B 0A 66 00 44 B2  50 45 20 AF 20 32 3A 20  |0.{.f.D.PE . 2: |
00000270: 20 20 20 20 20 8F 20 44  4F 57 4E 00 95 0A 67 00  |     . DOWN...g.|
00000280: 4C B2 50 45 20 AF 20 34  3A 20 20 20 20 20 20 8F  |L.PE . 4:      .|
00000290: 20 4C 45 46 54 00 AD 0A  68 00 55 B2 50 45 20 AF  | LEFT...h.U.PE .|
000002A0: 20 31 3A 20 20 20 20 20  20 8F 20 55 50 00 C9 0A  | 1:      . UP...|
000002B0: 69 00 42 B2 50 45 20 AF  20 31 36 3A 20 20 20 20  |i.B.PE . 16:    |
000002C0: 20 8F 20 42 55 54 54 4F  4E 00 F8 0A C8 00 8B 20  | . BUTTON...... |
000002D0: 42 B2 30 20 A7 20 44 45  4C B2 31 AB 44 45 4C 3A  |B.0 . DEL.1.DEL:|
000002E0: 20 8F 20 42 55 54 54 4F  4E 20 54 4F 47 47 4C 45  | . BUTTON TOGGLE|
000002F0: 20 46 45 41 54 55 52 45  00 24 0B D2 00 8B 20 42  | FEATURE.$.... B|
00000300: B2 30 20 AF 20 55 AC 44  AC 4C AC 52 B2 30 20 A7  |.0 . U.D.L.R.0 .|
00000310: 20 4D 4F 56 B2 31 3A 20  8F 20 42 55 54 54 4F 4E  | MOV.1: . BUTTON|
00000320: 2B 4A 4F 59 00 50 0B DC  00 8B 20 42 B3 B1 30 20  |+JOY.P.... B..0 |
00000330: A7 20 4D 4F 56 B2 30 3A  20 20 20 20 20 20 20 20  |. MOV.0:        |
00000340: 20 20 20 20 20 20 8F 20  50 4C 4F 54 54 49 4E 47  |      . PLOTTING|
00000350: 00 7D 0B 54 01 8B 20 4C  B2 30 20 A7 20 58 B2 58  |.}.T.. L.0 . X.X|
00000360: AB 31 3A 20 8B 20 58 B3  30 20 A7 20 58 B2 30 3A  |.1: . X.0 . X.0:|
00000370: 20 8F 20 55 50 44 41 54  45 20 58 2C 59 00 A0 0B  | . UPDATE X,Y...|
00000380: 5E 01 8B 20 52 B2 30 20  A7 20 58 B2 58 AA 31 3A  |^.. R.0 . X.X.1:|
00000390: 20 8B 20 58 B1 33 31 39  20 A7 20 58 B2 33 31 39  | . X.319 . X.319|
000003A0: 00 BF 0B 68 01 8B 20 55  B2 30 20 A7 20 59 B2 59  |...h.. U.0 . Y.Y|
000003B0: AB 31 3A 20 8B 20 59 B3  30 20 A7 20 59 B2 30 00  |.1: . Y.0 . Y.0.|
000003C0: E2 0B 72 01 8B 20 44 B2  30 20 A7 20 59 B2 59 AA  |..r.. D.0 . Y.Y.|
000003D0: 31 3A 20 8B 20 59 B1 31  39 39 20 A7 20 59 B2 31  |1: . Y.199 . Y.1|
000003E0: 39 39 00 09 0C F4 01 4F  46 B2 34 30 AC 28 59 20  |99.....OF.40.(Y |
000003F0: AF 20 32 34 38 29 AA 28  58 20 AF 20 35 30 34 29  |. 248).(X . 504)|
00000400: 20 AA 28 59 20 AF 20 37  29 00 1F 0C FE 01 53 43  | .(Y . 7).....SC|
00000410: 52 45 45 4E 43 48 52 B2  B5 28 4F 46 AD 38 29 00  |REENCHR..(OF.8).|
00000420: 2D 0C 08 02 42 49 54 B2  58 20 AF 20 37 00 3E 0C  |-...BIT.X . 7.>.|
00000430: 12 02 43 48 41 52 B2 38  31 39 32 AA 4F 46 00 6D  |..CHAR.8192.OF.m|
00000440: 0C 1C 02 50 45 B2 C2 28  43 48 29 3A 20 8F 20 53  |...PE..(CH): . S|
00000450: 41 56 45 20 49 4E 20 43  41 53 45 20 4C 49 4E 45  |AVE IN CASE LINE|
00000460: 20 35 36 30 20 4E 45 45  44 53 20 49 54 00 98 0C  | 560 NEEDS IT...|
00000470: 26 02 97 20 43 48 2C C2  28 43 48 29 20 B0 20 50  |&.. CH,.(CH) . P|
00000480: 32 28 42 49 54 29 3A 20  8F 20 50 55 54 20 49 4E  |2(BIT): . PUT IN|
00000490: 20 4E 45 57 20 42 49 54  00 BB 0C 30 02 8B 20 44  | NEW BIT...0.. D|
000004A0: 45 4C 20 A7 20 97 20 43  48 2C C2 28 43 48 29 20  |EL . . CH,.(CH) |
000004B0: AF 20 A8 20 50 32 28 42  49 54 29 00 E9 0C 3A 02  |. . P2(BIT)...:.|
000004C0: 8B 20 4D 4F 56 45 20 A7  20 97 20 43 48 2C 50 45  |. MOVE . . CH,PE|
000004D0: 3A 20 8F 20 52 45 53 54  4F 52 45 20 56 41 4C 55  |: . RESTORE VALU|
000004E0: 45 20 49 46 20 4D 4F 56  45 00 1D 0D 44 02 8B 20  |E IF MOVE...D.. |
000004F0: 4D 4F 56 45 B2 30 20 A7  20 97 20 31 30 32 34 AA  |MOVE.0 . . 1024.|
00000500: 53 43 2C 43 45 3A 20 8F  20 55 50 44 41 54 45 20  |SC,CE: . UPDATE |
00000510: 46 47 2F 42 47 20 4E 59  42 42 4C 45 53 00 26 0D  |FG/BG NYBBLES.&.|
00000520: 58 02 A1 20 58 24 00 53  0D 62 02 8B 20 58 24 B2  |X.. X$.S.b.. X$.|
00000530: 22 86 22 20 A7 20 43 45  B2 28 28 43 45 AA 31 29  |"." . CE.((CE.1)|
00000540: 20 AF 20 31 35 29 20 B0  20 28 43 45 20 AF 20 32  | . 15) . (CE . 2|
00000550: 34 30 29 00 73 0D 6C 02  8B 20 58 24 B2 22 87 22  |40).s.l.. X$."."|
00000560: 20 A7 20 43 45 B2 28 43  45 AA 31 36 29 20 AF 20  | . CE.(CE.16) . |
00000570: 32 35 35 00 7D 0D BC 02  89 20 31 30 30 00 9E 0D  |255.}.... 100...|
00000580: 1F 4E 8F 20 4D 4C 20 54  4F 20 43 4C 45 41 52 20  |.N. ML TO CLEAR |
00000590: 42 49 54 20 4D 41 50 20  53 43 52 45 45 4E 00 C9  |BIT MAP SCREEN..|
000005A0: 0D 20 4E 83 20 31 36 32  2C 33 32 2C 31 33 38 2C  |. N. 162,32,138,|
000005B0: 31 33 33 2C 32 35 32 2C  31 36 39 2C 30 2C 31 33  |133,252,169,0,13|
000005C0: 33 2C 32 35 31 2C 31 34  35 00 F6 0D 2A 4E 83 20  |3,251,145...*N. |
000005D0: 32 35 31 2C 32 30 30 2C  32 30 38 2C 32 35 31 2C  |251,200,208,251,|
000005E0: 32 33 30 2C 32 35 32 2C  32 30 32 2C 32 30 38 2C  |230,252,202,208,|
000005F0: 32 34 36 2C 39 36 00 00  00                       |246,96...       |

..$.... ****************************.G..
.. *      PROGRAM 12-27       *.J.... * 
 BIT MAP HIGH-RESOLUTION *...... *      
SCREEN EDITOR       *...... *     (C) R 
WEST 1984      *.S.... *****************
***********...... 56,8192.256: ....... 5
3265,B(53265) . 32:  . BIT MAP MODE.A...
. 53272,B(53272) . 8:   . BIT-MAP AT 819
2.R...CE.16.0 . 3:                   . B
LACK, CYAN...... J.1024 . 2023: . J,CE: 
.: . COLORS...... J.49152 . 49171: . X: 
. J,X: ....... 49152:             . CLEA
R BIT MAP SCREEN...P.. I.0 . 7: P2(7.I).
2.I: ....Z.X.160: Y.100.A.D.PE.B(56320):
  . READ JOYSTICK.A.E.R.PE . 8:      . R
IGHT IF 0.{.F.D.PE . 2:      . DOWN...G.
L.PE . 4:      . LEFT...H.U.PE . 1:     
 . UP.I.I.B.PE . 16:     . BUTTON...H.. 
B.0 . DEL.1.DEL: . BUTTON TOGGLE FEATURE
.$.R.. B.0 . U.D.L.R.0 . MOV.1: . BUTTON
+JOY.P.... B..0 . MOV.0:              . 
PLOTTING.}.T.. L.0 . X.X.1: . X.0 . X.0:
 . UPDATE X,Y. .^.. R.0 . X.X.1: . X.319
 . X.319...H.. U.0 . Y.Y.1: . Y.0 . Y.0.
..R.. D.0 . Y.Y.1: . Y.199 . Y.199.....O
F.40.(Y . 248).(X . 504) .(Y . 7).....SC
REENCHR..(OF.8).-...BIT.X . 7.>...CHAR.8
192.OF.M...PE.B(CH): . SAVE IN CASE LINE
 560 NEEDS IT...&.. CH,B(CH) . P2(BIT): 
. PUT IN NEW BIT...0.. DEL . . CH,B(CH) 
. . P2(BIT)...:.. MOVE . . CH,PE: . REST
ORE VALUE IF MOVE...D.. MOVE.0 . . 1024.
SC,CE: . UPDATE FG/BG NYBBLES.&.X.. X$.S
.B.. X$."." . CE.((CE.1) . 15) . (CE . 2
40).S.L.. X$."." . CE.(CE.16) . 255.}...
. 100....N. ML TO CLEAR BIT MAP SCREEN.I
. N. 162,32,138,133,252,169,0,133,251,14
5...*N. 251,200,208,251,230,252,202,208,
246,96...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL