MOVIE LOG -40/80
FILE INFORMATION
FILENAME(S): MOVIE LOG -40/80
FILE TYPE(S): PRG
FILE SIZE: 6.1K
FIRST SEEN: 2025-10-20 14:32:05
APPEARS ON: 2 disk(s)
FILE HASH
21cb93e07f471cbd1cfbee16267e4c655108d86b0993ff709ad517b4dbbe2a5d
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| WOLF S SOFT C019 | MOVIE LOG -40/80 | PRG | Treasure Chest - Klaus Der Suhler | 10 | 1 | DOWNLOAD FILE |
| 11 | MOVIE LOG -40/80 | PRG | Treasure Chest - Plattfuss | 10 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 07 1C 0A 00 E8 00 12 1C 14 00 D7 20 31 36 |............. 16| 00000010: 30 30 00 1C 1C 1E 00 8D 31 33 37 30 00 2B 1C 28 |00......1370.+.(| 00000020: 00 99 C7 28 32 37 29 3B 22 4D 22 00 40 1C 32 00 |...(27);"M".@.2.| 00000030: 99 20 C7 28 31 34 37 29 20 3A 20 8C 20 3A 20 9C |. .(147) : . : .| 00000040: 00 62 1C 3C 00 99 22 9A 20 20 2A 2A 2A 12 20 54 |.b.<..". ***. T| 00000050: 48 45 20 4D 4F 56 49 45 20 4C 4F 47 92 2A 2A 2A |HE MOVIE LOG.***| 00000060: 22 3B 00 6B 1C 46 00 99 22 99 22 00 85 1C 50 00 |";.k.F.."."...P.| 00000070: 99 3A 81 49 B2 31 20 A4 20 35 3A 99 20 49 22 2D |.:.I.1 . 5:. I"-| 00000080: 22 3A 99 3A 82 00 AD 1C 5A 00 99 20 C7 28 31 39 |":.:....Z.. .(19| 00000090: 29 3A 99 3A 99 3A 81 49 B2 31 A4 35 3A 87 44 24 |):.:.:.I.1.5:.D$| 000000A0: 3A 99 20 A6 35 29 3B 44 24 3A 99 3A 82 00 FA 1C |:. .5);D$:.:....| 000000B0: 64 00 83 20 53 54 41 52 54 20 4E 45 57 20 46 49 |d.. START NEW FI| 000000C0: 4C 45 2C 20 41 44 44 20 4D 4F 56 49 45 53 20 54 |LE, ADD MOVIES T| 000000D0: 4F 20 46 49 4C 45 2C 20 4C 49 53 54 20 41 4C 4C |O FILE, LIST ALL| 000000E0: 20 4D 4F 56 49 45 53 2C 20 4C 49 53 54 20 53 49 | MOVIES, LIST SI| 000000F0: 4E 47 4C 45 20 4D 4F 56 49 45 00 05 1D 6E 00 83 |NGLE MOVIE...n..| 00000100: 20 45 58 49 54 00 30 1D 78 00 99 20 3A 20 99 20 | EXIT.0.x.. : . | 00000110: C7 28 31 38 29 3B 20 22 43 48 4F 4F 53 45 20 42 |.(18); "CHOOSE B| 00000120: 59 20 4E 55 4D 42 45 52 22 3B C7 28 31 34 36 29 |Y NUMBER";.(146)| 00000130: 00 44 1D 82 00 A1 20 41 3A 8B 20 41 B3 31 20 A7 |.D.... A:. A.1 .| 00000140: 20 31 33 30 00 53 1D 8C 00 99 C7 28 32 37 29 3B | 130.S.....(27);| 00000150: 22 4C 22 00 71 1D 96 00 91 20 41 20 89 20 31 36 |"L".q.... A . 16| 00000160: 30 2C 33 32 30 2C 34 39 30 2C 37 31 30 2C 38 39 |0,320,490,710,89| 00000170: 30 00 8D 1D A0 00 8F 2A 2A 2A 20 43 52 45 41 54 |0......*** CREAT| 00000180: 45 20 41 20 4D 4F 56 49 45 20 2A 2A 2A 00 A0 1D |E A MOVIE ***...| 00000190: AA 00 FE 1A 31 30 2C 35 2C 33 31 2C 31 37 2C 31 |....10,5,31,17,1| 000001A0: 00 40 1E B4 00 99 22 96 12 20 20 20 20 20 20 20 |.@....".. | 000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B | ";| 00000240: 00 E0 1E BE 00 99 22 96 12 20 20 20 20 20 20 20 |......".. | 00000250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B | ";| 000002E0: 00 F5 1E C8 00 99 22 96 12 20 20 20 20 20 20 20 |......".. | 000002F0: 20 20 20 22 3B 00 08 1F D2 00 FE 1A 31 31 2C 36 | ";.......11,6| 00000300: 2C 33 30 2C 31 35 2C 31 00 23 1F DC 00 85 20 22 |,30,15,1.#.... "| 00000310: 48 4F 57 20 4D 41 4E 59 20 4D 4F 56 49 45 53 22 |HOW MANY MOVIES"| 00000320: 3B 4E 25 00 34 1F E6 00 F2 22 4D 4F 56 49 45 20 |;N%.4...."MOVIE | 00000330: 4C 4F 47 22 00 3A 1F F0 00 F3 00 58 1F FA 00 9F |LOG".:.....X....| 00000340: 39 2C 38 2C 39 2C 20 22 30 3A 4D 4F 56 49 45 20 |9,8,9, "0:MOVIE | 00000350: 4C 4F 47 2C 53 2C 57 22 00 83 1F 04 01 98 39 2C |LOG,S,W"......9,| 00000360: 4E 25 3A 8F 20 45 4E 54 45 52 20 4E 55 4D 42 45 |N%:. ENTER NUMBE| 00000370: 52 20 4F 46 20 4D 5F 56 49 45 53 20 49 4E 20 46 |R OF M_VIES IN F| 00000380: 49 4C 45 00 B1 1F 0E 01 86 20 4E 41 24 28 4E 25 |ILE...... NA$(N%| 00000390: 29 2C 41 44 24 28 4E 25 29 2C 43 54 24 28 4E 25 |),AD$(N%),CT$(N%| 000003A0: 29 2C 53 41 24 28 4E 25 29 2C 5A 49 24 28 4E 25 |),SA$(N%),ZI$(N%| 000003B0: 29 00 CB 1F 18 01 81 20 49 B2 31 A4 4E 25 3A 8D |)...... I.1.N%:.| 000003C0: 39 31 30 3A 8D 31 30 30 30 3A 82 00 D2 1F 22 01 |910:.1000:....".| 000003D0: A0 39 00 DC 1F 2C 01 8D 31 33 37 30 00 E5 1F 36 |.9...,..1370...6| 000003E0: 01 89 20 34 30 00 08 20 40 01 8F 20 2A 2A 2A 20 |.. 40.. @.. *** | 000003F0: 41 44 44 20 54 4F 20 45 58 49 53 54 49 4E 47 30 |ADD TO EXISTING0| 00000400: 46 49 4C 45 20 2A 2A 2A 00 12 20 4A 01 8D 31 35 |FILE ***.. J..15| 00000410: 33 30 00 23 20 54 01 99 20 C7 28 31 34 37 29 3A |30.# T.. .(147):| 00000420: 99 3A 99 00 47 20 5E 01 85 20 22 4E 55 4D 42 45 |.:..G ^.. "NUMBE| 00000430: 52 20 4F 46 20 4D 4F 56 49 45 53 20 54 4F 20 41 |R OF MOVIES TO A| 00000440: 44 44 22 3B 4E 4E 25 00 65 20 68 01 9F 39 2C 38 |DD";NN%.e h..9,8| 00000450: 2C 39 2C 20 22 30 3A 4D 4F 56 49 45 20 4C 4F 47 |,9, "0:MOVIE LOG| 00000460: 2C 53 2C 52 22 00 9B 20 72 01 84 39 2C 4E 25 3A |,S,R".. r..9,N%:| 00000470: 20 8F 20 53 45 45 20 48 4F 57 20 4D 41 4E 59 30 | . SEE HOW MANY0| 00000480: 4D 4F 56 49 45 53 20 41 52 45 20 49 4E 20 45 58 |MOVIES ARE IN EX| 00000490: 49 53 54 49 4E 47 20 46 49 4C 45 00 AA 20 7C 01 |ISTING FILE.. |.| 000004A0: 4E 50 25 B2 4E 25 AA 4E 4E 25 00 E1 20 86 01 86 |NP%.N%.NN%.. ...| 000004B0: 20 4E 41 24 28 4E 50 25 29 2C 20 41 44 24 28 4E | NA$(NP%), AD$(N| 000004C0: 50 25 29 2C 20 43 54 24 28 4E 50 25 29 2C 20 53 |P%), CT$(NP%), S| 000004D0: 41 24 28 4E 50 25 29 2C 20 5A 49 24 28 4E 50 25 |A$(NP%), ZI$(NP%| 000004E0: 29 00 F5 20 90 01 81 49 B2 31 A4 4E 25 3A 8D 31 |).. ...I.1.N%:.1| 000004F0: 30 37 30 3A 82 00 FC 20 9A 01 A0 39 00 1B 21 A4 |070:... ...9..!.| 00000500: 01 9F 39 2C 38 2C 39 2C 20 22 40 30 3A 4D 4F 56 |..9,8,9, "@0:MOV| 00000510: 49 45 20 4C 4F 47 2C 53 2C 57 22 00 26 21 AE 01 |IE LOG,S,W".&!..| 00000520: 98 39 2C 4E 50 25 00 42 21 B8 01 81 49 B2 28 4E |.9,NP%.B!...I.(N| 00000530: 25 AA 31 29 20 A4 20 4E 50 25 3A 8D 20 39 31 30 |%.1) . NP%:. 910| 00000540: 3A 82 00 59 21 C2 01 81 49 B2 31 20 A4 20 4E 50 |:..Y!...I.1 . NP| 00000550: 25 3A 8D 31 30 30 30 3A 82 00 60 21 CC 01 A0 39 |%:.1000:..`!...9| 00000560: 00 6A 21 D6 01 8D 31 33 37 30 00 73 21 E0 01 89 |.j!...1370.s!...| 00000570: 20 34 30 00 91 21 EA 01 8F 20 2A 2A 2A 20 52 45 | 40..!... *** RE| 00000580: 41 44 20 53 55 42 52 4F 55 54 49 4E 45 20 2A 2A |AD SUBROUTINE **| 00000590: 2A 00 9A 21 F4 01 8D 36 38 30 00 3B 22 FE 01 99 |*..!...680.;"...| 000005A0: 22 05 12 20 20 20 20 20 20 20 20 20 20 20 20 20 |".. | 000005B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000630: 20 20 20 20 20 20 20 20 20 22 3B 00 DC 22 08 02 | ";.."..| 00000640: 99 22 05 12 20 20 20 20 20 20 20 20 20 20 20 20 |.".. | 00000650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000670: 20 20 20 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000006A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000006B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000006C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000006D0: 20 20 20 20 20 20 20 20 20 20 22 3B 00 7D 23 12 | ";.}#.| 000006E0: 02 99 22 05 12 20 20 20 20 20 20 20 20 20 20 20 |..".. | 000006F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000770: 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 1C 24 | ";..$| 00000780: 1C 02 99 22 05 12 20 20 20 20 20 20 20 20 20 20 |...".. | 00000790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000007A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000007B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000007C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000007D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000007E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000007F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000810: 20 20 20 20 20 20 20 20 20 20 22 3B 00 2F 24 26 | ";./$&| 00000820: 02 FE 1A 31 30 2C 32 2C 33 33 2C 32 32 2C 31 00 |...10,2,33,22,1.| 00000830: 4B 24 30 02 9F 39 2C 38 2C 39 2C 20 22 4D 4F 56 |K$0..9,8,9, "MOV| 00000840: 49 45 20 4C 4F 47 2C 53 2C 52 22 00 55 24 3A 02 |IE LOG,S,R".U$:.| 00000850: 84 39 2C 4E 25 00 83 24 44 02 86 20 4E 41 24 28 |.9,N%..$D.. NA$(| 00000860: 4E 25 29 2C 41 44 24 28 4E 25 29 2C 43 54 24 28 |N%),AD$(N%),CT$(| 00000870: 4E 25 29 2C 53 41 24 28 4E 25 29 2C 5A 49 24 28 |N%),SA$(N%),ZI$(| 00000880: 4E 25 29 00 99 24 4E 02 81 49 B2 31 20 A4 20 4E |N%)..$N..I.1 . N| 00000890: 25 3A 8D 31 30 37 30 3A 82 00 A0 24 58 02 A0 39 |%:.1070:...$X..9| 000008A0: 00 B6 24 62 02 81 49 B2 31 20 A4 20 4E 25 3A 8D |..$b..I.1 . N%:.| 000008B0: 31 31 34 30 3A 82 00 D2 24 6C 02 99 20 22 9A 28 |1140:...$l.. ".(| 000008C0: 4D 2F 50 29 20 4D 45 4E 55 2F 50 52 49 4E 54 45 |M/P) MENU/PRINTE| 000008D0: 52 22 00 E9 24 76 02 A1 20 41 24 3A 8B 20 41 24 |R"..$v.. A$:. A$| 000008E0: B2 22 22 20 A7 20 36 33 30 00 01 25 80 02 8B 20 |."" . 630..%... | 000008F0: 41 24 20 B2 20 22 50 22 20 A7 20 8D 20 31 32 30 |A$ . "P" . . 120| 00000900: 30 00 0B 25 8A 02 8D 31 33 37 30 00 1A 25 94 02 |0..%...1370..%..| 00000910: 99 C7 28 32 37 29 3B 22 4C 22 00 23 25 9E 02 89 |..(27);"L".#%...| 00000920: 20 34 30 00 32 25 A8 02 99 C7 28 32 37 29 3B 22 | 40.2%....(27);"| 00000930: 4D 22 00 44 25 B2 02 FE 1A 39 2C 31 2C 33 34 2C |M".D%....9,1,34,| 00000940: 32 34 2C 31 00 4A 25 BC 02 8E 00 6A 25 C6 02 8F |24,1.J%....j%...| 00000950: 20 2A 2A 2A 20 53 45 41 52 43 48 20 53 55 42 52 | *** SEARCH SUBR| 00000960: 4F 55 54 49 4E 45 20 2A 2A 2A 00 79 25 D0 02 99 |OUTINE ***.y%...| 00000970: C7 28 32 37 29 3B 22 4D 22 00 83 25 DA 02 8D 31 |.(27);"M"..%...1| 00000980: 34 36 30 00 9D 25 E4 02 85 20 22 4D 4F 56 49 45 |460..%... "MOVIE| 00000990: 20 54 4F 20 46 49 4E 44 22 3B 4E 41 24 00 C1 25 | TO FIND";NA$..%| 000009A0: EE 02 85 20 22 53 43 52 45 45 4E 28 53 29 20 4F |... "SCREEN(S) O| 000009B0: 52 20 50 52 49 4E 54 45 52 28 50 29 22 3B 4F 50 |R PRINTER(P)";OP| 000009C0: 24 00 DD 25 F8 02 9F 39 2C 38 2C 39 2C 20 22 4D |$..%...9,8,9, "M| 000009D0: 4F 56 49 45 20 4C 4F 47 2C 53 2C 52 22 00 E7 25 |OVIE LOG,S,R"..%| 000009E0: 02 03 84 39 2C 4E 25 00 15 26 0C 03 86 20 4E 41 |...9,N%..&... NA| 000009F0: 24 28 4E 25 29 2C 41 44 24 28 4E 25 29 2C 43 54 |$(N%),AD$(N%),CT| 00000A00: 24 28 4E 25 29 2C 53 41 24 28 4E 25 29 2C 5A 49 |$(N%),SA$(N%),ZI| 00000A10: 24 28 4E 25 29 00 2A 26 16 03 81 20 49 B2 31 20 |$(N%).*&... I.1 | 00000A20: A4 20 4E 25 3A 8D 31 30 37 30 00 51 26 20 03 8B |. N%:.1070.Q& ..| 00000A30: 20 4E 41 24 28 49 29 20 B2 20 4E 41 24 20 AF 20 | NA$(I) . NA$ . | 00000A40: 4F 50 24 20 B2 22 53 22 20 A7 20 8D 20 31 31 34 |OP$ ."S" . . 114| 00000A50: 30 00 78 26 2A 03 8B 20 4E 41 24 28 49 29 20 B2 |0.x&*.. NA$(I) .| 00000A60: 20 4E 41 24 20 AF 20 4F 50 24 20 B2 22 50 22 20 | NA$ . OP$ ."P" | 00000A70: A7 20 8D 20 31 32 39 30 00 7E 26 34 03 82 00 85 |. . 1290.~&4....| 00000A80: 26 3E 03 A0 39 00 AB 26 48 03 99 3A 99 3A 99 3A |&>..9..&H..:.:.:| 00000A90: 99 22 05 48 49 54 20 41 4E 59 20 4B 45 59 20 54 |.".HIT ANY KEY T| 00000AA0: 4F 20 43 4F 4E 54 49 4E 55 45 22 00 C6 26 52 03 |O CONTINUE"..&R.| 00000AB0: A1 20 41 4E 24 3A 8B 20 41 4E 24 20 B2 20 22 22 |. AN$:. AN$ . ""| 00000AC0: 20 A7 20 38 35 30 00 D0 26 5C 03 8D 31 33 37 30 | . 850..&\..1370| 00000AD0: 00 DF 26 66 03 99 C7 28 32 37 29 3B 22 4C 22 00 |..&f...(27);"L".| 00000AE0: E8 26 70 03 89 20 34 30 00 FB 26 7A 03 8F 20 2A |.&p.. 40..&z.. *| 00000AF0: 2A 2A 20 45 58 49 54 20 2A 2A 2A 00 01 27 84 03 |** EXIT ***..'..| 00000B00: 80 00 20 27 8E 03 8F 20 2A 2A 2A 20 49 4E 50 55 |.. '... *** INPU| 00000B10: 54 20 53 55 42 52 4F 55 54 49 4E 45 20 2A 2A 2A |T SUBROUTINE ***| 00000B20: 00 32 27 98 03 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D |.2'..."---------| 00000B30: 2D 22 00 43 27 A2 03 99 22 54 49 54 4C 45 3A 22 |-".C'..."TITLE:"| 00000B40: 3B 49 3B 00 50 27 AC 03 85 20 4E 41 24 28 49 29 |;I;.P'... NA$(I)| 00000B50: 00 6A 27 AD 03 8B 4E 41 24 28 49 29 B2 22 22 A7 |.j'...NA$(I)."".| 00000B60: 4E 41 24 28 49 29 B2 22 20 22 00 81 27 B6 03 85 |NA$(I)." "..'...| 00000B70: 20 22 54 41 50 45 20 23 3A 22 3B 41 44 24 28 49 | "TAPE #:";AD$(I| 00000B80: 29 00 9B 27 B7 03 8B 41 44 24 28 49 29 B2 22 22 |)..'...AD$(I).""| 00000B90: A7 41 44 24 28 49 29 B2 22 20 22 00 B1 27 C0 03 |.AD$(I)." "..'..| 00000BA0: 85 20 22 53 54 41 52 3A 22 3B 20 43 54 24 28 49 |. "STAR:"; CT$(I| 00000BB0: 29 00 CB 27 C1 03 8B 43 54 24 28 49 29 B2 22 22 |)..'...CT$(I).""| 00000BC0: A7 43 54 24 28 49 29 B2 22 20 22 00 E6 27 CA 03 |.CT$(I)." "..'..| 00000BD0: 85 20 22 54 59 50 45 20 43 4F 44 45 3A 22 3B 20 |. "TYPE CODE:"; | 00000BE0: 53 41 24 28 49 29 00 00 28 CB 03 8B 53 41 24 28 |SA$(I)..(...SA$(| 00000BF0: 49 29 B2 22 22 A7 53 41 24 28 49 29 B2 22 20 22 |I)."".SA$(I)." "| 00000C00: 00 19 28 D4 03 85 20 22 52 45 4D 41 52 4B 53 3A |..(... "REMARKS:| 00000C10: 22 3B 20 5A 49 24 28 49 29 00 33 28 D5 03 8B 5A |"; ZI$(I).3(...Z| 00000C20: 49 24 28 49 29 B2 22 22 A7 5A 49 24 28 49 29 B2 |I$(I)."".ZI$(I).| 00000C30: 22 20 22 00 39 28 DE 03 8E 00 59 28 E8 03 8F 20 |" ".9(....Y(... | 00000C40: 2A 2A 2A 20 50 52 49 4E 54 23 20 53 55 42 52 4F |*** PRINT# SUBRO| 00000C50: 55 54 49 4E 45 20 2A 2A 2A 00 67 28 F2 03 98 39 |UTINE ***.g(...9| 00000C60: 2C 4E 41 24 28 49 29 00 75 28 FC 03 98 39 2C 41 |,NA$(I).u(...9,A| 00000C70: 44 24 28 49 29 00 83 28 06 04 98 39 2C 43 54 24 |D$(I)..(...9,CT$| 00000C80: 28 49 29 00 91 28 10 04 98 39 2C 53 41 24 28 49 |(I)..(...9,SA$(I| 00000C90: 29 00 9F 28 1A 04 98 39 2C 5A 49 24 28 49 29 00 |)..(...9,ZI$(I).| 00000CA0: A5 28 24 04 8E 00 C6 28 2E 04 8F 20 2A 2A 2A 20 |.($....(... *** | 00000CB0: 49 4E 50 55 54 23 20 53 55 42 52 4F 55 54 49 4E |INPUT# SUBROUTIN| 00000CC0: 45 53 20 2A 2A 2A 00 D4 28 38 04 84 39 2C 4E 41 |ES ***..(8..9,NA| 00000CD0: 24 28 49 29 00 E2 28 42 04 84 39 2C 41 44 24 28 |$(I)..(B..9,AD$(| 00000CE0: 49 29 00 F0 28 4C 04 84 39 2C 43 54 24 28 49 29 |I)..(L..9,CT$(I)| 00000CF0: 00 FE 28 56 04 84 39 2C 53 41 24 28 49 29 00 0C |..(V..9,SA$(I)..| 00000D00: 29 60 04 84 39 2C 5A 49 24 28 49 29 00 12 29 6A |)`..9,ZI$(I)..)j| 00000D10: 04 8E 00 31 29 74 04 8F 20 2A 2A 2A 20 50 52 49 |...1)t.. *** PRI| 00000D20: 4E 54 20 53 55 42 52 4F 55 54 49 4E 45 20 2A 2A |NT SUBROUTINE **| 00000D30: 2A 00 41 29 7E 04 8B 58 43 B2 32 A7 89 31 37 31 |*.A)~..XC.2..171| 00000D40: 30 00 4D 29 88 04 58 43 B2 58 43 AA 31 00 5C 29 |0.M)..XC.XC.1.\)| 00000D50: 92 04 8B 58 43 B1 32 A7 58 43 B2 30 00 9E 29 9C |...XC.2.XC.0..).| 00000D60: 04 99 22 2D 2D 2D 2D 2D 2D 22 3A 99 20 4E 41 24 |.."------":. NA$| 00000D70: 28 49 29 3A 99 3A 99 20 41 44 24 28 49 29 3A 99 |(I):.:. AD$(I):.| 00000D80: 3A 99 20 43 54 24 28 49 29 3A 99 3A 99 53 41 24 |:. CT$(I):.:.SA$| 00000D90: 28 49 29 3A 99 3A 99 20 5A 49 24 28 49 29 00 A4 |(I):.:. ZI$(I)..| 00000DA0: 29 A6 04 8E 00 C5 29 B0 04 8F 20 2A 2A 2A 20 50 |).....)... *** P| 00000DB0: 52 49 4E 54 45 52 20 53 55 42 52 4F 55 54 49 4E |RINTER SUBROUTIN| 00000DC0: 45 20 2A 2A 2A 00 CE 29 BA 04 9F 37 2C 34 00 D5 |E ***..)...7,4..| 00000DD0: 29 C4 04 9D 37 00 04 2A CE 04 81 20 49 20 B2 20 |)...7..*... I . | 00000DE0: 31 20 A4 20 4E 25 3A 99 20 41 44 24 28 49 29 3A |1 . N%:. AD$(I):| 00000DF0: 99 20 4E 41 24 28 49 29 3B 22 2C 20 22 3B 53 41 |. NA$(I);", ";SA| 00000E00: 24 28 49 29 00 1C 2A D8 04 99 20 43 54 24 28 49 |$(I)..*... CT$(I| 00000E10: 29 3A 99 20 5A 49 24 28 49 29 3A 99 00 22 2A E2 |):. ZI$(I):.."*.| 00000E20: 04 82 00 29 2A EC 04 98 37 00 30 2A F6 04 A0 37 |...)*...7.0*...7| 00000E30: 00 36 2A 00 05 8E 00 57 2A 0A 05 8F 20 2A 2A 2A |.6*....W*... ***| 00000E40: 20 50 52 49 4E 54 45 52 20 53 55 42 52 4F 55 54 | PRINTER SUBROUT| 00000E50: 49 4E 45 20 2A 2A 2A 00 71 2A 14 05 8F 20 2A 2A |INE ***.q*... **| 00000E60: 2A 20 53 49 4E 47 4C 45 20 46 49 4C 45 20 2A 2A |* SINGLE FILE **| 00000E70: 2A 00 7A 2A 1E 05 9F 37 2C 34 00 81 2A 28 05 9D |*.z*...7,4..*(..| 00000E80: 37 00 B2 2A 32 05 99 20 4E 41 24 28 49 29 3A 99 |7..*2.. NA$(I):.| 00000E90: 20 41 44 24 28 49 29 3A 99 20 43 54 24 28 49 29 | AD$(I):. CT$(I)| 00000EA0: 3A 99 20 53 41 24 28 49 29 3A 99 20 5A 49 24 28 |:. SA$(I):. ZI$(| 00000EB0: 49 29 00 B9 2A 3C 05 98 37 00 C0 2A 46 05 A0 37 |I)..*<..7..*F..7| 00000EC0: 00 C6 2A 50 05 8E 00 E6 2A 5A 05 8F 2A 2A 2A 57 |..*P....*Z..***W| 00000ED0: 49 4E 44 4F 57 20 46 4F 52 20 4D 41 49 4E 20 4D |INDOW FOR MAIN M| 00000EE0: 45 4E 55 2A 2A 2A 00 F8 2A 64 05 FE 1A 30 2C 30 |ENU***..*d...0,0| 00000EF0: 2C 32 35 2C 31 36 2C 31 00 98 2B 6E 05 99 22 99 |,25,16,1..+n..".| 00000F00: 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00000F10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000F20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000F30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000F40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000F50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000F60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000F70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000F80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000F90: 20 20 20 20 20 20 22 3B 00 38 2C 78 05 99 22 99 | ";.8,x..".| 00000FA0: 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00000FB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000FC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000FD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000FE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000FF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001030: 20 20 20 20 20 20 22 3B 00 D8 2C 82 05 99 22 99 | ";..,...".| 00001040: 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00001050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000010A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000010B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000010C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000010D0: 20 20 20 20 20 20 22 3B 00 F7 2C 8C 05 99 22 99 | ";..,...".| 000010E0: 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 000010F0: 20 20 20 20 20 22 3B 00 03 2D 96 05 99 22 99 12 | ";..-..."..| 00001100: 20 0A 22 00 15 2D A0 05 FE 1A 30 2C 30 2C 32 34 | ."..-....0,0,24| 00001110: 2C 31 34 2C 31 00 1B 2D AA 05 8E 00 3E 2D B4 05 |,14,1..-....>-..| 00001120: 8F 2A 2A 2A 57 49 4E 44 4F 57 20 46 4F 52 20 53 |.***WINDOW FOR S| 00001130: 45 41 52 43 48 20 4D 45 4E 55 20 2A 2A 2A 00 51 |EARCH MENU ***.Q| 00001140: 2D BE 05 FE 1A 31 32 2C 35 2C 33 37 2C 32 32 2C |-....12,5,37,22,| 00001150: 31 00 F1 2D C8 05 99 22 9F 12 20 20 20 20 20 20 |1..-...".. | 00001160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000011A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000011B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000011C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000011D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000011E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "| 000011F0: 3B 00 91 2E D2 05 99 22 9F 12 20 20 20 20 20 20 |;......".. | 00001200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "| 00001290: 3B 00 2C 2F DC 05 99 22 9F 12 20 20 20 20 20 20 |;.,/...".. | 000012A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000012B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000012C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000012D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000012E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000012F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001320: 20 20 20 20 20 20 20 20 20 20 22 3B 00 3F 2F E6 | ";.?/.| 00001330: 05 FE 1A 31 33 2C 36 2C 33 36 2C 32 30 2C 31 00 |...13,6,36,20,1.| 00001340: 45 2F F0 05 8E 00 65 2F FA 05 8F 2A 2A 2A 57 49 |E/....e/...***WI| 00001350: 4E 44 4F 57 20 46 4F 52 20 41 44 44 20 20 4D 45 |NDOW FOR ADD ME| 00001360: 4E 55 2A 2A 2A 00 77 2F 04 06 FE 1A 32 2C 39 2C |NU***.w/....2,9,| 00001370: 32 38 2C 32 33 2C 31 00 17 30 0E 06 99 22 9E 12 |28,23,1..0..."..| 00001380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000013A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000013B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000013C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000013D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000013E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000013F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001410: 20 20 20 20 20 22 3B 00 B7 30 18 06 99 22 9E 12 | ";..0..."..| 00001420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000014A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000014B0: 20 20 20 20 20 22 3B 00 2D 31 22 06 99 22 9E 12 | ";.-1".."..| 000014C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000014D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000014E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000014F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001520: 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 40 31 | ";.@1| 00001530: 2C 06 FE 1A 33 2C 31 30 2C 32 37 2C 32 31 2C 31 |,...3,10,27,21,1| 00001540: 00 46 31 36 06 8E 00 57 31 40 06 8F 2A 2A 2A 45 |.F16...W1@..***E| 00001550: 52 52 4F 52 2A 2A 2A 00 69 31 4A 06 FE 1A 32 30 |RROR***.i1J...20| 00001560: 2C 31 2C 33 38 2C 39 2C 31 00 04 32 54 06 99 22 |,1,38,9,1..2T.."| 00001570: 90 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00001580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000015A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 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 20 20 20 20 20 20 | | 000015D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000015E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000015F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001600: 20 20 22 3B 00 89 32 5E 06 99 22 90 12 20 20 20 | ";..2^..".. | 00001610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001680: 20 20 20 20 20 20 20 22 3B 00 9B 32 68 06 FE 1A | ";..2h...| 00001690: 32 31 2C 32 2C 33 37 2C 37 2C 31 00 39 33 72 06 |21,2,37,7,1.93r.| 000016A0: 99 22 97 12 20 20 20 20 20 20 20 20 20 20 20 20 |.".. | 000016B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000016C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000016D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000016E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000016F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001730: 20 20 20 20 20 20 20 22 3B 00 D7 33 7C 06 99 22 | ";..3|.."| 00001740: 97 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00001750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000017A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000017B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000017C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000017D0: 20 20 20 20 20 22 3B 00 E0 33 86 06 99 22 13 22 | ";..3..."."| 000017E0: 00 1D 34 90 06 99 22 90 92 20 45 52 52 4F 52 20 |..4...".. ERROR | 000017F0: 43 4F 4E 44 49 54 49 4F 4E 20 20 20 50 52 45 53 |CONDITION PRES| 00001800: 53 20 41 4E 59 20 4B 45 59 20 20 20 20 20 54 4F |S ANY KEY TO| 00001810: 20 43 4F 4E 54 49 4E 55 45 20 20 20 22 00 27 34 | CONTINUE ".'4| 00001820: 9A 06 A1 F9 41 4D 24 00 2D 34 A4 06 8A 00 40 34 |....AM$.-4....@4| 00001830: AE 06 99 22 48 49 54 20 41 4E 59 20 4B 45 59 22 |..."HIT ANY KEY"| 00001840: 00 49 34 B8 06 A1 F9 5A 24 00 4F 34 C2 06 E8 00 |.I4....Z$.O4....| 00001850: 5E 34 CC 06 58 43 B2 31 3A 89 31 31 38 30 00 00 |^4..XC.1:.1180..| 00001860: 00 |. |
............W 1600......1370.+.(..G(27);
"M".@.2.. G(147) : . : ..B.<..". ***. T
HE MOVIE LOG.***";.K.F.."."...P..:.I.1 .
5:. I"-":.:....Z.. G(19):.:.:.I.1.5:.D$
:. .5);D$:.:....D.. START NEW FILE, ADD
MOVIES TO FILE, LIST ALL MOVIES, LIST SI
NGLE MOVIE...N.. EXIT.0.X.. : . G(18); "
CHOOSE BY NUMBER";G(146).D.... A:. A.1 .
130.S....G(27);"L".Q.... A . 160,320,49
0,710,890... ..*** CREATE A MOVIE ***. .
....10,5,31,17,1.@...."..
";......"..
";...H..".. ";...
R...11,6,30,15,1.#.... "HOW MANY MOVIES"
;N%.4...."MOVIE LOG".:.....X....9,8,9, "
0:MOVIE LOG,S,W"......9,N%:. ENTER NUMBE
R OF M_VIES IN FILE...... NA$(N%),AD$(N%
),CT$(N%),SA$(N%),ZI$(N%).K.... I.1.N%:.
910:.1000:..R.". 9...,..1370...6.. 40..
@.. *** ADD TO EXISTING0FILE ***.. J..15
30.# T.. G(147):.:..G ^.. "NUMBER OF MOV
IES TO ADD";NN%.E H..9,8,9, "0:MOVIE LOG
,S,R".. R..9,N%: . SEE HOW MANY0MOVIES A
RE IN EXISTING FILE.. |.NP%.N%.NN%.. ...
NA$(NP%), AD$(NP%), CT$(NP%), SA$(NP%),
ZI$(NP%).. ...I.1.N%:.1070:... .. 9..!.
..9,8,9, "@0:MOVIE LOG,S,W".&!...9,NP%.B
!...I.(N%.1) . NP%:. 910:..Y!B..I.1 . NP
%:.1000:..`!L. 9.J!V..1370.S!... 40..!..
. *** READ SUBROUTINE ***..!...680.;"...
"..
";.."..
."..
";.}#.
.."..
";..$
..."..
";./$&
...10,2,33,22,1.K$0..9,8,9, "MOVIE LOG,S
,R".U$:..9,N%..$D.. NA$(N%),AD$(N%),CT$(
N%),SA$(N%),ZI$(N%)..$N..I.1 . N%:.1070:
.. $X. 9..$B..I.1 . N%:.1140:..R$L.. ".(
M/P) MENU/PRINTER"..$V.. A$:. A$."" . 63
0..%... A$ . "P" . . 1200..%...1370..%..
.G(27);"L".#%... 40.2%...G(27);"M".D%...
.9,1,34,24,1.J%....J%F.. *** SEARCH SUBR
OUTINE ***.Y%P..G(27);"M"..%Z..1460..%..
. "MOVIE TO FIND";NA$.A%... "SCREEN(S) O
R PRINTER(P)";OP$..%...9,8,9, "MOVIE LOG
,S,R"..%...9,N%..&... NA$(N%),AD$(N%),CT
$(N%),SA$(N%),ZI$(N%).*&... I.1 . N%:.10
70.Q& .. NA$(I) . NA$ . OP$ ."S" . . 114
0.X&*.. NA$(I) . NA$ . OP$ ."P" . . 1290
.~&4....&>. 9..&H..:.:.:.".HIT ANY KEY T
O CONTINUE".F&R.. AN$:. AN$ . "" . 850.P
&\..1370..&F..G(27);"L"..&P.. 40..&Z.. *
** EXIT ***..'.... '... *** INPUT SUBROU
TINE ***.2'..."----------".C'..."TITLE:"
;I;.P'... NA$(I).J'...NA$(I)."".NA$(I)."
"..'... "TAPE #:";AD$(I)..'...AD$(I).""
.AD$(I)." "..'... "STAR:"; CT$(I).K'A..C
T$(I)."".CT$(I)." "..'J.. "TYPE CODE:";
SA$(I)..(K..SA$(I)."".SA$(I)." "..(T.. "
REMARKS:"; ZI$(I).3(U..ZI$(I)."".ZI$(I).
" ".9(....Y(... *** PRINT# SUBROUTINE **
*.G(...9,NA$(I).U(...9,AD$(I)..(...9,CT$
(I)..(...9,SA$(I)..(...9,ZI$(I)..($...F(
... *** INPUT# SUBROUTINES ***.T(8..9,NA
$(I)..(B..9,AD$(I)..(L..9,CT$(I)..(V..9,
SA$(I)..)`..9,ZI$(I)..)J...1)T.. *** PRI
NT SUBROUTINE ***.A)~..XC.2..1710.M)..XC
.XC.1.\)...XC.2.XC.0..)..."------":. NA$
(I):.:. AD$(I):.:. CT$(I):.:.SA$(I):.:.
ZI$(I)..)....E)... *** PRINTER SUBROUTIN
E ***.N)...7,4.U)D..7..*N.. I . 1 . N%:.
AD$(I):. NA$(I);", ";SA$(I)..*X.. CT$(I
):. ZI$(I):.."*....)*...7.0*.. 7.6*....W
*... *** PRINTER SUBROUTINE ***.Q*... **
* SINGLE FILE ***.Z*...7,4..*(..7..*2..
NA$(I):. AD$(I):. CT$(I):. SA$(I):. ZI$(
I)..*<..7..*F. 7.F*P....*Z..***WINDOW FO
R MAIN MENU***..*D...0,0,25,16,1..+N..".
.
";.8,X..".
.
";.X,...".
.
";..,...".
. ";..-...".. ."..- .
..0,0,24,14,1..-....>-...***WINDOW FOR S
EARCH MENU ***.Q-....12,5,37,22,1..-H.."
..
";...R.."
..
";.,/..."
..
";.?/....13,6,
36,20,1.E/....E/...***WINDOW FOR ADD ME
NU***.W/....2,9,28,23,1..0..."..
";..0..."..
";.-1".."..
";.@1,...3,10,27,21,1
.F16...W1@..***ERROR***.I1J...20,1,38,9,
1..2T.."..
";..2^
.."..
";..2H...21,2,37,7,1.93R.."..
";.W3|.."..
";..3..."."..4...".
. ERROR CONDITION PRESS ANY KEY TO
CONTINUE ".'4....AM$.-4....@4..."HIT
ANY KEY".I4....Z$.O4B...^4L.XC.1:.1180..
.
> CLICK IMAGE PREVIEW FOR FULL MODAL