UNIFILE D
FILE INFORMATION
FILENAME(S): UNIFILE D
FILE TYPE(S): PRG
FILE SIZE: 4.9K
FIRST SEEN: 2025-11-30 21:28:02
APPEARS ON: 1 disk(s)
FILE HASH
0525050daf2cd2536068c69a35b3740ba32e54974a2745494d73fce4d2299300
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISKETTIE | UNIFILE D | PRG | DuncanTwain | 6 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 00 00 8F 20 42 45 53 54 41 4E 44 45 |....... BESTANDE|
00000010: 4E 20 50 52 4F 47 52 41 4D 4D 41 00 46 08 1E 00 |N PROGRAMMA.F...|
00000020: 97 35 33 32 38 31 2C 37 3A 99 22 93 11 1D 1D 1D |.53281,7:.".....|
00000030: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 1E 55 4E |..............UN|
00000040: 49 46 49 4C 45 22 00 68 08 28 00 99 22 11 11 1F |IFILE".h.(.."...|
00000050: 42 45 53 43 48 49 4B 42 41 52 45 20 43 4F 4D 4D |BESCHIKBARE COMM|
00000060: 41 4E 44 4F 27 53 3A 22 00 85 08 32 00 99 22 11 |ANDO'S:"...2..".|
00000070: 11 1C 20 20 20 31 29 4E 49 45 55 57 45 20 49 4E |.. 1)NIEUWE IN|
00000080: 56 4F 45 52 22 00 A8 08 3C 00 99 22 11 20 20 20 |VOER"...<..". |
00000090: 32 29 5A 4F 45 4B 2F 56 45 52 54 4F 4F 4E 2F 56 |2)ZOEK/VERTOON/V|
000000A0: 45 52 41 4E 44 45 52 22 00 CF 08 46 00 99 22 11 |ERANDER"...F..".|
000000B0: 20 20 20 33 29 42 45 53 54 41 4E 44 20 4E 41 41 | 3)BESTAND NAA|
000000C0: 52 2F 56 41 4E 20 43 41 53 53 45 54 54 45 22 00 |R/VAN CASSETTE".|
000000D0: EA 08 50 00 99 22 11 20 20 20 34 29 53 54 41 52 |..P..". 4)STAR|
000000E0: 54 20 55 4E 49 46 49 4C 45 22 00 FC 08 5A 00 99 |T UNIFILE"...Z..|
000000F0: 22 11 20 20 20 35 29 53 54 4F 50 22 00 21 09 5F |". 5)STOP".!._|
00000100: 00 99 22 11 20 20 20 36 29 42 45 53 54 41 4E 44 |..". 6)BESTAND|
00000110: 20 4E 41 41 52 2F 56 41 4E 20 46 4C 4F 50 50 59 | NAAR/VAN FLOPPY|
00000120: 22 00 3C 09 64 00 85 22 11 1F 55 57 20 4B 45 55 |".<.d.."..UW KEU|
00000130: 5A 45 3A 22 3B 5A 3A 99 22 93 22 3B 00 4E 09 6A |ZE:";Z:.".";.N.j|
00000140: 00 8B 5A B2 36 AF 49 4E B2 31 A7 31 34 30 00 61 |..Z.6.IN.1.140.a|
00000150: 09 6E 00 8B 20 5A B1 33 B0 49 4E B2 31 A7 31 34 |.n.. Z.3.IN.1.14|
00000160: 30 00 9E 09 78 00 99 22 93 11 11 11 11 11 11 11 |0...x.."........|
00000170: 11 1D 1D 1D 1D 1D 1D 1D 55 4E 49 46 49 4C 45 20 |........UNIFILE |
00000180: 4E 4F 47 20 4E 49 45 54 20 47 45 53 54 41 52 54 |NOG NIET GESTART|
00000190: 2E 22 3A 81 49 B2 31 A4 31 30 30 30 3A 82 00 A7 |.":.I.1.1000:...|
000001A0: 09 82 00 89 20 30 30 00 D0 09 8C 00 91 20 5A 8D |.... 00...... Z.|
000001B0: 33 30 30 30 2C 37 30 30 30 2C 38 30 30 30 2C 32 |3000,7000,8000,2|
000001C0: 30 30 30 2C 31 35 30 2C 39 30 30 30 3A 89 30 30 |000,150,9000:.00|
000001D0: 00 F3 09 96 00 99 22 11 11 11 11 11 11 11 11 11 |......".........|
000001E0: 11 11 11 11 11 11 11 11 11 12 20 45 49 4E 44 45 |.......... EINDE|
000001F0: 22 3A 80 00 03 0A D0 07 8F 20 4F 50 53 54 41 52 |":....... OPSTAR|
00000200: 54 45 4E 00 34 0A EE 07 9C 3A 86 41 24 28 34 39 |TEN.4....:.A$(49|
00000210: 39 29 3A 99 22 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |9):."...........|
00000220: 9D 9D 9D 12 1C 4F 50 53 54 41 52 54 45 4E 22 3A |.....OPSTARTEN":|
00000230: 49 4E B2 31 00 6E 0A F3 07 85 22 11 90 4C 41 41 |IN.1.n...."..LAA|
00000240: 44 54 20 55 20 56 41 4E 20 43 41 53 53 45 54 54 |DT U VAN CASSETT|
00000250: 45 2F 46 4C 4F 50 50 59 20 28 59 2F 4E 29 3A 22 |E/FLOPPY (Y/N):"|
00000260: 3B 51 24 3A 8B 51 24 B2 22 59 22 A7 30 30 00 A9 |;Q$:.Q$."Y".00..|
00000270: 0A F8 07 85 22 11 11 1F 48 4F 45 56 45 45 4C 20 |...."...HOEVEEL |
00000280: 53 4F 4F 52 54 45 4E 20 47 45 47 45 56 45 4E 53 |SOORTEN GEGEVENS|
00000290: 3A 22 3B 58 3A 86 42 24 28 58 AB 31 29 2C 41 25 |:";X:.B$(X.1),A%|
000002A0: 28 34 39 39 2C 58 AB 31 29 00 E0 0A 02 08 99 22 |(499,X.1)......"|
000002B0: 11 22 3B 3A 81 49 B2 30 A4 58 AB 31 3A 99 22 9C |.";:.I.0.X.1:.".|
000002C0: 4E 41 41 4D 20 56 48 20 47 45 47 45 56 45 4E 22 |NAAM VH GEGEVEN"|
000002D0: 3B C4 28 49 AA 31 29 3B 22 3A 22 3B 3A 85 51 24 |;.(I.1);":";:.Q$|
000002E0: 00 FD 0A 0C 08 42 24 28 49 29 B2 51 24 3A 82 49 |.....B$(I).Q$:.I|
000002F0: 3A 52 24 B2 C7 28 31 33 29 3A 89 30 30 00 13 0B |:R$..(13):.00...|
00000300: B8 0B 8F 20 4E 49 45 55 57 45 20 47 45 47 45 56 |... NIEUWE GEGEV|
00000310: 45 4E 53 00 43 0B D6 0B 54 31 24 B2 22 22 3A 99 |ENS.C...T1$."":.|
00000320: 22 93 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00000330: 1D 12 1C 4E 49 45 55 57 45 20 47 45 47 45 56 45 |...NIEUWE GEGEVE|
00000340: 4E 53 22 00 71 0B E0 0B 99 22 11 1D 1D 1D 1D 1D |NS".q...."......|
00000350: 1D 1D 1D 1D 1D 1E 22 3B 49 54 3B 22 20 47 45 47 |......";IT;" GEG|
00000360: 45 56 45 4E 53 20 54 4F 54 20 4E 55 20 54 4F 45 |EVENS TOT NU TOE|
00000370: 22 00 92 0B EA 0B 99 22 11 1F 42 45 53 43 48 49 |"......"..BESCHI|
00000380: 4B 42 41 52 45 20 43 4F 4D 4D 41 4E 44 4F 27 53 |KBARE COMMANDO'S|
00000390: 3A 22 00 BD 0B F4 0B 99 22 11 90 3E 9C 49 4E 54 |:"......"..>.INT|
000003A0: 59 50 45 4E 20 56 44 20 47 45 56 52 41 41 47 44 |YPEN VD GEVRAAGD|
000003B0: 45 20 47 45 47 45 56 45 4E 28 53 29 22 00 FA 0B |E GEGEVEN(S)"...|
000003C0: FE 0B 99 22 90 3E 9C 49 4E 54 59 50 45 4E 20 56 |...".>.INTYPEN V|
000003D0: 20 27 5A 5A 5A 27 20 49 4E 44 49 45 4E 20 45 52 | 'ZZZ' INDIEN ER|
000003E0: 20 47 45 45 4E 20 47 45 47 45 56 45 4E 53 20 4D | GEEN GEGEVENS M|
000003F0: 45 45 52 20 5A 59 4E 1E 11 22 00 24 0C 08 0C 81 |EER ZYN..".$....|
00000400: 49 B2 30 A4 58 AB 31 3A 99 42 24 28 49 29 3B 22 |I.0.X.1:.B$(I);"|
00000410: 3A 22 3B 3A 85 51 24 3A 8B 51 24 B2 22 5A 5A 5A |:";:.Q$:.Q$."ZZZ|
00000420: 22 A7 20 8E 00 40 0C 12 0C 8B C3 28 54 31 24 29 |". ..@.....(T1$)|
00000430: AA C3 28 51 24 29 B3 B2 32 35 35 A7 33 31 31 30 |..(Q$)..255.3110|
00000440: 00 7C 0C 1C 0C 99 22 1C 54 45 20 56 45 45 4C 20 |.|....".TE VEEL |
00000450: 4B 41 52 41 4B 54 45 52 53 20 56 4F 4F 52 20 44 |KARAKTERS VOOR D|
00000460: 45 5A 45 20 47 45 47 45 56 45 4E 53 22 3A 81 4A |EZE GEGEVENS":.J|
00000470: B2 31 A4 33 30 30 30 3A 82 4A 3A 8E 00 A6 0C 26 |.1.3000:.J:....&|
00000480: 0C 54 31 24 B2 54 31 24 AA 51 24 3A 54 49 25 28 |.T1$.T1$.Q$:TI%(|
00000490: 49 29 B2 C3 28 54 31 24 29 3A 82 49 3A 99 22 11 |I)..(T1$):.I:.".|
000004A0: 90 57 41 49 54 22 00 BC 0C 30 0C 8D 34 30 30 30 |.WAIT"...0..4000|
000004B0: 3A 8D 35 30 30 30 3A 89 33 30 30 30 00 D0 0C A0 |:.5000:.3000....|
000004C0: 0F 8F 20 42 49 4E 41 52 59 20 53 45 41 52 43 48 |.. BINARY SEARCH|
000004D0: 00 E2 0C BE 0F 8B 20 49 54 B2 30 A7 53 53 B2 30 |...... IT.0.SS.0|
000004E0: 3A 8E 00 01 0D C8 0F 50 4F B2 B5 28 BC 28 49 54 |:......PO..(.(IT|
000004F0: 29 AD BC 28 32 29 29 3A 53 53 B2 32 AE 50 4F AB |)..(2)):SS.2.PO.|
00000500: 31 00 10 0D D2 0F 81 49 B2 50 4F A4 30 A9 AB 31 |1......I.PO.0..1|
00000510: 00 2A 0D DC 0F 8B 41 24 28 53 53 29 B3 54 31 24 |.*....A$(SS).T1$|
00000520: A7 53 53 B2 53 53 AA 32 AE 49 00 44 0D E6 0F 8B |.SS.SS.2.I.D....|
00000530: 41 24 28 53 53 29 B1 54 31 24 A7 53 53 B2 53 53 |A$(SS).T1$.SS.SS|
00000540: AB 32 AE 49 00 53 0D F0 0F 8B 53 53 B3 30 A7 53 |.2.I.S....SS.0.S|
00000550: 53 B2 30 00 68 0D FA 0F 8B 53 53 B1 49 54 AB 31 |S.0.h....SS.IT.1|
00000560: A7 53 53 B2 49 54 AB 31 00 83 0D 04 10 82 49 3A |.SS.IT.1......I:|
00000570: 8B 41 24 28 53 53 29 B3 54 31 24 A7 53 53 B2 53 |.A$(SS).T1$.SS.S|
00000580: 53 AA 31 00 89 0D 0E 10 8E 00 96 0D 88 13 8F 20 |S.1............ |
00000590: 49 4E 53 45 52 54 00 A7 0D A6 13 8B 20 49 54 B2 |INSERT...... IT.|
000005A0: 30 A7 89 35 30 36 30 00 C7 0D B0 13 81 49 B2 49 |0..5060......I.I|
000005B0: 54 A4 53 53 AA 31 A9 AB 31 3A 41 24 28 49 29 B2 |T.SS.1..1:A$(I).|
000005C0: 41 24 28 49 AB 31 29 00 EC 0D BA 13 81 4A B2 30 |A$(I.1)......J.0|
000005D0: A4 58 AB 31 20 3A 41 25 28 49 2C 4A 29 B2 41 25 |.X.1 :A%(I,J).A%|
000005E0: 28 49 AB 31 2C 4A 29 3A 82 4A 2C 49 00 20 0E C4 |(I.1,J):.J,I. ..|
000005F0: 13 41 24 28 53 53 29 B2 54 31 24 3A 81 49 B2 30 |.A$(SS).T1$:.I.0|
00000600: A4 58 AB 31 3A 41 25 28 53 53 2C 49 29 B2 54 49 |.X.1:A%(SS,I).TI|
00000610: 25 28 49 29 3A 82 3A 49 54 B2 49 54 AA 31 3A 8E |%(I):.:IT.IT.1:.|
00000620: 00 31 0E 70 17 8F 20 56 45 52 41 4E 44 45 52 45 |.1.p.. VERANDERE|
00000630: 4E 00 44 0E 8E 17 53 31 B2 53 31 AB 31 3A 54 31 |N.D...S1.S1.1:T1|
00000640: 24 B2 22 22 00 6E 0E 98 17 50 50 B2 30 3A 81 49 |$."".n...PP.0:.I|
00000650: B2 30 A4 58 AB 31 3A 99 22 93 11 1C 45 4E 54 52 |.0.X.1:."...ENTR|
00000660: 59 20 22 3B 53 31 AA 31 3B 22 3A 2D 11 22 00 9D |Y ";S1.1;":-."..|
00000670: 0E A2 17 99 22 1E 22 3B 42 24 28 49 29 3B 22 3A |....".";B$(I);":|
00000680: 1F 22 3B CA 28 41 24 28 53 31 29 2C 50 50 AA 31 |.";.(A$(S1),PP.1|
00000690: 2C 41 25 28 53 31 2C 49 29 AB 50 50 29 00 C9 0E |,A%(S1,I).PP)...|
000006A0: AC 17 99 22 13 11 11 11 11 11 11 11 11 11 11 11 |..."............|
000006B0: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1C |................|
000006C0: 12 57 59 5A 49 47 45 4E 22 00 EA 0E B6 17 99 22 |.WYZIGEN"......"|
000006D0: 11 1F 42 45 53 43 48 49 4B 42 41 52 45 20 43 4F |..BESCHIKBARE CO|
000006E0: 4D 4D 41 4E 44 4F 27 53 3A 22 00 18 0F C0 17 99 |MMANDO'S:"......|
000006F0: 22 11 20 90 3E 1E 12 52 45 54 55 52 4E 92 20 4C |". .>..RETURN. L|
00000700: 41 41 54 20 47 45 47 45 56 45 4E 20 4F 4E 56 45 |AAT GEGEVEN ONVE|
00000710: 52 41 4E 44 45 52 44 22 00 3B 0F CA 17 99 22 20 |RANDERD".;...." |
00000720: 90 3E 1E 54 59 50 45 20 56 45 52 41 4E 44 45 52 |.>.TYPE VERANDER|
00000730: 44 45 20 47 45 47 45 56 45 4E 22 00 5F 0F D4 17 |DE GEGEVEN"._...|
00000740: 99 22 20 90 3E 1E 27 44 44 44 27 20 44 45 4C 45 |." .>.'DDD' DELE|
00000750: 54 45 20 48 45 54 20 47 45 47 45 56 45 4E 22 00 |TE HET GEGEVEN".|
00000760: 89 0F DE 17 99 22 20 90 3E 1E 27 5A 5A 5A 27 20 |....." .>.'ZZZ' |
00000770: 47 45 45 4E 20 56 45 52 44 45 52 45 20 56 45 52 |GEEN VERDERE VER|
00000780: 41 4E 44 45 52 49 4E 47 22 00 A9 0F E8 17 51 24 |ANDERING".....Q$|
00000790: B2 22 22 3A 85 22 11 1F 4D 41 41 4B 20 55 57 20 |."":."..MAAK UW |
000007A0: 4B 45 55 5A 45 22 3B 51 24 00 B9 0F F2 17 8B 51 |KEUZE";Q$......Q|
000007B0: 24 B2 22 5A 5A 5A 22 A7 8E 00 E3 0F FC 17 8B 20 |$."ZZZ"........ |
000007C0: 51 24 B2 22 22 A7 51 24 B2 CA 28 41 24 28 53 31 |Q$."".Q$..(A$(S1|
000007D0: 29 2C 50 50 AA 31 2C 41 25 28 53 31 2C 49 29 AB |),PP.1,A%(S1,I).|
000007E0: 50 50 29 00 F9 0F 06 18 8B 51 24 B2 22 44 44 44 |PP)......Q$."DDD|
000007F0: 22 A7 8D 36 31 38 30 3A 8E 00 31 10 10 18 50 50 |"..6180:..1...PP|
00000800: B2 41 25 28 53 31 2C 49 29 3A 54 31 24 B2 54 31 |.A%(S1,I):T1$.T1|
00000810: 24 AA 51 24 3A 54 49 25 28 49 29 B2 C3 28 54 31 |$.Q$:TI%(I)..(T1|
00000820: 24 29 3A 82 49 3A 8D 36 31 38 30 3A 8D 34 30 30 |$):.I:.6180:.400|
00000830: 30 00 43 10 1A 18 53 31 B2 53 53 3A 8D 35 30 30 |0.C...S1.SS:.500|
00000840: 30 3A 8E 00 50 10 24 18 99 22 90 57 41 49 54 22 |0:..P.$..".WAIT"|
00000850: 00 8D 10 25 18 81 4A B2 53 31 A4 49 54 AB 31 3A |...%..J.S1.IT.1:|
00000860: 41 24 28 4A 29 B2 41 24 28 4A AA 31 29 3A 81 4B |A$(J).A$(J.1):.K|
00000870: B2 30 A4 58 AB 31 3A 41 25 28 4A 2C 4B 29 B2 41 |.0.X.1:A%(J,K).A|
00000880: 25 28 4A AA 31 2C 4B 29 3A 82 4B 2C 4A 00 9B 10 |%(J.1,K):.K,J...|
00000890: 2E 18 49 54 B2 49 54 AB 31 3A 8E 00 A6 10 58 1B |..IT.IT.1:....X.|
000008A0: 8F 20 5A 4F 45 4B 00 CF 10 76 1B 53 31 B2 30 3A |. ZOEK...v.S1.0:|
000008B0: 46 46 B2 30 3A 99 22 93 11 1D 1D 1D 1D 1D 1D 1D |FF.0:.".........|
000008C0: 1D 1D 1D 1D 1D 1D 1D 1D 1C 12 5A 4F 45 4B 22 00 |..........ZOEK".|
000008D0: F0 10 80 1B 99 22 11 1F 42 45 53 43 48 49 4B 42 |....."..BESCHIKB|
000008E0: 41 52 45 20 43 4F 4D 4D 41 4E 44 4F 27 53 3A 22 |ARE COMMANDO'S:"|
000008F0: 00 37 11 8A 1B 99 22 11 20 90 3E 1E 54 59 50 45 |.7....". .>.TYPE|
00000900: 20 27 4E 41 41 4D 27 20 41 4C 53 20 48 45 54 20 | 'NAAM' ALS HET |
00000910: 5A 4F 45 4B 45 4E 20 42 59 20 44 45 5A 45 20 20 |ZOEKEN BY DEZE |
00000920: 20 20 20 20 4E 41 41 4D 20 4D 4F 45 54 20 42 45 | NAAM MOET BE|
00000930: 47 49 4E 4E 45 4E 22 00 7B 11 94 1B 99 22 20 90 |GINNEN".{...." .|
00000940: 3E 1E 47 45 45 46 20 49 49 49 4E 41 41 4D 20 41 |>.GEEF IIINAAM A|
00000950: 4C 53 20 55 20 41 4C 4C 45 45 4E 20 48 45 54 20 |LS U ALLEEN HET |
00000960: 31 45 20 44 45 45 4C 20 20 20 56 41 4E 20 44 45 |1E DEEL VAN DE|
00000970: 20 4E 41 41 4D 20 57 45 45 54 22 00 C4 11 9E 1B | NAAM WEET".....|
00000980: 99 22 20 90 3E 1E 47 45 45 46 20 53 53 53 4E 41 |." .>.GEEF SSSNA|
00000990: 41 4D 20 41 4C 53 20 55 20 4D 41 41 52 20 45 45 |AM ALS U MAAR EE|
000009A0: 4E 20 44 45 45 4C 20 56 41 4E 20 20 20 20 48 45 |N DEEL VAN HE|
000009B0: 54 20 47 45 47 45 56 45 4E 20 57 45 45 54 2C 42 |T GEGEVEN WEET,B|
000009C0: 56 20 22 3B 00 D6 11 9F 1B 99 22 57 4F 4F 4E 50 |V ";......"WOONP|
000009D0: 4C 41 41 54 53 22 00 05 12 A8 1B 99 22 20 90 3E |LAATS"......" .>|
000009E0: 12 52 45 54 55 52 4E 92 20 56 4F 4F 52 20 44 45 |.RETURN. VOOR DE|
000009F0: 20 45 45 52 53 54 45 20 4E 41 41 4D 20 56 44 20 | EERSTE NAAM VD |
00000A00: 46 49 4C 45 22 00 38 12 B2 1B 99 22 11 11 D1 D1 |FILE".8...."....|
00000A10: D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 |................|
00000A20: D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 |................|
00000A30: D1 D1 D1 D1 D1 D1 22 3B 00 61 12 BC 1B 54 31 24 |......";.a...T1$|
00000A40: B2 22 22 3A 85 22 91 91 1F 47 45 45 46 20 5A 4F |."":."...GEEF ZO|
00000A50: 45 4B 20 43 4F 4D 4D 41 4E 44 4F 3A 22 3B 54 31 |EK COMMANDO:";T1|
00000A60: 24 00 7B 12 C6 1B 8B C8 28 54 31 24 2C 33 29 B3 |$.{.....(T1$,3).|
00000A70: B1 22 49 49 49 22 A7 37 31 34 30 00 AB 12 D0 1B |."III".7140.....|
00000A80: 54 31 24 B2 C9 28 54 31 24 2C C3 28 54 31 24 29 |T1$..(T1$,.(T1$)|
00000A90: AB 33 29 3A 8D 20 34 30 30 30 3A 53 31 B2 53 53 |.3):. 4000:S1.SS|
00000AA0: 3A 8B 53 31 B1 49 54 AB 31 A7 8E 00 B5 12 DA 1B |:.S1.IT.1.......|
00000AB0: 89 37 32 34 30 00 CF 12 E4 1B 8B C8 28 54 31 24 |.7240.......(T1$|
00000AC0: 2C 33 29 B3 B1 22 53 53 53 22 A7 37 31 39 30 00 |,3).."SSS".7190.|
00000AD0: 05 13 EE 1B 46 46 B2 30 3A 54 31 24 B2 C9 28 54 |....FF.0:T1$..(T|
00000AE0: 31 24 2C C3 28 54 31 24 29 AB 33 29 3A 81 49 B2 |1$,.(T1$).3):.I.|
00000AF0: 53 31 A4 49 54 AB 31 3A 81 4A B2 31 A4 C3 28 41 |S1.IT.1:.J.1..(A|
00000B00: 24 28 49 29 29 00 3C 13 F8 1B 8B CA 28 41 24 28 |$(I)).<.....(A$(|
00000B10: 49 29 2C 4A 2C C3 28 54 31 24 29 29 B2 54 31 24 |I),J,.(T1$)).T1$|
00000B20: A7 46 46 B2 31 3A 53 31 B2 49 3A 4A B2 C3 28 41 |.FF.1:S1.I:J..(A|
00000B30: 24 28 49 29 29 3A 49 B2 49 54 AB 31 00 5F 13 02 |$(I)):I.IT.1._..|
00000B40: 1C 82 4A 2C 49 3A 8B 46 46 B2 31 A7 54 31 24 B2 |..J,I:.FF.1.T1$.|
00000B50: 22 53 53 53 22 AA 54 31 24 3A 89 37 32 34 30 00 |"SSS".T1$:.7240.|
00000B60: 65 13 0C 1C 8E 00 76 13 16 1C 8B 54 31 24 B2 22 |e.....v....T1$."|
00000B70: 22 A7 37 32 34 30 00 98 13 20 1C 46 46 B2 30 3A |".7240... .FF.0:|
00000B80: 81 49 B2 53 31 A4 49 54 AB 31 3A 50 50 B2 30 3A |.I.S1.IT.1:PP.0:|
00000B90: 81 4A B2 30 A4 58 AB 31 00 D1 13 2A 1C 8B CA 28 |.J.0.X.1...*...(|
00000BA0: 41 24 28 49 29 2C 50 50 AA 31 2C 41 25 28 49 2C |A$(I),PP.1,A%(I,|
00000BB0: 4A 29 AB 50 50 29 B2 54 31 24 A7 46 46 B2 31 3A |J).PP).T1$.FF.1:|
00000BC0: 53 31 B2 49 3A 4A B2 58 AB 31 3A 49 B2 49 54 AB |S1.I:J.X.1:I.IT.|
00000BD0: 31 00 F2 13 34 1C 50 50 B2 41 25 28 49 2C 4A 29 |1...4.PP.A%(I,J)|
00000BE0: 3A 82 4A 3A 82 49 3A 8B 20 46 46 B2 31 A7 37 32 |:.J:.I:. FF.1.72|
00000BF0: 34 30 00 F8 13 3E 1C 8E 00 0D 14 48 1C 8B 53 31 |40...>.....H..S1|
00000C00: B1 49 54 AB 31 A7 53 31 B2 49 54 AB 31 00 19 14 |.IT.1.S1.IT.1...|
00000C10: 52 1C 8B 49 54 B2 30 A7 8E 00 28 14 5C 1C 8B 53 |R..IT.0...(.\..S|
00000C20: 31 B3 30 A7 53 31 B2 30 00 49 14 66 1C 99 22 93 |1.0.S1.0.I.f..".|
00000C30: 11 1C 45 4E 54 52 59 20 22 3B 53 31 AA 31 3B 22 |..ENTRY ";S1.1;"|
00000C40: 3A 2D 11 22 3A 50 50 B2 30 00 81 14 70 1C 81 49 |:-.":PP.0...p..I|
00000C50: B2 30 A4 58 AB 31 3A 99 22 1E 22 3B 42 24 28 49 |.0.X.1:.".";B$(I|
00000C60: 29 3B 22 3A 1F 22 3B CA 28 41 24 28 53 31 29 2C |);":.";.(A$(S1),|
00000C70: 50 50 AA 31 2C 41 25 28 53 31 2C 49 29 AB 50 50 |PP.1,A%(S1,I).PP|
00000C80: 29 00 B9 14 7A 1C 50 50 B2 41 25 28 53 31 2C 49 |)...z.PP.A%(S1,I|
00000C90: 29 3A 82 49 3A 53 31 B2 53 31 AA 31 3A 99 22 13 |):.I:S1.S1.1:.".|
00000CA0: 11 11 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D |................|
00000CB0: 1D 1D 1D 1D 1D 1D 1D 1D 22 00 D5 14 84 1C 99 22 |........"......"|
00000CC0: 12 1C 5A 4F 45 4B 92 20 1F 4B 4F 4D 4D 41 4E 44 |..ZOEK. .KOMMAND|
00000CD0: 4F 27 53 3A 22 00 01 15 8E 1C 99 22 11 20 90 3E |O'S:"......". .>|
00000CE0: 1E 12 52 45 54 55 52 4E 92 20 56 4F 4F 52 20 56 |..RETURN. VOOR V|
00000CF0: 4F 4C 47 45 4E 44 45 20 47 45 47 45 56 45 4E 3A |OLGENDE GEGEVEN:|
00000D00: 22 00 24 15 98 1C 99 22 20 90 3E 1E 27 41 41 41 |".$...." .>.'AAA|
00000D10: 27 20 49 4E 44 49 45 4E 20 54 45 20 57 59 5A 49 |' INDIEN TE WYZI|
00000D20: 47 45 4E 22 00 4A 15 A2 1C 99 22 20 90 3E 1E 27 |GEN".J...." .>.'|
00000D30: 43 43 43 27 20 49 4E 44 49 45 4E 20 56 45 52 44 |CCC' INDIEN VERD|
00000D40: 45 52 20 5A 4F 45 4B 45 4E 22 00 91 15 AC 1C 99 |ER ZOEKEN"......|
00000D50: 22 20 90 3E 1E 27 23 27 4E 55 4D 4D 45 52 20 4F |" .>.'#'NUMMER O|
00000D60: 4D 20 5A 4F 45 4B 50 4F 49 4E 54 45 52 20 56 4F |M ZOEKPOINTER VO|
00000D70: 4F 52 55 49 54 20 4F 46 20 20 20 20 41 43 48 54 |ORUIT OF ACHT|
00000D80: 45 52 55 49 54 20 20 54 45 20 5A 45 54 54 45 4E |ERUIT TE ZETTEN|
00000D90: 22 00 B9 15 B6 1C 99 22 20 90 3E 1E 27 5A 5A 5A |"......" .>.'ZZZ|
00000DA0: 27 20 49 4E 44 49 45 4E 20 45 49 4E 44 45 20 56 |' INDIEN EINDE V|
00000DB0: 48 20 5A 4F 45 4B 45 4E 22 00 D9 15 C0 1C 50 24 |H ZOEKEN".....P$|
00000DC0: B2 22 22 3A 85 22 11 1F 47 45 45 46 20 55 57 20 |."":."..GEEF UW |
00000DD0: 4B 45 55 5A 45 22 3B 50 24 00 EC 15 CA 1C 8B 50 |KEUZE";P$......P|
00000DE0: 24 B2 22 43 43 43 22 A7 37 31 31 30 00 FC 15 D4 |$."CCC".7110....|
00000DF0: 1C 8B 50 24 B2 22 22 A7 37 32 34 30 00 16 16 DE |..P$."".7240....|
00000E00: 1C 8B 50 24 B2 22 41 41 41 22 A7 8D 36 30 30 30 |..P$."AAA"..6000|
00000E10: 3A 89 37 32 34 30 00 26 16 E8 1C 8B 50 24 B2 22 |:.7240.&....P$."|
00000E20: 5A 5A 5A 22 A7 8E 00 50 16 F2 1C 8B C8 28 50 24 |ZZZ"...P.....(P$|
00000E30: 2C 31 29 B2 22 23 22 A7 53 31 B2 53 31 AA C5 28 |,1)."#".S1.S1..(|
00000E40: CA 28 50 24 2C 32 29 29 AB 31 3A 89 37 32 34 30 |.(P$,2)).1:.7240|
00000E50: 00 62 16 FC 1C 53 31 B2 53 31 AB 31 3A 89 37 32 |.b...S1.S1.1:.72|
00000E60: 34 30 00 7F 16 40 1F 8F 20 44 41 54 41 20 56 41 |40...@.. DATA VA|
00000E70: 4E 2F 4E 41 41 52 20 43 41 53 53 45 54 54 45 00 |N/NAAR CASSETTE.|
00000E80: AE 16 5E 1F 99 22 11 1F 53 50 4F 45 4C 20 43 41 |..^.."..SPOEL CA|
00000E90: 53 53 45 54 54 45 20 4E 41 41 52 20 48 45 54 20 |SSETTE NAAR HET |
00000EA0: 4A 55 49 53 54 45 20 4E 55 4D 4D 45 52 22 00 C9 |JUISTE NUMMER"..|
00000EB0: 16 5F 1F 99 22 47 45 45 46 20 44 41 4E 20 27 12 |._.."GEEF DAN '.|
00000EC0: 52 45 54 55 52 4E 92 27 22 00 F8 16 60 1F 99 22 |RETURN.'"...`.."|
00000ED0: 44 52 55 4B 20 4F 50 20 44 45 20 53 54 4F 50 20 |DRUK OP DE STOP |
00000EE0: 54 4F 45 54 53 20 56 44 20 43 41 53 53 45 54 54 |TOETS VD CASSETT|
00000EF0: 45 20 5A 4F 44 52 41 22 00 28 17 68 1F 85 22 44 |E ZODRA".(.h.."D|
00000F00: 45 20 54 41 50 45 20 4E 49 45 54 20 4D 45 45 52 |E TAPE NIET MEER|
00000F10: 20 53 50 4F 45 4C 54 22 3B 51 24 3A 97 31 39 32 | SPOELT";Q$:.192|
00000F20: 2C 37 3A 97 31 2C 33 39 00 6D 17 72 1F 99 22 11 |,7:.1,39.m.r..".|
00000F30: 1F 42 45 53 43 48 49 4B 42 41 52 45 20 43 4F 4D |.BESCHIKBARE COM|
00000F40: 4D 41 4E 44 4F 27 53 3A 22 3A 99 22 11 1E 20 31 |MANDO'S:":.".. 1|
00000F50: 29 44 41 54 41 20 4E 41 41 52 20 43 41 53 53 45 |)DATA NAAR CASSE|
00000F60: 54 54 45 20 53 43 48 52 59 56 45 4E 22 00 8F 17 |TTE SCHRYVEN"...|
00000F70: 73 1F 99 22 20 32 29 44 41 54 41 20 56 41 4E 20 |s.." 2)DATA VAN |
00000F80: 43 41 53 53 45 54 54 45 20 4C 45 5A 45 4E 22 00 |CASSETTE LEZEN".|
00000F90: B4 17 7C 1F 85 22 11 1F 55 57 20 4B 45 55 5A 45 |..|.."..UW KEUZE|
00000FA0: 3A 22 3B 51 3A 91 20 51 89 38 30 37 30 2C 38 31 |:";Q:. Q.8070,81|
00000FB0: 32 30 3A 8E 00 C9 17 86 1F 97 31 2C 37 3A 81 49 |20:.......1,7:.I|
00000FC0: B2 31 A4 32 30 30 30 3A 82 00 EA 17 90 1F 9F 20 |.1.2000:....... |
00000FD0: 31 2C 31 2C 31 2C 22 42 45 53 54 41 4E 44 22 3A |1,1,1,"BESTAND":|
00000FE0: 98 31 2C 49 54 2C 52 24 2C 58 00 1A 18 9A 1F 81 |.1,IT,R$,X......|
00000FF0: 49 B2 30 A4 49 54 AB 31 3A 98 31 2C 41 24 28 49 |I.0.IT.1:.1,A$(I|
00001000: 29 3A 81 4A B2 30 A4 58 AB 31 3A 98 31 2C 41 25 |):.J.0.X.1:.1,A%|
00001010: 28 49 2C 4A 29 3A 82 4A 2C 49 00 32 18 A4 1F 81 |(I,J):.J,I.2....|
00001020: 49 B2 30 A4 58 AB 31 3A 98 31 2C 42 24 28 49 29 |I.0.X.1:.1,B$(I)|
00001030: 3A 82 00 3B 18 AE 1F A0 31 3A 8E 00 6D 18 B8 1F |:..;....1:..m...|
00001040: 9F 31 2C 31 2C 30 2C 22 42 45 53 54 41 4E 44 22 |.1,1,0,"BESTAND"|
00001050: 3A 84 31 2C 49 54 2C 58 3A 86 42 24 28 58 AB 31 |:.1,IT,X:.B$(X.1|
00001060: 29 2C 41 25 28 34 39 39 2C 58 AB 31 29 00 7B 18 |),A%(499,X.1).{.|
00001070: C2 1F 81 49 B2 30 A4 49 54 AB 31 00 A7 18 C4 1F |...I.0.IT.1.....|
00001080: A1 23 31 2C 54 24 3A 8B 54 24 B3 B1 C7 28 31 33 |.#1,T$:.T$...(13|
00001090: 29 A7 41 24 28 49 29 B2 41 24 28 49 29 AA 54 24 |).A$(I).A$(I).T$|
000010A0: 3A 20 89 38 31 33 32 00 C4 18 C6 1F 81 4A B2 30 |: .8132......J.0|
000010B0: A4 58 AB 31 3A 84 31 2C 41 25 28 49 2C 4A 29 3A |.X.1:.1,A%(I,J):|
000010C0: 82 4A 2C 49 00 DC 18 CC 1F 81 49 B2 30 A4 58 AB |.J,I......I.0.X.|
000010D0: 31 3A 84 31 2C 42 24 28 49 29 3A 82 00 E5 18 D6 |1:.1,B$(I):.....|
000010E0: 1F A0 31 3A 8E 00 00 19 28 23 8F 20 44 41 54 41 |..1:....(#. DATA|
000010F0: 20 56 41 4E 2F 4E 41 41 52 20 46 4C 4F 50 50 59 | VAN/NAAR FLOPPY|
00001100: 00 43 19 5A 23 99 22 11 1F 42 45 53 43 48 49 4B |.C.Z#."..BESCHIK|
00001110: 42 41 52 45 20 43 4F 4D 4D 41 4E 44 4F 27 53 3A |BARE COMMANDO'S:|
00001120: 22 3A 99 22 11 1E 20 31 29 44 41 54 41 20 4E 41 |":.".. 1)DATA NA|
00001130: 41 52 20 46 4C 4F 50 50 59 20 53 43 48 52 59 56 |AR FLOPPY SCHRYV|
00001140: 45 4E 22 00 63 19 5B 23 99 22 20 32 29 44 41 54 |EN".c.[#." 2)DAT|
00001150: 41 20 56 41 4E 20 46 4C 4F 50 50 59 20 4C 45 5A |A VAN FLOPPY LEZ|
00001160: 45 4E 22 00 88 19 64 23 85 22 11 1F 55 57 20 4B |EN"...d#."..UW K|
00001170: 45 55 5A 45 3A 22 3B 51 3A 91 20 51 89 39 30 37 |EUZE:";Q:. Q.907|
00001180: 30 2C 39 31 32 30 3A 8E 00 C8 19 6E 23 85 22 47 |0,9120:....n#."G|
00001190: 45 45 46 20 44 45 20 4E 41 41 4D 20 56 41 4E 20 |EEF DE NAAM VAN |
000011A0: 48 45 54 20 4E 49 45 55 57 45 20 42 45 53 54 41 |HET NIEUWE BESTA|
000011B0: 4E 44 22 3B 57 24 3A 57 24 B2 22 38 3A 22 AA 57 |ND";W$:W$."8:".W|
000011C0: 24 AA 22 2C 53 2C 57 22 00 E2 19 78 23 9F 20 31 |$.",S,W"...x#. 1|
000011D0: 35 2C 38 2C 31 35 3A 9F 31 34 2C 38 2C 31 34 2C |5,8,15:.14,8,14,|
000011E0: 57 24 00 F3 19 7D 23 98 31 34 2C 49 54 3A 98 31 |W$...}#.14,IT:.1|
000011F0: 34 2C 58 00 25 1A 82 23 81 49 B2 30 A4 49 54 AB |4,X.%..#.I.0.IT.|
00001200: 31 3A 98 31 34 2C 41 24 28 49 29 3A 81 4A B2 30 |1:.14,A$(I):.J.0|
00001210: A4 58 AB 31 3A 98 31 34 2C 41 25 28 49 2C 4A 29 |.X.1:.14,A%(I,J)|
00001220: 3A 82 4A 2C 49 00 3E 1A 8C 23 81 49 B2 30 A4 58 |:.J,I.>..#.I.0.X|
00001230: AB 31 3A 98 31 34 2C 42 24 28 49 29 3A 82 00 4C |.1:.14,B$(I):..L|
00001240: 1A 96 23 A0 31 34 3A A0 31 35 3A 8E 00 7E 1A A0 |..#.14:.15:..~..|
00001250: 23 85 22 48 4F 45 20 48 45 45 54 20 48 45 54 20 |#."HOE HEET HET |
00001260: 42 45 53 54 41 4E 44 3A 22 3B 57 24 3A 57 24 B2 |BESTAND:";W$:W$.|
00001270: 22 38 3A 22 AA 57 24 AA 22 2C 53 2C 52 22 00 97 |"8:".W$.",S,R"..|
00001280: 1A A2 23 9F 31 35 2C 38 2C 31 35 3A 9F 31 34 2C |..#.15,8,15:.14,|
00001290: 38 2C 31 34 2C 57 24 00 BD 1A A5 23 84 31 34 2C |8,14,W$....#.14,|
000012A0: 49 54 3A 84 31 34 2C 58 3A 86 42 24 28 58 AB 31 |IT:.14,X:.B$(X.1|
000012B0: 29 2C 41 25 28 34 39 39 2C 58 AB 31 29 00 D2 1A |),A%(499,X.1)...|
000012C0: AA 23 81 49 B2 30 A4 49 54 AB 31 3A 99 22 93 22 |.#.I.0.IT.1:."."|
000012D0: 3B 49 00 FF 1A AC 23 A1 23 31 34 2C 54 24 3A 8B |;I....#.#14,T$:.|
000012E0: 54 24 B3 B1 C7 28 31 33 29 A7 41 24 28 49 29 B2 |T$...(13).A$(I).|
000012F0: 41 24 28 49 29 AA 54 24 3A 20 89 39 31 33 32 00 |A$(I).T$: .9132.|
00001300: 0B 1B AD 23 99 41 24 28 49 29 3B 00 33 1B AE 23 |...#.A$(I);.3..#|
00001310: 81 4A B2 30 A4 58 AB 31 3A 84 31 34 2C 41 25 28 |.J.0.X.1:.14,A%(|
00001320: 49 2C 4A 29 3A 99 41 25 28 49 2C 4A 29 3B 3A 82 |I,J):.A%(I,J);:.|
00001330: 4A 2C 49 00 54 1B B4 23 81 49 B2 30 A4 58 AB 31 |J,I.T..#.I.0.X.1|
00001340: 3A 84 31 34 2C 42 24 28 49 29 3A 99 42 24 28 49 |:.14,B$(I):.B$(I|
00001350: 29 3B 3A 82 00 63 1B BE 23 A0 31 34 3A A0 31 35 |);:..c..#.14:.15|
00001360: 20 3A 8E 00 6A 1B C3 23 59 2E 00 00 00 31 | :..j..#Y....1 |
....... BESTANDEN PROGRAMMA.F....53281,7
:."...................UNIFILE".H.(.."...
BESCHIKBARE COMMANDO'S:"...2.."... 1)N
IEUWE INVOER"...<..". 2)ZOEK/VERTOON/V
ERANDER".O.F..". 3)BESTAND NAAR/VAN CA
SSETTE"...P..". 4)START UNIFILE"...Z..
". 5)STOP".!._..". 6)BESTAND NAAR/VA
N FLOPPY".<.D.."..UW KEUZE:";Z:.".";.N.J
..Z.6.IN.1.140.A.N.. Z.3.IN.1.140...X.."
................UNIFILE NOG NIET GESTART
.":.I.1.1000:....... 00.P.... Z.3000,700
0,8000,2000,150,9000:.00......".........
.......... EINDE":....P.. OPSTARTEN.4...
.:.A$(499):."................OPSTARTEN":
IN.1.N...."..LAADT U VAN CASSETTE/FLOPPY
(Y/N):";Q$:.Q$."Y".00......"...HOEVEEL
SOORTEN GEGEVENS:";X:.B$(X.1),A%(499,X.1
)......".";:.I.0.X.1:.".NAAM VH GEGEVEN"
;D(I.1);":";:.Q$.....B$(I).Q$:.I:R$.G(13
):.00...... NIEUWE GEGEVENS.C.V.T1$."":.
"..................NIEUWE GEGEVENS".Q...
."............";IT;" GEGEVENS TOT NU TOE
"......"..BESCHIKBARE COMMANDO'S:"......
"..>.INTYPEN VD GEVRAAGDE GEGEVEN(S)"...
...".>.INTYPEN V 'ZZZ' INDIEN ER GEEN GE
GEVENS MEER ZYN..".$....I.0.X.1:.B$(I);"
:";:.Q$:.Q$."ZZZ". ..@....C(T1$).C(Q$)..
255.3110.|....".TE VEEL KARAKTERS VOOR D
EZE GEGEVENS":.J.1.3000:.J:....&.T1$.T1$
.Q$:TI%(I).C(T1$):.I:."..WAIT"...0..4000
:.5000:.3000.P. .. BINARY SEARCH...... I
T.0.SS.0:....H.PO..(.(IT)..(2)):SS.2.PO.
1...R..I.PO.0..1.*....A$(SS).T1$.SS.SS.2
.I.D....A$(SS).T1$.SS.SS.2.I.S....SS.0.S
S.0.H....SS.IT.1.SS.IT.1......I:.A$(SS).
T1$.SS.SS.1............ INSERT...... IT.
0..5060.G....I.IT.SS.1..1:A$(I).A$(I.1).
.....J.0.X.1 :A%(I,J).A%(I.1,J):.J,I. .D
.A$(SS).T1$:.I.0.X.1:A%(SS,I).TI%(I):.:I
T.IT.1:..1.P.. VERANDEREN.D...S1.S1.1:T1
$."".N...PP.0:.I.0.X.1:."...ENTRY ";S1.1
;":-."......".";B$(I);":.";J(A$(S1),PP.1
,A%(S1,I).PP).I...."....................
.........WYZIGEN"......"..BESCHIKBARE CO
MMANDO'S:"......". .>..RETURN. LAAT GEGE
VEN ONVERANDERD".;.J.." .>.TYPE VERANDER
DE GEGEVEN"._.T.." .>.'DDD' DELETE HET G
EGEVEN"......" .>.'ZZZ' GEEN VERDERE VER
ANDERING".....Q$."":."..MAAK UW KEUZE";Q
$......Q$."ZZZ"........ Q$."".Q$.J(A$(S1
),PP.1,A%(S1,I).PP)......Q$."DDD"..6180:
..1...PP.A%(S1,I):T1$.T1$.Q$:TI%(I).C(T1
$):.I:.6180:.4000.C...S1.SS:.5000:..P.$.
.".WAIT"...%..J.S1.IT.1:A$(J).A$(J.1):.K
.0.X.1:A%(J,K).A%(J.1,K):.K,J.....IT.IT.
1:....X.. ZOEK.O.V.S1.0:FF.0:.".........
..........ZOEK"......"..BESCHIKBARE COMM
ANDO'S:".7....". .>.TYPE 'NAAM' ALS HET
ZOEKEN BY DEZE NAAM MOET BEGINNEN".
{...." .>.GEEF IIINAAM ALS U ALLEEN HET
1E DEEL VAN DE NAAM WEET".D...." .>.GE
EF SSSNAAM ALS U MAAR EEN DEEL VAN HE
T GEGEVEN WEET,BV ";.V...."WOONPLAATS"..
...." .>.RETURN. VOOR DE EERSTE NAAM VD
FILE".8...."..QQQQQQQQQQQQQQQQQQQQQQQQQQ
QQQQQQQQQQQQQQ";.A...T1$."":."...GEEF ZO
EK COMMANDO:";T1$.{.F..H(T1$,3).."III".7
140...P.T1$.I(T1$,C(T1$).3):. 4000:S1.SS
:.S1.IT.1.....Z..7240.O....H(T1$,3).."SS
S".7190.....FF.0:T1$.I(T1$,C(T1$).3):.I.
S1.IT.1:.J.1.C(A$(I)).<....J(A$(I),J,C(T
1$)).T1$.FF.1:S1.I:J.C(A$(I)):I.IT.1._..
..J,I:.FF.1.T1$."SSS".T1$:.7240.E.....V.
...T1$."".7240... .FF.0:.I.S1.IT.1:PP.0:
.J.0.X.1.Q.*..J(A$(I),PP.1,A%(I,J).PP).T
1$.FF.1:S1.I:J.X.1:I.IT.1...4.PP.A%(I,J)
:.J:.I:. FF.1.7240...>.....H..S1.IT.1.S1
.IT.1...R..IT.0...(.\..S1.0.S1.0.I.F..".
..ENTRY ";S1.1;":-.":PP.0...P..I.0.X.1:.
".";B$(I);":.";J(A$(S1),PP.1,A%(S1,I).PP
)...Z.PP.A%(S1,I):.I:S1.S1.1:.".........
................".U...."..ZOEK. .KOMMAND
O'S:"......". .>..RETURN. VOOR VOLGENDE
GEGEVEN:".$...." .>.'AAA' INDIEN TE WYZI
GEN".J...." .>.'CCC' INDIEN VERDER ZOEKE
N"......" .>.'#'NUMMER OM ZOEKPOINTER VO
ORUIT OF ACHTERUIT TE ZETTEN"......"
.>.'ZZZ' INDIEN EINDE VH ZOEKEN".Y...P$
."":."..GEEF UW KEUZE";P$...J..P$."CCC".
7110...T..P$."".7240......P$."AAA"..6000
:.7240.&....P$."ZZZ"...P....H(P$,1)."#".
S1.S1.E(J(P$,2)).1:.7240.B...S1.S1.1:.72
40..@.. DATA VAN/NAAR CASSETTE...^.."..
SPOEL CASSETTE NAAR HET JUISTE NUMMER".I
._.."GEEF DAN '.RETURN.'"...`.."DRUK OP
DE STOP TOETS VD CASSETTE ZODRA".(.H.."D
E TAPE NIET MEER SPOELT";Q$:.192,7:.1,39
.M.R.."..BESCHIKBARE COMMANDO'S:":.".. 1
)DATA NAAR CASSETTE SCHRYVEN"...S.." 2)D
ATA VAN CASSETTE LEZEN"...|.."..UW KEUZE
:";Q:. Q.8070,8120:..I....1,7:.I.1.2000:
....... 1,1,1,"BESTAND":.1,IT,R$,X......
I.0.IT.1:.1,A$(I):.J.0.X.1:.1,A%(I,J):.J
,I.2....I.0.X.1:.1,B$(I):..;... 1:..M...
.1,1,0,"BESTAND":.1,IT,X:.B$(X.1),A%(499
,X.1).{.B..I.0.IT.1...D..#1,T$:.T$..G(13
).A$(I).A$(I).T$: .8132.D.F..J.0.X.1:.1,
A%(I,J):.J,I...L..I.0.X.1:.1,B$(I):....V
. 1:....(#. DATA VAN/NAAR FLOPPY.C.Z#.".
.BESCHIKBARE COMMANDO'S:":.".. 1)DATA NA
AR FLOPPY SCHRYVEN".C.[#." 2)DATA VAN FL
OPPY LEZEN"...D#."..UW KEUZE:";Q:. Q.907
0,9120:..H.N#."GEEF DE NAAM VAN HET NIEU
WE BESTAND";W$:W$."8:".W$.",S,W"...X#. 1
5,8,15:.14,8,14,W$...}#.14,IT:.14,X.%..#
.I.0.IT.1:.14,A$(I):.J.0.X.1:.14,A%(I,J)
:.J,I.>..#.I.0.X.1:.14,B$(I):..L..# 14:
15:..~. #."HOE HEET HET BESTAND:";W$:W$.
"8:".W$.",S,R"....#.15,8,15:.14,8,14,W$.
...#.14,IT:.14,X:.B$(X.1),A%(499,X.1).R.
.#.I.0.IT.1:.".";I....#.#14,T$:.T$..G(13
).A$(I).A$(I).T$: .9132....#.A$(I);.3..#
.J.0.X.1:.14,A%(I,J):.A%(I,J);:.J,I.T..#
.I.0.X.1:.14,B$(I):.B$(I);:..C..# 14: 15
:..J.C#Y....1
> CLICK IMAGE PREVIEW FOR FULL MODAL