BASIC TERM

FILE INFORMATION

FILENAME(S): BASIC TERM

FILE TYPE(S): PRG

FILE SIZE: 1009b

FIRST SEEN: 2025-12-02 02:14:02

APPEARS ON: 1 disk(s)

FILE HASH

0ca69827a46c878ba0e3ae4af59e4805151b48a31a2545437fa9de3fee574993

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
MODEMPROGS C128	BASIC TERM	PRG	The BAM Archive	34	3	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 26 08 0A 00 8F 20  4F 50 45 4E 20 50 4F 52  |..&.... OPEN POR|
00000010: 54 20 41 4E 44 20 41 53  53 49 47 4E 20 56 41 52  |T AND ASSIGN VAR|
00000020: 49 41 42 4C 45 53 00 3B  08 14 00 9F 35 2C 32 2C  |IABLES.;....5,2,|
00000030: 33 2C C7 28 36 29 AA C7  28 30 29 00 5A 08 1E 00  |3,.(6)..(0).Z...|
00000040: 86 46 25 28 32 35 35 29  2C 54 25 28 32 35 35 29  |.F%(255),T%(255)|
00000050: 3A 43 52 24 B2 C7 28 31  33 29 00 71 08 28 00 81  |:CR$..(13).q.(..|
00000060: 4A B2 33 32 A4 36 34 3A  54 25 28 4A 29 B2 4A 3A  |J.32.64:T%(J).J:|
00000070: 82 00 93 08 32 00 54 25  28 31 33 29 B2 31 33 3A  |....2.T%(13).13:|
00000080: 54 25 28 32 30 29 B2 38  3A 52 56 B2 31 38 3A 43  |T%(20).8:RV.18:C|
00000090: 54 B2 30 00 B1 08 3C 00  81 4A B2 36 35 A4 39 30  |T.0...<..J.65.90|
000000A0: 3A 4B B2 4A AA 33 32 3A  54 25 28 4A 29 B2 4B 3A  |:K.J.32:T%(J).K:|
000000B0: 82 00 C8 08 46 00 81 4A  B2 39 31 A4 39 35 3A 54  |....F..J.91.95:T|
000000C0: 25 28 4A 29 B2 4A 3A 82  00 E9 08 50 00 81 4A B2  |%(J).J:....P..J.|
000000D0: 31 39 33 A4 32 31 38 3A  4B B2 4A AB 31 32 38 3A  |193.218:K.J.128:|
000000E0: 54 25 28 4A 29 B2 4B 3A  82 00 03 09 5A 00 54 25  |T%(J).K:....Z.T%|
000000F0: 28 31 34 36 29 B2 31 36  3A 54 25 28 31 33 33 29  |(146).16:T%(133)|
00000100: B2 31 36 00 27 09 64 00  54 25 28 31 33 37 29 B2  |.16.'.d.T%(137).|
00000110: 33 3A 54 25 28 31 33 34  29 B2 31 37 3A 54 25 28  |3:T%(134).17:T%(|
00000120: 31 33 38 29 B2 31 39 00  3C 09 6E 00 81 4A B2 30  |138).19.<.n..J.0|
00000130: A4 32 35 35 3A 4B B2 54  25 28 4A 29 00 5A 09 78  |.255:K.T%(J).Z.x|
00000140: 00 8B 4B B3 B1 30 A7 46  25 28 4B 29 B2 4A 3A 46  |..K..0.F%(K).J:F|
00000150: 25 28 4B AA 31 32 38 29  B2 4A 00 60 09 82 00 82  |%(K.128).J.`....|
00000160: 00 7B 09 8C 00 87 4E 50  3A 81 5A B2 31 A4 4E 50  |.{....NP:.Z.1.NP|
00000170: 3A 87 50 48 24 28 5A 29  3A 82 5A 00 8E 09 96 00  |:.PH$(Z):.Z.....|
00000180: 8F 20 4D 41 49 4E 20 50  52 4F 47 52 41 4D 00 A2  |. MAIN PROGRAM..|
00000190: 09 A0 00 99 C7 28 31 34  29 22 20 22 C7 28 31 34  |.....(14)" ".(14|
000001A0: 37 29 00 BE 09 AA 00 A1  23 35 2C 41 24 3A 8B 41  |7)......#5,A$:.A|
000001B0: 24 B2 22 22 B0 53 54 B3  B1 30 A7 32 31 30 00 DB  |$."".ST..0.210..|
000001C0: 09 B4 00 99 22 20 22 C7  28 31 35 37 29 3B C7 28  |...." ".(157);.(|
000001D0: 46 25 28 C6 28 41 24 29  29 29 3B 00 F4 09 BE 00  |F%(.(A$)));.....|
000001E0: 8B 46 25 28 C6 28 41 24  29 29 B2 33 34 A7 97 32  |.F%(.(A$)).34..2|
000001F0: 31 32 2C 30 00 FD 09 C8  00 89 31 37 30 00 1D 0A  |12,0......170...|
00000200: D2 00 99 C7 28 52 56 29  22 20 22 C7 28 31 35 37  |....(RV)" ".(157|
00000210: 29 3B C7 28 31 34 36 29  3B 3A A1 41 24 00 2F 0A  |);.(146);:.A$./.|
00000220: DC 00 8B 41 24 B2 C7 28  33 35 29 A7 32 36 30 00  |...A$..(35).260.|
00000230: 4C 0A E6 00 8B 41 24 B3  B1 22 22 A7 98 35 2C C7  |L....A$..""..5,.|
00000240: 28 54 25 28 C6 28 41 24  29 29 29 3B 00 6D 0A F0  |(T%(.(A$)));.m..|
00000250: 00 43 54 B2 43 54 AA 31  3A 8B 43 54 B2 38 A7 43  |.CT.CT.1:.CT.8.C|
00000260: 54 B2 30 3A 52 56 B2 31  36 34 AB 52 56 00 76 0A  |T.0:RV.164.RV.v.|
00000270: FA 00 89 31 37 30 00 8F  0A 04 01 99 C7 28 31 34  |...170.......(14|
00000280: 37 29 22 50 48 4F 4E 45  20 4C 4F 47 22 3A 99 00  |7)"PHONE LOG":..|
00000290: AA 0A 0E 01 81 5A B2 31  A4 4E 50 3A 99 5A 3B 50  |.....Z.1.NP:.Z;P|
000002A0: 48 24 28 5A 29 3A 82 5A  3A 99 00 C7 0A 18 01 85  |H$(Z):.Z:.......|
000002B0: 22 53 45 4C 45 43 54 49  4F 4E 22 3B 41 24 3A 50  |"SELECTION";A$:P|
000002C0: 48 B2 C5 28 41 24 29 00  DB 0A 22 01 8B 50 48 B2  |H..(A$)..."..PH.|
000002D0: 30 B0 50 48 B1 4E 50 A7  31 37 30 00 13 0B 2C 01  |0.PH.NP.170...,.|
000002E0: 8F 20 43 48 41 4E 47 45  20 27 41 54 44 54 27 20  |. CHANGE 'ATDT' |
000002F0: 54 4F 20 27 41 54 44 50  27 20 49 46 20 59 4F 55  |TO 'ATDP' IF YOU|
00000300: 20 48 41 56 45 20 52 4F  54 41 52 59 20 50 48 4F  | HAVE ROTARY PHO|
00000310: 4E 45 53 00 3A 0B 36 01  99 C7 28 31 34 37 29 3A  |NES.:.6...(147):|
00000320: 54 50 24 B2 43 52 24 AA  22 41 54 44 54 22 AA 50  |TP$.CR$."ATDT".P|
00000330: 48 24 28 50 48 29 AA 43  52 24 00 4A 0B 40 01 98  |H$(PH).CR$.J.@..|
00000340: 35 2C 54 50 24 3A 89 31  37 30 00 87 0B 4A 01 8F  |5,TP$:.170...J..|
00000350: 20 54 48 45 20 46 49 52  53 54 20 4E 55 4D 42 45  | THE FIRST NUMBE|
00000360: 52 20 49 53 20 54 48 45  20 4E 55 4D 42 45 52 20  |R IS THE NUMBER |
00000370: 4F 46 20 50 48 4F 4E 45  20 4E 55 4D 42 45 52 53  |OF PHONE NUMBERS|
00000380: 20 4C 49 53 54 45 44 00  D6 0B 54 01 8F 20 54 48  | LISTED...T.. TH|
00000390: 45 20 4E 55 4D 42 45 52  53 20 42 45 54 57 45 45  |E NUMBERS BETWEE|
000003A0: 4E 20 43 4F 4D 4D 41 53  20 41 52 45 20 54 48 45  |N COMMAS ARE THE|
000003B0: 20 50 48 4F 4E 45 20 4E  55 4D 42 45 52 53 20 59  | PHONE NUMBERS Y|
000003C0: 4F 55 20 57 49 53 48 20  54 4F 20 53 45 4C 45 43  |OU WISH TO SELEC|
000003D0: 54 20 46 52 4F 4D 00 EE  0B 5E 01 83 20 32 2C 4E  |T FROM...^.. 2,N|
000003E0: 4E 4E 4E 4E 4E 4E 2C 4E  4E 4E 4E 4E 4E 4E 00 00  |NNNNNN,NNNNNNN..|
000003F0: 00                                                |.               |

..&.... OPEN PORT AND ASSIGN VARIABLES.;
....5,2,3,G(6).G(0).Z....F%(255),T%(255)
:CR$.G(13).Q.(..J.32.64:T%(J).J:....2.T%
(13).13:T%(20).8:RV.18:CT.0...<..J.65.90
:K.J.32:T%(J).K:..H.F..J.91.95:T%(J).J:.
...P..J.193.218:K.J.128:T%(J).K:....Z.T%
(146).16:T%(133).16.'.D.T%(137).3:T%(134
).17:T%(138).19.<.N..J.0.255:K.T%(J).Z.X
..K..0.F%(K).J:F%(K.128).J.`.....{....NP
:.Z.1.NP:.PH$(Z):.Z...... MAIN PROGRAM..
. ..G(14)" "G(147)......#5,A$:.A$."".ST.
.0.210......" "G(157);G(F%(F(A$)));.....
.F%(F(A$)).34..212,0...H..170...R..G(RV)
" "G(157);G(146);:.A$./....A$.G(35).260.
L....A$..""..5,G(T%(F(A$)));.M...CT.CT.1
:.CT.8.CT.0:RV.164.RV.V....170......G(14
7)"PHONE LOG":.......Z.1.NP:.Z;PH$(Z):.Z
:..G...."SELECTION";A$:PH.E(A$)..."..PH.
0.PH.NP.170...,.. CHANGE 'ATDT' TO 'ATDP
' IF YOU HAVE ROTARY PHONES.:.6..G(147):
TP$.CR$."ATDT".PH$(PH).CR$.J.@..5,TP$:.1
70...J.. THE FIRST NUMBER IS THE NUMBER 
OF PHONE NUMBERS LISTED.V.T.. THE NUMBER
S BETWEEN COMMAS ARE THE PHONE NUMBERS Y
OU WISH TO SELECT FROM...^.. 2,NNNNNNN,N
NNNNNN...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL