> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1A 08 01 00 8C 3A 81 49 B2 31 A4 35 3A 87 |.......:.I.1.5:.|
00000010: 54 54 24 28 49 AA 35 29 3A 82 00 41 08 02 00 53 |TT$(I.5):..A...S|
00000020: 48 B2 2E 3A 41 24 B2 22 93 8B 8B 20 20 20 C2 C2 |H..:A$."... ..|
00000030: D3 A0 CC 49 53 54 20 31 32 2E 30 8B 8B 22 3A 9E |...IST 12.0..":.|
00000040: 4F 00 72 08 04 00 41 B2 38 3A 8D 31 30 30 34 3A |O.r...A.8:.1004:|
00000050: 8B 41 A7 41 24 B2 22 20 28 C5 29 44 49 54 2F C4 |.A.A$." (.)DIT/.|
00000060: 45 4C 45 54 45 20 CE 55 4D 42 45 52 53 8B 22 3A |ELETE .UMBERS.":|
00000070: 9E 4F 00 A8 08 06 00 41 24 B2 22 20 28 C1 29 44 |.O.....A$." (.)D|
00000080: 44 20 CE 55 4D 42 45 52 8B 20 28 D6 29 49 45 57 |D .UMBER. (.)IEW|
00000090: 20 CC 49 53 54 8B 20 28 D1 29 55 49 54 8B 22 3A | .IST. (.)UIT.":|
000000A0: 9E 4F 3A 8D 31 30 31 38 00 C8 08 08 00 41 24 B2 |.O:.1018.....A$.|
000000B0: 22 C2 C2 D3 3A 20 22 3A 9E 4F 3A 8D 31 30 30 37 |"...: ":.O:.1007|
000000C0: 3A 4C 50 B2 31 3A 9E 4F 00 00 09 0A 00 91 AB 28 |:LP.1:.O.......(|
000000D0: 41 4E 24 B2 22 C1 22 29 AB 28 41 4E 24 B2 22 D6 |AN$.".").(AN$.".|
000000E0: 22 29 AC 32 AB 28 41 4E 24 B2 22 C5 22 29 AC 33 |").2.(AN$.".").3|
000000F0: 89 31 32 2C 38 30 2C 31 31 34 3A 89 31 38 31 32 |.12,80,114:.1812|
00000100: 00 08 09 0C 00 58 B2 30 00 45 09 0E 00 97 35 33 |.....X.0.E....53|
00000110: 32 35 32 2C 33 38 3A 41 24 B2 22 8B C2 C2 D3 20 |252,38:A$.".... |
00000120: CE 41 4D 45 3F 20 20 20 3A 22 3A 9E 4F 3A 8D 31 |.AME? :":.O:.1|
00000130: 30 30 36 3A 8B 54 52 24 B3 22 01 22 AF 58 B2 2E |006:.TR$.".".X..|
00000140: A7 31 30 38 30 00 61 09 10 00 8B 41 4E 24 B2 22 |.1080.a....AN$."|
00000150: D1 22 B0 C3 28 41 4E 24 29 B3 32 AF 58 B2 2E A7 |."..(AN$).2.X...|
00000160: 32 00 75 09 12 00 54 54 24 28 31 29 B2 41 4E 24 |2.u...TT$(1).AN$|
00000170: 3A 8B 58 A7 8E 00 A8 09 14 00 41 24 B2 22 8B C1 |:.X.......A$."..|
00000180: 52 45 41 20 C3 4F 44 45 3F 20 20 3A 22 3A 9E 4F |REA .ODE? :":.O|
00000190: 3A 8D 31 30 30 36 3A 8B 54 52 24 B3 22 01 22 AF |:.1006:.TR$.".".|
000001A0: 58 B2 2E A7 31 30 38 30 00 C0 09 16 00 8B C3 28 |X...1080.......(|
000001B0: 41 4E 24 29 B3 B1 33 A7 8D 31 31 30 3A 89 32 30 |AN$)..3..110:.20|
000001C0: 00 D3 09 18 00 8B 41 4E 24 B2 22 D1 22 AF 58 B2 |......AN$.".".X.|
000001D0: 2E A7 32 00 0C 0A 1A 00 81 49 B2 31 A4 33 3A 8B |..2......I.1.3:.|
000001E0: CA 28 41 4E 24 2C 49 2C 31 29 B3 22 30 22 B0 CA |.(AN$,I,1)."0"..|
000001F0: 28 41 4E 24 2C 49 2C 31 29 B1 22 39 22 A7 8D 31 |(AN$,I,1)."9"..1|
00000200: 31 30 3A 49 B2 33 3A 82 3A 89 32 30 00 22 0A 1C |10:I.3:.:.20."..|
00000210: 00 82 3A 54 54 24 28 32 29 B2 41 4E 24 3A 8B 58 |..:TT$(2).AN$:.X|
00000220: A7 8E 00 3D 0A 1E 00 41 24 B2 22 8B D0 48 4F 4E |...=...A$."..HON|
00000230: 45 20 CE 55 4D 42 45 52 3F 22 3A 9E 4F 00 70 0A |E .UMBER?":.O.p.|
00000240: 20 00 41 24 B2 22 8B 20 20 D8 D8 D8 2D D8 D8 D8 | .A$.". ...-...|
00000250: D8 20 20 3A 22 3A 9E 4F 3A 8D 31 30 30 36 3A 8B |. :":.O:.1006:.|
00000260: 54 52 24 B3 22 01 22 AF 58 B2 2E A7 31 30 38 30 |TR$.".".X...1080|
00000270: 00 83 0A 22 00 8B 41 4E 24 B2 22 D1 22 AF 58 B2 |..."..AN$.".".X.|
00000280: 2E A7 32 00 B5 0A 24 00 41 B2 30 3A 81 49 B2 31 |..2...$.A.0:.I.1|
00000290: A4 33 3A 8B CA 28 41 4E 24 2C 49 2C 31 29 B3 22 |.3:..(AN$,I,1)."|
000002A0: 30 22 B0 CA 28 41 4E 24 2C 49 2C 31 29 B1 22 39 |0"..(AN$,I,1)."9|
000002B0: 22 A7 41 B2 31 00 E5 0A 26 00 82 3A 81 49 B2 35 |".A.1...&..:.I.5|
000002C0: A4 38 3A 8B CA 28 41 4E 24 2C 49 2C 31 29 B3 22 |.8:..(AN$,I,1)."|
000002D0: 30 22 B0 CA 28 41 4E 24 2C 49 2C 31 29 B1 22 39 |0"..(AN$,I,1)."9|
000002E0: 22 A7 41 B2 31 00 00 0B 28 00 82 3A 8B CA 28 41 |".A.1...(..:..(A|
000002F0: 4E 24 2C 34 2C 31 29 B3 B1 22 2D 22 A7 41 B2 31 |N$,4,1).."-".A.1|
00000300: 00 1A 0B 2A 00 8B C3 28 41 4E 24 29 B3 B1 38 B0 |...*...(AN$)..8.|
00000310: 41 A7 8D 31 31 30 3A 89 33 30 00 2E 0B 2C 00 54 |A..110:.30...,.T|
00000320: 54 24 28 33 29 B2 41 4E 24 3A 8B 58 A7 8E 00 62 |T$(3).AN$:.X...b|
00000330: 0B 2E 00 41 24 B2 22 8B C8 4F 55 52 53 2F C2 41 |...A$."..OURS/.A|
00000340: 55 44 3F 20 20 3A 22 3A 9E 4F 3A 8D 31 30 30 35 |UD? :":.O:.1005|
00000350: 3A 8B 54 52 24 B3 22 01 22 AF 58 B2 2E A7 31 30 |:.TR$.".".X...10|
00000360: 38 30 00 75 0B 30 00 8B 41 4E 24 B2 22 D1 22 AF |80.u.0..AN$.".".|
00000370: 58 B2 2E A7 32 00 86 0B 32 00 8B C3 28 41 4E 24 |X...2...2...(AN$|
00000380: 29 B3 32 A7 34 36 00 9A 0B 34 00 54 54 24 28 34 |).2.46...4.TT$(4|
00000390: 29 B2 41 4E 24 3A 8B 58 A7 8E 00 E2 0B 36 00 97 |).AN$:.X.....6..|
000003A0: 35 33 32 35 32 2C 33 35 3A 41 24 B2 22 8B C5 4E |53252,35:A$."..N|
000003B0: 54 45 52 20 D5 50 20 D4 4F 20 33 35 20 C3 48 41 |TER .P .O 35 .HA|
000003C0: 52 53 20 CF 46 20 C9 4E 46 4F 8B C1 42 4F 55 54 |RS .F .NFO..BOUT|
000003D0: 20 D4 48 49 53 20 C2 C2 D3 2E 8B 8B C9 3A 22 3A | .HIS .......:":|
000003E0: 9E 4F 00 FE 0B 38 00 8D 31 30 30 35 3A 8B 54 52 |.O...8..1005:.TR|
000003F0: 24 B3 22 01 22 AF 58 B2 2E A7 31 30 38 30 00 11 |$.".".X...1080..|
00000400: 0C 3A 00 8B 41 4E 24 B2 22 D1 22 AF 58 B2 2E A7 |.:..AN$.".".X...|
00000410: 32 00 2D 0C 3C 00 54 54 24 28 35 29 B2 22 5B 22 |2.-.<.TT$(5)."["|
00000420: AA 41 4E 24 AA 22 5D 22 3A 8B 58 A7 8E 00 3D 0C |.AN$."]":.X...=.|
00000430: 3E 00 41 24 B2 22 93 8B 8B 22 3A 9E 4F 00 69 0C |>.A$."...":.O.i.|
00000440: 40 00 81 49 B2 31 A4 35 3A 41 24 B2 54 54 24 28 |@..I.1.5:A$.TT$(|
00000450: 49 AA 35 29 AA 22 3A 22 AA 54 54 24 28 49 29 3A |I.5).":".TT$(I):|
00000460: 4C 50 B2 31 3A 9E 4F 3A 82 00 A6 0C 42 00 41 24 |LP.1:.O:....B.A$|
00000470: B2 22 8B 8B C5 4E 54 45 52 20 CE 55 4D 42 45 52 |."...NTER .UMBER|
00000480: 20 D4 4F 20 C3 48 41 4E 47 45 2C 8B 87 C1 87 20 | .O .HANGE,.... |
00000490: D4 4F 20 C1 42 4F 52 54 2C 8B CF 52 20 D0 52 45 |.O .BORT,..R .RE|
000004A0: 53 53 22 3A 9E 4F 00 D7 0C 44 00 41 24 B2 22 5C |SS":.O...D.A$."\|
000004B0: 52 31 20 D2 C5 D4 D5 D2 CE 20 5C 52 30 20 D4 4F |R1 ...... \R0 .O|
000004C0: 20 C1 44 44 20 D4 4F 20 CC 49 53 54 2E 8B 8B C2 | .DD .O .IST....|
000004D0: C2 D3 3A 22 3A 9E 4F 00 F7 0C 46 00 8D 31 30 30 |..:":.O...F..100|
000004E0: 37 3A 4C 50 B2 31 3A 9E 4F 3A 8B 54 52 24 B3 22 |7:LP.1:.O:.TR$."|
000004F0: 01 22 A7 31 30 38 30 00 31 0D 48 00 41 B2 C5 28 |.".1080.1.H.A..(|
00000500: 41 4E 24 29 3A 58 B2 31 3A 91 41 8D 31 34 2C 32 |AN$):X.1:.A.14,2|
00000510: 30 2C 33 30 2C 34 36 3A 91 AB 28 41 4E 24 B2 22 |0,30,46:..(AN$."|
00000520: C1 22 29 89 32 3A 8B 41 4E 24 B3 B1 52 24 A7 36 |.").2:.AN$..R$.6|
00000530: 34 00 63 0D 4A 00 41 24 B2 22 53 59 53 2E 42 42 |4.c.J.A$."SYS.BB|
00000540: 53 2C 53 2C 57 22 3A 44 52 B2 31 3A 8D 31 30 31 |S,S,W":DR.1:.101|
00000550: 31 3A 8D 31 30 30 33 3A 8B 41 24 B2 22 30 30 22 |1:.1003:.A$."00"|
00000560: A7 37 38 00 83 0D 4C 00 41 24 B2 22 53 59 53 2E |.78...L.A$."SYS.|
00000570: 42 42 53 2C 53 2C 41 22 3A 44 52 B2 31 3A 8D 31 |BBS,S,A":DR.1:.1|
00000580: 30 31 31 00 A0 0D 4E 00 81 49 B2 31 A4 35 3A 98 |011...N..I.1.5:.|
00000590: 32 2C 54 54 24 28 49 29 3A 82 3A A0 32 3A 89 32 |2,TT$(I):.:.2:.2|
000005A0: 00 C0 0D 50 00 41 24 B2 22 53 59 53 2E 42 42 53 |...P.A$."SYS.BBS|
000005B0: 2C 53 2C 52 22 3A 44 52 B2 31 3A 8D 31 30 31 31 |,S,R":DR.1:.1011|
000005C0: 00 0C 0E 52 00 58 B2 30 3A 41 24 B2 22 8B 8B 28 |...R.X.0:A$."..(|
000005D0: D3 29 50 45 43 49 46 49 43 20 C1 52 45 41 20 C3 |.)PECIFIC .REA .|
000005E0: 4F 44 45 8B 28 C1 29 4C 4C 20 CE 55 4D 42 45 52 |ODE.(.)LL .UMBER|
000005F0: 53 8B 8B C2 C2 D3 3A 5C 47 31 22 3A 9E 4F 3A 8B |S.....:\G1":.O:.|
00000600: 54 52 24 B3 22 01 22 A7 31 30 38 30 00 4C 0E 54 |TR$.".".1080.L.T|
00000610: 00 8D 31 30 31 37 3A 8B 41 4E 24 B2 22 D3 22 A7 |..1017:.AN$.".".|
00000620: 58 B2 31 3A 41 24 B2 22 8B D7 48 49 43 48 20 C1 |X.1:A$."..HICH .|
00000630: 52 45 41 20 C3 4F 44 45 3F 20 3A 22 3A 9E 4F 3A |REA .ODE? :":.O:|
00000640: 8D 31 30 30 36 3A 5A 24 B2 41 4E 24 00 8E 0E 56 |.1006:Z$.AN$...V|
00000650: 00 41 31 B2 30 3A 41 24 B2 22 8B 8B D0 41 55 53 |.A1.0:A$."...AUS|
00000660: 45 20 C2 45 54 57 45 45 4E 20 CE 55 4D 42 45 52 |E .ETWEEN .UMBER|
00000670: 53 3F 20 3A 22 3A 9E 4F 3A 8D 31 30 30 37 3A 8D |S? :":.O:.1007:.|
00000680: 31 39 30 33 3A 8B 41 B2 30 A7 41 31 B2 31 00 B0 |1903:.A.0.A1.1..|
00000690: 0E 58 00 8D 31 30 31 38 3A 81 49 B2 31 A4 35 3A |.X..1018:.I.1.5:|
000006A0: 84 32 2C 54 54 24 28 49 29 3A 41 B2 53 54 3A 82 |.2,TT$(I):A.ST:.|
000006B0: 00 C9 0E 5A 00 8B 58 AF 5A 24 B3 B1 54 54 24 28 |...Z..X.Z$..TT$(|
000006C0: 32 29 AF 41 B2 30 A7 38 38 00 E4 0E 5C 00 8B 58 |2).A.0.88...\..X|
000006D0: AF 5A 24 B3 B1 54 54 24 28 32 29 AF 41 B3 B1 30 |.Z$..TT$(2).A..0|
000006E0: A7 31 30 36 00 FE 0E 5E 00 41 24 B2 22 5C 46 31 |.106...^.A$."\F1|
000006F0: 8B 8B 22 3A 8B 41 31 B2 30 A7 8D 31 31 32 00 32 |..":.A1.0..112.2|
00000700: 0F 60 00 81 49 B2 31 A4 34 3A 41 24 B2 54 54 24 |.`..I.1.4:A$.TT$|
00000710: 28 49 AA 35 AB 28 49 B1 31 29 29 AA 22 3A 22 AA |(I.5.(I.1)).":".|
00000720: C8 28 54 54 24 28 49 AB 28 49 B1 32 29 29 2C 33 |.(TT$(I.(I.2)),3|
00000730: 38 29 00 4C 0F 62 00 8B 49 B2 32 A7 41 24 B2 41 |8).L.b..I.2.A$.A|
00000740: 24 AA 22 2D 22 AA 54 54 24 28 33 29 00 5D 0F 64 |$."-".TT$(3).].d|
00000750: 00 8D 31 31 32 3A 82 3A 8D 31 30 31 38 00 8E 0F |..112:.:.1018...|
00000760: 66 00 91 41 31 AF 28 41 B2 30 29 89 38 38 3A 8B |f..A1.(A.0).88:.|
00000770: 41 B2 30 A7 41 24 B2 22 28 CE 29 45 58 54 20 28 |A.0.A$."(.)EXT (|
00000780: D1 29 55 49 54 20 3A 5C 47 31 22 3A 9E 4F 00 A1 |.)UIT :\G1":.O..|
00000790: 0F 68 00 8B 41 4E 24 B2 22 D1 22 A7 A0 32 3A 89 |.h..AN$."."..2:.|
000007A0: 32 00 E0 0F 6A 00 8B 41 A7 41 24 B2 22 20 2A 20 |2...j..A.A$." * |
000007B0: C5 4E 44 20 CF 46 20 CC 49 53 54 20 2A 20 28 C8 |.ND .F .IST * (.|
000007C0: 49 54 20 5C 52 31 20 D2 C5 D4 D5 D2 CE 20 5C 52 |IT \R1 ...... \R|
000007D0: 30 29 20 5C 47 31 22 3A 9E 4F 3A A0 32 3A 89 32 |0) \G1":.O:.2:.2|
000007E0: 00 E8 0F 6C 00 89 38 38 00 19 10 6E 00 41 24 B2 |...l..88...n.A$.|
000007F0: 22 8B 8B 2A 20 C9 4E 56 41 4C 49 44 20 C5 4E 54 |"..* .NVALID .NT|
00000800: 52 59 2E 2E 2E D4 52 59 20 C1 47 41 49 4E 21 20 |RY....RY .GAIN! |
00000810: 2A 8B 8B 22 3A 9E 4F 3A 8E 00 3A 10 70 00 4C 50 |*..":.O:..:.p.LP|
00000820: B2 31 3A 9E 4F 3A 41 B2 41 B0 AB 28 52 43 B3 B1 |.1:.O:A.A..(RC..|
00000830: 30 B0 53 48 B3 B1 30 29 3A 8E 00 70 10 72 00 44 |0.SH..0):..p.r.D|
00000840: 52 B2 31 3A 41 24 B2 22 53 59 53 2E 42 42 53 2C |R.1:A$."SYS.BBS,|
00000850: 53 2C 52 22 3A 8D 31 30 31 31 3A 8D 31 30 30 33 |S,R":.1011:.1003|
00000860: 3A 8B 41 24 B3 B1 22 30 30 22 A7 A0 32 3A 89 32 |:.A$.."00"..2:.2|
00000870: 00 9E 10 74 00 98 31 35 2C 22 53 22 AA 44 52 24 |...t..15,"S".DR$|
00000880: AA 22 54 45 4D 50 22 3A A0 33 3A 9F 33 2C 44 56 |."TEMP":.3:.3,DV|
00000890: 25 2C 33 2C 22 54 45 4D 50 2C 53 2C 57 22 00 BA |%,3,"TEMP,S,W"..|
000008A0: 10 76 00 81 49 B2 31 A4 35 3A 84 32 2C 45 44 24 |.v..I.1.5:.2,ED$|
000008B0: 28 49 29 3A 4A B2 53 54 3A 82 00 F6 10 78 00 8D |(I):J.ST:....x..|
000008C0: 31 30 31 38 3A 81 49 B2 31 A4 35 3A 41 24 B2 C4 |1018:.I.1.5:A$..|
000008D0: 28 49 29 AA 22 2D 2D 22 AA 54 54 24 28 49 AA 35 |(I)."--".TT$(I.5|
000008E0: 29 AA 22 3A 22 AA 45 44 24 28 49 29 3A 4C 50 B2 |).":".ED$(I):LP.|
000008F0: 31 3A 9E 4F 3A 82 00 2E 11 7A 00 41 24 B2 22 8B |1:.O:....z.A$.".|
00000900: 5B CB 5D 45 45 50 20 5B C4 5D 45 4C 45 54 45 20 |[.]EEP [.]ELETE |
00000910: 5B C5 5D 44 49 54 20 5B C1 5D 42 4F 52 54 20 C1 |[.]DIT [.]BORT .|
00000920: 4C 4C 8B 8B C2 C2 D3 20 3A 20 22 3A 9E 4F 00 63 |LL..... : ":.O.c|
00000930: 11 7C 00 8D 31 30 30 37 3A 4C 50 B2 31 3A 9E 4F |.|..1007:LP.1:.O|
00000940: 3A 8B 54 52 24 B3 22 01 22 A7 A0 33 3A 98 31 35 |:.TR$."."..3:.15|
00000950: 2C 22 53 30 3A 54 45 4D 50 22 3A A0 32 3A 89 31 |,"S0:TEMP":.2:.1|
00000960: 30 38 30 00 9B 11 7E 00 91 AB 28 41 24 B2 22 C4 |080...~...(A$.".|
00000970: 22 29 AB 28 41 24 B2 22 C5 22 29 AC 32 AB 28 41 |").(A$.".").2.(A|
00000980: 24 B2 22 C1 22 B0 41 24 B2 22 D1 22 29 AC 33 89 |$.".".A$.".").3.|
00000990: 31 31 38 2C 31 33 30 2C 31 33 38 00 C4 11 80 00 |118,130,138.....|
000009A0: 81 49 B2 31 A4 35 3A 98 33 2C 45 44 24 28 49 29 |.I.1.5:.3,ED$(I)|
000009B0: 3A 82 3A 91 AB 28 4A B3 B1 30 29 89 31 33 39 3A |:.:..(J..0).139:|
000009C0: 89 31 31 38 00 FD 11 82 00 41 24 B2 22 C5 44 49 |.118.....A$.".DI|
000009D0: 54 20 23 3F 3A 22 3A 9E 4F 3A 8D 31 30 30 37 3A |T #?:":.O:.1007:|
000009E0: 4C 50 B2 31 3A 9E 4F 3A 41 B2 C5 28 41 4E 24 29 |LP.1:.O:A..(AN$)|
000009F0: 3A 8B 41 B3 31 B0 41 B1 35 A7 31 33 30 00 2A 12 |:.A.1.A.5.130.*.|
00000A00: 84 00 41 24 B2 C4 28 41 29 AA 22 2D 2D 22 AA 54 |..A$..(A)."--".T|
00000A10: 54 24 28 41 AA 35 29 AA 22 3A 22 AA 45 44 24 28 |T$(A.5).":".ED$(|
00000A20: 41 29 3A 4C 50 B2 31 3A 9E 4F 00 62 12 86 00 41 |A):LP.1:.O.b...A|
00000A30: 24 B2 22 2D 2D 2D 2D 22 AA 54 54 24 28 41 AA 35 |$."----".TT$(A.5|
00000A40: 29 AA 22 3A 22 3A 9E 4F 3A 8D 31 30 30 35 3A 8B |).":":.O:.1005:.|
00000A50: 41 4E 24 B3 B1 22 22 A7 45 44 24 28 41 29 B2 41 |AN$.."".ED$(A).A|
00000A60: 4E 24 00 6B 12 88 00 89 31 32 30 00 86 12 8A 00 |N$.k....120.....|
00000A70: A0 33 3A 98 31 35 2C 22 53 30 3A 54 45 4D 50 22 |.3:.15,"S0:TEMP"|
00000A80: 3A A0 32 3A 89 32 00 C1 12 8B 00 A0 33 3A A0 32 |:.2:.2......3:.2|
00000A90: 3A 98 31 35 2C 22 53 22 AA 44 52 24 AA 22 53 59 |:.15,"S".DR$."SY|
00000AA0: 53 2E 42 42 53 22 3A 98 31 35 2C 22 52 22 AA 44 |S.BBS":.15,"R".D|
00000AB0: 52 24 AA 22 53 59 53 2E 42 42 53 3D 54 45 4D 50 |R$."SYS.BBS=TEMP|
00000AC0: 22 00 C8 12 8C 00 89 32 00 05 13 E7 03 83 22 C2 |"......2......".|
00000AD0: C2 D3 20 CE 41 4D 45 20 22 2C 22 C1 52 45 41 20 |.. .AME ",".REA |
00000AE0: C3 4F 44 45 22 2C 22 D0 48 4F 4E 45 23 20 20 20 |.ODE",".HONE# |
00000AF0: 22 2C 22 C8 52 53 2F C2 41 55 44 20 22 2C 22 C9 |",".RS/.AUD ",".|
00000B00: 4E 46 4F 8B 22 00 00 00 |NFO."... |
.......:.I.1.5:.TT$(I.5):..A...SH..:A$."
... BBS LIST 12.0..":.O.R...A.8:.1004:
.A.A$." (E)DIT/DELETE NUMBERS.":.O.....A
$." (A)DD NUMBER. (V)IEW LIST. (Q)UIT.":
.O:.1018.H...A$."BBS: ":.O:.1007:LP.1:.O
.......(AN$."A").(AN$."V").2.(AN$."E").3
.12,80,114:.1812.....X.0.E....53252,38:A
$.".BBS NAME? :":.O:.1006:.TR$.".".X..
.1080.A....AN$."Q".C(AN$).2.X...2.U...TT
$(1).AN$:.X.......A$.".AREA CODE? :":.O
:.1006:.TR$.".".X...1080......C(AN$)..3.
.110:.20.S....AN$."Q".X...2......I.1.3:.
J(AN$,I,1)."0".J(AN$,I,1)."9"..110:I.3:.
:.20."....:TT$(2).AN$:.X...=...A$.".PHON
E NUMBER?":.O.P. .A$.". XXX-XXXX :":.O
:.1006:.TR$.".".X...1080..."..AN$."Q".X.
..2...$.A.0:.I.1.3:.J(AN$,I,1)."0".J(AN$
,I,1)."9".A.1...&..:.I.5.8:.J(AN$,I,1)."
0".J(AN$,I,1)."9".A.1...(..:.J(AN$,4,1).
."-".A.1...*..C(AN$)..8.A..110:.30...,.T
T$(3).AN$:.X...B...A$.".HOURS/BAUD? :":
.O:.1005:.TR$.".".X...1080.U.0..AN$."Q".
X...2...2..C(AN$).2.46...4.TT$(4).AN$:.X
.....6..53252,35:A$.".ENTER UP TO 35 CHA
RS OF INFO.ABOUT THIS BBS...I:":.O...8..
1005:.TR$.".".X...1080...:..AN$."Q".X...
2.-.<.TT$(5)."[".AN$."]":.X...=.>.A$."..
.":.O.I.@..I.1.5:A$.TT$(I.5).":".TT$(I):
LP.1:.O:....B.A$."..ENTER NUMBER TO CHAN
GE,..A. TO ABORT,.OR PRESS":.O.W.D.A$."\
R1 RETURN \R0 TO ADD TO LIST...BBS:":.O.
..F..1007:LP.1:.O:.TR$.".".1080.1.H.A.E(
AN$):X.1:.A.14,20,30,46:..(AN$."A").2:.A
N$..R$.64.C.J.A$."SYS.BBS,S,W":DR.1:.101
1:.1003:.A$."00".78...L.A$."SYS.BBS,S,A"
:DR.1:.1011. .N..I.1.5:.2,TT$(I):.: 2:.2
...P.A$."SYS.BBS,S,R":DR.1:.1011...R.X.0
:A$."..(S)PECIFIC AREA CODE.(A)LL NUMBER
S..BBS:\G1":.O:.TR$.".".1080.L.T..1017:.
AN$."S".X.1:A$.".WHICH AREA CODE? :":.O:
.1006:Z$.AN$...V.A1.0:A$."..PAUSE BETWEE
N NUMBERS? :":.O:.1007:.1903:.A.0.A1.1..
.X..1018:.I.1.5:.2,TT$(I):A.ST:..I.Z..X.
Z$..TT$(2).A.0.88...\..X.Z$..TT$(2).A..0
.106...^.A$."\F1..":.A1.0..112.2.`..I.1.
4:A$.TT$(I.5.(I.1)).":".H(TT$(I.(I.2)),3
8).L.B..I.2.A$.A$."-".TT$(3).].D..112:.:
.1018...F..A1.(A.0).88:.A.0.A$."(N)EXT (
Q)UIT :\G1":.O...H..AN$."Q". 2:.2...J..A
.A$." * END OF LIST * (HIT \R1 RETURN \R
0) \G1":.O: 2:.2...L..88...N.A$."..* INV
ALID ENTRY...TRY AGAIN! *..":.O:..:.P.LP
.1:.O:A.A..(RC..0.SH..0):..P.R.DR.1:A$."
SYS.BBS,S,R":.1011:.1003:.A$.."00". 2:.2
...T..15,"S".DR$."TEMP": 3:.3,DV%,3,"TEM
P,S,W"...V..I.1.5:.2,ED$(I):J.ST:....X..
1018:.I.1.5:A$.D(I)."--".TT$(I.5).":".ED
$(I):LP.1:.O:....Z.A$.".[K]EEP [D]ELETE
[E]DIT [A]BORT ALL..BBS : ":.O.C.|..1007
:LP.1:.O:.TR$.".". 3:.15,"S0:TEMP": 2:.1
080...~...(A$."D").(A$."E").2.(A$."A".A$
."Q").3.118,130,138.D....I.1.5:.3,ED$(I)
:.:..(J..0).139:.118.....A$."EDIT #?:":.
O:.1007:LP.1:.O:A.E(AN$):.A.1.A.5.130.*.
..A$.D(A)."--".TT$(A.5).":".ED$(A):LP.1:
.O.B...A$."----".TT$(A.5).":":.O:.1005:.
AN$.."".ED$(A).AN$.K....120..... 3:.15,"
S0:TEMP": 2:.2.A... 3: 2:.15,"S".DR$."SY
S.BBS":.15,"R".DR$."SYS.BBS=TEMP".H....2
......"BBS NAME ","AREA CODE","PHONE#
","HRS/BAUD ","INFO."...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL