PLATEN BESTAND
FILE INFORMATION
FILENAME(S): PLATEN BESTAND
FILE TYPE(S): PRG
FILE SIZE: 4.3K
FIRST SEEN: 2025-11-30 21:27:06
APPEARS ON: 1 disk(s)
FILE HASH
31f07232582ed99686b2588ce6c46effd60cb6397b95d8361e462011211f55ec
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ZCP SOFTWARE A | PLATEN BESTAND | PRG | DuncanTwain | 29 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..(.... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 00 4F 08 0F 00 8F 20 2A |********.O.... *|
00000030: 20 54 52 53 20 38 30 20 50 52 4F 47 52 41 4D 4D | TRS 80 PROGRAMM|
00000040: 41 20 56 41 4E 20 43 2E 46 2E 4F 55 54 20 2A 00 |A VAN C.F.OUT *.|
00000050: 76 08 14 00 8F 20 2A 20 31 36 30 37 20 48 47 20 |v.... * 1607 HG |
00000060: 48 45 4D 2C 20 4E 45 44 45 52 4C 41 4E 44 20 20 |HEM, NEDERLAND |
00000070: 20 20 20 20 20 2A 00 9D 08 19 00 8F 20 2A 20 41 | *...... * A|
00000080: 41 4E 47 45 50 41 53 54 20 41 41 4E 20 43 42 4D |ANGEPAST AAN CBM|
00000090: 20 36 34 20 44 4F 4F 52 20 20 20 20 2A 00 C4 08 | 64 DOOR *...|
000000A0: 1B 00 8F 20 2A 20 44 4F 4F 52 20 4C 45 4F 4E 20 |... * DOOR LEON |
000000B0: 4B 4F 4E 49 4E 47 20 3A 4E 45 44 45 52 4C 41 4E |KONING :NEDERLAN|
000000C0: 44 20 20 2A 00 EB 08 1C 00 8F 20 2A 2A 2A 2A 2A |D *...... *****|
000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F6 08 1E 00 |***********.....|
000000F0: 99 C7 28 31 34 29 00 22 09 23 00 99 22 93 81 22 |..(14).".#..".."|
00000100: 3B 3A 4E B2 32 3A 86 52 24 28 4E 2C 35 30 30 29 |;:N.2:.R$(N,500)|
00000110: 3A 45 24 B2 C7 28 39 34 29 3A 52 24 B2 C7 28 31 |:E$..(94):R$..(1|
00000120: 33 29 00 65 09 28 00 52 24 28 30 2C 30 29 B2 22 |3).e.(.R$(0,0)."|
00000130: 12 D0 4C 41 41 54 20 20 20 92 22 3A 52 24 28 31 |..LAAT .":R$(1|
00000140: 2C 30 29 B2 22 12 C1 52 54 49 45 53 54 20 92 22 |,0)."..RTIEST ."|
00000150: 3A 52 24 28 32 2C 30 29 B2 22 12 CA 41 41 52 20 |:R$(2,0)."..AAR |
00000160: 20 20 20 92 22 00 7B 09 2A 00 97 35 33 32 38 30 | .".{.*..53280|
00000170: 2C 30 3A 97 35 33 32 38 31 2C 30 00 AA 09 2D 00 |,0:.53281,0...-.|
00000180: 99 22 AB C0 C0 C0 C0 C0 C0 20 D0 CC C1 D4 C5 CE |."....... ......|
00000190: C2 C5 D3 D4 C1 CE C4 A0 D0 D2 CF C7 D2 C1 CD CD |................|
000001A0: C1 20 C0 C0 C0 C0 C0 C0 C0 B3 00 D1 09 2E 00 99 |. ..............|
000001B0: 22 91 20 20 20 20 20 20 20 20 C0 C0 C0 C0 C0 C0 |". ......|
000001C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000001D0: C0 00 F9 09 2F 00 99 22 11 20 20 20 20 20 20 20 |..../..". |
000001E0: B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000001F0: C0 C0 C0 C0 C0 C0 C0 C0 AE 00 21 0A 32 00 99 22 |..........!.2.."|
00000200: 20 20 20 20 20 20 20 DC 31 20 3D 20 C9 4E 56 4F | .1 = .NVO|
00000210: 45 52 20 20 20 20 20 20 20 20 20 20 20 20 20 DC |ER .|
00000220: 22 00 49 0A 33 00 99 22 20 20 20 20 20 20 20 DC |".I.3.." .|
00000230: 32 20 3D 20 CC 49 53 54 45 4E 20 20 20 20 20 20 |2 = .ISTEN |
00000240: 20 20 20 20 20 20 20 DC 22 00 71 0A 34 00 99 22 | .".q.4.."|
00000250: 20 20 20 20 20 20 20 DC 33 20 3D 20 DA 4F 45 4B | .3 = .OEK|
00000260: 45 4E 20 20 20 20 20 20 20 20 20 20 20 20 20 DC |EN .|
00000270: 22 00 98 0A 37 00 99 22 20 20 20 20 20 20 20 DC |"...7.." .|
00000280: 34 20 3D 20 CD 55 54 45 52 45 4E 20 20 20 20 20 |4 = .UTEREN |
00000290: 20 20 20 20 20 20 20 DC 00 C0 0A 3C 00 99 22 20 | ....<.." |
000002A0: 20 20 20 20 20 20 DC 35 20 3D 20 CE 41 41 52 20 | .5 = .AAR |
000002B0: 54 41 50 45 20 53 43 48 52 49 4A 56 45 4E DC 22 |TAPE SCHRIJVEN."|
000002C0: 00 E8 0A 3D 00 99 22 20 20 20 20 20 20 20 DC 36 |...=.." .6|
000002D0: 20 3D 20 D6 41 4E 20 54 41 50 45 20 4C 45 5A 45 | = .AN TAPE LEZE|
000002E0: 4E 20 20 20 20 20 DC 22 00 10 0B 41 00 99 22 20 |N ."...A.." |
000002F0: 20 20 20 20 20 20 DC 37 20 3D 20 D5 49 54 56 4F | .7 = .ITVO|
00000300: 45 52 20 4F 50 20 50 52 49 4E 54 45 52 20 DC 22 |ER OP PRINTER ."|
00000310: 00 38 0B 42 00 99 22 20 20 20 20 20 20 20 DC 38 |.8.B.." .8|
00000320: 20 3D 20 D3 4F 52 54 45 52 45 4E 20 20 20 20 20 | = .ORTEREN |
00000330: 20 20 20 20 20 20 DC 22 00 60 0B 46 00 99 22 20 | .".`.F.." |
00000340: 20 20 20 20 20 20 DC 39 20 3D 20 D0 4C 41 41 54 | .9 = .LAAT|
00000350: 20 56 45 52 57 49 4A 44 45 52 45 4E 20 20 DC 22 | VERWIJDEREN ."|
00000360: 00 87 0B 48 00 99 22 20 20 20 20 20 20 20 AD C0 |...H.." ..|
00000370: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000380: C0 C0 C0 C0 C0 C0 BD 00 B5 0B 4A 00 99 22 11 11 |..........J.."..|
00000390: 20 20 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ..............|
000003A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000003B0: C0 C0 C0 C0 AE 00 CC 0B 4B 00 52 52 24 B2 C4 28 |........K.RR$..(|
000003C0: 4C 29 3A 52 52 B2 C3 28 52 52 24 29 00 FB 0B 4C |L):RR..(RR$)...L|
000003D0: 00 99 22 20 20 DD C8 45 54 20 42 45 53 54 41 4E |.." ..ET BESTAN|
000003E0: 44 20 42 45 56 41 54 22 4C 22 50 4C 41 54 45 4E |D BEVAT"L"PLATEN|
000003F0: 2E 22 A6 38 AB 52 52 29 22 DD 22 00 27 0C 50 00 |.".8.RR)".".'.P.|
00000400: 99 22 20 20 DD 20 20 20 20 20 20 20 20 20 20 20 |." . |
00000410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000420: 20 20 20 20 20 20 DD 00 53 0C 53 00 99 22 20 20 | ..S.S.." |
00000430: DD C2 C5 2D C5 C9 CE C4 C9 C7 A0 C5 CC CB C5 A0 |...-............|
00000440: C6 D5 CE C3 D4 C9 C5 A0 CD C5 D4 20 5E 20 20 20 |........... ^ |
00000450: 20 20 DD 00 7F 0C 54 00 99 22 20 20 DD 20 20 20 | ....T.." . |
00000460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 DD 00 | ..|
00000480: AB 0C 55 00 99 22 20 20 DD 28 C4 49 54 20 56 4F |..U.." .(.IT VO|
00000490: 45 52 54 20 55 20 54 45 52 55 47 20 4E 41 41 52 |ERT U TERUG NAAR|
000004A0: 20 48 45 54 20 4D 45 4E 55 29 DD 00 D7 0C 56 00 | HET MENU)....V.|
000004B0: 99 22 20 20 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |." ............|
000004C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000004D0: C0 C0 C0 C0 C0 C0 BD 00 FD 0C 58 00 99 22 20 20 |..........X.." |
000004E0: 20 20 20 20 20 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ...........|
000004F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 00 0F 0D |................|
00000500: 59 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 38 39 00 |Y..A$:.A$."".89.|
00000510: 27 0D 5A 00 47 B2 C5 28 41 24 29 3A 8B 47 B3 31 |'.Z.G..(A$):.G.1|
00000520: B0 47 B1 39 A7 38 39 00 52 0D 5C 00 91 47 8D 31 |.G.9.89.R.\..G.1|
00000530: 30 30 2C 32 30 30 2C 33 30 30 2C 34 30 30 2C 35 |00,200,300,400,5|
00000540: 30 30 2C 36 30 30 2C 37 30 30 2C 38 30 30 2C 39 |00,600,700,800,9|
00000550: 30 30 00 60 0D 5F 00 99 22 93 22 3B 3A 89 34 30 |00.`._..".";:.40|
00000560: 00 97 0D 64 00 99 22 93 AB C0 C0 C0 C0 C0 C0 C0 |...d..".........|
00000570: C0 C0 C0 C0 20 C2 C5 D3 D4 C1 CE C4 A0 C9 CE D6 |.... ...........|
00000580: CF C5 D2 A0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 B3 |................|
00000590: 22 3A 49 B2 4C AA 31 00 AF 0D 6E 00 81 4A B2 30 |":I.L.1...n..J.0|
000005A0: A4 4E 3A 99 52 24 28 4A 2C 30 29 22 20 22 3B 00 |.N:.R$(J,0)" ";.|
000005B0: C4 0D 78 00 8D 31 30 30 30 3A 52 24 28 4A 2C 49 |..x..1000:R$(J,I|
000005C0: 29 B2 43 24 00 D7 0D 82 00 8B 41 24 B2 45 24 A7 |).C$......A$.E$.|
000005D0: 4C B2 49 AB 31 3A 8E 00 DD 0D 96 00 82 00 E3 0D |L.I.1:..........|
000005E0: 9B 00 99 00 F9 0D A0 00 8B 4C B3 35 30 30 A7 49 |.........L.500.I|
000005F0: B2 49 AA 31 3A 89 31 31 30 00 14 0E AA 00 99 22 |.I.1:.110......"|
00000600: 11 12 20 C7 C5 C8 C5 D5 C7 C5 CE A0 C9 D3 A0 D6 |.. .............|
00000610: CF CC A0 22 00 24 0E B4 00 81 49 B2 31 A4 32 30 |...".$....I.1.20|
00000620: 30 30 3A 82 00 2A 0E BE 00 8E 00 3B 0E C8 00 99 |00:..*.....;....|
00000630: 22 93 22 3B 3A 81 49 B2 31 A4 4C 00 67 0E D2 00 |".";:.I.1.L.g...|
00000640: 99 49 3B A3 35 29 52 24 28 30 2C 49 29 3A 99 A3 |.I;.5)R$(0,I):..|
00000650: 35 29 52 24 28 31 2C 49 29 3A 99 A3 35 29 52 24 |5)R$(1,I):..5)R$|
00000660: 28 32 2C 49 29 3A 99 00 7C 0E DC 00 8B B5 28 49 |(2,I):..|.....(I|
00000670: AD 36 29 B3 B1 49 AD 36 A7 32 35 30 00 8F 0E E6 |.6)..I.6.250....|
00000680: 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 32 33 30 00 |..A$:.A$."".230.|
00000690: 9C 0E F0 00 8B 41 24 B2 45 24 A7 8E 00 A6 0E F5 |.....A$.E$......|
000006A0: 00 99 22 93 22 3B 00 AC 0E FA 00 82 00 BF 0E 04 |..".";..........|
000006B0: 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 32 36 30 00 |..A$:.A$."".260.|
000006C0: C5 0E 0E 01 8E 00 D0 0E 2C 01 99 22 93 22 3B 3A |........,..".";:|
000006D0: 00 00 0F 31 01 46 B2 30 3A 99 22 11 D6 4F 4C 47 |...1.F.0:."..OLG|
000006E0: 45 4E 53 20 57 45 4C 4B 20 49 54 45 4D 20 57 49 |ENS WELK ITEM WI|
000006F0: 4C 54 20 55 20 5A 4F 45 4B 45 4E 20 3F 22 3A 99 |LT U ZOEKEN ?":.|
00000700: 00 23 0F 36 01 81 4A B2 30 A4 4E 3A 99 22 20 20 |.#.6..J.0.N:." |
00000710: 20 22 4A 22 20 3D 20 22 52 24 28 4A 2C 30 29 3A | "J" = "R$(J,0):|
00000720: 82 3A 99 00 36 0F 3B 01 A1 41 24 3A 8B 41 24 B2 |.:..6.;..A$:.A$.|
00000730: 22 22 A7 33 31 35 00 49 0F 40 01 8B 41 24 B2 45 |"".315.I.@..A$.E|
00000740: 24 B0 41 24 B2 52 24 A7 8E 00 5E 0F 45 01 47 B2 |$.A$.R$...^.E.G.|
00000750: C5 28 41 24 29 3A 8B 47 B1 4E A7 33 31 35 00 7D |.(A$):.G.N.315.}|
00000760: 0F 4A 01 99 52 24 28 47 2C 30 29 22 20 22 3B 3A |.J..R$(G,0)" ";:|
00000770: 8D 31 30 30 30 3A 4D B2 C3 28 43 24 29 00 88 0F |.1000:M..(C$)...|
00000780: 4F 01 81 49 B2 31 A4 4C 00 A5 0F 54 01 8B C8 28 |O..I.1.L...T...(|
00000790: 52 24 28 47 2C 49 29 2C 4D 29 B3 B1 43 24 A7 82 |R$(G,I),M)..C$..|
000007A0: 3A 89 33 35 35 00 CC 0F 59 01 99 52 24 28 30 2C |:.355...Y..R$(0,|
000007B0: 49 29 3A 99 52 24 28 31 2C 49 29 3A 99 52 24 28 |I):.R$(1,I):.R$(|
000007C0: 32 2C 49 29 3A 99 3A 46 B2 31 3A 82 00 DF 0F 5E |2,I):.:F.1:....^|
000007D0: 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 33 35 30 00 |..A$:.A$."".350.|
000007E0: EC 0F 63 01 8B 46 B2 31 A7 33 30 35 00 0D 10 68 |..c..F.1.305...h|
000007F0: 01 99 22 D2 45 43 4F 52 44 20 CE C9 C5 D4 A0 C1 |..".ECORD ......|
00000800: C1 CE D7 C5 DA C9 C7 22 3A 89 33 30 35 00 3A 10 |.......":.305.:.|
00000810: 90 01 99 22 93 D6 4F 4C 47 45 4E 53 20 57 45 4C |..."..OLGENS WEL|
00000820: 4B 20 49 54 45 4D 20 57 49 4C 54 20 55 20 4D 55 |K ITEM WILT U MU|
00000830: 54 45 52 45 4E 20 3F 22 3A 99 00 5D 10 9A 01 81 |TEREN ?":..]....|
00000840: 4A B2 30 A4 4E 3A 99 22 20 20 20 22 4A 22 20 3D |J.0.N:." "J" =|
00000850: 20 22 52 24 28 4A 2C 30 29 3A 82 3A 99 00 70 10 | "R$(J,0):.:..p.|
00000860: 9F 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 34 31 35 |...A$:.A$."".415|
00000870: 00 7C 10 A0 01 47 B2 C5 28 41 24 29 00 8F 10 A4 |.|...G..(A$)....|
00000880: 01 8B 41 24 B2 45 24 B0 41 24 B2 52 24 A7 8E 00 |..A$.E$.A$.R$...|
00000890: 9C 10 A5 01 8B 47 B1 4E A7 34 31 35 00 BB 10 A9 |.....G.N.415....|
000008A0: 01 99 52 24 28 47 2C 30 29 22 20 22 3B 3A 8D 31 |..R$(G,0)" ";:.1|
000008B0: 30 30 30 3A 4D B2 C3 28 43 24 29 00 C6 10 AE 01 |000:M..(C$).....|
000008C0: 81 49 B2 31 A4 4C 00 DE 10 B3 01 8B C8 28 52 24 |.I.1.L.......(R$|
000008D0: 28 47 2C 49 29 2C 4D 29 B3 B1 43 24 A7 82 00 F7 |(G,I),M)..C$....|
000008E0: 10 B4 01 8B C8 28 52 24 28 47 2C 49 29 2C 4D 29 |.....(R$(G,I),M)|
000008F0: B2 43 24 A7 34 34 35 00 18 11 B8 01 99 22 D2 45 |.C$.445......".E|
00000900: 43 4F 52 44 20 CE C9 C5 D4 A0 C1 C1 CE D7 C5 DA |CORD ...........|
00000910: C9 C7 22 3A 89 34 30 30 00 39 11 BD 01 99 52 24 |..":.400.9....R$|
00000920: 28 30 2C 49 29 3A 99 52 24 28 31 2C 49 29 3A 99 |(0,I):.R$(1,I):.|
00000930: 52 24 28 32 2C 49 29 3A 99 00 5F 11 C2 01 99 22 |R$(2,I):.._...."|
00000940: 11 D7 45 4C 4B 20 49 54 45 4D 20 57 49 4C 54 20 |..ELK ITEM WILT |
00000950: 55 20 57 49 4A 5A 49 47 45 4E 20 3F 22 3A 99 00 |U WIJZIGEN ?":..|
00000960: 80 11 C7 01 81 4A B2 30 A4 4E 3A 99 22 20 20 20 |.....J.0.N:." |
00000970: 22 4A 22 20 3D 20 22 52 24 28 4A 2C 30 29 3A 82 |"J" = "R$(J,0):.|
00000980: 00 93 11 CC 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 |......A$:.A$."".|
00000990: 34 36 30 00 9F 11 CE 01 47 B2 C5 28 41 24 29 00 |460.....G..(A$).|
000009A0: B2 11 D1 01 8B 41 24 B2 45 24 B0 41 24 B2 52 24 |.....A$.E$.A$.R$|
000009B0: A7 8E 00 BF 11 D2 01 8B 47 B1 4E A7 34 36 30 00 |........G.N.460.|
000009C0: E1 11 D6 01 99 52 24 28 47 2C 30 29 22 20 22 3B |.....R$(G,0)" ";|
000009D0: 3A 8D 31 30 30 30 3A 52 24 28 47 2C 49 29 B2 43 |:.1000:R$(G,I).C|
000009E0: 24 00 EA 11 DB 01 89 34 30 30 00 F5 11 F4 01 8D |$......400......|
000009F0: 32 30 30 30 30 00 33 12 F5 01 99 22 93 C8 45 54 |20000.3...."..ET|
00000A00: 20 42 45 53 54 41 4E 44 20 57 4F 52 44 54 20 4F | BESTAND WORDT O|
00000A10: 50 20 54 41 50 45 20 47 45 5A 45 54 2E 22 3A 99 |P TAPE GEZET.":.|
00000A20: 22 C5 56 45 4E 20 47 45 44 55 4C 44 20 41 2E 55 |".VEN GEDULD A.U|
00000A30: 2E 42 2E 00 4B 12 F9 01 99 22 C1 41 4E 54 41 4C |.B..K....".ANTAL|
00000A40: 20 50 4C 41 54 45 4E 3A 22 3B 4C 00 6C 12 FE 01 | PLATEN:";L.l...|
00000A50: 46 24 B2 22 50 4C 41 54 45 4E 46 49 4C 45 22 3A |F$."PLATENFILE":|
00000A60: 46 24 B2 46 24 AA 22 2C 53 2C 52 22 00 7F 12 08 |F$.F$.",S,R"....|
00000A70: 02 9F 31 2C 31 2C 32 2C 46 24 3A 98 31 2C 4C 00 |..1,1,2,F$:.1,L.|
00000A80: 8A 12 12 02 81 49 B2 31 A4 4C 00 9F 12 1C 02 98 |.....I.1.L......|
00000A90: 31 2C C7 28 33 34 29 AA 52 24 28 30 2C 49 29 00 |1,.(34).R$(0,I).|
00000AA0: B4 12 26 02 98 31 2C C7 28 33 34 29 AA 52 24 28 |..&..1,.(34).R$(|
00000AB0: 31 2C 49 29 00 C9 12 30 02 98 31 2C C7 28 33 34 |1,I)...0..1,.(34|
00000AC0: 29 AA 52 24 28 32 2C 49 29 00 D9 12 3A 02 99 22 |).R$(2,I)...:.."|
00000AD0: 13 11 11 22 A3 31 37 29 49 00 E2 12 44 02 82 3A |...".17)I...D..:|
00000AE0: A0 31 00 E8 12 4E 02 8E 00 F3 12 58 02 8D 32 30 |.1...N.....X..20|
00000AF0: 30 30 30 00 34 13 59 02 99 22 93 C8 45 54 20 42 |000.4.Y.."..ET B|
00000B00: 45 53 54 41 4E 44 20 57 4F 52 44 54 20 56 41 4E |ESTAND WORDT VAN|
00000B10: 20 54 41 50 45 20 47 45 4C 41 44 45 4E 2E 22 3A | TAPE GELADEN.":|
00000B20: 99 22 C5 56 45 4E 20 47 45 44 55 4C 44 20 41 2E |.".VEN GEDULD A.|
00000B30: 55 2E 42 2E 00 4C 13 5D 02 99 22 C1 41 4E 54 41 |U.B..L.]..".ANTA|
00000B40: 4C 20 50 4C 41 54 45 4E 3A 22 3B 4C 00 6D 13 62 |L PLATEN:";L.m.b|
00000B50: 02 46 24 B2 22 50 4C 41 54 45 4E 46 49 4C 45 22 |.F$."PLATENFILE"|
00000B60: 3A 46 24 B2 46 24 AA 22 2C 53 2C 52 22 00 80 13 |:F$.F$.",S,R"...|
00000B70: 6C 02 9F 31 2C 31 2C 30 2C 46 24 3A 84 31 2C 4C |l..1,1,0,F$:.1,L|
00000B80: 00 8B 13 76 02 81 49 B2 31 A4 4C 00 9A 13 80 02 |...v..I.1.L.....|
00000B90: 84 31 2C 52 24 28 30 2C 49 29 00 A9 13 8A 02 84 |.1,R$(0,I)......|
00000BA0: 31 2C 52 24 28 31 2C 49 29 00 B8 13 94 02 84 31 |1,R$(1,I)......1|
00000BB0: 2C 52 24 28 32 2C 49 29 00 C8 13 9E 02 99 22 13 |,R$(2,I)......".|
00000BC0: 11 11 22 A3 31 37 29 49 00 D1 13 A8 02 82 3A A0 |..".17)I......:.|
00000BD0: 31 00 D7 13 B2 02 8E 00 20 14 BC 02 99 22 93 C4 |1....... ...."..|
00000BE0: 52 55 4B 20 4F 50 20 12 D2 C5 D4 D5 D2 CE 92 20 |RUK OP ........ |
00000BF0: 41 4C 53 20 44 45 20 50 52 49 4E 54 45 52 20 41 |ALS DE PRINTER A|
00000C00: 41 4E 47 45 53 4C 4F 2D 20 54 45 4E 20 45 4E 20 |ANGESLO- TEN EN |
00000C10: 49 4E 47 45 53 43 48 41 4B 45 4C 44 20 49 53 2E |INGESCHAKELD IS.|
00000C20: 00 3F 14 C6 02 99 22 11 28 5E 20 49 53 20 54 45 |.?....".(^ IS TE|
00000C30: 52 55 47 20 4E 41 41 52 20 4D 45 4E 55 29 2E 00 |RUG NAAR MENU)..|
00000C40: 6F 14 C7 02 99 22 11 11 C8 45 54 20 50 52 49 4E |o...."...ET PRIN|
00000C50: 54 45 4E 20 4B 41 4E 20 4D 45 54 20 5E 20 41 46 |TEN KAN MET ^ AF|
00000C60: 47 45 42 52 4F 4B 45 4E 20 57 4F 52 44 45 4E 00 |GEBROKEN WORDEN.|
00000C70: 82 14 CB 02 A1 41 24 3A 8B 41 24 B2 22 22 A7 37 |.....A$:.A$."".7|
00000C80: 31 35 00 90 14 D0 02 8B 41 24 B2 22 5E 22 A7 8E |15......A$."^"..|
00000C90: 00 A2 14 D5 02 8B 41 24 B2 C7 28 31 33 29 A7 37 |......A$..(13).7|
00000CA0: 33 35 00 AB 14 DA 02 89 37 31 35 00 B6 14 DF 02 |35......715.....|
00000CB0: 9F 31 2C 34 2C 37 00 DC 14 E4 02 98 31 2C A6 35 |.1,4,7......1,.5|
00000CC0: 29 22 2A 2A 2A 2A 2A 20 50 4C 41 54 45 4E 42 45 |)"***** PLATENBE|
00000CD0: 53 54 41 4E 44 20 2A 2A 2A 2A 2A 22 00 E7 14 E9 |STAND *****"....|
00000CE0: 02 81 49 B2 31 A4 4C 00 FC 14 EE 02 98 31 2C A6 |..I.1.L......1,.|
00000CF0: 33 29 3B 49 3B 52 24 28 30 2C 49 29 00 0E 15 F3 |3);I;R$(0,I)....|
00000D00: 02 98 31 2C A6 35 29 52 24 28 31 2C 49 29 00 20 |..1,.5)R$(1,I). |
00000D10: 15 F8 02 98 31 2C A6 35 29 52 24 28 32 2C 49 29 |....1,.5)R$(2,I)|
00000D20: 00 2D 15 02 03 98 31 2C C7 28 31 33 29 00 41 15 |.-....1,.(13).A.|
00000D30: 07 03 A1 41 24 3A 8B 41 24 B2 22 5E 22 A7 37 39 |...A$:.A$."^".79|
00000D40: 30 00 47 15 0C 03 82 00 52 15 16 03 98 31 2C 3A |0.G.....R....1,:|
00000D50: A0 31 00 58 15 1B 03 8E 00 81 15 20 03 99 22 93 |.1.X....... ..".|
00000D60: CF 50 20 57 45 4C 4B 20 49 54 45 4D 20 57 49 4C |.P WELK ITEM WIL|
00000D70: 54 20 55 20 53 4F 52 54 45 52 45 4E 20 3F 22 3A |T U SORTEREN ?":|
00000D80: 99 00 A2 15 2A 03 81 4A B2 30 A4 4E 3A 99 22 20 |....*..J.0.N:." |
00000D90: 20 20 22 4A 22 20 3D 20 22 52 24 28 4A 2C 30 29 | "J" = "R$(J,0)|
00000DA0: 3A 82 00 B5 15 34 03 A1 41 24 3A 8B 41 24 B2 22 |:....4..A$:.A$."|
00000DB0: 22 A7 38 32 30 00 C1 15 35 03 47 B2 C5 28 41 24 |".820...5.G..(A$|
00000DC0: 29 00 CE 15 3E 03 8B 47 B1 4E A7 38 32 30 00 F3 |)...>..G.N.820..|
00000DD0: 15 48 03 81 49 B2 31 A4 4C AB 31 3A 8B 52 24 28 |.H..I.1.L.1:.R$(|
00000DE0: 47 2C 49 29 B2 B3 52 24 28 47 2C 49 AA 31 29 A7 |G,I)..R$(G,I.1).|
00000DF0: 38 38 30 00 FE 15 52 03 81 4A B2 30 A4 4E 00 2C |880...R..J.0.N.,|
00000E00: 16 5C 03 43 24 B2 52 24 28 4A 2C 49 29 3A 52 24 |.\.C$.R$(J,I):R$|
00000E10: 28 4A 2C 49 29 B2 52 24 28 4A 2C 49 AA 31 29 3A |(J,I).R$(J,I.1):|
00000E20: 52 24 28 4A 2C 49 AA 31 29 B2 43 24 00 3D 16 66 |R$(J,I.1).C$.=.f|
00000E30: 03 82 3A 8B 49 B1 31 A7 49 B2 49 AB 32 00 6E 16 |..:.I.1.I.I.2.n.|
00000E40: 70 03 99 22 13 20 20 20 20 20 20 20 20 20 20 20 |p..". |
00000E50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E60: 20 20 20 20 20 20 20 20 22 49 3A 82 3A 8E 00 97 | "I:.:...|
00000E70: 16 84 03 99 22 93 C9 54 45 4D 53 20 55 49 54 20 |...."..TEMS UIT |
00000E80: 48 45 54 20 42 45 53 54 41 4E 44 20 56 45 52 57 |HET BESTAND VERW|
00000E90: 49 4A 44 45 52 45 4E 00 BF 16 8E 03 99 22 11 D4 |IJDEREN......"..|
00000EA0: 45 20 56 45 52 57 49 4A 44 45 52 45 4E 20 22 52 |E VERWIJDEREN "R|
00000EB0: 24 28 30 2C 30 29 22 20 22 3A 8D 31 30 30 30 00 |$(0,0)" ":.1000.|
00000EC0: CE 16 98 03 8B 41 24 B2 45 24 A7 39 36 30 00 07 |.....A$.E$.960..|
00000ED0: 17 A2 03 81 49 B2 31 A4 4C 3A 8B C8 28 52 24 28 |....I.1.L:..(R$(|
00000EE0: 30 2C 49 29 2C C3 28 43 24 29 29 B3 B1 43 24 A7 |0,I),.(C$))..C$.|
00000EF0: 82 3A 99 22 CE C9 C5 D4 A0 C1 C1 CE D7 C5 DA C9 |.:."............|
00000F00: C7 22 3A 89 39 31 30 00 28 17 AC 03 99 52 24 28 |.":.910.(....R$(|
00000F10: 30 2C 49 29 3A 99 52 24 28 31 2C 49 29 3A 99 52 |0,I):.R$(1,I):.R|
00000F20: 24 28 32 2C 49 29 3A 99 00 44 17 B6 03 99 22 11 |$(2,I):..D....".|
00000F30: D6 45 52 57 49 4A 44 45 52 45 4E 20 28 4A 2F 4E |.ERWIJDEREN (J/N|
00000F40: 29 20 3F 22 00 61 17 B7 03 A1 41 24 3A 8B 41 24 |) ?".a....A$:.A$|
00000F50: B3 B1 22 4A 22 AF 41 24 B3 B1 22 4E 22 A7 39 35 |.."J".A$.."N".95|
00000F60: 31 00 71 17 B8 03 8B 41 24 B2 22 4E 22 A7 39 31 |1.q....A$."N".91|
00000F70: 30 00 8D 17 B9 03 8B 41 24 B2 22 4A 22 A7 52 24 |0......A$."J".R$|
00000F80: 28 30 2C 49 29 B2 22 22 3A 89 39 31 30 00 9C 17 |(0,I)."":.910...|
00000F90: C0 03 4F B2 30 3A 81 49 B2 31 A4 4C 00 C0 17 CA |..O.0:.I.1.L....|
00000FA0: 03 8B 49 AA 4F B3 4C A7 8B 52 24 28 30 2C 49 AA |..I.O.L..R$(0,I.|
00000FB0: 4F 29 B2 22 22 A7 4F B2 4F AA 31 3A 89 39 37 30 |O)."".O.O.1:.970|
00000FC0: 00 E5 17 D4 03 8B 4F B3 B1 30 A7 81 4A B2 30 A4 |......O..0..J.0.|
00000FD0: 4E 3A 52 24 28 4A 2C 49 29 B2 52 24 28 4A 2C 49 |N:R$(J,I).R$(J,I|
00000FE0: AA 4F 29 3A 82 00 F3 17 DE 03 82 3A 4C B2 4C AB |.O):.......:L.L.|
00000FF0: 4F 3A 8E 00 0A 18 E8 03 43 24 B2 22 22 3A 99 C7 |O:......C$."":..|
00001000: 28 31 34 29 3B 22 AF 9D 22 3B 00 1E 18 F2 03 A1 |(14);"..";......|
00001010: 41 24 3A 8B 41 24 B2 22 22 A7 31 30 31 30 00 3B |A$:.A$."".1010.;|
00001020: 18 FC 03 43 B2 C3 28 43 24 29 3A 8B 41 24 B3 B1 |...C..(C$):.A$..|
00001030: C7 28 31 35 37 29 A7 31 30 34 30 00 49 18 06 04 |.(157).1040.I...|
00001040: 8B 43 B2 30 A7 31 30 31 30 00 6F 18 08 04 8B 43 |.C.0.1010.o....C|
00001050: B3 B1 30 A7 99 41 24 22 AF 9D 22 3B 3A 43 24 B2 |..0..A$"..";:C$.|
00001060: C8 28 43 24 2C 43 AB 31 29 3A 89 31 30 31 30 00 |.(C$,C.1):.1010.|
00001070: 8B 18 10 04 8B 41 24 B2 45 24 B0 41 24 B2 52 24 |.....A$.E$.A$.R$|
00001080: A7 99 22 20 22 3A 89 31 30 36 30 00 A7 18 1A 04 |.." ":.1060.....|
00001090: 99 41 24 22 AF 9D 22 3B 3A 43 24 B2 43 24 AA 41 |.A$"..";:C$.C$.A|
000010A0: 24 3A 89 31 30 31 30 00 AD 18 24 04 8E 00 F8 18 |$:.1010...$.....|
000010B0: 20 4E 99 22 93 C4 52 55 4B 20 4F 50 20 12 D2 C5 | N."..RUK OP ...|
000010C0: D4 D5 D2 CE 92 20 41 4C 53 20 44 45 20 4A 55 49 |..... ALS DE JUI|
000010D0: 53 54 45 20 43 41 53 53 45 54 54 45 20 49 4E 20 |STE CASSETTE IN |
000010E0: 44 45 20 52 45 43 4F 52 44 45 52 20 47 45 50 4C |DE RECORDER GEPL|
000010F0: 41 41 54 53 54 20 49 53 00 17 19 25 4E 99 22 11 |AATST IS...%N.".|
00001100: 28 5E 20 49 53 20 54 45 52 55 47 20 4E 41 41 52 |(^ IS TERUG NAAR|
00001110: 20 4D 45 4E 55 29 2E 00 2C 19 2A 4E A1 41 24 3A | MENU)..,.*N.A$:|
00001120: 8B 41 24 B2 22 22 A7 32 30 30 31 30 00 3B 19 34 |.A$."".20010.;.4|
00001130: 4E 8B 41 24 B2 22 5E 22 A7 39 35 00 4B 19 3E 4E |N.A$."^".95.K.>N|
00001140: 8B 41 24 B2 C7 28 31 33 29 A7 8E 00 56 19 48 4E |.A$..(13)...V.HN|
00001150: 89 32 30 30 31 30 00 00 00 |.20010... |
..(.... ********************************
.O.... * TRS 80 PROGRAMMA VAN C.F.OUT *.
V.... * 1607 HG HEM, NEDERLAND *..
.... * AANGEPAST AAN CBM 64 DOOR *.D.
... * DOOR LEON KONING :NEDERLAND *....
.. ********************************.....
.G(14).".#.."..";:N.2:.R$(N,500):E$.G(94
):R$.G(13).E.(.R$(0,0).".PLAAT .":R$(1
,0).".ARTIEST .":R$(2,0).".JAAR .".{.
*..53280,0:.53281,0...-.."....... PLATEN
BESTAND PROGRAMMA .........Q....".
........................../..".
..........................!.2.." .
1 = INVOER .".I.3.." .
2 = LISTEN .".Q.4.." .
3 = ZOEKEN ."...7.." .
4 = MUTEREN ....<.." .5
= NAAR TAPE SCHRIJVEN."...=.." .6
= VAN TAPE LEZEN ."...A.." .7
= UITVOER OP PRINTER .".8.B.." .8
= SORTEREN .".`.F.." .9
= PLAAT VERWIJDEREN ."...H.." ..
..........................J..".. ......
..............................L.K.RR$.D(
L):RR.C(RR$)...L.." .HET BESTAND BEVAT"
L"PLATEN.".8.RR)".".'.P.." .
..S.S.." .BE-EIND
IG ELKE FUNCTIE MET ^ ...T.." .
....U.."
.(DIT VOERT U TERUG NAAR HET MENU)..W.V.
." ....................................
..X.." ...........................
Y..A$:.A$."".89.'.Z.G.E(A$):.G.1.G.9.89.
R.\..G.100,200,300,400,500,600,700,800,9
00.`._..".";:.40...D.."............. BES
TAND INVOER ............":I.L.1...N..J.0
.N:.R$(J,0)" ";.D.X..1000:R$(J,I).C$.W..
..A$.E$.L.I.1:................ ..L.500.I
.I.1:.110......".. GEHEUGEN IS VOL ".$..
..I.1.2000:..*.....;.H..".";:.I.1.L.G.R.
.I;.5)R$(0,I):..5)R$(1,I):..5)R$(2,I):..
|.....(I.6)..I.6.250......A$:.A$."".230.
.....A$.E$........".";............A$:.A$
."".260.E.....P.,..".";:...1.F.0:.".VOLG
ENS WELK ITEM WILT U ZOEKEN ?":..#.6..J.
0.N:." "J" = "R$(J,0):.:..6.;..A$:.A$.
"".315.I.@..A$.E$.A$.R$...^.E.G.E(A$):.G
.N.315.}.J..R$(G,0)" ";:.1000:M.C(C$)...
O..I.1.L...T..H(R$(G,I),M)..C$..:.355.L.
Y..R$(0,I):.R$(1,I):.R$(2,I):.:F.1:....^
..A$:.A$."".350...C..F.1.305...H.."RECOR
D NIET AANWEZIG":.305.:....".VOLGENS WEL
K ITEM WILT U MUTEREN ?":..]....J.0.N:."
"J" = "R$(J,0):.:..P....A$:.A$."".415
.|. .G.E(A$)......A$.E$.A$.R$........G.N
.415......R$(G,0)" ";:.1000:M.C(C$).F...
.I.1.L......H(R$(G,I),M)..C$........H(R$
(G,I),M).C$.445......"RECORD NIET AANWEZ
IG":.400.9....R$(0,I):.R$(1,I):.R$(2,I):
.._.B..".WELK ITEM WILT U WIJZIGEN ?":..
..G..J.0.N:." "J" = "R$(J,0):....L..A$
:.A$."".460...N.G.E(A$)...Q..A$.E$.A$.R$
.....R..G.N.460...V..R$(G,0)" ";:.1000:R
$(G,I).C$......400......20000.3....".HET
BESTAND WORDT OP TAPE GEZET.":."EVEN GE
DULD A.U.B..K...."AANTAL PLATEN:";L.L...
F$."PLATENFILE":F$.F$.",S,R".....1,1,2,
F$:.1,L......I.1.L......1,G(34).R$(0,I).
..&..1,G(34).R$(1,I).I.0..1,G(34).R$(2,I
).Y.:.."...".17)I...D..: 1...N.....X..20
000.4.Y..".HET BESTAND WORDT VAN TAPE GE
LADEN.":."EVEN GEDULD A.U.B..L.].."AANTA
L PLATEN:";L.M.B.F$."PLATENFILE":F$.F$."
,S,R"...L..1,1,0,F$:.1,L...V..I.1.L.....
.1,R$(0,I)......1,R$(1,I)......1,R$(2,I)
.H...."...".17)I.Q....: 1.W..... ....".D
RUK OP .RETURN. ALS DE PRINTER AANGESLO-
TEN EN INGESCHAKELD IS..?.F..".(^ IS TE
RUG NAAR MENU)..O.G.."..HET PRINTEN KAN
MET ^ AFGEBROKEN WORDEN...K..A$:.A$."".7
15...P..A$."^".....U..A$.G(13).735...Z..
715......1,4,7......1,.5)"***** PLATENBE
STAND *****"......I.1.L......1,.3);I;R$(
0,I)......1,.5)R$(1,I). ....1,.5)R$(2,I)
.-....1,G(13).A....A$:.A$."^".790.G.....
R....1,: 1.X....... ..".OP WELK ITEM WIL
T U SORTEREN ?":....*..J.0.N:." "J" =
"R$(J,0):....4..A$:.A$."".820.A.5.G.E(A$
).N.>..G.N.820...H..I.1.L.1:.R$(G,I)..R$
(G,I.1).880...R..J.0.N.,.\.C$.R$(J,I):R$
(J,I).R$(J,I.1):R$(J,I.1).C$.=.F..:.I.1.
I.I.2.N.P..".
"I:.:.......".ITEMS UIT HET BEST
AND VERWIJDEREN......".TE VERWIJDEREN "R
$(0,0)" ":.1000.N....A$.E$.960......I.1.
L:.H(R$(0,I),C(C$))..C$..:."NIET AANWEZI
G":.910.(....R$(0,I):.R$(1,I):.R$(2,I):.
.D....".VERWIJDEREN (J/N) ?".A....A$:.A$
.."J".A$.."N".951.Q....A$."N".910......A
$."J".R$(0,I)."":.910.....O.0:.I.1.L...J
..I.O.L..R$(0,I.O)."".O.O.1:.970...T..O.
.0..J.0.N:R$(J,I).R$(J,I.O):.......:L.L.
O:......C$."":.G(14);"..";......A$:.A$."
".1010.;...C.C(C$):.A$..G(157).1040.I...
.C.0.1010.O....C..0..A$"..";:C$.H(C$,C.1
):.1010......A$.E$.A$.R$.." ":.1060.....
.A$"..";:C$.C$.A$:.1010...$..... N.".DRU
K OP .RETURN. ALS DE JUISTE CASSETTE IN
DE RECORDER GEPLAATST IS...%N.".(^ IS TE
RUG NAAR MENU)..,.*N.A$:.A$."".20010.;.4
N.A$."^".95.K.>N.A$.G(13)...V.HN.20010..
.
> CLICK IMAGE PREVIEW FOR FULL MODAL