SPY
FILE INFORMATION
FILENAME(S): SPY
FILE TYPE(S): PRG
FILE SIZE: 5.5K
FIRST SEEN: 2025-11-30 21:11:00
APPEARS ON: 1 disk(s)
FILE HASH
c67d73b39ad4ad45251b687ba81ea4f924cbd7ee53fe5a9bd4c87a5cb5a17f47
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPEEDY WERK | SPY | PRG | DuncanTwain | 12 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 15 08 64 00 8F 20 49 4E 49 54 49 41 4C 49 |....d.. INITIALI|
00000010: 53 41 54 49 45 00 47 08 6E 00 54 54 B2 30 3A 4B |SATIE.G.n.TT.0:K|
00000020: 5A B2 30 3A 49 B2 30 3A 97 35 33 32 38 30 2C 30 |Z.0:I.0:.53280,0|
00000030: 3A 97 35 33 32 38 31 2C 30 3A 97 36 34 36 2C 35 |:.53281,0:.646,5|
00000040: 3A 46 4C 41 47 B2 30 00 7B 08 78 00 86 41 24 28 |:FLAG.0.{.x..A$(|
00000050: 33 30 30 2C 35 29 2C 4B 5A 24 28 31 30 29 2C 53 |300,5),KZ$(10),S|
00000060: 54 28 28 BC 28 33 30 30 29 AD BC 28 32 29 AA 34 |T((.(300)..(2).4|
00000070: 29 2C 31 29 2C 56 4E 24 28 37 29 00 86 08 C8 00 |),1),VN$(7).....|
00000080: 8F 20 49 4E 49 54 00 A7 08 D2 00 8D 39 30 30 3A |. INIT......900:|
00000090: 89 31 30 30 30 3A 8F 20 42 45 47 49 4E 20 50 52 |.1000:. BEGIN PR|
000000A0: 4F 47 52 41 4D 4D 41 00 C5 08 2C 01 8F 20 56 41 |OGRAMMA...,.. VA|
000000B0: 52 49 20 57 45 47 5A 45 54 54 45 4E 20 49 4E 20 |RI WEGZETTEN IN |
000000C0: 41 52 52 41 59 00 F0 08 36 01 81 49 49 B2 30 A4 |ARRAY...6..II.0.|
000000D0: 35 3A 41 24 28 41 41 2C 49 49 29 B2 48 41 24 28 |5:A$(AA,II).HA$(|
000000E0: 49 49 29 3A 48 41 24 B2 22 22 3A 82 49 49 3A 8E |II):HA$."":.II:.|
000000F0: 00 0E 09 90 01 8F 20 44 41 54 41 20 4B 45 55 5A |...... DATA KEUZ|
00000100: 45 4D 4F 47 45 4C 49 4A 4B 48 45 44 45 4E 00 56 |EMOGELIJKHEDEN.V|
00000110: 09 9A 01 83 22 4B 45 55 5A 45 4D 45 4E 55 20 41 |...."KEUZEMENU A|
00000120: 44 52 45 53 53 45 4E 42 45 53 54 41 4E 44 22 2C |DRESSENBESTAND",|
00000130: 22 52 45 43 4F 52 44 53 20 54 4F 45 56 4F 45 47 |"RECORDS TOEVOEG|
00000140: 45 4E 22 2C 22 52 45 43 4F 52 44 53 20 57 49 4A |EN","RECORDS WIJ|
00000150: 5A 49 47 45 4E 22 00 97 09 A4 01 83 22 52 45 43 |ZIGEN"......"REC|
00000160: 4F 52 44 53 20 56 45 52 57 49 4A 44 45 52 45 4E |ORDS VERWIJDEREN|
00000170: 22 2C 22 52 45 43 4F 52 44 53 20 4F 50 5A 4F 45 |","RECORDS OPZOE|
00000180: 4B 45 4E 22 2C 22 42 45 53 54 41 4E 44 20 53 4F |KEN","BESTAND SO|
00000190: 52 54 45 52 45 4E 22 00 E1 09 AE 01 83 22 42 45 |RTEREN"......"BE|
000001A0: 53 54 41 4E 44 20 50 52 49 4E 54 45 4E 22 2C 22 |STAND PRINTEN","|
000001B0: 42 45 53 54 41 4E 44 20 49 4E 4C 45 5A 45 4E 22 |BESTAND INLEZEN"|
000001C0: 2C 22 42 45 53 54 41 4E 44 20 57 45 47 53 43 48 |,"BESTAND WEGSCH|
000001D0: 52 49 4A 56 45 4E 22 2C 22 53 54 4F 50 50 45 4E |RIJVEN","STOPPEN|
000001E0: 22 00 2D 0A B8 01 83 22 45 49 4E 44 22 2C 22 4E |".-...."EIND","N|
000001F0: 41 41 4D 20 20 20 20 20 20 20 20 20 22 2C 22 56 |AAM ","V|
00000200: 4F 4F 52 4C 45 54 54 45 52 53 20 20 22 2C 22 53 |OORLETTERS ","S|
00000210: 54 52 41 41 54 20 45 4E 20 4E 4F 2E 22 2C 22 50 |TRAAT EN NO.","P|
00000220: 4F 53 54 43 4F 44 45 20 20 20 20 20 22 00 52 0A |OSTCODE ".R.|
00000230: C2 01 83 22 57 4F 4F 4E 50 4C 41 41 54 53 20 20 |..."WOONPLAATS |
00000240: 20 22 2C 22 54 45 4C 45 46 4F 4F 4E 20 20 20 20 | ","TELEFOON |
00000250: 20 22 00 64 0A F4 01 8F 20 50 52 49 4E 54 45 4E | ".d.... PRINTEN|
00000260: 20 4B 4F 50 00 70 0A FE 01 99 C7 28 31 34 37 29 | KOP.p.....(147)|
00000270: 00 A2 0A 08 02 99 22 1C 2A 2A 2A 2A 2A 2A 2A 2A |......".********|
00000280: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000290: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002A0: 1E 22 00 D2 0A 0D 02 5A 24 B2 22 53 50 45 45 44 |.".....Z$."SPEED|
000002B0: 59 27 53 20 41 44 52 45 53 42 45 53 54 41 4E 44 |Y'S ADRESBESTAND|
000002C0: 22 3A 99 A3 32 30 AB C3 28 5A 24 29 AD 32 29 3B |":..20..(Z$).2);|
000002D0: 5A 24 00 F5 0A 12 02 99 3A 99 A3 32 30 AB C3 28 |Z$......:..20..(|
000002E0: 4B 5A 24 28 4B 5A 29 29 AD 32 29 3B 4B 5A 24 28 |KZ$(KZ)).2);KZ$(|
000002F0: 4B 5A 29 3A 99 00 0F 0B 1C 02 99 22 41 41 4E 54 |KZ):......."AANT|
00000300: 41 4C 20 52 45 43 4F 52 44 53 3A 22 3B 54 54 00 |AL RECORDS:";TT.|
00000310: 43 0B 26 02 99 22 1C 2A 2A 2A 2A 2A 2A 2A 2A 2A |C.&..".*********|
00000320: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 1E |***************.|
00000340: 22 3A 8E 00 5F 0B 58 02 8F 20 4D 45 4E 55 20 50 |":.._.X.. MENU P|
00000350: 52 49 4E 54 45 4E 20 45 4E 20 4B 45 55 5A 45 00 |RINTEN EN KEUZE.|
00000360: 83 0B 62 02 8D 35 30 30 3A 81 49 B2 31 A4 54 4B |..b..500:.I.1.TK|
00000370: 3A 99 49 3B 22 20 2D 20 22 3B 4B 5A 24 28 49 29 |:.I;" - ";KZ$(I)|
00000380: 3A 82 49 00 9C 0B 6C 02 99 3A 99 22 4D 41 41 4B |:.I...l..:."MAAK|
00000390: 20 45 45 4E 20 4B 45 55 5A 45 22 3B 00 A5 0B 76 | EEN KEUZE";...v|
000003A0: 02 8D 38 30 30 00 C2 0B 80 02 4B 5A B2 C5 28 54 |..800.....KZ..(T|
000003B0: 24 29 3A 8B 4B 5A B3 31 B0 4B 5A B1 54 4B A7 36 |$):.KZ.1.KZ.TK.6|
000003C0: 33 30 00 C8 0B 8A 02 8E 00 DC 0B 20 03 8F 20 49 |30......... .. I|
000003D0: 4E 4C 45 5A 45 4E 20 54 4F 45 54 53 00 EF 0B 2A |NLEZEN TOETS...*|
000003E0: 03 A1 54 24 3A 8B 54 24 B2 22 22 A7 38 31 30 00 |..T$:.T$."".810.|
000003F0: F5 0B 34 03 8E 00 08 0C 52 03 8F 20 4A 41 2F 4E |..4.....R.. JA/N|
00000400: 45 45 20 49 4E 50 55 54 00 1B 0C 54 03 4F 4B B2 |EE INPUT...T.OK.|
00000410: 30 3A 41 24 B2 22 CA 4A CE 4E 22 00 30 0C 5C 03 |0:A$.".J.N".0.\.|
00000420: 8D 38 31 30 3A 81 49 49 B2 31 A4 C3 28 41 24 29 |.810:.II.1..(A$)|
00000430: 00 48 0C 66 03 8B 54 24 B2 CA 28 41 24 2C 49 49 |.H.f..T$..(A$,II|
00000440: 2C 31 29 A7 4F 4B B2 31 00 54 0C 70 03 8B 4F 4B |,1).OK.1.T.p..OK|
00000450: B2 31 A7 8E 00 5C 0C 7A 03 82 49 49 00 65 0C 7F |.1...\.z..II.e..|
00000460: 03 89 38 36 30 00 6B 0C 80 03 80 00 8D 0C 84 03 |..860.k.........|
00000470: 8F 20 49 4E 4C 45 5A 45 4E 20 4B 45 55 5A 45 20 |. INLEZEN KEUZE |
00000480: 4D 4F 47 45 4C 49 4A 4B 48 45 44 45 4E 00 9A 0C |MOGELIJKHEDEN...|
00000490: 8E 03 49 B2 30 3A 54 4B B2 30 00 A6 0C 93 03 87 |..I.0:TK.0......|
000004A0: 4B 5A 24 28 49 29 00 C5 0C 98 03 8B 4B 5A 24 28 |KZ$(I)......KZ$(|
000004B0: 49 29 B2 22 45 49 4E 44 22 A7 54 4B B2 49 AB 31 |I)."EIND".TK.I.1|
000004C0: 3A 89 39 35 30 00 CF 0C A2 03 49 B2 49 AA 31 00 |:.950.....I.I.1.|
000004D0: D8 0C AC 03 89 39 31 35 00 E3 0C B6 03 81 49 B2 |.....915......I.|
000004E0: 30 A4 35 00 EF 0C C0 03 87 56 4E 24 28 49 29 00 |0.5......VN$(I).|
000004F0: F6 0C CA 03 82 49 00 0C 0D E8 03 8F 20 42 45 47 |.....I...... BEG|
00000500: 49 4E 20 50 52 4F 47 52 41 4D 4D 41 00 1F 0D F2 |IN PROGRAMMA....|
00000510: 03 53 55 B2 30 3A 4B 5A B2 30 3A 8D 36 30 30 00 |.SU.0:KZ.0:.600.|
00000520: 2F 0D FC 03 8B 4B 5A B2 54 4B A7 39 35 30 30 00 |/....KZ.TK.9500.|
00000530: 5F 0D 06 04 91 4B 5A 8D 32 30 30 30 2C 33 30 30 |_....KZ.2000,300|
00000540: 30 2C 34 30 30 30 2C 37 30 30 30 2C 36 30 30 30 |0,4000,7000,6000|
00000550: 2C 35 30 30 30 2C 38 30 30 30 2C 39 30 30 30 00 |,5000,8000,9000.|
00000560: 69 0D 10 04 89 31 30 31 30 00 81 0D D0 07 8F 20 |i....1010...... |
00000570: 54 4F 45 56 4F 45 47 45 4E 20 42 45 53 54 41 4E |TOEVOEGEN BESTAN|
00000580: 44 00 91 0D DA 07 8D 35 30 30 3A 46 4C 41 47 B2 |D......500:FLAG.|
00000590: 31 00 9F 0D E4 07 99 3A 81 49 49 B2 30 A4 35 00 |1......:.II.0.5.|
000005A0: B1 0D EE 07 99 56 4E 24 28 49 49 29 3B 22 3A 22 |.....VN$(II);":"|
000005B0: 3B 00 BE 0D 02 08 85 48 41 24 28 49 49 29 00 C6 |;......HA$(II)..|
000005C0: 0D 0C 08 82 49 49 00 E8 0D 2A 08 99 3A 99 22 4B |....II...*..:."K|
000005D0: 4F 52 52 45 43 54 20 49 4E 47 45 56 4F 45 52 44 |ORRECT INGEVOERD|
000005E0: 20 28 4A 2F 4E 29 22 3B 00 F1 0D 34 08 8D 38 35 | (J/N)";...4..85|
000005F0: 30 00 09 0E 3E 08 8B 54 24 B2 22 CE 22 B0 54 24 |0...>..T$.".".T$|
00000600: B2 22 4E 22 A7 32 30 30 30 00 20 0E 48 08 54 54 |."N".2000. .H.TT|
00000610: B2 54 54 AA 31 3A 41 41 B2 54 54 3A 8D 33 30 30 |.TT.1:AA.TT:.300|
00000620: 00 45 0E 52 08 99 3A 99 22 4D 45 45 52 20 52 45 |.E.R..:."MEER RE|
00000630: 43 4F 52 44 53 20 49 4E 56 4F 45 52 45 4E 20 28 |CORDS INVOEREN (|
00000640: 4A 2F 4E 29 22 00 4E 0E 5C 08 8D 38 35 30 00 63 |J/N)".N.\..850.c|
00000650: 0E 66 08 8B 54 24 B2 22 CE 22 B0 54 24 B2 22 4E |.f..T$.".".T$."N|
00000660: 22 A7 8E 00 6D 0E 70 08 89 32 30 30 30 00 7C 0E |"...m.p..2000.|.|
00000670: B8 0B 8F 20 57 49 4A 5A 49 47 45 4E 00 9F 0E BD |... WIJZIGEN....|
00000680: 0B 46 4C 41 47 B2 31 3A 8D 35 30 30 3A 53 55 B2 |.FLAG.1:.500:SU.|
00000690: 32 3A 8D 37 30 31 30 3A 8B 53 55 B2 32 A7 8E 00 |2:.7010:.SU.2...|
000006A0: CA 0E C2 0B 8D 35 30 30 3A 81 49 49 B2 30 A4 35 |.....500:.II.0.5|
000006B0: 3A 99 56 4E 24 28 49 49 29 3B 22 3A 22 3B 41 24 |:.VN$(II);":";A$|
000006C0: 28 59 2C 49 49 29 3A 82 49 49 00 E9 0E CC 0B 99 |(Y,II):.II......|
000006D0: 3A 99 22 57 49 4A 5A 49 47 45 4E 20 5A 45 4B 45 |:."WIJZIGEN ZEKE|
000006E0: 52 20 28 4A 2F 4E 29 22 3B 00 03 0F D6 0B 8D 38 |R (J/N)";......8|
000006F0: 35 30 3A 8B 54 24 B2 22 CE 22 B0 54 24 B2 22 4E |50:.T$.".".T$."N|
00000700: 22 A7 8E 00 13 0F E0 0B 99 C7 28 31 39 29 3A 8D |".........(19):.|
00000710: 35 32 30 00 1F 0F EA 0B 81 49 49 B2 30 A4 35 00 |520......II.0.5.|
00000720: 3A 0F F4 0B 99 56 4E 24 28 49 49 29 3B 22 3A 22 |:....VN$(II);":"|
00000730: 3B 41 24 28 49 2C 49 49 29 3B 00 47 0F FE 0B 85 |;A$(I,II);.G....|
00000740: 48 41 24 28 49 49 29 00 4F 0F 08 0C 82 49 49 00 |HA$(II).O....II.|
00000750: 71 0F 12 0C 99 3A 99 22 4B 4F 52 52 45 43 54 20 |q....:."KORRECT |
00000760: 49 4E 47 45 56 4F 45 52 44 20 28 4A 2F 4E 29 22 |INGEVOERD (J/N)"|
00000770: 3B 00 7A 0F 1C 0C 8D 38 35 30 00 92 0F 26 0C 8B |;.z....850...&..|
00000780: 54 24 B2 22 CE 22 B0 54 24 B2 22 4E 22 A7 33 30 |T$.".".T$."N".30|
00000790: 30 30 00 A0 0F 30 0C 41 41 B2 59 3A 8D 33 30 30 |00...0.AA.Y:.300|
000007A0: 00 C6 0F 3A 0C 99 3A 99 22 4D 45 45 52 20 52 45 |...:..:."MEER RE|
000007B0: 43 4F 52 44 53 20 57 49 4A 5A 49 47 45 4E 20 28 |CORDS WIJZIGEN (|
000007C0: 4A 2F 4E 29 22 3B 00 CF 0F 44 0C 8D 38 35 30 00 |J/N)";...D..850.|
000007D0: E4 0F 4E 0C 8B 54 24 B2 22 CE 22 B0 54 24 B2 22 |..N..T$.".".T$."|
000007E0: 4E 22 A7 8E 00 EE 0F 58 0C 89 33 30 30 30 00 07 |N".....X..3000..|
000007F0: 10 A0 0F 8F 20 52 45 43 4F 52 44 20 56 45 52 57 |.... RECORD VERW|
00000800: 49 4A 44 45 52 45 4E 00 2A 10 AA 0F 46 4C 41 47 |IJDEREN.*...FLAG|
00000810: B2 31 3A 8D 35 30 30 3A 53 55 B2 31 3A 8D 37 30 |.1:.500:SU.1:.70|
00000820: 31 30 3A 8B 53 55 B2 31 A7 8E 00 55 10 AB 0F 8D |10:.SU.1...U....|
00000830: 35 30 30 3A 81 49 49 B2 30 A4 35 3A 99 56 4E 24 |500:.II.0.5:.VN$|
00000840: 28 49 49 29 3B 22 3A 22 3B 41 24 28 59 2C 49 49 |(II);":";A$(Y,II|
00000850: 29 3A 82 49 49 00 77 10 B4 0F 99 3A 99 22 56 45 |):.II.w....:."VE|
00000860: 52 57 49 4A 44 45 52 45 4E 20 5A 45 4B 45 52 20 |RWIJDEREN ZEKER |
00000870: 28 4A 2F 4E 29 22 3B 00 91 10 BE 0F 8D 38 35 30 |(J/N)";......850|
00000880: 3A 8B 54 24 B2 22 CE 22 B0 54 24 B2 22 4E 22 A7 |:.T$.".".T$."N".|
00000890: 8E 00 AB 10 C8 0F 41 24 28 59 2C 30 29 B2 22 2A |......A$(Y,0)."*|
000008A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 ED 10 D2 0F |**********".....|
000008B0: 8F 20 41 4C 4C 45 20 52 45 43 4F 52 44 53 20 4D |. ALLE RECORDS M|
000008C0: 45 54 20 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 |ET "***********"|
000008D0: 20 56 45 52 57 49 4A 44 45 52 45 4E 20 42 49 4A | VERWIJDEREN BIJ|
000008E0: 20 57 45 47 53 43 48 52 49 4A 56 45 4E 00 F3 10 | WEGSCHRIJVEN...|
000008F0: 04 10 8E 00 11 11 88 13 8F 20 50 52 49 4E 54 45 |......... PRINTE|
00000900: 4E 20 56 41 4E 20 45 45 4E 20 42 45 53 54 41 4E |N VAN EEN BESTAN|
00000910: 44 00 19 11 92 13 49 B2 31 00 22 11 9C 13 8D 35 |D.....I.1."....5|
00000920: 30 30 00 69 11 A1 13 99 3A 99 22 4F 50 20 50 52 |00.i....:."OP PR|
00000930: 49 4E 54 45 52 20 28 4A 2F 4E 29 20 20 20 20 20 |INTER (J/N) |
00000940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000950: 20 20 20 11 53 54 41 4E 44 41 41 52 44 20 4F 50 | .STANDAARD OP|
00000960: 20 53 43 48 45 52 4D 22 3B 00 72 11 A2 13 8D 38 | SCHERM";.r....8|
00000970: 35 30 00 83 11 A3 13 8B 54 24 B2 22 4A 22 A7 35 |50......T$."J".5|
00000980: 35 30 30 00 8C 11 A4 13 8D 35 30 30 00 A0 11 A6 |500......500....|
00000990: 13 99 3A 99 22 52 45 43 4F 52 44 23 3A 22 3B 49 |..:."RECORD#:";I|
000009A0: 00 AC 11 B0 13 81 49 49 B2 30 A4 35 00 C6 11 BA |......II.0.5....|
000009B0: 13 99 56 4E 24 28 49 49 29 3B 22 3A 22 3B 41 24 |..VN$(II);":";A$|
000009C0: 28 49 2C 49 49 29 00 CE 11 C4 13 82 49 49 00 01 |(I,II)......II..|
000009D0: 12 CE 13 8B C8 28 41 24 28 49 2C 30 29 2C 34 29 |.....(A$(I,0),4)|
000009E0: B2 22 2A 2A 2A 2A 22 A7 99 22 12 1C 56 20 45 20 |."****".."..V E |
000009F0: 52 20 57 20 49 20 4A 20 44 20 45 20 52 20 44 1E |R W I J D E R D.|
00000A00: 22 00 16 12 D8 13 49 B2 49 AA 31 3A 8B 49 B1 54 |".....I.I.1:.I.T|
00000A10: 54 A7 35 31 32 30 00 36 12 E2 13 99 3A 99 22 56 |T.5120.6....:."V|
00000A20: 4F 4C 47 45 4E 44 45 20 52 45 43 4F 52 44 20 28 |OLGENDE RECORD (|
00000A30: 4A 2F 4E 29 22 3B 00 3F 12 EC 13 8D 38 35 30 00 |J/N)";.?....850.|
00000A40: 57 12 F6 13 8B 54 24 B2 22 CA 22 B0 54 24 B2 22 |W....T$.".".T$."|
00000A50: 4A 22 A7 35 30 32 38 00 75 12 00 14 99 3A 99 22 |J".5028.u....:."|
00000A60: 54 59 50 45 20 54 4F 45 54 53 20 56 4F 4F 52 20 |TYPE TOETS VOOR |
00000A70: 4D 45 4E 55 22 00 80 12 0A 14 89 38 30 30 3A 8E |MENU"......800:.|
00000A80: 00 99 12 7C 15 8F 20 50 52 49 4E 54 45 4E 20 4F |...|.. PRINTEN O|
00000A90: 50 20 50 52 49 4E 54 45 52 00 A2 12 86 15 8D 35 |P PRINTER......5|
00000AA0: 30 30 00 C3 12 90 15 99 3A 99 22 41 4C 4C 45 20 |00......:."ALLE |
00000AB0: 52 45 43 4F 52 44 53 20 28 4A 2F 4E 29 22 3A 8D |RECORDS (J/N)":.|
00000AC0: 38 35 30 00 DB 12 9A 15 8B 54 24 B2 22 CA 22 B0 |850......T$.".".|
00000AD0: 54 24 B2 22 4A 22 A7 35 36 30 30 00 E5 12 A4 15 |T$."J".5600.....|
00000AE0: 89 35 38 30 30 00 05 13 E0 15 9F 34 2C 34 2C 33 |.5800......4,4,3|
00000AF0: 3A 46 24 B2 C7 28 31 33 29 AA C7 28 31 33 29 AA |:F$..(13)..(13).|
00000B00: C7 28 31 33 29 00 11 13 EA 15 81 54 B2 31 A4 54 |.(13)......T.1.T|
00000B10: 54 00 46 13 F4 15 43 24 B2 41 24 28 54 2C 31 29 |T.F...C$.A$(T,1)|
00000B20: AA 22 20 22 AA 41 24 28 54 2C 30 29 3A 8B C8 28 |." ".A$(T,0):..(|
00000B30: 41 24 28 54 2C 30 29 2C 34 29 B2 22 2A 2A 2A 2A |A$(T,0),4)."****|
00000B40: 22 A7 35 36 38 30 00 53 13 FE 15 98 34 2C A6 33 |".5680.S....4,.3|
00000B50: 29 43 24 00 62 13 08 16 44 24 B2 41 24 28 54 2C |)C$.b...D$.A$(T,|
00000B60: 32 29 00 95 13 12 16 45 24 B2 41 24 28 54 2C 33 |2).....E$.A$(T,3|
00000B70: 29 AA 22 20 22 AA 41 24 28 54 2C 34 29 3A 8B 41 |)." ".A$(T,4):.A|
00000B80: 24 28 54 2C 33 29 B2 22 3F 22 A7 45 24 B2 41 24 |$(T,3)."?".E$.A$|
00000B90: 28 54 2C 34 29 00 A2 13 1C 16 98 34 2C A6 33 29 |(T,4)......4,.3)|
00000BA0: 44 24 00 AF 13 26 16 98 34 2C A6 33 29 45 24 00 |D$...&..4,.3)E$.|
00000BB0: B9 13 2B 16 98 34 2C 46 24 00 BF 13 30 16 82 00 |..+..4,F$...0...|
00000BC0: C6 13 3A 16 A0 34 00 DA 13 3F 16 A1 41 24 3A 8B |..:..4...?..A$:.|
00000BD0: 41 24 B2 22 22 A7 35 36 39 35 00 E0 13 44 16 8E |A$."".5695...D..|
00000BE0: 00 02 14 A8 16 8F 20 50 52 49 4E 54 20 47 45 53 |...... PRINT GES|
00000BF0: 45 4C 45 43 54 45 45 52 44 45 20 52 45 43 4F 52 |ELECTEERDE RECOR|
00000C00: 44 53 00 20 14 B2 16 8D 35 30 30 3A 46 24 B2 C7 |DS. ....500:F$..|
00000C10: 28 31 33 29 AA C7 28 31 33 29 AA C7 28 31 33 29 |(13)..(13)..(13)|
00000C20: 00 2C 14 BC 16 81 54 B2 31 A4 54 54 00 64 14 C6 |.,....T.1.TT.d..|
00000C30: 16 43 24 B2 41 24 28 54 2C 31 29 AA 22 20 22 AA |.C$.A$(T,1)." ".|
00000C40: 41 24 28 54 2C 30 29 3A 8B C8 28 41 24 28 54 2C |A$(T,0):..(A$(T,|
00000C50: 30 29 2C 34 29 B2 22 2A 2A 2A 2A 22 A7 8D 35 30 |0),4)."****"..50|
00000C60: 30 3A 82 54 00 73 14 D0 16 44 24 B2 41 24 28 54 |0:.T.s...D$.A$(T|
00000C70: 2C 32 29 00 A6 14 DA 16 45 24 B2 41 24 28 54 2C |,2).....E$.A$(T,|
00000C80: 33 29 AA 22 20 22 AA 41 24 28 54 2C 34 29 3A 8B |3)." ".A$(T,4):.|
00000C90: 41 24 28 54 2C 33 29 B2 22 3F 22 A7 45 24 B2 41 |A$(T,3)."?".E$.A|
00000CA0: 24 28 54 2C 34 29 00 C1 14 E4 16 99 3A 99 A6 33 |$(T,4)......:..3|
00000CB0: 29 43 24 3A 99 A6 33 29 44 24 3A 99 A6 33 29 45 |)C$:..3)D$:..3)E|
00000CC0: 24 00 E8 14 EE 16 99 3A 99 22 44 49 54 20 52 45 |$......:."DIT RE|
00000CD0: 43 4F 52 44 20 50 52 49 4E 54 45 4E 20 28 4A 2F |CORD PRINTEN (J/|
00000CE0: 4E 29 22 3A 8D 38 35 30 00 0E 15 F8 16 8B 54 24 |N)":.850......T$|
00000CF0: B2 22 CE 22 B0 54 24 B2 22 4E 22 A7 8D 35 30 30 |.".".T$."N"..500|
00000D00: 3A 82 54 3A 8B 54 B2 54 54 A7 35 39 34 30 00 19 |:.T:.T.TT.5940..|
00000D10: 15 02 17 9F 34 2C 34 2C 33 00 26 15 0C 17 98 34 |....4,4,3.&....4|
00000D20: 2C A6 33 29 43 24 00 33 15 16 17 98 34 2C A6 33 |,.3)C$.3....4,.3|
00000D30: 29 44 24 00 40 15 20 17 98 34 2C A6 33 29 45 24 |)D$.@. ..4,.3)E$|
00000D40: 00 4A 15 2A 17 98 34 2C 46 24 00 51 15 34 17 A0 |.J.*..4,F$.Q.4..|
00000D50: 34 00 5E 15 3E 17 8B 54 B3 54 54 A7 82 54 00 64 |4.^.>..T.TT..T.d|
00000D60: 15 48 17 8E 00 7F 15 70 17 8F 20 53 4F 52 54 45 |.H.....p.. SORTE|
00000D70: 52 45 4E 20 56 41 4E 20 42 45 53 54 41 4E 44 00 |REN VAN BESTAND.|
00000D80: 88 15 7A 17 8D 35 30 30 00 A8 15 84 17 99 3A 99 |..z..500......:.|
00000D90: 22 47 45 45 46 20 54 45 20 53 4F 52 54 45 52 45 |"GEEF TE SORTERE|
00000DA0: 4E 20 56 45 4C 44 3A 22 00 CC 15 8E 17 81 49 49 |N VELD:"......II|
00000DB0: B2 30 A4 35 3A 99 49 49 AA 31 3B 22 20 2D 20 22 |.0.5:.II.1;" - "|
00000DC0: 3B 56 4E 24 28 49 49 29 3A 82 49 49 00 EE 15 93 |;VN$(II):.II....|
00000DD0: 17 99 22 20 37 20 2D 20 54 45 52 55 47 20 4E 41 |.." 7 - TERUG NA|
00000DE0: 41 52 20 4B 45 55 5A 45 20 4D 45 4E 55 22 00 07 |AR KEUZE MENU"..|
00000DF0: 16 98 17 99 3A 99 22 4D 41 41 4B 20 45 45 4E 20 |....:."MAAK EEN |
00000E00: 4B 45 55 5A 45 22 3B 00 10 16 9D 17 8D 38 30 30 |KEUZE";......800|
00000E10: 00 2D 16 A2 17 4B 4B B2 C5 28 54 24 29 3A 8B 4B |.-...KK..(T$):.K|
00000E20: 4B B3 31 B0 4B 4B B1 37 A7 36 30 34 35 00 39 16 |K.1.KK.7.6045.9.|
00000E30: AC 17 8B 4B 4B B2 37 A7 8E 00 58 16 B6 17 56 4C |...KK.7...X...VL|
00000E40: B2 4B 4B AB 31 3A 41 24 28 54 54 AA 31 2C 56 4C |.KK.1:A$(TT.1,VL|
00000E50: 29 B2 C7 28 32 35 35 29 00 77 16 C0 17 4E B2 54 |)..(255).w...N.T|
00000E60: 54 3A 99 22 42 45 47 49 4E 20 4D 45 54 20 53 4F |T:."BEGIN MET SO|
00000E70: 52 54 45 52 45 4E 22 00 93 16 CA 17 54 B2 31 3A |RTEREN".....T.1:|
00000E80: 53 54 28 31 2C 30 29 B2 31 3A 53 54 28 31 2C 31 |ST(1,0).1:ST(1,1|
00000E90: 29 B2 4E 00 AB 16 D4 17 4C B2 53 54 28 54 2C 30 |).N.....L.ST(T,0|
00000EA0: 29 3A 52 B2 53 54 28 54 2C 31 29 00 B5 16 DE 17 |):R.ST(T,1).....|
00000EB0: 54 B2 54 AB 31 00 C1 16 E8 17 58 B2 4C 3A 59 B2 |T.T.1.....X.L:Y.|
00000EC0: 52 00 D7 16 F2 17 58 24 B2 41 24 28 28 4C AA 52 |R.....X$.A$((L.R|
00000ED0: 29 AD 32 2C 56 4C 29 00 F4 16 FC 17 8B 41 24 28 |).2,VL)......A$(|
00000EE0: 58 2C 56 4C 29 B3 58 24 A7 58 B2 58 AA 31 3A 89 |X,VL).X$.X.X.1:.|
00000EF0: 36 31 34 30 00 03 17 06 18 81 56 B2 31 A4 31 30 |6140......V.1.10|
00000F00: 30 30 30 00 1D 17 10 18 8B 41 24 28 59 2C 56 4C |000......A$(Y,VL|
00000F10: 29 B1 58 24 A7 59 B2 59 AB 31 3A 82 56 00 29 17 |).X$.Y.Y.1:.V.).|
00000F20: 1A 18 56 B2 31 30 30 30 30 00 44 17 24 18 8B 58 |..V.10000.D.$..X|
00000F30: B2 59 A7 58 B2 58 AA 31 3A 59 B2 59 AB 31 3A 89 |.Y.X.X.1:Y.Y.1:.|
00000F40: 36 31 34 30 00 59 17 2E 18 8B 58 B3 59 A7 8D 36 |6140.Y....X.Y..6|
00000F50: 33 31 30 3A 89 36 31 34 30 00 7C 17 38 18 8B 58 |310:.6140.|.8..X|
00000F60: B1 52 A7 58 B2 58 AA 31 3A 53 54 28 54 2C 30 29 |.R.X.X.1:ST(T,0)|
00000F70: B2 58 3A 53 54 28 54 2C 31 29 B2 52 00 84 17 42 |.X:ST(T,1).R...B|
00000F80: 18 52 B2 59 00 92 17 4C 18 8B 4C B3 52 A7 36 31 |.R.Y...L..L.R.61|
00000F90: 32 30 00 A0 17 56 18 8B 54 B1 30 A7 36 31 30 30 |20...V..T.0.6100|
00000FA0: 00 AC 17 60 18 8F 20 4B 4C 41 41 52 00 B2 17 6A |...`.. KLAAR...j|
00000FB0: 18 8E 00 CA 17 9C 18 8F 20 57 49 53 53 45 4C 20 |........ WISSEL |
00000FC0: 48 45 4C 45 20 41 52 52 41 59 00 D6 17 A6 18 81 |HELE ARRAY......|
00000FD0: 49 49 B2 30 A4 35 00 E7 17 B0 18 54 58 24 B2 41 |II.0.5.....TX$.A|
00000FE0: 24 28 58 2C 49 49 29 00 FD 17 BA 18 41 24 28 58 |$(X,II).....A$(X|
00000FF0: 2C 49 49 29 B2 41 24 28 59 2C 49 49 29 00 0E 18 |,II).A$(Y,II)...|
00001000: C4 18 41 24 28 59 2C 49 49 29 B2 54 58 24 00 16 |..A$(Y,II).TX$..|
00001010: 18 CE 18 82 49 49 00 26 18 D8 18 58 B2 58 AA 31 |....II.&...X.X.1|
00001020: 3A 59 B2 59 AB 31 00 2C 18 E2 18 8E 00 44 18 58 |:Y.Y.1.,.....D.X|
00001030: 1B 8F 20 5A 4F 45 4B 45 4E 20 49 4E 20 42 45 53 |.. ZOEKEN IN BES|
00001040: 54 41 4E 44 00 64 18 62 1B 8D 35 30 30 3A 99 3A |TAND.d.b..500:.:|
00001050: 99 22 47 45 45 46 20 53 4C 45 55 54 45 4C 56 45 |."GEEF SLEUTELVE|
00001060: 4C 44 3A 22 00 70 18 6C 1B 81 49 49 B2 30 A4 35 |LD:".p.l..II.0.5|
00001070: 00 88 18 76 1B 99 49 49 AA 31 3B 22 20 2D 20 22 |...v..II.1;" - "|
00001080: 3B 56 4E 24 28 49 49 29 00 90 18 80 1B 82 49 49 |;VN$(II)......II|
00001090: 00 A7 18 85 1B 99 22 20 37 20 20 2D 20 4B 45 55 |......" 7 - KEU|
000010A0: 5A 45 4D 45 4E 55 22 00 C0 18 8A 1B 99 3A 99 22 |ZEMENU"......:."|
000010B0: 4D 41 41 4B 20 45 45 4E 20 4B 45 55 5A 45 22 3B |MAAK EEN KEUZE";|
000010C0: 00 C9 18 94 1B 8D 38 30 30 00 D6 18 9E 1B 4B 4B |......800.....KK|
000010D0: B2 C5 28 54 24 29 00 EA 18 A8 1B 8B 4B 4B B3 31 |..(T$)......KK.1|
000010E0: B0 4B 4B B1 37 A7 37 30 36 30 00 F6 18 B2 1B 8B |.KK.7.7060......|
000010F0: 4B 4B B2 37 A7 8E 00 02 19 BC 1B 56 4C B2 4B 4B |KK.7.......VL.KK|
00001100: AB 31 00 0B 19 C6 1B 56 47 B2 30 00 14 19 D0 1B |.1.....VG.0.....|
00001110: 8D 35 30 30 00 1E 19 DA 1B 99 3A 99 3A 99 00 3D |.500......:.:..=|
00001120: 19 E4 1B 99 22 5A 4F 45 4B 45 4E 20 4F 50 20 22 |...."ZOEKEN OP "|
00001130: 3B 56 4E 24 28 56 4C 29 3B 22 3A 22 3B 00 46 19 |;VN$(VL);":";.F.|
00001140: EE 1B 85 20 5A 24 00 52 19 F8 1B 81 49 B2 31 A4 |... Z$.R....I.1.|
00001150: 54 54 00 82 19 02 1C 8B C8 28 41 24 28 49 2C 56 |TT.......(A$(I,V|
00001160: 4C 29 2C C3 28 5A 24 29 29 B2 5A 24 A7 8D 37 32 |L),.(Z$)).Z$..72|
00001170: 31 30 3A 8B 53 55 B2 39 39 A7 59 B2 49 3A 49 B2 |10:.SU.99.Y.I:I.|
00001180: 54 54 00 89 19 0C 1C 82 49 00 98 19 16 1C 8B 56 |TT......I......V|
00001190: 47 B2 30 A7 37 33 38 30 00 9E 19 20 1C 8E 00 B4 |G.0.7380... ....|
000011A0: 19 2A 1C 8F 20 52 45 43 4F 52 44 20 47 45 56 4F |.*.. RECORD GEVO|
000011B0: 4E 44 45 4E 00 BD 19 34 1C 8D 35 30 30 00 C6 19 |NDEN...4..500...|
000011C0: 3E 1C 56 47 B2 31 00 DF 19 48 1C 99 22 52 45 43 |>.VG.1...H.."REC|
000011D0: 4F 52 44 20 4E 55 4D 4D 45 52 20 3A 22 3B 49 00 |ORD NUMMER :";I.|
000011E0: EB 19 52 1C 81 49 49 B2 30 A4 35 00 03 1A 5C 1C |..R..II.0.5...\.|
000011F0: 99 56 4E 24 28 49 49 29 22 3A 22 41 24 28 49 2C |.VN$(II)":"A$(I,|
00001200: 49 49 29 00 0D 1A 66 1C 82 49 49 3A 99 00 26 1A |II)...f..II:..&.|
00001210: 70 1C 91 53 55 AA 31 89 37 33 30 30 2C 37 33 34 |p..SU.1.7300,734|
00001220: 30 2C 37 33 34 30 00 40 1A 7A 1C 8F 20 53 55 3D |0,7340.@.z.. SU=|
00001230: 4F 20 4E 4F 52 4D 41 41 4C 20 5A 4F 45 4B 45 4E |O NORMAAL ZOEKEN|
00001240: 00 5F 1A 84 1C 99 22 54 59 50 45 20 54 4F 45 54 |._...."TYPE TOET|
00001250: 53 20 56 4F 4F 52 20 56 45 52 56 4F 4C 47 22 00 |S VOOR VERVOLG".|
00001260: 68 1A 8E 1C 8D 38 30 30 00 72 1A 98 1C 89 37 33 |h....800.r....73|
00001270: 37 30 00 96 1A A2 1C 8F 20 53 55 3D 31 20 56 45 |70...... SU=1 VE|
00001280: 52 57 49 4A 44 45 52 45 4E 20 53 55 3D 32 20 4D |RWIJDEREN SU=2 M|
00001290: 55 54 45 52 45 4E 00 B8 1A AC 1C 99 22 44 49 54 |UTEREN......"DIT|
000012A0: 20 52 45 43 4F 52 44 20 42 45 57 45 52 4B 45 4E | RECORD BEWERKEN|
000012B0: 20 28 4A 2F 4E 29 22 3B 00 C1 1A B6 1C 8D 38 35 | (J/N)";......85|
000012C0: 30 00 DA 1A C0 1C 8B 54 24 B2 22 CA 22 B0 54 24 |0......T$.".".T$|
000012D0: B2 22 4A 22 A7 53 55 B2 39 39 00 E0 1A CA 1C 8E |."J".SU.99......|
000012E0: 00 FB 1A D4 1C 8F 20 52 45 43 4F 52 44 20 4E 49 |...... RECORD NI|
000012F0: 45 54 20 47 45 56 4F 4E 44 45 4E 00 13 1B DE 1C |ET GEVONDEN.....|
00001300: 99 5A 24 22 20 4E 49 45 54 20 47 45 56 4F 4E 44 |.Z$" NIET GEVOND|
00001310: 45 4E 22 00 32 1B E8 1C 99 22 54 59 50 45 20 54 |EN".2...."TYPE T|
00001320: 4F 45 54 53 20 56 4F 4F 52 20 56 45 52 56 4F 4C |OETS VOOR VERVOL|
00001330: 47 22 00 3B 1B F2 1C 8D 38 30 30 00 41 1B FC 1C |G".;....800.A...|
00001340: 8E 00 57 1B 40 1F 8F 20 42 45 53 54 41 4E 44 20 |..W.@.. BESTAND |
00001350: 49 4E 4C 45 5A 45 4E 00 65 1B 4A 1F 8D 35 30 30 |INLEZEN.e.J..500|
00001360: 3A 54 54 B2 30 00 80 1B 54 1F 99 3A 99 22 42 45 |:TT.0...T..:."BE|
00001370: 53 54 41 4E 44 53 4E 41 41 4D 22 3B 3A 85 42 24 |STANDSNAAM";:.B$|
00001380: 00 97 1B 5E 1F 42 54 24 B2 22 42 2F 22 AA 42 24 |...^.BT$."B/".B$|
00001390: AA 22 2C 53 2C 52 22 00 AE 1B 68 1F 99 3A 99 22 |.",S,R"...h..:."|
000013A0: 4D 4F 4D 45 4E 54 20 41 2E 55 2E 42 2E 22 00 BD |MOMENT A.U.B."..|
000013B0: 1B 72 1F 9F 32 2C 38 2C 32 2C 42 54 24 00 D1 1B |.r..2,8,2,BT$...|
000013C0: 86 1F 54 54 B2 54 54 AA 31 3A 81 54 53 B2 30 A4 |..TT.TT.1:.TS.0.|
000013D0: 35 00 DB 1B 90 1F 84 32 2C 43 24 00 F2 1B 92 1F |5......2,C$.....|
000013E0: 41 24 28 54 54 2C 54 53 29 B2 43 24 3A 43 24 B2 |A$(TT,TS).C$:C$.|
000013F0: 22 22 00 F8 1B 95 1F 82 00 09 1C 96 1F 8B 53 54 |""............ST|
00001400: B3 B1 36 34 A7 38 30 37 30 00 15 1C 9A 1F A0 32 |..64.8070......2|
00001410: 3A 8D 35 30 30 00 1B 1C A4 1F 8E 00 36 1C 28 23 |:.500.......6.(#|
00001420: 8F 20 42 45 53 54 41 4E 44 20 57 45 47 53 43 48 |. BESTAND WEGSCH|
00001430: 52 49 4A 56 45 4E 00 46 1C 32 23 8D 35 30 30 3A |RIJVEN.F.2#.500:|
00001440: 46 4C 41 47 B2 30 00 5E 1C 3C 23 99 3A 99 22 42 |FLAG.0.^.<#.:."B|
00001450: 45 53 54 41 4E 44 53 4E 41 41 4D 3A 22 3B 00 66 |ESTANDSNAAM:";.f|
00001460: 1C 46 23 85 42 24 00 7D 1C 50 23 99 3A 99 22 4D |.F#.B$.}.P#.:."M|
00001470: 4F 4D 45 4E 54 20 41 2E 55 2E 42 2E 22 00 94 1C |OMENT A.U.B."...|
00001480: 55 23 42 54 24 B2 22 42 2F 22 AA 42 24 AA 22 2C |U#BT$."B/".B$.",|
00001490: 53 2C 57 22 00 A3 1C 5A 23 9F 31 2C 38 2C 33 2C |S,W"...Z#.1,8,3,|
000014A0: 42 54 24 00 B7 1C 64 23 81 54 B2 30 A4 54 54 3A |BT$...d#.T.0.TT:|
000014B0: 81 54 53 B2 30 A4 35 00 C1 1C 68 23 43 24 B2 22 |.TS.0.5...h#C$."|
000014C0: 22 00 D1 1C 6A 23 43 24 B2 41 24 28 54 2C 54 53 |"...j#C$.A$(T,TS|
000014D0: 29 00 DB 1C 6E 23 98 31 2C 43 24 00 E3 1C 73 23 |)...n#.1,C$...s#|
000014E0: 82 3A 82 00 EA 1C 78 23 A0 31 00 F0 1C 82 23 8E |.:....x#.1....#.|
000014F0: 00 FC 1C 1C 25 8F 20 45 49 4E 44 45 00 05 1D 26 |....%. EINDE...&|
00001500: 25 8D 35 30 30 00 20 1D 30 25 99 3A 99 22 5A 45 |%.500. .0%.:."ZE|
00001510: 4B 45 52 20 57 45 54 45 4E 20 28 4A 2F 4E 29 22 |KER WETEN (J/N)"|
00001520: 00 29 1D 3A 25 8D 38 35 30 00 41 1D 44 25 8B 54 |.).:%.850.A.D%.T|
00001530: 24 B2 22 CE 22 B0 54 24 B2 22 4E 22 A7 31 30 30 |$.".".T$."N".100|
00001540: 30 00 52 1D 49 25 8B 46 4C 41 47 B2 30 A7 39 36 |0.R.I%.FLAG.0.96|
00001550: 30 30 00 84 1D 4E 25 8B 46 4C 41 47 B2 31 A7 99 |00...N%.FLAG.1..|
00001560: 22 57 49 4A 5A 49 47 49 4E 47 45 4E 20 4E 49 45 |"WIJZIGINGEN NIE|
00001570: 54 20 57 45 47 47 45 53 43 48 52 45 56 45 4E 20 |T WEGGESCHREVEN |
00001580: 21 21 21 22 00 A7 1D 6C 25 99 3A 99 22 41 4C 53 |!!!"...l%.:."ALS|
00001590: 4E 4F 47 20 57 45 47 53 43 48 52 49 4A 56 45 4E |NOG WEGSCHRIJVEN|
000015A0: 20 28 4A 2F 4E 29 22 00 C6 1D 76 25 8D 38 35 30 | (J/N)"...v%.850|
000015B0: 20 20 3A 8B 54 24 B2 22 CA 22 B0 54 24 B2 22 4A | :.T$.".".T$."J|
000015C0: 22 A7 39 30 30 30 00 E5 1D 80 25 99 22 93 11 11 |".9000....%."...|
000015D0: 44 41 41 41 47 21 21 21 22 3A 81 49 B2 30 A4 32 |DAAAG!!!":.I.0.2|
000015E0: 30 30 30 3A 82 00 F0 1D 8A 25 9E 36 34 37 33 38 |000:.....%.64738|
000015F0: 00 00 00 |... |
....D.. INITIALISATIE.G.N.TT.0:KZ.0:I.0:
.53280,0:.53281,0:.646,5:FLAG.0.{.X..A$(
300,5),KZ$(10),ST((.(300)..(2).4),1),VN$
(7)...H.. INIT...R..900:.1000:. BEGIN PR
OGRAMMA.E.,.. VARI WEGZETTEN IN ARRAY...
6..II.0.5:A$(AA,II).HA$(II):HA$."":.II:.
...... DATA KEUZEMOGELIJKHEDEN.V...."KEU
ZEMENU ADRESSENBESTAND","RECORDS TOEVOEG
EN","RECORDS WIJZIGEN"......"RECORDS VER
WIJDEREN","RECORDS OPZOEKEN","BESTAND SO
RTEREN"......"BESTAND PRINTEN","BESTAND
INLEZEN","BESTAND WEGSCHRIJVEN","STOPPEN
".-...."EIND","NAAM ","VOORLETTE
RS ","STRAAT EN NO.","POSTCODE ".R.
B.."WOONPLAATS ","TELEFOON ".D....
PRINTEN KOP.P....G(147)......".********
********************************.".R...Z
$."SPEEDY'S ADRESBESTAND":..20.C(Z$).2);
Z$......:..20.C(KZ$(KZ)).2);KZ$(KZ):....
..."AANTAL RECORDS:";TT.C.&..".*********
*******************************.":.._.X.
. MENU PRINTEN EN KEUZE...B..500:.I.1.TK
:.I;" - ";KZ$(I):.I...L..:."MAAK EEN KEU
ZE";...V..800.B...KZ.E(T$):.KZ.1.KZ.TK.6
30.H....... .. INLEZEN TOETS...*..T$:.T$
."".810...4.....R.. JA/NEE INPUT...T.OK.
0:A$."JJNN".0.\..810:.II.1.C(A$).H.F..T$
.J(A$,II,1).OK.1.T.P..OK.1...\.Z..II.E.
..860.K.......... INLEZEN KEUZE MOGELIJK
HEDEN.....I.0:TK.0......KZ$(I).E....KZ$(
I)."EIND".TK.I.1:.950.O...I.I.1.X....915
......I.0.5......VN$(I)...J..I...... BEG
IN PROGRAMMA.....SU.0:KZ.0:.600./....KZ.
TK.9500._....KZ.2000,3000,4000,7000,6000
,5000,8000,9000.I....1010...P.. TOEVOEGE
N BESTAND...Z..500:FLAG.1......:.II.0.5.
.....VN$(II);":";......HA$(II).F....II..
.*..:."KORRECT INGEVOERD (J/N)";...4..85
0...>..T$."N".T$."N".2000. .H.TT.TT.1:AA
.TT:.300.E.R..:."MEER RECORDS INVOEREN (
J/N)".N.\..850.C.F..T$."N".T$."N"...M.P.
.2000.|.... WIJZIGEN.....FLAG.1:.500:SU.
2:.7010:.SU.2...J.B..500:.II.0.5:.VN$(II
);":";A$(Y,II):.II...L..:."WIJZIGEN ZEKE
R (J/N)";...V..850:.T$."N".T$."N".......
.G(19):.520......II.0.5.:....VN$(II);":"
;A$(I,II);.G....HA$(II).O....II.Q....:."
KORRECT INGEVOERD (J/N)";.Z....850...&..
T$."N".T$."N".3000. .0.AA.Y:.300.F.:..:.
"MEER RECORDS WIJZIGEN (J/N)";.O.D..850.
..N..T$."N".T$."N".....X..3000... .. REC
ORD VERWIJDEREN.*...FLAG.1:.500:SU.1:.70
10:.SU.1...U....500:.II.0.5:.VN$(II);":"
;A$(Y,II):.II.W....:."VERWIJDEREN ZEKER
(J/N)";......850:.T$."N".T$."N".....H.A$
(Y,0)."***********"...R.. ALLE RECORDS M
ET "***********" VERWIJDEREN BIJ WEGSCHR
IJVEN............ PRINTEN VAN EEN BESTAN
D.....I.1."....500.I....:."OP PRINTER (J
/N) .STANDAARD OP
SCHERM";.R....850......T$."J".5500.....
.500. ....:."RECORD#:";I......II.0.5.F..
..VN$(II);":";A$(I,II).N.D..II...N..H(A$
(I,0),4)."****".."..V E R W I J D E R D.
"...X.I.I.1:.I.TT.5120.6....:."VOLGENDE
RECORD (J/N)";.?....850.W....T$."J".T$."
J".5028.U....:."TYPE TOETS VOOR MENU"...
...800:....|.. PRINTEN OP PRINTER......5
00.C....:."ALLE RECORDS (J/N)":.850.....
.T$."J".T$."J".5600......5800......4,4,3
:F$.G(13).G(13).G(13)......T.1.TT.F...C$
.A$(T,1)." ".A$(T,0):.H(A$(T,0),4)."****
".5680.S....4,.3)C$.B...D$.A$(T,2).....E
$.A$(T,3)." ".A$(T,4):.A$(T,3)."?".E$.A$
(T,4)......4,.3)D$...&..4,.3)E$...+..4,F
$...0...F.:. 4.Z.?..A$:.A$."".5695...D..
...... PRINT GESELECTEERDE RECORDS. ....
500:F$.G(13).G(13).G(13).,....T.1.TT.D.F
.C$.A$(T,1)." ".A$(T,0):.H(A$(T,0),4)."*
***"..500:.T.S.P.D$.A$(T,2)...Z.E$.A$(T,
3)." ".A$(T,4):.A$(T,3)."?".E$.A$(T,4).A
....:..3)C$:..3)D$:..3)E$......:."DIT RE
CORD PRINTEN (J/N)":.850......T$."N".T$.
"N"..500:.T:.T.TT.5940......4,4,3.&....4
,.3)C$.3....4,.3)D$.@. ..4,.3)E$.J.*..4,
F$.Q.4. 4.^.>..T.TT..T.D.H....P.. SORTE
REN VAN BESTAND...Z..500......:."GEEF TE
SORTEREN VELD:".L....II.0.5:.II.1;" - "
;VN$(II):.II......" 7 - TERUG NAAR KEUZE
MENU"......:."MAAK EEN KEUZE";......800
.-...KK.E(T$):.KK.1.KK.7.6045.9....KK.7.
..X...VL.KK.1:A$(TT.1,VL).G(255).W...N.T
T:."BEGIN MET SORTEREN"...J.T.1:ST(1,0).
1:ST(1,1).N...T.L.ST(T,0):R.ST(T,1).....
T.T.1.A...X.L:Y.R.W...X$.A$((L.R).2,VL).
.....A$(X,VL).X$.X.X.1:.6140......V.1.10
000......A$(Y,VL).X$.Y.Y.1:.V.)...V.1000
0.D.$..X.Y.X.X.1:Y.Y.1:.6140.Y....X.Y..6
310:.6140.|.8..X.R.X.X.1:ST(T,0).X:ST(T,
1).R...B.R.Y...L..L.R.6120. .V..T.0.6100
...`.. KLAAR...J...J.... WISSEL HELE ARR
AY.V....II.0.5.....TX$.A$(X,II).....A$(X
,II).A$(Y,II)...D.A$(Y,II).TX$...N..II.&
.X.X.X.1:Y.Y.1.,.....D.X.. ZOEKEN IN BES
TAND.D.B..500:.:."GEEF SLEUTELVELD:".P.L
..II.0.5...V..II.1;" - ";VN$(II)......II
......" 7 - KEUZEMENU"......:."MAAK EEN
KEUZE";.I....800.V...KK.E(T$)......KK.1
.KK.7.7060......KK.7.......VL.KK.1...F.V
G.0...P..500...Z..:.:..=...."ZOEKEN OP "
;VN$(VL);":";.F.... Z$.R....I.1.TT......
H(A$(I,VL),C(Z$)).Z$..7210:.SU.99.Y.I:I.
TT......I......VG.0.7380... .....*.. REC
ORD GEVONDEN...4..500.F.>.VG.1...H.."REC
ORD NUMMER :";I...R..II.0.5...\..VN$(II)
":"A$(I,II)...F..II:..&.P..SU.1.7300,734
0,7340.@.Z.. SU=O NORMAAL ZOEKEN._...."T
YPE TOETS VOOR VERVOLG".H....800.R....73
70...... SU=1 VERWIJDEREN SU=2 MUTEREN..
...."DIT RECORD BEWERKEN (J/N)";.A....85
0.Z....T$."J".T$."J".SU.99...J.....T.. R
ECORD NIET GEVONDEN......Z$" NIET GEVOND
EN".2...."TYPE TOETS VOOR VERVOLG".;....
800.A.....W.@.. BESTAND INLEZEN.E.J..500
:TT.0...T..:."BESTANDSNAAM";:.B$...^.BT$
."B/".B$.",S,R"...H..:."MOMENT A.U.B."..
.R..2,8,2,BT$.Q...TT.TT.1:.TS.0.5......2
,C$.....A$(TT,TS).C$:C$.""............ST
..64.8070..... 2:.500.......6.(#. BESTAN
D WEGSCHRIJVEN.F.2#.500:FLAG.0.^.<#.:."B
ESTANDSNAAM:";.F.F#.B$.}.P#.:."MOMENT A.
U.B."...U#BT$."B/".B$.",S,W"...Z#.1,8,3,
BT$...D#.T.0.TT:.TS.0.5.A.H#C$."".Q.J#C$
.A$(T,TS)...N#.1,C$...S#.:....X# 1....#.
....%. EINDE...&%.500. .0%.:."ZEKER WETE
N (J/N)".).:%.850.A.D%.T$."N".T$."N".100
0.R.I%.FLAG.0.9600...N%.FLAG.1.."WIJZIGI
NGEN NIET WEGGESCHREVEN !!!"...L%.:."ALS
NOG WEGSCHRIJVEN (J/N)".F.V%.850 :.T$."
J".T$."J".9000....%."...DAAAG!!!":.I.0.2
000:.....%.64738...
> CLICK IMAGE PREVIEW FOR FULL MODAL