INFO-BESTAND
FILE INFORMATION
FILENAME(S): INFO-BESTAND
FILE TYPE(S): PRG
FILE SIZE: 3.6K
FIRST SEEN: 2025-11-30 21:11:00
APPEARS ON: 1 disk(s)
FILE HASH
0005956d22d457324f4c831dc7a7de1c3e3b6ad4887645f363f5576dea91f0ba
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPEEDY WERK | INFO-BESTAND | PRG | DuncanTwain | 14 | 5 | 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 27 08 6E 00 54 54 B2 30 3A 4B |SATIE.'.n.TT.0:K|
00000020: 5A B2 30 3A 49 B2 30 00 5B 08 78 00 86 41 24 28 |Z.0:I.0.[.x..A$(|
00000030: 33 30 30 2C 35 29 2C 4B 5A 24 28 31 30 29 2C 53 |300,5),KZ$(10),S|
00000040: 54 28 28 BC 28 33 30 30 29 AD BC 28 32 29 AA 34 |T((.(300)..(2).4|
00000050: 29 2C 31 29 2C 56 4E 24 28 37 29 00 66 08 C8 00 |),1),VN$(7).f...|
00000060: 8F 20 49 4E 49 54 00 87 08 D2 00 8D 39 30 30 3A |. INIT......900:|
00000070: 89 31 30 30 30 3A 8F 20 42 45 47 49 4E 20 50 52 |.1000:. BEGIN PR|
00000080: 4F 47 52 41 4D 4D 41 00 A5 08 2C 01 8F 20 56 41 |OGRAMMA...,.. VA|
00000090: 52 49 20 57 45 47 5A 45 54 54 45 4E 20 49 4E 20 |RI WEGZETTEN IN |
000000A0: 41 52 52 41 59 00 D0 08 36 01 81 49 49 B2 30 A4 |ARRAY...6..II.0.|
000000B0: 35 3A 41 24 28 41 41 2C 49 49 29 B2 48 41 24 28 |5:A$(AA,II).HA$(|
000000C0: 49 49 29 3A 48 41 24 B2 22 22 3A 82 49 49 3A 8E |II):HA$."":.II:.|
000000D0: 00 EE 08 90 01 8F 20 44 41 54 41 20 4B 45 55 5A |...... DATA KEUZ|
000000E0: 45 4D 4F 47 45 4C 49 4A 4B 48 45 44 45 4E 00 36 |EMOGELIJKHEDEN.6|
000000F0: 09 9A 01 83 22 4B 45 55 5A 45 4D 45 4E 55 20 41 |...."KEUZEMENU A|
00000100: 44 52 45 53 53 45 4E 42 45 53 54 41 4E 44 22 2C |DRESSENBESTAND",|
00000110: 22 52 45 43 4F 52 44 53 20 54 4F 45 56 4F 45 47 |"RECORDS TOEVOEG|
00000120: 45 4E 22 2C 22 52 45 43 4F 52 44 53 20 57 49 4A |EN","RECORDS WIJ|
00000130: 5A 49 47 45 4E 22 00 77 09 A4 01 83 22 52 45 43 |ZIGEN".w...."REC|
00000140: 4F 52 44 53 20 56 45 52 57 49 4A 44 45 52 45 4E |ORDS VERWIJDEREN|
00000150: 22 2C 22 52 45 43 4F 52 44 53 20 4F 50 5A 4F 45 |","RECORDS OPZOE|
00000160: 4B 45 4E 22 2C 22 42 45 53 54 41 4E 44 20 53 4F |KEN","BESTAND SO|
00000170: 52 54 45 52 45 4E 22 00 C1 09 AE 01 83 22 42 45 |RTEREN"......"BE|
00000180: 53 54 41 4E 44 20 50 52 49 4E 54 45 4E 22 2C 22 |STAND PRINTEN","|
00000190: 42 45 53 54 41 4E 44 20 49 4E 4C 45 5A 45 4E 22 |BESTAND INLEZEN"|
000001A0: 2C 22 42 45 53 54 41 4E 44 20 57 45 47 53 43 48 |,"BESTAND WEGSCH|
000001B0: 52 49 4A 56 45 4E 22 2C 22 53 54 4F 50 50 45 4E |RIJVEN","STOPPEN|
000001C0: 22 00 0D 0A B8 01 83 22 45 49 4E 44 22 2C 22 4E |"......"EIND","N|
000001D0: 41 41 4D 20 20 20 20 20 20 20 20 20 22 2C 22 56 |AAM ","V|
000001E0: 4F 4F 52 4C 45 54 54 45 52 53 20 20 22 2C 22 53 |OORLETTERS ","S|
000001F0: 54 52 41 41 54 20 45 4E 20 4E 4F 2E 22 2C 22 50 |TRAAT EN NO.","P|
00000200: 4F 53 54 43 4F 44 45 20 20 20 20 20 22 00 32 0A |OSTCODE ".2.|
00000210: C2 01 83 22 57 4F 4F 4E 50 4C 41 41 54 53 20 20 |..."WOONPLAATS |
00000220: 20 22 2C 22 54 45 4C 45 46 4F 4F 4E 20 20 20 20 | ","TELEFOON |
00000230: 20 22 00 44 0A F4 01 8F 20 50 52 49 4E 54 45 4E | ".D.... PRINTEN|
00000240: 20 4B 4F 50 00 50 0A FE 01 99 C7 28 31 34 37 29 | KOP.P.....(147)|
00000250: 00 80 0A 08 02 99 22 2A 2A 2A 2A 2A 2A 2A 2A 2A |......"*********|
00000260: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000270: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 |***************"|
00000280: 00 A3 0A 12 02 99 3A 99 A3 32 30 AB C3 28 4B 5A |......:..20..(KZ|
00000290: 24 28 4B 5A 29 29 AD 32 29 3B 4B 5A 24 28 4B 5A |$(KZ)).2);KZ$(KZ|
000002A0: 29 3A 99 00 BD 0A 1C 02 99 22 41 41 4E 54 41 4C |):......."AANTAL|
000002B0: 20 52 45 43 4F 52 44 53 3A 22 3B 54 54 00 EF 0A | RECORDS:";TT...|
000002C0: 26 02 99 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |&.."************|
000002D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 3A 8E 00 |************":..|
000002F0: 0B 0B 58 02 8F 20 4D 45 4E 55 20 50 52 49 4E 54 |..X.. MENU PRINT|
00000300: 45 4E 20 45 4E 20 4B 45 55 5A 45 00 2F 0B 62 02 |EN EN KEUZE./.b.|
00000310: 8D 35 30 30 3A 81 49 B2 31 A4 54 4B 3A 99 49 3B |.500:.I.1.TK:.I;|
00000320: 22 20 2D 20 22 3B 4B 5A 24 28 49 29 3A 82 49 00 |" - ";KZ$(I):.I.|
00000330: 48 0B 6C 02 99 3A 99 22 4D 41 41 4B 20 45 45 4E |H.l..:."MAAK EEN|
00000340: 20 4B 45 55 5A 45 22 3B 00 51 0B 76 02 8D 38 30 | KEUZE";.Q.v..80|
00000350: 30 00 6E 0B 80 02 4B 5A B2 C5 28 54 24 29 3A 8B |0.n...KZ..(T$):.|
00000360: 4B 5A B3 31 B0 4B 5A B1 54 4B A7 36 33 30 00 74 |KZ.1.KZ.TK.630.t|
00000370: 0B 8A 02 8E 00 88 0B 20 03 8F 20 49 4E 4C 45 5A |....... .. INLEZ|
00000380: 45 4E 20 54 4F 45 54 53 00 9B 0B 2A 03 A1 54 24 |EN TOETS...*..T$|
00000390: 3A 8B 54 24 B2 22 22 A7 38 31 30 00 A1 0B 34 03 |:.T$."".810...4.|
000003A0: 8E 00 B4 0B 52 03 8F 20 4A 41 2F 4E 45 45 20 49 |....R.. JA/NEE I|
000003B0: 4E 50 55 54 00 C7 0B 54 03 4F 4B B2 30 3A 41 24 |NPUT...T.OK.0:A$|
000003C0: B2 22 CA 4A CE 4E 22 00 DC 0B 5C 03 8D 38 31 30 |.".J.N"...\..810|
000003D0: 3A 81 49 49 B2 31 A4 C3 28 41 24 29 00 F4 0B 66 |:.II.1..(A$)...f|
000003E0: 03 8B 54 24 B2 CA 28 41 24 2C 49 49 2C 31 29 A7 |..T$..(A$,II,1).|
000003F0: 4F 4B B2 31 00 00 0C 70 03 8B 4F 4B B2 31 A7 8E |OK.1...p..OK.1..|
00000400: 00 08 0C 7A 03 82 49 49 00 11 0C 7F 03 89 38 36 |...z..II......86|
00000410: 30 00 17 0C 80 03 80 00 39 0C 84 03 8F 20 49 4E |0.......9.... IN|
00000420: 4C 45 5A 45 4E 20 4B 45 55 5A 45 20 4D 4F 47 45 |LEZEN KEUZE MOGE|
00000430: 4C 49 4A 4B 48 45 44 45 4E 00 46 0C 8E 03 49 B2 |LIJKHEDEN.F...I.|
00000440: 30 3A 54 4B B2 30 00 52 0C 93 03 87 4B 5A 24 28 |0:TK.0.R....KZ$(|
00000450: 49 29 00 71 0C 98 03 8B 4B 5A 24 28 49 29 B2 22 |I).q....KZ$(I)."|
00000460: 45 49 4E 44 22 A7 54 4B B2 49 AB 31 3A 89 39 35 |EIND".TK.I.1:.95|
00000470: 30 00 7B 0C A2 03 49 B2 49 AA 31 00 84 0C AC 03 |0.{...I.I.1.....|
00000480: 89 39 31 35 00 8F 0C B6 03 81 49 B2 30 A4 35 00 |.915......I.0.5.|
00000490: 9B 0C C0 03 87 56 4E 24 28 49 29 00 A2 0C CA 03 |.....VN$(I).....|
000004A0: 82 49 00 B8 0C E8 03 8F 20 42 45 47 49 4E 20 50 |.I...... BEGIN P|
000004B0: 52 4F 47 52 41 4D 4D 41 00 CB 0C F2 03 53 55 B2 |ROGRAMMA.....SU.|
000004C0: 30 3A 4B 5A B2 30 3A 8D 36 30 30 00 DB 0C FC 03 |0:KZ.0:.600.....|
000004D0: 8B 4B 5A B2 54 4B A7 39 35 30 30 00 0B 0D 06 04 |.KZ.TK.9500.....|
000004E0: 91 4B 5A 8D 32 30 30 30 2C 33 30 30 30 2C 34 30 |.KZ.2000,3000,40|
000004F0: 30 30 2C 37 30 30 30 2C 36 30 30 30 2C 35 30 30 |00,7000,6000,500|
00000500: 30 2C 38 30 30 30 2C 39 30 30 30 00 15 0D 10 04 |0,8000,9000.....|
00000510: 89 31 30 31 30 00 2D 0D D0 07 8F 20 54 4F 45 56 |.1010.-.... TOEV|
00000520: 4F 45 47 45 4E 20 42 45 53 54 41 4E 44 00 36 0D |OEGEN BESTAND.6.|
00000530: DA 07 8D 35 30 30 00 44 0D E4 07 99 3A 81 49 49 |...500.D....:.II|
00000540: B2 30 A4 35 00 56 0D EE 07 99 56 4E 24 28 49 49 |.0.5.V....VN$(II|
00000550: 29 3B 22 3A 22 3B 00 63 0D 02 08 85 48 41 24 28 |);":";.c....HA$(|
00000560: 49 49 29 00 6B 0D 0C 08 82 49 49 00 8D 0D 2A 08 |II).k....II...*.|
00000570: 99 3A 99 22 4B 4F 52 52 45 43 54 20 49 4E 47 45 |.:."KORRECT INGE|
00000580: 56 4F 45 52 44 20 28 4A 2F 4E 29 22 3B 00 96 0D |VOERD (J/N)";...|
00000590: 34 08 8D 38 35 30 00 AE 0D 3E 08 8B 54 24 B2 22 |4..850...>..T$."|
000005A0: CE 22 B0 54 24 B2 22 4E 22 A7 32 30 30 30 00 C5 |.".T$."N".2000..|
000005B0: 0D 48 08 54 54 B2 54 54 AA 31 3A 41 41 B2 54 54 |.H.TT.TT.1:AA.TT|
000005C0: 3A 8D 33 30 30 00 EA 0D 52 08 99 3A 99 22 4D 45 |:.300...R..:."ME|
000005D0: 45 52 20 52 45 43 4F 52 44 53 20 49 4E 56 4F 45 |ER RECORDS INVOE|
000005E0: 52 45 4E 20 28 4A 2F 4E 29 22 00 F3 0D 5C 08 8D |REN (J/N)"...\..|
000005F0: 38 35 30 00 08 0E 66 08 8B 54 24 B2 22 CE 22 B0 |850...f..T$.".".|
00000600: 54 24 B2 22 4E 22 A7 8E 00 12 0E 70 08 89 32 30 |T$."N".....p..20|
00000610: 30 30 00 21 0E B8 0B 8F 20 57 49 4A 5A 49 47 45 |00.!.... WIJZIGE|
00000620: 4E 00 3D 0E BD 0B 8D 35 30 30 3A 53 55 B2 32 3A |N.=....500:SU.2:|
00000630: 8D 37 30 31 30 3A 8B 53 55 B2 32 A7 8E 00 68 0E |.7010:.SU.2...h.|
00000640: C2 0B 8D 35 30 30 3A 81 49 49 B2 30 A4 35 3A 99 |...500:.II.0.5:.|
00000650: 56 4E 24 28 49 49 29 3B 22 3A 22 3B 41 24 28 59 |VN$(II);":";A$(Y|
00000660: 2C 49 49 29 3A 82 49 49 00 87 0E CC 0B 99 3A 99 |,II):.II......:.|
00000670: 22 57 49 4A 5A 49 47 45 4E 20 5A 45 4B 45 52 20 |"WIJZIGEN ZEKER |
00000680: 28 4A 2F 4E 29 22 3B 00 A1 0E D6 0B 8D 38 35 30 |(J/N)";......850|
00000690: 3A 8B 54 24 B2 22 CE 22 B0 54 24 B2 22 4E 22 A7 |:.T$.".".T$."N".|
000006A0: 8E 00 B1 0E E0 0B 99 C7 28 31 39 29 3A 8D 35 32 |........(19):.52|
000006B0: 30 00 BD 0E EA 0B 81 49 49 B2 30 A4 35 00 D8 0E |0......II.0.5...|
000006C0: F4 0B 99 56 4E 24 28 49 49 29 3B 22 3A 22 3B 41 |...VN$(II);":";A|
000006D0: 24 28 49 2C 49 49 29 3B 00 E5 0E FE 0B 85 48 41 |$(I,II);......HA|
000006E0: 24 28 49 49 29 00 ED 0E 08 0C 82 49 49 00 0F 0F |$(II)......II...|
000006F0: 12 0C 99 3A 99 22 4B 4F 52 52 45 43 54 20 49 4E |...:."KORRECT IN|
00000700: 47 45 56 4F 45 52 44 20 28 4A 2F 4E 29 22 3B 00 |GEVOERD (J/N)";.|
00000710: 18 0F 1C 0C 8D 38 35 30 00 30 0F 26 0C 8B 54 24 |.....850.0.&..T$|
00000720: B2 22 CE 22 B0 54 24 B2 22 4E 22 A7 33 30 30 30 |.".".T$."N".3000|
00000730: 00 3E 0F 30 0C 41 41 B2 59 3A 8D 33 30 30 00 64 |.>.0.AA.Y:.300.d|
00000740: 0F 3A 0C 99 3A 99 22 4D 45 45 52 20 52 45 43 4F |.:..:."MEER RECO|
00000750: 52 44 53 20 57 49 4A 5A 49 47 45 4E 20 28 4A 2F |RDS WIJZIGEN (J/|
00000760: 4E 29 22 3B 00 6D 0F 44 0C 8D 38 35 30 00 82 0F |N)";.m.D..850...|
00000770: 4E 0C 8B 54 24 B2 22 CE 22 B0 54 24 B2 22 4E 22 |N..T$.".".T$."N"|
00000780: A7 8E 00 8C 0F 58 0C 89 33 30 30 30 00 A5 0F A0 |.....X..3000....|
00000790: 0F 8F 20 52 45 43 4F 52 44 20 56 45 52 57 49 4A |.. RECORD VERWIJ|
000007A0: 44 45 52 45 4E 00 C1 0F AA 0F 8D 35 30 30 3A 53 |DEREN......500:S|
000007B0: 55 B2 31 3A 8D 37 30 31 30 3A 8B 53 55 B2 31 A7 |U.1:.7010:.SU.1.|
000007C0: 8E 00 EC 0F AB 0F 8D 35 30 30 3A 81 49 49 B2 30 |.......500:.II.0|
000007D0: A4 35 3A 99 56 4E 24 28 49 49 29 3B 22 3A 22 3B |.5:.VN$(II);":";|
000007E0: 41 24 28 49 2C 49 49 29 3A 82 49 49 00 0E 10 B4 |A$(I,II):.II....|
000007F0: 0F 99 3A 99 22 56 45 52 57 49 4A 44 45 52 45 4E |..:."VERWIJDEREN|
00000800: 20 5A 45 4B 45 52 20 28 4A 2F 4E 29 22 3B 00 28 | ZEKER (J/N)";.(|
00000810: 10 BE 0F 8D 38 35 30 3A 8B 54 24 B2 22 CE 22 B0 |....850:.T$.".".|
00000820: 54 24 B2 22 4E 22 A7 8E 00 42 10 C8 0F 41 24 28 |T$."N"...B...A$(|
00000830: 59 2C 30 29 B2 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |Y,0)."**********|
00000840: 2A 22 00 84 10 D2 0F 8F 20 41 4C 4C 45 20 52 45 |*"...... ALLE RE|
00000850: 43 4F 52 44 53 20 4D 45 54 20 22 2A 2A 2A 2A 2A |CORDS MET "*****|
00000860: 2A 2A 2A 2A 2A 2A 22 20 56 45 52 57 49 4A 44 45 |******" VERWIJDE|
00000870: 52 45 4E 20 42 49 4A 20 57 45 47 53 43 48 52 49 |REN BIJ WEGSCHRI|
00000880: 4A 56 45 4E 00 8A 10 04 10 8E 00 A8 10 88 13 8F |JVEN............|
00000890: 20 50 52 49 4E 54 45 4E 20 56 41 4E 20 45 45 4E | PRINTEN VAN EEN|
000008A0: 20 42 45 53 54 41 4E 44 00 B0 10 92 13 49 B2 31 | BESTAND.....I.1|
000008B0: 00 B9 10 9C 13 8D 35 30 30 00 CD 10 A6 13 99 3A |......500......:|
000008C0: 99 22 52 45 43 4F 52 44 23 3A 22 3B 49 00 D9 10 |."RECORD#:";I...|
000008D0: B0 13 81 49 49 B2 30 A4 35 00 F3 10 BA 13 99 56 |...II.0.5......V|
000008E0: 4E 24 28 49 49 29 3B 22 3A 22 3B 41 24 28 49 2C |N$(II);":";A$(I,|
000008F0: 49 49 29 00 FB 10 C4 13 82 49 49 00 23 11 CE 13 |II)......II.#...|
00000900: 8B C8 28 41 24 28 49 2C 30 29 2C 34 29 B2 22 2A |..(A$(I,0),4)."*|
00000910: 2A 2A 2A 22 A7 99 22 12 56 45 52 57 49 4A 44 45 |***"..".VERWIJDE|
00000920: 52 44 22 00 38 11 D8 13 49 B2 49 AA 31 3A 8B 49 |RD".8...I.I.1:.I|
00000930: B1 54 54 A7 35 31 32 30 00 58 11 E2 13 99 3A 99 |.TT.5120.X....:.|
00000940: 22 56 4F 4C 47 45 4E 44 45 20 52 45 43 4F 52 44 |"VOLGENDE RECORD|
00000950: 20 28 4A 2F 4E 29 22 3B 00 61 11 EC 13 8D 38 35 | (J/N)";.a....85|
00000960: 30 00 79 11 F6 13 8B 54 24 B2 22 CA 22 B0 54 24 |0.y....T$.".".T$|
00000970: B2 22 4A 22 A7 35 30 32 30 00 97 11 00 14 99 3A |."J".5020......:|
00000980: 99 22 54 59 50 45 20 54 4F 45 54 53 20 56 4F 4F |."TYPE TOETS VOO|
00000990: 52 20 4D 45 4E 55 22 00 A2 11 0A 14 89 38 30 30 |R MENU"......800|
000009A0: 3A 8E 00 BA 11 58 1B 8F 20 5A 4F 45 4B 45 4E 20 |:....X.. ZOEKEN |
000009B0: 49 4E 20 42 45 53 54 41 4E 44 00 DA 11 62 1B 8D |IN BESTAND...b..|
000009C0: 35 30 30 3A 99 3A 99 22 47 45 45 46 20 53 4C 45 |500:.:."GEEF SLE|
000009D0: 55 54 45 4C 56 45 4C 44 3A 22 00 E6 11 6C 1B 81 |UTELVELD:"...l..|
000009E0: 49 49 B2 30 A4 35 00 FE 11 76 1B 99 49 49 AA 31 |II.0.5...v..II.1|
000009F0: 3B 22 20 2D 20 22 3B 56 4E 24 28 49 49 29 00 06 |;" - ";VN$(II)..|
00000A00: 12 80 1B 82 49 49 00 1F 12 8A 1B 99 3A 99 22 4D |....II......:."M|
00000A10: 41 41 4B 20 45 45 4E 20 4B 45 55 5A 45 22 3B 00 |AAK EEN KEUZE";.|
00000A20: 28 12 94 1B 8D 38 30 30 00 35 12 9E 1B 4B 4B B2 |(....800.5...KK.|
00000A30: C5 28 54 24 29 00 49 12 A8 1B 8B 4B 4B B3 31 B0 |.(T$).I....KK.1.|
00000A40: 4B 4B B1 37 A7 37 30 36 30 00 55 12 B2 1B 8B 4B |KK.7.7060.U....K|
00000A50: 4B B2 37 A7 8E 00 61 12 BC 1B 56 4C B2 4B 4B AB |K.7...a...VL.KK.|
00000A60: 31 00 6A 12 C6 1B 56 47 B2 30 00 73 12 D0 1B 8D |1.j...VG.0.s....|
00000A70: 35 30 30 00 7D 12 DA 1B 99 3A 99 3A 99 00 9C 12 |500.}....:.:....|
00000A80: E4 1B 99 22 5A 4F 45 4B 45 4E 20 4F 50 20 22 3B |..."ZOEKEN OP ";|
00000A90: 56 4E 24 28 56 4C 29 3B 22 3A 22 3B 00 A5 12 EE |VN$(VL);":";....|
00000AA0: 1B 85 20 5A 24 00 B1 12 F8 1B 81 49 B2 31 A4 54 |.. Z$......I.1.T|
00000AB0: 54 00 E1 12 02 1C 8B C8 28 41 24 28 49 2C 56 4C |T.......(A$(I,VL|
00000AC0: 29 2C C3 28 5A 24 29 29 B2 5A 24 A7 8D 37 32 31 |),.(Z$)).Z$..721|
00000AD0: 30 3A 8B 53 55 B2 39 39 A7 59 B2 49 3A 49 B2 54 |0:.SU.99.Y.I:I.T|
00000AE0: 54 00 E8 12 0C 1C 82 49 00 F7 12 16 1C 8B 56 47 |T......I......VG|
00000AF0: B2 30 A7 37 33 38 30 00 FD 12 20 1C 8E 00 13 13 |.0.7380... .....|
00000B00: 2A 1C 8F 20 52 45 43 4F 52 44 20 47 45 56 4F 4E |*.. RECORD GEVON|
00000B10: 44 45 4E 00 1C 13 34 1C 8D 35 30 30 00 25 13 3E |DEN...4..500.%.>|
00000B20: 1C 56 47 B2 31 00 3E 13 48 1C 99 22 52 45 43 4F |.VG.1.>.H.."RECO|
00000B30: 52 44 20 4E 55 4D 4D 45 52 20 3A 22 3B 49 00 4A |RD NUMMER :";I.J|
00000B40: 13 52 1C 81 49 49 B2 30 A4 35 00 62 13 5C 1C 99 |.R..II.0.5.b.\..|
00000B50: 56 4E 24 28 49 49 29 22 3A 22 41 24 28 49 2C 49 |VN$(II)":"A$(I,I|
00000B60: 49 29 00 6C 13 66 1C 82 49 49 3A 99 00 85 13 70 |I).l.f..II:....p|
00000B70: 1C 91 53 55 AA 31 89 37 33 30 30 2C 37 33 34 30 |..SU.1.7300,7340|
00000B80: 2C 37 33 34 30 00 9F 13 7A 1C 8F 20 53 55 3D 4F |,7340...z.. SU=O|
00000B90: 20 4E 4F 52 4D 41 41 4C 20 5A 4F 45 4B 45 4E 00 | NORMAAL ZOEKEN.|
00000BA0: BE 13 84 1C 99 22 54 59 50 45 20 54 4F 45 54 53 |....."TYPE TOETS|
00000BB0: 20 56 4F 4F 52 20 56 45 52 56 4F 4C 47 22 00 C7 | VOOR VERVOLG"..|
00000BC0: 13 8E 1C 8D 38 30 30 00 D1 13 98 1C 89 37 33 37 |....800......737|
00000BD0: 30 00 F5 13 A2 1C 8F 20 53 55 3D 31 20 56 45 52 |0...... SU=1 VER|
00000BE0: 57 49 4A 44 45 52 45 4E 20 53 55 3D 32 20 4D 55 |WIJDEREN SU=2 MU|
00000BF0: 54 45 52 45 4E 00 17 14 AC 1C 99 22 44 49 54 20 |TEREN......"DIT |
00000C00: 52 45 43 4F 52 44 20 42 45 57 45 52 4B 45 4E 20 |RECORD BEWERKEN |
00000C10: 28 4A 2F 4E 29 22 3B 00 20 14 B6 1C 8D 38 35 30 |(J/N)";. ....850|
00000C20: 00 39 14 C0 1C 8B 54 24 B2 22 CA 22 B0 54 24 B2 |.9....T$.".".T$.|
00000C30: 22 4A 22 A7 53 55 B2 39 39 00 3F 14 CA 1C 8E 00 |"J".SU.99.?.....|
00000C40: 5A 14 D4 1C 8F 20 52 45 43 4F 52 44 20 4E 49 45 |Z.... RECORD NIE|
00000C50: 54 20 47 45 56 4F 4E 44 45 4E 00 72 14 DE 1C 99 |T GEVONDEN.r....|
00000C60: 5A 24 22 20 4E 49 45 54 20 47 45 56 4F 4E 44 45 |Z$" NIET GEVONDE|
00000C70: 4E 22 00 91 14 E8 1C 99 22 54 59 50 45 20 54 4F |N"......"TYPE TO|
00000C80: 45 54 53 20 56 4F 4F 52 20 56 45 52 56 4F 4C 47 |ETS VOOR VERVOLG|
00000C90: 22 00 9A 14 F2 1C 8D 38 30 30 00 A0 14 FC 1C 8E |"......800......|
00000CA0: 00 B6 14 40 1F 8F 20 42 45 53 54 41 4E 44 20 49 |...@.. BESTAND I|
00000CB0: 4E 4C 45 5A 45 4E 00 C4 14 4A 1F 8D 35 30 30 3A |NLEZEN...J..500:|
00000CC0: 54 54 B2 30 00 DB 14 68 1F 99 3A 99 22 4D 4F 4D |TT.0...h..:."MOM|
00000CD0: 45 4E 54 20 41 2E 55 2E 42 2E 22 00 F6 14 72 1F |ENT A.U.B."...r.|
00000CE0: 9F 32 2C 38 2C 32 2C 22 42 2F 42 45 53 54 41 4E |.2,8,2,"B/BESTAN|
00000CF0: 44 2C 53 2C 52 22 00 09 15 7C 1F 84 32 2C 43 24 |D,S,R"...|..2,C$|
00000D00: 3A 54 54 B2 C5 28 43 24 29 00 1D 15 86 1F 81 54 |:TT..(C$)......T|
00000D10: B2 31 A4 54 54 3A 81 54 53 B2 30 A4 35 00 27 15 |.1.TT:.TS.0.5.'.|
00000D20: 90 1F 84 32 2C 43 24 00 3D 15 92 1F 41 24 28 54 |...2,C$.=...A$(T|
00000D30: 2C 54 53 29 B2 43 24 3A 43 24 B2 22 22 00 45 15 |,TS).C$:C$."".E.|
00000D40: 95 1F 82 3A 82 00 51 15 9A 1F A0 32 3A 8D 35 30 |...:..Q....2:.50|
00000D50: 30 00 57 15 A4 1F 8E 00 72 15 28 23 8F 20 42 45 |0.W.....r.(#. BE|
00000D60: 53 54 41 4E 44 20 57 45 47 53 43 48 52 49 4A 56 |STAND WEGSCHRIJV|
00000D70: 45 4E 00 7B 15 32 23 8D 35 30 30 00 93 15 3C 23 |EN.{.2#.500...<#|
00000D80: 99 3A 99 22 42 45 53 54 41 4E 44 53 4E 41 41 4D |.:."BESTANDSNAAM|
00000D90: 3A 22 3B 00 9B 15 46 23 85 42 24 00 B2 15 50 23 |:";...F#.B$...P#|
00000DA0: 99 3A 99 22 4D 4F 4D 45 4E 54 20 41 2E 55 2E 42 |.:."MOMENT A.U.B|
00000DB0: 2E 22 00 C9 15 55 23 42 54 24 B2 22 42 2F 22 AA |."...U#BT$."B/".|
00000DC0: 42 24 AA 22 2C 53 2C 57 22 00 D8 15 5A 23 9F 31 |B$.",S,W"...Z#.1|
00000DD0: 2C 38 2C 33 2C 42 54 24 00 F1 15 5F 23 43 24 B2 |,8,3,BT$..._#C$.|
00000DE0: 22 22 3A 43 24 B2 C4 28 54 54 29 3A 98 31 2C 43 |"":C$..(TT):.1,C|
00000DF0: 24 00 05 16 64 23 81 54 B2 30 A4 54 54 3A 81 54 |$...d#.T.0.TT:.T|
00000E00: 53 B2 30 A4 35 00 0F 16 68 23 43 24 B2 22 22 00 |S.0.5...h#C$."".|
00000E10: 1F 16 6A 23 43 24 B2 41 24 28 54 2C 54 53 29 00 |..j#C$.A$(T,TS).|
00000E20: 29 16 6E 23 98 31 2C 43 24 00 31 16 73 23 82 3A |).n#.1,C$.1.s#.:|
00000E30: 82 00 38 16 78 23 A0 31 00 3E 16 82 23 8E 00 00 |..8.x#.1.>..#...|
00000E40: 00 |. |
....D.. INITIALISATIE.'.N.TT.0:KZ.0:I.0.
[.X..A$(300,5),KZ$(10),ST((.(300)..(2).4
),1),VN$(7).F.H.. INIT...R..900:.1000:.
BEGIN PROGRAMMA...,.. VARI WEGZETTEN IN
ARRAY.P.6..II.0.5:A$(AA,II).HA$(II):HA$.
"":.II:....... DATA KEUZEMOGELIJKHEDEN.6
...."KEUZEMENU ADRESSENBESTAND","RECORDS
TOEVOEGEN","RECORDS WIJZIGEN".W...."REC
ORDS VERWIJDEREN","RECORDS OPZOEKEN","BE
STAND SORTEREN".A...."BESTAND PRINTEN","
BESTAND INLEZEN","BESTAND WEGSCHRIJVEN",
"STOPPEN"......"EIND","NAAM ","V
OORLETTERS ","STRAAT EN NO.","POSTCODE
".2.B.."WOONPLAATS ","TELEFOON
".D.... PRINTEN KOP.P....G(147)......"*
***************************************"
......:..20.C(KZ$(KZ)).2);KZ$(KZ):......
."AANTAL RECORDS:";TT...&.."************
****************************":....X.. ME
NU PRINTEN EN KEUZE./.B..500:.I.1.TK:.I;
" - ";KZ$(I):.I.H.L..:."MAAK EEN KEUZE";
.Q.V..800.N...KZ.E(T$):.KZ.1.KZ.TK.630.T
....... .. INLEZEN TOETS...*..T$:.T$."".
810...4.....R.. JA/NEE INPUT.G.T.OK.0:A$
."JJNN"...\..810:.II.1.C(A$)...F..T$.J(A
$,II,1).OK.1...P..OK.1.....Z..II.....86
0.......9.... INLEZEN KEUZE MOGELIJKHEDE
N.F...I.0:TK.0.R....KZ$(I).Q....KZ$(I)."
EIND".TK.I.1:.950.{...I.I.1......915....
..I.0.5......VN$(I)...J..I...... BEGIN P
ROGRAMMA.K...SU.0:KZ.0:.600......KZ.TK.9
500......KZ.2000,3000,4000,7000,6000,500
0,8000,9000......1010.-.P.. TOEVOEGEN BE
STAND.6.Z..500.D....:.II.0.5.V....VN$(II
);":";.C....HA$(II).K....II...*..:."KORR
ECT INGEVOERD (J/N)";...4..850...>..T$."
N".T$."N".2000.E.H.TT.TT.1:AA.TT:.300...
R..:."MEER RECORDS INVOEREN (J/N)"...\..
850...F..T$."N".T$."N".....P..2000.!....
WIJZIGEN.=....500:SU.2:.7010:.SU.2...H.
B..500:.II.0.5:.VN$(II);":";A$(Y,II):.II
...L..:."WIJZIGEN ZEKER (J/N)";...V..850
:.T$."N".T$."N"........G(19):.520......I
I.0.5.X....VN$(II);":";A$(I,II);......HA
$(II)......II......:."KORRECT INGEVOERD
(J/N)";......850.0.&..T$."N".T$."N".3000
.>.0.AA.Y:.300.D.:..:."MEER RECORDS WIJZ
IGEN (J/N)";.M.D..850...N..T$."N".T$."N"
.....X..3000... .. RECORD VERWIJDEREN.A.
...500:SU.1:.7010:.SU.1........500:.II.0
.5:.VN$(II);":";A$(I,II):.II......:."VER
WIJDEREN ZEKER (J/N)";.(....850:.T$."N".
T$."N"...B.H.A$(Y,0)."***********"...R..
ALLE RECORDS MET "***********" VERWIJDE
REN BIJ WEGSCHRIJVEN............ PRINTEN
VAN EEN BESTAND.....I.1......500.M....:
."RECORD#:";I.Y....II.0.5......VN$(II);"
:";A$(I,II)...D..II.#.N..H(A$(I,0),4)."*
***"..".VERWIJDERD".8.X.I.I.1:.I.TT.5120
.X....:."VOLGENDE RECORD (J/N)";.A....85
0.Y....T$."J".T$."J".5020......:."TYPE T
OETS VOOR MENU"......800:....X.. ZOEKEN
IN BESTAND.Z.B..500:.:."GEEF SLEUTELVELD
:"...L..II.0.5...V..II.1;" - ";VN$(II)..
....II......:."MAAK EEN KEUZE";.(....800
.5...KK.E(T$).I....KK.1.KK.7.7060.U....K
K.7...A...VL.KK.1.J.F.VG.0.S.P..500.}.Z.
.:.:......."ZOEKEN OP ";VN$(VL);":";....
.. Z$......I.1.TT......H(A$(I,VL),C(Z$))
.Z$..7210:.SU.99.Y.I:I.TT......I......VG
.0.7380... .....*.. RECORD GEVONDEN...4.
.500.%.>.VG.1.>.H.."RECORD NUMMER :";I.J
.R..II.0.5.B.\..VN$(II)":"A$(I,II).L.F..
II:....P..SU.1.7300,7340,7340...Z.. SU=O
NORMAAL ZOEKEN......"TYPE TOETS VOOR VE
RVOLG".G....800.Q....7370...... SU=1 VER
WIJDEREN SU=2 MUTEREN......"DIT RECORD B
EWERKEN (J/N)";. ....850.9....T$."J".T$.
"J".SU.99.?.J...Z.T.. RECORD NIET GEVOND
EN.R....Z$" NIET GEVONDEN"......"TYPE TO
ETS VOOR VERVOLG"......800. .......@.. B
ESTAND INLEZEN.D.J..500:TT.0...H..:."MOM
ENT A.U.B."...R..2,8,2,"B/BESTAND,S,R"..
.|..2,C$:TT.E(C$)......T.1.TT:.TS.0.5.'.
...2,C$.=...A$(T,TS).C$:C$."".E....:..Q.
.. 2:.500.W.....R.(#. BESTAND WEGSCHRIJV
EN.{.2#.500...<#.:."BESTANDSNAAM:";...F#
.B$...P#.:."MOMENT A.U.B.".I.U#BT$."B/".
B$.",S,W".X.Z#.1,8,3,BT$..._#C$."":C$.D(
TT):.1,C$...D#.T.0.TT:.TS.0.5...H#C$."".
..J#C$.A$(T,TS).).N#.1,C$.1.S#.:..8.X# 1
.>..#....
> CLICK IMAGE PREVIEW FOR FULL MODAL