HAYES/1670 SCAN
FILE INFORMATION
FILENAME(S): HAYES/1670 SCAN
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-11-30 16:45:37
APPEARS ON: 1 disk(s)
FILE HASH
324520f0650b0c6f7d0f2ba472e505a6c94594aa10dea19880eb9031c54b9457
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TALENTED RULERZ | HAYES/1670 SCAN | PRG | High Voltage Complete C64 Collection | 10 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 01 00 97 35 33 32 38 30 2C 30 3A 97 |.......53280,0:.|
00000010: 35 33 32 38 31 2C 30 00 3D 08 02 00 99 22 93 11 |53281,0.=...."..|
00000020: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D D5 C0 C0 C0 C0 |................|
00000030: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 22 00 61 08 |............".a.|
00000040: 03 00 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D C2 |..."............|
00000050: 20 48 41 59 45 53 20 53 43 41 4E 4E 45 52 20 C2 | HAYES SCANNER .|
00000060: 22 00 84 08 04 00 99 22 1D 1D 1D 1D 1D 1D 1D 1D |"......"........|
00000070: 1D 1D 1D CA C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000080: C0 C0 C0 CB 00 AE 08 05 00 99 22 11 11 44 4F 20 |.........."..DO |
00000090: 59 4F 55 20 57 49 53 48 20 54 4F 20 53 45 4E 44 |YOU WISH TO SEND|
000000A0: 20 47 4F 4F 44 20 41 43 43 45 53 53 20 22 00 D7 | GOOD ACCESS "..|
000000B0: 08 06 00 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |...."...........|
000000C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000000D0: 1D 1D 1D 1D 1D 44 22 00 01 09 07 00 85 22 91 43 |.....D"......".C|
000000E0: 4F 44 45 53 20 54 4F 20 44 49 53 4B 20 4F 52 20 |ODES TO DISK OR |
000000F0: 50 52 49 4E 54 45 52 20 28 44 2F 50 29 22 3B 52 |PRINTER (D/P)";R|
00000100: 24 00 22 09 08 00 8B 52 24 B2 22 44 22 A7 8D 32 |$."....R$."D"..2|
00000110: 30 30 30 30 3A 97 34 39 31 35 32 2C 31 32 3A 89 |0000:.49152,12:.|
00000120: 32 30 00 3C 09 09 00 8B 52 24 B2 22 50 22 A7 97 |20.<....R$."P"..|
00000130: 34 39 31 35 32 2C 31 33 3A 89 32 30 00 45 09 0A |49152,13:.20.E..|
00000140: 00 43 43 B2 30 00 4F 09 14 00 89 33 30 30 30 00 |.CC.0.O....3000.|
00000150: 55 09 34 08 8F 00 5B 09 98 08 99 00 7B 09 A2 08 |U.4...[.....{...|
00000160: 99 22 31 29 20 46 49 4E 44 20 4C 4F 43 41 4C 20 |."1) FIND LOCAL |
00000170: 43 4F 4D 50 55 54 45 52 53 2E 22 00 98 09 AC 08 |COMPUTERS.".....|
00000180: 99 22 32 29 20 46 49 4E 44 20 41 43 43 45 53 53 |."2) FIND ACCESS|
00000190: 20 43 4F 44 45 53 2E 22 00 B6 09 AD 08 99 22 11 | CODES."......".|
000001A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000001B0: 1D 1D 1D 1D 32 22 00 D5 09 B1 08 85 22 91 45 4E |....2"......".EN|
000001C0: 54 45 52 20 43 48 4F 49 43 45 20 28 31 2F 32 29 |TER CHOICE (1/2)|
000001D0: 22 3B 52 45 24 00 E8 09 C0 08 8B 52 45 24 B2 22 |";RE$......RE$."|
000001E0: 31 22 A7 46 B2 32 3A 8E 00 01 0A CA 08 8B 52 45 |1".F.2:.......RE|
000001F0: 24 B2 22 32 22 A7 46 B2 33 3A 8D 32 33 30 30 3A |$."2".F.3:.2300:|
00000200: 8E 00 0B 0A D4 08 89 32 32 33 30 00 35 0A FC 08 |.......2230.5...|
00000210: 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00000220: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 38 33 33 |.............833|
00000230: 39 32 33 39 22 00 5A 0A FD 08 85 22 91 41 43 43 |9239".Z....".ACC|
00000240: 45 53 53 20 4E 55 4D 42 45 52 20 28 37 20 44 49 |ESS NUMBER (7 DI|
00000250: 47 49 54 53 29 22 3B 50 48 52 00 83 0A FE 08 99 |GITS)";PHR......|
00000260: 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00000270: 1D 1D 1D 1D 1D 1D 1D 1D 34 30 39 37 32 32 33 37 |........40972237|
00000280: 32 30 22 00 A3 0A FF 08 85 22 91 43 4F 4D 50 55 |20"......".COMPU|
00000290: 54 45 52 20 54 45 53 54 20 4E 55 4D 42 45 52 22 |TER TEST NUMBER"|
000002A0: 3B 55 24 00 A9 0A 1A 09 8E 00 AF 0A B8 0B 8F 00 |;U$.............|
000002B0: B9 0A BD 0B 41 24 B2 22 22 00 C0 0A C2 0B A0 35 |....A$.""......5|
000002C0: 00 D0 0A 80 0C 9F 35 2C 32 2C 35 2C C7 28 38 29 |......5,2,5,.(8)|
000002D0: 00 DB 0A B2 0C 8D 20 32 31 30 30 00 01 0B 20 0D |...... 2100... .|
000002E0: 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
000002F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 39 39 39 39 39 |...........99999|
00000300: 22 00 23 0B 2A 0D 85 22 91 4E 55 4D 42 45 52 20 |".#.*..".NUMBER |
00000310: 4F 46 20 43 41 4C 4C 53 20 54 4F 20 54 52 59 22 |OF CALLS TO TRY"|
00000320: 3B 52 54 00 41 0B 34 0D 98 35 2C 22 41 54 56 30 |;RT.A.4..5,"ATV0|
00000330: 53 30 3D 30 22 3A 43 B2 54 49 AA 36 30 3A 59 B2 |S0=0":C.TI.60:Y.|
00000340: 31 00 58 0B 3E 0D 8B 54 49 B3 43 A7 A1 23 35 2C |1.X.>..TI.C..#5,|
00000350: 41 24 3A 89 33 33 39 30 00 72 0B 48 0D 85 22 11 |A$:.3390.r.H..".|
00000360: 53 54 41 52 54 49 4E 47 20 4E 55 4D 42 45 52 22 |STARTING NUMBER"|
00000370: 3B 4E 00 7C 0B 49 0D 4E B2 4E AB 31 00 85 0B 4D |;N.|.I.N.N.1...M|
00000380: 0D 99 22 93 22 00 96 0B 52 0D 4E 31 24 B2 22 41 |.."."...R.N1$."A|
00000390: 54 4D 30 44 54 22 00 C1 0B 5C 0D 99 22 13 11 50 |TM0DT"...\.."..P|
000003A0: 52 45 53 53 20 5B 2A 5D 20 54 4F 20 41 42 4F 52 |RESS [*] TO ABOR|
000003B0: 54 2E 20 20 20 20 20 44 45 4C 41 59 3A 20 20 20 |T. DELAY: |
000003C0: 22 00 FB 0B 66 0D 99 22 11 44 49 41 4C 49 4E 47 |"...f..".DIALING|
000003D0: 2E 2E 2E 22 AA 4E 24 AA 22 20 20 20 20 20 20 41 |...".N$." A|
000003E0: 54 54 45 4D 50 20 23 20 22 3B 59 3B 22 20 20 20 |TTEMP # ";Y;" |
000003F0: 20 20 20 20 20 20 22 3A 99 3A 99 00 29 0C 71 0D | ":.:..).q.|
00000400: 8F 20 49 46 59 3E 31 54 48 45 4E 50 52 49 4E 54 |. IFY>1THENPRINT|
00000410: 23 35 2C 4E 31 24 2C 4E 3A 43 3D 54 49 2B 39 30 |#5,N1$,N:C=TI+90|
00000420: 3A 47 4F 54 4F 33 34 36 30 00 41 0C 7A 0D 4E B2 |:GOTO3460.A.z.N.|
00000430: 4E AA 31 3A 81 50 4F B2 31 A4 39 30 30 3A 82 50 |N.1:.PO.1.900:.P|
00000440: 4F 00 61 0C 7B 0D 8B 46 B2 32 A7 98 35 2C 4E 31 |O.a.{..F.2..5,N1|
00000450: 24 3B 4E 3A 43 B2 54 49 AA 39 30 3A 89 33 34 35 |$;N:C.TI.90:.345|
00000460: 37 00 8D 0C 7C 0D 8B 46 B2 33 A7 20 20 98 35 2C |7...|..F.3. .5,|
00000470: 4E 31 24 3B 50 48 52 3B 22 2C 2C 2C 2C 2C 54 22 |N1$;PHR;",,,,,T"|
00000480: 3B 4E 3B 55 24 3A 43 B2 54 49 AA 39 30 00 B9 0C |;N;U$:C.TI.90...|
00000490: 81 0D 99 22 91 91 91 44 49 41 4C 49 4E 47 22 3B |..."...DIALING";|
000004A0: 4E 3B 22 20 20 43 4F 4E 4E 45 43 54 49 4F 4E 53 |N;" CONNECTIONS|
000004B0: 20 4D 41 44 45 22 3B 43 43 00 D0 0C 84 0D 8B 54 | MADE";CC......T|
000004C0: 49 B3 43 A7 A1 23 35 2C 41 24 3A 89 33 34 36 30 |I.C..#5,A$:.3460|
000004D0: 00 EB 0C 8E 0D 8B 20 46 B2 32 20 A7 20 43 B2 54 |...... F.2 . C.T|
000004E0: 49 AA 31 36 30 30 3A 52 B2 54 49 00 06 0D 8F 0D |I.1600:R.TI.....|
000004F0: 8B 20 46 B2 33 20 A7 20 43 B2 54 49 AA 32 35 35 |. F.3 . C.TI.255|
00000500: 30 3A 52 B2 54 49 00 10 0D 93 0D 41 24 B2 22 22 |0:R.TI.....A$.""|
00000510: 00 1B 0D 98 0D A1 23 35 2C 41 24 00 33 0D A7 0D |......#5,A$.3...|
00000520: 8B 41 24 B2 22 31 22 B0 41 24 B2 22 35 22 A7 35 |.A$."1".A$."5".5|
00000530: 30 30 30 00 44 0D A8 0D 8B 41 24 B2 22 33 22 A7 |000.D....A$."3".|
00000540: 36 30 30 30 00 6E 0D AC 0D A1 42 24 3A 8B 42 24 |6000.n....B$:.B$|
00000550: B2 22 2A 22 A7 98 35 2C 22 41 22 3A 43 B2 54 49 |."*"..5,"A":C.TI|
00000560: AA 33 38 30 3A 59 B2 30 3A 89 33 35 38 30 00 8E |.380:Y.0:.3580..|
00000570: 0D B6 0D 99 22 13 11 22 3B A3 33 30 29 B5 28 28 |...."..";.30).((|
00000580: 54 49 AB 52 29 AD 36 30 29 3B 22 13 22 3A 00 A4 |TI.R).60);".":..|
00000590: 0D C0 0D 8B 54 49 B3 28 43 AB 37 35 30 29 20 A7 |....TI.(C.750) .|
000005A0: 33 34 37 35 00 AE 0D C5 0D 89 36 30 30 30 00 C5 |3475......6000..|
000005B0: 0D CA 0D 98 35 2C 22 41 54 48 30 22 3A 43 B2 54 |....5,"ATH0":C.T|
000005C0: 49 AA 31 38 30 00 DC 0D D4 0D 8B 54 49 B3 43 A7 |I.180......TI.C.|
000005D0: A1 23 35 2C 41 24 3A 89 33 35 34 30 00 11 0E DE |.#5,A$:.3540....|
000005E0: 0D 8B 59 B2 52 54 A7 99 22 11 11 11 43 41 4C 4C |..Y.RT.."...CALL|
000005F0: 53 22 3B 52 54 3B 22 2E 20 20 4E 55 4D 42 45 52 |S";RT;". NUMBER|
00000600: 53 20 47 4F 4F 44 20 30 20 2E 22 3A 89 39 39 39 |S GOOD 0 .":.999|
00000610: 39 00 21 0E E8 0D 59 B2 59 AA 31 3A 89 33 34 32 |9.!...Y.Y.1:.342|
00000620: 30 00 3B 0E FC 0D 8B 54 49 B3 43 A7 A1 23 35 2C |0.;....TI.C..#5,|
00000630: 41 24 2C 41 24 3A 89 33 35 38 30 00 46 0E 87 13 |A$,A$:.3580.F...|
00000640: 89 20 39 39 39 38 00 54 0E 88 13 8F 20 43 4F 4E |. 9998.T.... CON|
00000650: 4E 45 43 54 00 5A 0E 8D 13 99 00 72 0E 92 13 50 |NECT.Z.....r...P|
00000660: 48 4F 24 B2 22 49 53 20 41 20 4E 55 4D 42 45 52 |HO$."IS A NUMBER|
00000670: 20 22 00 90 0E 9C 13 8B 41 24 B2 22 31 22 A7 20 | "......A$."1". |
00000680: 42 41 55 24 B2 22 33 30 30 20 42 41 55 44 2E 22 |BAU$."300 BAUD."|
00000690: 00 AF 0E 9F 13 8B 41 24 B2 22 35 22 A7 20 42 41 |......A$."5". BA|
000006A0: 55 24 B2 22 31 32 30 30 20 42 41 55 44 2E 22 00 |U$."1200 BAUD.".|
000006B0: C4 0E A0 13 43 43 B2 43 43 AA 31 3A 98 35 2C 22 |....CC.CC.1:.5,"|
000006C0: 2B 2B 2B 22 00 F6 0E B0 13 99 22 13 11 11 11 11 |+++"......".....|
000006D0: 11 11 11 11 11 9D 22 3B 4E 3B 50 48 4F 24 3B 22 |......";N;PHO$;"|
000006E0: 41 4E 44 20 49 53 20 22 3B 42 41 55 24 3A 98 35 |AND IS ";BAU$:.5|
000006F0: 2C 22 2B 2B 2B 22 00 0E 0F B1 13 8B 20 C2 28 34 |,"+++"...... .(4|
00000700: 39 31 35 32 29 B2 31 33 A7 89 35 30 35 30 00 2C |9152).13..5050.,|
00000710: 0F B2 13 9F 32 2C 38 2C 32 2C 22 30 3A 47 4F 4F |....2,8,2,"0:GOO|
00000720: 44 20 43 4F 44 45 53 2C 53 2C 41 22 00 35 0F B3 |D CODES,S,A".5..|
00000730: 13 98 32 2C 4E 00 3C 0F B4 13 A0 32 00 46 0F B5 |..2,N.<....2.F..|
00000740: 13 89 35 30 36 35 00 54 0F BA 13 9F 34 2C 34 2C |..5065.T....4,4,|
00000750: 33 3A 9D 34 00 5D 0F BF 13 98 34 2C 4E 00 64 0F |3:.4.]....4,N.d.|
00000760: C4 13 A0 34 00 7E 0F C9 13 98 35 2C 22 20 22 3A |...4.~....5," ":|
00000770: 81 49 54 B2 31 A4 31 33 30 30 3A 82 49 54 00 91 |.IT.1.1300:.IT..|
00000780: 0F CE 13 81 59 54 B2 31 A4 31 32 30 30 3A 82 59 |....YT.1.1200:.Y|
00000790: 54 00 9F 0F D3 13 98 35 2C 22 2B 2B 2B 22 3B 00 |T......5,"+++";.|
000007A0: B2 0F D8 13 81 59 50 B2 31 A4 31 32 30 30 3A 82 |.....YP.1.1200:.|
000007B0: 59 50 00 C0 0F E7 13 98 35 2C 22 41 54 48 30 22 |YP......5,"ATH0"|
000007C0: 00 CA 0F EC 13 89 33 35 35 30 00 FC 0F 70 17 99 |......3550...p..|
000007D0: 22 9D 11 11 11 11 20 20 20 20 20 20 20 20 22 3B |"..... ";|
000007E0: 4E 3B 22 49 53 20 42 55 53 59 20 4F 52 20 4E 4F |N;"IS BUSY OR NO|
000007F0: 54 20 41 20 4E 55 4D 42 45 52 2E 22 00 06 10 7A |T A NUMBER."...z|
00000800: 17 89 33 35 33 30 00 0C 10 B8 22 80 00 43 10 0E |..3530...."..C..|
00000810: 27 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |'.".............|
00000820: 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000830: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000840: 1D 59 22 00 6B 10 0F 27 85 22 91 4C 49 53 54 20 |.Y".k..'.".LIST |
00000850: 4E 55 4D 42 45 52 53 20 46 52 4F 4D 20 44 49 53 |NUMBERS FROM DIS|
00000860: 4B 20 28 59 2F 4E 29 22 3B 57 24 00 82 10 10 27 |K (Y/N)";W$....'|
00000870: 8B 20 57 24 B2 22 59 22 20 A7 20 8D 20 32 35 30 |. W$."Y" . . 250|
00000880: 30 30 00 97 10 11 27 8B 20 57 24 B2 22 4E 22 20 |00....'. W$."N" |
00000890: A7 20 31 30 30 30 32 00 C6 10 12 27 99 22 11 1D |. 10002....'."..|
000008A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000008B0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000008C0: 1D 1D 1D 1D 45 22 00 F6 10 13 27 85 22 91 45 4E |....E"....'.".EN|
000008D0: 44 2C 20 52 45 53 54 41 52 54 2C 20 4F 52 20 4C |D, RESTART, OR L|
000008E0: 49 53 54 20 41 47 41 49 4E 20 28 45 2F 52 2F 4C |IST AGAIN (E/R/L|
000008F0: 29 22 3B 58 39 24 00 0E 11 14 27 8B 20 58 39 24 |)";X9$....'. X9$|
00000900: B2 22 4C 22 20 A7 20 8D 20 32 35 30 30 30 00 24 |."L" . . 25000.$|
00000910: 11 15 27 8B 20 58 39 24 B2 22 45 22 20 A7 20 31 |..'. X9$."E" . 1|
00000920: 30 30 30 37 00 2C 11 16 27 89 20 31 00 32 11 17 |0007.,..'. 1.2..|
00000930: 27 80 00 6D 11 20 4E 9F 32 2C 38 2C 32 2C 22 40 |'..m. N.2,8,2,"@|
00000940: 30 3A 47 4F 4F 44 20 43 4F 44 45 53 2C 53 2C 57 |0:GOOD CODES,S,W|
00000950: 22 3A 98 32 2C 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |":.2,"----------|
00000960: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3A A0 32 00 73 11 |---------":.2.s.|
00000970: 23 4E 8E 00 9A 11 A8 61 8F 20 52 45 41 44 20 46 |#N.....a. READ F|
00000980: 49 4C 45 20 22 47 4F 4F 44 20 43 4F 44 45 53 22 |ILE "GOOD CODES"|
00000990: 20 46 52 4F 4D 20 44 49 53 4B 00 B8 11 B2 61 9F | FROM DISK....a.|
000009A0: 37 2C 38 2C 37 2C 22 30 3A 47 4F 4F 44 20 43 4F |7,8,7,"0:GOOD CO|
000009B0: 44 45 53 2C 53 2C 52 22 00 D5 11 B7 61 99 3A 99 |DES,S,R"....a.:.|
000009C0: 22 2A 2A 20 56 41 4C 49 44 20 4E 55 4D 42 45 52 |"** VALID NUMBER|
000009D0: 53 20 2A 2A 22 00 DF 11 BC 61 84 37 2C 4D 24 00 |S **"....a.7,M$.|
000009E0: F3 11 C1 61 8B 20 58 24 B2 4D 24 20 A7 20 32 35 |...a. X$.M$ . 25|
000009F0: 39 30 30 00 FC 11 C6 61 99 20 4D 24 00 06 12 D0 |900....a. M$....|
00000A00: 61 58 24 B2 4D 24 00 12 12 DA 61 89 20 32 35 30 |aX$.M$....a. 250|
00000A10: 32 30 00 2B 12 2C 65 99 22 45 4E 44 20 4F 46 20 |20.+.,e."END OF |
00000A20: 4C 49 4E 45 2E 22 3A 99 3A A0 37 00 31 12 90 65 |LINE.":.:.7.1..e|
00000A30: 8E 00 00 00 |.... |
.......53280,0:.53281,0.=...."..........
...U...............I".A...."...........B
HAYES SCANNER B"......"...........J....
...........K......"..DO YOU WISH TO SEND
GOOD ACCESS ".W...."...................
.............D"......".CODES TO DISK OR
PRINTER (D/P)";R$."....R$."D"..20000:.49
152,12:.20.<....R$."P"..49152,13:.20.E..
.CC.0.O....3000.U.4...[.....{...."1) FIN
D LOCAL COMPUTERS."......"2) FIND ACCESS
CODES."......".....................2".U
....".ENTER CHOICE (1/2)";RE$......RE$."
1".F.2:....J..RE$."2".F.3:.2300:....T..2
230.5...."...........................833
9239".Z....".ACCESS NUMBER (7 DIGITS)";P
HR......".......................40972237
20"......".COMPUTER TEST NUMBER";U$.....
............A$.""...B. 5.P....5,2,5,G(8)
...... 2100... .."......................
...99999".#.*..".NUMBER OF CALLS TO TRY"
;RT.A.4..5,"ATV0S0=0":C.TI.60:Y.1.X.>..T
I.C..#5,A$:.3390.R.H..".STARTING NUMBER"
;N.|.I.N.N.1...M.."."...R.N1$."ATM0DT".A
.\.."..PRESS [*] TO ABORT. DELAY:
"...F..".DIALING...".N$." ATTEMP #
";Y;" ":.:..).Q.. IFY>1THENPRINT
#5,N1$,N:C=TI+90:GOTO3460.A.Z.N.N.1:.PO.
1.900:.PO.A.{..F.2..5,N1$;N:C.TI.90:.345
7...|..F.3. .5,N1$;PHR;",,,,,T";N;U$:C.
TI.90......"...DIALING";N;" CONNECTIONS
MADE";CC.P....TI.C..#5,A$:.3460...... F
.2 . C.TI.1600:R.TI...... F.3 . C.TI.255
0:R.TI.....A$.""......#5,A$.3....A$."1".
A$."5".5000.D....A$."3".6000.N....B$:.B$
."*"..5,"A":C.TI.380:Y.0:.3580......".."
;.30).((TI.R).60);".":......TI.(C.750) .
3475...E..6000.E.J..5,"ATH0":C.TI.180...
T..TI.C..#5,A$:.3540......Y.RT.."...CALL
S";RT;". NUMBERS GOOD 0 .":.9999.!...Y.
Y.1:.3420.;....TI.C..#5,A$,A$:.3580.F...
. 9998.T.... CONNECT.Z.....R...PHO$."IS
A NUMBER "......A$."1". BAU$."300 BAUD."
......A$."5". BAU$."1200 BAUD.".D. .CC.C
C.1:.5,"+++"......"...........";N;PHO$;"
AND IS ";BAU$:.5,"+++"...... B(49152).13
..5050.,....2,8,2,"0:GOOD CODES,S,A".5..
..2,N.<... 2.F....5065.T....4,4,3:.4.]..
..4,N.D.D. 4.~.I..5," ":.IT.1.1300:.IT..
.N..YT.1.1200:.YT...S..5,"+++";...X..YP.
1.1200:.YP......5,"ATH0".J....3550...P..
"..... ";N;"IS BUSY OR NOT A NUMB
ER."...Z..3530...."..C..'.".............
.................................Y".K..'
.".LIST NUMBERS FROM DISK (Y/N)";W$....'
. W$."Y" . . 25000....'. W$."N" . 10002.
F..'."..................................
....E"....'.".END, RESTART, OR LIST AGAI
N (E/R/L)";X9$....'. X9$."L" . . 25000.$
..'. X9$."E" . 10007.,..'. 1.2..'..M. N.
2,8,2,"@0:GOOD CODES,S,W":.2,"----------
---------": 2.S.#N.....A. READ FILE "GOO
D CODES" FROM DISK....A.7,8,7,"0:GOOD CO
DES,S,R".U..A.:."** VALID NUMBERS **"...
.A.7,M$...AA. X$.M$ . 25900...FA. M$...P
AX$.M$...ZA. 25020.+.,E."END OF LINE.":.
: 7.1..E....
> CLICK IMAGE PREVIEW FOR FULL MODAL