VCR COMPANION
FILE INFORMATION
FILENAME(S): VCR COMPANION
FILE TYPE(S): PRG
FILE SIZE: 6.8K
FIRST SEEN: 2025-11-30 18:05:26
APPEARS ON: 2 disk(s)
FILE HASH
f67fc0f75b7f85e2e34f9bc31f0ba76ef897a26521ad95122e8924fced089c38
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 61 S 3 | VCR COMPANION | PRG | Xii | 33 | 3 | DOWNLOAD FILE |
| LOADSTAR 61 S 3 | VCR COMPANION | PRG | Sailor, Ganheden | 33 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 5A 00 99 20 22 93 22 3A 97 20 35 33 |....Z.. ".":. 53| 00000010: 32 38 30 2C 30 3A 97 20 35 33 32 38 31 2C 30 00 |280,0:. 53281,0.| 00000020: 31 08 64 00 8D 20 34 30 30 30 3A 89 20 33 30 30 |1.d.. 4000:. 300| 00000030: 30 00 62 08 22 01 99 20 22 9C 93 11 11 11 11 11 |0.b.".. ".......| 00000040: 20 20 20 20 20 20 20 20 20 20 20 20 42 55 49 4C | BUIL| 00000050: 44 49 4E 47 20 54 41 42 4C 45 20 20 20 20 20 20 |DING TABLE | 00000060: 11 22 00 93 08 24 01 99 20 22 4E 55 4D 20 20 2D |."...$.. "NUM -| 00000070: 2D 2D 2D 2D 2D 2D 20 20 4E 41 4D 45 20 20 2D 2D |------ NAME --| 00000080: 2D 2D 2D 2D 20 20 20 54 41 50 45 2E 45 4E 54 52 |---- TAPE.ENTR| 00000090: 59 11 22 00 AD 08 2C 01 81 20 56 B2 31 20 A4 20 |Y."...,.. V.1 . | 000000A0: 54 42 20 3A 8D 31 30 30 30 3A 82 3A 8E 00 D3 08 |TB :.1000:.:....| 000000B0: EA 01 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |... ------------| 000000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 45 52 52 4F 52 20 |--------- ERROR | 000000D0: 43 48 4B 00 E4 08 F4 01 84 31 35 2C 45 2C 45 24 |CHK......15,E,E$| 000000E0: 2C 41 2C 42 00 F5 08 FE 01 8B 45 B3 32 30 B0 45 |,A,B......E.20.E| 000000F0: B2 37 33 A7 8E 00 01 09 08 02 8B 45 B2 35 30 A7 |.73........E.50.| 00000100: 8E 00 2B 09 12 02 99 22 11 11 1D 1D 1D 1D 1D 1D |..+...."........| 00000110: 1D 1D 1C 54 48 45 52 45 20 49 53 20 41 4E 20 49 |...THERE IS AN I| 00000120: 2F 4F 20 50 52 4F 42 4C 45 4D 22 00 4F 09 1C 02 |/O PROBLEM".O...| 00000130: 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 45 52 52 4F 52 |.".........ERROR| 00000140: 20 23 20 49 53 22 3B 45 3B 22 20 22 3B 45 24 00 | # IS";E;" ";E$.| 00000150: 73 09 26 02 99 22 1D 1D 1D 1D 1D 1D 1D 1D 54 52 |s.&.."........TR| 00000160: 41 43 4B 22 3B 41 3B 22 3B 20 53 45 43 54 4F 52 |ACK";A;"; SECTOR| 00000170: 22 3B 42 00 7E 09 30 02 A0 38 3A A0 31 35 00 AC |";B.~.0..8:.15..| 00000180: 09 3A 02 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 12 9C |.:.."...........| 00000190: 50 52 45 53 53 20 53 50 41 43 45 20 54 4F 20 43 |PRESS SPACE TO C| 000001A0: 4F 4E 54 49 4E 55 45 92 91 91 22 3B 00 BF 09 44 |ONTINUE...";...D| 000001B0: 02 8B C2 28 32 30 33 29 B2 36 34 A7 35 38 30 00 |...(203).64.580.| 000001C0: D3 09 4E 02 8B C2 28 32 30 33 29 B3 B1 36 30 A7 |..N...(203)..60.| 000001D0: 35 38 30 00 DD 09 58 02 9C 3A 89 39 30 00 F5 09 |580...X..:.90...| 000001E0: 84 03 8F 20 4F 50 45 4E 20 43 4F 4D 4D 41 4E 44 |... OPEN COMMAND| 000001F0: 20 43 48 4E 4C 00 0E 0A 8E 03 A0 31 35 3A 9F 20 | CHNL......15:. | 00000200: 31 35 2C 38 2C 31 35 3A 8D 34 39 30 3A 8E 00 30 |15,8,15:.490:..0| 00000210: 0A B6 03 52 48 B2 B5 28 52 4E AD 32 35 36 29 3A |...RH..(RN.256):| 00000220: 52 4C B2 52 4E AB 28 32 35 36 AC 52 48 29 3A 8E |RL.RN.(256.RH):.| 00000230: 00 43 0A E8 03 8D 39 30 30 3A 56 24 B2 54 42 24 |.C....900:V$.TB$| 00000240: 28 56 29 00 62 0A EB 03 98 31 35 2C 22 52 30 3A |(V).b....15,"R0:| 00000250: 22 AA 56 24 AA 22 3D 22 AA 56 24 3A 84 31 35 2C |".V$."=".V$:.15,| 00000260: 45 52 00 7E 0A F2 03 8B 20 45 52 B3 B1 36 33 20 |ER.~.... ER..63 | 00000270: A7 20 52 4E B2 38 3A 20 89 20 31 31 30 30 00 A4 |. RN.8: . 1100..| 00000280: 0A FC 03 9F 38 2C 38 2C 38 2C 22 30 3A 22 AA 28 |....8,8,8,"0:".(| 00000290: 56 24 29 AA 22 2C 4C 2C 22 AA C7 28 34 30 29 3A |V$).",L,"..(40):| 000002A0: 8D 34 39 30 00 D7 0A 06 04 81 20 52 4E B2 31 A4 |.490...... RN.1.| 000002B0: 38 3A 8D 39 35 30 3A 98 31 35 2C 22 50 22 AA C7 |8:.950:.15,"P"..| 000002C0: 28 39 36 AA 38 29 AA C7 28 52 4C 29 AA C7 28 52 |(96.8)..(RL)..(R| 000002D0: 48 29 AA C7 28 31 29 00 FC 0A 10 04 8D 34 39 30 |H)..(1)......490| 000002E0: 3A 84 38 2C 41 41 24 2C 42 42 24 2C 43 43 24 2C |:.8,AA$,BB$,CC$,| 000002F0: 44 44 24 2C 45 45 24 3A 8D 34 39 30 00 1B 0B 1A |DD$,EE$:.490....| 00000300: 04 8B 20 41 41 24 B2 C7 28 32 35 35 29 A7 20 52 |.. AA$..(255). R| 00000310: 4E B2 38 3A 20 89 20 31 30 39 30 00 2E 0B 24 04 |N.8: . 1090...$.| 00000320: 8B 20 43 43 24 B2 22 22 A7 20 31 30 39 30 00 46 |. CC$."". 1090.F| 00000330: 0B 2E 04 8D 20 31 33 30 30 3A 8F 20 53 54 52 20 |.... 1300:. STR | 00000340: 49 4E 20 54 41 42 00 4C 0B 42 04 82 00 5E 0B 4C |IN TAB.L.B...^.L| 00000350: 04 A0 38 3A A0 31 35 3A 46 49 B2 31 3A 8E 00 7F |..8:.15:FI.1:...| 00000360: 0B 0A 05 9F 38 2C 38 2C 38 2C 22 30 3A 22 AA 28 |....8,8,8,"0:".(| 00000370: 56 24 29 AA 22 2C 4C 2C 22 AA C7 28 4C 4E 29 00 |V$).",L,"..(LN).| 00000380: 8C 0B 14 05 8F 20 49 4E 20 54 41 42 00 C0 0B 1E |..... IN TAB....| 00000390: 05 50 54 B2 50 54 AA 31 3A 4E 24 28 50 54 29 B2 |.PT.PT.1:N$(PT).| 000003A0: 43 43 24 3A 54 47 28 50 54 29 B2 50 54 3A 54 4E |CC$:TG(PT).PT:TN| 000003B0: 28 50 54 29 B2 C5 28 56 24 29 AC 31 30 AA 52 4E |(PT)..(V$).10.RN| 000003C0: 00 F0 0B 20 05 99 22 05 20 20 20 20 20 20 20 20 |... ..". | 000003D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 91 22 | ."| 000003F0: 00 18 0C 23 05 99 20 50 54 AB 31 20 20 3B 22 2D |...#.. PT.1 ;"-| 00000400: 20 22 3B 43 43 24 3B A3 33 30 29 3B C5 28 56 24 | ";CC$;.30);.(V$| 00000410: 29 3B 52 4E 3B 22 91 22 00 25 0C 28 05 8D 20 31 |);RN;".".%.(.. 1| 00000420: 38 30 30 3A 8E 00 39 0C 78 05 8F 20 47 45 54 20 |800:..9.x.. GET | 00000430: 44 49 52 45 43 54 4F 52 59 00 69 0C 82 05 A0 31 |DIRECTORY.i....1| 00000440: 35 3A 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 3A |5:.15,8,15,"I0":| 00000450: 8D 34 39 30 3A 9F 32 2C 38 2C 32 2C 22 23 22 3A |.490:.2,8,2,"#":| 00000460: 8D 34 39 30 3A 42 54 B2 30 00 96 0C 87 05 99 20 |.490:BT.0...... | 00000470: 22 92 9C 93 11 11 11 11 11 20 20 20 20 20 20 20 |"........ | 00000480: 20 20 20 47 45 54 54 49 4E 47 20 44 49 52 45 43 | GETTING DIREC| 00000490: 54 4F 52 59 11 22 00 AB 0C 8C 05 54 24 B2 C7 28 |TORY.".....T$..(| 000004A0: 31 38 29 3A 53 24 B2 C7 28 31 29 00 C0 0C 96 05 |18):S$..(1).....| 000004B0: 8D 20 31 36 30 30 3A A1 23 32 2C 54 24 2C 53 24 |. 1600:.#2,T$,S$| 000004C0: 00 E7 0C A0 05 81 49 B2 31 A4 20 38 3A 42 50 B2 |......I.1. 8:BP.| 000004D0: 32 AA 28 28 49 AB 31 29 AC 33 32 29 3A 8D 31 36 |2.((I.1).32):.16| 000004E0: 35 30 3A 41 31 B2 30 00 09 0D AA 05 A1 23 32 2C |50:A1.0......#2,| 000004F0: 41 24 3A 8B C6 28 41 24 AA 5A 24 29 B3 B1 31 33 |A$:..(A$.Z$)..13| 00000500: 32 20 A7 20 20 31 35 32 30 00 17 0D B4 05 A1 23 |2 . 1520......#| 00000510: 32 2C 41 24 2C 41 24 00 3C 0D BE 05 A1 23 32 2C |2,A$,A$.<....#2,| 00000520: 41 24 3A 41 B2 C6 28 41 24 AA 5A 24 29 3A 8B 20 |A$:A..(A$.Z$):. | 00000530: 41 B2 31 36 30 20 A7 20 31 35 30 30 00 51 0D C8 |A.160 . 1500.Q..| 00000540: 05 8B 41 B3 34 38 B0 41 B1 35 37 A7 20 31 35 32 |..A.48.A.57. 152| 00000550: 30 00 6D 0D D2 05 41 B2 41 AB 34 38 3A 41 31 B2 |0.m...A.A.48:A1.| 00000560: 41 31 AC 31 30 AA 41 3A 89 31 34 37 30 00 86 0D |A1.10.A:.1470...| 00000570: DC 05 8B 20 41 31 B3 31 B0 41 31 B1 32 30 30 20 |... A1.1.A1.200 | 00000580: A7 20 31 35 32 30 00 91 0D E6 05 8D 20 31 37 30 |. 1520...... 170| 00000590: 30 00 AA 0D F0 05 82 3A 8B 20 C6 28 54 24 AA 5A |0......:. .(T$.Z| 000005A0: 24 29 B3 B1 30 A7 31 34 33 30 00 B7 0D FA 05 A0 |$)..0.1430......| 000005B0: 32 3A A0 31 35 3A 8E 00 C7 0D 40 06 8F 20 52 45 |2:.15:....@.. RE| 000005C0: 41 44 20 22 55 31 22 00 F0 0D 4A 06 98 31 35 2C |AD "U1"...J..15,| 000005D0: 22 55 31 22 3B 32 3B 30 3B C6 28 54 24 AA 5A 24 |"U1";2;0;.(T$.Z$| 000005E0: 29 3B C6 28 53 24 AA 5A 24 29 3A 8D 20 34 39 30 |);.(S$.Z$):. 490| 000005F0: 00 F6 0D 54 06 8E 00 05 0E 72 06 8F 20 42 55 46 |...T.....r.. BUF| 00000600: 46 20 50 54 52 00 1E 0E 7C 06 98 31 35 2C 22 42 |F PTR...|..15,"B| 00000610: 2D 50 22 3B 32 3B 42 50 3A 8D 20 34 39 30 00 24 |-P";2;BP:. 490.$| 00000620: 0E 86 06 8E 00 50 0E A4 06 41 24 B2 C4 28 41 31 |.....P...A$..(A1| 00000630: 29 3A 4C B2 C3 28 41 24 29 3A 54 42 B2 54 42 AA |):L..(A$):TB.TB.| 00000640: 31 3A 8B 20 54 42 B1 32 30 30 A7 20 31 37 34 30 |1:. TB.200. 1740| 00000650: 00 6A 0E AE 06 54 42 24 28 54 42 29 B2 CA 28 41 |.j...TB$(TB)..(A| 00000660: 24 2C 32 2C 28 4C AB 31 29 29 00 93 0E B8 06 99 |$,2,(L.1))......| 00000670: 20 22 92 20 20 20 20 20 20 20 20 20 20 20 20 20 | ". | 00000680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000690: 20 91 22 00 C5 0E C2 06 99 20 22 92 9E 20 20 20 | ."...... ".. | 000006A0: 20 20 20 20 20 20 20 44 49 52 45 43 54 4F 52 59 | DIRECTORY| 000006B0: 20 45 4E 54 52 59 20 05 22 3B 54 42 24 28 54 42 | ENTRY .";TB$(TB| 000006C0: 29 3B 22 91 22 00 CB 0E CC 06 8E 00 E1 0E 08 07 |);"."...........| 000006D0: 8F 20 49 4E 53 45 52 54 20 49 4E 20 54 41 42 4C |. INSERT IN TABL| 000006E0: 45 00 11 0F 12 07 4C 4F B2 31 3A 48 49 B2 50 54 |E.....LO.1:HI.PT| 000006F0: AB 31 3A 59 57 B2 30 3A 8B 50 54 B1 28 32 AE 50 |.1:YW.0:.PT.(2.P| 00000700: 57 29 A7 20 50 57 B2 50 57 AA 31 3A 89 31 38 31 |W). PW.PW.1:.181| 00000710: 30 00 31 0F 1C 07 44 46 B2 B5 28 28 48 49 AB 4C |0.1...DF..((HI.L| 00000720: 4F 29 AD 32 AA 2E 35 29 3A 4D 44 B2 4C 4F AA 44 |O).2..5):MD.LO.D| 00000730: 46 00 43 0F 26 07 8B 20 44 46 B2 30 20 A7 20 31 |F.C.&.. DF.0 . 1| 00000740: 38 37 30 00 5C 0F 2B 07 59 57 B2 59 57 AA 31 3A |870.\.+.YW.YW.1:| 00000750: 8B 59 57 B1 50 57 A7 20 31 38 37 30 00 7F 0F 30 |.YW.PW. 1870...0| 00000760: 07 8B 20 43 43 24 B1 4E 24 28 54 47 28 4D 44 29 |.. CC$.N$(TG(MD)| 00000770: 29 20 A7 20 4C 4F B2 4D 44 3A 89 31 38 32 30 00 |) . LO.MD:.1820.| 00000780: 9B 0F 3A 07 8B 20 43 43 24 B2 4E 24 28 54 47 28 |..:.. CC$.N$(TG(| 00000790: 4D 44 29 29 20 A7 20 31 38 37 30 00 C8 0F 44 07 |MD)) . 1870...D.| 000007A0: 48 49 B2 4D 44 3A 44 46 B2 B5 28 28 48 49 AB 4C |HI.MD:DF..((HI.L| 000007B0: 4F 29 AD 32 AA 2E 35 29 3A 4D 44 B2 48 49 AB 44 |O).2..5):MD.HI.D| 000007C0: 46 3A 89 20 31 38 33 30 00 EC 0F 4E 07 4C 4F B2 |F:. 1830...N.LO.| 000007D0: 50 54 3A 8B 20 43 43 24 B1 4E 24 28 54 47 28 4D |PT:. CC$.N$(TG(M| 000007E0: 44 29 29 A7 20 4D 44 B2 4D 44 AA 31 00 17 10 58 |D)). MD.MD.1...X| 000007F0: 07 54 47 28 4C 4F 29 B2 54 47 28 4C 4F AB 31 29 |.TG(LO).TG(LO.1)| 00000800: 3A 4C 4F B2 4C 4F AB 31 3A 8B 20 4C 4F B1 4D 44 |:LO.LO.1:. LO.MD| 00000810: 20 A7 20 31 38 38 30 00 27 10 62 07 54 47 28 4D | . 1880.'.b.TG(M| 00000820: 44 29 B2 50 54 3A 8E 00 3D 10 6C 07 8F 20 41 44 |D).PT:..=.l.. AD| 00000830: 44 20 4F 4E 20 45 4E 44 2F 52 45 50 4C 00 70 10 |D ON END/REPL.p.| 00000840: 76 07 99 20 22 92 11 11 9E 20 20 20 20 20 42 55 |v.. ".... BU| 00000850: 49 4C 44 20 4F 4E 20 45 4E 44 20 4F 46 20 54 41 |ILD ON END OF TA| 00000860: 42 4C 45 3F 20 28 59 2F 4E 29 22 3A 54 42 B2 30 |BLE? (Y/N)":TB.0| 00000870: 00 89 10 80 07 97 20 31 39 38 2C 30 3A 92 20 31 |...... 198,0:. 1| 00000880: 39 38 2C 31 35 3A A1 41 24 00 C2 10 8A 07 8B 20 |98,15:.A$...... | 00000890: 41 24 B2 22 4E 22 20 A7 20 99 20 22 11 20 20 20 |A$."N" . . ". | 000008A0: 20 20 20 20 20 20 20 20 52 45 50 4C 41 43 49 4E | REPLACIN| 000008B0: 47 20 54 41 42 4C 45 21 1E 22 3A 8D 34 31 30 30 |G TABLE!.":.4100| 000008C0: 3A 8E 00 D6 10 94 07 8B 20 41 24 B3 B1 22 59 22 |:....... A$.."Y"| 000008D0: A7 20 31 39 32 30 00 05 11 9E 07 99 20 22 11 20 |. 1920...... ". | 000008E0: 20 20 20 20 42 55 49 4C 44 49 4E 47 20 4F 4E 20 | BUILDING ON | 000008F0: 54 48 45 20 45 4E 44 20 4F 46 20 54 41 42 4C 45 |THE END OF TABLE| 00000900: 21 1E 22 3A 8E 00 19 11 D0 07 8F 20 44 49 53 50 |!.":....... DISP| 00000910: 4C 41 59 20 4E 41 4D 45 53 00 26 11 DA 07 4C 43 |LAY NAMES.&...LC| 00000920: B2 30 3A 49 B2 30 00 4F 11 E4 07 99 20 22 92 1E |.0:I.0.O.... "..| 00000930: 93 11 11 20 20 20 20 20 20 20 20 20 20 20 20 41 |... A| 00000940: 4C 50 48 41 42 45 54 49 43 20 4C 49 53 54 22 00 |LPHABETIC LIST".| 00000950: 83 11 EE 07 99 20 20 20 22 4E 55 4D 20 20 20 20 |..... "NUM | 00000960: 20 2D 2D 2D 2D 2D 20 20 4E 41 4D 45 20 20 2D 2D | ----- NAME --| 00000970: 2D 2D 2D 2D 20 20 54 41 50 45 2E 45 4E 54 52 59 |---- TAPE.ENTRY| 00000980: 20 11 22 00 A5 11 02 08 4C 43 B2 4C 43 AA 31 3A | .".....LC.LC.1:| 00000990: 8B 20 4C 43 B1 31 35 20 A7 20 8D 32 33 30 30 3A |. LC.15 . .2300:| 000009A0: 8D 32 32 30 30 00 E4 11 07 08 49 B2 49 AA 31 3A |.2200.....I.I.1:| 000009B0: 53 31 B2 32 AA AB 31 AC 28 49 B3 31 30 29 AA AB |S1.2..1.(I.10)..| 000009C0: 31 AC 28 49 B3 31 30 30 29 AA AB 31 AC 28 49 B3 |1.(I.100)..1.(I.| 000009D0: 31 30 30 30 29 3A 4C B2 C3 28 4E 24 28 54 47 28 |1000):L..(N$(TG(| 000009E0: 49 29 29 29 00 15 12 08 08 53 32 B2 32 33 AB 4C |I))).....S2.23.L| 000009F0: AA 31 AC 28 54 4E 28 54 47 28 49 29 29 B1 31 30 |.1.(TN(TG(I)).10| 00000A00: 30 29 AA 31 AC 28 54 4E 28 54 47 28 49 29 29 B1 |0).1.(TN(TG(I)).| 00000A10: 31 30 30 30 29 00 42 12 0A 08 8B 20 CA 28 4E 24 |1000).B.... .(N$| 00000A20: 28 54 47 28 49 29 29 2C 31 2C 31 29 B2 C7 28 32 |(TG(I)),1,1)..(2| 00000A30: 35 35 29 A7 20 4C 43 B2 4C 43 AB 31 3A 89 32 30 |55). LC.LC.1:.20| 00000A40: 37 30 00 6F 12 0C 08 99 20 22 9F 22 3B 49 3B A6 |70.o.... ".";I;.| 00000A50: 53 31 29 3B 4E 24 28 54 47 28 49 29 29 3B A6 53 |S1);N$(TG(I));.S| 00000A60: 32 29 3B 54 4E 28 54 47 28 49 29 29 AD 31 30 00 |2);TN(TG(I)).10.| 00000A70: 85 12 16 08 8B 20 49 B3 28 50 54 AB 31 29 20 A7 |..... I.(PT.1) .| 00000A80: 20 32 30 35 30 00 8B 12 20 08 8E 00 9C 12 98 08 | 2050... .......| 00000A90: 8F 20 43 4C 45 41 52 20 50 41 47 45 00 DE 12 A2 |. CLEAR PAGE....| 00000AA0: 08 99 20 22 13 11 11 11 11 22 3A 81 20 4A B2 31 |.. ".....":. J.1| 00000AB0: 20 A4 20 31 36 3A 99 22 20 20 20 20 20 20 20 20 | . 16:." | 00000AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000AD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 F0 | "..| 00000AE0: 12 AC 08 82 3A 99 20 22 13 11 11 11 11 22 3A 8E |....:. ".....":.| 00000AF0: 00 FB 12 FC 08 8F 20 57 41 49 54 00 1B 13 06 09 |...... WAIT.....| 00000B00: 97 20 31 39 38 2C 30 3A 92 20 31 39 38 2C 31 35 |. 198,0:. 198,15| 00000B10: 3A A1 41 24 3A 4C 43 B2 31 3A 8E 00 2D 13 C4 09 |:.A$:LC.1:..-...| 00000B20: 8F 20 50 52 49 4E 54 20 4E 41 4D 45 53 00 59 13 |. PRINT NAMES.Y.| 00000B30: CE 09 4C 43 B2 30 3A 49 B2 30 3A A0 34 3A 9F 34 |..LC.0:I.0:.4:.4| 00000B40: 2C 34 3A 98 34 2C C7 28 30 29 3A 8B 20 53 54 B3 |,4:.4,.(0):. ST.| 00000B50: B1 30 20 A7 20 32 35 39 30 00 67 13 D3 09 A0 34 |.0 . 2590.g....4| 00000B60: 3A 9F 34 2C 34 2C 30 00 8C 13 D8 09 98 34 2C 22 |:.4,4,0......4,"| 00000B70: 20 20 20 20 20 20 20 20 20 20 20 20 41 4C 50 48 | ALPH| 00000B80: 41 42 45 54 49 43 20 4C 49 53 54 22 00 C9 13 E2 |ABETIC LIST"....| 00000B90: 09 98 34 2C 22 20 20 20 20 20 20 4E 55 4D 20 20 |..4," NUM | 00000BA0: 20 20 20 2D 2D 2D 2D 2D 20 20 4E 41 4D 45 20 20 | ----- NAME | 00000BB0: 2D 2D 2D 2D 2D 2D 20 54 41 50 45 2E 45 4E 54 52 |------ TAPE.ENTR| 00000BC0: 59 20 22 3B C7 28 31 33 29 00 FC 13 F6 09 4C 43 |Y ";.(13).....LC| 00000BD0: B2 4C 43 AA 31 3A 8B 20 4C 43 B1 35 36 20 20 A7 |.LC.1:. LC.56 .| 00000BE0: 20 4C 43 B2 30 3A 81 4A B2 31 A4 37 3A 98 34 2C | LC.0:.J.1.7:.4,| 00000BF0: C7 28 30 29 3A 82 3A 89 32 35 32 30 00 3B 14 FB |.(0):.:.2520.;..| 00000C00: 09 49 B2 49 AA 31 3A 53 31 B2 32 AA AB 31 AC 28 |.I.I.1:S1.2..1.(| 00000C10: 49 B3 31 30 29 AA AB 31 AC 28 49 B3 31 30 30 29 |I.10)..1.(I.100)| 00000C20: AA AB 31 AC 28 49 B3 31 30 30 30 29 3A 4C B2 C3 |..1.(I.1000):L..| 00000C30: 28 4E 24 28 54 47 28 49 29 29 29 00 6C 14 FC 09 |(N$(TG(I))).l...| 00000C40: 53 32 B2 32 33 AB 4C AA 31 AC 28 54 4E 28 54 47 |S2.23.L.1.(TN(TG| 00000C50: 28 49 29 29 B1 31 30 30 29 AA 31 AC 28 54 4E 28 |(I)).100).1.(TN(| 00000C60: 54 47 28 49 29 29 B1 31 30 30 30 29 00 90 14 FE |TG(I)).1000)....| 00000C70: 09 8B 20 CA 28 4E 24 28 54 47 28 49 29 29 2C 31 |.. .(N$(TG(I)),1| 00000C80: 2C 31 29 B2 C7 28 32 35 35 29 A7 20 32 35 37 30 |,1)..(255). 2570| 00000C90: 00 C2 14 00 0A 98 34 2C 22 20 20 20 20 20 22 3B |......4," ";| 00000CA0: 49 3B A6 53 31 29 3B 4E 24 28 54 47 28 49 29 29 |I;.S1);N$(TG(I))| 00000CB0: 3B A6 53 32 29 3B 54 4E 28 54 47 28 49 29 29 AD |;.S2);TN(TG(I)).| 00000CC0: 31 30 00 D8 14 0A 0A 8B 20 49 B3 28 50 54 AB 31 |10...... I.(PT.1| 00000CD0: 29 20 A7 20 32 35 35 30 00 E1 14 14 0A A0 34 3A |) . 2550......4:| 00000CE0: 8E 00 0C 15 1E 0A 99 3A 99 22 11 11 11 20 20 20 |.......:."... | 00000CF0: 20 20 20 20 20 20 50 52 49 4E 54 45 52 20 55 4E | PRINTER UN| 00000D00: 41 56 41 49 4C 41 42 4C 45 22 3A 8E 00 17 15 B8 |AVAILABLE":.....| 00000D10: 0B 8F 20 4D 45 4E 55 00 51 15 C2 0B 99 22 1E 22 |.. MENU.Q...."."| 00000D20: 3A 99 20 22 93 11 12 D5 C3 C3 C3 C3 C3 C3 C3 C3 |:. "............| 00000D30: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 00000D40: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C9 22 |..............."| 00000D50: 3B 00 93 15 CC 0B 99 20 22 12 DD 20 92 05 44 92 |;...... ".. ..D.| 00000D60: 1E 12 49 53 50 4C 41 59 20 20 20 20 20 20 20 92 |..ISPLAY .| 00000D70: 05 4C 92 1E 12 4F 41 44 20 20 20 20 20 20 20 20 |.L...OAD | 00000D80: 92 05 41 92 1E 12 44 44 20 20 20 20 20 20 20 20 |..A...DD | 00000D90: DD 22 3B 00 D5 15 D6 0B 99 20 22 12 DD 20 92 05 |.";...... ".. ..| 00000DA0: 50 92 1E 12 52 49 4E 54 20 20 20 20 20 20 20 20 |P...RINT | 00000DB0: 20 92 05 53 12 1E 12 41 56 45 20 20 20 20 20 20 | ..S...AVE | 00000DC0: 20 20 92 05 42 92 1E 12 55 49 4C 44 20 20 20 20 | ..B...UILD | 00000DD0: 20 20 DD 22 3B 00 17 16 DB 0B 99 20 22 12 DD 20 | .";...... ".. | 00000DE0: 92 05 4D 92 1E 12 41 49 4E 20 4D 45 4E 55 20 20 |..M...AIN MENU | 00000DF0: 20 20 20 92 05 48 92 1E 12 45 4C 50 20 20 20 20 | ..H...ELP | 00000E00: 20 20 20 20 4C 92 05 4F 92 1E 12 41 44 53 54 41 | L..O...ADSTA| 00000E10: 52 20 20 20 DD 22 3B 00 4C 16 E0 0B 99 20 20 20 |R .";.L.... | 00000E20: 22 12 CA C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |"...............| 00000E30: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 00000E40: C3 C3 C3 C3 C3 C3 C3 C3 C3 CB 22 3B 00 67 16 EA |..........";.g..| 00000E50: 0B 97 20 31 39 38 2C 30 3A 92 20 31 39 38 2C 31 |.. 198,0:. 198,1| 00000E60: 35 3A A1 20 41 24 3A 00 8A 16 F4 0B 8B 20 41 24 |5:. A$:...... A$| 00000E70: B2 22 44 22 20 A7 20 8D 20 32 30 30 30 3A 89 33 |."D" . . 2000:.3| 00000E80: 32 30 30 3A 8F 20 44 49 53 50 00 AE 16 FE 0B 8B |200:. DISP......| 00000E90: 20 41 24 B2 22 50 22 20 A7 20 8D 20 32 35 30 30 | A$."P" . . 2500| 00000EA0: 3A 89 33 32 30 30 3A 8F 20 50 52 49 4E 54 00 E3 |:.3200:. PRINT..| 00000EB0: 16 08 0C 8B 20 41 24 B2 22 4D 22 20 A7 20 46 24 |.... A$."M" . F$| 00000EC0: B2 22 56 43 52 20 4C 49 42 52 41 52 59 22 3A 4E |."VCR LIBRARY":N| 00000ED0: 24 B2 22 4D 41 49 4E 20 4D 45 4E 55 22 3A 89 34 |$."MAIN MENU":.4| 00000EE0: 35 30 30 00 19 17 0D 0C 8B 20 41 24 B2 22 4F 22 |500...... A$."O"| 00000EF0: 20 A7 20 46 24 B2 22 48 45 4C 4C 4F 20 43 4F 4E | . F$."HELLO CON| 00000F00: 4E 45 43 54 22 3A 4E 24 B2 22 4C 4F 41 44 53 54 |NECT":N$."LOADST| 00000F10: 41 52 22 3A 89 34 35 30 30 00 3B 17 12 0C 8B 20 |AR":.4500.;.... | 00000F20: 41 24 B2 22 53 22 20 A7 20 8D 33 33 30 30 3A 89 |A$."S" . .3300:.| 00000F30: 33 32 30 30 3A 8F 20 53 41 56 45 00 5C 17 1C 0C |3200:. SAVE.\...| 00000F40: 8B 20 41 24 B2 22 41 22 20 A7 20 8D 33 35 30 30 |. A$."A" . .3500| 00000F50: 3A 89 33 32 30 30 3A 8F 20 41 44 44 00 7E 17 26 |:.3200:. ADD.~.&| 00000F60: 0C 8B 20 41 24 B2 22 4C 22 20 A7 20 8D 33 34 30 |.. A$."L" . .340| 00000F70: 30 3A 89 33 32 30 30 3A 8F 20 4C 4F 41 44 00 A0 |0:.3200:. LOAD..| 00000F80: 17 2B 0C 8B 20 41 24 B2 22 48 22 20 A7 20 8D 33 |.+.. A$."H" . .3| 00000F90: 38 30 30 3A 89 33 32 30 30 3A 8F 20 4C 4F 41 44 |800:.3200:. LOAD| 00000FA0: 00 CE 17 30 0C 8B 20 41 24 B2 22 42 22 20 A7 20 |...0.. A$."B" . | 00000FB0: 8D 31 39 30 30 3A 8D 31 34 30 30 3A 8D 32 39 30 |.1900:.1400:.290| 00000FC0: 3A 89 33 32 30 30 3A 8F 20 42 55 49 4C 44 00 D8 |:.3200:. BUILD..| 00000FD0: 17 4E 0C 89 33 30 35 30 00 15 18 80 0C 99 22 92 |.N..3050......".| 00000FE0: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00000FF0: 11 11 11 11 11 11 11 20 20 20 20 20 20 20 20 20 |....... | 00001000: 20 11 12 41 4E 59 20 4B 45 59 20 43 4F 4E 54 49 | ..ANY KEY CONTI| 00001010: 4E 55 45 53 22 00 35 18 8A 0C 97 20 31 39 38 2C |NUES".5.... 198,| 00001020: 30 3A 92 20 31 39 38 2C 31 35 3A A1 41 24 3A 89 |0:. 198,15:.A$:.| 00001030: 20 33 30 31 30 00 45 18 E4 0C 8F 20 53 41 56 45 | 3010.E.... SAVE| 00001040: 20 46 49 4C 45 00 77 18 EE 0C 99 20 22 92 20 20 | FILE.w.... ". | 00001050: 20 20 20 20 20 20 20 20 20 20 53 41 56 49 4E 47 | SAVING| 00001060: 20 46 49 4C 45 21 20 20 20 20 22 3A 8B 50 54 B1 | FILE! ":.PT.| 00001070: 31 A7 20 33 33 33 30 00 A3 18 F8 0C 99 20 22 9E |1. 3330...... ".| 00001080: 20 20 20 20 20 20 20 20 20 20 20 12 4E 4F 20 46 | .NO F| 00001090: 49 4C 45 20 54 4F 20 53 41 56 45 92 22 3A 89 33 |ILE TO SAVE.":.3| 000010A0: 32 30 30 00 D0 18 02 0D A0 31 35 3A 9F 31 35 2C |200......15:.15,| 000010B0: 38 2C 31 35 2C 22 49 30 22 3A 8D 34 39 30 3A 98 |8,15,"I0":.490:.| 000010C0: 31 35 2C 22 53 30 3A 39 39 39 22 3A 8D 34 39 30 |15,"S0:999":.490| 000010D0: 00 04 19 07 0D A0 31 35 3A 9F 31 35 2C 38 2C 31 |......15:.15,8,1| 000010E0: 35 2C 22 49 30 22 3A 8D 34 39 30 3A 9F 33 2C 38 |5,"I0":.490:.3,8| 000010F0: 2C 33 2C 22 40 30 3A 39 39 39 2C 53 2C 57 22 3A |,3,"@0:999,S,W":| 00001100: 8D 34 39 30 00 32 19 0C 0D 81 20 49 B2 31 20 A4 |.490.2.... I.1 .| 00001110: 20 50 54 3A 8B 20 C8 28 4E 24 28 54 47 28 49 29 | PT:. .(N$(TG(I)| 00001120: 29 2C 31 29 B2 C7 28 32 35 35 29 20 A7 20 33 33 |),1)..(255) . 33| 00001130: 36 30 00 59 19 16 0D 98 33 2C 49 3A 98 33 2C 4E |60.Y....3,I:.3,N| 00001140: 24 28 54 47 28 49 29 29 3A 98 33 2C 54 4E 28 54 |$(TG(I)):.3,TN(T| 00001150: 47 28 49 29 29 3A 58 B2 49 00 83 19 20 0D 82 3A |G(I)):X.I... ..:| 00001160: 98 33 2C 58 AA 31 3A 98 33 2C C7 28 32 35 35 29 |.3,X.1:.3,.(255)| 00001170: AA C7 28 32 35 35 29 AA C7 28 32 35 35 29 3A 98 |..(255)..(255):.| 00001180: 33 2C 30 00 95 19 2A 0D A0 33 3A A0 31 35 3A 46 |3,0...*..3:.15:F| 00001190: 49 B2 30 3A 8E 00 A5 19 48 0D 8F 20 4C 4F 41 44 |I.0:....H.. LOAD| 000011A0: 20 46 49 4C 45 00 D6 19 4D 0D 99 20 22 92 20 20 | FILE...M.. ". | 000011B0: 20 20 20 20 20 20 20 20 20 20 4C 4F 41 44 49 4E | LOADIN| 000011C0: 47 20 46 49 4C 45 21 20 20 20 20 22 3A 50 54 B2 |G FILE! ":PT.| 000011D0: 30 3A 50 57 B2 30 00 09 1A 52 0D A0 31 35 3A 9F |0:PW.0...R..15:.| 000011E0: 31 35 2C 38 2C 31 35 2C 22 49 30 22 3A 8D 34 39 |15,8,15,"I0":.49| 000011F0: 30 3A 98 31 35 2C 22 52 30 3A 39 39 39 3D 39 39 |0:.15,"R0:999=99| 00001200: 39 22 3A 84 31 35 2C 45 52 00 1D 1A 5C 0D 8B 20 |9":.15,ER...\.. | 00001210: 45 52 B3 B1 36 33 20 A7 20 33 34 39 30 00 4E 1A |ER..63 . 3490.N.| 00001220: 66 0D A0 31 35 3A 9F 31 35 2C 38 2C 31 35 2C 22 |f..15:.15,8,15,"| 00001230: 49 30 22 3A 8D 34 39 30 3A 9F 33 2C 38 2C 33 2C |I0":.490:.3,8,3,| 00001240: 22 39 39 39 2C 53 2C 52 22 3A 8D 34 39 30 00 72 |"999,S,R":.490.r| 00001250: 1A 70 0D 50 54 B2 50 54 AA 31 3A 84 33 2C 54 47 |.p.PT.PT.1:.3,TG| 00001260: 28 50 54 29 2C 4E 24 28 50 54 29 2C 54 4E 28 50 |(PT),N$(PT),TN(P| 00001270: 54 29 00 93 1A 7A 0D 8B 20 C8 28 4E 24 28 50 54 |T)...z.. .(N$(PT| 00001280: 29 2C 31 29 B3 B1 C7 28 32 35 35 29 20 A7 20 33 |),1)...(255) . 3| 00001290: 34 34 30 00 C6 1A 84 0D 54 47 28 50 54 29 B2 50 |440.....TG(PT).P| 000012A0: 54 3A 4E 24 28 50 54 29 B2 C7 28 32 35 35 29 AA |T:N$(PT)..(255).| 000012B0: C7 28 32 35 35 29 AA C7 28 32 35 35 29 3A 54 4E |.(255)..(255):TN| 000012C0: 28 50 54 29 B2 30 00 D8 1A 8E 0D A0 33 3A A0 31 |(PT).0......3:.1| 000012D0: 35 3A 46 49 B2 31 3A 8E 00 01 1B A2 0D 99 20 22 |5:FI.1:....... "| 000012E0: 20 20 20 20 20 20 20 20 20 20 20 12 9E 4E 4F 20 | ..NO | 000012F0: 46 49 4C 45 20 54 4F 20 4C 4F 41 44 92 1E 22 3A |FILE TO LOAD..":| 00001300: 8E 00 12 1B AC 0D 8F 20 41 44 44 2F 55 50 44 41 |....... ADD/UPDA| 00001310: 54 45 00 49 1B B6 0D 99 20 22 92 93 9E 11 11 11 |TE.I.... "......| 00001320: 20 20 20 20 20 20 20 20 45 4E 54 45 52 20 41 44 | ENTER AD| 00001330: 44 20 46 49 4C 45 20 4E 41 4D 45 11 22 3A 41 31 |D FILE NAME.":A1| 00001340: B2 30 3A 41 31 24 B2 22 22 00 67 1B BB 0D 99 20 |.0:A1$."".g.... | 00001350: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" | 00001360: D5 C3 C3 C3 C3 C9 22 00 85 1B BC 0D 99 20 22 20 |......"...... " | 00001370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 DD 20 | . | 00001380: 20 20 20 DD 22 00 A6 1B BD 0D 99 20 22 20 20 20 | ."...... " | 00001390: 20 20 20 20 20 20 20 20 20 20 20 20 CA C3 C3 C3 | ....| 000013A0: C3 CB 20 91 91 22 00 BD 1B C0 0D A1 20 41 24 3A |.. .."...... A$:| 000013B0: 8B 20 41 24 B2 22 22 A7 20 33 35 32 30 00 D7 1B |. A$."". 3520...| 000013C0: CA 0D 41 B2 C6 28 41 24 29 3A 8B 20 41 B2 31 33 |..A..(A$):. A.13| 000013D0: 20 A7 20 33 35 37 30 00 E9 1B D4 0D 8B 20 41 B2 | . 3570...... A.| 000013E0: 32 30 20 A7 20 33 36 30 30 00 FE 1B DE 0D 8B 20 |20 . 3600...... | 000013F0: 41 B3 34 38 B0 41 B1 35 37 A7 33 35 32 30 00 19 |A.48.A.57.3520..| 00001400: 1C E8 0D 8B 20 C3 28 41 31 24 29 B3 33 20 A7 41 |.... .(A1$).3 .A| 00001410: 31 24 B2 41 31 24 AA 41 24 00 41 1C EA 0D 99 20 |1$.A1$.A$.A.... | 00001420: 22 20 20 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |" .............| 00001430: 1D 22 3B 41 31 24 3B 22 20 91 22 3A 89 33 35 32 |.";A1$;" .":.352| 00001440: 30 00 63 1C F2 0D 41 B2 C5 28 41 31 24 29 3A 8B |0.c...A..(A1$):.| 00001450: 20 41 B3 31 20 B0 20 41 B1 32 30 30 20 A7 20 33 | A.1 . A.200 . 3| 00001460: 35 39 30 00 74 1C FC 0D 56 24 B2 41 31 24 3A 89 |590.t...V$.A1$:.| 00001470: 33 36 33 30 00 9F 1C 06 0E 99 20 22 92 11 11 11 |3630...... "....| 00001480: 20 20 20 20 20 20 20 20 20 05 49 4E 56 41 4C 49 | .INVALI| 00001490: 44 20 46 49 4C 45 20 4E 41 4D 45 1E 22 3A 8E 00 |D FILE NAME.":..| 000014A0: BC 1C 10 0E 4C B2 C3 28 41 31 24 29 3A 4C B2 4C |....L..(A1$):L.L| 000014B0: AB 31 3A 8B 4C B3 30 A7 20 4C B2 30 00 D5 1C 1A |.1:.L.0. L.0....| 000014C0: 0E 41 31 24 B2 CA 28 41 31 24 2C 31 2C 4C 29 3A |.A1$..(A1$,1,L):| 000014D0: 89 33 35 36 32 00 06 1D 2E 0E A0 31 35 3A 9F 31 |.3562......15:.1| 000014E0: 35 2C 38 2C 31 35 2C 22 49 30 22 3A 98 31 35 2C |5,8,15,"I0":.15,| 000014F0: 22 52 30 3A 22 AA 56 24 AA 22 3D 22 AA 56 24 3A |"R0:".V$."=".V$:| 00001500: 84 31 35 2C 45 52 00 21 1D 38 0E 8B 20 45 52 B2 |.15,ER.!.8.. ER.| 00001510: 36 33 20 A7 20 99 22 11 11 11 22 3A 89 33 36 36 |63 . ."...":.366| 00001520: 30 00 4B 1D 42 0E 99 20 22 92 11 11 11 20 20 20 |0.K.B.. ".... | 00001530: 20 20 20 20 20 20 20 20 9F 46 49 4C 45 20 4E 4F | .FILE NO| 00001540: 54 20 46 4F 55 4E 44 1E 22 3A 8E 00 5E 1D 4C 0E |T FOUND.":..^.L.| 00001550: 49 B2 30 3A 41 B2 C5 28 56 24 29 AC 31 30 00 75 |I.0:A..(V$).10.u| 00001560: 1D 56 0E 49 B2 49 AA 31 3A 8B 49 B1 50 54 20 A7 |.V.I.I.1:.I.PT .| 00001570: 20 33 37 35 30 00 97 1D 60 0E 8B 20 54 4E 28 49 | 3750...`.. TN(I| 00001580: 29 B1 41 20 AF 20 54 4E 28 49 29 B3 41 AA 31 30 |).A . TN(I).A.10| 00001590: 20 A7 20 33 36 39 30 00 A2 1D 63 0E 89 20 33 36 | . 3690...c.. 36| 000015A0: 37 30 00 E6 1D 6A 0E 99 22 20 20 20 20 20 20 20 |70...j.." | 000015B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000015C0: 20 20 20 20 20 20 20 20 20 20 91 22 3A 99 20 22 | .":. "| 000015D0: 20 20 44 45 4C 45 54 49 4E 47 3A 20 22 3B 4E 24 | DELETING: ";N$| 000015E0: 28 49 29 22 91 22 00 11 1E 6F 0E 4A B2 30 3A 4E |(I)"."...o.J.0:N| 000015F0: 24 28 49 29 B2 C7 28 32 35 35 29 AA C7 28 32 35 |$(I)..(255)..(25| 00001600: 35 29 AA C7 28 32 35 35 29 3A 54 4E 28 49 29 B2 |5)..(255):TN(I).| 00001610: 30 00 2A 1E 74 0E 4A B2 4A AA 31 3A 8B 20 4A B1 |0.*.t.J.J.1:. J.| 00001620: B2 50 54 20 A7 20 33 36 37 30 00 40 1E 7E 0E 8B |.PT . 3670.@.~..| 00001630: 20 54 47 28 4A 29 B3 B1 49 20 A7 20 33 37 30 30 | TG(J)..I . 3700| 00001640: 00 49 1E 88 0E 4C 4F B2 4A 00 71 1E 92 0E 54 47 |.I...LO.J.q...TG| 00001650: 28 4C 4F 29 B2 54 47 28 4C 4F AA 31 29 3A 4C 4F |(LO).TG(LO.1):LO| 00001660: B2 4C 4F AA 31 3A 8B 4C 4F B3 50 54 A7 33 37 33 |.LO.1:.LO.PT.373| 00001670: 30 00 85 1E 9C 0E 54 47 28 50 54 29 B2 49 3A 89 |0.....TG(PT).I:.| 00001680: 20 33 37 30 30 00 AB 1E A6 0E 54 42 B2 31 3A 54 | 3700.....TB.1:T| 00001690: 42 24 28 31 29 B2 56 24 3A 8D 32 39 30 3A 46 49 |B$(1).V$:.290:FI| 000016A0: B2 31 3A A0 33 3A A0 31 35 3A 8E 00 E0 1E D8 0E |.1:.3:.15:......| 000016B0: 99 20 22 92 93 11 9F 44 49 53 50 4C 41 59 3A 20 |. "....DISPLAY: | 000016C0: 1F 44 49 53 50 4C 41 59 53 20 43 55 52 52 45 4E |.DISPLAYS CURREN| 000016D0: 54 20 46 49 4C 45 20 49 4E 20 54 41 42 4C 45 22 |T FILE IN TABLE"| 000016E0: 00 0F 1F E2 0E 99 20 22 11 9F 50 52 49 4E 54 3A |...... "..PRINT:| 000016F0: 20 1F 50 52 49 4E 54 53 20 43 55 52 52 45 4E 54 | .PRINTS CURRENT| 00001700: 20 46 49 4C 45 20 49 4E 20 54 41 42 4C 45 22 00 | FILE IN TABLE".| 00001710: 41 1F EC 0E 99 20 22 11 9F 42 55 49 4C 44 3A 20 |A.... "..BUILD: | 00001720: 1F 42 55 49 4C 44 53 20 41 4E 20 41 4C 50 48 41 |.BUILDS AN ALPHA| 00001730: 42 45 54 49 43 20 54 41 42 4C 45 20 46 49 4C 45 |BETIC TABLE FILE| 00001740: 22 00 6D 1F F1 0E 99 20 22 1F 46 52 4F 4D 20 41 |".m.... ".FROM A| 00001750: 4C 4C 20 54 48 45 20 49 4E 44 49 56 49 44 55 41 |LL THE INDIVIDUA| 00001760: 4C 20 54 41 50 45 20 46 49 4C 45 53 22 00 9B 1F |L TAPE FILES"...| 00001770: F6 0E 99 20 22 11 9F 53 41 56 45 3A 20 1F 53 41 |... "..SAVE: .SA| 00001780: 56 45 53 20 54 48 45 20 43 55 52 52 45 4E 54 20 |VES THE CURRENT | 00001790: 54 41 42 4C 45 20 46 49 4C 45 22 00 B8 1F FB 0E |TABLE FILE".....| 000017A0: 99 20 22 1F 54 4F 20 44 49 53 4B 20 41 53 20 46 |. ".TO DISK AS F| 000017B0: 49 4C 45 20 39 39 39 22 00 E7 1F 0A 0F 99 20 22 |ILE 999"...... "| 000017C0: 11 9F 41 44 44 3A 20 1F 46 4F 52 20 54 41 50 45 |..ADD: .FOR TAPE| 000017D0: 20 46 49 4C 45 20 53 50 45 43 49 46 49 45 44 2C | FILE SPECIFIED,| 000017E0: 20 46 49 52 53 54 22 00 15 20 14 0F 99 20 22 1F | FIRST".. ... ".| 000017F0: 44 45 4C 45 54 45 53 20 54 41 50 45 20 4E 55 4D |DELETES TAPE NUM| 00001800: 42 45 52 20 46 52 4F 4D 20 54 41 42 4C 45 20 46 |BER FROM TABLE F| 00001810: 49 4C 45 2C 22 00 3E 20 1E 0F 99 20 22 1F 54 48 |ILE,".> ... ".TH| 00001820: 45 4E 20 41 44 44 53 20 45 4E 54 52 49 45 53 20 |EN ADDS ENTRIES | 00001830: 54 4F 20 54 41 42 4C 45 20 46 49 4C 45 22 00 6A |TO TABLE FILE".j| 00001840: 20 28 0F 99 20 22 11 9F 4C 4F 41 44 3A 20 1F 4C | (.. "..LOAD: .L| 00001850: 4F 41 44 53 20 54 48 45 20 44 49 53 4B 20 46 49 |OADS THE DISK FI| 00001860: 4C 45 20 39 39 39 20 54 4F 22 00 87 20 2D 0F 99 |LE 999 TO".. -..| 00001870: 20 22 1F 54 48 45 20 54 41 42 4C 45 20 46 49 4C | ".THE TABLE FIL| 00001880: 45 20 20 20 20 20 22 00 B4 20 32 0F 99 20 22 11 |E ".. 2.. ".| 00001890: 9F 4D 41 49 4E 20 4D 45 4E 55 3A 20 1F 4C 4F 41 |.MAIN MENU: .LOA| 000018A0: 44 53 20 41 4E 44 20 45 58 45 43 55 54 45 53 20 |DS AND EXECUTES | 000018B0: 54 48 45 22 00 D1 20 37 0F 99 20 22 1F 4D 41 49 |THE".. 7.. ".MAI| 000018C0: 4E 20 56 43 52 20 50 52 4F 47 52 41 4D 2E 20 20 |N VCR PROGRAM. | 000018D0: 22 00 FB 20 3A 0F 99 20 22 11 9F 4C 4F 41 44 53 |".. :.. "..LOADS| 000018E0: 54 41 52 3A 20 1F 52 45 54 55 52 4E 53 20 54 4F |TAR: .RETURNS TO| 000018F0: 20 4C 4F 41 44 53 54 41 52 05 22 00 01 21 3C 0F | LOADSTAR."..!<.| 00001900: 8E 00 2B 21 A0 0F 86 20 4E 24 28 31 35 30 30 29 |..+!... N$(1500)| 00001910: 2C 54 47 28 31 35 30 30 29 2C 54 42 24 28 32 30 |,TG(1500),TB$(20| 00001920: 30 29 2C 54 4E 28 31 35 30 30 29 00 36 21 AA 0F |0),TN(1500).6!..| 00001930: 8D 20 34 31 30 30 00 41 21 D2 0F 46 49 B2 30 3A |. 4100.A!..FI.0:| 00001940: 8E 00 7F 21 04 10 50 54 B2 31 3A 54 42 B2 30 3A |...!..PT.1:TB.0:| 00001950: 5A 24 B2 C7 28 30 29 3A 4E 24 28 31 29 B2 C7 28 |Z$..(0):N$(1)..(| 00001960: 32 35 35 29 AA C7 28 32 35 35 29 AA C7 28 32 35 |255)..(255)..(25| 00001970: 35 29 3A 54 47 28 31 29 B2 31 3A 50 57 B2 30 00 |5):TG(1).1:PW.0.| 00001980: 85 21 0E 10 8E 00 B0 21 94 11 8F 20 45 58 49 54 |.!.....!... EXIT| 00001990: 20 54 4F 20 56 43 52 20 4C 49 42 52 41 52 59 20 | TO VCR LIBRARY | 000019A0: 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A | ****| 000019B0: 00 C2 21 9E 11 8B 20 46 49 B2 30 20 A7 20 34 35 |..!... FI.0 . 45| 000019C0: 36 30 00 EE 21 A8 11 99 20 22 92 20 20 20 20 20 |60..!... ". | 000019D0: 20 20 20 12 44 4F 20 59 4F 55 20 57 49 53 48 20 | .DO YOU WISH | 000019E0: 54 4F 20 53 41 56 45 20 28 59 2F 4E 29 22 00 0C |TO SAVE (Y/N)"..| 000019F0: 22 B2 11 92 31 39 38 2C 31 35 3A A1 41 24 3A 8B |"...198,15:.A$:.| 00001A00: 20 41 24 B2 22 4E 22 A7 34 35 36 30 00 20 22 BC | A$."N".4560. ".| 00001A10: 11 8B 20 41 24 B3 B1 22 59 22 A7 20 34 35 33 30 |.. A$.."Y". 4530| 00001A20: 00 30 22 C6 11 8D 33 33 30 30 3A 89 33 32 30 30 |.0"...3300:.3200| 00001A30: 00 46 22 D0 11 A0 31 35 3A 9F 31 35 2C 38 2C 31 |.F"...15:.15,8,1| 00001A40: 35 2C 22 49 30 22 00 69 22 D3 11 98 31 35 2C 22 |5,"I0".i"...15,"| 00001A50: 52 30 3A 22 AA 46 24 AA 22 3D 22 AA 46 24 3A 84 |R0:".F$."=".F$:.| 00001A60: 31 35 2C 45 52 3A A0 31 35 00 7A 22 D7 11 8B 20 |15,ER:.15.z"... | 00001A70: 45 52 B3 B1 36 33 20 A7 20 80 00 97 22 DA 11 97 |ER..63 . ..."...| 00001A80: 20 35 33 32 38 30 2C 33 3A 97 20 35 33 32 38 31 | 53280,3:. 53281| 00001A90: 2C 33 3A 99 22 9F 22 00 D4 22 E4 11 99 22 93 11 |,3:.".".."..."..| 00001AA0: 11 11 11 11 11 11 11 11 11 11 11 11 22 A3 28 34 |............".(4| 00001AB0: 30 AB C3 28 4E 24 29 AB 31 30 29 AD 32 29 22 CC |0..(N$).10).2)".| 00001AC0: 4F 41 44 49 4E 47 20 22 C7 28 33 34 29 4E 24 C7 |OADING ".(34)N$.| 00001AD0: 28 33 34 29 00 00 23 EE 11 99 22 9F 13 11 11 11 |(34)..#...".....| 00001AE0: 4E 45 57 22 3A 99 22 11 11 4C 4F 41 44 22 C7 28 |NEW":."..LOAD".(| 00001AF0: 33 34 29 46 24 C7 28 33 34 29 22 2C 38 2C 31 22 |34)F$.(34)",8,1"| 00001B00: 00 20 23 F8 11 99 22 11 11 11 11 3F 43 C8 28 31 |. #..."....?C.(1| 00001B10: 34 34 29 43 C8 28 31 34 32 29 3A 52 55 4E 13 22 |44)C.(142):RUN."| 00001B20: 00 43 23 02 12 97 31 39 38 2C 33 3A 97 36 33 31 |.C#...198,3:.631| 00001B30: 2C 31 33 3A 97 36 33 32 2C 31 33 3A 97 36 33 33 |,13:.632,13:.633| 00001B40: 2C 31 33 00 00 00 |,13... |
....Z.. ".":. 53280,0:. 53281,0.1.D.. 40
00:. 3000.B.".. "....... BUIL
DING TABLE ."...$.. "NUM -------
NAME ------ TAPE.ENTRY."...,.. V.1 .
TB :.1000:.:..S.... --------------------
- ERROR CHK......15,E,E$,A,B......E.20.E
.73........E.50...+...."...........THERE
IS AN I/O PROBLEM".O....".........ERROR
# IS";E;" ";E$.S.&.."........TRACK";A;"
; SECTOR";B.~.0. 8: 15...:.."...........
PRESS SPACE TO CONTINUE...";...D..B(203)
.64.580.S.N..B(203)..60.580...X..:.90...
... OPEN COMMAND CHNL..... 15:. 15,8,15:
.490:..0...RH..(RN.256):RL.RN.(256.RH):.
.C....900:V$.TB$(V).B....15,"R0:".V$."="
.V$:.15,ER.~.... ER..63 . RN.8: . 1100..
....8,8,8,"0:".(V$).",L,".G(40):.490.W..
.. RN.1.8:.950:.15,"P".G(96.8).G(RL).G(R
H).G(1)......490:.8,AA$,BB$,CC$,DD$,EE$:
.490...... AA$.G(255). RN.8: . 1090...$.
. CC$."". 1090.F.... 1300:. STR IN TAB.L
.B...^.L. 8: 15:FI.1:......8,8,8,"0:".(
V$).",L,".G(LN)...... IN TAB.....PT.PT.1
:N$(PT).CC$:TG(PT).PT:TN(PT).E(V$).10.RN
... ..".
."...#.. PT.1 ;"- ";CC$;.30);E(V$
);RN;".".%.(.. 1800:..9.X.. GET DIRECTOR
Y.I... 15:.15,8,15,"I0":.490:.2,8,2,"#":
.490:BT.0...... "........ GETTI
NG DIRECTORY.".....T$.G(18):S$.G(1).....
. 1600:.#2,T$,S$... ..I.1. 8:BP.2.((I.1)
.32):.1650:A1.0......#2,A$:.F(A$.Z$)..13
2 . 1520......#2,A$,A$.<....#2,A$:A.F(A
$.Z$):. A.160 . 1500.Q.H..A.48.A.57. 152
0.M.R.A.A.48:A1.A1.10.A:.1470...... A1.1
.A1.200 . 1520...... 1700......:. F(T$.Z
$)..0.1430..... 2: 15:..G.@.. READ "U1".
..J..15,"U1";2;0;F(T$.Z$);F(S$.Z$):. 490
...T.....R.. BUFF PTR...|..15,"B-P";2;BP
:. 490.$.....P...A$.D(A1):L.C(A$):TB.TB.
1:. TB.200. 1740.J...TB$(TB).J(A$,2,(L.1
))...... ".
.".E.B.. ".. DIRECTORY ENTRY .
";TB$(TB);".".K.L........ INSERT IN TABL
E.....LO.1:HI.PT.1:YW.0:.PT.(2.PW). PW.P
W.1:.1810.1...DF..((HI.LO).2..5):MD.LO.D
F.C.&.. DF.0 . 1870.\.+.YW.YW.1:.YW.PW.
1870..0.. CC$.N$(TG(MD)) . LO.MD:.1820.
..:.. CC$.N$(TG(MD)) . 1870.H.D.HI.MD:DF
..((HI.LO).2..5):MD.HI.DF:. 1830...N.LO.
PT:. CC$.N$(TG(MD)). MD.MD.1...X.TG(LO).
TG(LO.1):LO.LO.1:. LO.MD . 1880.'.B.TG(M
D).PT:..=.L.. ADD ON END/REPL.P.V.. "...
. BUILD ON END OF TABLE? (Y/N)":TB.0
...... 198,0:. 198,15:.A$.B.... A$."N" .
. ". REPLACING TABLE!.":.4100
:..V.... A$.."Y". 1920...... ". BUIL
DING ON THE END OF TABLE!.":....P.. DISP
LAY NAMES.&.Z.LC.0:I.0.O.... ".....
ALPHABETIC LIST"...... "NUM
----- NAME ------ TAPE.ENTRY .".....
LC.LC.1:. LC.15 . .2300:.2200.....I.I.1:
S1.2..1.(I.10)..1.(I.100)..1.(I.1000):L.
C(N$(TG(I))).....S2.23.L.1.(TN(TG(I)).10
0).1.(TN(TG(I)).1000).B.... J(N$(TG(I)),
1,1).G(255). LC.LC.1:.2070.O.... ".";I;.
S1);N$(TG(I));.S2);TN(TG(I)).10...... I.
(PT.1) . 2050... ........ CLEAR PAGE....
.. ".....":. J.1 . 16:."
"......:. ".....":.
...... WAIT...... 198,0:. 198,15:.A$:LC.
1:..-.D.. PRINT NAMES.Y.N.LC.0:I.0: 4:.4
,4:.4,G(0):. ST..0 . 2590.G.S. 4:.4,4,0.
..X..4," ALPHABETIC LIST".I..
..4," NUM ----- NAME ------ T
APE.ENTRY ";G(13).....LC.LC.1:. LC.56 .
LC.0:.J.1.7:.4,G(0):.:.2520.;...I.I.1:S
1.2..1.(I.10)..1.(I.100)..1.(I.1000):L.C
(N$(TG(I))).L...S2.23.L.1.(TN(TG(I)).100
).1.(TN(TG(I)).1000)...... J(N$(TG(I)),1
,1).G(255). 2570.B....4," ";I;.S1);N
$(TG(I));.S2);TN(TG(I)).10.X.... I.(PT.1
) . 2550..... 4:.......:."... PR
INTER UNAVAILABLE":....... MENU.Q.B.."."
:. "...UCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCI";...L.. ".. ..D...ISPLAY .
.L...OAD ..A...DD .";.U.V.
. ".. ..P...RINT ..S...AVE
..B...UILD .";...... ".. ..M...AI
N MENU ..H...ELP L..O...ADSTA
R .";.L.... ".JCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCK";.G.... 198,0:. 198,1
5:. A$:...... A$."D" . . 2000:.3200:. DI
SP...... A$."P" . . 2500:.3200:. PRINT..
.... A$."M" . F$."VCR LIBRARY":N$."MAIN
MENU":.4500...... A$."O" . F$."HELLO CON
NECT":N$."LOADSTAR":.4500.;.... A$."S" .
.3300:.3200:. SAVE.\.... A$."A" . .3500
:.3200:. ADD.~.&.. A$."L" . .3400:.3200:
. LOAD. .+.. A$."H" . .3800:.3200:. LOAD
.N.0.. A$."B" . .1900:.1400:.290:.3200:.
BUILD.X.N..3050......".................
....... ..ANY KEY CONTINUES".5.
... 198,0:. 198,15:.A$:. 3010.E.... SAVE
FILE.W.... ". SAVING FILE!
":.PT.1. 3330...... ". .NO F
ILE TO SAVE.":.3200.P... 15:.15,8,15,"I0
":.490:.15,"S0:999":.490..... 15:.15,8,1
5,"I0":.490:.3,8,3,"@0:999,S,W":.490.2..
.. I.1 . PT:. H(N$(TG(I)),1).G(255) . 33
60.Y....3,I:.3,N$(TG(I)):.3,TN(TG(I)):X.
I... ..:.3,X.1:.3,G(255).G(255).G(255):.
3,0...*. 3: 15:FI.0:....H.. LOAD FILE.V.
M.. ". LOADING FILE! ":PT.
0:PW.0...R. 15:.15,8,15,"I0":.490:.15,"R
0:999=999":.15,ER...\.. ER..63 . 3490.N.
F. 15:.15,8,15,"I0":.490:.3,8,3,"999,S,R
":.490.R.P.PT.PT.1:.3,TG(PT),N$(PT),TN(P
T)...Z.. H(N$(PT),1)..G(255) . 3440.F...
TG(PT).PT:N$(PT).G(255).G(255).G(255):TN
(PT).0.X... 3: 15:FI.1:....... "
..NO FILE TO LOAD..":....... ADD/UPDA
TE.I.... "...... ENTER ADD FILE N
AME.":A1.0:A1$."".G.... "
UCCCCI"...... " . ."...
... " JCCCCK .."...... A$:
. A$."". 3520.W.J.A.F(A$):. A.13 . 3570.
..T.. A.20 . 3600...... A.48.A.57.3520..
.... C(A1$).3 .A1$.A1$.A$.A.... " .....
.........";A1$;" .":.3520.C...A.E(A1$):.
A.1 . A.200 . 3590.T...V$.A1$:.3630....
.. ".... .INVALID FILE NAME.":..
....L.C(A1$):L.L.1:.L.0. L.0.U...A1$.J(A
1$,1,L):.3562..... 15:.15,8,15,"I0":.15,
"R0:".V$."=".V$:.15,ER.!.8.. ER.63 . .".
..":.3660.K.B.. ".... .FILE NO
T FOUND.":..^.L.I.0:A.E(V$).10.U.V.I.I.1
:.I.PT . 3750...`.. TN(I).A . TN(I).A.10
. 3690...C.. 3670...J.."
.":. " DELETING: ";N$
(I)"."...O.J.0:N$(I).G(255).G(255).G(255
):TN(I).0.*.T.J.J.1:. J..PT . 3670.@.~..
TG(J)..I . 3700.I...LO.J.Q...TG(LO).TG(
LO.1):LO.LO.1:.LO.PT.3730.....TG(PT).I:.
3700.....TB.1:TB$(1).V$:.290:FI.1: 3: 1
5:....X.. "....DISPLAY: .DISPLAYS CURREN
T FILE IN TABLE"...... "..PRINT: .PRINTS
CURRENT FILE IN TABLE".A.... "..BUILD:
.BUILDS AN ALPHABETIC TABLE FILE".M....
".FROM ALL THE INDIVIDUAL TAPE FILES"...
... "..SAVE: .SAVES THE CURRENT TABLE FI
LE"...... ".TO DISK AS FILE 999"...... "
..ADD: .FOR TAPE FILE SPECIFIED, FIRST".
. ... ".DELETES TAPE NUMBER FROM TABLE F
ILE,".> ... ".THEN ADDS ENTRIES TO TABLE
FILE".J (.. "..LOAD: .LOADS THE DISK FI
LE 999 TO".. -.. ".THE TABLE FILE ".
. 2.. "..MAIN MENU: .LOADS AND EXECUTES
THE".Q 7.. ".MAIN VCR PROGRAM. ".. :..
"..LOADSTAR: .RETURNS TO LOADSTAR."..!<.
..+! .. N$(1500),TG(1500),TB$(200),TN(15
00).6!... 4100.A!R.FI.0:..!..PT.1:TB.0:
Z$.G(0):N$(1).G(255).G(255).G(255):TG(1)
.1:PW.0..!.....!... EXIT TO VCR LIBRARY
****.B!... FI.0 . 4560..!...
". .DO YOU WISH TO SAVE (Y/N)"..
"...198,15:.A$:. A$."N".4560. "... A$.."
Y". 4530.0"F..3300:.3200.F"P. 15:.15,8,1
5,"I0".I"S..15,"R0:".F$."=".F$:.15,ER: 1
5.Z"W.. ER..63 . ..."Z.. 53280,3:. 53281
,3:.".".T"..."..............".(40.C(N$).
10).2)"LOADING "G(34)N$G(34)..#...".....
NEW":."..LOAD"G(34)F$G(34)",8,1". #...".
...?CH(144)CH(142):RUN.".C#...198,3:.631
,13:.632,13:.633,13...
> CLICK IMAGE PREVIEW FOR FULL MODAL