MAINLOOP
FILE INFORMATION
FILENAME(S): MAINLOOP
FILE TYPE(S): PRG
FILE SIZE: 6.2K
FIRST SEEN: 2025-12-01 02:25:53
APPEARS ON: 1 disk(s)
FILE HASH
21eb2bd2b6b94571cc552d6160b8f27b47921dae2f1fa52cdcda36cc234c96a0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK ARRANGER A | MAINLOOP | PRG | hedning, shine | 9 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3F 08 0A 00 81 43 B2 31 A4 34 30 3A 4C 24 |..?....C.1.40:L$|
00000010: B2 4C 24 AA 22 A4 22 3A 82 3A 4B 24 B2 22 22 3A |.L$.".":.:K$."":|
00000020: 81 43 B2 31 A4 31 38 3A 4B 24 B2 4B 24 AA 22 11 |.C.1.18:K$.K$.".|
00000030: 22 3A 82 3A 4C 24 B2 4C 24 AA 4B 24 AA 4C 24 00 |":.:L$.L$.K$.L$.|
00000040: 6C 08 14 00 43 24 B2 C7 28 33 34 29 3A 58 24 B2 |l...C$..(34):X$.|
00000050: C7 28 31 30 29 3A 51 24 B2 22 13 11 11 11 11 11 |.(10):Q$."......|
00000060: 11 11 11 11 11 11 11 11 11 11 11 22 00 9F 08 1E |..........."....|
00000070: 00 81 43 B2 31 A4 34 30 3A 45 52 24 B2 45 52 24 |..C.1.40:ER$.ER$|
00000080: AA 22 20 22 3A 82 3A 86 44 24 28 32 30 29 2C 4C |." ":.:.D$(20),L|
00000090: 24 28 37 36 35 29 3A 97 38 30 38 2C 32 32 35 00 |$(765):.808,225.|
000000A0: D0 08 28 00 4E 24 B2 22 CD C5 CE D5 1F 22 3A 8D |..(.N$.".....":.|
000000B0: 32 30 30 3A 99 22 20 20 05 31 2E 90 20 C3 52 45 |200:." .1.. .RE|
000000C0: 41 54 45 20 41 20 4E 45 57 20 4C 49 53 54 11 22 |ATE A NEW LIST."|
000000D0: 00 F4 08 32 00 41 24 B2 22 41 20 4C 49 53 54 22 |...2.A$."A LIST"|
000000E0: 3A 8B 57 24 B3 B1 22 22 A7 41 24 B2 43 24 AA 57 |:.W$.."".A$.C$.W|
000000F0: 24 AA 43 24 00 31 09 3C 00 99 22 20 20 05 32 2E |$.C$.1.<.." .2.|
00000100: 20 90 C5 44 49 54 20 22 41 24 22 11 22 3A 99 22 | ..DIT "A$".":."|
00000110: 20 20 05 33 2E 90 20 CC 4F 41 44 20 49 4E 20 41 | .3.. .OAD IN A|
00000120: 20 4C 49 53 54 20 46 52 4F 4D 20 44 49 53 4B 11 | LIST FROM DISK.|
00000130: 22 00 5B 09 46 00 41 24 B2 22 4C 49 53 54 20 54 |".[.F.A$."LIST T|
00000140: 4F 20 44 49 53 4B 22 3A 8B 57 24 B3 B1 22 22 A7 |O DISK":.W$.."".|
00000150: 41 24 B2 43 24 AA 57 24 AA 43 24 00 9A 09 50 00 |A$.C$.W$.C$...P.|
00000160: 99 22 20 20 05 34 2E 20 90 D3 41 56 45 20 22 41 |." .4. ..AVE "A|
00000170: 24 22 11 22 3A 99 22 20 20 05 35 2E 90 20 C4 45 |$".":." .5.. .E|
00000180: 4C 45 54 45 20 4C 49 53 54 20 46 49 4C 45 20 46 |LETE LIST FILE F|
00000190: 52 4F 4D 20 44 49 53 4B 11 22 00 C8 09 5A 00 41 |ROM DISK."...Z.A|
000001A0: 24 B2 22 41 20 48 41 52 44 20 43 4F 50 59 20 4C |$."A HARD COPY L|
000001B0: 49 53 54 22 3A 8B 57 24 B3 B1 22 22 A7 41 24 B2 |IST":.W$.."".A$.|
000001C0: 43 24 AA 57 24 AA 43 24 00 FD 09 64 00 99 22 20 |C$.W$.C$...d.." |
000001D0: 20 05 36 2E 90 20 D0 52 49 4E 54 20 22 41 24 22 | .6.. .RINT "A$"|
000001E0: 11 22 3A 99 22 20 20 05 37 2E 90 20 D1 55 49 54 |.":." .7.. .UIT|
000001F0: 20 54 48 45 20 50 52 4F 47 52 41 4D 22 00 28 0A | THE PROGRAM".(.|
00000200: 6E 00 56 B2 37 3A 8D 33 30 30 3A 91 56 89 31 30 |n.V.7:.300:.V.10|
00000210: 30 30 2C 31 33 30 2C 33 30 30 30 2C 31 33 30 2C |00,130,3000,130,|
00000220: 35 30 30 30 2C 31 33 30 00 4F 0A 78 00 99 22 93 |5000,130.O.x..".|
00000230: 90 11 11 20 20 20 20 20 20 20 20 41 52 45 20 59 |... ARE Y|
00000240: 4F 55 20 53 55 52 45 20 3F 22 3A 8D 34 30 30 00 |OU SURE ?":.400.|
00000250: 5E 0A 7D 00 8B 4B 24 B2 22 4E 22 A7 34 30 00 6D |^.}..K$."N".40.m|
00000260: 0A 7E 00 97 38 30 38 2C 32 33 37 3A 80 00 80 0A |.~..808,237:....|
00000270: 82 00 8B 4C B2 30 A7 8D 32 34 30 3A 89 31 31 30 |...L.0..240:.110|
00000280: 00 99 0A 8C 00 91 56 89 2C 32 30 30 30 2C 2C 34 |......V.,2000,,4|
00000290: 30 30 30 2C 2C 36 30 30 30 00 D0 0A C8 00 99 22 |000,,6000......"|
000002A0: 93 05 22 A3 31 37 29 4E 24 2C 2C 4C 24 22 11 11 |..".17)N$,,L$"..|
000002B0: 22 A3 31 32 29 22 97 C5 4E 54 45 52 20 59 4F 55 |".12)"..NTER YOU|
000002C0: 52 20 43 48 4F 49 43 45 13 11 11 11 05 22 3A 8E |R CHOICE.....":.|
000002D0: 00 0D 0B D2 00 99 22 93 05 22 A3 31 37 29 4E 24 |......"..".17)N$|
000002E0: 2C 2C 4C 24 22 11 11 22 A3 31 32 29 22 97 D5 53 |,,L$"..".12)"..S|
000002F0: 45 20 12 46 31 92 20 54 4F 20 45 53 43 41 50 45 |E .F1. TO ESCAPE|
00000300: 13 11 11 11 90 22 3A 45 53 B2 31 3A 8E 00 3D 0B |.....":ES.1:..=.|
00000310: D7 00 99 22 13 05 22 A3 31 37 29 4E 24 2C 2C 4C |..."..".17)N$,,L|
00000320: 24 22 11 11 22 A3 31 32 29 22 20 20 20 20 20 20 |$"..".12)" |
00000330: 20 20 20 20 20 20 20 20 20 20 22 3A 8E 00 5A 0B | ":..Z.|
00000340: DC 00 99 22 93 05 22 A3 31 37 29 4E 24 2C 2C 4C |..."..".17)N$,,L|
00000350: 24 22 13 11 11 11 90 22 3A 8E 00 74 0B E6 00 99 |$".....":..t....|
00000360: 22 11 11 05 22 A3 31 37 29 22 D7 CF D2 CB C9 CE |"...".17)"......|
00000370: C7 22 3A 8E 00 A2 0B F0 00 99 22 11 11 05 22 A3 |.":......."...".|
00000380: 31 32 29 22 CE CF A0 CC C9 D3 D4 A0 C9 CE A0 CD |12)"............|
00000390: C5 CD CF D2 D9 22 3A 81 44 B2 31 A4 32 30 30 30 |.....":.D.1.2000|
000003A0: 3A 82 00 C5 0B FA 00 99 A3 31 32 29 22 91 20 20 |:........12)". |
000003B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 91 | .|
000003C0: 91 91 22 3A 8E 00 E2 0B 2C 01 A1 4B 24 3A 8B C5 |..":....,..K$:..|
000003D0: 28 4B 24 29 B3 31 B0 C5 28 4B 24 29 B1 56 A7 33 |(K$).1..(K$).V.3|
000003E0: 30 30 00 F0 0B 36 01 56 B2 C5 28 4B 24 29 3A 8E |00...6.V..(K$):.|
000003F0: 00 04 0C 5E 01 46 B2 30 3A 4C B2 4C AB 31 3A 89 |...^.F.0:L.L.1:.|
00000400: 32 30 30 30 00 1E 0C 90 01 99 A3 31 37 29 22 11 |2000.......17)".|
00000410: 11 05 28 D9 2F CE 29 9D 9D 9D 9D 9D 22 3B 00 3B |..(./.).....";.;|
00000420: 0C 9A 01 A1 4B 24 3A 8B 4B 24 B3 B1 22 59 22 AF |....K$:.K$.."Y".|
00000430: 4B 24 B3 B1 22 4E 22 A7 34 31 30 00 4B 0C A4 01 |K$.."N".410.K...|
00000440: 99 22 20 20 20 20 20 90 22 3A 8E 00 68 0C F4 01 |." .":..h...|
00000450: 44 25 B2 30 3A 50 24 B2 22 22 3A 99 22 20 20 20 |D%.0:P$."":." |
00000460: 20 20 20 05 A4 9D 22 3B 00 7B 0C FE 01 A1 4B 24 | ...";.{....K$|
00000470: 3A 8B 4B 24 B2 22 22 A7 35 31 30 00 9A 0C 08 02 |:.K$."".510.....|
00000480: 8B 45 53 A7 8B 4B 24 B2 22 85 22 A7 45 53 B2 30 |.ES..K$.".".ES.0|
00000490: 3A 91 46 89 34 30 2C 33 35 30 00 B7 0C 12 02 8B |:.F.40,350......|
000004A0: 4B 24 B2 C7 28 31 33 29 A7 99 22 20 22 3A 45 53 |K$..(13).." ":ES|
000004B0: B2 30 3A 89 35 39 30 00 EA 0C 1C 02 8B 28 44 25 |.0:.590......(D%|
000004C0: 29 AC 28 4B 24 B2 C7 28 32 30 29 29 A7 50 24 B2 |).(K$..(20)).P$.|
000004D0: C8 28 50 24 2C C3 28 50 24 29 AB 31 29 3A 44 25 |.(P$,.(P$).1):D%|
000004E0: B2 44 25 AB 31 3A 89 35 38 30 00 F9 0C 26 02 8B |.D%.1:.580...&..|
000004F0: 44 25 B2 31 36 A7 35 31 30 00 36 0D 30 02 8B 28 |D%.16.510.6.0..(|
00000500: 4B 24 B3 B1 22 20 22 29 AC 28 C6 28 4B 24 29 B3 |K$.." ").(.(K$).|
00000510: 33 35 B0 C6 28 4B 24 29 B1 39 30 29 AC 28 C6 28 |35..(K$).90).(.(|
00000520: 4B 24 29 B3 31 39 33 B0 C6 28 4B 24 29 B1 32 31 |K$).193..(K$).21|
00000530: 38 29 A7 35 31 30 00 4B 0D 3A 02 44 25 B2 44 25 |8).510.K.:.D%.D%|
00000540: AA 31 3A 50 24 B2 50 24 AA 4B 24 00 5D 0D 44 02 |.1:P$.P$.K$.].D.|
00000550: 99 4B 24 22 A4 9D 22 3B 3A 89 35 31 30 00 6C 0D |.K$"..";:.510.l.|
00000560: 4E 02 8B 46 B2 30 A7 57 24 B2 50 24 00 72 0D 53 |N..F.0.W$.P$.r.S|
00000570: 02 8E 00 A0 0D 58 02 9F 38 2C 38 2C 30 2C 22 24 |.....X..8,8,0,"$|
00000580: 22 3A 9F 31 35 2C 38 2C 31 35 3A 84 31 35 2C 45 |":.15,8,15:.15,E|
00000590: 2C 45 24 2C 45 31 2C 45 32 3A 8B 45 A7 38 35 30 |,E$,E1,E2:.E.850|
000005A0: 00 BA 0D 62 02 81 43 B2 31 A4 38 3A A1 23 38 2C |...b..C.1.8:.#8,|
000005B0: 4B 24 3A 82 3A 44 24 B2 22 22 00 ED 0D 6C 02 81 |K$:.:D$.""...l..|
000005C0: 43 B2 31 A4 31 36 3A A1 23 38 2C 4B 24 3A 8D 39 |C.1.16:.#8,K$:.9|
000005D0: 35 30 3A 44 24 B2 44 24 AA 4B 24 3A 82 3A 81 43 |50:D$.D$.K$:.:.C|
000005E0: B2 31 A4 38 3A A1 23 38 2C 4B 24 3A 82 00 0D 0E |.1.8:.#8,K$:....|
000005F0: 76 02 81 43 B2 31 A4 34 3A A1 23 38 2C 4B 24 3A |v..C.1.4:.#8,K$:|
00000600: 82 3A 50 24 B2 22 22 3A 54 24 B2 22 22 00 29 0E |.:P$."":T$."".).|
00000610: 80 02 A1 23 38 2C 4B 24 3A 8B 4B 24 B2 22 22 B0 |...#8,K$:.K$."".|
00000620: 53 54 B3 B1 30 A7 38 30 30 00 3C 0E 8A 02 8B C6 |ST..0.800.<.....|
00000630: 28 4B 24 29 B3 B1 33 34 A7 36 34 30 00 65 0E 94 |(K$)..34.640.e..|
00000640: 02 A1 23 38 2C 4B 24 3A 8D 39 35 30 3A 8B C6 28 |..#8,K$:.950:..(|
00000650: 4B 24 29 B3 B1 33 34 A7 50 24 B2 50 24 AA 4B 24 |K$)..34.P$.P$.K$|
00000660: 3A 89 36 36 30 00 83 0E 9E 02 A1 23 38 2C 4B 24 |:.660......#8,K$|
00000670: 3A 8D 39 35 30 3A 8B C6 28 4B 24 29 B2 33 32 A7 |:.950:..(K$).32.|
00000680: 36 37 30 00 A3 0E A8 02 54 24 B2 54 24 AA 4B 24 |670.....T$.T$.K$|
00000690: 3A A1 23 38 2C 4B 24 3A 8B 4B 24 B3 B1 22 22 A7 |:.#8,K$:.K$.."".|
000006A0: 36 38 30 00 AE 0E B2 02 8B 4D A7 37 33 30 00 D6 |680......M.730..|
000006B0: 0E BC 02 53 24 B2 22 22 3A 53 B2 31 38 AB C3 28 |...S$."":S.18..(|
000006C0: 50 24 29 3A 81 43 B2 31 A4 53 3A 53 24 B2 53 24 |P$):.C.1.S:S$.S$|
000006D0: AA 22 20 22 3A 82 00 08 0F C6 02 4C 24 28 4C 29 |." ":......L$(L)|
000006E0: B2 50 24 AA 53 24 AA C8 28 54 24 2C 33 29 AA 22 |.P$.S$..(T$,3)."|
000006F0: 20 20 22 AA 44 24 3A 8B 4C B3 37 35 30 A7 4C B2 | ".D$:.L.750.L.|
00000700: 4C AA 31 3A 89 36 33 30 00 44 0F D0 02 A0 38 3A |L.1:.630.D....8:|
00000710: A0 31 35 3A 99 22 11 11 11 11 11 11 20 20 20 20 |.15:."...... |
00000720: D4 48 41 54 27 53 20 37 35 30 20 52 45 43 4F 52 |.HAT'S 750 RECOR|
00000730: 44 53 2E CD 45 4D 4F 52 59 20 46 55 4C 4C 22 3A |DS..EMORY FULL":|
00000740: 89 38 37 30 00 5C 0F DA 02 8B C8 28 54 24 2C 33 |.870.\.....(T$,3|
00000750: 29 B3 B1 22 53 45 51 22 A7 36 33 30 00 74 0F E4 |).."SEQ".630.t..|
00000760: 02 8B CA 28 50 24 2C 32 2C 31 29 B3 B1 22 1D 22 |...(P$,2,1).."."|
00000770: A7 36 33 30 00 8C 0F EE 02 44 24 28 44 29 B2 50 |.630.....D$(D).P|
00000780: 24 3A 44 B2 44 AA 31 3A 89 36 33 30 00 A6 0F 20 |$:D.D.1:.630... |
00000790: 03 84 31 35 2C 45 2C 45 24 2C 45 31 2C 45 32 3A |..15,E,E$,E1,E2:|
000007A0: 8B 45 A7 38 35 30 00 BA 0F 2A 03 8B 4D A7 A0 38 |.E.850...*..M..8|
000007B0: 3A A0 31 35 3A 89 33 35 31 30 00 D5 0F 34 03 4C |:.15:.3510...4.L|
000007C0: B2 4C AB 31 3A A0 38 3A A0 31 35 3A 8B 4C B2 30 |.L.1:.8:.15:.L.0|
000007D0: A7 8D 39 30 30 00 DF 0F 3E 03 89 31 31 34 30 00 |..900...>..1140.|
000007E0: 0C 10 52 03 A0 38 3A A0 31 35 3A 97 32 31 34 2C |..R..8:.15:.214,|
000007F0: 31 38 3A 99 3A 99 A3 38 29 22 05 22 45 22 2C 22 |18:.:..8)"."E","|
00000800: 45 24 22 20 22 45 31 22 20 22 45 32 00 1F 10 5C |E$" "E1" "E2...\|
00000810: 03 4C B2 4C AB 31 3A 8B 4C B2 31 A7 4C B2 30 00 |.L.L.1:.L.1.L.0.|
00000820: 3F 10 66 03 8D 39 30 30 3A 81 44 B2 31 A4 33 30 |?.f..900:.D.1.30|
00000830: 30 30 3A 82 3A 91 47 89 34 30 2C 32 30 30 30 00 |00:.:.G.40,2000.|
00000840: 69 10 84 03 81 43 B2 4C AA 31 A4 4C AA 31 35 3A |i....C.L.1.L.15:|
00000850: 4C 24 28 43 29 B2 22 22 3A 82 3A 8B 4C B2 30 A7 |L$(C)."":.:.L.0.|
00000860: 47 B2 31 3A 57 24 B2 22 22 00 6F 10 8E 03 8E 00 |G.1:W$."".o.....|
00000870: 82 10 B6 03 8B 4B 24 B2 22 22 A7 4B 24 B2 C7 28 |.....K$."".K$..(|
00000880: 30 29 00 88 10 C0 03 8E 00 9E 10 E8 03 4E 24 B2 |0)...........N$.|
00000890: 22 C3 D2 C5 C1 D4 C5 1E 22 3A 8D 32 32 30 00 AE |".......":.220..|
000008A0: 10 F2 03 8B 57 24 B2 22 22 A7 31 30 36 30 00 DE |....W$."".1060..|
000008B0: 10 FC 03 99 22 11 11 90 20 D9 4F 55 20 43 55 52 |...."... .OU CUR|
000008C0: 52 45 4E 54 4C 59 20 48 41 56 45 20 41 20 4C 49 |RENTLY HAVE A LI|
000008D0: 53 54 20 49 4E 20 4D 45 4D 4F 52 59 2E 22 00 1C |ST IN MEMORY."..|
000008E0: 11 06 04 99 22 20 20 11 C4 49 44 20 59 4F 55 20 |...." ..ID YOU |
000008F0: 57 41 4E 54 20 54 4F 20 53 54 41 52 54 20 41 20 |WANT TO START A |
00000900: 4E 45 57 20 4F 4E 45 20 3F 22 3A 8D 34 30 30 3A |NEW ONE ?":.400:|
00000910: 8B 4B 24 B2 22 59 22 A7 31 30 36 30 00 46 11 10 |.K$."Y".1060.F..|
00000920: 04 99 22 20 20 20 20 20 90 D5 53 45 20 C1 44 44 |.." ..SE .DD|
00000930: 20 53 55 42 52 4F 55 54 49 4E 45 20 4F 46 20 05 | SUBROUTINE OF .|
00000940: C5 C4 C9 D4 90 22 00 5A 11 1A 04 81 44 B2 31 A4 |.....".Z....D.1.|
00000950: 32 35 30 30 3A 82 3A 89 34 30 00 77 11 24 04 4C |2500:.:.40.w.$.L|
00000960: B2 30 3A 8D 39 30 30 3A 4C B2 31 3A 4D B2 30 3A |.0:.900:L.1:M.0:|
00000970: 47 B2 31 3A 46 B2 30 00 AC 11 2E 04 99 22 11 11 |G.1:F.0......"..|
00000980: 90 20 20 CE 41 4D 45 20 4F 46 20 4C 49 53 54 11 |. .AME OF LIST.|
00000990: 11 22 3A 8D 35 30 30 3A 8D 32 32 30 3A 8B 57 24 |.":.500:.220:.W$|
000009A0: B2 22 22 A7 57 24 B2 22 20 20 20 22 00 CA 11 38 |."".W$." "...8|
000009B0: 04 99 22 11 11 20 D4 4F 20 43 52 45 41 54 45 20 |..".. .O CREATE |
000009C0: 22 43 24 57 24 43 24 22 2C 22 00 EF 11 42 04 99 |"C$W$C$","...B..|
000009D0: 22 20 49 4E 53 45 52 54 20 41 20 44 49 53 4B 20 |" INSERT A DISK |
000009E0: 41 4E 44 20 48 49 54 20 52 45 54 55 52 4E 22 00 |AND HIT RETURN".|
000009F0: 03 12 4C 04 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 31 |..L..K$:.K$."".1|
00000A00: 31 30 30 00 24 12 56 04 8B 45 53 A7 8B 4B 24 B2 |100.$.V..ES..K$.|
00000A10: 22 85 22 A7 45 53 B2 30 3A 4C B2 4C AB 31 3A 89 |".".ES.0:L.L.1:.|
00000A20: 32 30 30 30 00 38 12 60 04 8B 4B 24 B3 B1 C7 28 |2000.8.`..K$...(|
00000A30: 31 33 29 A7 31 31 30 30 00 50 12 65 04 8B 45 53 |13).1100.P.e..ES|
00000A40: A7 8D 32 31 35 3A 99 22 13 11 11 11 11 11 11 22 |..215:."......."|
00000A50: 00 76 12 6A 04 99 22 11 11 11 20 20 20 20 05 D2 |.v.j.."... ..|
00000A60: C5 C1 C4 C9 CE C7 A0 C4 C9 D3 CB 22 3A 45 53 B2 |...........":ES.|
00000A70: 30 3A 89 36 30 30 00 AE 12 74 04 8D 32 32 30 3A |0:.600...t..220:|
00000A80: 99 22 11 20 20 20 C1 4E 4F 54 48 45 52 20 44 49 |.". .NOTHER DI|
00000A90: 53 4B 20 3F 22 3A 8D 34 30 30 3A 8B 4B 24 B2 22 |SK ?":.400:.K$."|
00000AA0: 59 22 A7 4C B2 4C AA 31 3A 89 31 30 39 30 00 C2 |Y".L.L.1:.1090..|
00000AB0: 12 7E 04 8D 39 30 30 3A 91 47 89 34 30 2C 32 30 |.~..900:.G.40,20|
00000AC0: 30 30 00 0A 13 D0 07 4E 24 B2 22 20 C5 C4 C9 D4 |00.....N$." ....|
00000AD0: 9E 22 3A 8D 32 30 30 3A 99 22 20 20 05 31 2E 20 |.":.200:." .1. |
00000AE0: 90 D6 49 45 57 20 4C 49 53 54 11 22 2C 2C 2C 22 |..IEW LIST.",,,"|
00000AF0: 20 20 05 32 2E 20 90 C1 44 44 20 54 4F 20 4C 49 | .2. ..DD TO LI|
00000B00: 53 54 28 44 49 53 4B 29 11 22 00 2F 13 D5 07 99 |ST(DISK)."./....|
00000B10: 22 20 20 05 33 2E 20 90 C1 44 44 20 54 4F 20 4C |" .3. ..DD TO L|
00000B20: 49 53 54 28 4B 45 59 42 4F 41 52 44 29 11 22 00 |IST(KEYBOARD).".|
00000B30: 73 13 DA 07 99 22 20 20 05 34 2E 20 90 C1 4C 50 |s...." .4. ..LP|
00000B40: 48 41 42 45 54 49 5A 45 20 4C 49 53 54 11 22 2C |HABETIZE LIST.",|
00000B50: 2C 22 20 20 05 35 2E 20 90 C4 45 4C 45 54 45 20 |," .5. ..ELETE |
00000B60: 44 55 50 4C 49 43 41 54 45 20 52 45 43 4F 52 44 |DUPLICATE RECORD|
00000B70: 53 11 22 00 B8 13 E4 07 99 22 20 20 05 36 2E 20 |S."......" .6. |
00000B80: 90 C4 45 4C 45 54 45 20 53 45 4C 45 43 54 45 44 |..ELETE SELECTED|
00000B90: 20 52 45 43 4F 52 44 53 11 22 2C 2C 22 20 20 05 | RECORDS.",," .|
00000BA0: 37 2E 20 90 D2 45 54 55 52 4E 20 54 4F 20 4D 41 |7. ..ETURN TO MA|
00000BB0: 49 4E 20 4D 45 4E 55 22 00 E9 13 EE 07 56 B2 37 |IN MENU".....V.7|
00000BC0: 3A 8D 33 30 30 3A 91 56 89 32 31 30 30 2C 32 33 |:.300:.V.2100,23|
00000BD0: 30 30 2C 32 39 30 30 2C 32 34 30 30 2C 32 35 30 |00,2900,2400,250|
00000BE0: 30 2C 32 36 30 30 2C 34 30 00 07 14 34 08 4E 24 |0,2600,40...4.N$|
00000BF0: B2 22 20 D6 C9 C5 D7 9E 22 3A 41 B2 31 3A 42 B2 |." .....":A.1:B.|
00000C00: 31 35 3A 8D 32 30 30 00 36 14 3E 08 99 22 91 91 |15:.200.6.>.."..|
00000C10: 97 20 20 D0 52 4F 47 52 41 4D 20 CE 41 4D 45 20 |. .ROGRAM .AME |
00000C20: 20 20 54 59 50 45 20 20 20 20 20 C4 49 53 4B 20 | TYPE .ISK |
00000C30: CE 41 4D 45 90 22 00 74 14 48 08 99 51 24 22 11 |.AME.".t.H..Q$".|
00000C40: 11 11 11 11 05 31 2E 20 97 CE 45 58 54 20 50 41 |.....1. ..EXT PA|
00000C50: 47 45 20 20 05 32 2E 20 97 D0 52 45 56 49 4F 55 |GE .2. ..REVIOU|
00000C60: 53 20 50 41 47 45 20 20 05 33 2E 97 D2 45 54 55 |S PAGE .3...ETU|
00000C70: 52 4E 90 22 00 87 14 52 08 99 22 13 11 11 11 22 |RN."...R.."...."|
00000C80: 3A 81 43 B2 41 A4 42 00 A6 14 5C 08 8B 4C 24 28 |:.C.A.B...\..L$(|
00000C90: 43 29 B2 22 22 A7 99 C9 28 45 52 24 2C 33 39 29 |C).""...(ER$,39)|
00000CA0: 3A 89 32 31 36 30 00 B1 14 66 08 99 4C 24 28 43 |:.2160...f..L$(C|
00000CB0: 29 00 D2 14 70 08 82 3A 56 B2 33 3A 8D 33 30 30 |)...p..:V.3:.300|
00000CC0: 3A 91 56 89 32 31 37 30 2C 32 31 39 30 2C 32 30 |:.V.2170,2190,20|
00000CD0: 30 30 00 EE 14 7A 08 8B 42 B3 4C A7 41 B2 42 AA |00...z..B.L.A.B.|
00000CE0: 31 3A 42 B2 42 AA 31 35 3A 89 32 31 33 30 00 01 |1:B.B.15:.2130..|
00000CF0: 15 84 08 41 B2 31 3A 42 B2 31 35 3A 89 32 31 33 |...A.1:B.15:.213|
00000D00: 30 00 1F 15 8E 08 8B 42 B1 31 35 A7 41 B2 42 AB |0......B.15.A.B.|
00000D10: 32 39 3A 42 B2 42 AB 31 35 3A 89 32 31 33 30 00 |29:B.B.15:.2130.|
00000D20: 42 15 98 08 8B 4C AD 31 35 B2 B5 28 4C AD 31 35 |B....L.15..(L.15|
00000D30: 29 A7 42 B2 4C 3A 41 B2 42 AB 31 34 3A 89 32 31 |).B.L:A.B.14:.21|
00000D40: 33 30 00 66 15 A2 08 58 B2 31 35 AC B5 28 4C AD |30.f...X.15..(L.|
00000D50: 31 35 29 3A 41 B2 31 AA 58 3A 42 B2 31 35 AA 58 |15):A.1.X:B.15.X|
00000D60: 3A 89 32 31 33 30 00 98 15 FC 08 8D 32 31 30 3A |:.2130......210:|
00000D70: 99 22 11 20 D4 4F 20 41 44 44 20 54 4F 20 22 43 |.". .O ADD TO "C|
00000D80: 24 57 24 43 24 22 2C 22 3A 4C B2 4C AA 31 3A 47 |$W$C$",":L.L.1:G|
00000D90: B2 32 3A 89 31 30 39 30 00 C1 15 60 09 8D 32 33 |.2:.1090...`..23|
00000DA0: 30 3A 81 44 B2 31 A4 35 30 30 3A 82 3A 9E 34 39 |0:.D.1.500:.:.49|
00000DB0: 31 35 32 2C 4C 2C 4C 24 28 31 29 3A 89 32 30 30 |152,L,L$(1):.200|
00000DC0: 30 00 E5 15 C4 09 8D 32 33 30 3A 9E 34 39 31 35 |0......230:.4915|
00000DD0: 32 2C 4C 2C 4C 24 28 31 29 3A 41 B2 31 3A 42 B2 |2,L,L$(1):A.1:B.|
00000DE0: 32 3A 47 B2 32 00 0A 16 CE 09 81 43 B2 31 A4 4C |2:G.2......C.1.L|
00000DF0: 3A 8B 4C 24 28 42 29 B2 4C 24 28 41 29 A7 4C 24 |:.L$(B).L$(A).L$|
00000E00: 28 42 29 B2 22 DA DA DA DA 22 00 25 16 D8 09 8B |(B)."....".%....|
00000E10: 4C 24 28 41 29 B2 22 22 A7 4C 24 28 41 29 B2 22 |L$(A)."".L$(A)."|
00000E20: DA DA DA DA 22 00 37 16 E2 09 41 B2 41 AA 31 3A |....".7...A.A.1:|
00000E30: 42 B2 42 AA 31 3A 82 00 69 16 EC 09 9E 34 39 31 |B.B.1:..i....491|
00000E40: 35 32 2C 4C 2C 4C 24 28 31 29 3A 44 B2 30 3A 81 |52,L,L$(1):D.0:.|
00000E50: 43 B2 31 A4 4C 3A 8B 4C 24 28 43 29 B2 22 DA DA |C.1.L:.L$(C)."..|
00000E60: DA DA 22 A7 44 B2 44 AA 31 00 85 16 F6 09 82 3A |..".D.D.1......:|
00000E70: 4C B2 4C AB 44 3A 8D 39 30 30 3A 91 47 89 34 30 |L.L.D:.900:.G.40|
00000E80: 2C 32 30 30 30 00 BB 16 28 0A 41 B2 31 3A 42 B2 |,2000...(.A.1:B.|
00000E90: 31 30 3A 44 B2 30 3A 53 43 B2 30 3A 47 B2 32 3A |10:D.0:SC.0:G.2:|
00000EA0: 8D 32 30 30 3A 99 22 11 11 11 11 11 11 11 11 11 |.200:.".........|
00000EB0: 9E 22 3B 3A 81 43 B2 31 A4 34 30 00 DB 16 32 0A |.";:.C.1.40...2.|
00000EC0: 99 22 A4 22 3B 3A 82 3A 99 22 13 90 11 11 22 3A |.".";:.:."....":|
00000ED0: 81 43 B2 30 A4 39 3A 99 43 3A 82 00 21 17 3C 0A |.C.0.9:.C:..!.<.|
00000EE0: 99 51 24 22 05 20 31 2E 20 97 CE 45 58 54 20 50 |.Q$". 1. ..EXT P|
00000EF0: 41 47 45 05 22 2C 22 32 2E 97 20 D0 52 45 56 49 |AGE.","2.. .REVI|
00000F00: 4F 55 53 20 50 41 47 45 05 22 2C 22 20 33 2E 20 |OUS PAGE."," 3. |
00000F10: 97 D3 43 52 41 54 43 48 20 52 45 43 4F 52 44 22 |..CRATCH RECORD"|
00000F20: 2C 00 44 17 46 0A 99 22 05 34 2E 20 97 22 3B 3A |,.D.F..".4. .";:|
00000F30: 8B 44 B2 30 A7 99 22 D2 45 54 55 52 4E 22 3A 89 |.D.0..".ETURN":.|
00000F40: 32 36 35 30 00 54 17 50 0A 99 22 C6 49 4E 49 53 |2650.T.P..".INIS|
00000F50: 48 45 44 22 00 67 17 5A 0A 99 22 13 11 11 90 22 |HED".g.Z.."...."|
00000F60: 3A 81 43 B2 41 A4 42 00 8C 17 64 0A 8B 4C 24 28 |:.C.A.B...d..L$(|
00000F70: 43 29 B2 22 22 A7 99 22 1D 1D 1D 1D 22 C9 28 45 |C)."".."....".(E|
00000F80: 52 24 2C 33 35 29 3A 89 32 36 39 30 00 C2 17 6E |R$,35):.2690...n|
00000F90: 0A 8B 4C 24 28 43 29 B2 22 DA DA DA DA 22 A7 99 |..L$(C)."...."..|
00000FA0: 22 1D 1D 1D 1D 97 20 20 53 43 52 41 54 43 48 45 |"..... SCRATCHE|
00000FB0: 44 90 22 C9 28 45 52 24 2C 32 34 29 3A 89 32 36 |D.".(ER$,24):.26|
00000FC0: 39 30 00 E4 17 78 0A 99 22 1D 1D 1D 1D 22 C8 28 |90...x.."....".(|
00000FD0: 4C 24 28 43 29 2C 31 36 29 C9 28 4C 24 28 43 29 |L$(C),16).(L$(C)|
00000FE0: 2C 31 38 29 00 0A 18 82 0A 82 3A 56 B2 34 3A 8D |,18)......:V.4:.|
00000FF0: 33 30 30 3A 91 56 89 32 37 30 30 2C 32 37 32 30 |300:.V.2700,2720|
00001000: 2C 32 37 35 30 2C 32 38 30 30 00 26 18 8C 0A 8B |,2750,2800.&....|
00001010: 42 B3 4C A7 41 B2 42 AA 31 3A 42 B2 42 AA 31 30 |B.L.A.B.1:B.B.10|
00001020: 3A 89 32 36 35 30 00 39 18 96 0A 41 B2 31 3A 42 |:.2650.9...A.1:B|
00001030: B2 31 30 3A 89 32 36 35 30 00 57 18 A0 0A 8B 42 |.10:.2650.W....B|
00001040: B1 31 30 A7 41 B2 42 AB 31 39 3A 42 B2 42 AB 31 |.10.A.B.19:B.B.1|
00001050: 30 3A 89 32 36 35 30 00 79 18 AA 0A 8B 4C AD 31 |0:.2650.y....L.1|
00001060: 30 B2 B5 28 4C AD 31 30 29 A7 42 B2 4C 3A 41 B2 |0..(L.10).B.L:A.|
00001070: 42 AB 39 3A 89 32 36 35 30 00 9D 18 B4 0A 58 B2 |B.9:.2650.....X.|
00001080: 31 30 AC B5 28 4C AD 31 30 29 3A 41 B2 31 AA 58 |10..(L.10):A.1.X|
00001090: 3A 42 B2 31 30 AA 58 3A 89 32 36 35 30 00 B0 18 |:B.10.X:.2650...|
000010A0: BE 0A 53 43 B2 31 3A 99 51 24 45 52 24 45 52 24 |..SC.1:.Q$ER$ER$|
000010B0: 00 CE 18 C8 0A 99 22 91 91 97 20 20 20 20 23 20 |......"... # |
000010C0: 54 4F 20 44 45 4C 45 54 45 05 20 A4 90 22 00 E2 |TO DELETE. .."..|
000010D0: 18 D2 0A A1 4B 24 3A 8B 4B 24 B2 22 22 A7 32 37 |....K$:.K$."".27|
000010E0: 37 30 00 FE 18 DC 0A 8B C6 28 4B 24 29 B3 34 38 |70.......(K$).48|
000010F0: B0 C6 28 4B 24 29 B1 35 37 A7 32 37 37 30 00 24 |..(K$).57.2770.$|
00001100: 19 E6 0A 4C 24 28 41 AA C6 28 4B 24 29 AB 34 38 |...L$(A..(K$).48|
00001110: 29 B2 22 DA DA DA DA 22 3A 44 B2 44 AA 31 3A 89 |)."....":D.D.1:.|
00001120: 32 36 32 30 00 33 19 F0 0A 8B 53 43 B2 30 A7 32 |2620.3....SC.0.2|
00001130: 30 30 30 00 52 19 FA 0A 8B 4C B1 31 30 30 A7 99 |000.R....L.100..|
00001140: 51 24 45 52 24 45 52 24 22 91 91 91 22 3A 8D 32 |Q$ER$ER$"...":.2|
00001150: 33 30 00 7B 19 04 0B 9E 34 39 31 35 32 2C 4C 2C |30.{....49152,L,|
00001160: 4C 24 28 31 29 3A 4C B2 4C AB 44 3A 8D 39 30 30 |L$(1):L.L.D:.900|
00001170: 3A 91 47 89 34 30 2C 32 30 30 30 00 BA 19 54 0B |:.G.40,2000...T.|
00001180: 8D 32 31 30 3A 99 22 20 D4 4F 20 41 44 44 20 54 |.210:." .O ADD T|
00001190: 4F 20 22 43 24 57 24 43 24 22 2C 22 3A 99 22 20 |O "C$W$C$",":." |
000011A0: 54 59 50 45 20 49 4E 20 52 45 51 55 45 53 54 45 |TYPE IN REQUESTE|
000011B0: 44 20 49 4E 46 4F 20 26 22 3B 00 F8 19 5E 0B 99 |D INFO &";...^..|
000011C0: 22 20 48 49 54 20 D2 C5 D4 D5 D2 CE 22 3A 99 22 |" HIT ......":."|
000011D0: 11 11 20 20 C5 41 43 48 20 45 4E 54 52 59 20 49 |.. .ACH ENTRY I|
000011E0: 53 20 31 36 20 43 48 41 52 41 43 54 45 52 53 20 |S 16 CHARACTERS |
000011F0: 4C 4F 4E 47 11 11 11 22 00 36 1A 68 0B 4C B2 4C |LONG...".6.h.L.L|
00001200: AA 31 3A 99 22 D0 52 4F 47 52 41 4D 20 CE 41 4D |.1:.".ROGRAM .AM|
00001210: 45 20 20 22 3B 3A 46 B2 32 3A 8D 35 30 30 3A 41 |E ";:F.2:.500:A|
00001220: 44 24 B2 50 24 3A 53 24 B2 22 22 3A 53 B2 31 38 |D$.P$:S$."":S.18|
00001230: AB C3 28 50 24 29 00 70 1A 72 0B 81 43 B2 31 A4 |..(P$).p.r..C.1.|
00001240: 53 3A 53 24 B2 53 24 AA 22 20 22 3A 82 3A 45 53 |S:S$.S$." ":.:ES|
00001250: B2 31 3A 99 22 90 11 C4 49 53 4B 20 CE 41 4D 45 |.1:."...ISK .AME|
00001260: 20 20 20 20 20 22 3B 3A 8D 35 30 30 3A 46 B2 30 | ";:.500:F.0|
00001270: 00 A7 1A 77 0B 53 43 24 B2 22 22 3A 53 B2 31 36 |...w.SC$."":S.16|
00001280: AB C3 28 50 24 29 3A 81 43 B2 31 A4 53 3A 53 43 |..(P$):.C.1.S:SC|
00001290: 24 B2 53 43 24 AA 22 20 22 3A 82 3A 8B 53 B2 30 |$.SC$." ":.:.S.0|
000012A0: A7 53 43 24 B2 22 22 00 DF 1A 7C 0B 4C 24 28 4C |.SC$.""...|.L$(L|
000012B0: 29 B2 41 44 24 AA 53 24 AA 22 50 52 47 20 20 22 |).AD$.S$."PRG "|
000012C0: AA 50 24 AA 53 43 24 3A 99 A3 36 29 22 05 11 C1 |.P$.SC$:..6)"...|
000012D0: CE CF D4 C8 C5 D2 91 91 22 3B 3A 8D 34 30 30 00 |........";:.400.|
000012E0: F0 1A 86 0B 8B 4B 24 B2 22 4E 22 A7 32 30 30 30 |.....K$."N".2000|
000012F0: 00 FA 1A 90 0B 89 32 39 30 30 00 00 1B B7 0B 80 |......2900......|
00001300: 00 15 1B B8 0B 4E 24 B2 22 20 CC CF C1 C4 95 22 |.....N$." ....."|
00001310: 3A 8D 32 32 30 00 50 1B C2 0B 99 22 20 20 20 D7 |:.220.P...." .|
00001320: 4F 55 4C 44 20 59 4F 55 20 4C 49 4B 45 20 41 20 |OULD YOU LIKE A |
00001330: 4C 49 53 54 20 4F 46 22 2C 2C 22 20 20 20 41 56 |LIST OF",," AV|
00001340: 41 49 4C 41 42 4C 45 20 46 49 4C 45 53 20 3F 22 |AILABLE FILES ?"|
00001350: 00 6A 1B CC 0B 8D 34 30 30 3A 47 B2 31 3A 8B 4B |.j....400:G.1:.K|
00001360: 24 B2 22 59 22 A7 33 35 30 30 00 73 1B D6 0B 8D |$."Y".3500.s....|
00001370: 32 31 30 00 98 1B E0 0B 99 22 20 20 20 CE 41 4D |210......" .AM|
00001380: 45 20 4F 46 20 4C 49 53 54 11 22 3A 46 B2 31 3A |E OF LIST.":F.1:|
00001390: 8D 35 30 30 3A 46 B2 30 00 AE 1B E5 0B 8D 32 31 |.500:F.0......21|
000013A0: 35 3A 99 22 13 11 11 11 11 11 11 11 11 22 00 EB |5:."........."..|
000013B0: 1B EA 0B 99 22 11 05 20 20 20 20 CC CF C1 C4 C9 |....".. .....|
000013C0: CE C7 20 22 43 24 50 24 43 24 3A 9F 38 2C 38 2C |.. "C$P$C$:.8,8,|
000013D0: 38 2C 22 30 3A 20 1D 22 AA 50 24 AA 22 2C 53 2C |8,"0: .".P$.",S,|
000013E0: 52 22 3A 9F 31 35 2C 38 2C 31 35 00 05 1C F4 0B |R":.15,8,15.....|
000013F0: 84 31 35 2C 45 2C 45 24 2C 45 31 2C 45 32 3A 8B |.15,E,E$,E1,E2:.|
00001400: 45 A7 38 35 30 00 1A 1C FE 0B 84 38 2C 4C 3A 84 |E.850......8,L:.|
00001410: 38 2C 57 24 3A 84 38 2C 49 25 00 3A 1C 08 0C 8B |8,W$:.8,I%.:....|
00001420: 49 25 A7 81 43 B2 31 A4 4C 3A 84 38 2C 4C 24 28 |I%..C.1.L:.8,L$(|
00001430: 43 29 3A 82 3A 89 33 31 30 30 00 77 1C 12 0C 81 |C):.:.3100.w....|
00001440: 43 B2 31 A4 4C 3A 4C 24 28 43 29 B2 22 22 3A 81 |C.1.L:L$(C)."":.|
00001450: 44 B2 31 A4 33 39 3A A1 23 38 2C 4B 24 3A 4C 24 |D.1.39:.#8,K$:L$|
00001460: 28 43 29 B2 4C 24 28 43 29 AA 4B 24 3A 82 3A A1 |(C).L$(C).K$:.:.|
00001470: 23 38 2C 44 24 3A 82 00 8B 1C 1C 0C A0 38 3A A0 |#8,D$:.......8:.|
00001480: 31 35 3A 8D 39 30 30 3A 89 34 30 00 BA 1C AC 0D |15:.900:.40.....|
00001490: 8D 32 33 30 3A 99 22 91 22 3B 3A 81 43 B2 31 A4 |.230:.".";:.C.1.|
000014A0: 32 30 3A 44 24 28 43 29 B2 22 22 3A 82 3A 44 B2 |20:D$(C)."":.:D.|
000014B0: 31 3A 4D B2 31 3A 89 36 30 30 00 CC 1C B6 0D 4D |1:M.1:.600.....M|
000014C0: B2 30 3A 8B 44 B2 31 A7 33 35 35 30 00 E4 1C C0 |.0:.D.1.3550....|
000014D0: 0D 8D 32 31 30 3A 99 22 91 91 22 3A 81 43 B2 31 |..210:."..":.C.1|
000014E0: A4 44 A9 32 00 09 1D CA 0D 99 22 97 20 22 44 24 |.D.2......". "D$|
000014F0: 28 43 29 3A 8B 43 B2 B3 44 A7 99 22 91 22 A3 32 |(C):.C..D..".".2|
00001500: 30 29 44 24 28 43 AA 31 29 00 1A 1D D4 0D 82 3A |0)D$(C.1)......:|
00001510: 99 22 90 22 3A 89 33 30 34 30 00 4C 1D DE 0D 8D |.".":.3040.L....|
00001520: 32 32 30 3A 99 22 11 11 11 11 11 05 22 A3 31 30 |220:."......".10|
00001530: 29 22 CE CF A0 CC C9 D3 D4 A0 C6 C9 CC C5 D3 A0 |)"..............|
00001540: C6 CF D5 CE C4 22 3A 89 31 30 35 30 00 65 1D A0 |.....":.1050.e..|
00001550: 0F 4E 24 B2 22 20 D3 C1 D6 C5 1C 22 3A 47 B2 31 |.N$." .....":G.1|
00001560: 3A 8D 32 31 30 00 A3 1D AA 0F 99 22 11 11 11 20 |:.210......"... |
00001570: D0 4C 41 43 45 20 44 45 53 54 49 4E 41 54 49 4F |.LACE DESTINATIO|
00001580: 4E 20 44 49 53 4B 20 49 4E 20 44 52 49 56 45 22 |N DISK IN DRIVE"|
00001590: 2C 22 20 41 4E 44 20 48 49 54 20 52 45 54 55 52 |," AND HIT RETUR|
000015A0: 4E 2E 22 00 B7 1D B4 0F A1 4B 24 3A 8B 4B 24 B2 |N."......K$:.K$.|
000015B0: 22 22 A7 34 30 32 30 00 CC 1D BE 0F 8B 4B 24 B2 |"".4020......K$.|
000015C0: 22 85 22 A7 45 53 B2 30 3A 89 34 30 00 E0 1D C8 |".".ES.0:.40....|
000015D0: 0F 8B 4B 24 B3 B1 C7 28 31 33 29 A7 34 30 32 30 |..K$...(13).4020|
000015E0: 00 F6 1D CD 0F 8D 32 31 35 3A 99 22 13 11 11 11 |......215:."....|
000015F0: 11 11 11 11 11 22 00 17 1E D2 0F 99 22 11 11 05 |....."......"...|
00001600: 20 20 20 20 D3 C1 D6 C9 CE C7 A0 22 43 24 57 24 | ......."C$W$|
00001610: 43 24 3A 49 25 B2 31 00 37 1E DC 0F 81 43 B2 31 |C$:I%.1.7....C.1|
00001620: A4 4C 3A 8B C8 28 4C 24 28 43 29 2C 31 29 B2 22 |.L:..(L$(C),1)."|
00001630: 20 22 A7 49 25 B2 30 00 5E 1E E6 0F 82 3A 9F 38 | ".I%.0.^....:.8|
00001640: 2C 38 2C 38 2C 22 30 3A 20 1D 22 AA 57 24 AA 22 |,8,8,"0: .".W$."|
00001650: 2C 53 2C 57 22 3A 9F 31 35 2C 38 2C 31 35 00 78 |,S,W":.15,8,15.x|
00001660: 1E F0 0F 84 31 35 2C 45 2C 45 24 2C 45 31 2C 45 |....15,E,E$,E1,E|
00001670: 32 3A 8B 45 A7 38 35 30 00 8D 1E FA 0F 98 38 2C |2:.E.850......8,|
00001680: 4C 3A 98 38 2C 57 24 3A 98 38 2C 49 25 00 AE 1E |L:.8,W$:.8,I%...|
00001690: 04 10 81 43 B2 31 A4 4C 3A 98 38 2C 4C 24 28 43 |...C.1.L:.8,L$(C|
000016A0: 29 3A 82 3A A0 38 3A A0 31 35 3A 89 34 30 00 CB |):.:.8:.15:.40..|
000016B0: 1E 88 13 4E 24 B2 22 C4 C5 CC C5 D4 C5 9C 22 3A |...N$.".......":|
000016C0: 8B 57 24 B2 22 22 A7 35 30 33 30 00 07 1F 92 13 |.W$."".5030.....|
000016D0: 8D 32 32 30 3A 99 22 20 90 C4 45 4C 45 54 45 20 |.220:." ..ELETE |
000016E0: 22 43 24 57 24 43 24 22 20 46 52 4F 4D 20 44 49 |"C$W$C$" FROM DI|
000016F0: 53 4B 20 3F 22 3A 8D 34 30 30 3A 8B 4B 24 B2 22 |SK ?":.400:.K$."|
00001700: 4E 22 A7 35 30 33 30 00 17 1F 9C 13 50 24 B2 57 |N".5030.....P$.W|
00001710: 24 3A 89 35 30 34 30 00 4C 1F A6 13 8D 32 31 30 |$:.5040.L....210|
00001720: 3A 99 22 11 11 20 CE 41 4D 45 20 4F 46 20 46 49 |:.".. .AME OF FI|
00001730: 4C 45 20 54 4F 20 44 45 4C 45 54 45 11 11 22 3A |LE TO DELETE..":|
00001740: 46 B2 31 3A 8D 35 30 30 3A 46 B2 30 00 62 1F AB |F.1:.500:F.0.b..|
00001750: 13 8D 32 31 35 3A 99 22 13 11 11 11 11 11 11 11 |..215:."........|
00001760: 11 22 00 9F 1F B0 13 99 22 05 11 11 20 20 20 20 |."......"... |
00001770: C4 C5 CC C5 D4 C9 CE C7 20 22 43 24 50 24 43 24 |........ "C$P$C$|
00001780: 3A 9F 31 35 2C 38 2C 31 35 3A 84 31 35 2C 45 2C |:.15,8,15:.15,E,|
00001790: 45 24 2C 45 31 2C 45 32 3A 8B 45 A7 38 35 30 00 |E$,E1,E2:.E.850.|
000017A0: BA 1F BA 13 98 31 35 2C 22 53 30 3A 20 1D 22 AA |.....15,"S0: .".|
000017B0: 50 24 3A A0 31 35 3A 89 34 30 00 E6 1F 70 17 56 |P$:.15:.40...p.V|
000017C0: 24 B2 22 22 3A 56 B2 28 34 30 AB C3 28 57 24 29 |$."":V.(40..(W$)|
000017D0: 29 AD 32 3A 81 43 B2 31 A4 56 3A 56 24 B2 56 24 |).2:.C.1.V:V$.V$|
000017E0: AA 22 20 22 3A 82 00 14 20 7A 17 97 35 33 32 36 |." ":... z..5326|
000017F0: 35 2C 31 31 3A 9F 34 2C 34 3A 98 34 2C 58 24 58 |5,11:.4,4:.4,X$X|
00001800: 24 58 24 58 24 C7 28 31 34 29 56 24 57 24 C7 28 |$X$X$.(14)V$W$.(|
00001810: 31 35 29 3B 00 45 20 84 17 98 34 2C 58 24 58 24 |15);.E ...4,X$X$|
00001820: 58 24 58 24 58 24 58 24 22 52 45 43 4F 52 44 20 |X$X$X$X$"RECORD |
00001830: 23 20 20 20 20 20 52 45 43 4F 52 44 20 4E 41 4D |# RECORD NAM|
00001840: 45 22 A3 38 29 00 6F 20 8E 17 98 34 2C 22 44 49 |E".8).o ...4,"DI|
00001850: 53 4B 20 4E 41 4D 45 22 A3 31 33 29 22 4E 4F 54 |SK NAME".13)"NOT|
00001860: 45 53 22 C7 28 31 30 29 3A 81 43 B2 31 A4 4C 00 |ES".(10):.C.1.L.|
00001870: 90 20 98 17 4B 24 B2 22 20 20 20 22 AA C4 28 43 |. ..K$." "..(C|
00001880: 29 AA 22 2E 22 3A 4B 24 B2 C9 28 4B 24 2C 35 29 |).".":K$..(K$,5)|
00001890: 00 B1 20 A2 17 98 34 2C 22 20 22 4B 24 A3 35 29 |.. ...4," "K$.5)|
000018A0: C8 28 4C 24 28 43 29 2C 31 38 29 22 20 20 20 22 |.(L$(C),18)" "|
000018B0: 3B 00 D7 20 AC 17 98 34 2C CA 28 4C 24 28 43 29 |;.. ...4,.(L$(C)|
000018C0: 2C 32 32 29 3A 82 3A 98 34 2C 58 24 58 24 58 24 |,22):.:.4,X$X$X$|
000018D0: 58 24 58 24 3A A0 34 00 EE 20 B6 17 99 22 93 22 |X$X$:.4.. ..."."|
000018E0: 3A 97 35 33 32 36 35 2C 32 37 3A 89 34 30 00 00 |:.53265,27:.40..|
000018F0: 00 |. |
..?....C.1.40:L$.L$.".":.:K$."":.C.1.18:
K$.K$.".":.:L$.L$.K$.L$.L...C$.G(34):X$.
G(10):Q$."................."......C.1.40
:ER$.ER$." ":.:.D$(20),L$(765):.808,225.
P.(.N$."MENU.":.200:." .1.. CREATE A NE
W LIST."...2.A$."A LIST":.W$.."".A$.C$.W
$.C$.1.<.." .2. .EDIT "A$".":." .3.. L
OAD IN A LIST FROM DISK.".[.F.A$."LIST T
O DISK":.W$.."".A$.C$.W$.C$...P.." .4.
.SAVE "A$".":." .5.. DELETE LIST FILE F
ROM DISK.".H.Z.A$."A HARD COPY LIST":.W$
.."".A$.C$.W$.C$...D.." .6.. PRINT "A$"
.":." .7.. QUIT THE PROGRAM".(.N.V.7:.3
00:.V.1000,130,3000,130,5000,130.O.X..".
... ARE YOU SURE ?":.400.^.}..K$.
"N".40.M.~..808,237:.......L.0..240:.110
......V.,2000,,4000,,6000.P.H.."..".17)N
$,,L$"..".12)".ENTER YOUR CHOICE.....":.
...R.."..".17)N$,,L$"..".12)".USE .F1. T
O ESCAPE.....":ES.1:..=.W.."..".17)N$,,L
$"..".12)" ":..Z...."..".
17)N$,,L$".....":..T...."...".17)"WORKIN
G":......."...".12)"NO LIST IN MEMORY":.
D.1.2000:..E.....12)". .
..":....,..K$:.E(K$).1.E(K$).V.300...6.V
.E(K$):....^.F.0:L.L.1:.2000.......17)".
..(Y/N).....";.;....K$:.K$.."Y".K$.."N".
410.K...." .":..H...D%.0:P$."":."
...";.{....K$:.K$."".510......ES..K$.
".".ES.0:.F.40,350......K$.G(13).." ":ES
.0:.590......(D%).(K$.G(20)).P$.H(P$,C(P
$).1):D%.D%.1:.580...&..D%.16.510.6.0..(
K$.." ").(F(K$).35.F(K$).90).(F(K$).193.
F(K$).218).510.K.:.D%.D%.1:P$.P$.K$.].D.
.K$"..";:.510.L.N..F.0.W$.P$.R.S... .X..
8,8,0,"$":.15,8,15:.15,E,E$,E1,E2:.E.850
...B..C.1.8:.#8,K$:.:D$.""...L..C.1.16:.
#8,K$:.950:D$.D$.K$:.:.C.1.8:.#8,K$:....
V..C.1.4:.#8,K$:.:P$."":T$."".)....#8,K$
:.K$."".ST..0.800.<....F(K$)..34.640.E..
..#8,K$:.950:.F(K$)..34.P$.P$.K$:.660...
...#8,K$:.950:.F(K$).32.670.....T$.T$.K$
:.#8,K$:.K$.."".680......M.730.V...S$.""
:S.18.C(P$):.C.1.S:S$.S$." ":....F.L$(L)
.P$.S$.H(T$,3)." ".D$:.L.750.L.L.1:.630
.D.P. 8: 15:."...... THAT'S 750 RECOR
DS.MEMORY FULL":.870.\.Z..H(T$,3).."SEQ"
.630.T....J(P$,2,1)..".".630.....D$(D).P
$:D.D.1:.630... ..15,E,E$,E1,E2:.E.850..
.*..M. 8: 15:.3510.U.4.L.L.1: 8: 15:.L.0
..900...>..1140...R. 8: 15:.214,18:.:..8
)"."E","E$" "E1" "E2...\.L.L.1:.L.1.L.0.
?.F..900:.D.1.3000:.:.G.40,2000.I....C.L
.1.L.15:L$(C)."":.:.L.0.G.1:W$."".O.....
.....K$."".K$.G(0)...........N$."CREATE.
":.220......W$."".1060......"... YOU CUR
RENTLY HAVE A LIST IN MEMORY."......" .
DID YOU WANT TO START A NEW ONE ?":.400:
.K$."Y".1060.F...." .USE ADD SUBROUT
INE OF .EDIT.".Z....D.1.2500:.:.40.W.$.L
.0:.900:L.1:M.0:G.1:F.0......"... NAME
OF LIST..":.500:.220:.W$."".W$." ".J.8
..".. TO CREATE "C$W$C$","...B.." INSERT
A DISK AND HIT RETURN"...L..K$:.K$."".1
100.$.V..ES..K$.".".ES.0:L.L.1:.2000.8.`
..K$..G(13).1100.P.E..ES..215:."......."
.V.J.."... .READING DISK":ES.0:.600..
.T..220:.". ANOTHER DISK ?":.400:.K$."
Y".L.L.1:.1090.B.~..900:.G.40,2000...P.N
$." EDIT.":.200:." .1. .VIEW LIST.",,,"
.2. .ADD TO LIST(DISK)."./.U.." .3. .
ADD TO LIST(KEYBOARD).".S.Z.." .4. .ALP
HABETIZE LIST.",," .5. .DELETE DUPLICAT
E RECORDS."......" .6. .DELETE SELECTED
RECORDS.",," .7. .RETURN TO MAIN MENU"
.....V.7:.300:.V.2100,2300,2900,2400,250
0,2600,40...4.N$." VIEW.":A.1:B.15:.200.
6.>.."... PROGRAM NAME TYPE DISK
NAME.".T.H..Q$"......1. .NEXT PAGE .2.
.PREVIOUS PAGE .3..RETURN."...R.."...."
:.C.A.B...\..L$(C).""..I(ER$,39):.2160..
.F..L$(C).R.P..:V.3:.300:.V.2170,2190,20
00...Z..B.L.A.B.1:B.B.15:.2130.....A.1:B
.15:.2130......B.15.A.B.29:B.B.15:.2130.
B....L.15..(L.15).B.L:A.B.14:.2130.F...X
.15..(L.15):A.1.X:B.15.X:.2130......210:
.". TO ADD TO "C$W$C$",":L.L.1:G.2:.1090
.A.`..230:.D.1.500:.:.49152,L,L$(1):.200
0...D..230:.49152,L,L$(1):A.1:B.2:G.2...
N..C.1.L:.L$(B).L$(A).L$(B)."ZZZZ".%.X..
L$(A)."".L$(A)."ZZZZ".7...A.A.1:B.B.1:..
I....49152,L,L$(1):D.0:.C.1.L:.L$(C)."ZZ
ZZ".D.D.1......:L.L.D:.900:.G.40,2000...
(.A.1:B.10:D.0:SC.0:G.2:.200:.".........
.";:.C.1.40...2..".";:.:."....":.C.0.9:.
C:..!.<..Q$". 1. .NEXT PAGE.","2.. PREVI
OUS PAGE."," 3. .SCRATCH RECORD",.D.F.."
.4. .";:.D.0.."RETURN":.2650.T.P.."FINIS
HED".G.Z.."....":.C.A.B...D..L$(C)."".."
...."I(ER$,35):.2690.B.N..L$(C)."ZZZZ"..
"..... SCRATCHED."I(ER$,24):.2690...X..
"...."H(L$(C),16)I(L$(C),18)......:V.4:.
300:.V.2700,2720,2750,2800.&....B.L.A.B.
1:B.B.10:.2650.9...A.1:B.10:.2650.W. ..B
.10.A.B.19:B.B.10:.2650.Y....L.10..(L.10
).B.L:A.B.9:.2650.....X.10..(L.10):A.1.X
:B.10.X:.2650.....SC.1:.Q$ER$ER$.N.H..".
.. # TO DELETE. .."...R..K$:.K$."".27
70......F(K$).48.F(K$).57.2770.$...L$(A.
F(K$).48)."ZZZZ":D.D.1:.2620.3....SC.0.2
000.R....L.100..Q$ER$ER$"...":.230.{....
49152,L,L$(1):L.L.D:.900:.G.40,2000...T.
.210:." TO ADD TO "C$W$C$",":." TYPE IN
REQUESTED INFO &";...^.." HIT RETURN":."
.. EACH ENTRY IS 16 CHARACTERS LONG..."
.6.H.L.L.1:."PROGRAM NAME ";:F.2:.500:A
D$.P$:S$."":S.18.C(P$).P.R..C.1.S:S$.S$.
" ":.:ES.1:."..DISK NAME ";:.500:F.0
...W.SC$."":S.16.C(P$):.C.1.S:SC$.SC$."
":.:.S.0.SC$.""...|.L$(L).AD$.S$."PRG "
.P$.SC$:..6)"..ANOTHER..";:.400......K$.
"N".2000......2900...........N$." LOAD."
:.220.P.B.." WOULD YOU LIKE A LIST OF"
,," AVAILABLE FILES ?".J.L..400:G.1:.K
$."Y".3500.S.V..210......" NAME OF LIS
T.":F.1:.500:F.0......215:."........."..
....".. LOADING "C$P$C$:.8,8,8,"0: ."
.P$.",S,R":.15,8,15......15,E,E$,E1,E2:.
E.850......8,L:.8,W$:.8,I%.:....I%..C.1.
L:.8,L$(C):.:.3100.W....C.1.L:L$(C)."":.
D.1.39:.#8,K$:L$(C).L$(C).K$:.:.#8,D$:..
.... 8: 15:.900:.40......230:.".";:.C.1.
20:D$(C)."":.:D.1:M.1:.600.L...M.0:.D.1.
3550......210:."..":.C.1.D.2...J..". "D$
(C):.C..D..".".20)D$(C.1)...T..:.".":.30
40.L....220:."......".10)"NO LIST FILES
FOUND":.1050.E. .N$." SAVE.":G.1:.210...
..."... PLACE DESTINATION DISK IN DRIVE"
," AND HIT RETURN."......K$:.K$."".4020.
L....K$.".".ES.0:.40...H..K$..G(13).4020
...M..215:."........."...R.."... SAVI
NG "C$W$C$:I%.1.7....C.1.L:.H(L$(C),1)."
".I%.0.^....:.8,8,8,"0: .".W$.",S,W":.1
5,8,15.X....15,E,E$,E1,E2:.E.850......8,
L:.8,W$:.8,I%......C.1.L:.8,L$(C):.: 8:
15:.40.K...N$."DELETE.":.W$."".5030.....
.220:." .DELETE "C$W$C$" FROM DISK ?":.4
00:.K$."N".5030.....P$.W$:.5040.L....210
:.".. NAME OF FILE TO DELETE..":F.1:.500
:F.0.B....215:."........."......"...
DELETING "C$P$C$:.15,8,15:.15,E,E$,E1,E2
:.E.850......15,"S0: .".P$: 15:.40...P.V
$."":V.(40.C(W$)).2:.C.1.V:V$.V$." ":...
Z..53265,11:.4,4:.4,X$X$X$X$G(14)V$W$G(
15);.E ...4,X$X$X$X$X$X$"RECORD # RE
CORD NAME".8).O ...4,"DISK NAME".13)"NOT
ES"G(10):.C.1.L.. ..K$." ".D(C).".":K$
.I(K$,5).. ...4," "K$.5)H(L$(C),18)" "
;.W ...4,J(L$(C),22):.:.4,X$X$X$X$X$: 4.
. ...".":.53265,27:.40...
> CLICK IMAGE PREVIEW FOR FULL MODAL