Multiple names: BOX PRINTER, RECORD BOX PRINT
FILE INFORMATION
FILENAME(S):
• BOX PRINTER<br>• RECORD BOX PRINT
FILE TYPE(S): PRG
FILE SIZE: 2.9K
FIRST SEEN: 2025-11-30 16:37:42
APPEARS ON: 3 disk(s)
FILE HASH
f931690cf74c9518c86bef5006fae7069b8f759fc7b47a87e918e5cedf6f4e0b
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BACCHUS OF FLT | BOX PRINTER | PRG | Fairlight CD | 13 | 20 | DOWNLOAD FILE |
| DESSW | RECORD BOX PRINT | PRG | hedning, pewp | 29 | 8 | DOWNLOAD FILE |
| DE 34 | RECORD BOX PRINT | PRG | hedning, pewp | 29 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 34 08 00 00 8F 43 4C 4F 53 45 31 3A 4F 50 |..4....CLOSE1:OP|
00000010: 45 4E 31 2C 38 2C 31 35 2C 22 53 3A 50 52 49 4E |EN1,8,15,"S:PRIN|
00000020: 54 45 52 22 3A 53 41 56 45 22 50 52 49 4E 54 45 |TER":SAVE"PRINTE|
00000030: 52 22 2C 38 00 3C 08 01 00 89 35 30 00 66 08 03 |R",8.<....50.f..|
00000040: 00 50 52 4F 47 52 41 4D 4D 45 44 20 42 59 20 48 |.PROGRAMMED BY H|
00000050: 41 52 41 4C 44 20 46 52 41 47 4E 45 52 20 38 37 |ARALD FRAGNER 87|
00000060: AB 30 33 AB 32 34 00 7B 08 04 00 52 45 56 49 53 |.03.24.{...REVIS|
00000070: 45 44 20 38 37 AB 31 31 AB 32 38 00 93 08 32 00 |ED 87.11.28...2.|
00000080: 50 4C B2 37 32 3A 8F 20 50 41 50 45 52 4C 45 4E |PL.72:. PAPERLEN|
00000090: 47 48 54 00 9D 08 3C 00 8D 31 30 30 30 00 D9 08 |GHT...<..1000...|
000000A0: 64 00 99 22 11 11 CE 41 4D 45 20 4F 46 20 43 41 |d.."...AME OF CA|
000000B0: 54 41 4C 4F 47 20 3A 20 43 41 54 41 4C 4F 47 2E |TALOG : CATALOG.|
000000C0: 44 41 54 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B |DAT...........";|
000000D0: 3A 84 31 2C 46 49 24 3A 99 00 F1 08 6E 00 8B 46 |:.1,FI$:....n..F|
000000E0: 49 24 B2 22 51 55 49 54 22 A7 A0 33 3A A0 31 3A |I$."QUIT"..3:.1:|
000000F0: 80 00 0F 09 78 00 46 49 24 B2 22 9B 22 AA C8 28 |....x.FI$."."..(|
00000100: 46 49 24 2C 31 34 29 AA 22 9A 2C 53 2C 52 22 00 |FI$,14).".,S,R".|
00000110: 2A 09 82 00 98 33 2C 22 49 22 3A 9F 32 2C 38 2C |*....3,"I":.2,8,|
00000120: 32 2C 46 49 24 3A 84 33 2C 58 00 5D 09 8C 00 8B |2,FI$:.3,X.]....|
00000130: 58 B2 36 32 A7 99 22 11 11 C6 49 4C 45 20 44 4F |X.62.."...ILE DO|
00000140: 45 53 20 4E 4F 54 20 45 58 49 53 54 20 4F 4E 20 |ES NOT EXIST ON |
00000150: 44 49 53 4B 22 3A A0 32 3A 89 31 30 30 00 85 09 |DISK":.2:.100...|
00000160: 96 00 8B 58 B3 B1 30 A7 84 33 2C 58 24 3A 99 22 |...X..0..3,X$:."|
00000170: C4 49 53 4B 20 45 52 52 4F 52 22 3B 58 3B 58 24 |.ISK ERROR";X;X$|
00000180: 3A 89 38 39 30 00 93 09 A0 00 9F 34 2C 34 2C 37 |:.890......4,4,7|
00000190: 3A 98 34 00 A0 09 C8 00 84 32 2C 44 41 24 2C 41 |:.4......2,DA$,A|
000001A0: 00 BA 09 D2 00 99 22 11 C3 41 54 41 4C 4F 47 20 |......"..ATALOG |
000001B0: 46 52 4F 4D 20 3A 22 44 41 24 00 C6 09 D7 00 41 |FROM :"DA$.....A|
000001C0: 24 B2 C4 28 41 29 00 F3 09 DC 00 99 22 D4 48 45 |$..(A)......".HE|
000001D0: 52 45 20 41 52 45 22 3B 41 24 3B 22 20 52 45 43 |RE ARE";A$;" REC|
000001E0: 4F 52 44 53 20 54 4F 20 42 45 20 50 52 49 4E 54 |ORDS TO BE PRINT|
000001F0: 45 44 22 00 FD 09 E1 00 8D 35 30 30 30 00 26 0A |ED"......5000.&.|
00000200: F0 00 8B 4E 24 B3 B1 22 51 55 49 54 22 A7 98 34 |...N$.."QUIT"..4|
00000210: 2C 22 C3 41 54 41 4C 4F 47 20 46 4F 52 20 22 3B |,".ATALOG FOR ";|
00000220: 4E 24 3B 22 2E 22 00 3F 0A F3 00 50 51 31 B2 C3 |N$;".".?...PQ1..|
00000230: 28 4E 24 29 3A 50 51 32 B2 50 51 31 AA 31 33 00 |(N$):PQ2.PQ1.13.|
00000240: 59 0A F4 00 81 20 50 B2 31 20 A4 20 50 51 32 3A |Y.... P.1 . PQ2:|
00000250: 98 34 2C 22 B8 22 3B 3A 82 00 60 0A F5 00 98 34 |.4,".";:..`....4|
00000260: 00 88 0A FA 00 98 34 2C 22 CE 41 4D 45 20 4F 46 |......4,".AME OF|
00000270: 20 D2 45 43 4F 52 44 20 20 20 20 20 20 20 20 20 | .ECORD |
00000280: 20 20 20 20 20 20 22 3B 00 B0 0A 04 01 98 34 2C | ";......4,|
00000290: 22 D0 45 52 46 4F 52 4D 45 52 20 20 20 20 20 20 |".ERFORMER |
000002A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B | ";|
000002B0: 00 C9 0A 0E 01 98 34 2C 22 20 20 D9 45 41 52 20 |......4," .EAR |
000002C0: 20 D4 59 50 45 22 3A 98 34 00 D2 0A 2B 01 4C 43 | .YPE":.4...+.LC|
000002D0: B2 36 00 E7 0A 2C 01 99 22 11 11 11 22 3A 81 20 |.6...,.."...":. |
000002E0: 58 B2 31 20 A4 20 41 00 F8 0A 36 01 84 32 2C 58 |X.1 . A...6..2,X|
000002F0: 24 3A 84 32 2C 58 32 24 00 0A 0B 40 01 84 32 2C |$:.2,X2$...@..2,|
00000300: 58 31 25 3A 84 32 2C 58 32 25 00 2B 0B 43 01 8D |X1%:.2,X2%.+.C..|
00000310: 33 30 30 30 3A 8F 20 43 48 45 43 4B 20 46 4F 52 |3000:. CHECK FOR|
00000320: 20 4E 45 57 20 4C 45 54 54 45 52 00 62 0B 4F 01 | NEW LETTER.b.O.|
00000330: 58 24 B2 58 24 AA C8 28 22 20 20 20 20 20 20 20 |X$.X$..(" |
00000340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000350: 20 20 20 20 20 20 20 22 2C 32 39 AB C3 28 58 24 | ",29..(X$|
00000360: 29 29 00 70 0B 54 01 58 24 B2 58 24 AA 58 32 24 |)).p.T.X$.X$.X2$|
00000370: 00 A8 0B 59 01 58 24 B2 58 24 AA C8 28 22 20 20 |...Y.X$.X$..(" |
00000380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000390: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2C 35 | ",5|
000003A0: 39 AB C3 28 58 24 29 29 00 CC 0B 5E 01 59 45 24 |9..(X$))...^.YE$|
000003B0: B2 58 24 AA C4 28 58 31 25 29 3A 8F 20 20 53 54 |.X$..(X1%):. ST|
000003C0: 52 24 28 58 31 25 2B 31 39 30 30 29 00 E6 0B 63 |R$(X1%+1900)...c|
000003D0: 01 8B 20 59 45 24 B2 22 30 22 20 A7 20 59 45 24 |.. YE$."0" . YE$|
000003E0: B2 22 20 2D 2D 22 00 01 0C 68 01 58 24 B2 59 45 |." --"...h.X$.YE|
000003F0: 24 AA 22 20 20 22 AA 54 59 50 45 24 28 58 32 25 |$." ".TYPE$(X2%|
00000400: 29 00 15 0C 72 01 54 28 58 32 25 29 B2 54 28 58 |)...r.T(X2%).T(X|
00000410: 32 25 29 AA 31 00 3B 0C 7C 01 4C 43 B2 4C 43 AA |2%).1.;.|.LC.LC.|
00000420: 31 3A 8B 4C 43 B2 50 4C AB 33 A7 81 49 B2 31 A4 |1:.LC.PL.3..I.1.|
00000430: 36 3A 98 34 3A 82 3A 4C 43 B2 33 00 45 0C 86 01 |6:.4:.:LC.3.E...|
00000440: 98 34 2C 58 24 00 63 0C 90 01 99 22 91 D0 52 49 |.4,X$.c...."..RI|
00000450: 4E 54 45 44 22 58 22 9D 20 4F 55 54 20 4F 46 22 |NTED"X". OUT OF"|
00000460: 41 3A 82 00 6D 0C 9A 01 98 34 3A 98 34 00 7D 0C |A:..m....4:.4.}.|
00000470: 9F 01 8D 37 30 30 30 3A 98 34 3A 98 34 00 95 0C |...7000:.4:.4...|
00000480: F4 01 99 22 11 11 20 2A 2A 2A 20 D2 C5 C1 C4 D9 |...".. *** .....|
00000490: 20 2A 2A 2A 22 00 9E 0C 20 03 89 39 30 30 00 B6 | ***"... ..900..|
000004A0: 0C 7A 03 A0 32 3A A0 34 3A 97 31 39 38 2C 30 3A |.z..2:.4:.198,0:|
000004B0: 92 31 39 38 2C 31 00 BC 0C 81 03 3A 00 D3 0C 84 |.198,1.....:....|
000004C0: 03 99 22 11 11 C1 47 41 49 4E 3F 20 20 28 59 2F |.."...GAIN? (Y/|
000004D0: CE 29 22 00 DD 0C 98 03 A0 32 3A A0 34 00 F3 0C |.)"......2:.4...|
000004E0: A2 03 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A |...198,0:.198,1:|
000004F0: A1 41 24 00 03 0D A7 03 8B 41 24 B2 22 59 22 A7 |.A$......A$."Y".|
00000500: 31 30 30 00 23 0D AC 03 8B 41 24 B2 22 4E 22 B0 |100.#....A$."N".|
00000510: 41 24 B2 22 CE 22 B0 41 24 B2 C7 28 31 33 29 A7 |A$.".".A$..(13).|
00000520: 39 35 30 00 2C 0D B1 03 89 39 33 30 00 36 0D B6 |950.,....930.6..|
00000530: 03 A0 31 3A A0 33 00 73 0D C0 03 99 22 11 11 D4 |..1:.3.s...."...|
00000540: 48 41 4E 4B 53 20 46 4F 52 20 55 53 49 4E 47 20 |HANKS FOR USING |
00000550: D4 48 45 20 D2 45 43 4F 52 44 20 C2 4F 58 21 21 |.HE .ECORD .OX!!|
00000560: 22 3A 97 35 33 32 38 30 2C 36 3A 97 35 33 32 38 |":.53280,6:.5328|
00000570: 31 2C 36 00 7E 0D CA 03 99 22 9A 22 3A 80 00 8F |1,6.~....".":...|
00000580: 0D E8 03 9F 31 2C 30 3A 9F 33 2C 38 2C 31 35 00 |....1,0:.3,8,15.|
00000590: AA 0D F2 03 97 35 33 32 38 30 2C 30 3A 97 35 33 |.....53280,0:.53|
000005A0: 32 38 31 2C 30 3A 99 22 98 22 00 BE 0D FC 03 97 |281,0:."."......|
000005B0: 35 33 32 37 32 2C 32 32 3A 99 C7 28 38 29 00 D5 |53272,22:..(8)..|
000005C0: 0D 06 04 81 58 B2 31 A4 37 3A 87 54 59 50 45 24 |....X.1.7:.TYPE$|
000005D0: 28 58 29 3A 82 00 04 0E B0 04 99 22 93 D4 48 49 |(X):......."..HI|
000005E0: 53 20 57 49 4C 4C 20 53 45 4E 44 20 41 20 46 4F |S WILL SEND A FO|
000005F0: 52 4D 41 54 54 45 44 20 4C 49 53 54 20 4F 46 20 |RMATTED LIST OF |
00000600: 41 4C 4C 22 00 27 0E BA 04 99 22 52 45 43 4F 52 |ALL".'...."RECOR|
00000610: 44 53 20 53 54 4F 52 45 44 20 49 4E 20 41 20 46 |DS STORED IN A F|
00000620: 49 4C 45 20 42 59 22 00 56 0E C4 04 99 22 27 D4 |ILE BY".V...."'.|
00000630: 48 45 20 D2 45 43 4F 52 44 20 C2 4F 58 27 2E 20 |HE .ECORD .OX'. |
00000640: C9 54 20 57 49 4C 4C 20 57 4F 52 4B 20 57 49 54 |.T WILL WORK WIT|
00000650: 48 20 41 4E 59 22 00 7B 0E CE 04 99 22 C3 C2 CD |H ANY".{...."...|
00000660: 2D 54 59 50 45 20 50 52 49 4E 54 45 52 20 28 44 |-TYPE PRINTER (D|
00000670: 45 56 49 43 45 20 23 34 29 2E 22 00 A6 0E D8 04 |EVICE #4).".....|
00000680: 99 22 11 CD 41 4B 45 20 53 55 52 45 20 59 4F 55 |."..AKE SURE YOU|
00000690: 52 20 50 52 49 4E 54 45 52 20 49 53 20 50 52 4F |R PRINTER IS PRO|
000006A0: 50 45 52 4C 59 22 00 D5 0E E2 04 99 22 43 4F 4E |PERLY"......"CON|
000006B0: 4E 45 43 54 45 44 2C 20 54 48 45 4E 20 48 49 54 |NECTED, THEN HIT|
000006C0: 20 3C D3 D0 C1 C3 C5 3E 20 54 4F 20 43 4F 4E 54 | <.....> TO CONT|
000006D0: 49 4E 55 45 22 00 F6 0E EC 04 99 22 4F 52 20 41 |INUE"......"OR A|
000006E0: 4E 59 20 4F 54 48 45 52 20 4B 45 59 20 54 4F 20 |NY OTHER KEY TO |
000006F0: 51 55 49 54 2E 22 00 0C 0F F6 04 97 31 39 38 2C |QUIT."......198,|
00000700: 30 3A 92 31 39 38 2C 31 3A A1 41 24 00 1D 0F 00 |0:.198,1:.A$....|
00000710: 05 8B 41 24 B2 22 20 22 A7 31 34 37 30 00 23 0F |..A$." ".1470.#.|
00000720: 0A 05 80 00 52 0F BE 05 99 22 11 11 D0 4F 53 49 |....R...."...OSI|
00000730: 54 49 4F 4E 20 50 41 50 45 52 20 49 4E 20 54 48 |TION PAPER IN TH|
00000740: 45 20 50 52 49 4E 54 45 52 20 53 4F 20 54 48 41 |E PRINTER SO THA|
00000750: 54 22 00 80 0F C8 05 99 22 54 48 45 20 54 4F 50 |T"......"THE TOP|
00000760: 20 4F 46 20 54 48 45 20 50 41 50 45 52 20 49 53 | OF THE PAPER IS|
00000770: 20 54 48 45 20 46 49 52 53 54 20 4C 49 4E 45 22 | THE FIRST LINE"|
00000780: 00 99 0F D2 05 99 22 54 4F 20 42 45 20 50 52 49 |......"TO BE PRI|
00000790: 4E 54 45 44 20 4F 4E 2E 22 00 9F 0F A3 06 8E 00 |NTED ON.".......|
000007A0: A5 0F CF 07 3A 00 C5 0F D0 07 83 20 22 D3 49 4E |....:...... ".IN|
000007B0: 47 4C 45 22 2C 22 CD 41 58 49 22 2C 22 CC D0 22 |GLE",".AXI",".."|
000007C0: 2C 22 C3 C4 22 00 F6 0F DA 07 83 20 22 C4 4F 55 |,".."...... ".OU|
000007D0: 42 4C 45 20 D3 49 4E 47 4C 45 22 2C 22 C4 4F 55 |BLE .INGLE",".OU|
000007E0: 42 4C 45 20 CC D0 22 2C 22 D3 50 45 43 49 41 4C |BLE ..",".PECIAL|
000007F0: 20 54 59 50 45 22 00 10 10 B8 0B 57 24 B2 C8 28 | TYPE".....W$..(|
00000800: 58 32 24 2C 31 29 3A 8B 57 24 B2 43 43 24 A7 8E |X2$,1):.W$.CC$..|
00000810: 00 24 10 C2 0B 8B 20 C6 28 57 24 29 B3 31 39 33 |.$.... .(W$).193|
00000820: 20 A7 20 8E 00 3C 10 CC 0B 43 43 24 B2 57 24 3A | . ..<...CC$.W$:|
00000830: 8B 20 4C 43 B3 36 35 A7 33 30 36 30 00 49 10 D6 |. LC.65.3060.I..|
00000840: 0B 52 4C B2 50 4C AB 4C 43 00 64 10 E0 0B 81 20 |.RL.PL.LC.d.... |
00000850: 49 B2 31 20 A4 20 52 4C AA 33 3A 98 34 3A 82 3A |I.1 . RL.3:.4:.:|
00000860: 4C 43 B2 33 00 7A 10 F4 0B 98 34 3A 98 34 2C 43 |LC.3.z....4:.4,C|
00000870: 43 24 3A 4C 43 B2 4C 43 AA 32 00 80 10 12 0C 8E |C$:LC.LC.2......|
00000880: 00 86 10 87 13 3A 00 B5 10 88 13 99 22 11 11 D0 |.....:......"...|
00000890: 4C 45 41 53 45 20 45 4E 54 45 52 20 54 48 45 20 |LEASE ENTER THE |
000008A0: 4E 41 4D 45 20 59 4F 55 20 57 41 4E 54 20 54 4F |NAME YOU WANT TO|
000008B0: 20 47 45 54 22 00 DC 10 92 13 99 22 50 52 49 4E | GET"......"PRIN|
000008C0: 54 45 44 20 41 4C 4F 4E 47 20 57 49 54 48 20 54 |TED ALONG WITH T|
000008D0: 48 45 20 43 41 54 41 4C 4F 47 2E 22 00 06 11 9C |HE CATALOG."....|
000008E0: 13 99 22 C7 45 4E 45 52 41 4C 4C 59 2C 20 59 4F |..".ENERALLY, YO|
000008F0: 55 20 57 49 4C 4C 20 45 4E 54 45 52 20 54 48 45 |U WILL ENTER THE|
00000900: 20 4E 41 4D 45 22 00 2A 11 A6 13 99 22 4F 46 20 | NAME".*...."OF |
00000910: 54 48 45 20 4F 57 4E 45 52 20 4F 46 20 54 48 45 |THE OWNER OF THE|
00000920: 20 52 45 43 4F 52 44 53 2E 22 00 53 11 B0 13 99 | RECORDS.".S....|
00000930: 22 C5 4E 54 45 52 20 41 20 4C 49 4E 45 20 4F 46 |".NTER A LINE OF|
00000940: 20 4D 41 58 49 4D 55 4D 20 33 30 20 43 48 41 52 | MAXIMUM 30 CHAR|
00000950: 53 2E 22 00 82 11 BA 13 99 22 C5 4E 54 45 52 20 |S."......".NTER |
00000960: 27 51 55 49 54 27 20 49 46 20 59 4F 55 20 44 4F |'QUIT' IF YOU DO|
00000970: 4E 27 54 20 57 41 4E 54 20 54 4F 20 50 52 49 4E |N'T WANT TO PRIN|
00000980: 54 22 00 91 11 C4 13 99 22 41 20 4E 41 4D 45 2E |T"......"A NAME.|
00000990: 22 00 9D 11 CE 13 99 22 11 11 3E 22 3B 00 B5 11 |"......"..>";...|
000009A0: D8 13 84 31 2C 4E 24 3A 99 3A 4E 24 B2 C8 28 4E |...1,N$:.:N$..(N|
000009B0: 24 2C 33 30 29 00 BB 11 E2 13 8E 00 C1 11 57 1B |$,30).........W.|
000009C0: 3A 00 CC 11 58 1B 8D 20 37 39 30 30 00 DD 11 5D |:...X.. 7900...]|
000009D0: 1B 8B 54 28 31 29 B2 30 A7 37 32 30 30 00 FE 11 |..T(1).0.7200...|
000009E0: 62 1B 98 34 2C 22 D3 C9 CE C7 CC C5 53 20 20 20 |b..4,"......S |
000009F0: 20 20 20 20 20 20 20 3A 22 3B 54 28 31 29 00 0F | :";T(1)..|
00000A00: 12 20 1C 8B 54 28 32 29 B2 30 A7 37 33 30 30 00 |. ..T(2).0.7300.|
00000A10: 30 12 2A 1C 98 34 2C 22 CD C1 D8 C9 53 20 20 20 |0.*..4,"....S |
00000A20: 20 20 20 20 20 20 20 20 20 3A 22 3B 54 28 32 29 | :";T(2)|
00000A30: 00 41 12 84 1C 8B 54 28 33 29 B2 30 A7 37 34 30 |.A....T(3).0.740|
00000A40: 30 00 62 12 8E 1C 98 34 2C 22 CC D0 53 20 20 20 |0.b....4,"..S |
00000A50: 20 20 20 20 20 20 20 20 20 20 20 3A 22 3B 54 28 | :";T(|
00000A60: 33 29 00 73 12 E8 1C 8B 54 28 34 29 B2 30 A7 37 |3).s....T(4).0.7|
00000A70: 35 30 30 00 94 12 F2 1C 98 34 2C 22 C3 C4 53 20 |500......4,"..S |
00000A80: 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 22 3B | :";|
00000A90: 54 28 34 29 00 A5 12 4C 1D 8B 54 28 35 29 B2 30 |T(4)...L..T(5).0|
00000AA0: A7 37 36 30 30 00 C6 12 56 1D 98 34 2C 22 C4 CF |.7600...V..4,"..|
00000AB0: D5 C2 CC C5 20 D3 C9 CE C7 CC C5 53 20 20 20 3A |.... ......S :|
00000AC0: 22 3B 54 28 35 29 00 D7 12 B0 1D 8B 54 28 36 29 |";T(5)......T(6)|
00000AD0: B2 30 A7 37 37 30 30 00 F8 12 BA 1D 98 34 2C 22 |.0.7700......4,"|
00000AE0: C4 CF D5 C2 CC C5 20 CC D0 53 20 20 20 20 20 20 |...... ..S |
00000AF0: 20 3A 22 3B 54 28 36 29 00 09 13 14 1E 8B 54 28 | :";T(6)......T(|
00000B00: 37 29 B2 30 A7 37 37 31 35 00 2A 13 1E 1E 98 34 |7).0.7715.*....4|
00000B10: 2C 22 D3 D0 C5 C3 C9 C1 CC 53 20 20 20 20 20 20 |,".......S |
00000B20: 20 20 20 3A 22 3B 54 28 37 29 00 48 13 23 1E 98 | :";T(7).H.#..|
00000B30: 34 2C 22 D4 CF D4 C1 CC 20 20 20 20 20 20 20 20 |4,"..... |
00000B40: 20 20 20 20 3A 22 3B 41 00 68 13 25 1E 98 34 2C | :";A.h.%..4,|
00000B50: 22 CC C1 D3 D4 20 D5 D0 C4 C1 D4 C5 20 20 20 20 |".... ...... |
00000B60: 20 3A 20 22 3B 44 41 24 00 6E 13 78 1E 8E 00 7F | : ";DA$.n.x....|
00000B70: 13 DC 1E 8B 20 4C 43 B3 50 4C AB 31 30 A7 8E 00 |.... LC.PL.10...|
00000B80: 8C 13 E6 1E 52 4C B2 50 4C AB 4C 43 00 A3 13 F0 |....RL.PL.LC....|
00000B90: 1E 81 20 49 B2 4C 43 20 A4 20 52 4C AA 33 3A 98 |.. I.LC . RL.3:.|
00000BA0: 34 3A 82 00 A9 13 FA 1E 8E 00 00 00 |4:.......... |
..4....CLOSE1:OPEN1,8,15,"S:PRINTER":SAV
E"PRINTER",8.<....50.F...PROGRAMMED BY H
ARALD FRAGNER 87.03.24.{...REVISED 87.11
.28...2.PL.72:. PAPERLENGHT...<..1000.Y.
D.."..NAME OF CATALOG : CATALOG.DAT.....
......";:.1,FI$:....N..FI$."QUIT". 3: 1:
....X.FI$.".".H(FI$,14).".,S,R".*....3,"
I":.2,8,2,FI$:.3,X.]....X.62.."..FILE DO
ES NOT EXIST ON DISK": 2:.100......X..0.
.3,X$:."DISK ERROR";X;X$:.890... ..4,4,7
:.4. .H..2,DA$,A...R..".CATALOG FROM :"D
A$.F.W.A$.D(A)......"THERE ARE";A$;" REC
ORDS TO BE PRINTED"......5000.&....N$.."
QUIT"..4,"CATALOG FOR ";N$;".".?...PQ1.C
(N$):PQ2.PQ1.13.Y.... P.1 . PQ2:.4,".";:
..`....4......4,"NAME OF RECORD
";......4,"PERFORMER
";.I....4," YEAR TYPE":.4.R.+.LC
.6...,.."...":. X.1 . A...6..2,X$:.2,X2$
...@..2,X1%:.2,X2%.+.C..3000:. CHECK FOR
NEW LETTER.B.O.X$.X$.H("
",29.C(X$)).P.T.X$.X$.X2$
...Y.X$.X$.H("
",59.C(X$)).L.^.YE$.X$.D(X1%):. ST
R$(X1%+1900)...C.. YE$."0" . YE$." --"..
.H.X$.YE$." ".TYPE$(X2%)...R.T(X2%).T(X
2%).1.;.|.LC.LC.1:.LC.PL.3..I.1.6:.4:.:L
C.3.E....4,X$.C....".PRINTED"X". OUT OF"
A:..M....4:.4.}....7000:.4:.4......".. *
** READY ***"... ..900...Z. 2: 4:.198,0:
.198,1.....:.S...."..AGAIN? (Y/N)".....
2: 4......198,0:.198,1:.A$......A$."Y".
100.#....A$."N".A$."N".A$.G(13).950.,...
.930.6... 1: 3.S...."..THANKS FOR USING
THE RECORD BOX!!":.53280,6:.53281,6.~.J.
.".":.......1,0:.3,8,15......53280,0:.53
281,0:."."......53272,22:.G(8).U....X.1.
7:.TYPE$(X):.......".THIS WILL SEND A FO
RMATTED LIST OF ALL".'...."RECORDS STORE
D IN A FILE BY".V.D.."'THE RECORD BOX'.
IT WILL WORK WITH ANY".{.N.."CBM-TYPE PR
INTER (DEVICE #4)."...X..".MAKE SURE YOU
R PRINTER IS PROPERLY".U...."CONNECTED,
THEN HIT <SPACE> TO CONTINUE"......"OR A
NY OTHER KEY TO QUIT."......198,0:.198,1
:.A$......A$." ".1470.#.....R...."..POSI
TION PAPER IN THE PRINTER SO THAT"...H..
"THE TOP OF THE PAPER IS THE FIRST LINE"
...R.."TO BE PRINTED ON.".........O.:.E.
P.. "SINGLE","MAXI","LP","CD"...Z.. "DOU
BLE SINGLE","DOUBLE LP","SPECIAL TYPE"..
...W$.H(X2$,1):.W$.CC$...$.B.. F(W$).193
. ..<.L.CC$.W$:. LC.65.3060.I.V.RL.PL.L
C.D.... I.1 . RL.3:.4:.:LC.3.Z....4:.4,C
C$:LC.LC.2...........:......"..PLEASE EN
TER THE NAME YOU WANT TO GET"......"PRIN
TED ALONG WITH THE CATALOG."......"GENER
ALLY, YOU WILL ENTER THE NAME".*...."OF
THE OWNER OF THE RECORDS.".S...."ENTER A
LINE OF MAXIMUM 30 CHARS."......"ENTER
'QUIT' IF YOU DON'T WANT TO PRINT"...D..
"A NAME."...N.."..>";...X..1,N$:.:N$.H(N
$,30).......A.W.:.L.X.. 7900...]..T(1).0
.7200...B..4,"SINGLES :";T(1)..
. ..T(2).0.7300.0.*..4,"MAXIS
:";T(2).A....T(3).0.7400.B....4,"LPS
:";T(3).S....T(4).0.7500.....
.4,"CDS :";T(4)...L..T(5).0
.7600.F.V..4,"DOUBLE SINGLES :";T(5).W
....T(6).0.7700......4,"DOUBLE LPS
:";T(6)......T(7).0.7715.*....4,"SPECIA
LS :";T(7).H.#..4,"TOTAL
:";A.H.%..4,"LAST UPDATE : ";DA$
.N.X....... LC.PL.10.......RL.PL.LC....
.. I.LC . RL.3:.4:..........
> CLICK IMAGE PREVIEW FOR FULL MODAL