12-23
FILE INFORMATION
FILENAME(S): 12-23
FILE TYPE(S): PRG
FILE SIZE: 925b
FIRST SEEN: 2025-11-30 21:12:26
APPEARS ON: 2 disk(s)
FILE HASH
9c71a1dd86e42b37b346ed522e7630a68265421f80feb03975fc09c8e2c46f79
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOTUS SOFT | 12-23 | PRG | DuncanTwain | 24 | 14 | DOWNLOAD FILE |
| PROG 64 WEST | 12-23 | PRG | DuncanTwain | 24 | 14 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 21 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 00 41 08 01 00 8F 20 2A 20 20 20 20 50 52 4F |*.A.... * PRO| 00000030: 47 52 41 4D 20 31 32 2D 32 33 20 20 20 20 20 20 |GRAM 12-23 | 00000040: 2A 00 61 08 02 00 8F 20 2A 20 55 53 45 52 2D 44 |*.a.... * USER-D| 00000050: 45 46 49 4E 45 44 20 47 52 41 50 48 49 43 53 20 |EFINED GRAPHICS | 00000060: 2A 00 81 08 03 00 8F 20 2A 20 20 50 52 45 53 53 |*...... * PRESS| 00000070: 20 41 2D 5A 20 54 4F 20 53 45 4C 45 43 54 20 20 | A-Z TO SELECT | 00000080: 2A 00 A1 08 04 00 8F 20 2A 20 20 20 20 56 41 4C |*...... * VAL| 00000090: 55 45 20 46 52 4F 4D 20 31 2D 32 36 20 20 20 20 |UE FROM 1-26 | 000000A0: 2A 00 C1 08 05 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*...... ********| 000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000C0: 2A 00 E5 08 0A 00 81 20 4A B2 30 20 A4 20 33 39 |*...... J.0 . 39| 000000D0: 3A 20 87 20 58 3A 20 97 20 31 34 33 33 36 AA 4A |: . X: . 14336.J| 000000E0: 2C 58 3A 20 82 00 18 09 14 00 97 20 36 34 36 2C |,X: ....... 646,| 000000F0: 30 3A 20 97 20 35 33 32 38 30 2C 31 3A 20 97 20 |0: . 53280,1: . | 00000100: 35 33 32 38 31 2C 31 3A 20 99 20 22 93 22 3B 3A |53281,1: . ".";:| 00000110: 20 8F 20 57 48 2F 42 4C 00 3E 09 1E 00 97 20 35 | . WH/BL.>.... 5| 00000120: 33 32 37 32 2C 33 31 3A 20 20 20 8F 20 47 52 41 |3272,31: . GRA| 00000130: 50 48 49 43 53 20 41 54 20 31 34 33 33 36 00 7F |PHICS AT 14336..| 00000140: 09 28 00 97 20 35 35 2C 30 3A 20 97 20 35 36 2C |.(.. 55,0: . 56,| 00000150: 35 36 3A 20 9C 3A 20 8F 20 4C 4F 57 45 52 20 42 |56: .: . LOWER B| 00000160: 41 53 49 43 20 54 4F 50 20 54 4F 20 50 52 4F 54 |ASIC TOP TO PROT| 00000170: 45 43 54 20 44 45 46 49 4E 49 54 49 4F 4E 53 00 |ECT DEFINITIONS.| 00000180: 96 09 32 00 A1 20 51 24 3A 20 8B 20 51 24 B2 22 |..2.. Q$: . Q$."| 00000190: 22 20 89 20 35 30 00 C5 09 3C 00 4C B2 C6 28 51 |" . 50...<.L..(Q| 000001A0: 24 29 AB 36 34 3A 20 8F 20 50 52 45 53 53 20 43 |$).64: . PRESS C| 000001B0: 20 46 4F 52 20 52 45 50 45 41 54 20 4F 46 20 33 | FOR REPEAT OF 3| 000001C0: 2C 20 45 54 43 00 F1 09 46 00 41 24 B2 22 22 3A |, ETC...F.A$."":| 000001D0: 20 81 20 4A B2 31 20 A4 20 4C 3A 20 41 24 B2 41 | . J.1 . L: A$.A| 000001E0: 24 AA C7 28 BB 28 30 29 AC 35 AA 36 34 29 3A 20 |$..(.(0).5.64): | 000001F0: 82 00 19 0A 50 00 41 24 B2 41 24 AA 41 24 AA 41 |....P.A$.A$.A$.A| 00000200: 24 AA 41 24 AA 41 24 AA 41 24 AA 41 24 AA 41 24 |$.A$.A$.A$.A$.A$| 00000210: 3A 20 4D B2 C3 28 41 24 29 00 3D 0A 5A 00 99 20 |: M..(A$).=.Z.. | 00000220: 22 13 22 3B 3A 20 81 20 4A B2 31 20 A4 20 39 36 |".";: . J.1 . 96| 00000230: 30 AD 4D 3A 20 99 20 41 24 3B 3A 20 82 00 59 0A |0.M: . A$;: ..Y.| 00000240: 64 00 99 20 C8 28 41 24 2C 39 36 30 AB 4D AC B5 |d.. .(A$,960.M..| 00000250: 28 39 36 30 AD 4D 29 29 3B 00 7F 0A 6E 00 89 20 |(960.M));...n.. | 00000260: 35 30 3A 20 8F 20 41 46 54 45 52 20 46 41 53 54 |50: . AFTER FAST| 00000270: 20 44 52 41 57 2C 20 44 4F 20 41 47 41 49 4E 00 | DRAW, DO AGAIN.| 00000280: A5 0A F1 01 8F 20 2D 2D 2D 2D 2D 20 44 41 54 41 |..... ----- DATA| 00000290: 20 46 4F 52 20 35 20 47 52 41 50 48 49 43 53 3A | FOR 5 GRAPHICS:| 000002A0: 2D 2D 2D 2D 2D 00 D6 0A F2 01 8F 20 43 48 41 52 |-----...... CHAR| 000002B0: 53 20 30 20 54 4F 20 34 20 50 52 49 4E 54 20 41 |S 0 TO 4 PRINT A| 000002C0: 53 20 43 48 52 24 28 36 34 29 20 54 4F 20 43 48 |S CHR$(64) TO CH| 000002D0: 52 24 28 36 38 29 00 FE 0A F3 01 8F 20 49 4E 20 |R$(68)...... IN | 000002E0: 4C 49 4E 45 20 37 30 2C 20 2A 34 20 47 49 56 45 |LINE 70, *4 GIVE| 000002F0: 53 20 44 49 46 46 54 20 45 46 46 45 43 54 00 1C |S DIFFT EFFECT..| 00000300: 0B F4 01 83 20 33 36 2C 33 36 2C 32 35 35 2C 30 |.... 36,36,255,0| 00000310: 2C 30 2C 32 35 35 2C 33 36 2C 33 36 00 3C 0B F5 |,0,255,36,36.<..| 00000320: 01 83 20 33 36 2C 33 36 2C 32 33 31 2C 33 36 2C |.. 36,36,231,36,| 00000330: 33 36 2C 32 33 31 2C 33 36 2C 33 36 00 5B 0B F6 |36,231,36,36.[..| 00000340: 01 83 20 33 36 2C 31 38 2C 39 2C 31 33 32 2C 36 |.. 36,18,9,132,6| 00000350: 36 2C 33 33 2C 31 34 34 2C 37 32 00 7A 0B F7 01 |6,33,144,72.z...| 00000360: 83 20 33 36 2C 37 32 2C 31 34 34 2C 33 33 2C 36 |. 36,72,144,33,6| 00000370: 36 2C 31 33 32 2C 39 2C 31 38 00 9A 0B F8 01 83 |6,132,9,18......| 00000380: 20 33 36 2C 36 36 2C 31 35 33 2C 33 36 2C 36 36 | 36,66,153,36,66| 00000390: 2C 33 36 2C 31 35 33 2C 36 36 00 00 00 |,36,153,66... |
..!.... *************************.A.... * PROGRAM 12-23 *.A.... * USER-D EFINED GRAPHICS *...... * PRESS A-Z TO SELECT *...... * VALUE FROM 1-26 *.A.... *************************...... J.0 . 39: . X: . 14336.J,X: ....... 646, 0: . 53280,1: . 53281,1: . ".";: . WH/BL .>.... 53272,31: . GRAPHICS AT 14336. .(.. 55,0: . 56,56: .: . LOWER BASIC TOP TO PROTECT DEFINITIONS...2.. Q$: . Q$." " . 50.E.<.L.F(Q$).64: . PRESS C FOR REP EAT OF 3, ETC...F.A$."": . J.1 . L: A$.A $.G(.(0).5.64): ....P.A$.A$.A$.A$.A$.A$. A$.A$.A$: M.C(A$).=.Z.. ".";: . J.1 . 96 0.M: . A$;: ..Y.D.. H(A$,960.M..(960.M)) ;..N.. 50: . AFTER FAST DRAW, DO AGAIN. ..... ----- DATA FOR 5 GRAPHICS:-----.V. ... CHARS 0 TO 4 PRINT AS CHR$(64) TO CH R$(68)...... IN LINE 70, *4 GIVES DIFFT EFFECT...... 36,36,255,0,0,255,36,36.<.. .. 36,36,231,36,36,231,36,36.[.... 36,18 ,9,132,66,33,144,72.Z.... 36,72,144,33,6 6,132,9,18...... 36,66,153,36,66,36,153, 66...
> CLICK IMAGE PREVIEW FOR FULL MODAL