1650 DIAL/LOAD.C
FILE INFORMATION
FILENAME(S): 1650 DIAL/LOAD.C
FILE TYPE(S): PRG
FILE SIZE: 1K
FIRST SEEN: 2025-10-19 22:48:29
APPEARS ON: 2 disk(s)
FILE HASH
031e40b519094e5ed285b32ccbf4721cbe6e5c22fb1e2b5cbb86ebd258e88255
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 125C TPUG SEPT84 | 1650 DIAL/LOAD.C | PRG | Radd Maxx | 9 | 0 | DOWNLOAD FILE |
| TPUG TERMINALS C | 1650 DIAL/LOAD.C | PRG | hedning, Christian Johansson | 7 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 16 08 01 00 99 22 93 22 3A 81 49 B2 31 A4 |.......".":.I.1.| 00000010: 35 3A 99 3A 82 49 00 39 08 02 00 99 22 20 20 20 |5:.:.I.9...." | 00000020: 20 20 20 41 55 54 4F 44 49 41 4C 2E 49 4D 47 20 | AUTODIAL.IMG | 00000030: 50 52 4F 4C 4F 47 55 45 22 00 5F 08 03 00 99 22 |PROLOGUE"._...."| 00000040: 20 20 20 42 59 20 4A 4F 48 4E 20 46 4F 52 4B 4F | BY JOHN FORKO| 00000050: 53 48 20 2D 2D 20 30 38 2F 32 35 2F 38 34 22 00 |SH -- 08/25/84".| 00000060: 65 08 04 00 99 00 88 08 05 00 42 31 B2 35 36 35 |e.........B1.565| 00000070: 37 37 3A 42 32 B2 35 36 35 37 39 3A 97 42 32 2C |77:B2.56579:.B2,| 00000080: 33 32 3A 97 42 31 2C 30 00 8E 08 06 00 3A 00 B3 |32:.B1,0.....:..| 00000090: 08 0A 00 99 22 20 20 20 31 29 20 53 45 54 20 41 |...." 1) SET A| 000000A0: 55 54 4F 4D 4F 44 45 4D 20 53 57 49 54 43 48 45 |UTOMODEM SWITCHE| 000000B0: 53 2C 22 00 CA 08 0B 00 99 22 20 20 20 32 29 20 |S,"......" 2) | 000000C0: 50 52 45 53 53 20 2E 2E 2E 22 00 EF 08 0C 00 99 |PRESS ..."......| 000000D0: 22 20 20 20 20 20 20 20 20 20 20 20 20 2E 2E 2E |" ...| 000000E0: 20 28 4F 29 20 4F 52 49 47 49 4E 41 54 45 22 00 | (O) ORIGINATE".| 000000F0: 11 09 0D 00 99 22 20 20 20 20 20 20 20 20 20 20 |....." | 00000100: 20 20 2E 2E 2E 20 28 41 29 20 41 4E 53 57 45 52 | ... (A) ANSWER| 00000110: 22 00 36 09 0E 00 99 22 20 20 20 20 20 20 20 20 |".6...." | 00000120: 20 20 20 20 2E 2E 2E 20 28 58 29 20 4C 4F 41 44 | ... (X) LOAD| 00000130: 20 46 49 4C 45 22 00 3C 09 0F 00 3A 00 4E 09 14 | FILE".<...:.N..| 00000140: 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 32 30 00 60 |..A$:.A$."".20.`| 00000150: 09 15 00 8B 41 24 B2 22 41 22 A7 99 3A 89 33 30 |....A$."A"..:.30| 00000160: 00 72 09 16 00 8B 41 24 B2 22 4F 22 A7 99 3A 89 |.r....A$."O"..:.| 00000170: 34 30 00 84 09 17 00 8B 41 24 B2 22 58 22 A7 99 |40......A$."X"..| 00000180: 3A 89 39 30 00 8E 09 18 00 99 3A 89 31 31 00 94 |:.90......:.11..| 00000190: 09 19 00 3A 00 B6 09 1E 00 99 22 20 20 20 20 20 |...:......" | 000001A0: 20 57 41 49 54 49 4E 47 20 46 4F 52 20 52 49 4E | WAITING FOR RIN| 000001B0: 47 20 2E 2E 2E 22 00 D1 09 1F 00 42 B2 C2 28 42 |G ...".....B..(B| 000001C0: 31 29 3A 42 B2 42 AF 38 3A 8B 42 B3 B1 30 A7 33 |1):B.B.8:.B..0.3| 000001D0: 31 00 F0 09 20 00 99 22 20 20 20 20 20 20 2E 2E |1... .." ..| 000001E0: 2E 20 52 49 4E 47 20 44 45 54 45 43 54 45 44 22 |. RING DETECTED"| 000001F0: 00 F8 09 21 00 89 39 30 00 FE 09 22 00 3A 00 1C |...!..90...".:..| 00000200: 0A 28 00 85 22 20 20 20 20 20 20 45 4E 54 45 52 |.(.." ENTER| 00000210: 20 50 48 4F 4E 45 23 20 22 3B 41 24 00 33 0A 29 | PHONE# ";A$.3.)| 00000220: 00 99 22 20 20 20 20 20 20 44 49 41 4C 49 4E 47 |.." DIALING| 00000230: 20 22 3B 00 4B 0A 2A 00 97 42 31 2C 33 32 3A 81 | ";.K.*..B1,32:.| 00000240: 42 B2 31 A4 31 30 30 30 3A 82 42 00 57 0A 2B 00 |B.1.1000:.B.W.+.| 00000250: 41 B2 C3 28 41 24 29 00 74 0A 2C 00 81 49 B2 31 |A..(A$).t.,..I.1| 00000260: A4 41 3A 49 24 B2 CA 28 41 24 2C 49 2C 31 29 3A |.A:I$..(A$,I,1):| 00000270: 99 49 24 3B 00 8A 0A 2D 00 4E B2 C5 28 49 24 29 |.I$;...-.N..(I$)| 00000280: 3A 8B 4E B2 30 A7 4E B2 31 30 00 A3 0A 2E 00 8D |:.N.0.N.10......| 00000290: 35 30 3A 82 49 3A 99 22 20 43 4F 4D 50 4C 45 54 |50:.I:." COMPLET| 000002A0: 45 44 22 00 AB 0A 2F 00 89 39 30 00 B1 0A 30 00 |ED".../..90...0.| 000002B0: 3A 00 C7 0A 32 00 81 49 31 B2 31 A4 4E 3A 97 42 |:...2..I1.1.N:.B| 000002C0: 31 2C 30 3A 54 B2 37 00 D9 0A 33 00 54 B2 54 AB |1,0:T.7...3.T.T.| 000002D0: 31 3A 8B 54 B1 30 A7 35 31 00 E8 0A 34 00 97 42 |1:.T.0.51...4..B| 000002E0: 31 2C 33 32 3A 54 B2 34 00 FA 0A 35 00 54 B2 54 |1,32:T.4...5.T.T| 000002F0: AB 31 3A 8B 54 B1 30 A7 35 33 00 07 0B 36 00 82 |.1:.T.0.53...6..| 00000300: 49 31 3A 54 B2 37 30 00 19 0B 37 00 54 B2 54 AB |I1:T.70...7.T.T.| 00000310: 31 3A 8B 54 B1 30 A7 35 35 00 1F 0B 38 00 8E 00 |1:.T.0.55...8...| 00000320: 25 0B 39 00 3A 00 2B 0B 5A 00 99 00 4B 0B 5B 00 |%.9.:.+.Z...K.[.| 00000330: 99 22 20 20 20 33 29 20 45 4E 54 45 52 20 4E 41 |." 3) ENTER NA| 00000340: 4D 45 20 4F 46 20 46 49 4C 45 22 00 6F 0B 5C 00 |ME OF FILE".o.\.| 00000350: 99 22 20 20 20 20 20 20 54 4F 20 4C 4F 41 44 2E |." TO LOAD.| 00000360: 20 20 28 44 4F 4E 27 54 20 50 52 45 53 53 22 00 | (DON'T PRESS".| 00000370: 91 0B 5D 00 99 22 20 20 20 20 20 20 52 45 54 55 |..].." RETU| 00000380: 52 4E 20 55 4E 54 49 4C 20 43 41 52 52 49 45 52 |RN UNTIL CARRIER| 00000390: 22 00 B0 0B 5E 00 85 22 20 20 20 20 20 20 49 53 |"...^.." IS| 000003A0: 20 44 45 54 45 43 54 45 44 2E 29 20 22 3B 46 24 | DETECTED.) ";F$| 000003B0: 00 B6 0B 5F 00 3A 00 DB 0B 6E 00 99 22 93 11 11 |..._.:...n.."...| 000003C0: 11 4C 4F 41 44 22 3B C7 28 33 34 29 3B 46 24 3B |.LOAD";.(34);F$;| 000003D0: C7 28 33 34 29 3B 22 2C 38 13 22 00 F4 0B 78 00 |.(34);",8."...x.| 000003E0: 41 24 B2 C7 28 31 33 29 AA 22 52 55 4E 22 AA C7 |A$..(13)."RUN"..| 000003F0: 28 31 33 29 00 03 0C 82 00 81 49 B2 31 A4 C3 28 |(13)......I.1..(| 00000400: 41 24 29 00 1C 0C 8C 00 97 36 33 30 AA 49 2C C6 |A$)......630.I,.| 00000410: 28 CA 28 41 24 2C 49 29 29 3A 82 49 00 29 0C 96 |(.(A$,I)):.I.)..| 00000420: 00 97 31 39 38 2C 49 AB 31 00 2F 0C A0 00 A2 00 |..198,I.1./.....| 00000430: 00 00 |.. |
.......".":.I.1.5:.:.I.9...." AUTOD
IAL.IMG PROLOGUE"._...." BY JOHN FORKO
SH -- 08/25/84".E.........B1.56577:B2.56
579:.B2,32:.B1,0.....:......" 1) SET A
UTOMODEM SWITCHES,".J...." 2) PRESS ..
."......" ... (O) ORIGINATE".
....." ... (A) ANSWER".6...."
... (X) LOAD FILE".<...:.N..
..A$:.A$."".20.`....A$."A"..:.30.R....A$
."O"..:.40......A$."X"..:.90......:.11..
...:......" WAITING FOR RING ...".Q
...B.B(B1):B.B.8:.B..0.31... .." ..
. RING DETECTED"...!..90...".:...(.."
ENTER PHONE# ";A$.3.).." DIALING
";.K.*..B1,32:.B.1.1000:.B.W.+.A.C(A$).
T.,..I.1.A:I$.J(A$,I,1):.I$;...-.N.E(I$)
:.N.0.N.10......50:.I:." COMPLETED".../.
.90...0.:.G.2..I1.1.N:.B1,0:T.7.Y.3.T.T.
1:.T.0.51...4..B1,32:T.4...5.T.T.1:.T.0.
53...6..I1:T.70...7.T.T.1:.T.0.55...8...
%.9.:.+.Z...K.[.." 3) ENTER NAME OF FI
LE".O.\.." TO LOAD. (DON'T PRESS".
..].." RETURN UNTIL CARRIER"...^.."
IS DETECTED.) ";F$..._.:...N.."...
.LOAD";G(34);F$;G(34);",8."...X.A$.G(13)
."RUN".G(13)......I.1.C(A$)......630.I,F
(J(A$,I)):.I.)....198,I.1./. .....
> CLICK IMAGE PREVIEW FOR FULL MODAL