4-5
FILE INFORMATION
FILENAME(S): 4-5
FILE TYPE(S): PRG
FILE SIZE: 855b
FIRST SEEN: 2025-11-30 21:12:26
APPEARS ON: 2 disk(s)
FILE HASH
b66ee06286e2a907156324f020991890f71f0a03e6c17bba189208e328ce168e
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOTUS SOFT | 4-5 | PRG | DuncanTwain | 17 | 5 | DOWNLOAD FILE |
| PROG 64 WEST | 4-5 | PRG | DuncanTwain | 17 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 41 08 00 00 8F 20 2A 2A 2A 2A 2A 20 20 20 |..A.... ***** | 00000010: 20 20 20 20 53 54 52 49 4E 47 20 28 41 4E 44 20 | STRING (AND | 00000020: 49 4E 54 45 47 45 52 29 20 49 4E 50 55 54 20 46 |INTEGER) INPUT F| 00000030: 4F 52 20 36 34 20 20 20 20 20 20 20 2A 2A 2A 2A |OR 64 ****| 00000040: 2A 00 81 08 01 00 8F 20 2A 2A 2A 2A 2A 20 52 4F |*...... ***** RO| 00000050: 55 54 49 4E 45 20 54 4F 20 49 4E 50 55 54 20 44 |UTINE TO INPUT D| 00000060: 41 54 41 20 55 4E 44 45 52 20 59 4F 55 52 20 46 |ATA UNDER YOUR F| 00000070: 55 4C 4C 20 43 4F 4E 54 52 4F 4C 20 2A 2A 2A 2A |ULL CONTROL ****| 00000080: 2A 00 87 08 02 00 3A 00 A5 08 03 00 8F 20 2A 20 |*.....:...... * | 00000090: 42 55 49 4C 44 53 20 55 50 20 53 54 52 49 4E 47 |BUILDS UP STRING| 000000A0: 20 49 4E 24 2E 00 D2 08 04 00 8F 20 2A 20 41 4C | IN$....... * AL| 000000B0: 4C 4F 57 53 20 4C 45 54 54 45 52 53 2C 20 43 4F |LOWS LETTERS, CO| 000000C0: 4D 4D 41 53 2C 20 51 55 4F 54 45 53 2C 20 45 54 |MMAS, QUOTES, ET| 000000D0: 43 2E 00 D8 08 05 00 3A 00 08 09 06 00 8F 20 2A |C......:...... *| 000000E0: 20 54 48 45 20 44 45 4C 45 54 45 20 4B 45 59 20 | THE DELETE KEY | 000000F0: 4F 50 45 52 41 54 45 53 20 46 4F 52 20 43 4F 52 |OPERATES FOR COR| 00000100: 52 45 43 54 49 4F 4E 53 00 39 09 07 00 8F 20 2A |RECTIONS.9.... *| 00000110: 20 53 45 54 20 43 55 52 53 4F 52 20 50 4F 53 49 | SET CURSOR POSI| 00000120: 54 49 4F 4E 20 41 54 20 53 54 41 52 54 20 49 46 |TION AT START IF| 00000130: 20 59 4F 55 20 57 49 53 48 00 78 09 08 00 8F 20 | YOU WISH.x.... | 00000140: 46 4F 52 20 49 4E 54 45 47 45 52 20 49 4E 50 55 |FOR INTEGER INPU| 00000150: 54 2C 20 43 48 41 4E 47 45 20 4C 49 4E 45 20 31 |T, CHANGE LINE 1| 00000160: 35 30 20 4C 49 4D 49 54 53 20 54 4F 20 22 30 22 |50 LIMITS TO "0"| 00000170: 20 41 4E 44 20 22 39 22 00 7E 09 09 00 3A 00 A9 | AND "9".~...:..| 00000180: 09 0A 00 8D 20 31 30 30 3A 20 99 3A 20 99 20 49 |.... 100: .: . I| 00000190: 4E 24 3A 20 89 20 31 30 3A 20 8F 20 44 45 4D 4F |N$: . 10: . DEMO| 000001A0: 4E 53 54 52 41 54 49 4F 4E 00 DA 09 64 00 49 4E |NSTRATION...d.IN| 000001B0: 24 B2 22 22 3A 20 20 20 20 20 20 20 20 20 20 20 |$."": | 000001C0: 20 20 20 20 20 20 20 20 20 8F 20 53 45 54 20 53 | . SET S| 000001D0: 54 52 49 4E 47 20 4E 55 4C 4C 00 02 0A 6E 00 97 |TRING NULL...n..| 000001E0: 20 32 30 34 2C 30 3A 20 97 20 32 30 37 2C 30 3A | 204,0: . 207,0:| 000001F0: 20 20 20 20 8F 20 46 4C 41 53 48 20 43 55 52 53 | . FLASH CURS| 00000200: 4F 52 00 2D 0A 78 00 A1 20 58 24 3A 20 8B 20 58 |OR.-.x.. X$: . X| 00000210: 24 B2 22 22 20 89 20 31 32 30 20 3A 8F 20 46 45 |$."" . 120 :. FE| 00000220: 54 43 48 20 43 48 41 52 41 43 54 45 52 00 68 0A |TCH CHARACTER.h.| 00000230: 82 00 8B 20 58 24 B2 C7 28 31 33 29 20 A7 20 99 |... X$..(13) . .| 00000240: 20 22 20 22 3B 3A 20 97 20 32 30 34 2C 31 3A 20 | " ";: . 204,1: | 00000250: 8E 3A 20 8F 20 45 58 49 54 3B 20 4E 4F 52 4D 41 |.: . EXIT; NORMA| 00000260: 4C 20 43 55 52 53 4F 52 00 A3 0A 8C 00 8B 20 C6 |L CURSOR...... .| 00000270: 28 58 24 29 B2 32 30 20 AF 20 C3 28 49 4E 24 29 |(X$).20 . .(IN$)| 00000280: B1 30 20 A7 20 49 4E 24 B2 C8 28 49 4E 24 2C C3 |.0 . IN$..(IN$,.| 00000290: 28 49 4E 24 29 AB 31 29 3A 89 20 31 37 30 3A 8F |(IN$).1):. 170:.| 000002A0: 44 45 4C 00 E0 0A 96 00 8B 20 A8 20 28 58 24 B1 |DEL...... . (X$.| 000002B0: B2 22 20 22 20 AF 20 58 24 B3 B2 22 5A 22 29 20 |." " . X$.."Z") | 000002C0: 89 20 31 31 30 20 20 20 3A 8F 20 55 4E 53 48 49 |. 110 :. UNSHI| 000002D0: 46 54 45 44 20 41 4C 50 48 41 42 45 54 49 43 53 |FTED ALPHABETICS| 000002E0: 00 1D 0B A0 00 49 4E 24 B2 49 4E 24 AA 58 24 20 |.....IN$.IN$.X$ | 000002F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000300: 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 | :. | 00000310: 41 44 44 20 43 48 41 52 41 43 54 45 52 00 54 0B |ADD CHARACTER.T.| 00000320: AA 00 99 20 58 24 3B 3A 20 89 20 31 31 30 20 20 |... X$;: . 110 | 00000330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000340: 20 20 20 3A 8F 20 45 43 48 4F 20 43 48 41 52 41 | :. ECHO CHARA| 00000350: 43 54 45 52 00 00 00 |CTER... |
..A.... ***** STRING (AND INTEGER)
INPUT FOR 64 *****...... ***** RO
UTINE TO INPUT DATA UNDER YOUR FULL CONT
ROL *****.....:...... * BUILDS UP STRING
IN$..R.... * ALLOWS LETTERS, COMMAS, QU
OTES, ETC..X...:...... * THE DELETE KEY
OPERATES FOR CORRECTIONS.9.... * SET CUR
SOR POSITION AT START IF YOU WISH.X....
FOR INTEGER INPUT, CHANGE LINE 150 LIMIT
S TO "0" AND "9".~...:...... 100: .: . I
N$: . 10: . DEMONSTRATION.Z.D.IN$."":
. SET STRING NULL...N..
204,0: . 207,0: . FLASH CURSOR.-.X..
X$: . X$."" . 120 :. FETCH CHARACTER.H.
... X$.G(13) . . " ";: . 204,1: .: . EXI
T; NORMAL CURSOR...... F(X$).20 . C(IN$)
.0 . IN$.H(IN$,C(IN$).1):. 170:.DEL.....
. . (X$.." " . X$.."Z") . 110 :. UNSHI
FTED ALPHABETICS... .IN$.IN$.X$
:. ADD CHARACTER.T.
... X$;: . 110 :. EC
HO CHARACTER...
> CLICK IMAGE PREVIEW FOR FULL MODAL