6-16

FILE INFORMATION

FILENAME(S): 6-16

FILE TYPE(S): PRG

FILE SIZE: 1.7K

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

APPEARS ON: 2 disk(s)

FILE HASH

1a5995b0730b6e4a8ccfe0ac08795faba6f4f66f04dbc7167fce0a750107af14

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
LOTUS SOFT	6-16	PRG	DuncanTwain	14	0	DOWNLOAD FILE
PROG 64 WEST	6-16	PRG	DuncanTwain	14	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 2B 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 2A 2A 00 55 08 01 00  |***********.U...|
00000030: 8F 20 2A 20 53 50 45 43  49 41 4C 20 42 41 53 49  |. * SPECIAL BASI|
00000040: 43 20 4C 49 53 54 45 52  20 46 4F 52 20 54 48 45  |C LISTER FOR THE|
00000050: 20 36 34 20 2A 00 7F 08  02 00 8F 20 2A 2A 2A 2A  | 64 *...... ****|
00000060: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000070: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 00  |***************.|
00000080: A3 08 0B F8 8F 20 2D 2D  2D 2D 2D 2D 2D 20 53 45  |..... ------- SE|
00000090: 54 20 55 50 20 56 41 4C  55 45 53 20 2D 2D 2D 2D  |T UP VALUES ----|
000000A0: 2D 2D 2D 00 D2 08 0C F8  41 B2 32 30 34 39 3A 20  |---.....A.2049: |
000000B0: 85 20 22 4C 4F 57 45 52  2C 20 55 50 50 45 52 20  |. "LOWER, UPPER |
000000C0: 4C 49 4E 45 20 4E 55 4D  42 45 52 53 22 3B 20 46  |LINE NUMBERS"; F|
000000D0: 2C 54 00 F7 08 16 F8 86  20 54 24 28 37 36 29 3A  |,T...... T$(76):|
000000E0: 20 81 20 4B B2 31 20 A4  20 37 36 3A 20 87 20 54  | . K.1 . 76: . T|
000000F0: 24 28 4B 29 3A 20 82 00  35 09 20 F8 96 20 A5 20  |$(K): ..5. .. . |
00000100: 44 45 45 4B 28 41 29 B2  C2 28 41 29 AA 32 35 36  |DEEK(A)..(A).256|
00000110: AC C2 28 41 AA 31 29 3A  20 43 4D B2 33 39 3A 20  |..(A.1): CM.39: |
00000120: 8F 20 53 45 54 20 4D 41  58 20 4C 49 4E 45 20 4C  |. SET MAX LINE L|
00000130: 45 4E 47 54 48 00 5A 09  6F F8 8F 20 2D 2D 2D 2D  |ENGTH.Z.o.. ----|
00000140: 20 53 54 41 52 54 20 4E  45 57 20 42 41 53 49 43  | START NEW BASIC|
00000150: 20 4C 49 4E 45 20 2D 2D  2D 2D 00 8F 09 70 F8 4C  | LINE ----...p.L|
00000160: B2 A5 20 44 45 45 4B 28  41 AA 32 29 3A 20 58 B2  |.. DEEK(A.2): X.|
00000170: A5 20 44 45 45 4B 28 41  29 3A 20 51 B2 30 3A 20  |. DEEK(A): Q.0: |
00000180: 8B 20 58 B2 30 20 B0 20  4C B1 54 20 A7 20 80 00  |. X.0 . L.T . ..|
00000190: A8 09 7A F8 8B 20 4C B3  46 20 A7 20 41 B2 58 3A  |..z.. L.F . A.X:|
000001A0: 20 89 20 36 33 36 30 30  00 DD 09 84 F8 99 20 C9  | . 63600...... .|
000001B0: 28 22 20 20 20 20 22 AA  C4 28 4C 29 2C 35 29 22  |("    "..(L),5)"|
000001C0: 20 22 3B 3A 43 43 B2 36  3A 20 8F 20 41 4C 49 47  | ";:CC.6: . ALIG|
000001D0: 4E 20 4C 49 4E 45 4E 55  4D 42 45 52 53 00 02 0A  |N LINENUMBERS...|
000001E0: D3 F8 8F 20 2D 2D 2D 2D  20 50 45 45 4B 20 41 4E  |... ---- PEEK AN|
000001F0: 44 20 50 52 49 4E 54 20  42 41 53 49 43 20 2D 2D  |D PRINT BASIC --|
00000200: 2D 2D 00 36 0A D4 F8 81  20 4B B2 41 AA 34 20 A4  |--.6.... K.A.4 .|
00000210: 20 41 AA 39 33 3A 20 50  B2 C2 28 4B 29 3A 8F 20  | A.93: P..(K):. |
00000220: 50 20 49 53 20 43 55 52  52 45 4E 54 20 43 48 41  |P IS CURRENT CHA|
00000230: 52 41 43 54 45 52 00 5B  0A DE F8 8B 20 43 43 B1  |RACTER.[.... CC.|
00000240: 43 4D AB 37 20 A7 20 99  3A 20 99 20 22 20 20 20  |CM.7 . .: . "   |
00000250: 20 20 20 22 3B 3A 20 43  43 B2 36 00 85 0A E8 F8  |   ";: CC.6.....|
00000260: 8B 20 50 B2 30 20 20 A7  20 99 3A 20 41 B2 58 3A  |. P.0  . .: A.X:|
00000270: 20 89 20 36 33 36 30 30  3A 20 8F 20 4E 45 58 54  | . 63600: . NEXT|
00000280: 20 4C 49 4E 45 00 B4 0A  F2 F8 8B 20 50 B2 33 34  | LINE...... P.34|
00000290: 20 A7 20 51 B2 A8 20 51  3A 20 20 20 20 20 20 20  | . Q.. Q:       |
000002A0: 20 8F 20 54 4F 47 47 4C  45 20 51 55 4F 54 45 20  | . TOGGLE QUOTE |
000002B0: 46 4C 41 47 00 E8 0A FC  F8 8B 20 51 20 A7 20 8D  |FLAG...... Q . .|
000002C0: 20 36 33 39 30 30 3A 20  82 3A 20 8F 20 4C 4F 4F  | 63900: .: . LOO|
000002D0: 4B 20 46 4F 52 20 53 50  45 43 49 41 4C 20 43 48  |K FOR SPECIAL CH|
000002E0: 41 52 41 43 54 45 52 53  00 20 0B 06 F9 8B 20 A8  |ARACTERS. .... .|
000002F0: 20 51 20 AF 20 50 B1 31  32 37 20 A7 20 99 20 54  | Q . P.127 . . T|
00000300: 24 28 50 AB 31 32 37 29  3B 3A 20 43 43 B2 43 43  |$(P.127);: CC.CC|
00000310: AA C3 28 54 24 28 50 AB  31 32 37 29 29 3A 20 82  |..(T$(P.127)): .|
00000320: 00 51 0B 10 F9 99 20 C7  28 50 29 3B 3A 20 43 43  |.Q.... .(P);: CC|
00000330: B2 43 43 AA 31 3A 20 20  20 20 20 8F 20 43 43 20  |.CC.1:     . CC |
00000340: 43 4F 55 4E 54 53 20 43  48 41 52 41 43 54 45 52  |COUNTS CHARACTER|
00000350: 53 00 59 0B 1A F9 82 20  4B 00 83 0B 37 F9 8F 20  |S.Y.... K...7.. |
00000360: 2D 2D 2D 2D 2D 20 4B 45  59 57 4F 52 44 53 20 49  |----- KEYWORDS I|
00000370: 4E 20 54 4F 4B 45 4E 20  4F 52 44 45 52 20 2D 2D  |N TOKEN ORDER --|
00000380: 2D 2D 2D 00 C8 0B 38 F9  83 20 22 20 45 4E 44 20  |---...8.. " END |
00000390: 22 2C 22 20 46 4F 52 20  22 2C 22 20 4E 45 58 54  |"," FOR "," NEXT|
000003A0: 20 22 2C 22 20 44 41 54  41 20 22 2C 22 20 49 4E  | "," DATA "," IN|
000003B0: 50 55 54 23 20 22 2C 22  20 49 4E 50 55 54 20 22  |PUT# "," INPUT "|
000003C0: 2C 22 20 44 49 4D 20 22  00 0D 0C 42 F9 83 20 22  |," DIM "...B.. "|
000003D0: 20 52 45 41 44 20 22 2C  22 20 4C 45 54 20 22 2C  | READ "," LET ",|
000003E0: 22 20 47 4F 54 4F 20 22  2C 22 20 52 55 4E 20 22  |" GOTO "," RUN "|
000003F0: 2C 22 20 49 46 20 22 2C  22 20 52 45 53 54 4F 52  |," IF "," RESTOR|
00000400: 45 20 22 2C 22 20 47 4F  53 55 42 20 22 00 51 0C  |E "," GOSUB ".Q.|
00000410: 4C F9 83 20 22 20 52 45  54 55 52 4E 20 22 2C 22  |L.. " RETURN ","|
00000420: 20 52 45 4D 20 22 2C 22  20 53 54 4F 50 20 22 2C  | REM "," STOP ",|
00000430: 22 20 4F 4E 20 22 2C 22  20 57 41 49 54 20 22 2C  |" ON "," WAIT ",|
00000440: 22 20 4C 4F 41 44 20 22  2C 22 20 53 41 56 45 20  |" LOAD "," SAVE |
00000450: 22 00 9A 0C 56 F9 83 20  22 20 56 45 52 49 46 59  |"...V.. " VERIFY|
00000460: 20 22 2C 22 20 44 45 46  20 22 2C 22 20 50 4F 4B  | "," DEF "," POK|
00000470: 45 20 22 2C 22 20 50 52  49 4E 54 23 20 22 2C 22  |E "," PRINT# ","|
00000480: 20 50 52 49 4E 54 20 22  2C 22 20 43 4F 4E 54 20  | PRINT "," CONT |
00000490: 22 2C 22 20 4C 49 53 54  20 22 00 E3 0C 60 F9 83  |"," LIST "...`..|
000004A0: 20 22 20 43 4C 52 20 22  2C 22 20 43 4D 44 20 22  | " CLR "," CMD "|
000004B0: 2C 22 20 53 59 53 20 22  2C 22 20 4F 50 45 4E 20  |," SYS "," OPEN |
000004C0: 22 2C 22 20 43 4C 4F 53  45 20 22 2C 22 20 47 45  |"," CLOSE "," GE|
000004D0: 54 20 22 2C 22 20 4E 45  57 20 22 2C 22 20 54 41  |T "," NEW "," TA|
000004E0: 42 28 22 00 2B 0D 6A F9  83 20 22 20 54 4F 20 22  |B(".+.j.. " TO "|
000004F0: 2C 22 20 46 4E 20 22 2C  22 20 53 50 43 28 22 2C  |," FN "," SPC(",|
00000500: 22 20 54 48 45 4E 20 22  2C 22 20 4E 4F 54 20 22  |" THEN "," NOT "|
00000510: 2C 22 20 53 54 45 50 20  22 2C 2B 2C 2D 2C 2A 2C  |," STEP ",+,-,*,|
00000520: 2F 2C 5E 2C 22 20 41 4E  44 20 22 00 6F 0D 74 F9  |/,^," AND ".o.t.|
00000530: 83 20 22 20 4F 52 20 22  2C 3E 2C 3D 2C 3C 2C 22  |. " OR ",>,=,<,"|
00000540: 20 53 47 4E 20 22 2C 22  20 49 4E 54 22 2C 22 41  | SGN "," INT","A|
00000550: 42 53 22 2C 22 20 55 53  52 22 2C 22 20 46 52 45  |BS"," USR"," FRE|
00000560: 22 2C 22 20 50 4F 53 22  2C 22 20 53 51 52 22 00  |"," POS"," SQR".|
00000570: A6 0D 7E F9 83 20 22 20  52 4E 44 22 2C 22 20 4C  |..~.. " RND"," L|
00000580: 4F 47 22 2C 22 20 45 58  50 22 2C 22 20 43 4F 53  |OG"," EXP"," COS|
00000590: 22 2C 22 20 53 49 4E 22  2C 22 20 54 41 4E 22 2C  |"," SIN"," TAN",|
000005A0: 22 20 41 54 4E 22 00 D9  0D 88 F9 83 20 22 20 50  |" ATN"...... " P|
000005B0: 45 45 4B 22 2C 22 20 4C  45 4E 22 2C 22 20 53 54  |EEK"," LEN"," ST|
000005C0: 52 24 22 2C 22 20 56 41  4C 22 2C 22 20 41 53 43  |R$"," VAL"," ASC|
000005D0: 22 2C 22 20 43 48 52 24  22 00 01 0E 92 F9 83 20  |"," CHR$"...... |
000005E0: 22 20 4C 45 46 54 24 22  2C 22 20 52 49 47 48 54  |" LEFT$"," RIGHT|
000005F0: 24 22 2C 22 20 4D 49 44  24 22 2C 22 20 47 4F 20  |$"," MID$"," GO |
00000600: 22 00 2D 0E 9B F9 8F 20  2D 2D 2D 2D 20 55 53 45  |".-.... ---- USE|
00000610: 52 2D 44 45 46 49 4E 41  42 4C 45 20 53 50 45 43  |R-DEFINABLE SPEC|
00000620: 49 41 4C 20 43 48 52 53  20 2D 2D 2D 2D 00 4D 0E  |IAL CHRS ----.M.|
00000630: 9C F9 8B 20 50 B2 35 20  A7 20 99 20 22 5B 57 48  |... P.5 . . "[WH|
00000640: 54 5D 22 3B 3A 20 43 43  B2 43 43 AA 35 00 6D 0E  |T]";: CC.CC.5.m.|
00000650: A6 F9 8B 20 50 B2 31 37  20 A7 20 99 20 22 5B 55  |... P.17 . . "[U|
00000660: 50 5D 22 3B 3A 20 43 43  B2 43 43 AA 34 00 90 0E  |P]";: CC.CC.4...|
00000670: B0 F9 8B 20 50 B2 31 38  20 A7 20 99 20 22 5B 52  |... P.18 . . "[R|
00000680: 56 53 4F 4E 5D 22 3B 3A  20 43 43 B2 43 43 AA 37  |VSON]";: CC.CC.7|
00000690: 00 A8 0E BA F9 99 20 C7  28 50 29 3B 3A 20 43 43  |...... .(P);: CC|
000006A0: B2 43 43 AA 31 3A 20 8E  00 00 00                 |.CC.1: ....     |

..+.... ********************************
***.U.... * SPECIAL BASIC LISTER FOR THE
 64 *..... ****************************
*******...... ------- SET UP VALUES ----
---.R...A.2049: . "LOWER, UPPER LINE NUM
BERS"; F,T...... T$(76): . K.1 . 76: . T
$(K): ..5. .. . DEEK(A).B(A).256.B(A.1):
 CM.39: . SET MAX LINE LENGTH.Z.O.. ----
 START NEW BASIC LINE ----...P.L.. DEEK(
A.2): X.. DEEK(A): Q.0: . X.0 . L.T . ..
..Z.. L.F . A.X: . 63600...... I("    ".
D(L),5)" ";:CC.6: . ALIGN LINENUMBERS...
S.. ---- PEEK AND PRINT BASIC ----.6.T..
 K.A.4 . A.93: P.B(K):. P IS CURRENT CHA
RACTER.[.... CC.CM.7 . .: . "      ";: C
C.6...... P.0  . .: A.X: . 63600: . NEXT
 LINE...... P.34 . Q.. Q:        . TOGGL
E QUOTE FLAG...... Q . . 63900: .: . LOO
K FOR SPECIAL CHARACTERS. .... . Q . P.1
27 . . T$(P.127);: CC.CC.C(T$(P.127)): .
.Q.... G(P);: CC.CC.1:     . CC COUNTS C
HARACTERS.Y.... K...7.. ----- KEYWORDS I
N TOKEN ORDER -----.H.8.. " END "," FOR 
"," NEXT "," DATA "," INPUT# "," INPUT "
," DIM "...B.. " READ "," LET "," GOTO "
," RUN "," IF "," RESTORE "," GOSUB ".Q.
L.. " RETURN "," REM "," STOP "," ON ","
 WAIT "," LOAD "," SAVE "...V.. " VERIFY
 "," DEF "," POKE "," PRINT# "," PRINT "
," CONT "," LIST "...`.. " CLR "," CMD "
," SYS "," OPEN "," CLOSE "," GET "," NE
W "," TAB(".+.J.. " TO "," FN "," SPC(",
" THEN "," NOT "," STEP ",+,-,*,/,^," AN
D ".O.T.. " OR ",>,=,<," SGN "," INT","A
BS"," USR"," FRE"," POS"," SQR"...~.. " 
RND"," LOG"," EXP"," COS"," SIN"," TAN",
" ATN".Y.... " PEEK"," LEN"," STR$"," VA
L"," ASC"," CHR$"...... " LEFT$"," RIGHT
$"," MID$"," GO ".-.... ---- USER-DEFINA
BLE SPECIAL CHRS ----.M.... P.5 . . "[WH
T]";: CC.CC.5.M.... P.17 . . "[UP]";: CC
.CC.4...... P.18 . . "[RVSON]";: CC.CC.7
...... G(P);: CC.CC.1: ....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL