CODPGPN
FILE INFORMATION
FILENAME(S): CODPGPN
FILE TYPE(S): PRG
FILE SIZE: 33.3K
FIRST SEEN: 2025-12-02 02:07:36
APPEARS ON: 1 disk(s)
FILE HASH
48120ca4cdd190da6a7fc01783eb6ce71d2f191970290220fb9e1b535f875c2e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| JPE | CODPGPN | PRG | Shocktrooper | 23 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 01 00 9C 00 2C 08 02 00 A0 31 35 3A |........,....15:|
00000010: 9F 31 35 2C 38 2C 31 35 3A 99 C7 28 31 34 29 3A |.15,8,15:..(14):|
00000020: 8B 44 42 B2 31 A7 9C 3A 44 42 B2 31 00 52 08 08 |.DB.1..:DB.1.R..|
00000030: 00 59 24 B2 22 22 AA 22 13 11 11 11 11 11 11 11 |.Y$.""."........|
00000040: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000050: 11 22 00 92 08 0A 00 53 50 24 B2 22 22 3A 81 49 |.".....SP$."":.I|
00000060: B2 31 A4 33 38 3A 53 50 24 B2 53 50 24 AA 22 20 |.1.38:SP$.SP$." |
00000070: 22 3A 82 49 3A 44 54 24 B2 22 22 3A 81 49 B2 31 |":.I:DT$."":.I.1|
00000080: A4 33 39 3A 44 54 24 B2 44 54 24 AA 22 2E 22 3A |.39:DT$.DT$.".":|
00000090: 82 49 00 B7 08 0C 00 45 53 24 28 31 29 B2 22 2A |.I.....ES$(1)."*|
000000A0: 20 C1 4C 4C 45 45 4E 20 47 45 54 41 4C 4C 45 4E | .LLEEN GETALLEN|
000000B0: 20 41 55 42 20 2A 22 00 DD 08 0E 00 45 53 24 28 | AUB *".....ES$(|
000000C0: 32 29 B2 22 22 AA 22 2A 20 C7 45 45 4E 20 47 45 |2).""."* .EEN GE|
000000D0: 54 41 4C 4C 45 4E 20 41 55 42 20 2A 22 00 0A 09 |TALLEN AUB *"...|
000000E0: 10 00 45 53 24 28 33 29 B2 22 22 AA 22 2A 20 D5 |..ES$(3).""."* .|
000000F0: 20 4D 4F 45 54 20 49 45 54 53 20 49 4E 56 4F 45 | MOET IETS INVOE|
00000100: 52 45 4E 20 2A 20 20 20 20 22 00 39 09 12 00 45 |REN * ".9...E|
00000110: 53 24 28 34 29 B2 22 22 AA 22 2A 20 CF 4E 4A 55 |S$(4).""."* .NJU|
00000120: 49 53 54 20 4B 41 52 41 4B 54 45 52 2D 54 45 4B |IST KARAKTER-TEK|
00000130: 45 4E 20 2A 20 20 20 20 22 00 5D 09 14 00 45 53 |EN * ".]...ES|
00000140: 24 28 35 29 B2 22 22 AA 22 2A 20 CF 4E 4A 55 49 |$(5).""."* .NJUI|
00000150: 53 54 45 20 4C 45 4E 47 54 45 20 2A 22 00 84 09 |STE LENGTE *"...|
00000160: 16 00 45 53 24 28 36 29 B2 22 22 AA 22 2A 20 CF |..ES$(6).""."* .|
00000170: 4E 4A 55 49 53 54 45 20 57 41 41 52 44 45 20 2A |NJUISTE WAARDE *|
00000180: 20 20 20 22 00 98 09 18 00 99 C7 28 31 34 29 3A | ".......(14):|
00000190: 8B 44 42 B2 31 A7 35 38 00 CF 09 1C 00 99 22 93 |.DB.1.58......".|
000001A0: 22 3A 99 3B 22 12 A1 20 20 20 20 C7 45 47 45 56 |":.;".. .EGEV|
000001B0: 45 4E 53 20 D6 45 52 57 45 52 4B 49 4E 47 53 20 |ENS .ERWERKINGS |
000001C0: C7 45 4E 45 52 41 54 4F 52 20 92 20 20 20 22 00 |.ENERATOR . ".|
000001D0: 05 0A 1E 00 99 C8 28 59 24 2C 34 29 3B 22 C4 4F |......(Y$,4);".O|
000001E0: 45 20 44 45 20 57 45 52 4B 44 49 53 4B 45 54 54 |E DE WERKDISKETT|
000001F0: 45 20 49 4E 20 44 45 20 44 49 53 4B 20 44 52 49 |E IN DE DISK DRI|
00000200: 56 45 2E 20 22 00 15 0A 1F 00 43 33 B2 C2 28 35 |VE. ".....C3..(5|
00000210: 35 33 34 30 29 00 51 0A 20 00 99 22 D5 57 20 50 |5340).Q. ..".W P|
00000220: 52 4F 47 52 41 4D 4D 41 20 57 4F 52 44 54 20 4F |ROGRAMMA WORDT O|
00000230: 50 20 44 45 5A 45 20 44 49 53 4B 20 20 20 20 20 |P DEZE DISK |
00000240: 20 20 20 20 47 45 53 43 48 52 45 56 45 4E 2E 20 | GESCHREVEN. |
00000250: 22 00 7C 0A 22 00 99 3A 99 22 D4 49 4B 20 27 58 |".|."..:.".IK 'X|
00000260: 27 20 4F 4D 20 54 45 52 55 47 20 54 45 20 47 41 |' OM TERUG TE GA|
00000270: 41 4E 20 4E 41 41 52 20 48 45 54 22 00 A2 0A 24 |AN NAAR HET"...$|
00000280: 00 99 22 C3 4F 44 45 57 52 49 54 45 52 20 D3 59 |..".ODEWRITER .Y|
00000290: 53 54 45 45 4D 20 C8 4F 4F 46 44 20 CD 45 4E 55 |STEEM .OOFD .ENU|
000002A0: 3A 22 00 CD 0A 26 00 99 C8 28 59 24 2C 32 34 29 |:"...&...(Y$,24)|
000002B0: 22 D4 4F 45 54 53 20 12 D2 C5 D4 D5 D2 CE 92 20 |".OETS ........ |
000002C0: 56 4F 4F 52 20 56 45 52 56 4F 4C 47 22 00 F4 0A |VOOR VERVOLG"...|
000002D0: 28 00 58 25 B2 33 30 3A 59 25 B2 39 3A 4C 25 B2 |(.X%.30:Y%.9:L%.|
000002E0: 31 3A 8D 38 34 32 3A 8B 49 4E 24 B3 B1 22 58 22 |1:.842:.IN$.."X"|
000002F0: 20 A7 34 34 00 FF 0A 29 00 8D 20 32 35 36 30 00 | .44...).. 2560.|
00000300: 33 0B 2A 00 8B 49 4E 24 B2 22 58 22 A7 97 34 35 |3.*..IN$."X"..45|
00000310: 2C 32 31 37 3A 97 34 36 2C 30 32 33 3A 9C 3A 97 |,217:.46,023:.:.|
00000320: 38 36 34 2C 39 36 3A 93 22 4E 45 57 4D 45 4E 55 |864,96:."NEWMENU|
00000330: 22 2C 38 00 44 0B 2C 00 8B C3 28 49 4E 24 29 B1 |",8.D.,...(IN$).|
00000340: 30 A7 34 30 00 8C 0B 2E 00 99 22 93 C3 4F 44 45 |0.40......"..ODE|
00000350: 57 52 49 54 45 52 20 47 41 41 54 20 44 45 20 42 |WRITER GAAT DE B|
00000360: 41 53 49 53 46 4F 52 4D 55 4C 45 20 56 4F 4F 52 |ASISFORMULE VOOR|
00000370: 20 55 57 20 4F 4E 54 57 45 52 50 2D 50 52 4F 47 | UW ONTWERP-PROG|
00000380: 52 41 4D 4D 41 20 4D 41 4B 45 4E 22 00 C8 0B 30 |RAMMA MAKEN"...0|
00000390: 00 99 22 11 11 D6 4F 45 52 20 44 45 20 4E 41 41 |.."...OER DE NAA|
000003A0: 4D 20 49 4E 20 44 49 45 20 55 20 57 49 4C 54 20 |M IN DIE U WILT |
000003B0: 4C 41 54 45 4E 20 5A 49 45 4E 20 4E 41 44 45 20 |LATEN ZIEN NADE |
000003C0: 56 52 41 41 47 20 3A 22 00 FF 0B 34 00 99 22 11 |VRAAG :"...4..".|
000003D0: D0 52 4F 47 52 41 4D 4D 41 20 4F 4E 54 57 45 52 |.ROGRAMMA ONTWER|
000003E0: 50 20 56 41 4E 20 12 4D 41 58 2E 20 32 30 20 4B |P VAN .MAX. 20 K|
000003F0: 41 52 41 4B 54 45 52 53 22 3A 99 22 3F 22 3B 00 |ARAKTERS":."?";.|
00000400: 27 0C 36 00 58 25 B2 31 3A 59 25 B2 C2 28 32 31 |'.6.X%.1:Y%..(21|
00000410: 34 29 AA 31 3A 4C 25 B2 32 30 3A 8D 38 34 32 3A |4).1:L%.20:.842:|
00000420: 4E 41 24 B2 49 4E 24 00 55 0C 38 00 99 22 93 D7 |NA$.IN$.U.8.."..|
00000430: 41 54 20 49 53 20 44 45 20 4E 41 41 4D 20 56 41 |AT IS DE NAAM VA|
00000440: 4E 20 55 57 20 53 43 48 45 52 4D 20 4F 4E 54 57 |N UW SCHERM ONTW|
00000450: 45 52 50 3F 22 00 85 0C 3A 00 99 C8 28 59 24 2C |ERP?"...:...(Y$,|
00000460: 33 29 53 50 24 3B 3A 99 C8 28 59 24 2C 33 29 22 |3)SP$;:..(Y$,3)"|
00000470: 53 43 48 45 52 4D 2D 4F 4E 54 57 45 52 50 20 20 |SCHERM-ONTWERP |
00000480: 20 3D 20 22 3B 00 A6 0C 3C 00 58 25 B2 31 39 3A | = ";...<.X%.19:|
00000490: 59 25 B2 C2 28 32 31 34 29 AA 31 3A 4C 25 B2 31 |Y%..(214).1:L%.1|
000004A0: 30 3A 8D 38 34 32 00 B6 0C 3D 00 8B 20 49 4E 24 |0:.842...=.. IN$|
000004B0: B2 22 22 A7 32 38 00 CD 0C 3E 00 50 24 B2 49 4E |."".28...>.P$.IN|
000004C0: 24 3A 53 46 24 B2 50 24 AA 22 2F 53 22 00 D6 0C |$:SF$.P$."/S"...|
000004D0: 40 00 8D 37 38 34 00 09 0D 42 00 8B 45 53 B2 36 |@..784...B..ES.6|
000004E0: 32 A7 99 3A 99 22 20 20 D3 43 48 45 52 4D 2D 4F |2..:." .CHERM-O|
000004F0: 4E 54 57 45 52 50 20 4E 49 45 54 20 47 45 56 4F |NTWERP NIET GEVO|
00000500: 4E 44 45 4E 22 3A 89 35 38 00 16 0D 44 00 8B 45 |NDEN":.58...D..E|
00000510: 53 B2 30 A7 37 38 00 30 0D 46 00 99 3A 99 22 C4 |S.0.78.0.F..:.".|
00000520: 49 53 4B 20 46 4F 55 54 20 20 23 22 3B 45 53 3B |ISK FOUT #";ES;|
00000530: 00 60 0D 48 00 99 22 20 20 20 20 D4 4F 45 54 53 |.`.H.." .OETS|
00000540: 20 12 D2 C5 D4 D5 D2 CE 92 20 4F 4D 20 54 45 52 | ........ OM TER|
00000550: 55 47 20 54 45 20 47 41 41 4E 20 4E 41 41 52 22 |UG TE GAAN NAAR"|
00000560: 00 88 0D 49 00 99 22 20 20 20 20 20 20 20 20 20 |...I.." |
00000570: 20 20 20 D3 59 53 54 45 45 4D 20 C8 4F 4F 46 44 | .YSTEEM .OOFD|
00000580: 20 CD 45 4E 55 22 3A 90 00 A0 0D 4A 00 A1 41 41 | .ENU":....J..AA|
00000590: 24 3A 8B 41 41 24 B3 B1 C7 28 31 33 29 A7 37 34 |$:.AA$...(13).74|
000005A0: 00 B0 0D 4C 00 49 4E 24 B2 22 58 22 3A 89 34 32 |...L.IN$."X":.42|
000005B0: 00 C8 0D 4E 00 86 46 24 28 5A 46 29 2C 44 25 28 |...N..F$(ZF),D%(|
000005C0: 5A 46 29 3A 99 22 93 22 00 FA 0D 50 00 81 49 B2 |ZF):."."...P..I.|
000005D0: 31 A4 4E 46 3A 99 C8 28 59 24 2C 59 25 28 49 29 |1.NF:..(Y$,Y%(I)|
000005E0: 29 3B A3 58 25 28 49 29 29 3B 50 52 24 28 49 29 |);.X%(I));PR$(I)|
000005F0: 3B 53 44 24 28 49 29 3A 82 49 00 2B 0E 52 00 8B |;SD$(I):.I.+.R..|
00000600: 4E 43 A7 81 49 B2 31 A4 4E 43 3A 99 C8 28 59 24 |NC..I.1.NC:..(Y$|
00000610: 2C 43 59 25 28 49 29 29 3B A3 43 58 25 28 49 29 |,CY%(I));.CX%(I)|
00000620: 29 3B 43 50 24 28 49 29 3A 82 49 00 5C 0E 54 00 |);CP$(I):.I.\.T.|
00000630: 8B 4E 47 A7 81 49 B2 31 A4 4E 47 3A 99 C8 28 59 |.NG..I.1.NG:..(Y|
00000640: 24 2C 47 59 25 28 49 29 29 3B A3 47 58 25 28 49 |$,GY%(I));.GX%(I|
00000650: 29 29 3B 47 50 24 28 49 29 3A 82 49 00 8F 0E 56 |));GP$(I):.I...V|
00000660: 00 8B 4E 54 A7 81 49 B2 31 A4 4E 54 3A 99 C8 28 |..NT..I.1.NT:..(|
00000670: 59 24 2C 54 59 25 28 49 29 29 3B A3 54 58 25 28 |Y$,TY%(I));.TX%(|
00000680: 49 29 AA 31 29 3B 54 50 24 28 49 29 3A 82 49 00 |I).1);TP$(I):.I.|
00000690: C1 0E 58 00 99 C8 28 59 24 2C 32 33 29 3B 22 C9 |..X...(Y$,23);".|
000006A0: 53 20 44 49 54 20 55 57 20 53 43 48 45 52 4D 2D |S DIT UW SCHERM-|
000006B0: 4F 4E 54 57 45 52 50 20 20 20 28 4A 2F 4E 29 3F |ONTWERP (J/N)?|
000006C0: 22 00 DB 0E 5A 00 58 25 B2 33 34 3A 59 25 B2 32 |"...Z.X%.34:Y%.2|
000006D0: 33 3A 4C 25 B2 31 3A 8D 38 34 32 00 EB 0E 5C 00 |3:L%.1:.842...\.|
000006E0: 8B 49 4E 24 B2 22 4A 22 A7 39 38 00 05 0F 5E 00 |.IN$."J".98...^.|
000006F0: 8B 49 4E 24 B2 22 4E 22 A7 99 22 93 22 3A 44 46 |.IN$."N"..".":DF|
00000700: B2 31 3A 89 31 00 20 0F 60 00 8B 20 49 4E 24 B3 |.1:.1. .`.. IN$.|
00000710: B1 22 4A 22 AF 49 4E 24 B3 B1 22 4E 22 A7 38 38 |."J".IN$.."N".88|
00000720: 00 55 0F 62 00 44 52 24 B2 22 44 30 22 3A 47 44 |.U.b.DR$."D0":GD|
00000730: 24 B2 50 24 AA 22 2F 58 22 3A 50 4E 24 B2 50 24 |$.P$."/X":PN$.P$|
00000740: AA 22 2F 42 22 3A 47 46 24 B2 50 24 AA 22 2F 47 |."/B":GF$.P$."/G|
00000750: 4C 42 22 20 3A 00 8B 0F 64 00 98 31 35 2C 22 53 |LB" :...d..15,"S|
00000760: 30 3A 22 AA 28 50 4E 24 29 3A 9F 32 2C 38 2C 32 |0:".(PN$):.2,8,2|
00000770: 2C 22 30 3A 22 AA 28 50 4E 24 29 AA 22 2C 53 2C |,"0:".(PN$).",S,|
00000780: 57 22 3A 51 24 B2 C7 28 33 34 29 00 B6 0F 68 00 |W":Q$..(34)...h.|
00000790: 98 32 2C 22 31 52 45 4D 20 2A 50 52 4F 47 52 41 |.2,"1REM *PROGRA|
000007A0: 4D 4D 41 20 4E 41 41 4D 20 49 53 20 22 3B 50 24 |MMA NAAM IS ";P$|
000007B0: 3B 22 2F 54 2A 22 00 E1 0F 6A 00 98 32 2C 22 32 |;"/T*"...j..2,"2|
000007C0: 52 45 4D 20 2A 44 41 54 41 20 46 49 4C 45 20 4E |REM *DATA FILE N|
000007D0: 41 41 4D 20 49 53 20 22 3B 50 24 3B 22 2F 44 2A |AAM IS ";P$;"/D*|
000007E0: 22 00 05 10 6B 00 98 32 2C 22 35 50 CF 34 35 2C |"...k..2,"5P.45,|
000007F0: 50 C5 28 31 37 34 29 3A 50 CF 34 36 2C 50 C5 28 |P.(174):P.46,P.(|
00000800: 31 37 35 29 22 00 1A 10 6C 00 98 32 2C 22 33 50 |175)"...l..2,"3P|
00000810: 4F 4B 45 37 38 38 2C 35 32 22 00 53 10 6E 00 98 |OKE788,52".S.n..|
00000820: 31 35 2C 22 53 30 3A 22 AA 28 50 24 AA 22 2F 50 |15,"S0:".(P$."/P|
00000830: 43 46 22 29 3A 9F 33 2C 38 2C 33 2C 22 30 3A 22 |CF"):.3,8,3,"0:"|
00000840: AA 28 50 24 AA 22 2F 50 43 46 22 29 AA 22 2C 53 |.(P$."/PCF").",S|
00000850: 2C 57 22 00 5C 10 70 00 8D 33 38 32 00 6A 10 72 |,W".\.p..382.j.r|
00000860: 00 4E 53 B2 30 3A 8D 34 34 30 00 7D 10 76 00 98 |.NS.0:.440.}.v..|
00000870: 33 2C C4 28 4E 53 AA 4E 46 29 3A A0 33 00 BD 10 |3,.(NS.NF):.3...|
00000880: 78 00 52 53 B2 52 53 AA 31 35 AC 4E 53 3A 4D 58 |x.RS.RS.15.NS:MX|
00000890: B2 B5 28 33 30 34 31 36 35 36 30 AD 28 52 53 AC |..(30416560.(RS.|
000008A0: 32 35 36 AA 31 32 37 30 29 29 3A 8B 4D 58 B1 33 |256.1270)):.MX.3|
000008B0: 36 35 37 36 A7 4D 58 B2 33 36 35 37 36 00 DD 10 |6576.MX.36576...|
000008C0: 7C 00 8B 44 52 24 B2 22 44 30 22 A7 4D 58 B2 B5 ||..DR$."D0".MX..|
000008D0: 28 4D 58 AB 33 32 37 36 38 AD 52 53 29 00 EC 10 |(MX.32768.RS)...|
000008E0: 7E 00 99 22 93 22 3B 3A 99 22 13 22 00 30 11 82 |~..".";:.".".0..|
000008F0: 00 99 3A 99 22 C8 4F 45 56 45 45 4C 20 52 45 43 |..:.".OEVEEL REC|
00000900: 4F 52 44 53 20 57 49 4C 54 20 55 20 4D 41 58 49 |ORDS WILT U MAXI|
00000910: 4D 41 41 4C 20 4F 50 4E 45 4D 45 4E 20 49 4E 20 |MAAL OPNEMEN IN |
00000920: 44 45 20 44 41 54 41 20 46 49 4C 45 20 20 22 3B |DE DATA FILE ";|
00000930: 00 49 11 84 00 99 22 12 28 31 2D 22 AA C4 28 4D |.I....".(1-"..(M|
00000940: 58 29 AA 22 12 29 92 20 22 00 82 11 86 00 99 3A |X).".). "......:|
00000950: 99 22 3F 20 20 20 20 20 20 20 20 22 3B 3A 4C 25 |."? ";:L%|
00000960: B2 35 3A 58 25 B2 31 3A 59 25 B2 C2 28 32 31 34 |.5:X%.1:Y%..(214|
00000970: 29 AA 31 3A 8D 38 34 32 3A 4D 53 B2 C5 28 49 4E |).1:.842:MS..(IN|
00000980: 24 29 00 99 11 88 00 8B 4D 53 B1 30 AF 4D 53 B3 |$)......MS.0.MS.|
00000990: 4D 58 AA 31 A7 20 31 33 38 00 CD 11 89 00 99 3A |MX.1. 138......:|
000009A0: 99 22 CF 4E 4A 55 49 53 54 20 41 41 4E 54 41 4C |.".NJUIST AANTAL|
000009B0: 20 52 45 43 4F 52 44 53 20 20 20 22 3A 81 49 B2 | RECORDS ":.I.|
000009C0: 31 A4 35 30 30 3A 82 49 3A 89 31 32 36 00 F6 11 |1.500:.I:.126...|
000009D0: 8A 00 42 46 B2 31 38 32 38 38 30 3A 46 52 B2 B5 |..BF.182880:FR..|
000009E0: 28 42 46 AD 38 30 29 3A 51 44 B2 B5 28 52 53 AC |(BF.80):QD..(RS.|
000009F0: 4D 53 AD 42 46 29 00 1F 12 90 00 98 32 2C 22 34 |MS.BF)......2,"4|
00000A00: 52 45 4D 20 2A 20 41 41 4E 54 41 4C 20 52 45 43 |REM * AANTAL REC|
00000A10: 4F 52 44 53 20 49 53 22 3B 4D 53 3B 22 2A 22 00 |ORDS IS";MS;"*".|
00000A20: 53 12 92 00 99 22 93 22 3A 99 C8 28 59 24 2C 32 |S....".":..(Y$,2|
00000A30: 29 22 C7 45 45 46 20 44 45 20 54 49 54 45 4C 20 |)".EEF DE TITEL |
00000A40: 44 49 45 20 55 20 47 45 54 4F 4F 4E 44 20 57 49 |DIE U GETOOND WI|
00000A50: 4C 54 22 00 7F 12 94 00 99 22 41 4C 53 20 55 57 |LT"......"ALS UW|
00000A60: 20 50 52 4F 47 52 41 4D 4D 41 20 47 45 52 55 4E | PROGRAMMA GERUN|
00000A70: 44 20 47 41 41 54 20 57 4F 52 44 45 4E 2E 22 00 |D GAAT WORDEN.".|
00000A80: A7 12 96 00 99 3A 99 22 20 20 20 CD 41 58 49 4D |.....:." .AXIM|
00000A90: 41 41 4C 20 32 32 20 4B 41 52 41 4B 54 45 52 2D |AAL 22 KARAKTER-|
00000AA0: 54 45 4B 45 4E 53 22 00 E6 12 98 00 99 3A 99 22 |TEKENS"......:."|
00000AB0: D4 49 54 45 4C 20 3D 20 22 3B 3A 58 25 B2 38 3A |.ITEL = ";:X%.8:|
00000AC0: 59 25 B2 C2 28 32 31 34 29 AA 31 3A 4C 25 B2 32 |Y%..(214).1:L%.2|
00000AD0: 32 3A 8D 38 34 32 3A 54 54 24 B2 22 20 22 AA 49 |2:.842:TT$." ".I|
00000AE0: 4E 24 AA 22 20 22 00 12 13 9A 00 4C 4E B2 4C 4E |N$." ".....LN.LN|
00000AF0: AA 31 30 3A 98 32 2C 4C 4E 3B 22 43 4C 52 3A 47 |.10:.2,LN;"CLR:G|
00000B00: 4F D3 35 32 32 31 30 3A 47 4F D3 20 33 33 30 30 |O.52210:GO. 3300|
00000B10: 30 22 00 4E 13 9C 00 4C 4E B2 4C 4E AA 31 30 3A |0".N...LN.LN.10:|
00000B20: 98 32 2C 4C 4E 3B 22 59 24 3D 22 3B 51 24 3B 22 |.2,LN;"Y$=";Q$;"|
00000B30: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000B40: 11 11 11 11 11 11 11 11 11 11 22 3B 51 24 00 8C |..........";Q$..|
00000B50: 13 9E 00 98 32 2C 4C 4E AA 35 3B 22 44 54 24 3D |....2,LN.5;"DT$=|
00000B60: 22 3B 51 24 3B 22 22 3B 51 24 3B 22 3A 46 4F 52 |";Q$;"";Q$;":FOR|
00000B70: 49 3D 31 54 4F 33 39 3A 44 54 24 3D 44 54 24 2B |I=1TO39:DT$=DT$+|
00000B80: 43 C8 28 34 36 29 3A 4E C5 20 49 22 00 CA 13 A0 |C.(46):N. I"....|
00000B90: 00 98 32 2C 4C 4E AA 32 3B 22 53 50 24 3D 22 3B |..2,LN.2;"SP$=";|
00000BA0: 51 24 3B 22 22 3B 51 24 3B 22 3A 46 4F 52 49 3D |Q$;"";Q$;":FORI=|
00000BB0: 31 54 4F 33 39 3A 53 50 24 3D 53 50 24 2B 43 C8 |1TO39:SP$=SP$+C.|
00000BC0: 28 33 32 29 3A 4E C5 20 49 22 00 05 14 A2 00 98 |(32):N. I"......|
00000BD0: 32 2C 4C 4E AA 31 3B 22 53 53 24 3D 22 3B 51 24 |2,LN.1;"SS$=";Q$|
00000BE0: 3B 51 24 3B 22 3A 46 4F 52 49 3D 31 54 4F 38 30 |;Q$;":FORI=1TO80|
00000BF0: 3A 53 53 24 3D 53 53 24 2B 43 C8 28 31 36 30 29 |:SS$=SS$+C.(160)|
00000C00: 3A 4E C5 49 22 00 22 14 A4 00 4C 4E B2 4C 4E AA |:N.I"."...LN.LN.|
00000C10: 31 30 3A 98 32 2C 4C 4E 3B 22 3F 43 C8 28 31 34 |10:.2,LN;"?C.(14|
00000C20: 29 22 00 45 14 A6 00 98 32 2C 4C 4E AA 35 3B 22 |)".E....2,LN.5;"|
00000C30: 52 45 4D 20 20 20 20 20 20 20 20 20 20 20 20 20 |REM |
00000C40: 20 20 20 20 22 00 77 14 A8 00 98 32 2C 4C 4E AA | ".w....2,LN.|
00000C50: 37 3B 22 44 C9 20 46 24 28 4E 46 29 2C 47 24 28 |7;"D. F$(NF),G$(|
00000C60: 4E 46 29 2C 44 54 25 28 31 32 29 2C 47 53 25 28 |NF),DT%(12),GS%(|
00000C70: 4E 46 2B 4E 43 29 22 00 A7 14 AA 00 4C 4E B2 4C |NF+NC)".....LN.L|
00000C80: 4E AA 32 30 3A 98 32 2C 4C 4E AA 32 3B 22 46 4F |N.20:.2,LN.2;"FO|
00000C90: 52 49 3D 31 54 4F 31 32 3A 44 54 25 28 49 29 3D |RI=1TO12:DT%(I)=|
00000CA0: 33 31 3A 4E C5 49 22 00 E8 14 AE 00 98 32 2C 4C |31:N.I"......2,L|
00000CB0: 4E AA 34 3B 22 44 54 25 28 32 29 3D 32 39 3A 44 |N.4;"DT%(2)=29:D|
00000CC0: 54 25 28 34 29 3D 33 30 3A 44 54 25 28 36 29 3D |T%(4)=30:DT%(6)=|
00000CD0: 33 30 3A 44 54 25 28 39 29 3D 33 30 3A 44 54 25 |30:DT%(9)=30:DT%|
00000CE0: 28 31 31 29 3D 33 30 22 00 27 15 B2 00 98 32 2C |(11)=30".'....2,|
00000CF0: 22 33 32 30 30 30 3F 22 3B 51 24 3B 22 93 C4 49 |"32000?";Q$;"..I|
00000D00: 54 20 57 49 53 54 20 41 4C 4C 45 20 56 4F 4F 52 |T WIST ALLE VOOR|
00000D10: 47 41 41 4E 44 45 20 47 45 47 45 56 45 4E 53 2E |GAANDE GEGEVENS.|
00000D20: 20 20 20 22 3B 51 24 00 64 15 B4 00 98 32 2C 22 | ";Q$.d....2,"|
00000D30: 33 32 30 31 30 20 3F 3A 3F 22 3B 51 24 3B 22 D6 |32010 ?:?";Q$;".|
00000D40: 4F 4F 52 20 56 45 52 56 4F 4C 47 20 54 49 4B 20 |OOR VERVOLG TIK |
00000D50: 27 43 27 20 45 4E 20 44 41 4E 20 12 D2 C5 D4 D5 |'C' EN DAN .....|
00000D60: D2 CE 92 22 00 8C 15 B6 00 98 32 2C 22 33 32 30 |..."......2,"320|
00000D70: 32 30 58 25 3D 33 35 3A 59 25 3D 33 3A 4C 25 3D |20X%=35:Y%=3:L%=|
00000D80: 31 3A 47 4F D3 20 33 34 30 30 30 22 00 B5 15 B8 |1:GO. 34000"....|
00000D90: 00 98 32 2C 22 33 32 30 33 30 49 46 49 4E 24 3C |..2,"32030IFIN$<|
00000DA0: 3E 22 3B 51 24 3B 22 43 22 3B 51 24 3B 22 20 54 |>";Q$;"C";Q$;" T|
00000DB0: 48 C5 39 30 22 00 E2 15 BA 00 98 32 2C 22 33 32 |H.90"......2,"32|
00000DC0: 30 34 30 3F 3A 3F 22 3B 51 24 3B 22 C4 49 54 20 |040?:?";Q$;".IT |
00000DD0: 44 55 55 52 54 20 57 45 4C 20 45 56 45 4E 22 3B |DUURT WEL EVEN";|
00000DE0: 51 24 00 12 16 BC 00 98 32 2C 22 33 32 30 35 30 |Q$......2,"32050|
00000DF0: 43 4C CF 32 3A 43 4C CF 33 3A 43 4C CF 34 3A 50 |CL.2:CL.3:CL.4:P|
00000E00: D2 31 35 2C 22 51 24 22 53 30 3A 22 47 44 24 3B |.15,"Q$"S0:"GD$;|
00000E10: 51 24 00 46 16 BE 00 98 32 2C 22 33 32 30 35 31 |Q$.F....2,"32051|
00000E20: 4F D0 32 2C 38 2C 32 2C 22 3B 51 24 3B 22 30 3A |O.2,8,2,";Q$;"0:|
00000E30: 22 3B 47 44 24 3B 22 2C 4C 2C 22 51 24 3B 22 2B |";GD$;",L,"Q$;"+|
00000E40: 43 C8 28 35 29 22 00 80 16 C0 00 98 32 2C 22 33 |C.(5)"......2,"3|
00000E50: 32 30 35 35 50 D2 32 2C 53 54 52 24 28 30 29 3A |2055P.2,STR$(0):|
00000E60: 50 D2 32 2C 53 54 52 24 28 30 29 3A 50 D2 32 2C |P.2,STR$(0):P.2,|
00000E70: 53 54 52 24 28 22 3B 4E 46 AA 4E 53 3B 22 29 22 |STR$(";NF.NS;")"|
00000E80: 00 AD 16 C2 00 98 32 2C 22 33 32 30 36 30 46 4F |......2,"32060FO|
00000E90: 52 49 3D 31 54 4F 22 3B 4D 53 3B 22 3A 50 D2 32 |RI=1TO";MS;":P.2|
00000EA0: 2C 53 54 52 24 28 30 29 3A 4E C5 49 22 00 C0 16 |,STR$(0):N.I"...|
00000EB0: C4 00 98 32 2C 22 33 32 30 36 35 43 4C CF 32 22 |...2,"32065CL.2"|
00000EC0: 00 E5 16 C6 00 98 32 2C 22 33 32 30 37 30 4E 52 |......2,"32070NR|
00000ED0: 3D 30 3A 46 53 3D 4E 52 3A 46 4F 52 49 3D 30 54 |=0:FS=NR:FORI=0T|
00000EE0: 4F 22 3B 51 44 00 20 17 C8 00 98 32 2C 22 33 32 |O";QD. ....2,"32|
00000EF0: 30 38 30 20 4E 4D 24 3D 22 3B 51 24 3B 50 24 3B |080 NM$=";Q$;P$;|
00000F00: 51 24 3B 22 2B 52 49 C7 28 53 54 52 24 28 49 29 |Q$;"+RI.(STR$(I)|
00000F10: 2C 31 29 2B 22 3B 51 24 3B 22 2F 44 22 3B 51 24 |,1)+";Q$;"/D";Q$|
00000F20: 00 52 17 CA 00 98 32 2C 22 33 32 30 38 35 50 D2 |.R....2,"32085P.|
00000F30: 31 35 2C 22 51 24 22 53 30 3A 22 3B 51 24 3B 22 |15,"Q$"S0:";Q$;"|
00000F40: 2B 28 4E 4D 24 29 3A 4E C5 20 49 3A 52 45 4D 20 |+(NM$):N. I:REM |
00000F50: 2A 22 00 8C 17 CC 00 98 32 2C 22 33 32 30 39 30 |*"......2,"32090|
00000F60: 4F D0 34 2C 38 2C 34 2C 22 3B 51 24 3B 22 30 3A |O.4,8,4,";Q$;"0:|
00000F70: 22 3B 50 24 3B 22 30 2F 44 2C 4C 2C 22 3B 51 24 |";P$;"0/D,L,";Q$|
00000F80: 3B 22 2B 43 C8 28 38 30 29 3A 22 3B 00 AE 17 CE |;"+C.(80):";....|
00000F90: 00 98 32 2C 22 4A 4E 3D 49 4E 54 28 28 22 52 53 |..2,"JN=INT(("RS|
00000FA0: 22 2A 22 4D 53 22 29 2F 38 30 29 2B 33 22 00 EC |"*"MS")/80)+3"..|
00000FB0: 17 D0 00 98 32 2C 22 33 32 30 39 35 46 4F 52 58 |....2,"32095FORX|
00000FC0: 58 3D 31 54 4F 4A 4E 3A 50 D2 34 2C 43 C8 28 32 |X=1TOJN:P.4,C.(2|
00000FD0: 35 35 29 3A 4E C5 3A 43 4C CF 34 3A 58 58 3D 46 |55):N.:CL.4:XX=F|
00000FE0: 52 45 28 58 58 29 3A 58 58 3D 30 3A 00 FB 17 D2 |RE(XX):XX=0:....|
00000FF0: 00 8B 4E 47 B3 B2 30 A7 32 32 32 00 31 18 D4 00 |..NG..0.222.1...|
00001000: 98 32 2C 22 33 32 31 30 30 4F D0 33 2C 38 2C 33 |.2,"32100O.3,8,3|
00001010: 2C 22 3B 51 24 3B 22 30 3A 22 3B 47 46 24 3B 22 |,";Q$;"0:";GF$;"|
00001020: 2C 4C 2C 22 3B 51 24 3B 22 2B 43 C8 28 31 35 29 |,L,";Q$;"+C.(15)|
00001030: 22 00 72 18 D6 00 98 32 2C 22 33 32 31 31 30 46 |".r....2,"32110F|
00001040: 4F 52 49 3D 31 54 4F 4E 47 22 3A 98 32 2C 22 33 |ORI=1TONG":.2,"3|
00001050: 32 31 32 30 50 D2 33 2C 53 54 52 24 28 30 29 22 |2120P.3,STR$(0)"|
00001060: 3A 98 32 2C 22 33 32 31 33 30 47 4C 28 49 29 3D |:.2,"32130GL(I)=|
00001070: 30 22 00 8B 18 D8 00 98 32 2C 22 33 32 31 32 30 |0"......2,"32120|
00001080: 20 46 4F 52 49 3D 31 54 4F 4E 47 00 A1 18 DA 00 | FORI=1TONG.....|
00001090: 98 32 2C 22 33 32 31 33 30 47 4C 28 49 29 3D 30 |.2,"32130GL(I)=0|
000010A0: 22 00 D1 18 DC 00 98 32 2C 22 33 32 31 34 30 4E |"......2,"32140N|
000010B0: C5 49 22 3A 98 32 2C 22 33 32 31 35 30 43 4C CF |.I":.2,"32150CL.|
000010C0: 32 3A 43 4C CF 33 3A 43 4C CF 34 3A 47 CF 39 30 |2:CL.3:CL.4:G.90|
000010D0: 22 00 F8 18 DE 00 98 32 2C 22 33 32 31 35 30 43 |"......2,"32150C|
000010E0: 4C CF 32 3A 43 4C CF 33 3A 43 4C CF 34 3A 50 51 |L.2:CL.3:CL.4:PQ|
000010F0: 3D 31 3A 47 CF 39 30 22 00 32 19 E0 00 98 32 2C |=1:G.90".2....2,|
00001100: 22 36 30 4F D0 34 2C 38 2C 34 2C 22 3B 51 24 3B |"60O.4,8,4,";Q$;|
00001110: 22 30 3A 22 3B 50 24 3B 22 30 2F 44 2C 4C 2C 22 |"0:";P$;"0/D,L,"|
00001120: 3B 51 24 3B 22 2B 43 C8 28 38 30 29 3A 43 4C CF |;Q$;"+C.(80):CL.|
00001130: 34 22 00 6A 19 E2 00 98 32 2C 22 36 32 20 4F D0 |4".j....2,"62 O.|
00001140: 32 2C 38 2C 32 2C 22 3B 51 24 3B 22 30 3A 22 3B |2,8,2,";Q$;"0:";|
00001150: 47 44 24 3B 22 2C 4C 2C 22 3B 51 24 3B 22 2B 43 |GD$;",L,";Q$;"+C|
00001160: C8 28 35 29 3A 43 4C CF 32 22 00 79 19 E4 00 8B |.(5):CL.2".y....|
00001170: 4E 47 B3 B2 30 A7 32 33 34 00 B0 19 E6 00 98 32 |NG..0.234......2|
00001180: 2C 22 36 35 4F D0 33 2C 38 2C 33 2C 22 3B 51 24 |,"65O.3,8,3,";Q$|
00001190: 3B 22 30 3A 22 3B 47 46 24 3B 22 2C 4C 2C 22 51 |;"0:";GF$;",L,"Q|
000011A0: 24 3B 22 2B 43 C8 28 31 35 29 3A 43 4C CF 33 22 |$;"+C.(15):CL.3"|
000011B0: 00 E5 19 E8 00 98 32 2C 22 36 38 47 4F D3 31 33 |......2,"68GO.13|
000011C0: 30 30 30 3A 52 45 4D 20 47 45 54 20 47 4C 4F 42 |000:REM GET GLOB|
000011D0: 41 4C 53 20 46 52 4F 4D 20 2F 47 4C 42 20 46 49 |ALS FROM /GLB FI|
000011E0: 4C 45 22 20 3A 00 17 1A EA 00 98 32 2C 22 37 30 |LE" :......2,"70|
000011F0: 4F D0 32 2C 38 2C 32 2C 22 3B 51 24 3B 22 30 3A |O.2,8,2,";Q$;"0:|
00001200: 22 3B 47 44 24 3B 22 2C 4C 2C 22 3B 51 24 3B 22 |";GD$;",L,";Q$;"|
00001210: 2B 43 C8 28 35 29 22 00 4F 1A EC 00 98 32 2C 22 |+C.(5)".O....2,"|
00001220: 37 31 49 CE 32 2C 4E 52 24 3A 4E 52 3D 56 41 4C |71I.2,NR$:NR=VAL|
00001230: 28 4E 52 24 29 3A 49 CE 32 2C 46 53 24 3A 46 53 |(NR$):I.2,FS$:FS|
00001240: 3D 56 41 4C 28 46 53 24 29 3A 43 4C CF 32 22 00 |=VAL(FS$):CL.2".|
00001250: 5F 1A EE 00 4C 4E B2 39 30 3A 53 4C B2 4C 4E 00 |_...LN.90:SL.LN.|
00001260: 8D 1A F5 00 98 32 2C 22 31 30 30 3F 54 C1 31 30 |.....2,"100?T.10|
00001270: 29 22 51 24 22 50 52 4F 47 52 41 4D 2D 4F 4E 54 |)"Q$"PROGRAM-ONT|
00001280: 57 45 52 50 20 56 41 4E 20 22 3B 51 24 00 BC 1A |WERP VAN ";Q$...|
00001290: F6 00 98 32 2C 22 31 30 31 3F 54 C1 22 3B B5 28 |...2,"101?T.";.(|
000012A0: 28 33 39 AB C3 28 4E 41 24 29 29 AD 32 29 3B 22 |(39..(NA$)).2);"|
000012B0: 29 22 3B 51 24 3B 4E 41 24 3B 51 24 00 F3 1A F8 |)";Q$;NA$;Q$....|
000012C0: 00 98 32 2C 22 31 31 30 3F 3A 3F 54 C1 32 30 2D |..2,"110?:?T.20-|
000012D0: 28 22 3B C3 28 54 54 24 29 3B 22 2F 32 29 29 3B |(";.(TT$);"/2));|
000012E0: 22 3B 51 24 3B 22 12 22 3B 54 54 24 3B 22 92 22 |";Q$;".";TT$;"."|
000012F0: 3B 51 24 00 06 1B 14 01 8B 4E 47 B2 30 A7 98 32 |;Q$......NG.0..2|
00001300: 2C 22 31 39 35 22 00 19 1B 36 01 8B 4E 47 B2 30 |,"195"...6..NG.0|
00001310: A7 98 32 2C 22 33 30 35 22 00 4E 1B 3E 01 98 32 |..2,"305".N.>..2|
00001320: 2C 22 33 31 38 4F D0 32 2C 38 2C 32 2C 22 3B 51 |,"318O.2,8,2,";Q|
00001330: 24 3B 22 30 3A 22 3B 47 44 24 3B 51 24 3A 98 32 |$;"0:";GD$;Q$:.2|
00001340: 2C 22 33 32 32 43 4C CF 32 3A 52 45 D4 22 00 62 |,"322CL.2:RE.".b|
00001350: 1B 58 01 4C 4E B2 33 35 30 3A 58 B2 41 3A 99 22 |.X.LN.350:X.A:."|
00001360: 93 22 00 8A 1B 5A 01 99 C8 28 59 24 2C 33 29 22 |."...Z...(Y$,3)"|
00001370: D7 45 4C 4B 20 49 53 20 55 57 20 27 53 4C 45 55 |.ELK IS UW 'SLEU|
00001380: 54 45 4C 2D 56 45 4C 44 27 22 00 AA 1B 5C 01 99 |TEL-VELD'"...\..|
00001390: 22 28 D4 59 50 45 20 31 20 2D 22 3B 4E 46 3B 22 |"(.YPE 1 -";NF;"|
000013A0: 4F 46 20 4C 49 53 54 29 22 3B 00 D3 1B 5E 01 58 |OF LIST)";...^.X|
000013B0: 25 B2 31 39 AA C3 28 C4 28 4E 46 29 29 3A 59 25 |%.19..(.(NF)):Y%|
000013C0: B2 C2 28 32 31 34 29 AA 31 3A 4C 25 B2 34 3A 8D |..(214).1:L%.4:.|
000013D0: 38 34 32 00 ED 1B 60 01 8B 49 4E 24 B2 22 4C 49 |842...`..IN$."LI|
000013E0: 53 54 22 A7 8D 37 34 30 3A 89 33 34 34 00 26 1C |ST"..740:.344.&.|
000013F0: 62 01 4B 46 B2 C5 28 49 4E 24 29 3A 8B 4B 46 B3 |b.KF..(IN$):.KF.|
00001400: 31 B0 4B 46 B1 4E 46 A7 99 22 C4 49 54 20 56 45 |1.KF.NF..".IT VE|
00001410: 4C 44 20 42 45 53 54 41 41 54 20 4E 49 45 54 2E |LD BESTAAT NIET.|
00001420: 22 3A 89 33 34 36 00 30 1C 7C 01 89 31 30 30 30 |":.346.0.|..1000|
00001430: 00 49 1C 7E 01 86 20 46 49 25 28 5A 46 29 3A 8B |.I.~.. FI%(ZF):.|
00001440: 4E 47 B3 B2 30 A7 34 33 38 00 72 1C 82 01 4F 46 |NG..0.438.r...OF|
00001450: 46 25 B2 34 3A 4E 46 24 B2 CA 28 C4 28 4E 46 29 |F%.4:NF$..(.(NF)|
00001460: 2C 32 29 3A 4E 43 24 B2 CA 28 C4 28 4E 43 29 2C |,2):NC$..(.(NC),|
00001470: 32 29 00 7F 1C 88 01 81 4A 4B B2 31 A4 4E 47 00 |2)......JK.1.NG.|
00001480: BF 1C 8A 01 99 22 93 C7 45 45 46 20 41 41 4E 20 |....."..EEF AAN |
00001490: 57 45 4C 4B 20 56 45 4C 44 20 4D 4F 45 54 20 57 |WELK VELD MOET W|
000014A0: 4F 52 44 45 4E 20 47 45 54 4F 54 41 2D 20 20 4C |ORDEN GETOTA- L|
000014B0: 49 53 45 45 52 44 20 49 4E 20 44 49 54 22 3B 00 |ISEERD IN DIT";.|
000014C0: ED 1C 8C 01 99 22 20 47 45 4E 45 52 41 41 4C 54 |....." GENERAALT|
000014D0: 4F 54 41 41 4C 20 56 45 4C 44 2E 22 3A 99 22 4B |OTAAL VELD.":."K|
000014E0: 45 31 20 2D 20 4B 45 22 3B 4E 46 24 3B 00 0A 1D |E1 - KE";NF$;...|
000014F0: 8E 01 8B 4E 43 B1 30 A7 99 22 2C 20 50 43 31 20 |...NC.0..", PC1 |
00001500: 2D 20 50 43 22 3B 4E 43 24 3B 00 1D 1D 90 01 99 |- PC";NC$;......|
00001510: 20 22 20 4F 46 20 27 4C 49 53 54 27 22 00 3C 1D | " OF 'LIST'".<.|
00001520: 92 01 99 C8 28 59 24 2C 4F 46 46 25 AA 31 29 3B |....(Y$,OFF%.1);|
00001530: 47 50 24 28 4A 4B 29 3B 22 3A 22 3B 00 64 1D 94 |GP$(JK);":";.d..|
00001540: 01 59 25 B2 4F 46 46 25 AA 31 3A 58 25 B2 C3 28 |.Y%.OFF%.1:X%..(|
00001550: 47 50 24 28 4A 4B 29 29 AA 32 3A 4C 25 B2 37 3A |GP$(JK)).2:L%.7:|
00001560: 8D 38 34 32 00 7E 1D 96 01 8B 49 4E 24 B2 22 4C |.842.~....IN$."L|
00001570: 49 53 54 22 A7 8D 37 30 30 3A 89 33 39 34 00 92 |IST"..700:.394..|
00001580: 1D 98 01 53 42 25 B2 C5 28 CA 28 49 4E 24 2C 33 |...SB%..(.(IN$,3|
00001590: 29 29 00 A3 1D 9A 01 53 52 24 B2 C8 28 49 4E 24 |)).....SR$..(IN$|
000015A0: 2C 32 29 00 BA 1D 9C 01 99 20 C8 28 59 24 2C 4F |,2)...... .(Y$,O|
000015B0: 46 46 25 29 3B A3 33 37 29 3B 00 DA 1D 9E 01 8B |FF%);.37);......|
000015C0: 53 52 24 B2 22 4B 45 22 AF 53 42 25 B1 30 AF 53 |SR$."KE".SB%.0.S|
000015D0: 42 25 B3 B2 4E 46 A7 34 32 32 00 FA 1D A0 01 8B |B%..NF.422......|
000015E0: 53 52 24 B2 22 50 43 22 AF 53 42 25 B1 30 AF 53 |SR$."PC".SB%.0.S|
000015F0: 42 25 B3 B2 4E 43 A7 34 32 37 00 21 1E A2 01 99 |B%..NC.427.!....|
00001600: C8 28 59 24 2C 32 32 29 22 2A 20 4F 4E 4A 55 49 |.(Y$,22)"* ONJUI|
00001610: 53 54 45 20 57 41 41 52 44 45 20 2A 20 20 20 20 |STE WAARDE * |
00001620: 22 00 2A 1E A4 01 89 34 30 32 00 52 1E A6 01 50 |".*....402.R...P|
00001630: 25 B2 30 3A 8B 54 24 28 53 42 25 29 B3 B1 22 44 |%.0:.T$(SB%).."D|
00001640: 22 AF 54 24 28 53 42 25 29 B3 B1 22 41 22 A7 34 |".T$(SB%).."A".4|
00001650: 32 38 00 7D 1E A8 01 99 C8 28 59 24 2C 32 32 29 |28.}.....(Y$,22)|
00001660: 22 CD 4F 45 54 20 5A 49 4A 4E 20 47 45 4C 44 20 |".OET ZIJN GELD |
00001670: 4F 46 20 4E 55 4D 45 52 49 45 4B 22 3B 00 86 1E |OF NUMERIEK";...|
00001680: AA 01 89 34 30 32 00 91 1E AB 01 50 25 B2 4E 46 |...402.....P%.NF|
00001690: 3A 00 D0 1E AC 01 99 C8 28 59 24 2C 39 29 22 C9 |:.......(Y$,9)".|
000016A0: 53 20 44 49 54 20 43 4F 52 52 45 43 54 3F 20 20 |S DIT CORRECT? |
000016B0: 28 4A 2F 4E 29 22 3A 59 25 B2 C2 28 32 31 34 29 |(J/N)":Y%..(214)|
000016C0: 3A 58 25 B2 32 33 3A 4C 25 B2 31 3A 8D 38 34 32 |:X%.23:L%.1:.842|
000016D0: 00 ED 1E AD 01 8B 20 49 4E 24 B3 B1 22 4A 22 AF |...... IN$.."J".|
000016E0: 49 4E 24 B3 B1 22 4E 22 A7 20 34 32 38 00 FE 1E |IN$.."N". 428...|
000016F0: AE 01 8B 49 4E 24 B2 22 4E 22 A7 33 39 34 00 41 |...IN$."N".394.A|
00001700: 1F AF 01 99 20 22 20 20 20 20 20 20 20 20 20 20 |.... " |
00001710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001730: 22 3B 3A 46 49 25 28 4A 4B 29 B2 53 42 25 AA 50 |";:FI%(JK).SB%.P|
00001740: 25 00 49 1F B1 01 82 4A 4B 00 59 1F B2 01 8B 4E |%.I....JK.Y....N|
00001750: 47 B3 B2 30 A7 89 34 33 38 00 84 1F B3 01 98 32 |G..0..438......2|
00001760: 2C 22 34 30 46 4F 52 49 3D 31 54 4F 4E 47 3A 52 |,"40FORI=1TONG:R|
00001770: C5 47 4B 25 3A 47 53 25 28 47 4B 25 29 3D 49 3A |.GK%:GS%(GK%)=I:|
00001780: 4E C5 49 22 00 9A 1F B4 01 4F 4C B2 34 32 3A 55 |N.I".....OL.42:U|
00001790: 4C 25 B2 4E 47 3A 8D 36 34 34 00 A0 1F B6 01 8E |L%.NG:.644......|
000017A0: 00 AE 1F B8 01 8B 4E 43 B2 30 A7 36 33 36 00 B9 |......NC.0.636..|
000017B0: 1F BA 01 99 22 93 22 3B 3A 00 E8 1F BC 01 99 22 |....".";:......"|
000017C0: CE 55 20 4D 4F 45 54 20 55 20 44 45 20 46 4F 52 |.U MOET U DE FOR|
000017D0: 4D 55 4C 45 53 20 49 4E 56 4F 45 52 45 4E 20 56 |MULES INVOEREN V|
000017E0: 4F 4F 52 20 22 3B 4E 43 00 15 20 BD 01 8B 4E 43 |OOR ";NC.. ...NC|
000017F0: B1 31 B0 4E 43 B2 30 A7 99 22 43 4F 4D 50 55 54 |.1.NC.0.."COMPUT|
00001800: 45 52 2D 42 45 52 45 4B 45 4E 44 45 20 56 45 4C |ER-BEREKENDE VEL|
00001810: 44 45 4E 2E 22 00 3E 20 BE 01 8B 4E 43 B2 31 A7 |DEN.".> ...NC.1.|
00001820: 99 22 43 4F 4D 50 55 54 45 52 2D 42 45 52 45 4B |."COMPUTER-BEREK|
00001830: 45 4E 44 20 56 45 4C 44 2E 20 20 20 20 22 00 44 |END VELD. ".D|
00001840: 20 C0 01 99 00 71 20 C2 01 99 22 D5 20 4B 55 4E | ....q ...". KUN|
00001850: 54 20 56 45 52 57 49 4A 5A 45 4E 20 4E 41 41 52 |T VERWIJZEN NAAR|
00001860: 20 45 45 4E 20 54 4F 45 54 53 45 4E 42 4F 52 44 | EEN TOETSENBORD|
00001870: 2D 00 9B 20 C3 01 99 22 49 4E 56 4F 45 52 56 45 |-.. ..."INVOERVE|
00001880: 4C 44 20 4D 45 54 20 27 4B 45 27 20 47 45 56 4F |LD MET 'KE' GEVO|
00001890: 4C 47 44 20 44 4F 4F 52 20 27 54 00 C9 20 C4 01 |LGD DOOR 'T.. ..|
000018A0: 99 22 56 45 4C 44 4E 55 4D 4D 45 52 2E 20 C2 49 |."VELDNUMMER. .I|
000018B0: 4A 56 4F 4F 52 42 45 45 4C 44 20 43 4F 4D 50 55 |JVOORBEELD COMPU|
000018C0: 54 45 52 42 45 52 45 4B 2D 00 EC 20 C5 01 99 22 |TERBEREK-.. ..."|
000018D0: 45 4E 44 20 56 45 4C 44 20 23 35 20 4D 4F 45 54 |END VELD #5 MOET|
000018E0: 20 5A 49 4A 4E 20 27 4B 45 35 27 22 00 17 21 C6 | ZIJN 'KE5'"..!.|
000018F0: 01 99 22 D5 20 4B 55 4E 54 20 4F 4F 4B 20 56 45 |..". KUNT OOK VE|
00001900: 52 57 49 4A 5A 45 4E 20 4E 41 41 52 20 45 45 4E |RWIJZEN NAAR EEN|
00001910: 20 45 45 52 44 45 52 00 44 21 C7 01 99 22 47 45 | EERDER.D!..."GE|
00001920: 44 45 46 49 4E 49 45 45 52 44 20 43 4F 4D 50 55 |DEFINIEERD COMPU|
00001930: 54 45 52 42 45 52 45 4B 45 4E 44 20 56 45 4C 44 |TERBEREKEND VELD|
00001940: 20 4D 45 54 00 6C 21 C8 01 99 22 27 50 43 27 20 | MET.l!..."'PC' |
00001950: 47 45 56 4F 4C 47 44 20 44 4F 4F 52 20 48 45 54 |GEVOLGD DOOR HET|
00001960: 20 56 45 4C 44 4E 55 4D 4D 45 52 2E 00 98 21 CA | VELDNUMMER...!.|
00001970: 01 99 22 C2 49 4A 56 4F 4F 52 42 45 45 4C 44 20 |..".IJVOORBEELD |
00001980: 43 4F 4D 50 55 54 45 52 42 45 52 45 4B 45 4E 44 |COMPUTERBEREKEND|
00001990: 20 56 45 4C 44 20 23 36 00 C5 21 CC 01 99 22 57 | VELD #6..!..."W|
000019A0: 4F 52 44 54 20 47 45 52 45 4C 41 54 45 45 52 44 |ORDT GERELATEERD|
000019B0: 20 41 41 4E 20 43 4F 4D 50 55 54 45 52 42 45 52 | AAN COMPUTERBER|
000019C0: 45 4B 45 4E 44 00 D9 21 CE 01 99 22 23 35 20 4D |EKEND..!..."#5 M|
000019D0: 45 54 20 27 50 43 35 27 2E 00 08 22 D0 01 99 3A |ET 'PC5'..."...:|
000019E0: 99 22 45 45 4E 20 47 45 4E 45 52 41 41 4C 54 4F |."EEN GENERAALTO|
000019F0: 54 41 41 4C 20 56 45 4C 44 20 57 4F 52 44 54 20 |TAAL VELD WORDT |
00001A00: 47 45 42 52 55 49 4B 54 00 36 22 D2 01 99 22 56 |GEBRUIKT.6"..."V|
00001A10: 4F 4F 52 20 48 45 54 20 54 4F 54 41 4C 49 53 45 |OOR HET TOTALISE|
00001A20: 52 45 4E 20 56 41 4E 20 54 4F 45 54 53 45 4E 42 |REN VAN TOETSENB|
00001A30: 4F 52 44 49 4E 2D 00 62 22 D3 01 99 22 56 4F 45 |ORDIN-.b"..."VOE|
00001A40: 52 56 45 4C 44 45 4E 20 4F 46 20 56 41 4E 20 45 |RVELDEN OF VAN E|
00001A50: 45 52 44 45 52 20 47 45 44 45 46 49 4E 45 45 52 |ERDER GEDEFINEER|
00001A60: 44 45 00 8E 22 D4 01 99 22 43 4F 4D 50 55 54 45 |DE.."..."COMPUTE|
00001A70: 52 42 45 52 45 4B 45 4E 44 45 20 56 45 4C 44 45 |RBEREKENDE VELDE|
00001A80: 4E 2E 20 D5 20 47 45 45 46 54 20 45 45 4E 00 BF |N. . GEEFT EEN..|
00001A90: 22 D6 01 99 22 47 45 4E 45 52 41 41 4C 54 4F 54 |"..."GENERAALTOT|
00001AA0: 41 41 4C 20 56 45 4C 44 20 41 41 4E 20 4D 45 54 |AAL VELD AAN MET|
00001AB0: 20 27 47 54 27 20 47 45 56 4F 4C 47 44 22 3B 00 | 'GT' GEVOLGD";.|
00001AC0: DA 22 D8 01 99 22 44 4F 4F 52 20 48 45 54 20 56 |."..."DOOR HET V|
00001AD0: 45 4C 44 4E 55 4D 4D 45 52 2E 00 04 23 DA 01 99 |ELDNUMMER...#...|
00001AE0: C8 28 59 24 2C 32 34 29 22 54 4F 45 54 53 20 12 |.(Y$,24)"TOETS .|
00001AF0: D2 C5 D4 D5 D2 CE 92 20 56 4F 4F 52 20 56 45 52 |....... VOOR VER|
00001B00: 56 4F 4C 47 00 1D 23 DC 01 A1 41 41 24 3A 8B 41 |VOLG..#...AA$:.A|
00001B10: 41 24 B3 B1 C7 28 31 33 29 A7 34 37 36 00 4C 23 |A$...(13).476.L#|
00001B20: DE 01 99 22 93 42 49 4A 56 4F 4F 52 42 45 45 4C |...".BIJVOORBEEL|
00001B30: 44 20 48 45 54 20 54 57 45 45 44 45 20 47 45 4E |D HET TWEEDE GEN|
00001B40: 45 52 41 41 4C 54 4F 54 41 41 4C 22 00 75 23 E0 |ERAALTOTAAL".u#.|
00001B50: 01 99 22 56 45 4C 44 20 57 4F 52 44 54 20 41 41 |.."VELD WORDT AA|
00001B60: 4E 47 45 47 45 56 45 4E 20 4D 45 54 20 27 47 54 |NGEGEVEN MET 'GT|
00001B70: 32 27 22 3A 99 00 BF 23 E2 01 99 22 C4 45 20 43 |2'":...#...".E C|
00001B80: 4F 4D 50 4C 45 54 45 20 4C 49 4A 53 54 20 56 41 |OMPLETE LIJST VA|
00001B90: 4E 20 56 45 4C 44 45 4E 20 57 4F 52 44 54 20 47 |N VELDEN WORDT G|
00001BA0: 45 2D 20 20 54 4F 4F 4E 44 20 41 4C 53 20 55 20 |E- TOOND ALS U |
00001BB0: 27 4C 49 53 54 27 20 49 4E 54 49 4B 54 11 2E 00 |'LIST' INTIKT...|
00001BC0: F0 23 E3 01 99 22 D5 20 4B 55 4E 54 20 4F 4F 4B |.#...". KUNT OOK|
00001BD0: 20 45 45 4E 20 56 45 4C 44 20 41 41 4E 20 5A 49 | EEN VELD AAN ZI|
00001BE0: 43 48 5A 45 4C 46 20 52 45 46 45 52 45 2D 22 3B |CHZELF REFERE-";|
00001BF0: 00 1E 24 E4 01 99 22 52 45 4E 2C 20 42 49 4A 56 |..$..."REN, BIJV|
00001C00: 4F 4F 52 42 45 45 4C 44 20 56 45 4C 44 45 4E 20 |OORBEELD VELDEN |
00001C10: 44 49 45 20 48 55 4E 20 56 4F 52 49 47 45 00 4F |DIE HUN VORIGE.O|
00001C20: 24 E6 01 99 22 57 41 41 52 44 45 20 47 45 42 52 |$..."WAARDE GEBR|
00001C30: 55 49 4B 45 4E 20 56 4F 4F 52 20 44 45 20 4E 49 |UIKEN VOOR DE NI|
00001C40: 45 55 57 45 20 42 45 52 45 4B 45 4E 2D 22 3B 00 |EUWE BEREKEN-";.|
00001C50: 80 24 E8 01 99 22 49 4E 47 2E 20 D5 20 4D 41 52 |.$..."ING. . MAR|
00001C60: 4B 45 45 52 54 20 48 45 54 20 56 45 4C 44 20 4F |KEERT HET VELD O|
00001C70: 50 20 44 45 20 47 45 42 52 55 49 4B 45 2D 22 3B |P DE GEBRUIKE-";|
00001C80: 00 B1 24 EA 01 99 22 4C 49 4A 4B 45 20 4D 41 4E |..$..."LIJKE MAN|
00001C90: 49 45 52 2E 20 C2 49 4A 56 4F 4F 52 42 45 45 4C |IER. .IJVOORBEEL|
00001CA0: 44 20 4F 4D 20 48 45 54 20 45 45 52 53 54 45 22 |D OM HET EERSTE"|
00001CB0: 3B 00 E2 24 EC 01 99 22 43 4F 4D 50 55 54 45 52 |;..$..."COMPUTER|
00001CC0: 42 45 52 45 4B 45 4E 44 45 20 56 45 4C 44 20 4D |BEREKENDE VELD M|
00001CD0: 45 54 20 31 20 4F 50 20 54 45 20 48 4F 47 45 4E |ET 1 OP TE HOGEN|
00001CE0: 22 3B 00 11 25 EE 01 99 22 42 49 4A 20 45 4C 4B |";..%..."BIJ ELK|
00001CF0: 45 20 4E 49 45 55 57 45 20 4D 55 54 41 54 49 45 |E NIEUWE MUTATIE|
00001D00: 20 54 49 4B 54 20 55 20 50 43 31 3D 50 43 31 2B | TIKT U PC1=PC1+|
00001D10: 31 00 3D 25 F0 01 99 22 C4 45 5A 45 20 5A 2E 47 |1.=%...".EZE Z.G|
00001D20: 2E 20 27 55 50 44 41 54 49 4E 47 27 20 56 45 4C |. 'UPDATING' VEL|
00001D30: 44 45 4E 20 57 4F 52 44 45 4E 20 4F 50 00 66 25 |DEN WORDEN OP.f%|
00001D40: F2 01 99 22 44 49 53 4B 20 4F 50 47 45 53 4C 41 |..."DISK OPGESLA|
00001D50: 47 45 4E 20 45 4E 20 56 45 52 4D 49 4E 44 45 52 |GEN EN VERMINDER|
00001D60: 45 4E 20 48 45 54 00 93 25 F4 01 99 22 4D 4F 47 |EN HET..%..."MOG|
00001D70: 45 4C 49 4A 4B 45 20 41 41 4E 54 41 4C 20 52 45 |ELIJKE AANTAL RE|
00001D80: 43 4F 52 44 53 2E 20 C4 41 41 52 4F 4D 20 57 4F |CORDS. .AAROM WO|
00001D90: 52 44 54 00 BF 25 F5 01 99 22 4E 4F 47 4D 41 41 |RDT..%..."NOGMAA|
00001DA0: 4C 53 20 47 45 56 52 41 41 47 44 20 44 45 5A 45 |LS GEVRAAGD DEZE|
00001DB0: 20 54 45 20 42 45 56 45 53 54 49 47 45 4E 2E 00 | TE BEVESTIGEN..|
00001DC0: EC 25 F6 01 99 C8 28 59 24 2C 32 34 29 3B 22 D4 |.%....(Y$,24);".|
00001DD0: 4F 45 54 53 20 12 D2 C5 D4 D5 D2 CE 92 20 56 4F |OETS ........ VO|
00001DE0: 4F 52 20 56 45 52 56 4F 4C 47 22 3B 00 05 26 F8 |OR VERVOLG";..&.|
00001DF0: 01 A1 41 41 24 3A 8B 41 41 24 B3 B1 C7 28 31 33 |..AA$:.AA$...(13|
00001E00: 29 A7 35 30 34 00 0E 26 FA 01 99 22 93 22 00 3C |).504..&...".".<|
00001E10: 26 FC 01 99 22 D5 20 4B 55 4E 54 20 44 45 20 54 |&...". KUNT DE T|
00001E20: 45 4B 45 4E 53 20 2B 2C 2D 2C 2A 2C 2F 20 47 45 |EKENS +,-,*,/ GE|
00001E30: 42 52 55 49 4B 45 4E 20 56 4F 4F 52 00 64 26 FD |BRUIKEN VOOR.d&.|
00001E40: 01 99 22 44 45 20 56 49 45 52 20 52 45 4B 45 4E |.."DE VIER REKEN|
00001E50: 4B 55 4E 44 49 47 45 20 42 45 57 45 52 4B 49 4E |KUNDIGE BEWERKIN|
00001E60: 47 45 4E 2E 00 95 26 FE 01 99 22 C9 4E 44 49 45 |GEN...&...".NDIE|
00001E70: 4E 20 4E 4F 44 49 47 20 4B 55 4E 54 20 55 20 48 |N NODIG KUNT U H|
00001E80: 41 41 4B 4A 45 53 20 47 45 42 52 55 49 4B 45 4E |AAKJES GEBRUIKEN|
00001E90: 20 49 4E 22 3B 00 BE 26 00 02 99 22 41 4C 4C 45 | IN";..&..."ALLE|
00001EA0: 20 27 47 45 4C 44 27 20 45 4E 20 27 4E 55 4D 45 | 'GELD' EN 'NUME|
00001EB0: 52 49 45 4B 45 27 20 56 45 4C 44 45 4E 2E 00 DE |RIEKE' VELDEN...|
00001EC0: 26 02 02 99 22 11 C5 45 4E 20 54 59 50 49 53 43 |&..."..EN TYPISC|
00001ED0: 48 45 20 46 4F 52 4D 55 4C 45 20 49 53 3A 00 FC |HE FORMULE IS:..|
00001EE0: 26 04 02 99 22 11 12 27 50 43 32 3D 28 4B 45 33 |&..."..'PC2=(KE3|
00001EF0: 2B 50 43 31 29 2F 47 54 32 27 92 22 00 29 27 06 |+PC1)/GT2'.".)'.|
00001F00: 02 99 C8 28 59 24 2C 32 34 29 3B 22 D4 4F 45 54 |...(Y$,24);".OET|
00001F10: 53 20 12 D2 C5 D4 D5 D2 CE 92 20 56 4F 4F 52 20 |S ........ VOOR |
00001F20: 56 45 52 56 4F 4C 47 22 3B 00 42 27 08 02 A1 41 |VERVOLG";.B'...A|
00001F30: 41 24 3A 8B 41 41 24 B3 B1 C7 28 31 33 29 A7 35 |A$:.AA$...(13).5|
00001F40: 32 30 00 54 27 0A 02 86 53 46 25 28 4E 43 29 3A |20.T'...SF%(NC):|
00001F50: 4E 53 B2 30 00 6E 27 0C 02 81 49 B2 31 A4 4E 43 |NS.0.n'...I.1.NC|
00001F60: 3A 53 49 24 B2 CA 28 C4 28 49 29 2C 32 29 00 9A |:SI$..(.(I),2)..|
00001F70: 27 0E 02 99 22 93 C3 4F 4D 50 55 54 45 52 42 45 |'..."..OMPUTERBE|
00001F80: 52 45 4B 45 4E 44 20 56 45 4C 44 20 23 22 3B 49 |REKEND VELD #";I|
00001F90: 3A 43 24 B2 43 50 24 28 49 29 00 C9 27 12 02 8B |:C$.CP$(I)..'...|
00001FA0: C9 28 43 24 2C 31 29 B2 22 20 22 AF C3 28 43 24 |.(C$,1)." "..(C$|
00001FB0: 29 B1 31 A7 43 24 B2 C8 28 43 24 2C C3 28 43 24 |).1.C$..(C$,.(C$|
00001FC0: 29 AB 31 29 3A 89 35 33 30 00 F4 27 16 02 43 50 |).1):.530..'..CP|
00001FD0: 24 B2 43 24 3A 99 3A 99 20 22 C2 45 52 45 4B 45 |$.C$:.:. ".EREKE|
00001FE0: 4E 49 4E 47 20 56 4F 4F 52 20 27 22 3B 43 50 24 |NING VOOR '";CP$|
00001FF0: 3B 22 27 22 00 1B 28 18 02 99 22 11 D4 59 50 45 |;"'"..(..."..YPE|
00002000: 20 27 4C 49 53 54 27 20 56 4F 4F 52 20 56 45 4C | 'LIST' VOOR VEL|
00002010: 44 20 4E 55 4D 4D 45 52 53 2E 22 00 59 28 1A 02 |D NUMMERS.".Y(..|
00002020: 99 22 11 50 43 22 3B 53 49 24 3B 22 3D 22 3B 3A |.".PC";SI$;"=";:|
00002030: 58 25 B2 33 AA C3 28 53 49 24 29 3A 59 25 B2 C2 |X%.3..(SI$):Y%..|
00002040: 28 32 31 34 29 AA 31 3A 4C 25 B2 33 39 3A 8D 38 |(214).1:L%.39:.8|
00002050: 34 32 3A 43 24 B2 49 4E 24 00 72 28 1C 02 8B 43 |42:C$.IN$.r(...C|
00002060: 24 B2 22 4C 49 53 54 22 A7 8D 37 30 30 3A 89 35 |$."LIST"..700:.5|
00002070: 32 36 00 AB 28 1E 02 99 22 11 11 C9 53 20 44 49 |26..(..."...S DI|
00002080: 54 20 43 4F 52 52 45 43 54 3F 20 28 4A 2F 4E 29 |T CORRECT? (J/N)|
00002090: 20 20 22 3B 3A 58 25 B2 32 33 3A 59 25 B2 C2 28 | ";:X%.23:Y%..(|
000020A0: 32 31 34 29 AA 31 3A 4C 25 B2 31 00 C1 28 20 02 |214).1:L%.1..( .|
000020B0: 8D 38 34 32 3A 8B 49 4E 24 B2 22 4E 22 A7 35 32 |.842:.IN$."N".52|
000020C0: 36 00 D5 28 21 02 8B 20 49 4E 24 B3 B1 22 4A 22 |6..(!.. IN$.."J"|
000020D0: 20 A7 35 34 34 00 E5 28 22 02 45 58 24 B2 43 24 | .544..(".EX$.C$|
000020E0: 3A 8D 38 37 34 00 F3 28 24 02 8B 45 46 B2 30 A7 |:.874..($..EF.0.|
000020F0: 35 36 38 00 15 29 26 02 8B 45 46 B2 31 A7 99 22 |568..)&..EF.1.."|
00002100: 11 D5 20 4D 4F 45 54 20 49 45 54 53 20 49 4E 56 |.. MOET IETS INV|
00002110: 4F 45 52 45 4E 00 4E 29 28 02 8B 45 46 B2 32 A7 |OEREN.N)(..EF.2.|
00002120: 99 22 11 CF 4E 47 45 4C 44 49 47 20 4F 46 20 4F |."..NGELDIG OF O|
00002130: 4E 54 42 52 45 4B 45 4E 44 20 22 3B 53 52 24 3B |NTBREKEND ";SR$;|
00002140: 22 20 56 45 4C 44 20 4E 55 4D 4D 45 52 22 00 87 |" VELD NUMMER"..|
00002150: 29 2A 02 8B 45 46 B2 33 A7 99 22 11 C1 4C 4C 45 |)*..EF.3.."..LLE|
00002160: 20 27 4B 45 27 20 56 45 4C 44 45 4E 20 5A 49 4A | 'KE' VELDEN ZIJ|
00002170: 4E 20 27 47 45 4C 44 27 20 4F 46 20 27 4E 55 4D |N 'GELD' OF 'NUM|
00002180: 45 52 49 45 4B 27 22 00 C0 29 2C 02 8B 45 46 B2 |ERIEK'"..),..EF.|
00002190: 34 A7 99 22 11 27 50 43 27 2D 56 45 4C 44 45 4E |4..".'PC'-VELDEN|
000021A0: 20 4D 4F 45 54 45 4E 20 52 45 45 44 53 20 47 45 | MOETEN REEDS GE|
000021B0: 44 45 46 49 4E 49 45 45 52 44 20 5A 49 4A 4E 22 |DEFINIEERD ZIJN"|
000021C0: 00 E9 29 2E 02 8B 45 46 B2 35 A7 99 22 11 D6 45 |..)...EF.5.."..E|
000021D0: 52 4B 45 45 52 44 20 47 45 42 52 55 49 4B 54 45 |RKEERD GEBRUIKTE|
000021E0: 20 48 41 41 4B 4A 45 53 22 00 1D 2A 30 02 8B 45 | HAAKJES"..*0..E|
000021F0: 46 B2 36 A7 99 22 11 C7 45 4E 45 52 41 41 4C 54 |F.6.."..ENERAALT|
00002200: 4F 54 41 41 4C 20 4D 4F 45 54 20 4E 49 45 54 20 |OTAAL MOET NIET |
00002210: 52 45 46 45 52 45 52 45 4E 20 41 41 4E 00 48 2A |REFEREREN AAN.H*|
00002220: 31 02 8B 45 46 B2 36 A7 99 22 11 45 45 4E 20 4F |1..EF.6..".EEN O|
00002230: 4E 47 45 44 45 46 49 4E 49 45 45 52 44 20 27 50 |NGEDEFINIEERD 'P|
00002240: 43 27 20 56 45 4C 44 22 00 6D 2A 32 02 99 22 11 |C' VELD".m*2..".|
00002250: D4 4F 45 54 53 20 12 D2 C5 D4 D5 D2 CE 92 20 56 |.OETS ........ V|
00002260: 4F 4F 52 20 56 45 52 56 4F 4C 47 22 3B 00 86 2A |OOR VERVOLG";..*|
00002270: 34 02 A1 41 41 24 3A 8B 41 41 24 B3 B1 C7 28 31 |4..AA$:.AA$...(1|
00002280: 33 29 A7 35 36 34 00 8F 2A 36 02 89 35 32 36 00 |3).564..*6..526.|
00002290: B1 2A 38 02 98 32 2C 32 38 31 39 30 AA 31 30 AC |.*8..2,28190.10.|
000022A0: 49 3B 22 43 44 28 22 3B 49 3B 22 29 3D 22 3B 41 |I;"CD(";I;")=";A|
000022B0: 24 00 C9 2A 3A 02 98 32 2C 32 38 31 39 35 AA 31 |$..*:..2,28195.1|
000022C0: 30 AC 49 3B 22 52 45 D4 22 00 D7 2A 3C 02 8B 53 |0.I;"RE."..*<..S|
000022D0: 55 B2 31 A7 35 38 30 00 ED 2A 3E 02 98 33 2C 45 |U.1.580..*>..3,E|
000022E0: 58 24 3A 42 24 B2 41 24 3A 8D 39 36 38 00 1A 2B |X$:B$.A$:.968..+|
000022F0: 40 02 53 46 25 28 49 29 B2 30 3A 98 32 2C 32 38 |@.SF%(I).0:.2,28|
00002300: 35 39 30 AA 31 30 AC 49 3B 22 43 45 28 22 3B 49 |590.10.I;"CE(";I|
00002310: 3B 22 29 20 3D 20 22 3B 42 24 00 37 2B 42 02 98 |;") = ";B$.7+B..|
00002320: 32 2C 32 38 35 39 35 AA 31 30 AC 49 3B 22 52 45 |2,28595.10.I;"RE|
00002330: D4 22 3A 89 35 38 32 00 53 2B 44 02 53 46 25 28 |.":.582.S+D.SF%(|
00002340: 49 29 B2 31 3A 4E 53 B2 4E 53 AA 31 3A 98 33 2C |I).1:NS.NS.1:.3,|
00002350: 45 58 24 00 5A 2B 46 02 82 49 00 66 2B 5C 02 81 |EX$.Z+F..I.f+\..|
00002360: 49 B2 31 A4 4E 43 00 7B 2B 5E 02 44 25 28 49 29 |I.1.NC.{+^.D%(I)|
00002370: B2 32 38 31 39 30 AA 31 30 AC 49 00 82 2B 60 02 |.28190.10.I..+`.|
00002380: 82 49 00 A4 2B 66 02 4F 4C B2 32 38 31 30 30 3A |.I..+f.OL.28100:|
00002390: 4F 53 24 B2 22 50 5A 22 3A 55 4C 25 B2 4E 43 3A |OS$."PZ":UL%.NC:|
000023A0: 8D 37 35 36 00 B4 2B 68 02 98 32 2C 45 4C 3B 22 |.756..+h..2,EL;"|
000023B0: 52 45 D4 22 00 C0 2B 6A 02 81 49 B2 31 A4 4E 43 |RE."..+j..I.1.NC|
000023C0: 00 D5 2B 6C 02 44 25 28 49 29 B2 32 38 35 39 30 |..+l.D%(I).28590|
000023D0: AA 31 30 AC 49 00 DC 2B 6E 02 82 49 00 FE 2B 70 |.10.I..+n..I..+p|
000023E0: 02 4F 4C B2 32 38 35 31 30 3A 4F 53 24 B2 22 50 |.OL.28510:OS$."P|
000023F0: 5A 22 3A 55 4C 25 B2 4E 43 3A 8D 37 35 36 00 0E |Z":UL%.NC:.756..|
00002400: 2C 72 02 98 32 2C 45 4C 3B 22 52 45 D4 22 00 3B |,r..2,EL;"RE.".;|
00002410: 2C 74 02 98 32 2C 22 38 30 44 C9 20 43 53 25 28 |,t..2,"80D. CS%(|
00002420: 4E 43 29 3A 46 CF 49 3D 31 54 4F 4E 43 3A 52 C5 |NC):F.I=1TONC:R.|
00002430: 43 53 25 28 49 29 3A 4E C5 49 22 00 58 2C 76 02 |CS%(I):N.I".X,v.|
00002440: 81 49 B2 31 A4 4E 43 3A 46 49 25 28 49 29 B2 53 |.I.1.NC:FI%(I).S|
00002450: 46 25 28 49 29 3A 82 49 00 6E 2C 78 02 4F 4C B2 |F%(I):.I.n,x.OL.|
00002460: 38 32 3A 55 4C 25 B2 4E 43 3A 8D 36 34 34 00 74 |82:UL%.NC:.644.t|
00002470: 2C 7A 02 8E 00 A4 2C 7C 02 98 32 2C 22 32 38 30 |,z....,|..2,"280|
00002480: 35 30 52 45 D4 22 3A 98 32 2C 22 32 38 31 30 30 |50RE.":.2,"28100|
00002490: 52 45 D4 22 3A 98 32 2C 22 32 38 35 30 30 52 45 |RE.":.2,"28500RE|
000024A0: D4 22 3A 8E 00 B3 2C 84 02 4E B2 55 4C 25 3A 4B |.":...,..N.UL%:K|
000024B0: B2 31 30 00 C0 2C 86 02 8B 4E B3 31 A7 36 36 34 |.10..,...N.1.664|
000024C0: 00 CD 2C 88 02 8B 4E B3 4B A7 4B B2 4E 00 DF 2C |..,...N.K.K.N..,|
000024D0: 8A 02 98 32 2C 4F 4C 3B 20 22 44 C1 20 22 3B 00 |...2,OL; "D. ";.|
000024E0: EB 2C 8C 02 4F 4C B2 4F 4C AA 32 00 F7 2C 8E 02 |.,..OL.OL.2..,..|
000024F0: 81 4A 4B B2 31 A4 4B 00 20 2D 90 02 98 32 2C 46 |.JK.1.K. -...2,F|
00002500: 49 25 28 55 4C 25 AA 4A 4B AB 4E 29 3B 3A 8B 4A |I%(UL%.JK.N);:.J|
00002510: 4B B3 4B A7 98 32 2C 22 2C 22 3B 3A 82 4A 4B 3A |K.K..2,",";:.JK:|
00002520: 00 27 2D 92 02 98 32 00 31 2D 94 02 4E B2 4E AB |.'-...2.1-..N.N.|
00002530: 4B 00 3A 2D 96 02 89 36 34 36 00 44 2D 98 02 45 |K.:-...646.D-..E|
00002540: 4C B2 4F 4C 00 4A 2D 9A 02 8E 00 5F 2D 9C 02 4F |L.OL.J-...._-..O|
00002550: 4B B2 30 3A 8B C3 28 42 4A 24 29 B3 32 A7 8E 00 |K.0:..(BJ$).2...|
00002560: 98 2D 9E 02 4C 24 B2 C8 28 42 4A 24 2C 31 29 3A |.-..L$..(BJ$,1):|
00002570: 8B 4C 24 B2 22 3C 22 B0 4C 24 B2 22 3E 22 B0 4C |.L$."<".L$.">".L|
00002580: 24 B2 22 3D 22 A7 42 4B 24 B2 CA 28 42 4A 24 2C |$."=".BK$..(BJ$,|
00002590: 32 29 3A 4F 4B B2 AB 31 00 CF 2D A0 02 8B 4C 24 |2):OK..1..-...L$|
000025A0: B2 22 3C 22 AF CA 28 42 4A 24 2C 32 2C 31 29 B2 |."<"..(BJ$,2,1).|
000025B0: 22 3E 22 AF C3 28 42 4A 24 29 B1 32 A7 42 4B 24 |">"..(BJ$).2.BK$|
000025C0: B2 CA 28 42 4A 24 2C 33 29 3A 4F 4B B2 AB 31 00 |..(BJ$,3):OK..1.|
000025D0: D5 2D A2 02 8E 00 0F 2E A4 02 4F 4B B2 AB 31 3A |.-........OK..1:|
000025E0: 81 4A B2 31 A4 C3 28 42 4B 24 29 3A 8B CA 28 42 |.J.1..(BK$):..(B|
000025F0: 4B 24 2C 4A 2C 31 29 B3 22 30 22 B0 CA 28 42 4B |K$,J,1)."0"..(BK|
00002600: 24 2C 4A 2C 31 29 B1 22 39 22 A7 4F 4B B2 30 00 |$,J,1)."9".OK.0.|
00002610: 18 2E A6 02 82 4A 3A 8E 00 33 2E A8 02 4F 4B B2 |.....J:..3...OK.|
00002620: AB 31 3A 8B C3 28 42 4B 24 29 B3 33 A7 4F 4B B2 |.1:..(BK$).3.OK.|
00002630: 30 3A 8E 00 59 2E AA 02 81 4A B2 32 A4 C3 28 42 |0:..Y....J.2..(B|
00002640: 4B 24 29 AB 31 3A 8B CA 28 42 4B 24 2C 4A 2C 31 |K$).1:..(BK$,J,1|
00002650: 29 B2 51 24 A7 4F 4B B2 30 00 80 2E AC 02 82 4A |).Q$.OK.0......J|
00002660: 3A 8B C8 28 42 4B 24 2C 31 29 B3 B1 51 24 B0 C9 |:..(BK$,1)..Q$..|
00002670: 28 42 4B 24 2C 31 29 B3 B1 51 24 A7 4F 4B B2 30 |(BK$,1)..Q$.OK.0|
00002680: 00 86 2E AE 02 8E 00 AF 2E B2 02 4F 4B B2 AB 31 |...........OK..1|
00002690: 3A 44 43 B2 30 3A 81 4A B2 31 A4 C3 28 42 4B 24 |:DC.0:.J.1..(BK$|
000026A0: 29 3A 4D 24 B2 CA 28 42 4B 24 2C 4A 2C 31 29 00 |):M$..(BK$,J,1).|
000026B0: E1 2E B4 02 8B 28 4D 24 B3 22 30 22 B0 4D 24 B1 |.....(M$."0".M$.|
000026C0: 22 39 22 29 AF 28 4D 24 B3 B1 22 2E 22 29 AF 28 |"9").(M$..".").(|
000026D0: 4D 24 B3 B1 22 2D 22 B0 4A B1 31 29 A7 4F 4B B2 |M$.."-".J.1).OK.|
000026E0: 30 00 F5 2E B6 02 8B 4D 24 B2 22 2E 22 A7 44 43 |0......M$.".".DC|
000026F0: B2 44 43 AA 31 00 07 2F B8 02 82 4A 3A 8B 44 43 |.DC.1../...J:.DC|
00002700: B1 31 A7 4F 4B B2 30 00 0D 2F BA 02 8E 00 33 2F |.1.OK.0../....3/|
00002710: BC 02 99 22 93 12 D4 4F 45 54 53 45 4E 42 4F 52 |..."...OETSENBOR|
00002720: 44 2D 49 4E 56 4F 45 52 20 56 45 4C 44 45 4E 92 |D-INVOER VELDEN.|
00002730: 3A 22 3B 00 41 2F BE 02 81 4A B2 31 A4 4E 46 A9 |:";.A/...J.1.NF.|
00002740: 32 00 67 2F C0 02 99 3A 99 20 22 4B 45 22 3B CA |2.g/...:. "KE";.|
00002750: 28 C4 28 4A 29 2C 32 29 20 3B 22 20 3D 20 22 3B |(.(J),2) ;" = ";|
00002760: 50 52 24 28 4A 29 3B 00 98 2F C2 02 8B 4A B3 4E |PR$(J);../...J.N|
00002770: 46 A7 99 A3 31 39 29 3B 22 4B 45 22 3B CA 28 C4 |F...19);"KE";.(.|
00002780: 28 4A AA 31 29 2C 32 29 3B 22 20 3D 20 22 3B 50 |(J.1),2);" = ";P|
00002790: 52 24 28 4A AA 31 29 3B 00 9F 2F C4 02 82 4A 00 |R$(J.1);../...J.|
000027A0: AD 2F C6 02 8B 4E 43 B2 30 A7 37 32 32 00 D6 2F |./...NC.0.722../|
000027B0: C8 02 99 3A 99 3A 99 22 12 C3 4F 4D 50 55 54 45 |...:.:."..OMPUTE|
000027C0: 52 2D 42 45 52 45 4B 45 4E 44 45 20 56 45 4C 44 |R-BEREKENDE VELD|
000027D0: 45 4E 92 3A 22 3B 00 E4 2F CA 02 81 4A B2 31 A4 |EN.:";../...J.1.|
000027E0: 4E 43 A9 32 00 09 30 CC 02 99 3A 99 20 22 50 43 |NC.2..0...:. "PC|
000027F0: 22 3B CA 28 C4 28 4A 29 2C 32 29 3B 22 20 3D 20 |";.(.(J),2);" = |
00002800: 22 3B 43 50 24 28 4A 29 3B 00 3B 30 CE 02 8B 4A |";CP$(J);.;0...J|
00002810: B3 4E 43 A7 99 A3 31 39 29 3B 22 50 43 22 3B CA |.NC...19);"PC";.|
00002820: 28 C4 28 4A AA 31 29 2C 32 29 3B 20 22 20 3D 20 |(.(J.1),2); " = |
00002830: 22 3B 43 50 24 28 4A AA 31 29 3B 00 42 30 D0 02 |";CP$(J.1);.B0..|
00002840: 82 4A 00 50 30 D2 02 8B 4E 47 B2 30 A7 37 33 34 |.J.P0...NG.0.734|
00002850: 00 75 30 D4 02 99 3A 99 3A 99 22 12 C7 45 4E 45 |.u0...:.:."..ENE|
00002860: 52 41 41 4C 54 4F 54 41 41 4C 20 56 45 4C 44 45 |RAALTOTAAL VELDE|
00002870: 4E 92 3A 22 3B 00 83 30 D6 02 81 4A B2 31 A4 4E |N.:";..0...J.1.N|
00002880: 47 A9 32 00 A8 30 D8 02 99 3A 99 20 22 47 54 22 |G.2..0...:. "GT"|
00002890: 3B CA 28 C4 28 4A 29 2C 32 29 3B 22 20 3D 20 22 |;.(.(J),2);" = "|
000028A0: 3B 47 50 24 28 4A 29 3B 00 DC 30 DA 02 8B 4A B3 |;GP$(J);..0...J.|
000028B0: 4E 47 20 A7 20 99 A3 31 39 29 3B 22 47 54 22 3B |NG . ..19);"GT";|
000028C0: CA 28 C4 28 4A AA 31 29 2C 32 29 3B 20 22 20 3D |.(.(J.1),2); " =|
000028D0: 20 22 3B 47 50 24 28 4A AA 31 29 3B 00 E3 30 DC | ";GP$(J.1);..0.|
000028E0: 02 82 4A 00 13 31 DE 02 99 3A 99 3A 99 C8 28 59 |..J..1...:.:..(Y|
000028F0: 24 2C 32 34 29 3B 22 D4 4F 45 54 53 20 12 D2 C5 |$,24);".OETS ...|
00002900: D4 D5 D2 CE 92 20 56 4F 4F 52 20 56 45 52 56 4F |..... VOOR VERVO|
00002910: 4C 47 22 00 2C 31 E0 02 A1 41 41 24 3A 8B 41 41 |LG".,1...AA$:.AA|
00002920: 24 B3 B1 C7 28 31 33 29 A7 37 33 36 00 32 31 E2 |$...(13).736.21.|
00002930: 02 8E 00 58 31 E4 02 99 22 93 12 D4 4F 45 54 53 |...X1..."...OETS|
00002940: 45 4E 42 4F 52 44 2D 49 4E 56 4F 45 52 20 56 45 |ENBORD-INVOER VE|
00002950: 4C 44 45 4E 92 3A 22 3B 00 66 31 E6 02 81 4A B2 |LDEN.:";.f1...J.|
00002960: 31 A4 4E 46 A9 32 00 7F 31 E8 02 99 3A 99 20 4A |1.NF.2..1...:. J|
00002970: 3B 20 22 2D 20 22 3B 20 50 52 24 28 4A 29 3B 00 |; "- "; PR$(J);.|
00002980: A2 31 EA 02 8B 4A B3 4E 46 A7 99 A3 31 39 29 3B |.1...J.NF...19);|
00002990: 4A AA 31 3B 22 2D 20 22 3B 50 52 24 28 4A AA 31 |J.1;"- ";PR$(J.1|
000029A0: 29 3B 00 A9 31 EC 02 82 4A 00 D9 31 EE 02 99 3A |);..1...J..1...:|
000029B0: 99 3A 99 C8 28 59 24 2C 32 34 29 3B 22 D4 4F 45 |.:..(Y$,24);".OE|
000029C0: 54 53 20 12 D2 C5 D4 D5 D2 CE 92 20 56 4F 4F 52 |TS ........ VOOR|
000029D0: 20 56 45 52 56 4F 4C 47 22 00 F2 31 F0 02 A1 41 | VERVOLG"..1...A|
000029E0: 41 24 3A 8B 41 41 24 B3 B1 C7 28 31 33 29 A7 37 |A$:.AA$...(13).7|
000029F0: 35 32 00 F8 31 F2 02 8E 00 0E 32 F4 02 4B B2 36 |52..1.....2..K.6|
00002A00: 3A 4E 4C 25 B2 28 55 4C 25 AB 31 29 AD 4B 00 1C |:NL%.(UL%.1).K..|
00002A10: 32 F6 02 81 49 49 B2 30 A4 4E 4C 25 00 37 32 F8 |2...II.0.NL%.72.|
00002A20: 02 4C B2 4B 3A 8B 49 49 B2 4E 4C 25 A7 4C B2 55 |.L.K:.II.NL%.L.U|
00002A30: 4C 25 AB 49 49 AC 4B 00 7F 32 FA 02 98 32 2C 4F |L%.II.K..2...2,O|
00002A40: 4C AA 49 49 AC 34 3B 22 49 46 20 22 3B 4F 53 24 |L.II.4;"IF ";OS$|
00002A50: 3B 22 3C 3D 22 3B 49 49 AC 4B 3B 22 4F 52 20 22 |;"<=";II.K;"OR "|
00002A60: 3B 4F 53 24 3B 22 3E 22 3B 49 49 AC 4B AA 4C 3B |;OS$;">";II.K.L;|
00002A70: 22 54 48 C5 22 3B 4F 4C AA 49 49 AC 34 AA 34 00 |"TH.";OL.II.4.4.|
00002A80: AB 32 FC 02 98 32 2C 4F 4C AA 49 49 AC 34 AA 32 |.2...2,OL.II.4.2|
00002A90: 3B 22 4F 4E 20 22 3B 4F 53 24 3B 22 2D 22 3B 49 |;"ON ";OS$;"-";I|
00002AA0: 49 AC 4B 3B 22 47 4F D3 20 22 3B 00 B7 32 FE 02 |I.K;"GO. ";..2..|
00002AB0: 81 49 4A B2 31 A4 4C 00 CE 32 00 03 98 32 2C C4 |.IJ.1.L..2...2,.|
00002AC0: 28 44 25 28 49 49 AC 4B AA 49 4A 29 29 3B 00 E0 |(D%(II.K.IJ));..|
00002AD0: 32 02 03 8B 49 4A B3 4C A7 98 32 2C 22 2C 22 3B |2...IJ.L..2,",";|
00002AE0: 00 E8 32 04 03 82 49 4A 00 EF 32 06 03 98 32 00 |..2...IJ..2...2.|
00002AF0: F7 32 08 03 82 49 49 00 06 33 0A 03 45 4C B2 4F |.2...II..3..EL.O|
00002B00: 4C AA 49 49 AC 34 00 16 33 0C 03 98 32 2C 45 4C |L.II.4..3...2,EL|
00002B10: 3B 22 3A 22 20 3A 00 1C 33 0E 03 8E 00 42 33 10 |;":" :..3....B3.|
00002B20: 03 A0 32 3A 9F 32 2C 38 2C 32 2C 22 30 3A 22 AA |..2:.2,8,2,"0:".|
00002B30: 53 46 24 3A 44 58 B2 30 3A 44 5A B2 30 3A 52 53 |SF$:DX.0:DZ.0:RS|
00002B40: B2 30 00 54 33 12 03 8D 39 38 36 3A 8B 45 53 B3 |.0.T3...986:.ES.|
00002B50: B1 30 A7 8E 00 64 33 14 03 84 32 2C 4E 46 3A 5A |.0...d3...2,NF:Z|
00002B60: 46 B2 4E 46 00 96 33 16 03 86 20 50 52 24 28 4E |F.NF..3... PR$(N|
00002B70: 46 29 2C 58 25 28 4E 46 29 2C 59 25 28 4E 46 29 |F),X%(NF),Y%(NF)|
00002B80: 2C 4C 25 28 4E 46 29 2C 54 24 28 4E 46 29 2C 53 |,L%(NF),T$(NF),S|
00002B90: 44 24 28 4E 46 29 00 A2 33 18 03 81 49 B2 31 A4 |D$(NF)..3...I.1.|
00002BA0: 4E 46 00 C8 33 1A 03 84 32 2C 50 52 24 28 49 29 |NF..3...2,PR$(I)|
00002BB0: 2C 58 25 28 49 29 2C 59 25 28 49 29 2C 4C 25 28 |,X%(I),Y%(I),L%(|
00002BC0: 49 29 2C 54 24 28 49 29 00 08 34 1C 03 53 44 24 |I),T$(I)..4..SD$|
00002BD0: 28 49 29 B2 C8 28 44 54 24 2C 4C 25 28 49 29 29 |(I)..(DT$,L%(I))|
00002BE0: 3A 8B 20 54 24 28 49 29 B2 22 44 22 20 A7 20 53 |:. T$(I)."D" . S|
00002BF0: 44 24 28 49 29 B2 22 22 AA 22 2E 2E 2F 2E 2E 2F |D$(I).""."../../|
00002C00: 2E 2E 22 3A 44 5A B2 31 00 1F 34 1E 03 8B 54 24 |..":DZ.1..4...T$|
00002C10: 28 49 29 B2 22 24 22 A7 44 58 B2 44 58 AA 31 00 |(I)."$".DX.DX.1.|
00002C20: 32 34 20 03 52 53 B2 52 53 AA 4C 25 28 49 29 3A |24 .RS.RS.L%(I):|
00002C30: 82 49 00 46 34 22 03 84 32 2C 4E 43 3A 8B 4E 43 |.I.F4"..2,NC:.NC|
00002C40: B2 30 A7 38 31 36 00 57 34 24 03 8B 5A 46 B3 4E |.0.816.W4$..ZF.N|
00002C50: 43 A7 5A 46 B2 4E 43 00 85 34 26 03 86 20 43 50 |C.ZF.NC..4&.. CP|
00002C60: 24 28 4E 43 29 2C 43 58 25 28 4E 43 29 2C 43 59 |$(NC),CX%(NC),CY|
00002C70: 25 28 4E 43 29 2C 43 54 24 28 4E 43 29 2C 43 4C |%(NC),CT$(NC),CL|
00002C80: 25 28 4E 43 29 00 B7 34 28 03 81 49 B2 31 A4 4E |%(NC)..4(..I.1.N|
00002C90: 43 3A 84 32 2C 43 50 24 28 49 29 2C 43 58 25 28 |C:.2,CP$(I),CX%(|
00002CA0: 49 29 2C 43 59 25 28 49 29 2C 43 4C 25 28 49 29 |I),CY%(I),CL%(I)|
00002CB0: 2C 43 54 24 28 49 29 00 CF 34 29 03 8B 43 54 24 |,CT$(I)..4)..CT$|
00002CC0: 28 49 29 B2 22 24 22 A7 44 58 B2 44 58 AA 31 00 |(I)."$".DX.DX.1.|
00002CD0: D6 34 2E 03 82 49 00 EA 34 30 03 84 32 2C 4E 47 |.4...I..40..2,NG|
00002CE0: 3A 8B 4E 47 B2 30 A7 38 33 30 00 FB 34 32 03 8B |:.NG.0.830..42..|
00002CF0: 5A 46 B3 4E 47 A7 5A 46 B2 4E 47 00 29 35 34 03 |ZF.NG.ZF.NG.)54.|
00002D00: 86 20 47 50 24 28 4E 47 29 2C 47 58 25 28 4E 47 |. GP$(NG),GX%(NG|
00002D10: 29 2C 47 59 25 28 4E 47 29 2C 47 54 24 28 4E 47 |),GY%(NG),GT$(NG|
00002D20: 29 2C 47 4C 25 28 4E 47 29 00 5B 35 36 03 81 49 |),GL%(NG).[56..I|
00002D30: B2 31 A4 4E 47 3A 84 32 2C 47 50 24 28 49 29 2C |.1.NG:.2,GP$(I),|
00002D40: 47 58 25 28 49 29 2C 47 59 25 28 49 29 2C 47 4C |GX%(I),GY%(I),GL|
00002D50: 25 28 49 29 2C 47 54 24 28 49 29 00 73 35 37 03 |%(I),GT$(I).s57.|
00002D60: 8B 47 54 24 28 49 29 B2 22 24 22 A7 44 58 B2 44 |.GT$(I)."$".DX.D|
00002D70: 58 AA 31 00 7A 35 3C 03 82 49 00 8E 35 3E 03 84 |X.1.z5<..I..5>..|
00002D80: 32 2C 4E 54 3A 8B 4E 54 B2 30 A7 38 34 30 00 AC |2,NT:.NT.0.840..|
00002D90: 35 40 03 86 20 54 50 24 28 4E 54 29 2C 54 58 25 |5@.. TP$(NT),TX%|
00002DA0: 28 4E 54 29 2C 54 59 25 28 4E 54 29 00 D3 35 42 |(NT),TY%(NT)..5B|
00002DB0: 03 81 49 B2 31 A4 4E 54 3A 84 32 2C 54 50 24 28 |..I.1.NT:.2,TP$(|
00002DC0: 49 29 2C 54 58 25 28 49 29 2C 54 59 25 28 49 29 |I),TX%(I),TY%(I)|
00002DD0: 3A 82 49 00 DC 35 48 03 A0 32 3A 8E 00 03 36 4A |:.I..5H..2:...6J|
00002DE0: 03 8F 50 52 49 4E 54 4C 45 46 54 24 28 59 24 2C |..PRINTLEFT$(Y$,|
00002DF0: 59 25 29 3B 54 41 42 28 58 25 2B 4A 2D 31 29 3B |Y%);TAB(X%+J-1);|
00002E00: 22 22 3B 00 29 36 4B 03 4A B2 31 3A 41 44 B2 31 |"";.)6K.J.1:AD.1|
00002E10: 30 32 34 AA 28 59 25 AB 31 29 AC 34 30 AA 58 25 |024.(Y%.1).40.X%|
00002E20: AB 31 3A 49 4E 24 B2 22 22 00 56 36 4C 03 81 4B |.1:IN$."".V6L..K|
00002E30: 4C B2 30 A4 4C 25 3A 97 35 35 32 39 36 AA 28 59 |L.0.L%:.55296.(Y|
00002E40: 25 AB 31 29 AC 34 30 AA 28 58 25 AA 4B 4C 29 2C |%.1).40.(X%.KL),|
00002E50: 43 33 3A 82 4B 4C 00 6C 36 4E 03 97 41 44 AA 4A |C3:.KL.l6N..AD.J|
00002E60: 2C C2 28 41 44 AA 4A 29 B0 31 32 38 00 7F 36 50 |,.(AD.J).128..6P|
00002E70: 03 A1 4A 24 3A 8B 4A 24 B2 22 22 A7 38 34 38 00 |..J$:.J$."".848.|
00002E80: 8C 36 52 03 49 49 B2 C6 28 4A 24 29 00 9E 36 53 |.6R.II..(J$)..6S|
00002E90: 03 8B 20 49 49 B2 33 34 20 A7 20 38 34 38 00 D6 |.. II.34 . 848..|
00002EA0: 36 54 03 8B 28 49 49 B3 33 32 AF 49 49 B3 B1 32 |6T..(II.32.II..2|
00002EB0: 30 AF 49 49 B3 B1 31 33 29 B0 28 49 49 B1 31 32 |0.II..13).(II.12|
00002EC0: 38 AF 49 49 B3 31 39 32 29 B0 28 49 49 B1 32 32 |8.II.192).(II.22|
00002ED0: 31 29 A7 38 34 36 00 E6 36 56 03 8B 49 49 B3 B1 |1).846..6V..II..|
00002EE0: 32 30 A7 38 36 32 00 F3 36 58 03 8B 4A B2 31 A7 |20.862..6X..J.1.|
00002EF0: 38 34 36 00 2D 37 5A 03 4A B2 4A AB 31 3A 49 4E |846.-7Z.J.J.1:IN|
00002F00: 24 B2 C8 28 49 4E 24 2C 4A AB 31 29 3A 4A 24 B2 |$..(IN$,J.1):J$.|
00002F10: 22 20 22 3A 99 C8 28 59 24 2C 59 25 29 3B A6 58 |" ":..(Y$,Y%);.X|
00002F20: 25 AA 4A 29 3B 22 20 22 3A 89 38 36 36 00 41 37 |%.J);" ":.866.A7|
00002F30: 5C 03 8B 49 49 B2 31 33 AF 49 4E 24 B2 22 22 A7 |\..II.13.IN$."".|
00002F40: 99 00 60 37 5E 03 8B 49 49 B2 31 33 A7 97 41 44 |..`7^..II.13..AD|
00002F50: AA 4A 2C C2 28 41 44 AA 4A 29 AF 31 32 37 3A 8E |.J,.(AD.J).127:.|
00002F60: 00 6F 37 60 03 49 4E 24 B2 49 4E 24 AA 4A 24 00 |.o7`.IN$.IN$.J$.|
00002F70: 89 37 62 03 99 C8 28 59 24 2C 59 25 29 3B A6 58 |.7b...(Y$,Y%);.X|
00002F80: 25 AA 4A AB 31 29 3B 4A 24 00 AA 37 64 03 8B 4A |%.J.1);J$..7d..J|
00002F90: B2 4C 25 A7 49 4E 24 B2 C8 28 49 4E 24 2C 4A AB |.L%.IN$..(IN$,J.|
00002FA0: 31 29 AA 4A 24 3A 89 38 34 36 00 BC 37 66 03 8B |1).J$:.846..7f..|
00002FB0: 49 49 B3 B1 32 30 A7 4A B2 4A AA 31 00 C5 37 68 |II..20.J.J.1..7h|
00002FC0: 03 89 38 34 36 00 EF 37 6A 03 53 55 B2 30 3A 50 |..846..7j.SU.0:P|
00002FD0: 31 B2 30 3A 45 46 B2 30 3A 4A B2 30 3A 41 24 B2 |1.0:EF.0:J.0:A$.|
00002FE0: 45 58 24 3A 8B 41 24 B2 22 22 A7 45 46 B2 31 00 |EX$:.A$."".EF.1.|
00002FF0: FC 37 6C 03 8B 45 46 B3 B1 30 A7 8E 00 0D 38 6E |.7l..EF..0....8n|
00003000: 03 81 4A B2 4A AA 31 A4 C3 28 41 24 29 00 1F 38 |..J.J.1..(A$)..8|
00003010: 70 03 53 52 24 B2 CA 28 41 24 2C 4A 2C 31 29 00 |p.SR$..(A$,J,1).|
00003020: 30 38 72 03 8B 53 52 24 B2 22 28 22 A7 39 30 30 |08r..SR$."(".900|
00003030: 00 41 38 74 03 8B 53 52 24 B2 22 29 22 A7 39 30 |.A8t..SR$.")".90|
00003040: 34 00 53 38 76 03 53 52 24 B2 CA 28 41 24 2C 4A |4.S8v.SR$..(A$,J|
00003050: 2C 32 29 00 65 38 78 03 8B 53 52 24 B2 22 4B 45 |,2).e8x..SR$."KE|
00003060: 22 A7 39 31 30 00 77 38 7A 03 8B 53 52 24 B2 22 |".910.w8z..SR$."|
00003070: 50 43 22 A7 39 32 34 00 89 38 7C 03 8B 53 52 24 |PC".924..8|..SR$|
00003080: B2 22 47 54 22 A7 39 35 34 00 90 38 7E 03 82 4A |."GT".954..8~..J|
00003090: 00 A0 38 80 03 8B 50 31 B3 B1 30 A7 45 46 B2 35 |..8...P1..0.EF.5|
000030A0: 00 A6 38 82 03 8E 00 B2 38 84 03 50 31 B2 50 31 |..8.....8..P1.P1|
000030B0: AA 31 00 BB 38 86 03 89 38 37 36 00 C7 38 88 03 |.1..8...876..8..|
000030C0: 50 31 B2 50 31 AB 31 00 D6 38 8A 03 8B 50 31 B3 |P1.P1.1..8...P1.|
000030D0: 30 A7 45 46 B2 35 00 DF 38 8C 03 89 38 37 36 00 |0.EF.5..8...876.|
000030E0: F4 38 8E 03 53 42 25 B2 C5 28 CA 28 41 24 2C 4A |.8..SB%..(.(A$,J|
000030F0: AA 32 29 29 00 10 39 90 03 8B 53 42 25 B3 31 B0 |.2))..9...SB%.1.|
00003100: 53 42 25 B1 4E 46 A7 45 46 B2 32 3A 89 38 37 36 |SB%.NF.EF.2:.876|
00003110: 00 37 39 92 03 8B 54 24 28 53 42 25 29 B2 22 44 |.79...T$(SB%)."D|
00003120: 22 B0 54 24 28 53 42 25 29 B2 22 41 22 A7 45 46 |".T$(SB%)."A".EF|
00003130: B2 33 3A 89 38 37 36 00 4A 39 94 03 4E 44 B2 C3 |.3:.876.J9..ND..|
00003140: 28 C4 28 53 42 25 29 29 AB 31 00 6D 39 96 03 52 |(.(SB%)).1.m9..R|
00003150: 31 24 B2 22 56 C1 28 47 24 28 22 AA CA 28 41 24 |1$."V.(G$("..(A$|
00003160: 2C 4A AA 32 2C 4E 44 29 AA 22 29 29 22 00 8F 39 |,J.2,ND)."))"..9|
00003170: 98 03 41 24 B2 C8 28 41 24 2C 4A AB 31 29 AA 52 |..A$..(A$,J.1).R|
00003180: 31 24 AA CA 28 41 24 2C 4A AA 32 AA 4E 44 29 00 |1$..(A$,J.2.ND).|
00003190: 98 39 9A 03 89 38 37 36 00 AD 39 9C 03 53 42 25 |.9...876..9..SB%|
000031A0: B2 C5 28 CA 28 41 24 2C 4A AA 32 29 29 00 C2 39 |..(.(A$,J.2))..9|
000031B0: 9E 03 8B 53 42 25 B1 49 A7 45 46 B2 34 3A 89 38 |...SB%.I.EF.4:.8|
000031C0: 37 36 00 D1 39 A0 03 8B 53 42 25 B3 49 A7 39 34 |76..9...SB%.I.94|
000031D0: 36 00 10 3A A2 03 99 3A 99 3A 99 22 C1 41 4E 20 |6..:...:.:.".AN |
000031E0: 5A 49 43 48 5A 45 4C 46 20 47 45 52 45 4C 41 54 |ZICHZELF GERELAT|
000031F0: 45 45 52 44 2E 20 D4 4F 45 54 53 20 27 43 27 20 |EERD. .OETS 'C' |
00003200: 4F 4D 20 54 45 20 42 45 56 45 53 54 49 47 45 4E |OM TE BEVESTIGEN|
00003210: 00 33 3A A4 03 58 25 B2 31 32 3A 59 25 B2 C2 28 |.3:..X%.12:Y%..(|
00003220: 32 31 34 29 3A 4A 4A B2 4A 3A 8D 38 34 32 3A 4A |214):JJ.J:.842:J|
00003230: B2 4A 4A 00 45 3A A6 03 8B C3 28 49 4E 24 29 B2 |.JJ.E:....(IN$).|
00003240: 30 A7 39 33 38 00 5C 3A A8 03 8B C6 28 49 4E 24 |0.938.\:....(IN$|
00003250: 29 B2 C6 28 22 43 22 29 A7 39 34 30 00 70 3A AA |)..("C").940.p:.|
00003260: 03 45 46 B2 AB 31 3A 53 55 B2 30 3A 89 38 37 36 |.EF..1:SU.0:.876|
00003270: 00 83 3A AC 03 4E 44 B2 C3 28 C4 28 53 42 25 29 |..:..ND..(.(SB%)|
00003280: 29 AB 31 00 A2 3A AE 03 52 31 24 B2 22 43 45 28 |).1..:..R1$."CE(|
00003290: 22 AA CA 28 41 24 2C 4A AA 32 2C 4E 44 29 AA 22 |"..(A$,J.2,ND)."|
000032A0: 29 22 00 B0 3A B0 03 53 55 B2 31 3A 89 39 35 30 |)"..:..SU.1:.950|
000032B0: 00 C3 3A B2 03 4E 44 B2 C3 28 C4 28 53 42 25 29 |..:..ND..(.(SB%)|
000032C0: 29 AB 31 00 E2 3A B4 03 52 31 24 B2 22 43 44 28 |).1..:..R1$."CD(|
000032D0: 22 AA CA 28 41 24 2C 4A AA 32 2C 4E 44 29 AA 22 |"..(A$,J.2,ND)."|
000032E0: 29 22 00 04 3B B6 03 41 24 B2 C8 28 41 24 2C 4A |)"..;..A$..(A$,J|
000032F0: AB 31 29 AA 52 31 24 AA CA 28 41 24 2C 4A AA 32 |.1).R1$..(A$,J.2|
00003300: AA 4E 44 29 00 0D 3B B8 03 89 38 37 36 00 22 3B |.ND)..;...876.";|
00003310: BA 03 53 42 25 B2 C5 28 CA 28 41 24 2C 4A AA 32 |..SB%..(.(A$,J.2|
00003320: 29 29 00 38 3B BC 03 8B 53 42 25 B1 4E 47 A7 45 |)).8;...SB%.NG.E|
00003330: 46 B2 32 3A 89 38 37 36 00 56 3B BE 03 8B 46 49 |F.2:.876.V;...FI|
00003340: 25 28 53 42 25 29 AB 4E 46 B1 B2 49 A7 45 46 B2 |%(SB%).NF..I.EF.|
00003350: 36 3A 89 38 37 36 00 69 3B C0 03 4E 44 B2 C3 28 |6:.876.i;..ND..(|
00003360: C4 28 53 42 25 29 29 AB 31 00 88 3B C2 03 52 31 |.(SB%)).1..;..R1|
00003370: 24 B2 22 47 4B 28 22 AA CA 28 41 24 2C 4A AA 32 |$."GK("..(A$,J.2|
00003380: 2C 4E 44 29 AA 22 29 22 00 AA 3B C4 03 41 24 B2 |,ND).")"..;..A$.|
00003390: C8 28 41 24 2C 4A AB 31 29 AA 52 31 24 AA CA 28 |.(A$,J.1).R1$..(|
000033A0: 41 24 2C 4A AA 32 AA 4E 44 29 00 B3 3B C6 03 89 |A$,J.2.ND)..;...|
000033B0: 38 37 36 00 C2 3B C8 03 81 4A B2 31 A4 C3 28 42 |876..;...J.1..(B|
000033C0: 24 29 00 D4 3B CA 03 55 55 24 B2 CA 28 42 24 2C |$)..;..UU$..(B$,|
000033D0: 4A 2C 32 29 00 F0 3B CC 03 8B 55 55 24 B2 22 47 |J,2)..;...UU$."G|
000033E0: 24 22 A7 52 50 24 B2 22 46 24 22 3A 89 39 38 30 |$".RP$."F$":.980|
000033F0: 00 0C 3C CE 03 8B 55 55 24 B2 22 43 44 22 A7 52 |..<...UU$."CD".R|
00003400: 50 24 B2 22 43 45 22 3A 89 39 38 30 00 28 3C D0 |P$."CE":.980.(<.|
00003410: 03 8B 55 55 24 B2 22 47 4B 22 A7 52 50 24 B2 22 |..UU$."GK".RP$."|
00003420: 47 4C 22 3A 89 39 38 30 00 32 3C D2 03 89 20 39 |GL":.980.2<... 9|
00003430: 38 32 00 53 3C D4 03 42 24 B2 CA 28 42 24 2C 31 |82.S<..B$..(B$,1|
00003440: 2C 4A AB 31 29 AA 52 50 24 AA CA 28 42 24 2C 4A |,J.1).RP$..(B$,J|
00003450: AA 32 29 00 5A 3C D6 03 82 4A 00 60 3C D8 03 8E |.2).Z<...J.`<...|
00003460: 00 78 3C DA 03 84 31 35 2C 45 52 24 2C 45 4D 24 |.x<...15,ER$,EM$|
00003470: 2C 45 54 24 2C 45 47 24 00 AB 3C DC 03 45 53 B2 |,ET$,EG$..<..ES.|
00003480: C5 28 45 52 24 29 3A 45 47 24 B2 45 52 24 AA 22 |.(ER$):EG$.ER$."|
00003490: 20 22 AA 45 4D 24 3A 45 4D 24 B2 22 22 3A 45 54 | ".EM$:EM$."":ET|
000034A0: 24 B2 22 22 3A 45 47 24 B2 22 22 00 B1 3C DE 03 |$."":EG$.""..<..|
000034B0: 8E 00 CD 3C E8 03 49 B2 31 3A 4C 4E B2 32 30 30 |...<..I.1:LN.200|
000034C0: 30 3A 8D 31 30 30 34 3A 89 31 31 32 34 00 D7 3C |0:.1004:.1124..<|
000034D0: EC 03 99 22 93 22 3B 00 05 3D EE 03 99 22 C4 45 |...".";..=...".E|
000034E0: 20 56 52 41 41 47 20 27 57 45 49 47 45 52 49 4E | VRAAG 'WEIGERIN|
000034F0: 47 20 49 4E 44 49 45 4E 27 20 53 54 45 4C 54 20 |G INDIEN' STELT |
00003500: 55 20 49 4E 22 00 2F 3D F0 03 99 22 53 54 41 41 |U IN"./=..."STAA|
00003510: 54 20 45 45 4E 20 41 41 4E 54 41 4C 20 54 45 53 |T EEN AANTAL TES|
00003520: 54 53 20 54 45 20 4D 41 4B 45 4E 20 44 49 45 00 |TS TE MAKEN DIE.|
00003530: 5D 3D F2 03 99 22 57 4F 52 44 45 4E 20 54 4F 45 |]=..."WORDEN TOE|
00003540: 47 45 50 41 53 54 20 4F 50 20 49 4E 47 45 56 4F |GEPAST OP INGEVO|
00003550: 45 52 44 45 20 47 45 47 45 56 45 4E 53 00 8E 3D |ERDE GEGEVENS..=|
00003560: F4 03 99 22 56 4F 4F 52 44 41 54 20 44 45 5A 45 |..."VOORDAT DEZE|
00003570: 20 57 4F 52 44 45 4E 20 47 45 41 43 43 45 50 54 | WORDEN GEACCEPT|
00003580: 45 45 52 44 2E 20 D5 20 4B 55 4E 54 22 3B 00 B5 |EERD. . KUNT";..|
00003590: 3D F6 03 99 22 45 4C 4B 45 20 54 45 53 54 20 54 |=..."ELKE TEST T|
000035A0: 4F 45 50 41 53 53 45 4E 20 4F 50 20 45 4C 4B 20 |OEPASSEN OP ELK |
000035B0: 56 45 4C 44 2E 00 E7 3D F8 03 99 22 11 C2 49 4A |VELD...=..."..IJ|
000035C0: 20 45 4C 4B 45 20 54 45 53 54 20 44 49 45 4E 54 | ELKE TEST DIENT|
000035D0: 20 55 20 45 45 4E 20 50 41 53 53 45 4E 44 45 20 | U EEN PASSENDE |
000035E0: 46 4F 55 54 2D 22 3B 00 10 3E FA 03 99 22 4D 45 |FOUT-";..>..."ME|
000035F0: 4C 44 49 4E 47 20 54 45 20 4D 41 4B 45 4E 2C 20 |LDING TE MAKEN, |
00003600: 44 49 45 20 4F 4E 44 45 52 20 4F 50 20 48 45 54 |DIE ONDER OP HET|
00003610: 00 41 3E FC 03 99 22 53 43 48 45 52 4D 20 57 4F |.A>..."SCHERM WO|
00003620: 52 44 54 20 47 45 54 4F 4F 4E 44 20 42 49 4A 20 |RDT GETOOND BIJ |
00003630: 4F 4E 4A 55 49 53 54 45 20 49 4E 56 4F 45 52 22 |ONJUISTE INVOER"|
00003640: 3B 00 72 3E FE 03 99 22 56 41 4E 20 47 45 47 45 |;.r>..."VAN GEGE|
00003650: 56 45 4E 53 2E 20 C8 45 54 20 50 52 4F 47 52 41 |VENS. .ET PROGRA|
00003660: 4D 4D 41 20 4B 45 45 52 54 20 44 41 41 52 4E 41 |MMA KEERT DAARNA|
00003670: 22 3B 00 94 3E 00 04 99 22 54 45 52 55 47 20 4E |";..>..."TERUG N|
00003680: 41 41 52 20 48 45 54 20 49 4E 56 4F 45 52 20 56 |AAR HET INVOER V|
00003690: 45 4C 44 2E 00 C2 3E 02 04 99 22 D5 20 4B 55 4E |ELD...>...". KUN|
000036A0: 54 20 4F 4F 4B 20 4D 45 54 20 41 4C 4C 45 45 4E |T OOK MET ALLEEN|
000036B0: 20 27 D2 C5 D4 D5 D2 CE 27 20 44 45 20 53 54 41 | '......' DE STA|
000036C0: 4E 2D 00 F1 3E 04 04 99 22 44 41 41 52 44 20 46 |N-..>..."DAARD F|
000036D0: 4F 55 54 4D 45 4C 44 49 4E 47 20 49 4E 56 4F 45 |OUTMELDING INVOE|
000036E0: 52 45 4E 20 44 49 45 20 4F 4E 44 45 52 41 41 4E |REN DIE ONDERAAN|
000036F0: 22 00 09 3F 06 04 99 22 48 45 54 20 53 43 48 45 |"..?..."HET SCHE|
00003700: 52 4D 20 53 54 41 41 54 2E 00 34 3F 08 04 99 C8 |RM STAAT..4?....|
00003710: 28 59 24 2C 32 34 29 22 54 4F 45 54 53 20 12 D2 |(Y$,24)"TOETS ..|
00003720: C5 D4 D5 D2 CE 92 20 56 4F 4F 52 20 56 45 52 56 |...... VOOR VERV|
00003730: 4F 4C 47 22 00 4C 3F 0A 04 A1 41 24 3A 8B 41 24 |OLG".L?...A$:.A$|
00003740: B3 B1 C7 28 31 33 29 A7 31 30 33 34 00 77 3F 0C |...(13).1034.w?.|
00003750: 04 99 22 93 C4 45 20 56 4F 4C 47 45 4E 44 45 20 |.."..E VOLGENDE |
00003760: 54 45 53 54 53 20 5A 49 4A 4E 20 56 4F 4F 52 48 |TESTS ZIJN VOORH|
00003770: 41 4E 44 45 4E 3A 22 00 97 3F 0E 04 99 3A 99 A3 |ANDEN:"..?...:..|
00003780: 31 30 29 3B 22 12 C1 4C 47 45 4D 45 4E 45 20 D4 |10);"..LGEMENE .|
00003790: 45 53 54 53 92 11 22 00 C9 3F 10 04 99 22 CE 41 |ESTS.."..?...".A|
000037A0: 41 4D 22 3B A3 31 30 29 3B 22 D6 4F 4F 52 42 45 |AM";.10);".OORBE|
000037B0: 45 4C 44 22 3B A3 32 30 29 3B 22 C6 4F 55 54 4D |ELD";.20);".OUTM|
000037C0: 45 4C 44 49 4E 47 22 3A 99 00 FC 3F 12 04 99 22 |ELDING":...?..."|
000037D0: 27 4E 49 45 54 53 27 22 3B A3 31 33 29 3B 22 2D |'NIETS'";.13);"-|
000037E0: 22 3B A3 32 30 29 3B 22 D5 20 4D 4F 45 54 20 49 |";.20);". MOET I|
000037F0: 45 54 53 20 49 4E 54 59 50 45 4E 22 00 2B 40 14 |ETS INTYPEN".+@.|
00003800: 04 99 22 27 54 45 4B 53 54 27 22 3B A3 31 33 29 |.."'TEKST'";.13)|
00003810: 3B 22 2D 22 3B A3 32 30 29 3B 22 C1 4C 4C 45 45 |;"-";.20);".LLEE|
00003820: 4E 20 47 45 54 41 4C 4C 45 4E 22 00 5B 40 16 04 |N GETALLEN".[@..|
00003830: 99 22 27 4E 55 4D 45 52 49 45 4B 27 22 3B A3 31 |."'NUMERIEK'";.1|
00003840: 33 29 3B 22 2D 22 3B A3 32 30 29 3B 22 C7 45 45 |3);"-";.20);".EE|
00003850: 4E 20 47 45 54 41 4C 4C 45 4E 22 00 81 40 18 04 |N GETALLEN"..@..|
00003860: 99 A3 31 30 29 3B 22 11 12 D4 45 53 54 20 4F 50 |..10);"...EST OP|
00003870: 20 4C 45 4E 47 54 45 20 49 4E 56 4F 45 52 92 11 | LENGTE INVOER..|
00003880: 22 00 BB 40 1A 04 99 22 27 4C 45 4E 47 54 45 3E |"..@..."'LENGTE>|
00003890: 27 22 3B A3 31 30 29 3B 22 4C 45 4E 47 54 45 3E |'";.10);"LENGTE>|
000038A0: 34 22 3B A3 32 30 29 3B 22 CD 41 58 49 4D 41 41 |4";.20);".AXIMAA|
000038B0: 4C 20 34 20 54 45 4B 45 4E 53 22 00 F5 40 1E 04 |L 4 TEKENS"..@..|
000038C0: 99 22 27 4C 45 4E 47 54 45 3C 27 22 3B A3 31 30 |."'LENGTE<'";.10|
000038D0: 29 3B 22 4C 45 4E 47 54 45 3C 37 22 3B A3 32 30 |);"LENGTE<7";.20|
000038E0: 29 3B 22 CD 49 4E 49 4D 41 41 4C 20 37 20 54 45 |);".INIMAAL 7 TE|
000038F0: 4B 45 4E 53 22 00 2D 41 22 04 99 22 27 4C 45 4E |KENS".-A".."'LEN|
00003900: 47 54 45 3D 27 22 3B A3 31 30 29 3B 22 4C 45 4E |GTE='";.10);"LEN|
00003910: 47 54 45 3D 32 22 3B A3 32 30 29 3B 22 CC 45 4E |GTE=2";.20);".EN|
00003920: 47 54 45 20 4D 41 47 20 47 45 45 4E 22 00 47 41 |GTE MAG GEEN".GA|
00003930: 24 04 99 A3 32 30 29 3B 22 32 20 54 45 4B 45 4E |$...20);"2 TEKEN|
00003940: 53 20 5A 49 4A 4E 22 00 7F 41 26 04 99 22 27 4C |S ZIJN"..A&.."'L|
00003950: 45 4E 47 54 45 3C 3E 27 22 3B A3 31 30 29 3B 22 |ENGTE<>'";.10);"|
00003960: 4C 45 4E 47 54 45 3C 3E 33 22 3B A3 32 30 29 3B |LENGTE<>3";.20);|
00003970: 22 CD 4F 45 54 20 33 20 54 45 4B 45 4E 53 22 00 |".OET 3 TEKENS".|
00003980: 95 41 28 04 99 A3 32 30 29 3B 22 4C 41 4E 47 20 |.A(...20);"LANG |
00003990: 5A 49 4A 4E 22 00 C1 41 2A 04 99 C8 28 59 24 2C |ZIJN"..A*...(Y$,|
000039A0: 32 34 29 22 D4 4F 45 54 53 20 12 D2 C5 D4 D5 D2 |24)".OETS ......|
000039B0: CE 92 20 56 4F 4F 52 20 56 45 52 56 4F 4C 47 22 |.. VOOR VERVOLG"|
000039C0: 3B 00 D9 41 2C 04 A1 41 24 3A 8B 41 24 B3 B1 C7 |;..A,..A$:.A$...|
000039D0: 28 31 33 29 A7 31 30 36 38 00 FC 41 2E 04 99 22 |(13).1068..A..."|
000039E0: 93 22 3B 3A 99 A3 30 39 29 3B 22 12 C7 45 54 41 |.";:..09);"..ETA|
000039F0: 4C 4C 45 4E 20 54 45 53 54 92 11 22 00 31 42 32 |LLEN TEST..".1B2|
00003A00: 04 99 22 CE 41 41 4D 20 54 45 53 54 22 3B A3 31 |..".AAM TEST";.1|
00003A10: 30 29 3B 22 D6 4F 4F 52 42 45 45 4C 44 22 3B A3 |0);".OORBEELD";.|
00003A20: 32 32 29 3B 22 C6 4F 55 54 4D 45 4C 44 49 4E 47 |22);".OUTMELDING|
00003A30: 22 00 63 42 34 04 99 3A 99 22 27 3E 27 22 3B A3 |".cB4..:."'>'";.|
00003A40: 30 37 29 3B 22 3E 39 39 22 3B A3 31 36 29 3B 22 |07);">99";.16);"|
00003A50: CE 49 45 54 20 47 52 4F 54 45 52 20 44 41 4E 20 |.IET GROTER DAN |
00003A60: 39 39 22 00 96 42 36 04 99 22 27 3C 27 22 3B A3 |99"..B6.."'<'";.|
00003A70: 30 37 29 3B 22 3C 32 30 22 3B A3 31 36 29 3B 22 |07);"<20";.16);"|
00003A80: CD 4F 45 54 20 32 30 20 4F 46 20 48 4F 47 45 52 |.OET 20 OF HOGER|
00003A90: 20 5A 49 4A 4E 22 00 CE 42 38 04 99 22 27 3D 27 | ZIJN"..B8.."'='|
00003AA0: 22 3B A3 30 37 29 3B 22 3D 36 33 31 22 3B A3 31 |";.07);"=631";.1|
00003AB0: 36 29 3B 22 CD 41 47 20 4E 49 45 54 20 47 45 4C |6);".AG NIET GEL|
00003AC0: 49 4A 4B 20 36 33 32 20 5A 49 4A 4E 22 3B 00 05 |IJK 632 ZIJN";..|
00003AD0: 43 3A 04 99 22 27 3C 3E 27 22 3B A3 34 37 29 3B |C:.."'<>'";.47);|
00003AE0: 22 3C 3E 31 37 22 3B A3 35 36 29 3B 22 CD 4F 45 |"<>17";.56);".OE|
00003AF0: 54 20 47 45 4C 49 4A 4B 20 41 41 4E 20 31 37 20 |T GELIJK AAN 17 |
00003B00: 5A 49 4A 4E 22 00 22 43 3C 04 99 3A 99 A3 30 39 |ZIJN"."C<..:..09|
00003B10: 29 3B 22 12 D4 45 4B 53 54 20 54 45 53 54 45 4E |);"..EKST TESTEN|
00003B20: 20 92 00 54 43 3E 04 99 22 27 3E 27 22 3B A3 30 | ..TC>.."'>'";.0|
00003B30: 37 29 3B 22 3E 27 44 27 22 3B A3 31 36 29 3B 22 |7);">'D'";.16);"|
00003B40: C1 4C 46 41 42 45 54 49 53 43 48 20 54 2F 4D 20 |.LFABETISCH T/M |
00003B50: 27 44 27 22 00 8A 43 42 04 99 22 27 3C 27 22 3B |'D'"..CB.."'<'";|
00003B60: A3 30 37 29 3B 22 3C 27 4A 4F 27 22 3B A3 31 36 |.07);"<'JO'";.16|
00003B70: 29 3B 22 C1 4C 46 41 42 45 54 49 53 43 48 20 56 |);".LFABETISCH V|
00003B80: 41 4E 41 46 20 27 4A 4F 27 22 00 BE 43 46 04 99 |ANAF 'JO'"..CF..|
00003B90: 22 27 3D 27 22 3B A3 30 37 29 3B 22 3D 27 42 41 |"'='";.07);"='BA|
00003BA0: 4C 27 22 3B A3 31 36 29 3B 22 CD 41 47 20 47 45 |L'";.16);".AG GE|
00003BB0: 45 4E 20 27 42 41 4C 27 20 5A 49 4A 4E 22 00 F0 |EN 'BAL' ZIJN"..|
00003BC0: 43 48 04 99 22 27 3C 3E 27 22 3B A3 30 37 29 3B |CH.."'<>'";.07);|
00003BD0: 22 3C 3E 27 4D 4F 4C 27 22 3B A3 31 36 29 3B 22 |"<>'MOL'";.16);"|
00003BE0: CD 4F 45 54 20 27 4D 4F 4C 27 20 5A 49 4A 4E 22 |.OET 'MOL' ZIJN"|
00003BF0: 00 2A 44 4C 04 99 22 42 45 56 41 54 22 A3 37 29 |.*DL.."BEVAT".7)|
00003C00: 22 42 45 56 41 54 27 41 42 43 27 22 3A 99 A3 31 |"BEVAT'ABC'":..1|
00003C10: 36 29 22 CD 41 47 20 47 45 45 4E 20 27 41 42 43 |6)".AG GEEN 'ABC|
00003C20: 27 20 42 45 56 41 54 54 45 4E 00 5C 44 4E 04 99 |' BEVATTEN.\DN..|
00003C30: 22 11 11 D5 20 4B 55 4E 54 20 4D 45 54 20 12 D2 |"... KUNT MET ..|
00003C40: C5 D4 D5 D2 CE 92 20 42 49 4A 20 44 45 20 56 52 |...... BIJ DE VR|
00003C50: 41 41 47 20 27 57 45 49 47 45 52 2D 00 8D 44 50 |AAG 'WEIGER-..DP|
00003C60: 04 99 22 49 4E 47 20 49 4E 44 49 45 4E 27 20 48 |.."ING INDIEN' H|
00003C70: 45 54 20 56 45 52 44 45 52 20 4F 50 47 45 56 45 |ET VERDER OPGEVE|
00003C80: 4E 20 56 41 4E 20 54 45 53 54 53 22 3B 00 AC 44 |N VAN TESTS";..D|
00003C90: 51 04 99 22 42 49 4A 20 45 45 4E 20 56 45 4C 44 |Q.."BIJ EEN VELD|
00003CA0: 20 42 45 45 49 4E 44 49 47 45 4E 2E 00 DF 44 52 | BEEINDIGEN...DR|
00003CB0: 04 99 22 12 D4 59 50 45 20 C8 C5 CC D0 20 4F 4D |.."..YPE .... OM|
00003CC0: 20 44 45 5A 45 20 49 4E 53 54 52 55 43 54 49 45 | DEZE INSTRUCTIE|
00003CD0: 20 54 45 20 48 45 52 48 41 4C 45 4E 92 91 22 00 | TE HERHALEN..".|
00003CE0: 0B 45 54 04 99 C8 28 59 24 2C 32 34 29 22 D4 4F |.ET...(Y$,24)".O|
00003CF0: 45 54 53 20 12 D2 C5 D4 D5 D2 CE 92 20 56 4F 4F |ETS ........ VOO|
00003D00: 52 20 56 45 52 56 4F 4C 47 22 3B 00 23 45 56 04 |R VERVOLG";.#EV.|
00003D10: A1 41 24 3A 8B 41 24 B3 B1 C7 28 31 33 29 A7 31 |.A$:.A$...(13).1|
00003D20: 31 31 30 00 34 45 58 04 99 22 93 22 3A 81 4A B2 |110.4EX..".":.J.|
00003D30: 31 A4 4E 46 00 5F 45 5A 04 99 C8 28 59 24 2C 59 |1.NF._EZ...(Y$,Y|
00003D40: 25 28 4A 29 29 3B A3 58 25 28 4A 29 29 3B 50 52 |%(J));.X%(J));PR|
00003D50: 24 28 4A 29 3B 53 44 24 28 4A 29 3A 82 20 4A 00 |$(J);SD$(J):. J.|
00003D60: 8E 45 5C 04 99 C8 28 59 24 2C 59 25 28 49 29 29 |.E\...(Y$,Y%(I))|
00003D70: 3B A3 58 25 28 49 29 29 3B 22 12 22 3B 50 52 24 |;.X%(I));".";PR$|
00003D80: 28 49 29 3B 53 44 24 28 49 29 3B 22 92 22 00 94 |(I);SD$(I);"."..|
00003D90: 45 60 04 8E 00 BA 45 64 04 81 49 B2 31 A4 4E 46 |E`....Ed..I.1.NF|
00003DA0: 3A 49 24 B2 C4 28 49 29 3A 8B 20 54 24 28 49 29 |:I$..(I):. T$(I)|
00003DB0: B2 22 44 22 A7 20 31 31 33 32 00 E9 45 68 04 99 |."D". 1132..Eh..|
00003DC0: C8 28 59 24 2C 59 25 28 49 29 29 3B A3 58 25 28 |.(Y$,Y%(I));.X%(|
00003DD0: 49 29 29 3B 22 12 22 3B 50 52 24 28 49 29 3B 53 |I));".";PR$(I);S|
00003DE0: 44 24 28 49 29 3B 22 92 22 00 1F 46 6C 04 8B 20 |D$(I);"."..Fl.. |
00003DF0: 49 B1 31 20 A7 99 C8 28 59 24 2C 59 25 28 49 AB |I.1 ...(Y$,Y%(I.|
00003E00: 31 29 29 3B A3 58 25 28 49 AB 31 29 29 3B 50 52 |1));.X%(I.1));PR|
00003E10: 24 28 49 AB 31 29 3B 53 44 24 28 49 AB 31 29 00 |$(I.1);SD$(I.1).|
00003E20: 37 46 6E 04 99 C8 28 59 24 2C 32 33 29 3B 53 50 |7Fn...(Y$,23);SP|
00003E30: 24 3A 99 53 50 24 3B 00 4D 46 70 04 4C 4E B2 4C |$:.SP$;.MFp.LN.L|
00003E40: 4E AA 31 30 3A 4B 24 B2 54 24 28 49 29 00 94 46 |N.10:K$.T$(I)..F|
00003E50: 72 04 98 32 2C 4C 4E 3B 22 58 25 3D 58 25 28 22 |r..2,LN;"X%=X%("|
00003E60: 3B 49 24 3B 22 29 2B 4C 45 4E 28 50 52 24 28 22 |;I$;")+LEN(PR$("|
00003E70: 3B 49 24 3B 22 29 29 3A 59 25 3D 59 25 28 22 3B |;I$;")):Y%=Y%(";|
00003E80: 49 24 3B 22 29 3A 4C 25 3D 4C 25 28 22 3B 49 24 |I$;"):L%=L%(";I$|
00003E90: 3B 22 29 22 00 CF 46 74 04 42 4C B2 4C 4E 3A 98 |;")"..Ft.BL.LN:.|
00003EA0: 32 2C 42 4C AA 31 3B 22 49 46 55 46 3C 3E 30 41 |2,BL.1;"IFUF<>0A|
00003EB0: 4E 44 47 24 3D 22 3B 51 24 3B 51 24 3B 22 54 48 |NDG$=";Q$;Q$;"TH|
00003EC0: C5 47 24 3D 47 24 28 22 3B 49 24 3B 22 29 22 00 |.G$=G$(";I$;")".|
00003ED0: FF 46 78 04 4C 4E B2 4C 4E AA 31 30 3A 47 53 24 |.Fx.LN.LN.10:GS$|
00003EE0: B2 22 33 34 30 30 30 22 3A 8B 20 4B 24 B2 22 44 |."34000":. K$."D|
00003EF0: 22 20 A7 20 47 53 24 B2 22 34 39 30 30 30 22 00 |" . GS$."49000".|
00003F00: 36 47 7A 04 98 32 2C 4C 4E 3B 22 47 4F D3 22 3B |6Gz..2,LN;"GO.";|
00003F10: 47 53 24 3B 22 3A 3F 4C 45 C6 28 59 24 2C 32 33 |GS$;":?LE.(Y$,23|
00003F20: 29 3B 53 50 24 3A 47 24 28 22 3B 49 24 3B 22 29 |);SP$:G$(";I$;")|
00003F30: 3D 49 4E 24 22 3B 00 65 47 7C 04 98 32 2C 22 3A |=IN$";.eG|..2,":|
00003F40: 49 46 47 24 28 22 3B 49 24 3B 22 29 3D 43 C8 28 |IFG$(";I$;")=C.(|
00003F50: 31 33 33 29 54 48 C5 20 52 45 D4 22 3A 44 25 28 |133)TH. RE.":D%(|
00003F60: 49 29 B2 4C 4E 00 A4 47 7E 04 4C 4E B2 4C 4E AA |I).LN..G~.LN.LN.|
00003F70: 31 30 3A 98 32 2C 4C 4E 3B 22 49 46 20 55 46 3C |10:.2,LN;"IF UF<|
00003F80: 3E 30 20 41 4E 44 20 4C 45 4E 28 49 4E 24 29 3D |>0 AND LEN(IN$)=|
00003F90: 30 20 54 48 C5 20 47 24 28 22 3B 49 24 3B 22 29 |0 TH. G$(";I$;")|
00003FA0: 3D 47 24 22 00 BC 47 80 04 8B 4B 24 B2 22 41 22 |=G$"..G...K$."A"|
00003FB0: B0 4B 24 B2 22 44 22 A7 31 31 37 30 00 DB 47 82 |.K$."D".1170..G.|
00003FC0: 04 98 32 2C 4C 4E AA 31 3B 22 49 46 55 46 3D 30 |..2,LN.1;"IFUF=0|
00003FD0: 20 54 48 C5 20 22 3B 4C 4E AA 34 00 17 48 84 04 | TH. ";LN.4..H..|
00003FE0: 98 32 2C 4C 4E AA 32 3B 22 42 24 3D 47 24 28 22 |.2,LN.2;"B$=G$("|
00003FF0: 3B 49 24 3B 22 29 3A 41 24 3D 22 3B 51 24 3B 22 |;I$;"):A$=";Q$;"|
00004000: 4D 22 3B 51 24 3B 22 3A 47 4F D3 34 31 30 30 30 |M";Q$;":GO.41000|
00004010: 3A 47 31 3D 49 39 22 00 58 48 86 04 98 32 2C 4C |:G1=I9".XH...2,L|
00004020: 4E AA 33 3B 22 49 46 47 31 3E 30 54 48 C5 47 47 |N.3;"IFG1>0TH.GG|
00004030: 3D 56 C1 28 47 24 28 22 3B 49 24 3B 22 29 29 2B |=V.(G$(";I$;"))+|
00004040: 56 C1 28 47 24 29 3A 47 24 28 22 3B 49 24 3B 22 |V.(G$):G$(";I$;"|
00004050: 29 3D 53 54 52 24 22 3B 00 66 48 88 04 98 32 2C |)=STR$";.fH...2,|
00004060: 22 28 47 47 29 22 00 84 48 8A 04 98 32 2C 4C 4E |"(GG)"..H...2,LN|
00004070: AA 34 3B 22 49 46 55 46 3D 30 54 48 C5 22 3B 4C |.4;"IFUF=0TH.";L|
00004080: 4E AA 31 30 00 C0 48 8C 04 98 32 2C 4C 4E AA 35 |N.10..H...2,LN.5|
00004090: 3B 22 42 24 3D 47 24 28 22 3B 49 24 3B 22 29 3A |;"B$=G$(";I$;"):|
000040A0: 41 24 3D 22 3B 51 24 3B 22 4C 22 3B 51 24 3B 22 |A$=";Q$;"L";Q$;"|
000040B0: 3A 47 4F D3 34 31 30 30 30 3A 47 31 3D 49 39 22 |:GO.41000:G1=I9"|
000040C0: 00 01 49 8E 04 98 32 2C 4C 4E AA 36 3B 22 49 46 |..I...2,LN.6;"IF|
000040D0: 47 31 3E 30 54 48 C5 47 47 3D 56 C1 28 47 24 29 |G1>0TH.GG=V.(G$)|
000040E0: 2D 56 C1 28 47 24 28 22 3B 49 24 3B 22 29 29 3A |-V.(G$(";I$;")):|
000040F0: 47 24 28 22 3B 49 24 3B 22 29 3D 53 54 52 24 22 |G$(";I$;")=STR$"|
00004100: 3B 00 0F 49 90 04 98 32 2C 22 28 47 47 29 22 00 |;..I...2,"(GG)".|
00004110: 20 49 92 04 8B 4B 24 B2 22 44 22 A7 31 32 36 32 | I...K$."D".1262|
00004120: 00 3E 49 94 04 99 C8 28 59 24 2C 32 33 29 3B A3 |.>I....(Y$,23);.|
00004130: 32 38 29 3B 22 D6 45 4C 44 20 23 22 3B 49 00 70 |28);".ELD #";I.p|
00004140: 49 96 04 99 C8 28 59 24 2C 32 34 29 3B 53 50 24 |I....(Y$,24);SP$|
00004150: 3A 99 C8 28 59 24 2C 32 34 29 3B 22 D7 45 49 47 |:..(Y$,24);".EIG|
00004160: 45 52 49 4E 47 20 49 4E 44 49 45 4E 3A 20 22 3B |ERING INDIEN: ";|
00004170: 00 93 49 98 04 58 25 B2 31 38 3A 59 25 B2 32 34 |..I..X%.18:Y%.24|
00004180: 3A 4C 25 B2 32 35 3A 8D 38 34 32 3A 42 49 24 B2 |:L%.25:.842:BI$.|
00004190: 49 4E 24 00 A5 49 9A 04 8B 42 49 24 B3 B1 22 22 |IN$..I...BI$..""|
000041A0: A7 31 31 39 32 00 BD 49 9C 04 8B 4B 24 B2 22 41 |.1192..I...K$."A|
000041B0: 22 B0 4B 24 B2 22 44 22 A7 31 31 38 38 00 F2 49 |".K$."D".1188..I|
000041C0: 9E 04 4C 4E B2 4C 4E AA 31 30 3A 98 32 2C 4C 4E |..LN.LN.10:.2,LN|
000041D0: 3B 22 47 24 28 22 3B 49 24 3B 22 29 3D 53 54 52 |;"G$(";I$;")=STR|
000041E0: 24 28 56 C1 28 47 24 28 22 3B 49 24 3B 22 29 29 |$(V.(G$(";I$;"))|
000041F0: 29 22 00 19 4A A0 04 98 32 2C 4C 4E AA 35 3B 22 |)"..J...2,LN.5;"|
00004200: 49 46 20 56 C1 28 47 24 28 22 3B 49 24 3B 22 29 |IF V.(G$(";I$;")|
00004210: 29 3E 30 20 54 48 C5 22 3B 00 4F 4A A2 04 98 32 |)>0 TH.";.OJ...2|
00004220: 2C 22 47 24 28 22 3B 49 24 3B 22 29 3D 52 49 C7 |,"G$(";I$;")=RI.|
00004230: 28 47 24 28 22 3B 49 24 3B 22 29 2C 4C 45 4E 28 |(G$(";I$;"),LEN(|
00004240: 47 24 28 22 3B 49 24 3B 22 29 29 2D 31 29 22 00 |G$(";I$;"))-1)".|
00004250: 81 4A A4 04 4C 4E B2 4C 4E AA 31 30 3A 98 32 2C |.J..LN.LN.10:.2,|
00004260: 4C 4E 3B 22 49 46 4C 45 4E 28 47 24 28 22 3B 49 |LN;"IFLEN(G$(";I|
00004270: 24 3B 22 29 29 3C 4C 25 28 22 3B C5 28 49 24 29 |$;"))<L%(";.(I$)|
00004280: 3B 00 AC 4A A6 04 98 32 2C 22 29 20 54 48 C5 20 |;..J...2,") TH. |
00004290: 49 3D 22 3B C5 28 49 24 29 3B 22 3A 47 4F D3 34 |I=";.(I$);":GO.4|
000042A0: 30 35 30 30 22 3A 89 20 31 32 36 32 00 C8 4A A8 |0500":. 1262..J.|
000042B0: 04 8B 42 49 24 B2 22 48 45 4C 50 22 A7 8D 31 30 |..BI$."HELP"..10|
000042C0: 30 34 3A 89 31 31 37 32 00 D3 4A A9 04 8D 20 31 |04:.1172..J... 1|
000042D0: 37 34 30 00 0E 4B AA 04 42 24 B2 42 49 24 3A 45 |740..K..B$.BI$:E|
000042E0: 53 B2 30 3A 41 24 B2 22 54 45 4B 53 54 22 3A 8D |S.0:A$."TEKST":.|
000042F0: 31 36 39 34 3A 8B 49 39 B2 31 AF C3 28 42 49 24 |1694:.I9.1..(BI$|
00004300: 29 B2 35 A7 45 53 B2 31 3A 89 31 32 31 38 00 40 |).5.ES.1:.1218.@|
00004310: 4B AC 04 41 24 B2 22 4E 55 4D 45 52 49 45 4B 22 |K..A$."NUMERIEK"|
00004320: 3A 8D 31 36 39 34 3A 8B 49 39 B2 31 AF C3 28 42 |:.1694:.I9.1..(B|
00004330: 49 24 29 B2 38 A7 45 53 B2 32 3A 89 31 32 31 38 |I$).8.ES.2:.1218|
00004340: 00 70 4B AE 04 41 24 B2 22 4E 49 45 54 53 22 3A |.pK..A$."NIETS":|
00004350: 8D 31 36 39 34 3A 8B 49 39 B2 31 20 AF C3 28 42 |.1694:.I9.1 ..(B|
00004360: 49 24 29 B2 35 A7 45 53 B2 33 3A 89 31 32 31 38 |I$).5.ES.3:.1218|
00004370: 00 85 4B B0 04 41 24 B2 22 42 45 56 41 54 22 3A |..K..A$."BEVAT":|
00004380: 8D 31 36 39 34 00 BA 4B B2 04 8B 49 39 B2 31 AF |.1694..K...I9.1.|
00004390: C3 28 42 49 24 29 B1 35 A7 42 4B 24 B2 CA 28 42 |.(BI$).5.BK$..(B|
000043A0: 49 24 2C 39 29 3A 8D 31 37 32 30 3A 8B 4F 4B A7 |I$,9):.1720:.OK.|
000043B0: 45 53 B2 34 3A 89 31 32 31 38 00 E6 4B B4 04 41 |ES.4:.1218..K..A|
000043C0: 24 B2 22 4C 45 4E 47 54 45 22 3A 8D 31 36 39 34 |$."LENGTE":.1694|
000043D0: 3A 8B 49 39 B3 B1 31 B0 C3 28 42 49 24 29 B3 B2 |:.I9..1..(BI$)..|
000043E0: 37 A7 31 32 31 30 00 16 4C B6 04 42 4A 24 B2 CA |7.1210..L..BJ$..|
000043F0: 28 42 49 24 2C 37 29 3A 8D 31 37 30 34 3A 8B 4F |(BI$,7):.1704:.O|
00004400: 4B A7 8D 31 37 31 34 3A 8B 4F 4B A7 45 53 B2 35 |K..1714:.OK.ES.5|
00004410: 3A 89 31 32 31 38 00 32 4C BA 04 42 4A 24 B2 42 |:.1218.2L..BJ$.B|
00004420: 49 24 3A 8D 31 37 30 34 3A 8B A8 4F 4B A7 31 32 |I$:.1704:..OK.12|
00004430: 31 36 00 4B 4C BC 04 8D 31 37 32 38 3A 8B 4F 4B |16.KL...1728:.OK|
00004440: A7 45 53 B2 36 3A 89 31 32 31 38 00 64 4C BE 04 |.ES.6:.1218.dL..|
00004450: 8D 31 37 32 30 3A 8B 4F 4B A7 45 53 B2 36 3A 89 |.1720:.OK.ES.6:.|
00004460: 31 32 31 38 00 9D 4C C0 04 99 C8 28 59 24 2C 32 |1218..L....(Y$,2|
00004470: 33 29 3B 22 D3 50 45 4C 46 4F 55 54 2E 20 D6 45 |3);".PELFOUT. .E|
00004480: 52 42 45 54 45 52 20 4F 46 20 54 59 50 20 27 48 |RBETER OF TYP 'H|
00004490: 45 4C 50 27 2E 22 3A 89 20 31 31 37 34 00 B4 4C |ELP'.":. 1174..L|
000044A0: C2 04 99 C8 28 59 24 2C 32 33 29 3B 53 50 24 3A |....(Y$,23);SP$:|
000044B0: 99 53 50 24 00 E9 4C C4 04 99 C8 28 59 24 2C 32 |.SP$..L....(Y$,2|
000044C0: 34 29 22 C6 4F 55 54 4D 45 4C 44 49 4E 47 20 3F |4)".OUTMELDING ?|
000044D0: 20 22 3A 99 22 28 43 52 20 3D 20 22 3B 45 53 24 | ":."(CR = ";ES$|
000044E0: 28 45 53 29 3B 22 29 22 3B 00 04 4D C6 04 58 25 |(ES);")";..M..X%|
000044F0: B2 31 35 3A 59 25 B2 32 34 3A 4C 25 B2 32 33 3A |.15:Y%.24:L%.23:|
00004500: 8D 38 34 32 00 28 4D C8 04 45 4D 24 B2 49 4E 24 |.842.(M..EM$.IN$|
00004510: 3A 8B 45 4D 24 B2 22 48 45 4C 50 22 A7 8D 31 30 |:.EM$."HELP"..10|
00004520: 30 34 3A 89 31 32 31 38 00 51 4D CA 04 99 C8 28 |04:.1218.QM....(|
00004530: 59 24 2C 32 35 29 3B 53 50 24 3B 3A 8B 20 45 4D |Y$,25);SP$;:. EM|
00004540: 24 B2 22 22 20 A7 45 4D 24 B2 45 53 24 28 45 53 |$."" .EM$.ES$(ES|
00004550: 29 00 8A 4D CC 04 8B C3 28 45 4D 24 29 B1 33 30 |)..M....(EM$).30|
00004560: A7 20 99 C8 28 28 59 24 2C 32 33 29 3B 3B 22 C6 |. ..((Y$,23);;".|
00004570: 4F 55 54 4D 45 4C 44 49 4E 47 20 54 45 20 4C 41 |OUTMELDING TE LA|
00004580: 4E 47 2E 22 3A 89 31 32 32 30 00 B0 4D CE 04 91 |NG.":.1220..M...|
00004590: 45 53 89 31 32 33 32 2C 31 32 33 36 2C 31 32 34 |ES.1232,1236,124|
000045A0: 30 2C 31 32 34 34 2C 31 32 35 30 2C 31 32 35 34 |0,1244,1250,1254|
000045B0: 00 F1 4D D0 04 4C 4E B2 4C 4E AA 31 30 3A 98 32 |..M..LN.LN.10:.2|
000045C0: 2C 4C 4E 3B 22 43 44 24 3D 47 24 28 22 3B 49 24 |,LN;"CD$=G$(";I$|
000045D0: 3B 22 29 3A 45 3D 30 3A 47 4F D3 33 30 30 30 30 |;"):E=0:GO.30000|
000045E0: 3A 49 46 45 3C 3E 31 54 48 C5 22 3B 4C 4E AA 32 |:IFE<>1TH.";LN.2|
000045F0: 30 00 2C 4E D2 04 4C 4E B2 4C 4E AA 31 30 3A 98 |0.,N..LN.LN.10:.|
00004600: 32 2C 4C 4E 3B 22 3F 4C 45 C6 28 59 24 2C 32 33 |2,LN;"?LE.(Y$,23|
00004610: 29 3B 22 3B 51 24 3B 45 4D 24 3B 51 24 3B 22 3A |);";Q$;EM$;Q$;":|
00004620: 47 CF 22 3B 42 4C 3A 89 31 31 37 32 00 6D 4E D4 |G.";BL:.1172.mN.|
00004630: 04 4C 4E B2 4C 4E AA 31 30 3A 98 32 2C 4C 4E 3B |.LN.LN.10:.2,LN;|
00004640: 22 43 44 24 3D 47 24 28 22 3B 49 24 3B 22 29 3A |"CD$=G$(";I$;"):|
00004650: 45 3D 30 3A 47 4F D3 33 31 30 30 30 3A 49 46 45 |E=0:GO.31000:IFE|
00004660: 3C 3E 31 54 48 C5 22 3B 4C 4E AA 32 30 00 A8 4E |<>1TH.";LN.20..N|
00004670: D6 04 4C 4E B2 4C 4E AA 31 30 3A 98 32 2C 4C 4E |..LN.LN.10:.2,LN|
00004680: 3B 22 3F 4C 45 C6 28 59 24 2C 32 33 29 3B 22 3B |;"?LE.(Y$,23);";|
00004690: 51 24 3B 45 4D 24 3B 51 24 3B 22 3A 47 CF 22 3B |Q$;EM$;Q$;":G.";|
000046A0: 42 4C 3A 89 31 31 37 32 00 DB 4E D8 04 4C 4E B2 |BL:.1172..N..LN.|
000046B0: 4C 4E AA 31 30 3A 98 32 2C 4C 4E 3B 22 49 46 4C |LN.10:.2,LN;"IFL|
000046C0: 45 4E 28 47 24 28 22 3B 49 24 3B 22 29 29 3C 3E |EN(G$(";I$;"))<>|
000046D0: 30 54 48 C5 22 3B 4C 4E AA 32 30 00 16 4F DA 04 |0TH.";LN.20..O..|
000046E0: 4C 4E B2 4C 4E AA 31 30 3A 98 32 2C 4C 4E 3B 22 |LN.LN.10:.2,LN;"|
000046F0: 3F 4C 45 C6 28 59 24 2C 32 33 29 3B 22 3B 51 24 |?LE.(Y$,23);";Q$|
00004700: 3B 45 4D 24 3B 51 24 3B 22 3A 47 CF 22 3B 42 4C |;EM$;Q$;":G.";BL|
00004710: 3A 89 31 31 37 32 00 4D 4F DC 04 4C 4E B2 4C 4E |:.1172.MO..LN.LN|
00004720: AA 31 30 3A 98 32 2C 4C 4E 3B 22 42 24 3D 47 24 |.10:.2,LN;"B$=G$|
00004730: 28 22 3B 49 24 3B 22 29 3A 41 24 3D 22 3B 42 4B |(";I$;"):A$=";BK|
00004740: 24 3B 22 3A 47 4F D3 34 31 30 30 30 22 00 74 4F |$;":GO.41000".tO|
00004750: DE 04 4C 4E B2 4C 4E AA 31 30 3A 98 32 2C 4C 4E |..LN.LN.10:.2,LN|
00004760: 3B 22 49 46 20 49 39 3D 30 20 54 48 C5 22 3B 4C |;"IF I9=0 TH.";L|
00004770: 4E AA 32 30 00 AF 4F E0 04 4C 4E B2 4C 4E AA 31 |N.20..O..LN.LN.1|
00004780: 30 3A 98 32 2C 4C 4E 3B 22 3F 4C 45 C6 28 59 24 |0:.2,LN;"?LE.(Y$|
00004790: 2C 32 33 29 3B 22 3B 51 24 3B 45 4D 24 3B 51 24 |,23);";Q$;EM$;Q$|
000047A0: 3B 22 3A 47 CF 22 3B 42 4C 3A 89 31 31 37 32 00 |;":G.";BL:.1172.|
000047B0: EB 4F E2 04 4C 4E B2 4C 4E AA 31 30 3A 98 32 2C |.O..LN.LN.10:.2,|
000047C0: 4C 4E 3B 22 49 46 4E 4F 54 28 4C 45 4E 28 47 24 |LN;"IFNOT(LEN(G$|
000047D0: 28 22 3B 49 24 3B 22 29 29 22 3B 42 4A 24 3B 22 |(";I$;"))";BJ$;"|
000047E0: 29 54 48 C5 22 3B 4C 4E AA 32 30 00 26 50 E4 04 |)TH.";LN.20.&P..|
000047F0: 4C 4E B2 4C 4E AA 31 30 3A 98 32 2C 4C 4E 3B 22 |LN.LN.10:.2,LN;"|
00004800: 3F 4C 45 C6 28 59 24 2C 32 33 29 3B 22 3B 51 24 |?LE.(Y$,23);";Q$|
00004810: 3B 45 4D 24 3B 51 24 3B 22 3A 47 CF 22 3B 42 4C |;EM$;Q$;":G.";BL|
00004820: 3A 89 31 31 37 32 00 46 50 E6 04 4C 4E B2 4C 4E |:.1172.FP..LN.LN|
00004830: AA 31 30 3A 8B C8 28 42 4B 24 2C 31 29 B3 B1 51 |.10:..(BK$,1)..Q|
00004840: 24 A7 31 32 35 38 00 7A 50 E8 04 98 32 2C 4C 4E |$.1258.zP...2,LN|
00004850: 3B 22 49 46 4E 4F 54 28 47 24 28 22 3B 49 24 3B |;"IFNOT(G$(";I$;|
00004860: 22 29 22 3B 42 4A 24 3B 22 29 54 48 C5 22 3B 4C |")";BJ$;")TH.";L|
00004870: 4E AA 32 30 3A 89 31 32 36 30 00 AC 50 EA 04 98 |N.20:.1260..P...|
00004880: 32 2C 4C 4E 3B 22 49 46 4E 4F 54 28 56 C1 28 47 |2,LN;"IFNOT(V.(G|
00004890: 24 28 22 3B 49 24 3B 22 29 29 22 3B 42 4A 24 3B |$(";I$;"))";BJ$;|
000048A0: 22 29 54 48 C5 22 3B 4C 4E AA 32 30 00 E8 50 EC |")TH.";LN.20..P.|
000048B0: 04 4C 4E B2 4C 4E AA 31 30 3A 98 32 2C 4C 4E 3B |.LN.LN.10:.2,LN;|
000048C0: 22 3F 4C 45 C6 28 59 24 2C 32 33 29 3B 22 3B 51 |"?LE.(Y$,23);";Q|
000048D0: 24 3B 45 4D 24 3B 51 24 3B 22 3A 47 CF 22 3B 42 |$;EM$;Q$;":G.";B|
000048E0: 4C 3A 89 20 31 31 37 32 00 01 51 EE 04 4C 4E B2 |L:. 1172..Q..LN.|
000048F0: 4C 4E AA 31 30 3A 98 32 2C 4C 4E 3B 22 52 45 D4 |LN.10:.2,LN;"RE.|
00004900: 22 00 21 51 F0 04 8B 49 B2 4B 46 A7 4B 46 24 B2 |".!Q...I.KF.KF$.|
00004910: CA 28 C4 28 44 25 28 4B 46 29 AB 31 30 29 2C 32 |.(.(D%(KF).10),2|
00004920: 29 00 33 51 F2 04 82 49 3A 8B 4E 53 B2 30 A7 31 |).3Q...I:.NS.0.1|
00004930: 32 39 32 00 64 51 F6 04 4C 4E B2 4C 4E AA 31 30 |292.dQ..LN.LN.10|
00004940: 3A 53 4C B2 4C 4E 3A 98 32 2C 4C 4E 3B 22 49 46 |:SL.LN:.2,LN;"IF|
00004950: 20 43 53 25 28 49 29 20 3D 20 30 20 54 48 C5 20 | CS%(I) = 0 TH. |
00004960: 52 45 D4 22 00 A3 51 F8 04 4C 4E B2 4C 4E AA 31 |RE."..Q..LN.LN.1|
00004970: 30 3A 98 32 2C 4C 4E 3B 22 58 25 3D 43 58 25 28 |0:.2,LN;"X%=CX%(|
00004980: 49 29 2B 4C 45 4E 28 43 50 24 28 49 29 29 3A 59 |I)+LEN(CP$(I)):Y|
00004990: 25 3D 43 59 25 28 49 29 3A 4C 25 3D 43 4C 25 28 |%=CY%(I):L%=CL%(|
000049A0: 49 29 22 00 DA 51 FA 04 4C 4E B2 4C 4E AA 31 30 |I)"..Q..LN.LN.10|
000049B0: 3A 98 32 2C 4C 4E 3B 22 47 4F D3 33 34 30 30 30 |:.2,LN;"GO.34000|
000049C0: 3A 3F 4C 45 C6 28 59 24 2C 32 33 29 3B 53 50 24 |:?LE.(Y$,23);SP$|
000049D0: 3A 53 55 24 3D 49 4E 24 22 3B 00 F8 51 FC 04 98 |:SU$=IN$";..Q...|
000049E0: 32 2C 22 3A 49 46 53 55 24 3D 43 C8 28 31 33 33 |2,":IFSU$=C.(133|
000049F0: 29 54 48 C5 52 45 D4 22 00 27 52 FE 04 4C 4E B2 |)TH.RE.".'R..LN.|
00004A00: 4C 4E AA 31 30 3A 98 32 2C 4C 4E 3B 22 49 46 20 |LN.10:.2,LN;"IF |
00004A10: 4C 45 4E 28 53 55 24 29 20 3E 20 30 20 54 48 C5 |LEN(SU$) > 0 TH.|
00004A20: 22 3B 4C 4E AA 32 30 00 49 52 00 05 4C 4E B2 4C |";LN.20.IR..LN.L|
00004A30: 4E AA 31 30 3A 98 32 2C 4C 4E 3B 22 3F 4C 45 C6 |N.10:.2,LN;"?LE.|
00004A40: 28 59 24 2C 32 33 29 3B 22 00 84 52 02 05 98 32 |(Y$,23);"..R...2|
00004A50: 2C 4C 4E AA 35 3B 22 3F 22 3B 51 24 3B 22 2A 20 |,LN.5;"?";Q$;"* |
00004A60: D5 20 4D 4F 45 54 20 49 45 54 53 20 49 4E 56 4F |. MOET IETS INVO|
00004A70: 45 52 45 4E 20 2A 22 3B 51 24 3B 22 3A 20 47 CF |EREN *";Q$;": G.|
00004A80: 22 3B 53 4C 00 BE 52 04 05 4C 4E B2 4C 4E AA 31 |";SL..R..LN.LN.1|
00004A90: 30 3A 98 32 2C 4C 4E 3B 22 43 44 24 3D 53 55 24 |0:.2,LN;"CD$=SU$|
00004AA0: 3A 45 3D 30 3A 47 4F D3 33 30 30 30 30 3A 49 46 |:E=0:GO.30000:IF|
00004AB0: 45 3C 3E 31 54 48 C5 22 3B 4C 4E AA 32 30 00 E0 |E<>1TH.";LN.20..|
00004AC0: 52 06 05 4C 4E B2 4C 4E AA 31 30 3A 98 32 2C 4C |R..LN.LN.10:.2,L|
00004AD0: 4E 3B 22 3F 4C 45 C6 28 59 24 2C 32 33 29 3B 22 |N;"?LE.(Y$,23);"|
00004AE0: 00 19 53 08 05 98 32 2C 4C 4E AA 35 3B 22 3F 22 |..S...2,LN.5;"?"|
00004AF0: 3B 51 24 3B 22 2A 20 C1 4C 4C 45 45 4E 20 47 45 |;Q$;"* .LLEEN GE|
00004B00: 54 41 4C 4C 45 4E 20 41 55 42 20 2A 22 3B 51 24 |TALLEN AUB *";Q$|
00004B10: 3B 22 3A 47 CF 22 3B 53 4C 00 3E 53 0A 05 4C 4E |;":G.";SL.>S..LN|
00004B20: B2 4C 4E AA 31 30 3A 98 32 2C 4C 4E 3B 22 43 44 |.LN.10:.2,LN;"CD|
00004B30: 28 49 29 20 3D 20 56 C1 28 53 55 24 29 22 00 57 |(I) = V.(SU$)".W|
00004B40: 53 0C 05 4C 4E B2 4C 4E AA 31 30 3A 98 32 2C 4C |S..LN.LN.10:.2,L|
00004B50: 4E 3B 22 52 45 D4 22 00 7A 53 0E 05 98 32 2C 22 |N;"RE.".zS...2,"|
00004B60: 31 30 31 30 20 49 46 20 4E 52 3C 22 3B 4D 53 3B |1010 IF NR<";MS;|
00004B70: 22 54 48 C5 20 31 30 35 30 22 00 BB 53 10 05 98 |"TH. 1050"..S...|
00004B80: 32 2C 22 31 30 32 30 3F 22 3B 51 24 3B 22 93 D5 |2,"1020?";Q$;"..|
00004B90: 20 48 45 45 46 54 20 22 3B CA 28 C4 28 4D 53 29 | HEEFT ";.(.(MS)|
00004BA0: 2C 32 29 3B 22 20 52 45 43 4F 52 44 53 20 49 4E |,2);" RECORDS IN|
00004BB0: 47 45 56 4F 45 52 44 22 3B 51 24 00 CA 53 22 05 |GEVOERD";Q$..S".|
00004BC0: 8B 4E 53 B2 30 A7 31 33 32 34 00 F5 53 24 05 98 |.NS.0.1324..S$..|
00004BD0: 32 2C 22 31 30 36 35 46 CF 49 3D 31 54 4F 4E 43 |2,"1065F.I=1TONC|
00004BE0: 3A 49 46 43 53 25 28 49 29 3D 30 20 54 48 C5 20 |:IFCS%(I)=0 TH. |
00004BF0: 31 30 37 35 22 00 25 54 26 05 98 32 2C 22 31 30 |1075".%T&..2,"10|
00004C00: 37 30 3F 4C 45 C6 28 59 24 2C 43 59 25 28 49 29 |70?LE.(Y$,CY%(I)|
00004C10: 29 3B 54 41 42 28 43 58 25 28 49 29 29 3B 43 50 |);TAB(CX%(I));CP|
00004C20: 24 28 49 29 22 00 36 54 28 05 98 32 2C 22 31 30 |$(I)".6T(..2,"10|
00004C30: 37 35 4E C5 49 22 00 5A 54 2C 05 4F 53 24 B2 22 |75N.I".ZT,.OS$."|
00004C40: 46 43 22 3A 4F 4C B2 31 30 38 32 3A 55 4C 25 B2 |FC":OL.1082:UL%.|
00004C50: 4E 46 20 3A 8D 20 31 37 35 32 00 7C 54 2E 05 98 |NF :. 1752.|T...|
00004C60: 32 2C 45 4C 3B 22 49 46 20 49 4E 24 3D 43 C8 28 |2,EL;"IF IN$=C.(|
00004C70: 31 33 33 29 20 54 48 C5 20 39 30 22 00 BE 54 30 |133) TH. 90"..T0|
00004C80: 05 98 32 2C 45 4C AA 31 3B 22 49 46 20 47 53 25 |..2,EL.1;"IF GS%|
00004C90: 28 46 43 29 3E 30 20 54 48 C5 20 47 4B 28 47 53 |(FC)>0 TH. GK(GS|
00004CA0: 25 28 46 43 29 29 3D 47 4C 28 47 53 25 28 46 43 |%(FC))=GL(GS%(FC|
00004CB0: 29 29 2B 56 C1 28 47 24 28 46 43 29 29 22 00 E0 |))+V.(G$(FC))"..|
00004CC0: 54 34 05 98 32 2C 22 31 31 34 32 49 46 20 46 43 |T4..2,"1142IF FC|
00004CD0: 3C 22 3B 4E 46 3B 22 54 48 C5 20 31 30 38 30 22 |<";NF;"TH. 1080"|
00004CE0: 00 EF 54 36 05 8B 4E 53 B2 30 A7 31 33 35 34 00 |..T6..NS.0.1354.|
00004CF0: 31 55 38 05 98 32 2C 22 31 31 34 33 46 CF 49 3D |1U8..2,"1143F.I=|
00004D00: 31 54 4F 4E 43 22 3A 98 32 2C 22 31 31 34 34 49 |1TONC":.2,"1144I|
00004D10: 46 43 53 25 28 49 29 3D 30 54 48 C5 31 31 35 30 |FCS%(I)=0TH.1150|
00004D20: 22 3A 98 32 2C 22 31 31 34 36 47 4F D3 22 3B 53 |":.2,"1146GO.";S|
00004D30: 4C 00 5E 55 3E 05 98 32 2C 22 31 31 34 38 49 46 |L.^U>..2,"1148IF|
00004D40: 49 4E 24 3D 43 C8 28 31 33 33 29 54 48 C5 39 30 |IN$=C.(133)TH.90|
00004D50: 22 3A 98 32 2C 22 31 31 35 30 4E C5 49 22 00 71 |":.2,"1150N.I".q|
00004D60: 55 40 05 98 32 2C 22 31 31 35 30 4E 45 58 54 49 |U@..2,"1150NEXTI|
00004D70: 22 00 AC 55 4A 05 98 32 2C 22 31 31 39 30 20 49 |"..UJ..2,"1190 I|
00004D80: 46 20 4C 45 4E 28 49 4E 24 29 3D 30 20 4F 52 20 |F LEN(IN$)=0 OR |
00004D90: 49 4E 24 3D 22 3B 51 24 3B 22 4A 22 3B 51 24 3B |IN$=";Q$;"J";Q$;|
00004DA0: 22 20 54 48 C5 22 3B 4C 4E AA 31 30 00 E3 55 4C |" TH.";LN.10..UL|
00004DB0: 05 98 32 2C 22 31 32 30 30 3F 4C 45 C6 28 59 24 |..2,"1200?LE.(Y$|
00004DC0: 2C 32 33 29 3B 22 3B 51 24 3B 22 D7 45 4C 4B 20 |,23);";Q$;".ELK |
00004DD0: 56 45 4C 44 20 56 45 52 41 4E 44 45 52 45 4E 3F |VELD VERANDEREN?|
00004DE0: 20 22 3B 00 09 56 4E 05 98 32 2C 22 28 31 22 3B | ";..VN..2,"(1";|
00004DF0: AB 28 4E 46 AA 4E 53 29 3B 22 4F 46 20 4C 49 53 |.(NF.NS);"OF LIS|
00004E00: 54 29 22 3B 51 24 22 3B 22 00 3C 56 50 05 98 32 |T)";Q$";".<VP..2|
00004E10: 2C 22 31 32 31 30 20 58 25 3D 33 35 3A 59 25 3D |,"1210 X%=35:Y%=|
00004E20: 32 33 3A 4C 25 3D 34 3A 47 4F D3 33 34 30 30 30 |23:L%=4:GO.34000|
00004E30: 3A 49 4E 3D 56 C1 28 49 4E 24 29 22 00 69 56 56 |:IN=V.(IN$)".iVV|
00004E40: 05 98 32 2C 22 31 32 33 30 49 46 49 4E 3E 3D 31 |..2,"1230IFIN>=1|
00004E50: 41 4E 44 49 4E 3C 3D 22 3B 4E 46 AA 4E 53 3B 22 |ANDIN<=";NF.NS;"|
00004E60: 54 48 C5 47 CF 31 32 34 30 00 96 56 57 05 98 32 |TH.G.1240..VW..2|
00004E70: 2C 22 31 32 33 31 3F 4C 45 C6 28 59 24 2C 32 33 |,"1231?LE.(Y$,23|
00004E80: 29 3B 53 50 24 3A 3F 4C 45 46 54 24 28 59 24 2C |);SP$:?LEFT$(Y$,|
00004E90: 32 34 29 3B 22 3B 00 B8 56 58 05 98 32 2C 51 24 |24);";..VX..2,Q$|
00004EA0: 3B 20 22 4F 4E 47 45 4C 44 49 47 20 56 45 4C 44 |; "ONGELDIG VELD|
00004EB0: 20 23 22 3B 51 24 3B 22 00 F2 56 5B 05 98 32 2C | #";Q$;"..V[..2,|
00004EC0: 22 31 32 33 32 46 4F 52 41 51 3D 31 54 4F 33 30 |"1232FORAQ=1TO30|
00004ED0: 30 30 3A 4E 45 58 54 3A 3F 4C 45 46 54 24 28 59 |00:NEXT:?LEFT$(Y|
00004EE0: 24 2C 32 34 29 3B 53 50 24 3A 47 4F 54 4F 31 32 |$,24);SP$:GOTO12|
00004EF0: 30 30 00 14 57 5C 05 4F 4C B2 31 32 35 30 3A 4F |00..W\.OL.1250:O|
00004F00: 53 24 B2 22 49 4E 22 3A 55 4C 25 B2 4E 46 3A 8D |S$."IN":UL%.NF:.|
00004F10: 31 37 35 32 00 23 57 5E 05 8B 4E 53 B2 30 A7 31 |1752.#W^..NS.0.1|
00004F20: 33 37 38 00 44 57 60 05 98 32 2C 22 31 32 34 35 |378.DW`..2,"1245|
00004F30: 20 49 46 20 49 4E 3E 4E 46 20 54 48 C5 22 3B 45 | IF IN>NF TH.";E|
00004F40: 4C AA 33 30 00 65 57 62 05 98 32 2C 45 4C 22 49 |L.30.eWb..2,EL"I|
00004F50: 46 20 49 4E 24 3D 43 C8 28 31 33 33 29 20 54 48 |F IN$=C.(133) TH|
00004F60: C5 20 39 30 22 00 AA 57 64 05 98 32 2C 45 4C AA |. 90"..Wd..2,EL.|
00004F70: 31 30 22 49 46 47 53 25 28 49 4E 29 3E 30 20 54 |10"IFGS%(IN)>0 T|
00004F80: 48 C5 20 47 4B 28 47 53 25 28 49 4E 29 29 20 3D |H. GK(GS%(IN)) =|
00004F90: 20 47 4C 28 47 53 25 28 49 4E 29 29 20 2B A0 56 | GL(GS%(IN)) +.V|
00004FA0: C1 28 47 24 28 49 4E 29 29 22 00 C0 57 66 05 98 |.(G$(IN))"..Wf..|
00004FB0: 32 2C 45 4C AA 32 30 22 47 CF 20 31 31 36 30 22 |2,EL.20"G. 1160"|
00004FC0: 00 CF 57 68 05 8B 4E 53 B2 30 A7 31 35 32 32 00 |..Wh..NS.0.1522.|
00004FD0: FE 57 6A 05 98 32 2C 45 4C AA 33 30 22 50 3D 30 |.Wj..2,EL.30"P=0|
00004FE0: 3A 49 4E 3D 49 4E 2D 4E 46 22 3A 98 32 2C 45 4C |:IN=IN-NF":.2,EL|
00004FF0: AA 34 30 22 46 CF 49 3D 31 54 4F 49 4E 22 00 38 |.40"F.I=1TOIN".8|
00005000: 58 6E 05 98 32 2C 45 4C AA 35 30 22 50 3D 50 2B |Xn..2,EL.50"P=P+|
00005010: 31 3A 49 46 43 53 25 28 50 29 3D 30 54 48 C5 22 |1:IFCS%(P)=0TH."|
00005020: 3B 45 4C AA 35 30 3A 98 32 2C 45 4C AA 36 30 22 |;EL.50:.2,EL.60"|
00005030: 4E C5 49 3A 49 3D 50 22 00 4D 58 72 05 98 32 2C |N.I:I=P".MXr..2,|
00005040: 45 4C AA 37 30 22 47 4F D3 22 3B 53 4C 00 83 58 |EL.70"GO.";SL..X|
00005050: 74 05 98 32 2C 45 4C AA 38 30 3B 22 49 46 20 49 |t..2,EL.80;"IF I|
00005060: 4E 24 3D 43 C8 28 31 33 33 29 20 54 48 C5 20 39 |N$=C.(133) TH. 9|
00005070: 30 22 3A 98 32 2C 45 4C AA 39 30 22 47 CF 31 31 |0":.2,EL.90"G.11|
00005080: 36 30 22 00 94 58 C2 05 98 32 2C 22 32 39 31 31 |60"..X...2,"2911|
00005090: 30 4E C5 49 00 BA 58 F2 05 98 32 2C 22 31 32 39 |0N.I..X...2,"129|
000050A0: 32 30 4F D0 32 2C 38 2C 32 2C 22 3B 51 24 3B 22 |20O.2,8,2,";Q$;"|
000050B0: 30 3A 22 3B 47 44 24 3B 51 24 00 F1 58 00 06 98 |0:";GD$;Q$..X...|
000050C0: 32 2C 22 31 31 38 31 35 3F 22 3B 51 24 3B 22 28 |2,"11815?";Q$;"(|
000050D0: 31 2D 22 3B CA 28 C4 28 4E 46 29 2C 32 29 3B 22 |1-";.(.(NF),2);"|
000050E0: 29 2C 4C 49 53 54 2C 12 46 31 92 3D 22 3B 51 24 |),LIST,.F1.=";Q$|
000050F0: 3B 00 12 59 02 06 98 32 2C 22 3A 3F 22 3B 51 24 |;..Y...2,":?";Q$|
00005100: 3B 22 41 46 42 52 45 4B 45 4E 22 3B 51 24 3B 22 |;"AFBREKEN";Q$;"|
00005110: 3B 22 00 51 59 1C 06 98 32 2C 22 31 31 38 35 33 |;".QY...2,"11853|
00005120: 20 4C 44 25 3D 22 3B 46 57 3B 22 2D 20 4C 25 28 | LD%=";FW;"- L%(|
00005130: 55 46 29 3A 49 46 20 4C 44 25 20 3E 20 30 20 54 |UF):IF LD% > 0 T|
00005140: 48 C5 20 53 44 24 20 3D 20 53 44 24 20 2B 20 22 |H. SD$ = SD$ + "|
00005150: 3B 00 67 59 1E 06 98 32 2C 22 4C 45 C6 28 53 50 |;.gY...2,"LE.(SP|
00005160: 24 2C 4C 44 25 29 22 00 80 59 24 06 98 32 2C 22 |$,LD%)"..Y$..2,"|
00005170: 31 31 38 35 38 20 47 24 3D 22 3B 51 24 3B 51 24 |11858 G$=";Q$;Q$|
00005180: 00 A3 59 28 06 4F 53 24 B2 22 55 46 22 3A 4F 4C |..Y(.OS$."UF":OL|
00005190: B2 31 31 38 36 30 3A 55 4C 25 B2 4E 46 3A 8D 31 |.11860:UL%.NF:.1|
000051A0: 37 35 32 00 B8 59 2A 06 98 32 2C 45 4C 3B 22 47 |752..Y*..2,EL;"G|
000051B0: CF 20 31 31 38 31 30 22 00 C7 59 2C 06 8B 4E 43 |. 11810"..Y,..NC|
000051C0: B2 30 A7 31 35 39 34 00 E7 59 2E 06 4C 4E B2 4C |.0.1594..Y..LN.L|
000051D0: 4E AA 31 30 3A 98 32 2C 4C 4E 3B 22 46 CF 50 5A |N.10:.2,LN;"F.PZ|
000051E0: 3D 31 54 4F 4E 43 22 00 12 5A 30 06 8B 4E 53 B1 |=1TONC"..Z0..NS.|
000051F0: 30 A7 98 32 2C 4C 4E AA 35 3B 22 49 46 20 43 53 |0..2,LN.5;"IF CS|
00005200: 25 28 50 5A 29 3E 30 20 54 48 C5 22 3B 4C 4E AA |%(PZ)>0 TH.";LN.|
00005210: 32 30 00 31 5A 32 06 4C 4E B2 4C 4E AA 31 30 3A |20.1Z2.LN.LN.10:|
00005220: 98 32 2C 4C 4E 3B 22 47 4F D3 20 32 38 31 30 30 |.2,LN;"GO. 28100|
00005230: 22 00 51 5A 34 06 4C 4E B2 4C 4E AA 31 30 3A 98 |".QZ4.LN.LN.10:.|
00005240: 32 2C 4C 4E 3B 22 49 4A 3D 47 53 25 28 50 5A 29 |2,LN;"IJ=GS%(PZ)|
00005250: 22 00 89 5A 36 06 4C 4E B2 4C 4E AA 31 30 3A 98 |"..Z6.LN.LN.10:.|
00005260: 32 2C 4C 4E 3B 22 49 46 20 49 4A 20 3E 20 30 20 |2,LN;"IF IJ > 0 |
00005270: 54 48 C5 20 47 4B 28 49 4A 29 3D 47 4C 28 49 4A |TH. GK(IJ)=GL(IJ|
00005280: 29 2B 43 44 28 50 5A 29 22 00 A4 5A 38 06 4C 4E |)+CD(PZ)"..Z8.LN|
00005290: B2 4C 4E AA 31 30 3A 98 32 2C 4C 4E 3B 22 4E C5 |.LN.10:.2,LN;"N.|
000052A0: 20 50 5A 22 00 D2 5A 3A 06 4C 4E B2 4C 4E AA 31 | PZ"..Z:.LN.LN.1|
000052B0: 30 3A 98 32 2C 4C 4E 3B 22 5A 5A 24 3D 47 24 28 |0:.2,LN;"ZZ$=G$(|
000052C0: 22 3B 4B 46 3B 22 29 3A 47 4F D3 20 32 36 30 30 |";KF;"):GO. 2600|
000052D0: 30 22 00 05 5B 3C 06 4C 4E B2 4C 4E AA 31 30 3A |0"..[<.LN.LN.10:|
000052E0: 98 32 2C 4C 4E 3B 22 52 45 4D 20 2A 5A 4F 45 4B |.2,LN;"REM *ZOEK|
000052F0: 20 4E 41 41 52 20 52 45 43 4F 52 44 20 52 55 49 | NAAR RECORD RUI|
00005300: 4D 54 45 2A 22 00 32 5B 3E 06 4C 4E B2 4C 4E AA |MTE*".2[>.LN.LN.|
00005310: 31 30 3A 98 32 2C 4C 4E 3B 22 47 4F D3 20 22 3B |10:.2,LN;"GO. ";|
00005320: 4C 4E AA 31 30 3B 22 3A 47 CF 20 22 3B 4C 4E AA |LN.10;":G. ";LN.|
00005330: 36 30 00 66 5B 40 06 4C 4E B2 4C 4E AA 31 30 3A |60.f[@.LN.LN.10:|
00005340: 98 32 2C 4C 4E 3B 22 52 50 3D 52 50 2B 31 3A 49 |.2,LN;"RP=RP+1:I|
00005350: 46 20 52 50 3E 22 3B 4D 53 AA 33 3B 22 54 48 C5 |F RP>";MS.3;"TH.|
00005360: 20 52 50 3D 34 22 00 79 5B 42 06 4C 31 B2 4C 4E | RP=4".y[B.L1.LN|
00005370: 3A 4C 4E B2 4C 4E AA 31 30 00 9F 5B 44 06 98 32 |:LN.LN.10..[D..2|
00005380: 2C 4C 4E AB 32 3B 22 4F D0 32 2C 38 2C 32 2C 22 |,LN.2;"O.2,8,2,"|
00005390: 3B 51 24 3B 22 30 3A 22 3B 47 44 24 3B 51 24 00 |;Q$;"0:";GD$;Q$.|
000053A0: E2 5B 46 06 98 32 2C 4C 4E 3B 22 41 31 3D 52 50 |.[F..2,LN;"A1=RP|
000053B0: 3A 47 4F D3 35 32 31 30 30 3A 49 CE 32 2C 49 4B |:GO.52100:I.2,IK|
000053C0: 24 3A 43 4C CF 32 3A 49 4B 3D 56 C1 28 49 4B 24 |$:CL.2:IK=V.(IK$|
000053D0: 29 3A 49 46 49 4B 3E 30 54 48 C5 22 3B 4C 4E AB |):IFIK>0TH.";LN.|
000053E0: 31 30 00 FF 5B 48 06 4C 4E B2 4C 4E AA 31 30 3A |10..[H.LN.LN.10:|
000053F0: 98 32 2C 4C 4E 3B 22 4E 52 3D 4E 52 2B 31 22 00 |.2,LN;"NR=NR+1".|
00005400: 2E 5C 4A 06 4C 4E B2 4C 4E AA 31 30 3A 98 32 2C |.\J.LN.LN.10:.2,|
00005410: 4C 4E 3B 22 49 46 20 49 4B 3D 30 20 54 48 C5 20 |LN;"IF IK=0 TH. |
00005420: 46 53 3D 46 53 2B 31 3A 49 4B 3D 46 53 22 00 52 |FS=FS+1:IK=FS".R|
00005430: 5C 4C 06 4C 4E B2 4C 4E AA 31 30 3A 98 32 2C 4C |\L.LN.LN.10:.2,L|
00005440: 4E 3B 22 49 4B 3D 41 42 53 28 49 4B 29 3A 52 45 |N;"IK=ABS(IK):RE|
00005450: D4 22 00 7A 5C 4E 06 98 32 2C 22 31 31 38 39 38 |.".z\N..2,"11898|
00005460: 20 5A 5A 24 3D 47 24 28 22 3B 4B 46 3B 22 29 3A | ZZ$=G$(";KF;"):|
00005470: 47 4F D3 20 32 36 30 30 30 22 00 8F 5C 50 06 98 |GO. 26000"..\P..|
00005480: 32 2C 22 31 31 38 39 39 47 4F D3 22 3B 4C 31 00 |2,"11899GO.";L1.|
00005490: AE 5C 58 06 4C 4E B2 4C 4E AA 31 30 3A 98 32 2C |.\X.LN.LN.10:.2,|
000054A0: 4C 4E 3B 22 47 4F D3 20 34 32 30 30 30 22 00 D0 |LN;"GO. 42000"..|
000054B0: 5C 5A 06 4C 4E B2 4C 4E AA 31 30 3A 98 32 2C 4C |\Z.LN.LN.10:.2,L|
000054C0: 4E 3B 22 52 4D 3D 22 3B 4D 53 3B 22 2D 4E 52 22 |N;"RM=";MS;"-NR"|
000054D0: 00 09 5D 5C 06 4C 4E B2 4C 4E AA 31 30 3A 98 32 |..]\.LN.LN.10:.2|
000054E0: 2C 4C 4E 3B 22 3F 4C 45 C6 28 59 24 2C 32 33 29 |,LN;"?LE.(Y$,23)|
000054F0: 3B 22 3B 51 24 3B 22 D2 45 43 4F 52 44 53 20 56 |;";Q$;".ECORDS V|
00005500: 4F 4C 3A 20 22 3B 51 24 3B 00 25 5D 5D 06 98 32 |OL: ";Q$;.%]]..2|
00005510: 2C 22 3B 4D 49 44 24 28 53 54 52 24 28 4E 52 29 |,";MID$(STR$(NR)|
00005520: 2C 32 29 3B 22 00 68 5D 5E 06 98 32 2C 4C 4E AA |,2);".h]^..2,LN.|
00005530: 32 3B 22 3F 22 3B 51 24 3B 22 20 C1 41 4E 54 41 |2;"?";Q$;" .ANTA|
00005540: 4C 20 52 45 43 4F 52 44 53 20 56 52 49 4A 3A 20 |L RECORDS VRIJ: |
00005550: 22 3B 51 24 3B 22 3B 4D 49 44 24 28 53 54 52 24 |";Q$;";MID$(STR$|
00005560: 28 52 4D 29 2C 32 29 22 00 AA 5D 60 06 98 32 2C |(RM),2)"..]`..2,|
00005570: 4C 4E AA 34 3B 22 49 46 20 52 4D 3D 30 20 54 48 |LN.4;"IF RM=0 TH|
00005580: C5 3F 4C 45 C6 28 59 24 2C 32 33 29 3B 54 41 42 |.?LE.(Y$,23);TAB|
00005590: 28 36 29 3B 22 3B 51 24 3B 22 12 20 C6 C9 CC C5 |(6);";Q$;". ....|
000055A0: 20 D6 CF CC 20 92 22 3B 51 24 00 D5 5D 61 06 98 | ... .";Q$..]a..|
000055B0: 32 2C 4C 4E AA 33 3B 22 49 46 52 4D 3D 30 54 48 |2,LN.3;"IFRM=0TH|
000055C0: 45 4E 3F 4C 45 46 54 24 28 59 24 2C 32 33 29 3B |EN?LEFT$(Y$,23);|
000055D0: 53 50 24 3B 22 00 1E 5E 63 06 4C 4E B2 4C 4E AA |SP$;"..^c.LN.LN.|
000055E0: 31 30 3A 98 32 2C 4C 4E 3B 22 3F 4C 45 46 54 24 |10:.2,LN;"?LEFT$|
000055F0: 28 59 24 2C 32 34 29 3B 22 3B 51 24 3B 22 D4 4F |(Y$,24);";Q$;".O|
00005600: 45 54 53 20 12 D2 C5 D4 D5 D2 CE 92 20 56 4F 4F |ETS ........ VOO|
00005610: 52 20 56 45 52 56 4F 4C 47 2E 22 3B 51 24 00 52 |R VERVOLG.";Q$.R|
00005620: 5E 64 06 4C 4E B2 4C 4E AA 31 30 3A 98 32 2C 4C |^d.LN.LN.10:.2,L|
00005630: 4E 3B 22 47 45 54 20 41 41 24 3A 49 46 20 41 41 |N;"GET AA$:IF AA|
00005640: 24 3C 3E 43 C8 28 31 33 29 20 54 48 C5 20 22 3B |$<>C.(13) TH. ";|
00005650: 4C 4E 00 78 5E 66 06 99 22 93 12 20 20 C5 C9 CE |LN.x^f..".. ...|
00005660: C4 C5 A0 C7 C5 C7 C5 D6 C5 CE D3 20 C9 CE D6 CF |........... ....|
00005670: C5 D2 20 20 92 22 3A 99 00 A6 5E 68 06 99 22 C1 |.. .":...^h..".|
00005680: 4C 53 20 44 45 20 47 45 42 52 55 49 4B 45 52 20 |LS DE GEBRUIKER |
00005690: 56 41 4E 20 55 57 20 50 52 4F 47 52 41 4D 4D 41 |VAN UW PROGRAMMA|
000056A0: 20 4B 4C 41 41 52 00 D5 5E 6A 06 99 22 49 53 20 | KLAAR..^j.."IS |
000056B0: 4D 45 54 20 47 45 47 45 56 45 4E 53 20 49 4E 56 |MET GEGEVENS INV|
000056C0: 4F 45 52 45 4E 20 49 4E 20 45 45 4E 20 52 45 43 |OEREN IN EEN REC|
000056D0: 4F 52 44 2C 22 00 03 5F 6C 06 99 22 5A 41 4C 20 |ORD,".._l.."ZAL |
000056E0: 48 45 54 20 50 52 4F 47 52 41 4D 4D 41 20 56 52 |HET PROGRAMMA VR|
000056F0: 41 47 45 4E 20 4F 46 20 45 52 20 4E 4F 47 20 4D |AGEN OF ER NOG M|
00005700: 45 45 52 00 22 5F 6E 06 99 22 4D 4F 45 54 20 57 |EER."_n.."MOET W|
00005710: 4F 52 44 45 4E 20 49 4E 47 45 56 4F 45 52 44 22 |ORDEN INGEVOERD"|
00005720: 3A 99 00 50 5F 70 06 99 22 C4 45 20 47 45 42 52 |:..P_p..".E GEBR|
00005730: 55 49 4B 45 52 20 4D 4F 45 54 20 44 41 4E 20 4D |UIKER MOET DAN M|
00005740: 45 54 20 28 4A 29 41 20 4F 46 20 28 4E 29 45 45 |ET (J)A OF (N)EE|
00005750: 00 7D 5F 72 06 99 22 41 4E 54 57 4F 4F 52 44 45 |.}_r.."ANTWOORDE|
00005760: 4E 20 4F 4D 20 41 41 4E 20 54 45 20 47 45 56 45 |N OM AAN TE GEVE|
00005770: 4E 20 4F 46 20 44 45 20 47 45 47 45 2D 00 A7 5F |N OF DE GEGE-.._|
00005780: 74 06 99 22 56 45 4E 53 20 49 4E 56 4F 45 52 20 |t.."VENS INVOER |
00005790: 49 53 20 42 45 45 49 4E 44 49 47 44 20 4F 46 20 |IS BEEINDIGD OF |
000057A0: 44 41 54 20 45 45 4E 00 D1 5F 76 06 99 22 4E 49 |DAT EEN.._v.."NI|
000057B0: 45 55 57 20 52 45 43 4F 52 44 20 4D 4F 45 54 20 |EUW RECORD MOET |
000057C0: 57 4F 52 44 45 4E 20 49 4E 47 45 56 4F 45 52 44 |WORDEN INGEVOERD|
000057D0: 2E 00 00 60 78 06 99 22 C4 45 20 47 45 42 52 55 |...`x..".E GEBRU|
000057E0: 49 4B 45 52 20 4B 41 4E 20 12 D2 C5 D4 D5 D2 CE |IKER KAN .......|
000057F0: 92 20 54 59 50 45 4E 20 49 4E 50 4C 41 41 54 53 |. TYPEN INPLAATS|
00005800: 00 2E 60 7A 06 99 22 56 41 4E 20 27 4E 45 45 27 |..`z.."VAN 'NEE'|
00005810: 20 4F 4D 20 56 45 52 44 45 52 20 54 45 20 47 41 | OM VERDER TE GA|
00005820: 41 4E 20 4D 45 54 20 49 4E 56 4F 45 52 2E 00 5E |AN MET INVOER..^|
00005830: 60 7C 06 99 22 11 12 D6 4F 4F 52 20 55 57 20 4D |`|.."...OOR UW M|
00005840: 45 4C 44 49 4E 47 20 49 4E 20 4F 46 20 54 4F 45 |ELDING IN OF TOE|
00005850: 54 53 20 12 D2 C5 D4 D5 D2 CE 92 22 3A 99 00 98 |TS ........":...|
00005860: 60 7E 06 99 22 43 52 20 3D 20 22 3A 99 22 27 CB |`~.."CR = ":."'.|
00005870: 4C 41 41 52 20 4D 45 54 20 49 4E 56 4F 45 52 45 |LAAR MET INVOERE|
00005880: 4E 20 3F 20 28 D2 C5 D4 D5 D2 CE 3D 4E 45 45 29 |N ? (......=NEE)|
00005890: 27 22 3A 99 3A 99 22 3F 00 BE 60 80 06 58 25 B2 |'":.:."?..`..X%.|
000058A0: 31 3A 59 25 B2 C2 28 32 31 34 29 3A 4C 25 B2 33 |1:Y%..(214):L%.3|
000058B0: 35 3A 8D 38 34 32 3A 54 54 24 B2 49 4E 24 00 F2 |5:.842:TT$.IN$..|
000058C0: 60 82 06 8B 54 54 24 B2 22 22 A7 54 54 24 B2 22 |`...TT$."".TT$."|
000058D0: CB 4C 41 41 52 20 4D 45 54 20 49 4E 56 4F 45 52 |.LAAR MET INVOER|
000058E0: 45 4E 20 3F 20 28 D2 C5 D4 D5 D2 CE 3D 4E 45 45 |EN ? (......=NEE|
000058F0: 29 22 00 10 61 84 06 98 32 2C 4C 4E AA 35 3B 22 |)"..a...2,LN.5;"|
00005900: 3F 4C 45 C6 28 59 24 2C 32 33 29 3B 53 50 24 22 |?LE.(Y$,23);SP$"|
00005910: 00 34 61 86 06 4C 4E B2 4C 4E AA 31 30 3A 98 32 |.4a..LN.LN.10:.2|
00005920: 2C 4C 4E 3B 22 49 46 20 52 4D 3D 30 20 54 48 C5 |,LN;"IF RM=0 TH.|
00005930: 20 39 30 22 00 6F 61 88 06 4C 4E B2 4C 4E AA 31 | 90".oa..LN.LN.1|
00005940: 30 3A 98 32 2C 4C 4E 3B 22 3F 4C 45 C6 28 59 24 |0:.2,LN;"?LE.(Y$|
00005950: 2C 32 34 29 3B 53 50 24 3A 3F 4C 45 C6 28 59 24 |,24);SP$:?LE.(Y$|
00005960: 2C 32 34 29 3B 54 54 24 22 3A 42 4C B2 4C 4E 00 |,24);TT$":BL.LN.|
00005970: 8A 61 8A 06 98 32 2C 22 35 35 20 54 54 24 3D 22 |.a...2,"55 TT$="|
00005980: 3B 51 24 3B 54 54 24 3B 51 24 00 C1 61 8C 06 4C |;Q$;TT$;Q$..a..L|
00005990: 4E B2 4C 4E AA 31 30 3A 98 32 2C 4C 4E 3B 22 58 |N.LN.10:.2,LN;"X|
000059A0: 25 3D 4C 45 4E 28 54 54 24 29 2B 31 3A 59 25 3D |%=LEN(TT$)+1:Y%=|
000059B0: 32 34 3A 4C 25 3D 31 3A 47 4F D3 33 34 30 30 30 |24:L%=1:GO.34000|
000059C0: 22 00 FF 61 8E 06 4C 4E B2 4C 4E AA 31 30 3A 98 |"..a..LN.LN.10:.|
000059D0: 32 2C 4C 4E 3B 22 52 45 4D 20 2A 20 4B 4C 41 41 |2,LN;"REM * KLAA|
000059E0: 52 3F 2C 20 44 41 4E 20 45 49 4E 44 45 2C 20 52 |R?, DAN EINDE, R|
000059F0: 45 54 55 52 4E 20 44 41 4E 20 4D 45 4E 55 22 00 |ETURN DAN MENU".|
00005A00: 37 62 90 06 4C 4E B2 4C 4E AA 31 30 3A 98 32 2C |7b..LN.LN.10:.2,|
00005A10: 4C 4E 3B 22 49 46 20 4C 45 C6 28 49 4E 24 2C 31 |LN;"IF LE.(IN$,1|
00005A20: 29 3D 22 3B 51 24 3B 22 4A 22 3B 51 24 3B 22 20 |)=";Q$;"J";Q$;" |
00005A30: 54 48 C5 20 39 30 22 00 78 62 92 06 4C 4E B2 4C |TH. 90".xb..LN.L|
00005A40: 4E AA 31 30 3A 98 32 2C 4C 4E 3B 22 49 46 20 4C |N.10:.2,LN;"IF L|
00005A50: 45 4E 28 49 4E 24 29 3D 30 20 4F 52 20 49 4E 24 |EN(IN$)=0 OR IN$|
00005A60: 3D 22 3B 51 24 3B 22 4E 22 3B 51 24 3B 22 54 48 |=";Q$;"N";Q$;"TH|
00005A70: C5 22 3B 4C 4E AA 31 30 00 94 62 94 06 98 32 2C |.";LN.10..b...2,|
00005A80: 4C 4E AA 35 3B 22 3F 4C 45 C6 28 59 24 2C 32 33 |LN.5;"?LE.(Y$,23|
00005A90: 29 3B 22 3B 00 D4 62 96 06 98 32 2C 51 24 3B 22 |);";..b...2,Q$;"|
00005AA0: C1 4E 54 57 4F 4F 52 44 54 20 28 4A 29 41 20 4F |.NTWOORDT (J)A O|
00005AB0: 46 20 28 4E 29 45 45 20 28 12 D2 C5 D4 D5 D2 CE |F (N)EE (.......|
00005AC0: 92 3D 4E 45 45 29 22 3B 51 24 3B 22 3A 47 CF 20 |.=NEE)";Q$;":G. |
00005AD0: 22 3B 42 4C 00 17 63 98 06 4C 4E B2 4C 4E AA 31 |";BL..c..LN.LN.1|
00005AE0: 30 3A 98 32 2C 4C 4E 3B 22 47 24 3D 22 3B 51 24 |0:.2,LN;"G$=";Q$|
00005AF0: 3B 51 24 3B 22 3A 46 43 3D 30 3A 3F 22 3B 51 24 |;Q$;":FC=0:?";Q$|
00005B00: 3B 22 93 22 3B 51 24 3B 22 3A 55 46 3D 30 3A 47 |;".";Q$;":UF=0:G|
00005B10: CF 20 31 30 30 30 22 00 22 63 9A 06 89 20 31 37 |. 1000"."c... 17|
00005B20: 38 30 00 3A 63 9E 06 81 4A 49 B2 31 A4 C3 28 42 |80.:c...JI.1..(B|
00005B30: 24 29 AA 31 AB C3 28 41 24 29 00 47 63 9F 06 41 |$).1..(A$).Gc..A|
00005B40: 53 B2 C3 28 41 24 29 00 67 63 A0 06 8B CA 28 42 |S..(A$).gc....(B|
00005B50: 24 2C 4A 49 2C 41 53 29 B2 41 24 A7 49 39 B2 4A |$,JI,AS).A$.I9.J|
00005B60: 49 3A 89 31 37 30 30 00 74 63 A2 06 82 4A 49 3A |I:.1700.tc...JI:|
00005B70: 49 39 B2 30 00 7A 63 A4 06 8E 00 8F 63 A8 06 4F |I9.0.zc.....c..O|
00005B80: 4B B2 30 3A 8B C3 28 42 4A 24 29 B3 32 A7 8E 00 |K.0:..(BJ$).2...|
00005B90: C8 63 AA 06 4C 24 B2 C8 28 42 4A 24 2C 31 29 3A |.c..L$..(BJ$,1):|
00005BA0: 8B 4C 24 B2 22 3C 22 B0 4C 24 B2 22 3E 22 B0 4C |.L$."<".L$.">".L|
00005BB0: 24 B2 22 3D 22 A7 42 4B 24 B2 CA 28 42 4A 24 2C |$."=".BK$..(BJ$,|
00005BC0: 32 29 3A 4F 4B B2 AB 31 00 FF 63 AC 06 8B 4C 24 |2):OK..1..c...L$|
00005BD0: B2 22 3C 22 AF CA 28 42 4A 24 2C 32 2C 31 29 B2 |."<"..(BJ$,2,1).|
00005BE0: 22 3E 22 AF C3 28 42 4A 24 29 B1 32 A7 42 4B 24 |">"..(BJ$).2.BK$|
00005BF0: B2 CA 28 42 4A 24 2C 33 29 3A 4F 4B B2 AB 31 00 |..(BJ$,3):OK..1.|
00005C00: 05 64 AE 06 8E 00 3F 64 B2 06 4F 4B B2 AB 31 3A |.d....?d..OK..1:|
00005C10: 81 4A B2 31 A4 C3 28 42 4B 24 29 3A 8B CA 28 42 |.J.1..(BK$):..(B|
00005C20: 4B 24 2C 4A 2C 31 29 B3 22 30 22 B0 CA 28 42 4B |K$,J,1)."0"..(BK|
00005C30: 24 2C 4A 2C 31 29 B1 22 39 22 A7 4F 4B B2 30 00 |$,J,1)."9".OK.0.|
00005C40: 48 64 B4 06 82 4A 3A 8E 00 63 64 B8 06 4F 4B B2 |Hd...J:..cd..OK.|
00005C50: AB 31 3A 8B C3 28 42 4B 24 29 B3 33 A7 4F 4B B2 |.1:..(BK$).3.OK.|
00005C60: 30 3A 8E 00 89 64 BA 06 81 4A B2 32 A4 C3 28 42 |0:...d...J.2..(B|
00005C70: 4B 24 29 AB 31 3A 8B CA 28 42 4B 24 2C 4A 2C 31 |K$).1:..(BK$,J,1|
00005C80: 29 B2 51 24 A7 4F 4B B2 30 00 B0 64 BC 06 82 4A |).Q$.OK.0..d...J|
00005C90: 3A 8B C8 28 42 4B 24 2C 31 29 B3 B1 51 24 B0 C9 |:..(BK$,1)..Q$..|
00005CA0: 28 42 4B 24 2C 31 29 B3 B1 51 24 A7 4F 4B B2 30 |(BK$,1)..Q$.OK.0|
00005CB0: 00 B6 64 BE 06 8E 00 DF 64 C0 06 4F 4B B2 AB 31 |..d.....d..OK..1|
00005CC0: 3A 44 43 B2 30 3A 81 4A B2 31 A4 C3 28 42 4B 24 |:DC.0:.J.1..(BK$|
00005CD0: 29 3A 4D 24 B2 CA 28 42 4B 24 2C 4A 2C 31 29 00 |):M$..(BK$,J,1).|
00005CE0: 11 65 C4 06 8B 28 4D 24 B3 22 30 22 B0 4D 24 B1 |.e...(M$."0".M$.|
00005CF0: 22 39 22 29 AF 28 4D 24 B3 B1 22 2E 22 29 AF 28 |"9").(M$..".").(|
00005D00: 4D 24 B3 B1 22 2D 22 B0 4A B1 31 29 A7 4F 4B B2 |M$.."-".J.1).OK.|
00005D10: 30 00 25 65 C6 06 8B 4D 24 B2 22 2E 22 A7 44 43 |0.%e...M$.".".DC|
00005D20: B2 44 43 AA 31 00 37 65 C8 06 82 4A 3A 8B 44 43 |.DC.1.7e...J:.DC|
00005D30: B1 31 A7 4F 4B B2 30 00 3D 65 CA 06 8E 00 60 65 |.1.OK.0.=e....`e|
00005D40: CC 06 54 54 24 B2 42 49 24 3A 42 49 24 B2 22 22 |..TT$.BI$:BI$.""|
00005D50: 3A 81 20 5A 5A B2 31 20 A4 20 C3 28 54 54 24 29 |:. ZZ.1 . .(TT$)|
00005D60: 00 8A 65 CE 06 8B 20 CA 28 54 54 24 2C 5A 5A 2C |..e... .(TT$,ZZ,|
00005D70: 31 29 B2 22 27 22 20 A7 20 42 49 24 B2 42 49 24 |1)."'" . BI$.BI$|
00005D80: AA 51 24 3A 89 20 31 37 34 36 00 A2 65 D0 06 42 |.Q$:. 1746..e..B|
00005D90: 49 24 B2 42 49 24 AA CA 28 54 54 24 2C 5A 5A 2C |I$.BI$..(TT$,ZZ,|
00005DA0: 31 29 00 AD 65 D2 06 82 20 5A 5A 3A 8E 00 C3 65 |1)..e... ZZ:...e|
00005DB0: D8 06 4B B2 36 3A 4E 4C 25 B2 28 55 4C 25 AB 31 |..K.6:NL%.(UL%.1|
00005DC0: 29 AD 4B 00 D1 65 DA 06 81 49 49 B2 30 A4 4E 4C |).K..e...II.0.NL|
00005DD0: 25 00 EC 65 DC 06 4C B2 4B 3A 8B 49 49 B2 4E 4C |%..e..L.K:.II.NL|
00005DE0: 25 A7 4C B2 55 4C 25 AB 49 49 AC 4B 00 34 66 DE |%.L.UL%.II.K.4f.|
00005DF0: 06 98 32 2C 4F 4C AA 49 49 AC 32 3B 22 49 46 20 |..2,OL.II.2;"IF |
00005E00: 22 3B 4F 53 24 3B 22 3C 3D 22 3B 49 49 AC 4B 3B |";OS$;"<=";II.K;|
00005E10: 22 4F 52 20 22 3B 4F 53 24 3B 22 3E 22 3B 49 49 |"OR ";OS$;">";II|
00005E20: AC 4B AA 4C 3B 22 54 48 C5 22 3B 4F 4C AA 49 49 |.K.L;"TH.";OL.II|
00005E30: AC 32 AA 32 00 5F 66 E0 06 98 32 2C 4F 4C AA 49 |.2.2._f...2,OL.I|
00005E40: 49 AC 32 AA 31 3B 22 4F 4E 20 22 3B 4F 53 24 3B |I.2.1;"ON ";OS$;|
00005E50: 22 2D 22 3B 49 49 AC 4B 3B 22 47 4F D3 22 3B 00 |"-";II.K;"GO.";.|
00005E60: 6B 66 E2 06 81 49 4A B2 31 A4 4C 00 85 66 E4 06 |kf...IJ.1.L..f..|
00005E70: 98 32 2C C4 28 44 25 28 49 49 AC 4B AA 49 4A 29 |.2,.(D%(II.K.IJ)|
00005E80: AB 31 30 29 3B 00 97 66 E6 06 8B 49 4A B3 4C A7 |.10);..f...IJ.L.|
00005E90: 98 32 2C 22 2C 22 3B 00 9F 66 E8 06 82 49 4A 00 |.2,",";..f...IJ.|
00005EA0: A6 66 EA 06 98 32 00 AE 66 EC 06 82 49 49 00 BD |.f...2..f...II..|
00005EB0: 66 EE 06 45 4C B2 4F 4C AA 49 49 AC 32 00 CF 66 |f..EL.OL.II.2..f|
00005EC0: F0 06 98 32 2C 45 4C 3B 22 52 45 4D 20 2A 22 00 |...2,EL;"REM *".|
00005ED0: D5 66 F2 06 8E 00 E7 66 F4 06 8D 32 30 33 34 3A |.f.....f...2034:|
00005EE0: 99 C7 28 31 34 37 29 00 FA 66 F6 06 81 49 B2 31 |..(147)..f...I.1|
00005EF0: A4 31 36 3A A0 28 49 29 3A 82 00 30 67 F8 06 99 |.16:.(I):..0g...|
00005F00: C8 28 59 24 2C 31 30 29 A3 33 29 3B 22 C4 4F 45 |.(Y$,10).3);".OE|
00005F10: 20 44 45 20 12 C3 4F 44 45 D7 52 49 54 45 52 92 | DE ..ODE.RITER.|
00005F20: 20 44 49 53 4B 20 49 4E 20 44 52 49 56 45 2E 22 | DISK IN DRIVE."|
00005F30: 00 5B 67 F9 06 99 C8 28 59 24 2C 32 34 29 22 D4 |.[g....(Y$,24)".|
00005F40: 4F 45 54 53 20 12 D2 C5 D4 D5 D2 CE 92 20 56 4F |OETS ........ VO|
00005F50: 4F 52 20 56 45 52 56 4F 4C 47 22 00 76 67 FA 06 |OR VERVOLG".vg..|
00005F60: A1 20 41 41 24 3A 8B 41 41 24 B3 B1 C7 28 31 33 |. AA$:.AA$...(13|
00005F70: 29 A7 31 37 38 36 00 9D 67 FE 06 A0 31 35 3A 9F |).1786..g...15:.|
00005F80: 31 35 2C 38 2C 31 35 2C 22 49 30 22 3A 9F 32 2C |15,8,15,"I0":.2,|
00005F90: 38 2C 32 2C 22 43 4F 44 45 47 45 4E 22 00 D5 67 |8,2,"CODEGEN"..g|
00005FA0: 00 07 54 5A 24 B2 22 22 3A 81 5A 4C B2 31 A4 32 |..TZ$."":.ZL.1.2|
00005FB0: 30 3A A1 23 32 2C 41 41 24 3A 54 5A 24 B2 54 5A |0:.#2,AA$:TZ$.TZ|
00005FC0: 24 AA 41 41 24 3A 82 5A 4C 3A A0 32 3A 98 31 35 |$.AA$:.ZL:.2:.15|
00005FD0: 2C 22 49 30 22 00 F5 67 02 07 A0 31 35 3A 8B CA |,"I0"..g...15:..|
00005FE0: 28 54 5A 24 2C 31 31 2C 32 29 B3 B1 22 31 35 22 |(TZ$,11,2).."15"|
00005FF0: A7 31 37 38 34 00 03 68 D4 07 99 C7 28 31 34 37 |.1784..h....(147|
00006000: 29 3A 99 00 30 68 D6 07 99 22 C3 4F 5E 45 D7 52 |):..0h...".O^E.R|
00006010: 49 54 45 52 3A 47 41 41 54 20 4E 55 20 48 45 54 |ITER:GAAT NU HET|
00006020: 20 50 52 4F 47 52 41 4D 4D 41 20 4D 41 4B 45 4E | PROGRAMMA MAKEN|
00006030: 00 5D 68 D8 07 99 22 4E 41 41 52 20 55 57 20 4F |.]h..."NAAR UW O|
00006040: 4E 54 57 45 52 50 2E 20 C1 4C 53 20 55 20 12 D2 |NTWERP. .LS U ..|
00006050: C5 D4 D5 D2 CE 92 20 54 4F 45 54 53 54 00 8B 68 |...... TOETST..h|
00006060: D9 07 99 22 57 4F 52 44 54 20 49 45 44 45 52 45 |..."WORDT IEDERE|
00006070: 20 52 45 47 45 4C 20 56 41 4E 20 48 45 54 20 47 | REGEL VAN HET G|
00006080: 45 47 45 4E 45 52 45 45 52 44 45 00 B9 68 DA 07 |EGENEREERDE..h..|
00006090: 99 22 50 52 4F 47 52 41 4D 4D 41 20 4F 50 20 48 |."PROGRAMMA OP H|
000060A0: 45 54 20 53 43 48 45 52 4D 20 5A 49 43 48 54 42 |ET SCHERM ZICHTB|
000060B0: 41 41 52 20 45 4E 20 49 4E 00 E0 68 DB 07 99 22 |AAR EN IN..h..."|
000060C0: 48 45 54 20 43 4F 4D 50 55 54 45 52 47 45 48 45 |HET COMPUTERGEHE|
000060D0: 55 47 45 4E 20 4F 50 47 45 53 4C 41 47 45 4E 2E |UGEN OPGESLAGEN.|
000060E0: 00 0D 69 DC 07 99 22 D5 49 54 45 49 4E 44 45 4C |..i...".ITEINDEL|
000060F0: 49 4A 4B 20 57 4F 52 44 54 20 48 45 54 20 50 52 |IJK WORDT HET PR|
00006100: 4F 47 52 41 4D 4D 41 20 4F 50 20 44 45 00 3B 69 |OGRAMMA OP DE.;i|
00006110: DD 07 99 22 57 45 52 4B 44 49 53 4B 45 54 54 45 |..."WERKDISKETTE|
00006120: 20 4F 50 47 45 53 4C 41 47 45 4E 2E 20 C1 4C 53 | OPGESLAGEN. .LS|
00006130: 20 55 20 48 45 54 20 50 52 4F 2D 00 68 69 DE 07 | U HET PRO-.hi..|
00006140: 99 22 47 52 41 4D 4D 41 20 56 4F 4F 52 20 44 45 |."GRAMMA VOOR DE|
00006150: 20 C5 C5 D2 D3 D4 C5 A0 CB C5 C5 D2 20 52 55 4E | ........... RUN|
00006160: 54 20 CD CF C5 D4 20 55 00 93 69 DF 07 99 22 42 |T .... U..i..."B|
00006170: 49 4A 20 44 45 20 4D 45 4E 55 53 45 4C 45 43 54 |IJ DE MENUSELECT|
00006180: 49 45 20 27 46 27 20 4B 49 45 5A 45 4E 20 28 46 |IE 'F' KIEZEN (F|
00006190: 49 4C 45 00 C0 69 E0 07 99 22 50 52 45 50 41 52 |ILE..i..."PREPAR|
000061A0: 45 52 45 4E 29 20 4F 4D 20 55 57 20 46 49 4C 45 |EREN) OM UW FILE|
000061B0: 20 44 45 46 49 4E 49 54 49 45 46 20 56 4F 52 4D | DEFINITIEF VORM|
000061C0: 00 D1 69 E1 07 99 22 54 45 20 47 45 56 45 4E 2E |..i..."TE GEVEN.|
000061D0: 22 00 FD 69 E8 07 99 C8 28 59 24 2C 32 34 29 22 |"..i....(Y$,24)"|
000061E0: D4 4F 45 54 53 20 12 D2 C5 D4 D5 D2 CE 92 20 56 |.OETS ........ V|
000061F0: 4F 4F 52 20 56 45 52 56 4F 4C 47 22 3B 00 17 6A |OOR VERVOLG";..j|
00006200: EA 07 A1 41 41 24 3A 8B 41 41 24 B3 B1 C7 28 31 |...AA$:.AA$...(1|
00006210: 33 29 A7 32 30 32 36 00 27 6A EC 07 97 38 32 38 |3).2026.'j...828|
00006220: 2C C3 28 50 4E 24 29 00 50 6A EE 07 81 49 B2 31 |,.(PN$).Pj...I.1|
00006230: A4 C3 28 50 4E 24 29 3A 97 38 32 38 AA 49 2C C6 |..(PN$):.828.I,.|
00006240: 28 CA 28 50 4E 24 2C 49 2C 31 29 29 3A 82 20 49 |(.(PN$,I,1)):. I|
00006250: 00 8A 6A EF 07 99 22 93 22 3B C8 28 59 24 2C 35 |..j...".";.(Y$,5|
00006260: 29 22 D0 52 4F 47 52 41 4D 4D 41 20 57 4F 52 44 |)".ROGRAMMA WORD|
00006270: 54 20 47 45 4C 41 44 45 4E 2E 20 C5 56 45 4E 20 |T GELADEN. .VEN |
00006280: 47 45 44 55 4C 44 2E 2E 2E 22 00 9D 6A F0 07 9C |GEDULD..."..j...|
00006290: 3A 93 22 43 4F 4E 56 45 52 54 22 2C 38 00 AC 6A |:."CONVERT",8..j|
000062A0: F2 07 8B 4E 53 B2 30 A7 32 30 35 36 00 CA 6A F4 |...NS.0.2056..j.|
000062B0: 07 98 32 2C 22 32 30 31 30 30 49 46 46 3C 3E 31 |..2,"20100IFF<>1|
000062C0: 54 48 45 4E 32 30 31 39 30 22 00 0A 6B F6 07 98 |THEN20190"..k...|
000062D0: 32 2C 22 32 30 31 31 30 20 50 3D 30 3A 3F 3A 3F |2,"20110 P=0:?:?|
000062E0: 22 3B 51 24 3B 22 C1 41 4E 20 5A 49 43 48 5A 45 |";Q$;".AN ZICHZE|
000062F0: 4C 46 20 47 45 52 45 4C 41 54 45 45 52 44 45 20 |LF GERELATEERDE |
00006300: 56 45 4C 44 45 4E 22 3B 51 24 00 2B 6B F8 07 98 |VELDEN";Q$.+k...|
00006310: 32 2C 22 32 30 31 32 30 46 CF 4A 3D 31 54 4F 22 |2,"20120F.J=1TO"|
00006320: 3B 4E 53 3B 22 53 54 45 50 32 22 00 53 6B FA 07 |;NS;"STEP2".Sk..|
00006330: 98 32 2C 22 32 30 31 33 30 50 3D 50 2B 31 3A 49 |.2,"20130P=P+1:I|
00006340: 46 43 53 25 28 50 29 3D 30 54 48 45 4E 32 30 31 |FCS%(P)=0THEN201|
00006350: 33 30 22 00 82 6B FC 07 98 32 2C 22 32 30 31 34 |30"..k...2,"2014|
00006360: 30 50 52 49 4E 54 4A 2B 4E 46 2C 22 3B 51 24 3B |0PRINTJ+NF,";Q$;|
00006370: 22 2D 20 22 3B 51 24 3B 22 2C 43 50 24 28 50 29 |"- ";Q$;",CP$(P)|
00006380: 3B 22 00 A3 6B FE 07 98 32 2C 22 32 30 31 35 30 |;"..k...2,"20150|
00006390: 49 46 4A 3D 22 3B 4E 53 3B 22 54 48 C5 32 30 31 |IFJ=";NS;"TH.201|
000063A0: 38 30 22 00 CA 6B 00 08 98 32 2C 22 32 30 31 36 |80"..k...2,"2016|
000063B0: 30 50 3D 50 2B 31 3A 49 46 43 53 24 28 50 29 3D |0P=P+1:IFCS$(P)=|
000063C0: 30 54 48 C5 32 30 31 36 30 22 00 03 6C 02 08 98 |0TH.20160"..l...|
000063D0: 32 2C 22 32 30 31 37 30 50 52 49 4E 54 54 41 42 |2,"20170PRINTTAB|
000063E0: 28 31 39 29 3B 4A 2B 31 2B 4E 46 3B 22 3B 51 24 |(19);J+1+NF;";Q$|
000063F0: 3B 22 2D 20 22 3B 51 24 3B 22 2C 43 50 24 28 50 |;"- ";Q$;",CP$(P|
00006400: 29 3B 22 00 1D 6C 04 08 98 32 2C 22 32 30 31 38 |);"..l...2,"2018|
00006410: 30 50 52 49 4E 54 3A 4E 45 58 54 4A 22 00 40 6C |0PRINT:NEXTJ".@l|
00006420: 06 08 98 32 2C 22 32 30 31 39 30 52 45 4D 20 5A |...2,"20190REM Z|
00006430: 49 43 48 5A 2E 20 52 45 46 20 56 45 4C 44 2E 22 |ICHZ. REF VELD."|
00006440: 00 4F 6C 08 08 8B 4E 43 B2 30 A7 32 30 38 30 00 |.Ol...NC.0.2080.|
00006450: 6C 6C 0A 08 98 32 2C 22 32 30 32 30 30 49 46 46 |ll...2,"20200IFF|
00006460: 3C 3E 32 54 48 45 4E 32 30 32 36 30 00 9F 6C 0C |<>2THEN20260..l.|
00006470: 08 98 32 2C 22 32 30 32 31 30 3F 3A 3F 22 3B 51 |..2,"20210?:?";Q|
00006480: 24 3B 22 C3 4F 4D 50 55 54 45 52 42 45 52 45 4B |$;".OMPUTERBEREK|
00006490: 45 4E 44 45 20 56 45 4C 44 45 4E 22 3B 51 24 00 |ENDE VELDEN";Q$.|
000064A0: BD 6C 0E 08 98 32 2C 22 32 30 32 32 30 46 4F 52 |.l...2,"20220FOR|
000064B0: 4A 3D 31 54 4F 4E 43 53 54 45 50 32 22 00 E8 6C |J=1TONCSTEP2"..l|
000064C0: 10 08 98 32 2C 22 32 30 32 33 30 3F 4A 2B 4E 46 |...2,"20230?J+NF|
000064D0: 3B 22 3B 51 24 3B 22 2D 20 22 3B 51 24 3B 22 2C |;";Q$;"- ";Q$;",|
000064E0: 43 50 24 28 4A 29 3B 22 00 29 6D 12 08 98 32 2C |CP$(J);".)m...2,|
000064F0: 22 32 30 32 34 30 49 46 4A 3C 4E 43 54 48 45 4E |"20240IFJ<NCTHEN|
00006500: 3F 54 41 42 28 31 39 29 3B 4A 2B 4E 46 2B 31 3B |?TAB(19);J+NF+1;|
00006510: 22 3B 51 24 3B 22 2D 20 22 3B 51 24 3B 22 2C 43 |";Q$;"- ";Q$;",C|
00006520: 50 24 28 4A 2B 31 29 3B 22 00 43 6D 14 08 98 32 |P$(J+1);".Cm...2|
00006530: 2C 22 32 30 32 35 30 50 52 49 4E 54 3A 4E 45 58 |,"20250PRINT:NEX|
00006540: 54 4A 22 00 59 6D 16 08 98 32 2C 22 32 30 32 36 |TJ".Ym...2,"2026|
00006550: 30 52 45 4D 20 50 43 53 22 00 83 6D 20 08 4C 4E |0REM PCS"..m .LN|
00006560: B2 32 31 30 37 30 3A 8B 4E 53 B2 30 A7 98 32 2C |.21070:.NS.0..2,|
00006570: 22 32 31 30 33 30 52 45 D4 22 3A 4C 4E B2 32 31 |"21030RE.":LN.21|
00006580: 30 36 30 00 C6 6D 2C 08 98 32 2C 22 34 30 30 30 |060..m,..2,"4000|
00006590: 36 20 52 4E 3D 49 4B 2D 31 3A 53 4C 3D 49 4E 54 |6 RN=IK-1:SL=INT|
000065A0: 28 22 3B 52 53 3B 22 2A 52 4E 2F 38 30 29 3A 4F |(";RS;"*RN/80):O|
000065B0: 53 3D 28 22 3B 52 53 3B 22 2A 52 4E 29 2D 28 38 |S=(";RS;"*RN)-(8|
000065C0: 30 2A 53 4C 29 22 00 FF 6D 2E 08 98 32 2C 22 34 |0*SL)"..m...2,"4|
000065D0: 30 30 30 35 20 4F D0 34 2C 38 2C 34 2C 22 3B 51 |0005 O.4,8,4,";Q|
000065E0: 24 3B 22 30 3A 22 3B 50 24 3B 22 30 2F 44 2C 4C |$;"0:";P$;"0/D,L|
000065F0: 2C 22 3B 51 24 3B 22 2B 43 C8 28 38 30 29 22 00 |,";Q$;"+C.(80)".|
00006600: 2E 6E 30 08 98 32 2C 22 34 30 30 31 30 4F 44 3D |.n0..2,"40010OD=|
00006610: 30 3A 52 45 4D 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |0:REM **********|
00006620: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 51 |*************".Q|
00006630: 6E 32 08 98 32 2C 22 34 30 30 32 30 20 53 4E 3D |n2..2,"40020 SN=|
00006640: 28 53 4C 2D 22 3B 46 52 3B 22 2A 4F 44 29 2B 31 |(SL-";FR;"*OD)+1|
00006650: 22 00 80 6E 34 08 98 32 2C 22 34 30 30 37 30 52 |"..n4..2,"40070R|
00006660: 45 4D 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |EM *************|
00006670: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 |***************"|
00006680: 00 BB 6E 36 08 98 32 2C 22 34 30 30 37 35 20 53 |..n6..2,"40075 S|
00006690: 4E 3D 28 53 4C 2D 22 3B 46 52 3B 22 2A 4F 44 29 |N=(SL-";FR;"*OD)|
000066A0: 2B 31 3A 41 31 3D 53 4E 3A 47 4F D3 35 32 30 30 |+1:A1=SN:GO.5200|
000066B0: 30 3A 49 4E D0 34 2C 49 4E 24 22 00 CA 6E 38 08 |0:IN.4,IN$"..n8.|
000066C0: 8B 4E 53 B2 30 A7 32 31 32 36 00 F4 6E 3A 08 98 |.NS.0.2126..n:..|
000066D0: 32 2C 22 34 30 30 39 35 46 CF 4A 3D 31 54 4F 4E |2,"40095F.J=1TON|
000066E0: 43 3A 49 46 43 53 25 28 4A 29 3D 30 54 48 C5 34 |C:IFCS%(J)=0TH.4|
000066F0: 30 31 34 30 00 17 6F 3C 08 98 32 2C 22 34 30 31 |0140..o<..2,"401|
00006700: 30 30 49 46 52 4C 2B 31 35 20 3E 20 38 30 54 48 |00IFRL+15 > 80TH|
00006710: C5 34 30 31 31 35 22 00 52 6F 3E 08 98 32 2C 22 |.40115".Ro>..2,"|
00006720: 34 30 31 30 35 20 52 4C 3D 52 4C 2B 31 35 3A 43 |40105 RL=RL+15:C|
00006730: 45 28 4A 29 3D 56 C1 28 4D 49 44 24 28 49 4E 24 |E(J)=V.(MID$(IN$|
00006740: 2C 49 39 2C 31 35 29 29 3A 49 39 3D 49 39 2B 31 |,I9,15)):I9=I9+1|
00006750: 35 22 00 68 6F 40 08 98 32 2C 22 34 30 31 31 30 |5".ho@..2,"40110|
00006760: 47 CF 34 30 31 34 30 22 00 9E 6F 42 08 98 32 2C |G.40140"..oB..2,|
00006770: 22 34 30 31 31 35 20 53 55 24 3D 4D 49 44 24 28 |"40115 SU$=MID$(|
00006780: 49 4E 24 2C 49 39 2C 38 30 2D 52 4C 29 3A 53 4C |IN$,I9,80-RL):SL|
00006790: 3D 53 4C 2B 31 3A 53 4E 3D 53 4E 2B 31 22 00 CD |=SL+1:SN=SN+1"..|
000067A0: 6F 44 08 98 32 2C 22 34 30 31 32 30 49 46 49 4E |oD..2,"40120IFIN|
000067B0: 54 28 53 4C 2F 22 3B 46 52 3B 22 29 3C 3E 4F 44 |T(SL/";FR;")<>OD|
000067C0: 54 48 C5 47 4F D3 20 33 38 30 30 30 22 00 08 70 |TH.GO. 38000"..p|
000067D0: 46 08 98 32 2C 22 34 30 31 32 35 20 53 4E 3D 28 |F..2,"40125 SN=(|
000067E0: 53 4C 2D 22 3B 46 52 3B 22 2A 4F 44 29 2B 31 3A |SL-";FR;"*OD)+1:|
000067F0: 41 31 3D 53 4E 3A 47 4F D3 35 32 30 30 30 3A 49 |A1=SN:GO.52000:I|
00006800: 4E D0 34 2C 49 4E 24 22 00 45 70 48 08 98 32 2C |N.4,IN$".EpH..2,|
00006810: 22 34 30 31 33 30 20 49 4E 24 3D 4C 45 C6 28 49 |"40130 IN$=LE.(I|
00006820: 4E 24 2B 53 53 24 2C 38 30 29 3A 53 55 24 3D 53 |N$+SS$,80):SU$=S|
00006830: 55 24 2B 4C 45 C6 28 49 4E 24 2C 31 35 2B 52 4C |U$+LE.(IN$,15+RL|
00006840: 2D 38 30 29 22 00 78 70 4A 08 98 32 2C 22 34 30 |-80)".xpJ..2,"40|
00006850: 31 33 35 20 43 45 28 4A 29 3D 56 C1 28 53 55 24 |135 CE(J)=V.(SU$|
00006860: 29 3A 52 4C 3D 31 35 2D 28 38 30 2D 52 4C 29 3A |):RL=15-(80-RL):|
00006870: 49 39 3D 52 4C 2B 31 22 00 8A 70 4C 08 98 32 2C |I9=RL+1"..pL..2,|
00006880: 22 34 30 31 34 30 4E C5 4A 22 00 99 70 4E 08 8B |"40140N.J"..pN..|
00006890: 4E 43 B2 30 A7 32 31 33 32 00 C1 70 50 08 98 32 |NC.0.2132..pP..2|
000068A0: 2C 22 34 30 31 36 30 46 CF 50 5A 3D 31 54 4F 4E |,"40160F.PZ=1TON|
000068B0: 43 3A 47 4F D3 32 38 35 30 30 3A 4E C5 20 50 5A |C:GO.28500:N. PZ|
000068C0: 22 00 F1 70 52 08 98 32 2C 22 34 30 31 37 30 46 |"..pR..2,"40170F|
000068D0: CF 49 49 3D 31 54 4F 4E 43 3A 20 43 44 28 49 49 |.II=1TONC: CD(II|
000068E0: 29 20 3D 20 43 45 28 49 49 29 20 3A 4E C5 49 49 |) = CE(II) :N.II|
000068F0: 22 00 00 71 54 08 8B 4E 47 B2 30 A7 32 31 33 36 |"..qT..NG.0.2136|
00006900: 00 2C 71 56 08 98 32 2C 22 34 30 31 38 30 46 CF |.,qV..2,"40180F.|
00006910: 49 49 3D 31 54 4F 4E 47 3A 47 4B 28 49 49 29 3D |II=1TONG:GK(II)=|
00006920: 47 4C 28 49 49 29 3A 4E C5 49 49 22 00 3B 71 58 |GL(II):N.II".;qX|
00006930: 08 8B 4E 47 B2 30 A7 32 31 34 32 00 6B 71 5A 08 |..NG.0.2142.kqZ.|
00006940: 98 32 2C 22 34 32 30 30 32 20 47 4F D3 20 31 33 |.2,"42002 GO. 13|
00006950: 31 30 30 20 3A 20 52 45 4D 20 4D 41 41 4B 20 47 |100 : REM MAAK G|
00006960: 45 4E 2E 20 54 4F 54 41 41 4C 22 00 A3 71 5C 08 |EN. TOTAAL"..q\.|
00006970: 98 32 2C 22 34 32 30 30 35 4F D0 34 2C 38 2C 34 |.2,"42005O.4,8,4|
00006980: 2C 22 3B 51 24 3B 22 30 3A 22 3B 50 24 3B 22 30 |,";Q$;"0:";P$;"0|
00006990: 2F 44 2C 4C 2C 22 3B 51 24 3B 22 2B 43 C8 28 38 |/D,L,";Q$;"+C.(8|
000069A0: 30 29 22 00 E6 71 5E 08 98 32 2C 22 34 32 30 30 |0)"..q^..2,"4200|
000069B0: 36 20 52 4E 3D 49 4B 2D 31 3A 53 4C 3D 49 4E 54 |6 RN=IK-1:SL=INT|
000069C0: 28 22 3B 52 53 3B 22 2A 52 4E 2F 38 30 29 3A 4F |(";RS;"*RN/80):O|
000069D0: 53 3D 28 22 3B 52 53 3B 22 2A 52 4E 29 2D 28 53 |S=(";RS;"*RN)-(S|
000069E0: 4C 2A 38 30 29 22 00 15 72 60 08 98 32 2C 22 34 |L*80)"..r`..2,"4|
000069F0: 32 30 31 30 4F 44 3D 30 3A 52 45 4D 20 2A 2A 2A |2010OD=0:REM ***|
00006A00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00006A10: 2A 2A 2A 2A 22 00 38 72 62 08 98 32 2C 22 34 32 |****".8rb..2,"42|
00006A20: 30 32 30 20 53 4E 3D 28 53 4C 2D 22 3B 46 52 3B |020 SN=(SL-";FR;|
00006A30: 22 2A 4F 44 29 2B 31 22 00 70 72 64 08 98 32 2C |"*OD)+1".prd..2,|
00006A40: 22 34 32 30 30 35 4F D0 34 2C 38 2C 34 2C 22 3B |"42005O.4,8,4,";|
00006A50: 51 24 3B 22 30 3A 22 3B 50 24 3B 22 30 2F 44 2C |Q$;"0:";P$;"0/D,|
00006A60: 4C 2C 22 3B 51 24 3B 22 2B 43 C8 28 38 30 29 22 |L,";Q$;"+C.(80)"|
00006A70: 00 B0 72 66 08 98 32 2C 22 34 32 30 36 36 20 53 |..rf..2,"42066 S|
00006A80: 4C 3D 53 4C 2B 31 3A 53 4E 3D 53 4E 2B 31 3A 52 |L=SL+1:SN=SN+1:R|
00006A90: 45 4D 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |EM *************|
00006AA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 |***************"|
00006AB0: 00 D3 72 68 08 98 32 2C 22 34 32 30 37 30 20 53 |..rh..2,"42070 S|
00006AC0: 4E 3D 28 53 4C 2D 22 3B 46 52 3B 22 2A 4F 44 29 |N=(SL-";FR;"*OD)|
00006AD0: 2B 31 22 00 E2 72 6A 08 8B 4E 53 B2 30 A7 32 31 |+1"..rj..NS.0.21|
00006AE0: 37 36 00 0C 73 6C 08 98 32 2C 22 34 32 30 38 33 |76..sl..2,"42083|
00006AF0: 46 CF 4A 3D 31 54 4F 4E 43 3A 49 46 43 53 25 28 |F.J=1TONC:IFCS%(|
00006B00: 4A 29 3D 30 54 48 C5 34 32 31 31 33 00 4D 73 6E |J)=0TH.42113.Msn|
00006B10: 08 98 32 2C 22 34 32 30 38 36 20 53 55 24 3D 4C |..2,"42086 SU$=L|
00006B20: 45 C6 28 53 54 52 24 28 43 44 28 4A 29 29 2B 53 |E.(STR$(CD(J))+S|
00006B30: 53 24 2C 31 35 29 20 3A 49 46 52 4C 2B 31 35 20 |S$,15) :IFRL+15 |
00006B40: 3E 20 38 30 54 48 C5 34 32 30 39 36 22 00 71 73 |> 80TH.42096".qs|
00006B50: 70 08 98 32 2C 22 34 32 30 39 30 20 52 4C 3D 52 |p..2,"42090 RL=R|
00006B60: 4C 2B 31 35 3A 4F 50 24 3D 4F 50 24 2B 53 55 24 |L+15:OP$=OP$+SU$|
00006B70: 22 00 87 73 72 08 98 32 2C 22 34 32 30 39 33 47 |"..sr..2,"42093G|
00006B80: CF 34 32 31 31 33 22 00 C4 73 74 08 98 32 2C 22 |.42113"..st..2,"|
00006B90: 34 32 30 39 36 20 4F 50 24 3D 4F 50 24 2B 4C 45 |42096 OP$=OP$+LE|
00006BA0: C6 28 53 55 24 2C 38 30 2D 52 4C 29 3A 41 31 3D |.(SU$,80-RL):A1=|
00006BB0: 53 4E 3A 47 4F D3 35 32 30 30 30 3A 50 D2 34 2C |SN:GO.52000:P.4,|
00006BC0: 4F 50 24 22 00 04 74 76 08 98 32 2C 22 34 32 31 |OP$"..tv..2,"421|
00006BD0: 30 30 20 53 4C 3D 53 4C 2B 31 3A 53 4E 3D 53 4E |00 SL=SL+1:SN=SN|
00006BE0: 2B 31 3A 49 46 49 4E 54 28 53 4C 2F 22 3B 46 52 |+1:IFINT(SL/";FR|
00006BF0: 3B 22 29 3C 3E 4F 44 54 48 C5 47 4F D3 20 33 38 |;")<>ODTH.GO. 38|
00006C00: 30 30 30 22 00 27 74 78 08 98 32 2C 22 34 32 31 |000".'tx..2,"421|
00006C10: 30 33 20 53 4E 3D 28 53 4C 2D 22 3B 46 52 3B 22 |03 SN=(SL-";FR;"|
00006C20: 2A 4F 44 29 2B 31 22 00 62 74 7A 08 98 32 2C 22 |*OD)+1".btz..2,"|
00006C30: 34 32 31 30 36 20 41 31 3D 53 4E 3A 47 4F D3 35 |42106 A1=SN:GO.5|
00006C40: 32 30 30 30 3A 49 4E D0 34 2C 49 4E 24 3A 49 4E |2000:IN.4,IN$:IN|
00006C50: 24 3D 4C 45 C6 28 49 4E 24 2B 53 53 24 2C 38 30 |$=LE.(IN$+SS$,80|
00006C60: 29 22 00 91 74 7C 08 98 32 2C 22 34 32 31 31 30 |)"..t|..2,"42110|
00006C70: 20 4F 50 24 3D 4D 49 44 24 28 53 55 24 2C 38 31 | OP$=MID$(SU$,81|
00006C80: 2D 52 4C 29 3A 52 4C 3D 31 35 2B 52 4C 2D 38 30 |-RL):RL=15+RL-80|
00006C90: 22 00 A3 74 7E 08 98 32 2C 22 34 32 31 31 33 4E |"..t~..2,"42113N|
00006CA0: C5 4A 22 00 DE 74 80 08 98 32 2C 22 34 32 31 33 |.J"..t...2,"4213|
00006CB0: 33 20 43 4C CF 34 3A 4F D0 32 2C 38 2C 32 2C 22 |3 CL.4:O.2,8,2,"|
00006CC0: 3B 51 24 3B 22 30 3A 22 3B 47 44 24 3B 22 2C 4C |;Q$;"0:";GD$;",L|
00006CD0: 2C 22 3B 51 24 3B 22 2B 43 C8 28 35 29 22 00 11 |,";Q$;"+C.(5)"..|
00006CE0: 75 81 08 98 32 2C 22 34 32 31 33 34 41 31 3D 52 |u...2,"42134A1=R|
00006CF0: 50 3A 47 4F D3 35 32 31 30 30 3A 50 52 49 4E 54 |P:GO.52100:PRINT|
00006D00: 23 32 2C 53 54 52 24 28 49 4B 29 3A 43 4C CF 32 |#2,STR$(IK):CL.2|
00006D10: 22 00 4A 75 82 08 98 32 2C 22 34 32 31 33 35 20 |".Ju...2,"42135 |
00006D20: 4F D0 34 2C 38 2C 34 2C 22 3B 51 24 3B 22 30 3A |O.4,8,4,";Q$;"0:|
00006D30: 22 3B 50 24 3B 22 30 2F 44 2C 4C 2C 22 3B 51 24 |";P$;"0/D,L,";Q$|
00006D40: 3B 22 2B 43 C8 28 38 30 29 22 00 8B 75 83 08 98 |;"+C.(80)"..u...|
00006D50: 32 2C 22 34 32 31 33 36 4F 50 24 3D 4F 50 24 2B |2,"42136OP$=OP$+|
00006D60: 4D 49 44 24 28 49 4E 24 2C 52 4C 2B 31 29 3A 41 |MID$(IN$,RL+1):A|
00006D70: 31 3D 53 4E 3A 47 4F D3 35 32 30 30 30 3A 50 D2 |1=SN:GO.52000:P.|
00006D80: 34 2C 4F 50 24 3A 43 4C CF 34 22 00 B7 75 84 08 |4,OP$:CL.4"..u..|
00006D90: 98 32 2C 22 33 33 30 30 30 20 43 4C CF 34 3A 4F |.2,"33000 CL.4:O|
00006DA0: D0 34 2C 38 2C 34 2C 22 3B 51 24 3B 22 30 3A 22 |.4,8,4,";Q$;"0:"|
00006DB0: 3B 53 46 24 3B 51 24 00 E1 75 85 08 98 32 2C 22 |;SF$;Q$..u...2,"|
00006DC0: 34 32 31 33 38 50 52 49 4E 54 23 31 35 2C 22 3B |42138PRINT#15,";|
00006DD0: 51 24 3B 22 49 30 22 3B 51 24 3B 22 3A 52 45 D4 |Q$;"I0";Q$;":RE.|
00006DE0: 22 00 F0 75 86 08 8B 4E 43 B2 30 A7 32 31 39 32 |"..u...NC.0.2192|
00006DF0: 00 39 76 88 08 98 32 2C 22 33 33 30 37 30 20 44 |.9v...2,"33070 D|
00006E00: 49 4D 20 43 50 24 28 4E 43 29 2C 43 58 25 28 4E |IM CP$(NC),CX%(N|
00006E10: 43 29 2C 43 59 25 28 4E 43 29 2C 43 54 24 28 4E |C),CY%(NC),CT$(N|
00006E20: 43 29 2C 43 44 28 4E 43 29 2C 43 45 28 4E 43 29 |C),CD(NC),CE(NC)|
00006E30: 2C 43 4C 25 28 4E 43 29 22 00 51 76 8A 08 98 32 |,CL%(NC)".Qv...2|
00006E40: 2C 22 33 33 30 38 30 46 CF 49 3D 31 54 4F 4E 43 |,"33080F.I=1TONC|
00006E50: 22 00 88 76 8C 08 98 32 2C 22 33 33 30 39 30 20 |"..v...2,"33090 |
00006E60: 49 4E D0 34 2C 43 50 24 28 49 29 2C 43 58 25 28 |IN.4,CP$(I),CX%(|
00006E70: 49 29 2C 43 59 25 28 49 29 2C 43 4C 25 28 49 29 |I),CY%(I),CL%(I)|
00006E80: 2C 43 54 24 28 49 29 22 00 99 76 8E 08 98 32 2C |,CT$(I)"..v...2,|
00006E90: 22 33 33 31 30 30 4E C5 49 00 A8 76 90 08 8B 4E |"33100N.I..v...N|
00006EA0: 47 B2 30 A7 32 31 39 38 00 F2 76 92 08 98 32 2C |G.0.2198..v...2,|
00006EB0: 22 33 33 31 30 35 20 44 49 4D 20 47 50 24 28 4E |"33105 DIM GP$(N|
00006EC0: 47 29 2C 47 58 25 28 4E 47 29 2C 47 59 25 28 4E |G),GX%(NG),GY%(N|
00006ED0: 47 29 2C 47 54 24 28 4E 47 29 2C 47 4C 28 4E 47 |G),GT$(NG),GL(NG|
00006EE0: 29 2C 47 4B 28 4E 47 29 2C 47 4D 28 4E 47 29 2C |),GK(NG),GM(NG),|
00006EF0: 22 3B 00 03 77 93 08 98 32 2C 22 47 4C 25 28 4E |";..w...2,"GL%(N|
00006F00: 47 29 22 00 48 77 94 08 98 32 2C 22 33 33 31 30 |G)".Hw...2,"3310|
00006F10: 37 46 CF 49 3D 31 54 4F 4E 47 3A 49 4E D0 34 2C |7F.I=1TONG:IN.4,|
00006F20: 47 50 24 28 49 29 2C 47 58 25 28 49 29 2C 47 59 |GP$(I),GX%(I),GY|
00006F30: 25 28 49 29 2C 47 4C 25 28 49 29 2C 47 54 24 28 |%(I),GL%(I),GT$(|
00006F40: 49 29 3A 4E C5 20 49 22 00 57 77 96 08 8B 4E 54 |I):N. I".Ww...NT|
00006F50: B2 30 A7 32 32 30 38 00 82 77 98 08 98 32 2C 22 |.0.2208..w...2,"|
00006F60: 33 33 31 32 30 20 44 49 4D 20 54 50 24 28 4E 54 |33120 DIM TP$(NT|
00006F70: 29 2C 54 58 25 28 4E 54 29 2C 54 59 25 28 4E 54 |),TX%(NT),TY%(NT|
00006F80: 29 22 00 9A 77 9A 08 98 32 2C 22 33 33 31 33 30 |)"..w...2,"33130|
00006F90: 46 CF 49 3D 31 54 4F 4E 54 22 00 C3 77 9C 08 98 |F.I=1TONT"..w...|
00006FA0: 32 2C 22 33 33 31 34 30 20 49 4E D0 34 2C 54 50 |2,"33140 IN.4,TP|
00006FB0: 24 28 49 29 2C 54 58 25 28 49 29 2C 54 59 25 28 |$(I),TX%(I),TY%(|
00006FC0: 49 29 22 00 D5 77 9E 08 98 32 2C 22 33 33 31 35 |I)"..w...2,"3315|
00006FD0: 30 4E C5 49 22 00 E4 77 A0 08 8B 44 5A B2 30 A7 |0N.I"..w...DZ.0.|
00006FE0: 32 32 33 32 00 1F 78 A2 08 98 32 2C 22 33 35 31 |2232..x...2,"351|
00006FF0: 33 35 49 46 54 24 3D 22 3B 51 24 3B 22 44 22 3B |35IFT$=";Q$;"D";|
00007000: 51 24 3B 22 54 48 C5 44 24 3D 53 4D 24 3A 47 4F |Q$;"TH.D$=SM$:GO|
00007010: D3 20 33 35 35 30 30 3A 53 4D 24 3D 44 24 22 00 |. 35500:SM$=D$".|
00007020: 5A 78 A4 08 98 32 2C 22 33 35 31 36 35 49 46 54 |Zx...2,"35165IFT|
00007030: 24 3D 22 3B 51 24 3B 22 44 22 3B 51 24 3B 22 54 |$=";Q$;"D";Q$;"T|
00007040: 48 C5 44 24 3D 4C 52 24 3A 47 4F D3 20 33 35 35 |H.D$=LR$:GO. 355|
00007050: 30 30 3A 4C 52 24 3D 44 24 22 00 94 78 A6 08 98 |00:LR$=D$"..x...|
00007060: 32 2C 22 33 35 32 37 35 49 46 54 24 3D 22 3B 51 |2,"35275IFT$=";Q|
00007070: 24 3B 22 44 22 3B 51 24 3B 22 54 48 C5 20 44 24 |$;"D";Q$;"TH. D$|
00007080: 3D 47 24 3A 47 4F D3 20 33 35 35 30 30 3A 47 24 |=G$:GO. 35500:G$|
00007090: 3D 44 24 22 00 CF 78 A8 08 99 C7 28 31 34 37 29 |=D$"..x....(147)|
000070A0: 3B 22 D7 49 4C 54 20 55 20 44 41 54 41 20 49 4E |;".ILT U DATA IN|
000070B0: 56 4F 45 52 45 4E 20 49 4E 20 44 45 22 3A 99 3A |VOEREN IN DE":.:|
000070C0: 99 22 C1 4D 45 52 49 4B 41 41 4E 53 45 22 3B 00 |.".MERIKAANSE";.|
000070D0: E9 78 A9 08 99 22 20 56 4F 52 4D 20 20 20 28 4D |.x..." VORM (M|
000070E0: 4D 2F 44 44 2F 59 59 29 22 00 11 79 AA 08 99 3A |M/DD/YY)"..y...:|
000070F0: 99 22 4F 46 20 C5 55 52 4F 50 45 53 45 20 56 4F |."OF .UROPESE VO|
00007100: 52 4D 20 20 20 28 44 44 2F 4D 4D 2F 59 59 29 3F |RM (DD/MM/YY)?|
00007110: 22 00 3E 79 AC 08 99 3A 99 3A 99 22 CB 49 45 53 |".>y...:.:.".IES|
00007120: 20 27 41 27 20 4F 46 20 27 45 27 20 45 4E 20 54 | 'A' OF 'E' EN T|
00007130: 4F 45 54 53 20 12 D2 C5 D4 D5 D2 CE 92 22 00 5F |OETS ........"._|
00007140: 79 AE 08 58 25 B2 33 32 3A 59 25 B2 38 3A 4C 25 |y..X%.32:Y%.8:L%|
00007150: B2 31 3A 8D 38 34 32 3A 41 45 24 B2 49 4E 24 00 |.1:.842:AE$.IN$.|
00007160: 7B 79 B0 08 8B 41 45 24 B3 B1 22 41 22 AF 41 45 |{y...AE$.."A".AE|
00007170: 24 B3 B1 22 45 22 A7 32 32 32 32 00 8E 79 B2 08 |$.."E".2222..y..|
00007180: 8B 41 45 24 B2 22 45 22 A7 20 32 32 33 30 00 CC |.AE$."E". 2230..|
00007190: 79 B4 08 98 32 2C 22 33 35 35 30 30 20 44 24 3D |y...2,"35500 D$=|
000071A0: 52 49 C7 28 44 24 2C 32 29 2B 4C 45 C6 28 44 24 |RI.(D$,2)+LE.(D$|
000071B0: 2C 32 29 2B 4D 49 44 24 28 44 24 2C 33 2C 32 29 |,2)+MID$(D$,3,2)|
000071C0: 3A 52 45 D4 22 3A 89 20 32 32 33 32 00 03 7A B6 |:RE.":. 2232..z.|
000071D0: 08 98 32 2C 22 33 35 35 30 30 20 44 24 3D 52 49 |..2,"35500 D$=RI|
000071E0: C7 28 44 24 2C 32 29 2B 4D 49 44 24 28 44 24 2C |.(D$,2)+MID$(D$,|
000071F0: 33 2C 32 29 2B 4C 45 C6 28 44 24 2C 32 29 3A 52 |3,2)+LE.(D$,2):R|
00007200: 45 D4 22 00 12 7A B8 08 8B 44 5A B2 30 A7 32 33 |E."..z...DZ.0.23|
00007210: 32 32 00 2D 7A FA 08 8D 32 35 34 32 3A 8B 20 41 |22.-z...2542:. A|
00007220: 45 24 B2 22 45 22 20 A7 20 32 33 30 32 00 62 7A |E$."E" . 2302.bz|
00007230: FC 08 98 32 2C 22 34 39 32 39 30 49 46 58 58 3C |...2,"49290IFXX<|
00007240: 31 20 4F 52 20 58 58 3E 31 32 54 48 C5 3F 4C 45 |1 OR XX>12TH.?LE|
00007250: C6 28 59 24 2C 32 33 29 3B 22 3B 3A 89 20 32 33 |.(Y$,23);";:. 23|
00007260: 30 34 00 90 7A FE 08 98 32 2C 22 34 39 32 39 30 |04..z...2,"49290|
00007270: 49 46 59 59 3C 31 20 4F 52 20 59 59 3E 31 32 54 |IFYY<1 OR YY>12T|
00007280: 48 C5 3F 4C 45 C6 28 59 24 2C 32 33 29 3B 22 3B |H.?LE.(Y$,23);";|
00007290: 00 BB 7A 00 09 98 32 2C 51 24 3B 22 C4 45 20 4D |..z...2,Q$;".E M|
000072A0: 41 41 4E 44 20 49 53 20 46 4F 55 54 22 3B 51 24 |AAND IS FOUT";Q$|
000072B0: 3B 22 3A 47 CF 34 39 30 30 30 22 00 D0 7A 02 09 |;":G.49000"..z..|
000072C0: 8B 20 41 45 24 B2 22 45 22 20 A7 20 32 33 31 30 |. AE$."E" . 2310|
000072D0: 00 0A 7B 04 09 98 32 2C 22 34 39 33 30 30 49 46 |..{...2,"49300IF|
000072E0: 59 59 3C 31 20 4F 52 20 59 59 3E 44 54 25 28 58 |YY<1 OR YY>DT%(X|
000072F0: 58 29 20 54 48 C5 3F 4C 45 C6 28 59 24 2C 32 33 |X) TH.?LE.(Y$,23|
00007300: 29 3B 22 3B 3A 89 32 33 31 32 00 3E 7B 06 09 98 |);";:.2312.>{...|
00007310: 32 2C 22 34 39 33 30 30 49 46 58 58 3C 31 20 4F |2,"49300IFXX<1 O|
00007320: 52 20 58 58 3E 44 54 25 28 59 59 29 20 54 48 C5 |R XX>DT%(YY) TH.|
00007330: 3F 4C 45 C6 28 59 24 2C 32 33 29 3B 22 3B 00 6B |?LE.(Y$,23);";.k|
00007340: 7B 08 09 98 32 2C 51 24 3B 22 C4 45 20 44 41 47 |{...2,Q$;".E DAG|
00007350: 20 49 53 20 56 45 52 4B 45 45 52 44 22 3B 51 24 | IS VERKEERD";Q$|
00007360: 3B 22 3A 47 CF 34 39 30 30 30 22 00 A7 7B 0A 09 |;":G.49000"..{..|
00007370: 98 32 2C 22 34 39 33 31 30 20 49 4E 24 20 3D 20 |.2,"49310 IN$ = |
00007380: 52 49 C7 28 22 3B 51 24 3B 22 30 30 22 3B 51 24 |RI.(";Q$;"00";Q$|
00007390: 3B 22 2B 4D 49 44 24 28 53 54 52 24 28 58 58 29 |;"+MID$(STR$(XX)|
000073A0: 2C 32 29 2C 32 29 22 00 E9 7B 0C 09 98 32 2C 22 |,2),2)"..{...2,"|
000073B0: 34 39 33 32 30 20 49 4E 24 20 3D 20 49 4E 24 20 |49320 IN$ = IN$ |
000073C0: 2B 20 52 49 C7 28 22 3B 51 24 3B 22 30 30 22 3B |+ RI.(";Q$;"00";|
000073D0: 51 24 3B 22 2B 4D 49 44 24 28 53 54 52 24 28 59 |Q$;"+MID$(STR$(Y|
000073E0: 59 29 2C 32 29 2C 32 29 22 00 2B 7C 0E 09 98 32 |Y),2),2)".+|...2|
000073F0: 2C 22 34 39 33 33 30 20 49 4E 24 20 3D 20 49 4E |,"49330 IN$ = IN|
00007400: 24 20 2B 20 52 49 C7 28 22 3B 51 24 3B 22 30 30 |$ + RI.(";Q$;"00|
00007410: 22 3B 51 24 3B 22 2B 4D 49 44 24 28 53 54 52 24 |";Q$;"+MID$(STR$|
00007420: 28 5A 5A 29 2C 32 29 2C 32 29 22 00 3E 7C 10 09 |(ZZ),2),2)".>|..|
00007430: 98 32 2C 22 34 39 33 34 30 20 52 45 D4 22 00 4D |.2,"49340 RE.".M|
00007440: 7C 12 09 8B 44 58 B2 30 A7 32 33 34 32 00 6E 7C ||...DX.0.2342.n||
00007450: 26 09 98 32 2C 22 33 38 30 30 30 20 4F 44 3D 49 |&..2,"38000 OD=I|
00007460: 4E 54 28 53 4C 2F 22 3B 46 52 3B 22 29 22 00 AA |NT(SL/";FR;")"..|
00007470: 7C 28 09 98 32 2C 22 33 38 30 31 30 20 4E 4D 24 ||(..2,"38010 NM$|
00007480: 3D 22 3B 51 24 3B 50 24 3B 51 24 3B 22 2B 52 49 |=";Q$;P$;Q$;"+RI|
00007490: C7 28 53 54 52 24 28 4F 44 29 2C 31 29 2B 22 3B |.(STR$(OD),1)+";|
000074A0: 51 24 3B 22 2F 44 22 3B 51 24 00 F1 7C 2A 09 98 |Q$;"/D";Q$..|*..|
000074B0: 32 2C 22 33 38 30 32 30 43 4C CF 34 3A 4F D0 34 |2,"38020CL.4:O.4|
000074C0: 2C 38 2C 34 2C 22 3B 51 24 3B 22 30 3A 22 3B 51 |,8,4,";Q$;"0:";Q|
000074D0: 24 3B 22 2B 28 4E 4D 24 29 2B 22 3B 51 24 3B 22 |$;"+(NM$)+";Q$;"|
000074E0: 2C 4C 2C 22 3B 51 24 3B 22 2B 43 C8 28 38 30 29 |,L,";Q$;"+C.(80)|
000074F0: 22 00 00 7D 2C 09 8B 4E 47 B2 30 A7 32 34 38 32 |"..},..NG.0.2482|
00007500: 00 3C 7D 2E 09 98 32 2C 22 31 33 30 30 30 20 43 |.<}...2,"13000 C|
00007510: 4C CF 20 33 3A 4F D0 33 2C 38 2C 33 2C 22 3B 51 |L. 3:O.3,8,3,";Q|
00007520: 24 3B 22 30 3A 22 3B 47 46 24 3B 22 2C 4C 2C 22 |$;"0:";GF$;",L,"|
00007530: 51 24 3B 22 2B 43 C8 28 31 35 29 22 00 56 7D 30 |Q$;"+C.(15)".V}0|
00007540: 09 98 32 2C 22 31 33 30 30 35 46 CF 20 49 49 3D |..2,"13005F. II=|
00007550: 31 54 4F 4E 47 22 00 6E 7D 32 09 98 32 2C 22 31 |1TONG".n}2..2,"1|
00007560: 33 30 31 30 20 49 4E D0 33 2C 47 4C 24 22 00 8C |3010 IN.3,GL$"..|
00007570: 7D 34 09 98 32 2C 22 31 33 30 32 30 20 47 4C 28 |}4..2,"13020 GL(|
00007580: 49 49 29 3D 56 C1 28 47 4C 24 29 22 00 9F 7D 36 |II)=V.(GL$)"..}6|
00007590: 09 98 32 2C 22 31 33 30 33 30 4E C5 49 49 22 00 |..2,"13030N.II".|
000075A0: B7 7D 38 09 98 32 2C 22 31 33 30 34 30 20 43 4C |.}8..2,"13040 CL|
000075B0: CF 33 3A 52 45 D4 22 00 F3 7D 3A 09 98 32 2C 22 |.3:RE."..}:..2,"|
000075C0: 31 33 31 30 30 20 43 4C CF 33 3A 20 4F D0 33 2C |13100 CL.3: O.3,|
000075D0: 38 2C 33 2C 22 3B 51 24 3B 22 30 3A 22 3B 47 46 |8,3,";Q$;"0:";GF|
000075E0: 24 3B 22 2C 4C 2C 22 51 24 3B 22 2B 43 C8 28 31 |$;",L,"Q$;"+C.(1|
000075F0: 35 29 22 00 0D 7E 3C 09 98 32 2C 22 31 33 31 30 |5)"..~<..2,"1310|
00007600: 32 46 CF 20 57 39 3D 31 54 4F 4E 46 22 00 29 7E |2F. W9=1TONF".)~|
00007610: 3E 09 98 32 2C 22 31 33 31 30 35 20 49 4A 20 3D |>..2,"13105 IJ =|
00007620: 20 47 53 25 28 57 39 29 22 00 5E 7E 40 09 98 32 | GS%(W9)".^~@..2|
00007630: 2C 22 31 33 31 31 30 49 46 49 4A 20 3D 20 30 54 |,"13110IFIJ = 0T|
00007640: 48 C5 31 33 31 33 35 20 3A 20 52 45 4D 20 4E 4F |H.13135 : REM NO|
00007650: 20 47 4C 4F 42 41 4C 20 46 49 45 4C 44 22 00 7C | GLOBAL FIELD".||
00007660: 7E 42 09 98 32 2C 22 31 33 31 31 35 20 41 31 3D |~B..2,"13115 A1=|
00007670: 49 4A 3A 47 4F D3 35 32 31 35 30 22 00 BF 7E 44 |IJ:GO.52150"..~D|
00007680: 09 98 32 2C 22 31 33 31 32 30 49 46 41 4E 24 3C |..2,"13120IFAN$<|
00007690: 3E 22 3B 51 24 3B 22 45 22 3B 51 24 3B 22 54 48 |>";Q$;"E";Q$;"TH|
000076A0: C5 20 47 4C 28 49 4A 29 20 3D 20 47 4C 28 49 4A |. GL(IJ) = GL(IJ|
000076B0: 29 20 2D 20 56 C1 28 46 24 28 57 39 29 29 22 00 |) - V.(F$(W9))".|
000076C0: 02 7F 46 09 98 32 2C 22 31 33 31 32 35 49 46 41 |..F..2,"13125IFA|
000076D0: 4E 24 3C 3E 22 3B 51 24 3B 22 44 22 3B 51 24 3B |N$<>";Q$;"D";Q$;|
000076E0: 22 54 48 C5 20 47 4C 28 49 4A 29 20 3D 20 47 4C |"TH. GL(IJ) = GL|
000076F0: 28 49 4A 29 20 2B 20 56 C1 28 47 24 28 57 39 29 |(IJ) + V.(G$(W9)|
00007700: 29 22 00 22 7F 48 09 98 32 2C 22 31 33 31 33 30 |)".".H..2,"13130|
00007710: 20 50 D2 33 2C 53 54 52 24 28 47 4C 28 49 4A 29 | P.3,STR$(GL(IJ)|
00007720: 29 22 00 35 7F 4A 09 98 32 2C 22 31 33 31 33 35 |)".5.J..2,"13135|
00007730: 4E C5 57 39 22 00 47 7F 4C 09 8B 20 4E 43 B2 30 |N.W9".G.L.. NC.0|
00007740: 20 A7 20 32 33 39 38 00 61 7F 4E 09 98 32 2C 22 | . 2398.a.N..2,"|
00007750: 31 33 31 34 30 46 CF 20 57 39 3D 31 54 4F 4E 43 |13140F. W9=1TONC|
00007760: 22 00 80 7F 50 09 98 32 2C 22 31 33 31 34 35 20 |"...P..2,"13145 |
00007770: 49 4A 20 3D 20 47 53 25 28 57 39 2B 4E 46 29 22 |IJ = GS%(W9+NF)"|
00007780: 00 B5 7F 52 09 98 32 2C 22 31 33 31 35 30 49 46 |...R..2,"13150IF|
00007790: 49 4A 20 3D 20 30 54 48 C5 31 33 31 37 35 20 3A |IJ = 0TH.13175 :|
000077A0: 20 52 45 4D 20 4E 4F 20 47 4C 4F 42 41 4C 20 46 | REM NO GLOBAL F|
000077B0: 49 45 4C 44 22 00 D3 7F 54 09 98 32 2C 22 31 33 |IELD"...T..2,"13|
000077C0: 31 35 35 20 41 31 3D 49 4A 3A 47 4F D3 35 32 31 |155 A1=IJ:GO.521|
000077D0: 35 30 22 00 12 80 56 09 98 32 2C 22 31 33 31 36 |50"...V..2,"1316|
000077E0: 30 49 46 41 4E 24 3C 3E 22 3B 51 24 3B 22 45 22 |0IFAN$<>";Q$;"E"|
000077F0: 3B 51 24 3B 22 54 48 C5 20 47 4C 28 49 4A 29 20 |;Q$;"TH. GL(IJ) |
00007800: 3D 20 47 4C 28 49 4A 29 20 2D 20 43 45 28 57 39 |= GL(IJ) - CE(W9|
00007810: 29 22 00 51 80 58 09 98 32 2C 22 31 33 31 36 35 |)".Q.X..2,"13165|
00007820: 49 46 41 4E 24 3C 3E 22 3B 51 24 3B 22 44 22 3B |IFAN$<>";Q$;"D";|
00007830: 51 24 3B 22 54 48 C5 20 47 4C 28 49 4A 29 20 3D |Q$;"TH. GL(IJ) =|
00007840: 20 47 4C 28 49 4A 29 20 2B 20 43 44 28 57 39 29 | GL(IJ) + CD(W9)|
00007850: 22 00 71 80 5A 09 98 32 2C 22 31 33 31 37 30 20 |".q.Z..2,"13170 |
00007860: 50 D2 33 2C 53 54 52 24 28 47 4C 28 49 4A 29 29 |P.3,STR$(GL(IJ))|
00007870: 22 00 84 80 5C 09 98 32 2C 22 31 33 31 37 35 4E |"...\..2,"13175N|
00007880: C5 57 39 22 00 9C 80 5E 09 98 32 2C 22 31 33 31 |.W9"...^..2,"131|
00007890: 38 30 20 43 4C CF 33 3A 52 45 D4 22 00 BF 80 60 |80 CL.3:RE."...`|
000078A0: 09 98 32 2C 22 31 33 32 30 33 20 3F 43 C8 28 31 |..2,"13203 ?C.(1|
000078B0: 34 37 29 3B 4C 45 C6 28 59 24 2C 35 29 22 3B 00 |47);LE.(Y$,5)";.|
000078C0: F3 80 62 09 98 32 2C 51 24 3B 22 C3 4F 4E 54 52 |..b..2,Q$;".ONTR|
000078D0: 4F 4C 45 20 4E 45 45 4D 54 20 45 4E 49 47 45 20 |OLE NEEMT ENIGE |
000078E0: 54 49 4A 44 20 49 4E 20 42 45 53 4C 41 47 2E 22 |TIJD IN BESLAG."|
000078F0: 3B 51 24 00 0C 81 64 09 98 32 2C 22 31 33 32 30 |;Q$...d..2,"1320|
00007900: 35 46 CF 49 49 3D 31 54 4F 4E 47 22 00 38 81 66 |5F.II=1TONG".8.f|
00007910: 09 98 32 2C 22 31 33 32 31 30 20 47 4D 28 49 49 |..2,"13210 GM(II|
00007920: 29 20 3D 20 30 20 3A 20 47 4B 28 49 49 29 20 3D |) = 0 : GK(II) =|
00007930: 20 47 4C 28 49 49 29 22 00 4B 81 68 09 98 32 2C | GL(II)".K.h..2,|
00007940: 22 31 33 32 31 32 4E C5 49 49 22 00 65 81 6A 09 |"13212N.II".e.j.|
00007950: 98 32 2C 22 31 33 32 31 35 46 CF 20 49 4B 3D 31 |.2,"13215F. IK=1|
00007960: 54 4F 46 53 22 00 8E 81 6C 09 98 32 2C 22 31 33 |TOFS"...l..2,"13|
00007970: 32 32 30 20 47 4F D3 20 34 30 30 30 35 3A 52 45 |220 GO. 40005:RE|
00007980: 4D 20 4E 45 58 54 20 52 45 43 4F 52 44 22 00 BD |M NEXT RECORD"..|
00007990: 81 6E 09 98 32 2C 22 31 33 32 32 35 49 46 4C 45 |.n..2,"13225IFLE|
000079A0: C6 28 46 24 28 31 29 2C 31 29 20 3D 20 43 C8 28 |.(F$(1),1) = C.(|
000079B0: 32 35 35 29 54 48 C5 31 33 32 35 35 22 00 D7 81 |255)TH.13255"...|
000079C0: 70 09 98 32 2C 22 31 33 32 33 30 46 CF 20 49 4A |p..2,"13230F. IJ|
000079D0: 3D 31 54 4F 4E 46 22 00 1A 82 72 09 98 32 2C 22 |=1TONF"...r..2,"|
000079E0: 31 33 32 34 30 49 46 47 53 25 28 49 4A 29 20 3E |13240IFGS%(IJ) >|
000079F0: 20 30 54 48 C5 47 4D 28 47 53 25 28 49 4A 29 29 | 0TH.GM(GS%(IJ))|
00007A00: 20 3D 20 47 4D 28 47 53 25 28 49 4A 29 29 2B 56 | = GM(GS%(IJ))+V|
00007A10: C1 28 46 24 28 49 4A 29 29 22 00 2D 82 74 09 98 |.(F$(IJ))".-.t..|
00007A20: 32 2C 22 31 33 32 35 30 4E C5 49 4A 22 00 40 82 |2,"13250N.IJ".@.|
00007A30: 76 09 98 32 2C 22 31 33 32 35 35 4E C5 49 4B 22 |v..2,"13255N.IK"|
00007A40: 00 59 82 78 09 98 32 2C 22 31 33 32 35 37 46 CF |.Y.x..2,"13257F.|
00007A50: 49 49 3D 31 54 4F 4E 47 22 00 78 82 7A 09 98 32 |II=1TONG".x.z..2|
00007A60: 2C 22 31 33 32 36 30 20 47 4C 28 49 49 29 20 3D |,"13260 GL(II) =|
00007A70: 20 47 4D 28 49 49 29 22 00 8B 82 7C 09 98 32 2C | GM(II)"...|..2,|
00007A80: 22 31 33 32 37 30 4E C5 49 49 22 00 9D 82 7E 09 |"13270N.II"...~.|
00007A90: 8B 20 4E 43 B2 30 20 A7 20 32 34 35 34 00 B7 82 |. NC.0 . 2454...|
00007AA0: 80 09 98 32 2C 22 31 33 32 37 35 46 CF 20 49 4A |...2,"13275F. IJ|
00007AB0: 3D 31 54 4F 4E 43 22 00 D6 82 82 09 98 32 2C 22 |=1TONC"......2,"|
00007AC0: 31 33 32 38 30 20 4A 4B 20 3D A0 47 53 25 28 49 |13280 JK =.GS%(I|
00007AD0: 4A 2B 4E 46 29 22 00 F5 82 84 09 98 32 2C 22 31 |J+NF)"......2,"1|
00007AE0: 33 32 38 35 49 46 4A 4B 20 3D 20 30 54 48 C5 31 |3285IFJK = 0TH.1|
00007AF0: 33 33 35 30 22 00 0F 83 86 09 98 32 2C 22 31 33 |3350"......2,"13|
00007B00: 32 39 30 46 CF 20 49 4B 3D 31 54 4F 46 53 22 00 |290F. IK=1TOFS".|
00007B10: 28 83 88 09 98 32 2C 22 31 33 33 30 30 20 47 4F |(....2,"13300 GO|
00007B20: D3 20 34 30 30 30 35 22 00 57 83 8A 09 98 32 2C |. 40005".W....2,|
00007B30: 22 31 33 33 31 30 49 46 4C 45 C6 28 46 24 28 31 |"13310IFLE.(F$(1|
00007B40: 29 2C 31 29 20 3D 20 43 C8 28 32 35 35 29 54 48 |),1) = C.(255)TH|
00007B50: C5 31 33 33 34 30 22 00 7F 83 8C 09 98 32 2C 22 |.13340"......2,"|
00007B60: 31 33 33 32 30 46 CF 20 50 5A 3D 31 54 4F 49 4A |13320F. PZ=1TOIJ|
00007B70: 3A 47 4F D3 32 38 35 30 30 3A 4E C5 50 5A 22 00 |:GO.28500:N.PZ".|
00007B80: A7 83 8E 09 98 32 2C 22 31 33 33 33 30 20 47 4D |.....2,"13330 GM|
00007B90: 28 4A 4B 29 20 3D 20 47 4D 28 4A 4B 29 20 2B 20 |(JK) = GM(JK) + |
00007BA0: 43 45 28 49 4A 29 22 00 BA 83 90 09 98 32 2C 22 |CE(IJ)"......2,"|
00007BB0: 31 33 33 34 30 4E C5 49 4B 22 00 E9 83 92 09 98 |13340N.IK"......|
00007BC0: 32 2C 22 31 33 33 34 35 20 47 4C 28 47 53 25 28 |2,"13345 GL(GS%(|
00007BD0: 49 4A 2B 4E 46 29 29 20 3D A0 47 4D 28 47 53 25 |IJ+NF)) =.GM(GS%|
00007BE0: 28 49 4A 2B 4E 46 29 29 22 00 FC 83 94 09 98 32 |(IJ+NF))"......2|
00007BF0: 2C 22 31 33 33 35 30 4E C5 49 4A 22 00 1E 84 96 |,"13350N.IJ"....|
00007C00: 09 98 32 2C 22 31 33 33 36 30 3F 43 C8 28 31 34 |..2,"13360?C.(14|
00007C10: 37 29 3B 4C 45 C6 28 59 24 2C 33 29 3B 22 00 5A |7);LE.(Y$,3);".Z|
00007C20: 84 98 09 98 32 2C 22 31 33 33 36 35 20 3F 22 3B |....2,"13365 ?";|
00007C30: 51 24 3B 22 D6 45 4C 44 20 22 3B 51 24 3B 22 3B |Q$;".ELD ";Q$;";|
00007C40: 54 C1 31 35 29 3B 22 3B 51 24 3B 22 CF 55 44 20 |T.15);";Q$;".UD |
00007C50: 54 4F 54 2E 20 22 3B 51 24 3B 00 88 84 9A 09 98 |TOT. ";Q$;......|
00007C60: 32 2C 22 3B 54 C1 32 35 29 3B 22 3B 51 24 3B 22 |2,";T.25);";Q$;"|
00007C70: CE 49 45 55 57 20 54 4F 54 41 41 4C 2E 20 22 3B |.IEUW TOTAAL. ";|
00007C80: 51 24 3B 22 3A 20 3F 22 00 A2 84 9C 09 98 32 2C |Q$;": ?"......2,|
00007C90: 22 31 33 33 37 30 46 CF 20 49 4A 3D 31 54 4F 4E |"13370F. IJ=1TON|
00007CA0: 47 22 00 D2 84 9E 09 98 32 2C 22 31 33 33 38 30 |G"......2,"13380|
00007CB0: 3F 47 50 24 28 49 4A 29 3B 54 C1 31 35 29 3B 47 |?GP$(IJ);T.15);G|
00007CC0: 4B 28 49 4A 29 54 C1 32 35 29 3B 47 4D 28 49 4A |K(IJ)T.25);GM(IJ|
00007CD0: 29 22 00 FA 84 A0 09 98 32 2C 22 31 33 33 39 30 |)"......2,"13390|
00007CE0: 49 46 47 4B 28 49 4A 29 20 3D 20 47 4D 28 49 4A |IFGK(IJ) = GM(IJ|
00007CF0: 29 54 48 C5 31 33 34 33 30 22 00 2D 85 A2 09 98 |)TH.13430".-....|
00007D00: 32 2C 22 31 33 34 30 30 3F 22 3B 51 24 3B 22 2A |2,"13400?";Q$;"*|
00007D10: 20 4F 55 44 20 54 4F 54 41 41 4C 20 47 45 43 4F | OUD TOTAAL GECO|
00007D20: 52 49 47 45 45 52 44 20 2A 22 3B 51 24 00 67 85 |RIGEERD *";Q$.g.|
00007D30: A4 09 98 32 2C 22 31 33 34 31 30 43 4C CF 33 3A |...2,"13410CL.3:|
00007D40: 4F D0 33 2C 38 2C 33 2C 22 3B 51 24 3B 22 30 3A |O.3,8,3,";Q$;"0:|
00007D50: 22 3B 47 46 24 3B 22 2C 4C 2C 22 51 24 3B 22 2B |";GF$;",L,"Q$;"+|
00007D60: 43 C8 28 31 35 29 22 00 95 85 A6 09 98 32 2C 22 |C.(15)"......2,"|
00007D70: 31 33 34 32 30 20 41 31 3D 49 4A 3A 47 4F D3 35 |13420 A1=IJ:GO.5|
00007D80: 32 31 35 30 3A 50 D2 33 2C 47 4C 28 49 4A 29 3A |2150:P.3,GL(IJ):|
00007D90: 43 4C CF 33 22 00 A5 85 A8 09 98 32 2C 22 31 33 |CL.3"......2,"13|
00007DA0: 34 33 30 3F 22 00 B8 85 AA 09 98 32 2C 22 31 33 |430?"......2,"13|
00007DB0: 34 34 30 4E C5 49 4A 22 00 F7 85 AC 09 98 32 2C |440N.IJ"......2,|
00007DC0: 22 31 33 34 34 35 3F 4C 45 C6 28 59 24 2C 32 34 |"13445?LE.(Y$,24|
00007DD0: 29 3B 22 3B 51 24 3B 22 D4 4F 45 54 53 20 12 D2 |);";Q$;".OETS ..|
00007DE0: C5 D4 D5 D2 CE 92 20 56 4F 4F 52 20 56 45 52 56 |...... VOOR VERV|
00007DF0: 4F 4C 47 22 3B 51 24 00 24 86 AE 09 98 32 2C 22 |OLG";Q$.$....2,"|
00007E00: 31 33 34 34 38 20 47 45 54 20 41 41 24 3A 49 46 |13448 GET AA$:IF|
00007E10: 41 41 24 3C 3E 43 C8 28 31 33 29 54 48 C5 31 33 |AA$<>C.(13)TH.13|
00007E20: 34 34 38 22 00 37 86 B0 09 98 32 2C 22 31 33 34 |448".7....2,"134|
00007E30: 35 30 47 CF 39 30 22 00 49 86 B2 09 8B 4E 46 AA |50G.90".I....NF.|
00007E40: 4E 43 B2 31 A7 32 35 30 30 00 86 86 B4 09 98 32 |NC.1.2500......2|
00007E50: 2C 22 33 35 30 34 30 3F 22 3B 51 24 3B 22 93 11 |,"35040?";Q$;"..|
00007E60: 11 11 11 11 D7 45 4C 4B 20 56 45 4C 44 20 57 49 |.....ELK VELD WI|
00007E70: 4C 54 20 55 20 53 45 4C 45 43 54 45 52 45 4E 20 |LT U SELECTEREN |
00007E80: 3F 22 3B 51 24 3B 00 B6 86 B6 09 98 32 2C 22 3A |?";Q$;......2,":|
00007E90: 3F 22 51 24 22 28 20 31 20 2D 22 3B 4E 46 AA 4E |?"Q$"( 1 -";NF.N|
00007EA0: 43 3B 22 4F 52 20 27 4C 49 53 54 27 20 29 22 3B |C;"OR 'LIST' )";|
00007EB0: 51 24 3B 22 3B 22 00 EA 86 B8 09 98 32 2C 22 33 |Q$;";"......2,"3|
00007EC0: 35 30 35 30 20 58 25 3D 32 31 3A 59 25 3D 37 3A |5050 X%=21:Y%=7:|
00007ED0: 4C 25 3D 35 3A 47 4F D3 20 33 34 30 30 30 3A 53 |L%=5:GO. 34000:S|
00007EE0: 46 3D 56 C1 28 49 4E 24 29 22 00 19 87 BA 09 98 |F=V.(IN$)"......|
00007EF0: 32 2C 22 33 35 30 36 30 49 46 49 4E 24 3C 3E 22 |2,"35060IFIN$<>"|
00007F00: 3B 51 24 3B 22 4C 49 53 54 22 3B 51 24 3B 22 54 |;Q$;"LIST";Q$;"T|
00007F10: 48 C5 33 35 30 38 30 20 22 00 45 87 BC 09 98 32 |H.35080 ".E....2|
00007F20: 2C 22 33 35 30 37 30 46 3D 32 3A 47 4F D3 32 30 |,"35070F=2:GO.20|
00007F30: 30 30 30 3A 3F 43 C8 28 31 34 37 29 20 3A 47 CF |000:?C.(147) :G.|
00007F40: 33 35 30 33 35 00 89 87 BE 09 98 32 2C 22 33 35 |35035......2,"35|
00007F50: 30 38 30 49 46 53 46 3C 31 4F 52 53 46 3E 4E 46 |080IFSF<1ORSF>NF|
00007F60: 2B 4E 43 54 48 C5 3F 4C 45 46 54 24 28 59 24 2C |+NCTH.?LEFT$(Y$,|
00007F70: 39 29 22 3B 51 24 3B 22 4F 4E 47 45 4C 44 49 47 |9)";Q$;"ONGELDIG|
00007F80: 20 56 45 4C 44 22 3B 51 24 00 C1 87 BF 09 98 32 | VELD";Q$......2|
00007F90: 2C 22 33 35 30 38 32 20 49 46 53 46 3C 31 4F 52 |,"35082 IFSF<1OR|
00007FA0: 53 46 3E 4E 46 2B 4E 43 54 48 45 4E 46 4F 52 5A |SF>NF+NCTHENFORZ|
00007FB0: 54 3D 31 54 4F 31 30 30 30 3A 4E 45 58 54 5A 54 |T=1TO1000:NEXTZT|
00007FC0: 22 00 03 88 C0 09 98 32 2C 22 33 35 30 38 33 20 |"......2,"35083 |
00007FD0: 49 46 53 46 3C 31 4F 52 53 46 3E 4E 46 2B 4E 43 |IFSF<1ORSF>NF+NC|
00007FE0: 54 48 45 4E 50 52 49 4E 54 4C 45 46 54 24 28 59 |THENPRINTLEFT$(Y|
00007FF0: 24 2C 39 29 3B 53 50 24 3A 47 4F 54 4F 33 35 30 |$,9);SP$:GOTO350|
00008000: 33 35 22 00 0D 88 C2 09 89 32 35 30 32 00 21 88 |35"......2502.!.|
00008010: C4 09 98 32 2C 22 33 35 30 34 30 20 53 46 3D 31 |...2,"35040 SF=1|
00008020: 22 00 30 88 C6 09 8B 4E 47 B2 30 A7 32 35 31 30 |".0....NG.0.2510|
00008030: 00 5C 88 C8 09 98 32 2C 22 33 35 31 38 30 46 CF |.\....2,"35180F.|
00008040: 49 41 3D 31 54 4F 4E 47 3A 47 4B 28 49 41 29 3D |IA=1TONG:GK(IA)=|
00008050: 47 4C 28 49 41 29 3A 4E C5 49 41 22 00 75 88 CA |GL(IA):N.IA".u..|
00008060: 09 98 32 2C 22 33 35 31 39 30 46 CF 49 4B 3D 31 |..2,"35190F.IK=1|
00008070: 54 4F 46 53 22 00 80 88 CC 09 89 20 32 35 31 31 |TOFS"...... 2511|
00008080: 00 99 88 CE 09 98 32 2C 22 33 35 31 38 30 46 CF |......2,"35180F.|
00008090: 49 4B 3D 31 54 4F 46 53 22 00 AC 88 CF 09 98 32 |IK=1TOFS"......2|
000080A0: 2C 22 33 35 33 31 30 20 52 45 4D 22 00 BB 88 D0 |,"35310 REM"....|
000080B0: 09 8B 4E 43 B2 30 A7 32 35 32 32 00 E7 88 D2 09 |..NC.0.2522.....|
000080C0: 98 32 2C 22 33 35 33 31 33 20 49 42 25 3D 53 46 |.2,"35313 IB%=SF|
000080D0: 2D 4E 46 2B 31 20 3A 49 46 49 42 25 3C 31 54 48 |-NF+1 :IFIB%<1TH|
000080E0: C5 49 42 25 3D 31 22 00 06 89 D4 09 98 32 2C 22 |.IB%=1"......2,"|
000080F0: 33 35 33 31 35 49 46 49 42 25 3E 4E 43 54 48 C5 |35315IFIB%>NCTH.|
00008100: 33 35 33 33 30 22 00 2F 89 D6 09 98 32 2C 22 33 |35330"./....2,"3|
00008110: 35 33 32 30 46 CF 50 5A 3D 49 42 25 54 4F 4E 43 |5320F.PZ=IB%TONC|
00008120: 3A 47 4F D3 32 38 35 30 30 3A 4E C5 50 5A 22 00 |:GO.28500:N.PZ".|
00008130: 5B 89 D8 09 98 32 2C 22 33 35 33 33 30 46 CF 49 |[....2,"35330F.I|
00008140: 41 3D 31 54 4F 4E 43 3A 43 44 28 49 41 29 3D 43 |A=1TONC:CD(IA)=C|
00008150: 45 28 49 41 29 3A 4E C5 49 41 22 00 91 89 DA 09 |E(IA):N.IA".....|
00008160: 98 32 2C 22 32 37 30 30 30 3F 22 3B 51 24 3B 22 |.2,"27000?";Q$;"|
00008170: 93 22 3B 51 24 3B 22 3A 53 44 24 3D 4C 45 C6 28 |.";Q$;":SD$=LE.(|
00008180: 44 54 24 2C 4C 25 28 22 3B 4B 46 3B 22 29 29 22 |DT$,L%(";KF;"))"|
00008190: 3B 00 CE 89 DC 09 98 32 2C 22 3A 49 46 54 24 28 |;......2,":IFT$(|
000081A0: 22 3B 4B 46 3B 22 29 3D 22 3B 51 24 3B 22 44 22 |";KF;")=";Q$;"D"|
000081B0: 3B 51 24 3B 22 54 48 C5 53 44 24 3D 22 3B 51 24 |;Q$;"TH.SD$=";Q$|
000081C0: 3B 22 2E 2E 2F 2E 2E 2F 2E 2E 22 3B 51 24 00 0E |;"../../..";Q$..|
000081D0: 8A DE 09 98 32 2C 22 32 37 30 31 30 3F 4C 45 C6 |....2,"27010?LE.|
000081E0: 28 59 24 2C 59 25 28 22 3B 4B 46 3B 22 29 29 3B |(Y$,Y%(";KF;"));|
000081F0: 54 C1 58 25 28 22 3B 4B 46 3B 22 29 29 3B 50 52 |T.X%(";KF;"));PR|
00008200: 24 28 22 3B 4B 46 3B 22 29 3B 53 44 24 22 00 38 |$(";KF;");SD$".8|
00008210: 8A E0 09 98 32 2C 22 32 37 30 33 30 20 47 4F D3 |....2,"27030 GO.|
00008220: 20 22 3B 4B 46 24 3B 22 3A 4B 46 24 3D 47 24 28 | ";KF$;":KF$=G$(|
00008230: 22 3B 4B 46 3B 22 29 22 00 6D 8A E2 09 98 32 2C |";KF;")".m....2,|
00008240: 22 32 37 30 36 30 20 52 50 3D 52 50 2B 31 3A 52 |"27060 RP=RP+1:R|
00008250: 46 3D 52 46 2B 31 3A 49 46 52 50 3E 22 3B 4D 53 |F=RF+1:IFRP>";MS|
00008260: AA 33 3B 22 54 48 C5 20 52 50 3D 34 22 00 A8 8A |.3;"TH. RP=4"...|
00008270: E4 09 98 32 2C 22 32 37 30 36 35 20 43 4C CF 34 |...2,"27065 CL.4|
00008280: 3A 4F D0 32 2C 38 2C 32 2C 22 3B 51 24 3B 22 30 |:O.2,8,2,";Q$;"0|
00008290: 3A 22 3B 47 44 24 3B 22 2C 4C 2C 22 3B 51 24 3B |:";GD$;",L,";Q$;|
000082A0: 22 2B 43 C8 28 35 29 22 00 DB 8A E6 09 98 32 2C |"+C.(5)"......2,|
000082B0: 22 32 37 31 30 30 49 46 4C 45 C6 28 46 24 28 22 |"27100IFLE.(F$("|
000082C0: 3B 4B 46 3B 22 29 2C 4C 45 4E 28 5A 5A 24 29 29 |;KF;"),LEN(ZZ$))|
000082D0: 3D 5A 5A 24 54 48 C5 52 45 D4 22 00 FE 8A E8 09 |=ZZ$TH.RE.".....|
000082E0: 98 32 2C 22 32 37 31 32 30 49 46 52 46 3C 22 3B |.2,"27120IFRF<";|
000082F0: 4D 53 3B 22 54 48 C5 20 32 37 30 36 30 22 00 32 |MS;"TH. 27060".2|
00008300: 8B EA 09 98 32 2C 22 32 36 30 34 30 20 52 50 3D |....2,"26040 RP=|
00008310: 49 4E 54 28 22 3B 4D 53 3B 22 2A 52 50 2F 39 39 |INT(";MS;"*RP/99|
00008320: 39 39 29 3A 49 46 52 50 3C 33 54 48 C5 52 50 3D |99):IFRP<3TH.RP=|
00008330: 33 22 00 38 8B EC 09 8E 00 7E 8B EE 09 98 32 2C |3".8.....~....2,|
00008340: 22 34 39 32 38 35 49 46 28 5A 5A 2F 34 29 3C 3E |"49285IF(ZZ/4)<>|
00008350: 49 4E 54 28 5A 5A 2F 34 29 54 48 45 4E 47 4F D3 |INT(ZZ/4)THENGO.|
00008360: 34 35 33 39 30 3A 49 46 45 52 3D 31 38 54 48 45 |45390:IFER=18THE|
00008370: 4E 45 52 3D 30 3A 47 CF 34 39 30 30 30 22 00 90 |NER=0:G.49000"..|
00008380: 8B F0 09 8B 41 45 24 B2 22 45 22 A7 32 35 34 38 |....AE$."E".2548|
00008390: 00 CC 8B F2 09 98 32 2C 22 34 35 33 39 30 49 46 |......2,"45390IF|
000083A0: 58 58 3D 32 41 4E 44 59 59 3D 32 39 54 48 45 4E |XX=2ANDYY=29THEN|
000083B0: 45 52 3D 31 38 3B 3F 4C 45 46 54 24 28 59 24 2C |ER=18;?LEFT$(Y$,|
000083C0: 32 33 29 3B 22 3B 3A 89 32 35 35 30 00 02 8C F4 |23);";:.2550....|
000083D0: 09 98 32 2C 22 34 35 33 39 30 49 46 58 58 3D 32 |..2,"45390IFXX=2|
000083E0: 39 41 4E 44 59 59 3D 32 54 48 45 4E 45 52 3D 31 |9ANDYY=2THENER=1|
000083F0: 38 3A 3F 4C 45 46 54 24 28 59 24 2C 32 33 29 3B |8:?LEFT$(Y$,23);|
00008400: 22 3B 00 2C 8C F6 09 98 32 2C 51 24 3B 22 C4 41 |";.,....2,Q$;".A|
00008410: 47 20 42 45 53 54 41 41 54 20 4E 49 45 54 22 3B |G BESTAAT NIET";|
00008420: 51 24 3B 22 3A 52 45 54 55 52 4E 22 00 32 8C FA |Q$;":RETURN".2..|
00008430: 09 8E 00 54 8C 00 0A A0 31 35 3A 9F 31 35 2C 38 |...T....15:.15,8|
00008440: 2C 31 35 3A 9F 32 2C 38 2C 32 2C 22 4E 45 57 4D |,15:.2,8,2,"NEWM|
00008450: 45 4E 55 22 00 75 8C 05 0A 84 31 35 2C 45 52 24 |ENU".u....15,ER$|
00008460: 2C 45 4D 24 3A 45 53 B2 C5 28 45 52 24 29 3A A0 |,EM$:ES..(ER$):.|
00008470: 32 3A A0 31 35 00 84 8C 0A 0A 8B 20 45 53 B2 30 |2:.15...... ES.0|
00008480: 20 A7 20 8E 00 A8 8C 0F 0A 99 C7 28 31 34 37 29 | . ........(147)|
00008490: A3 33 30 29 22 D6 45 52 57 49 53 53 45 4C 20 C4 |.30)".ERWISSEL .|
000084A0: 49 53 4B 22 3A 99 3A 99 00 D6 8C 14 0A 99 22 C6 |ISK":.:.......".|
000084B0: CF D5 D4 21 2C 20 43 4F 4E 54 52 4F 4C 45 45 52 |...!, CONTROLEER|
000084C0: 20 4F 46 20 44 45 20 C3 4F 44 45 57 52 49 54 45 | OF DE .ODEWRITE|
000084D0: 52 20 44 49 53 4B 00 F2 8C 19 0A 99 22 49 4E 20 |R DISK......"IN |
000084E0: 44 45 20 44 49 53 4B 2D 44 52 49 56 45 20 5A 49 |DE DISK-DRIVE ZI|
000084F0: 54 2E 00 12 8D 1E 0A 99 22 D4 4F 45 54 53 20 46 |T.......".OETS F|
00008500: 31 20 41 4C 53 20 55 20 4B 4C 41 41 52 20 42 45 |1 ALS U KLAAR BE|
00008510: 4E 54 00 2F 8D 23 0A A1 4D 31 24 3A 8B 4D 31 24 |NT./.#..M1$:.M1$|
00008520: B3 B1 C7 28 31 33 33 29 20 A7 20 32 35 39 35 00 |...(133) . 2595.|
00008530: 39 8D 28 0A 89 32 35 36 30 00 FF 00 34 |9.(..2560...4 |
........,... 15:.15,8,15:.G(14):.DB.1..:
DB.1.R...Y$.""."........................
.".....SP$."":.I.1.38:SP$.SP$." ":.I:DT$
."":.I.1.39:DT$.DT$.".":.I.....ES$(1)."*
ALLEEN GETALLEN AUB *".....ES$(2).""."*
GEEN GETALLEN AUB *".....ES$(3).""."* U
MOET IETS INVOEREN * ".9...ES$(4).""
."* ONJUIST KARAKTER-TEKEN * ".]...ES
$(5).""."* ONJUISTE LENGTE *".....ES$(6)
.""."* ONJUISTE WAARDE * "......G(14):
.DB.1.58.O....".":.;".. GEGEVENS VERW
ERKINGS GENERATOR . "......H(Y$,4);"DO
E DE WERKDISKETTE IN DE DISK DRIVE. "...
..C3.B(55340).Q. .."UW PROGRAMMA WORDT O
P DEZE DISK GESCHREVEN. ".|."..:
."TIK 'X' OM TERUG TE GAAN NAAR HET"...$
.."CODEWRITER SYSTEEM HOOFD MENU:".M.&..
H(Y$,24)"TOETS .RETURN. VOOR VERVOLG"...
(.X%.30:Y%.9:L%.1:.842:.IN$.."X" .44...)
.. 2560.3.*..IN$."X"..45,217:.46,023:.:.
864,96:."NEWMENU",8.D.,..C(IN$).0.40....
..".CODEWRITER GAAT DE BASISFORMULE VOOR
UW ONTWERP-PROGRAMMA MAKEN".H.0.."..VOE
R DE NAAM IN DIE U WILT LATEN ZIEN NADE
VRAAG :"...4..".PROGRAMMA ONTWERP VAN .M
AX. 20 KARAKTERS":."?";.'.6.X%.1:Y%.B(21
4).1:L%.20:.842:NA$.IN$.U.8..".WAT IS DE
NAAM VAN UW SCHERM ONTWERP?"...:..H(Y$,
3)SP$;:.H(Y$,3)"SCHERM-ONTWERP = ";...
<.X%.19:Y%.B(214).1:L%.10:.842...=.. IN$
."".28.M.>.P$.IN$:SF$.P$."/S".V.@..784..
.B..ES.62..:." SCHERM-ONTWERP NIET GEVO
NDEN":.58...D..ES.0.78.0.F..:."DISK FOUT
#";ES;.`.H.." TOETS .RETURN. OM TER
UG TE GAAN NAAR"...I.." SYSTE
EM HOOFD MENU":.. .J..AA$:.AA$..G(13).74
...L.IN$."X":.42.H.N..F$(ZF),D%(ZF):."."
...P..I.1.NF:.H(Y$,Y%(I));.X%(I));PR$(I)
;SD$(I):.I.+.R..NC..I.1.NC:.H(Y$,CY%(I))
;.CX%(I));CP$(I):.I.\.T..NG..I.1.NG:.H(Y
$,GY%(I));.GX%(I));GP$(I):.I...V..NT..I.
1.NT:.H(Y$,TY%(I));.TX%(I).1);TP$(I):.I.
A.X..H(Y$,23);"IS DIT UW SCHERM-ONTWERP
(J/N)?"...Z.X%.34:Y%.23:L%.1:.842...\.
.IN$."J".98...^..IN$."N"..".":DF.1:.1. .
`.. IN$.."J".IN$.."N".88.U.B.DR$."D0":GD
$.P$."/X":PN$.P$."/B":GF$.P$."/GLB" :...
D..15,"S0:".(PN$):.2,8,2,"0:".(PN$).",S,
W":Q$.G(34)...H..2,"1REM *PROGRAMMA NAAM
IS ";P$;"/T*"...J..2,"2REM *DATA FILE N
AAM IS ";P$;"/D*"...K..2,"5PO45,PE(174):
PO46,PE(175)"...L..2,"3POKE788,52".S.N..
15,"S0:".(P$."/PCF"):.3,8,3,"0:".(P$."/P
CF").",S,W".\.P..382.J.R.NS.0:.440.}.V..
3,D(NS.NF): 3...X.RS.RS.15.NS:MX..(30416
560.(RS.256.1270)):.MX.36576.MX.36576...
|..DR$."D0".MX..(MX.32768.RS)...~..".";:
.".".0....:."HOEVEEL RECORDS WILT U MAXI
MAAL OPNEMEN IN DE DATA FILE ";.I....".
(1-".D(MX).".). "......:."? ";:L%
.5:X%.1:Y%.B(214).1:.842:MS.E(IN$)......
MS.0.MS.MX.1. 138.M....:."ONJUIST AANTAL
RECORDS ":.I.1.500:.I:.126.....BF.182
880:FR..(BF.80):QD..(RS.MS.BF)......2,"4
REM * AANTAL RECORDS IS";MS;"*".S...."."
:.H(Y$,2)"GEEF DE TITEL DIE U GETOOND WI
LT"....."ALS UW PROGRAMMA GERUND GAAT W
ORDEN."......:." MAXIMAAL 22 KARAKTER-
TEKENS"......:."TITEL = ";:X%.8:Y%.B(214
).1:L%.22:.842:TT$." ".IN$." ".....LN.LN
.10:.2,LN;"CLR:GOS52210:GOS 33000".N...L
N.LN.10:.2,LN;"Y$=";Q$;"................
..........";Q$......2,LN.5;"DT$=";Q$;"";
Q$;":FORI=1TO39:DT$=DT$+CH(46):NE I".J.
..2,LN.2;"SP$=";Q$;"";Q$;":FORI=1TO39:SP
$=SP$+CH(32):NE I"......2,LN.1;"SS$=";Q$
;Q$;":FORI=1TO80:SS$=SS$+CH(160):NEI".".
..LN.LN.10:.2,LN;"?CH(14)".E....2,LN.5;"
REM ".W....2,LN.7;"DI F$
(NF),G$(NF),DT%(12),GS%(NF+NC)".....LN.L
N.20:.2,LN.2;"FORI=1TO12:DT%(I)=31:NEI".
.....2,LN.4;"DT%(2)=29:DT%(4)=30:DT%(6)=
30:DT%(9)=30:DT%(11)=30".'....2,"32000?"
;Q$;".DIT WIST ALLE VOORGAANDE GEGEVENS.
";Q$.D....2,"32010 ?:?";Q$;"VOOR VERV
OLG TIK 'C' EN DAN .RETURN."......2,"320
20X%=35:Y%=3:L%=1:GOS 34000"......2,"320
30IFIN$<>";Q$;"C";Q$;" THE90"......2,"32
040?:?";Q$;"DIT DUURT WEL EVEN";Q$......
2,"32050CLO2:CLO3:CLO4:PR15,"Q$"S0:"GD$;
Q$.F....2,"32051OP2,8,2,";Q$;"0:";GD$;",
L,"Q$;"+CH(5)"......2,"32055PR2,STR$(0):
PR2,STR$(0):PR2,STR$(";NF.NS;")"...B..2,
"32060FORI=1TO";MS;":PR2,STR$(0):NEI"...
D..2,"32065CLO2"...F..2,"32070NR=0:FS=NR
:FORI=0TO";QD. .H..2,"32080 NM$=";Q$;P$;
Q$;"+RIG(STR$(I),1)+";Q$;"/D";Q$.R.J..2,
"32085PR15,"Q$"S0:";Q$;"+(NM$):NE I:REM
*"...L..2,"32090OP4,8,4,";Q$;"0:";P$;"0/
D,L,";Q$;"+CH(80):";...N..2,"JN=INT(("RS
"*"MS")/80)+3"...P..2,"32095FORXX=1TOJN:
PR4,CH(255):NE:CLO4:XX=FRE(XX):XX=0:...R
..NG..0.222.1.T..2,"32100OP3,8,3,";Q$;"0
:";GF$;",L,";Q$;"+CH(15)".R.V..2,"32110F
ORI=1TONG":.2,"32120PR3,STR$(0)":.2,"321
30GL(I)=0"...X..2,"32120 FORI=1TONG...Z.
.2,"32130GL(I)=0".Q....2,"32140NEI":.2,"
32150CLO2:CLO3:CLO4:GO90"......2,"32150C
LO2:CLO3:CLO4:PQ=1:GO90".2....2,"60OP4,8
,4,";Q$;"0:";P$;"0/D,L,";Q$;"+CH(80):CLO
4".J....2,"62 OP2,8,2,";Q$;"0:";GD$;",L,
";Q$;"+CH(5):CLO2".Y....NG..0.234......2
,"65OP3,8,3,";Q$;"0:";GF$;",L,"Q$;"+CH(1
5):CLO3"......2,"68GOS13000:REM GET GLOB
ALS FROM /GLB FILE" :......2,"70OP2,8,2,
";Q$;"0:";GD$;",L,";Q$;"+CH(5)".O....2,"
71IN2,NR$:NR=VAL(NR$):IN2,FS$:FS=VAL(FS$
):CLO2"._...LN.90:SL.LN......2,"100?TA10
)"Q$"PROGRAM-ONTWERP VAN ";Q$......2,"10
1?TA";.((39.C(NA$)).2);")";Q$;NA$;Q$....
..2,"110?:?TA20-(";C(TT$);"/2));";Q$;"."
;TT$;".";Q$......NG.0..2,"195"...6..NG.0
..2,"305".N.>..2,"318OP2,8,2,";Q$;"0:";G
D$;Q$:.2,"322CLO2:RET".B.X.LN.350:X.A:."
."...Z..H(Y$,3)"WELK IS UW 'SLEUTEL-VELD
'"...\.."(TYPE 1 -";NF;"OF LIST)";.S.^.X
%.19.C(D(NF)):Y%.B(214).1:L%.4:.842...`.
.IN$."LIST"..740:.344.&.B.KF.E(IN$):.KF.
1.KF.NF.."DIT VELD BESTAAT NIET.":.346.0
.|..1000.I.~.. FI%(ZF):.NG..0.438.R...OF
F%.4:NF$.J(D(NF),2):NC$.J(D(NC),2).....
JK.1.NG......".GEEF AAN WELK VELD MOET W
ORDEN GETOTA- LISEERD IN DIT";......" G
ENERAALTOTAAL VELD.":."KE1 - KE";NF$;...
...NC.0..", PC1 - PC";NC$;...... " OF 'L
IST'".<....H(Y$,OFF%.1);GP$(JK);":";.D..
.Y%.OFF%.1:X%.C(GP$(JK)).2:L%.7:.842.~..
..IN$."LIST"..700:.394.....SB%.E(J(IN$,3
)).....SR$.H(IN$,2)...... H(Y$,OFF%);.37
);.Z....SR$."KE".SB%.0.SB%..NF.422... ..
SR$."PC".SB%.0.SB%..NC.427.!....H(Y$,22)
"* ONJUISTE WAARDE * ".*....402.R...P
%.0:.T$(SB%).."D".T$(SB%).."A".428.}....
H(Y$,22)"MOET ZIJN GELD OF NUMERIEK";...
...402.....P%.NF:.P....H(Y$,9)"IS DIT CO
RRECT? (J/N)":Y%.B(214):X%.23:L%.1:.842
...... IN$.."J".IN$.."N". 428......IN$."
N".394.A.... "
";:FI%(JK).SB%.P%.I....J
K.Y....NG..0..438......2,"40FORI=1TONG:R
EGK%:GS%(GK%)=I:NEI".....OL.42:UL%.NG:.6
44. ..........NC.0.636......".";:......"
NU MOET U DE FORMULES INVOEREN VOOR ";NC
.. ...NC.1.NC.0.."COMPUTER-BEREKENDE VEL
DEN.".> ...NC.1.."COMPUTER-BEREKEND VELD
. ".D ....Q B.."U KUNT VERWIJZEN NAAR
EEN TOETSENBORD-.. C.."INVOERVELD MET '
KE' GEVOLGD DOOR 'T.I D.."VELDNUMMER. BI
JVOORBEELD COMPUTERBEREK-.. E.."END VELD
#5 MOET ZIJN 'KE5'"..!F.."U KUNT OOK VE
RWIJZEN NAAR EEN EERDER.D!G.."GEDEFINIEE
RD COMPUTERBEREKEND VELD MET.L!H.."'PC'
GEVOLGD DOOR HET VELDNUMMER...!J.."BIJVO
ORBEELD COMPUTERBEREKEND VELD #6.E!L.."W
ORDT GERELATEERD AAN COMPUTERBEREKEND.Y!
N.."#5 MET 'PC5'..."P..:."EEN GENERAALTO
TAAL VELD WORDT GEBRUIKT.6"R.."VOOR HET
TOTALISEREN VAN TOETSENBORDIN-.B"S.."VOE
RVELDEN OF VAN EERDER GEDEFINEERDE.."T..
"COMPUTERBEREKENDE VELDEN. U GEEFT EEN..
"V.."GENERAALTOTAAL VELD AAN MET 'GT' GE
VOLGD";.Z"X.."DOOR HET VELDNUMMER...#Z..
H(Y$,24)"TOETS .RETURN. VOOR VERVOLG..#.
..AA$:.AA$..G(13).476.L#...".BIJVOORBEEL
D HET TWEEDE GENERAALTOTAAL".U#..."VELD
WORDT AANGEGEVEN MET 'GT2'":...#..."DE C
OMPLETE LIJST VAN VELDEN WORDT GE- TOON
D ALS U 'LIST' INTIKT....#..."U KUNT OOK
EEN VELD AAN ZICHZELF REFERE-";..$..."R
EN, BIJVOORBEELD VELDEN DIE HUN VORIGE.O
$..."WAARDE GEBRUIKEN VOOR DE NIEUWE BER
EKEN-";..$..."ING. U MARKEERT HET VELD O
P DE GEBRUIKE-";..$..."LIJKE MANIER. BIJ
VOORBEELD OM HET EERSTE";..$..."COMPUTER
BEREKENDE VELD MET 1 OP TE HOGEN";..%...
"BIJ ELKE NIEUWE MUTATIE TIKT U PC1=PC1+
1.=%..."DEZE Z.G. 'UPDATING' VELDEN WORD
EN OP.F%..."DISK OPGESLAGEN EN VERMINDER
EN HET..%..."MOGELIJKE AANTAL RECORDS. D
AAROM WORDT..%..."NOGMAALS GEVRAAGD DEZE
TE BEVESTIGEN...%...H(Y$,24);"TOETS .RE
TURN. VOOR VERVOLG";..&...AA$:.AA$..G(13
).504..&...".".<&..."U KUNT DE TEKENS +,
-,*,/ GEBRUIKEN VOOR.D&..."DE VIER REKEN
KUNDIGE BEWERKINGEN...&..."INDIEN NODIG
KUNT U HAAKJES GEBRUIKEN IN";..&..."ALLE
'GELD' EN 'NUMERIEKE' VELDEN...&...".EE
N TYPISCHE FORMULE IS:..&..."..'PC2=(KE3
+PC1)/GT2'.".)'...H(Y$,24);"TOETS .RETUR
N. VOOR VERVOLG";.B'...AA$:.AA$..G(13).5
20.T'...SF%(NC):NS.0.N'...I.1.NC:SI$.J(D
(I),2)..'...".COMPUTERBEREKEND VELD #";I
:C$.CP$(I).I'...I(C$,1)." ".C(C$).1.C$.H
(C$,C(C$).1):.530..'..CP$.C$:.:. "BEREKE
NING VOOR '";CP$;"'"..(...".TYPE 'LIST'
VOOR VELD NUMMERS.".Y(...".PC";SI$;"=";:
X%.3.C(SI$):Y%.B(214).1:L%.39:.842:C$.IN
$.R(...C$."LIST"..700:.526..(..."..IS DI
T CORRECT? (J/N) ";:X%.23:Y%.B(214).1:L
%.1.A( ..842:.IN$."N".526.U(!.. IN$.."J"
.544..(".EX$.C$:.874..($..EF.0.568..)&.
.EF.1..".U MOET IETS INVOEREN.N)(..EF.2.
.".ONGELDIG OF ONTBREKEND ";SR$;" VELD N
UMMER"..)*..EF.3..".ALLE 'KE' VELDEN ZIJ
N 'GELD' OF 'NUMERIEK'"..),..EF.4..".'PC
'-VELDEN MOETEN REEDS GEDEFINIEERD ZIJN"
..)...EF.5..".VERKEERD GEBRUIKTE HAAKJES
"..*0..EF.6..".GENERAALTOTAAL MOET NIET
REFEREREN AAN.H*1..EF.6..".EEN ONGEDEFIN
IEERD 'PC' VELD".M*2..".TOETS .RETURN. V
OOR VERVOLG";..*4..AA$:.AA$..G(13).564..
*6..526..*8..2,28190.10.I;"CD(";I;")=";A
$.I*:..2,28195.10.I;"RET".W*<..SU.1.580.
.*>..3,EX$:B$.A$:.968..+@.SF%(I).0:.2,28
590.10.I;"CE(";I;") = ";B$.7+B..2,28595.
10.I;"RET":.582.S+D.SF%(I).1:NS.NS.1:.3,
EX$.Z+F..I.F+\..I.1.NC.{+^.D%(I).28190.1
0.I..+`..I..+F.OL.28100:OS$."PZ":UL%.NC:
.756..+H..2,EL;"RET"..+J..I.1.NC.U+L.D%(
I).28590.10.I..+N..I..+P.OL.28510:OS$."P
Z":UL%.NC:.756..,R..2,EL;"RET".;,T..2,"8
0DI CS%(NC):FOI=1TONC:RECS%(I):NEI".X,V.
.I.1.NC:FI%(I).SF%(I):.I.N,X.OL.82:UL%.N
C:.644.T,Z....,|..2,"28050RET":.2,"28100
RET":.2,"28500RET":...,..N.UL%:K.10..,..
.N.1.664.M,...N.K.K.N..,...2,OL; "DA ";.
.,..OL.OL.2..,...JK.1.K. -...2,FI%(UL%.J
K.N);:.JK.K..2,",";:.JK:.'-...2.1-..N.N.
K.:-...646.D-..EL.OL.J-...._-..OK.0:.C(B
J$).2....-..L$.H(BJ$,1):.L$."<".L$.">".L
$."=".BK$.J(BJ$,2):OK..1.O- ..L$."<".J(B
J$,2,1).">".C(BJ$).2.BK$.J(BJ$,3):OK..1.
U-........OK..1:.J.1.C(BK$):.J(BK$,J,1).
"0".J(BK$,J,1)."9".OK.0......J:..3...OK.
.1:.C(BK$).3.OK.0:..Y....J.2.C(BK$).1:.J
(BK$,J,1).Q$.OK.0......J:.H(BK$,1)..Q$.I
(BK$,1)..Q$.OK.0...........OK..1:DC.0:.J
.1.C(BK$):M$.J(BK$,J,1)......(M$."0".M$.
"9").(M$..".").(M$.."-".J.1).OK.0......M
$.".".DC.DC.1../...J:.DC.1.OK.0../....3/
..."..TOETSENBORD-INVOER VELDEN.:";.A/..
.J.1.NF.2.G/...:. "KE";J(D(J),2) ;" = ";
PR$(J);../B..J.NF...19);"KE";J(D(J.1),2)
;" = ";PR$(J.1);../D..J../F..NC.0.722.V/
H..:.:.".COMPUTER-BEREKENDE VELDEN.:";..
/J..J.1.NC.2..0L..:. "PC";J(D(J),2);" =
";CP$(J);.;0N..J.NC...19);"PC";J(D(J.1),
2); " = ";CP$(J.1);.B0P..J.P0R..NG.0.734
.U0T..:.:.".GENERAALTOTAAL VELDEN.:";..0
V..J.1.NG.2..0X..:. "GT";J(D(J),2);" = "
;GP$(J);..0Z..J.NG . ..19);"GT";J(D(J.1)
,2); " = ";GP$(J.1);..0...J..1...:.:.H(Y
$,24);"TOETS .RETURN. VOOR VERVOLG".,1..
.AA$:.AA$..G(13).736.21....X1..."..TOETS
ENBORD-INVOER VELDEN.:";.F1...J.1.NF.2.
1...:. J; "- "; PR$(J);..1...J.NF...19);
J.1;"- ";PR$(J.1);..1...J.Y1...:.:.H(Y$,
24);"TOETS .RETURN. VOOR VERVOLG"..1...A
A$:.AA$..G(13).752..1.....2..K.6:NL%.(UL
%.1).K..2...II.0.NL%.72..L.K:.II.NL%.L.U
L%.II.K.2...2,OL.II.4;"IF ";OS$;"<=";II
.K;"OR ";OS$;">";II.K.L;"THE";OL.II.4.4.
.2...2,OL.II.4.2;"ON ";OS$;"-";II.K;"GOS
";..2...IJ.1.L.N2...2,D(D%(II.K.IJ));..
2...IJ.L..2,",";..2...IJ..2...2..2...II.
.3..EL.OL.II.4..3...2,EL;":" :..3....B3.
. 2:.2,8,2,"0:".SF$:DX.0:DZ.0:RS.0.T3...
986:.ES..0...D3...2,NF:ZF.NF..3... PR$(N
F),X%(NF),Y%(NF),L%(NF),T$(NF),SD$(NF)..
3...I.1.NF.H3...2,PR$(I),X%(I),Y%(I),L%(
I),T$(I)..4..SD$(I).H(DT$,L%(I)):. T$(I)
."D" . SD$(I).""."../../..":DZ.1..4...T$
(I)."$".DX.DX.1.24 .RS.RS.L%(I):.I.F4"..
2,NC:.NC.0.816.W4$..ZF.NC.ZF.NC..4&.. CP
$(NC),CX%(NC),CY%(NC),CT$(NC),CL%(NC)..4
(..I.1.NC:.2,CP$(I),CX%(I),CY%(I),CL%(I)
,CT$(I).O4)..CT$(I)."$".DX.DX.1.V4...I..
40..2,NG:.NG.0.830..42..ZF.NG.ZF.NG.)54.
. GP$(NG),GX%(NG),GY%(NG),GT$(NG),GL%(NG
).[56..I.1.NG:.2,GP$(I),GX%(I),GY%(I),GL
%(I),GT$(I).S57..GT$(I)."$".DX.DX.1.Z5<.
.I..5>..2,NT:.NT.0.840..5@.. TP$(NT),TX%
(NT),TY%(NT).S5B..I.1.NT:.2,TP$(I),TX%(I
),TY%(I):.I..5H. 2:...6J..PRINTLEFT$(Y$,
Y%);TAB(X%+J-1);"";.)6K.J.1:AD.1024.(Y%.
1).40.X%.1:IN$."".V6L..KL.0.L%:.55296.(Y
%.1).40.(X%.KL),C3:.KL.L6N..AD.J,B(AD.J)
.128.6P..J$:.J$."".848..6R.II.F(J$)..6S
.. II.34 . 848.V6T..(II.32.II..20.II..13
).(II.128.II.192).(II.221).846..6V..II..
20.862..6X..J.1.846.-7Z.J.J.1:IN$.H(IN$,
J.1):J$." ":.H(Y$,Y%);.X%.J);" ":.866.A7
\..II.13.IN$.""...`7^..II.13..AD.J,B(AD.
J).127:..O7`.IN$.IN$.J$..7B..H(Y$,Y%);.X
%.J.1);J$..7D..J.L%.IN$.H(IN$,J.1).J$:.8
46..7F..II..20.J.J.1.E7H..846..7J.SU.0:P
1.0:EF.0:J.0:A$.EX$:.A$."".EF.1..7L..EF.
.0....8N..J.J.1.C(A$)..8P.SR$.J(A$,J,1).
08R..SR$."(".900.A8T..SR$.")".904.S8V.SR
$.J(A$,J,2).E8X..SR$."KE".910.W8Z..SR$."
PC".924..8|..SR$."GT".954..8~..J. 8...P1
..0.EF.5..8.....8..P1.P1.1..8...876.G8..
P1.P1.1.V8...P1.0.EF.5..8...876..8..SB%.
E(J(A$,J.2))..9...SB%.1.SB%.NF.EF.2:.876
.79...T$(SB%)."D".T$(SB%)."A".EF.3:.876.
J9..ND.C(D(SB%)).1.M9..R1$."VA(G$(".J(A$
,J.2,ND)."))"..9..A$.H(A$,J.1).R1$.J(A$,
J.2.ND)..9...876..9..SB%.E(J(A$,J.2)).B9
...SB%.I.EF.4:.876.Q9 ..SB%.I.946..:...:
.:."AAN ZICHZELF GERELATEERD. TOETS 'C'
OM TE BEVESTIGEN.3:..X%.12:Y%.B(214):JJ.
J:.842:J.JJ.E:...C(IN$).0.938.\:...F(IN$
).F("C").940.P:..EF..1:SU.0:.876..:..ND.
C(D(SB%)).1..:..R1$."CE(".J(A$,J.2,ND)."
)"..:..SU.1:.950.C:..ND.C(D(SB%)).1..:..
R1$."CD(".J(A$,J.2,ND).")"..;..A$.H(A$,J
.1).R1$.J(A$,J.2.ND)..;...876.";..SB%.E(
J(A$,J.2)).8;...SB%.NG.EF.2:.876.V;...FI
%(SB%).NF..I.EF.6:.876.I;..ND.C(D(SB%)).
1..;B.R1$."GK(".J(A$,J.2,ND).")"..;D.A$.
H(A$,J.1).R1$.J(A$,J.2.ND)..;F..876.B;H.
.J.1.C(B$).T;J.UU$.J(B$,J,2)..;L..UU$."G
$".RP$."F$":.980..<N..UU$."CD".RP$."CE":
.980.(<P..UU$."GK".RP$."GL":.980.2<R.. 9
82.S<T.B$.J(B$,1,J.1).RP$.J(B$,J.2).Z<V.
.J.`<X...X<Z..15,ER$,EM$,ET$,EG$..<..ES.
E(ER$):EG$.ER$." ".EM$:EM$."":ET$."":EG$
.""..<....M<..I.1:LN.2000:.1004:.1124.W<
...".";..=..."DE VRAAG 'WEIGERING INDIEN
' STELT U IN"./=..."STAAT EEN AANTAL TES
TS TE MAKEN DIE.]=..."WORDEN TOEGEPAST O
P INGEVOERDE GEGEVENS..=..."VOORDAT DEZE
WORDEN GEACCEPTEERD. U KUNT";..=..."ELK
E TEST TOEPASSEN OP ELK VELD...=...".BIJ
ELKE TEST DIENT U EEN PASSENDE FOUT-";.
.>..."MELDING TE MAKEN, DIE ONDER OP HET
.A>..."SCHERM WORDT GETOOND BIJ ONJUISTE
INVOER";.R>..."VAN GEGEVENS. HET PROGRA
MMA KEERT DAARNA";..>..."TERUG NAAR HET
INVOER VELD..B>..."U KUNT OOK MET ALLEEN
'RETURN' DE STAN-..>..."DAARD FOUTMELDI
NG INVOEREN DIE ONDERAAN"..?..."HET SCHE
RM STAAT..4?...H(Y$,24)"TOETS .RETURN. V
OOR VERVOLG".L?...A$:.A$..G(13).1034.W?.
..".DE VOLGENDE TESTS ZIJN VOORHANDEN:".
.?...:..10);".ALGEMENE TESTS..".I?..."NA
AM";.10);"VOORBEELD";.20);"FOUTMELDING":
...?..."'NIETS'";.13);"-";.20);"U MOET I
ETS INTYPEN".+@..."'TEKST'";.13);"-";.20
);"ALLEEN GETALLEN".[@..."'NUMERIEK'";.1
3);"-";.20);"GEEN GETALLEN"..@....10);".
.TEST OP LENGTE INVOER.."..@..."'LENGTE>
'";.10);"LENGTE>4";.20);"MAXIMAAL 4 TEKE
NS"..@..."'LENGTE<'";.10);"LENGTE<7";.20
);"MINIMAAL 7 TEKENS".-A".."'LENGTE='";.
10);"LENGTE=2";.20);"LENGTE MAG GEEN".GA
$...20);"2 TEKENS ZIJN".A&.."'LENGTE<>'
";.10);"LENGTE<>3";.20);"MOET 3 TEKENS".
.A(...20);"LANG ZIJN".AA*..H(Y$,24)"TOET
S .RETURN. VOOR VERVOLG";.YA,..A$:.A$..G
(13).1068..A...".";:..09);".GETALLEN TES
T..".1B2.."NAAM TEST";.10);"VOORBEELD";.
22);"FOUTMELDING".CB4..:."'>'";.07);">99
";.16);"NIET GROTER DAN 99"..B6.."'<'";.
07);"<20";.16);"MOET 20 OF HOGER ZIJN".N
B8.."'='";.07);"=631";.16);"MAG NIET GEL
IJK 632 ZIJN";..C:.."'<>'";.47);"<>17";.
56);"MOET GELIJK AAN 17 ZIJN"."C<..:..09
);".TEKST TESTEN ..TC>.."'>'";.07);">'D'
";.16);"ALFABETISCH T/M 'D'"..CB.."'<'";
.07);"<'JO'";.16);"ALFABETISCH VANAF 'JO
'"..CF.."'='";.07);"='BAL'";.16);"MAG GE
EN 'BAL' ZIJN"..CH.."'<>'";.07);"<>'MOL'
";.16);"MOET 'MOL' ZIJN".*DL.."BEVAT".7)
"BEVAT'ABC'":..16)"MAG GEEN 'ABC' BEVATT
EN.\DN.."..U KUNT MET .RETURN. BIJ DE VR
AAG 'WEIGER-..DP.."ING INDIEN' HET VERDE
R OPGEVEN VAN TESTS";..DQ.."BIJ EEN VELD
BEEINDIGEN...DR..".TYPE HELP OM DEZE IN
STRUCTIE TE HERHALEN.."..ET..H(Y$,24)"TO
ETS .RETURN. VOOR VERVOLG";.#EV..A$:.A$.
.G(13).1110.4EX..".":.J.1.NF._EZ..H(Y$,Y
%(J));.X%(J));PR$(J);SD$(J):. J..E\..H(Y
$,Y%(I));.X%(I));".";PR$(I);SD$(I);"."..
E`....ED..I.1.NF:I$.D(I):. T$(I)."D". 11
32..EH..H(Y$,Y%(I));.X%(I));".";PR$(I);S
D$(I);"."..FL.. I.1 ..H(Y$,Y%(I.1));.X%(
I.1));PR$(I.1);SD$(I.1).7FN..H(Y$,23);SP
$:.SP$;.MFP.LN.LN.10:K$.T$(I)..FR..2,LN;
"X%=X%(";I$;")+LEN(PR$(";I$;")):Y%=Y%(";
I$;"):L%=L%(";I$;")".OFT.BL.LN:.2,BL.1;"
IFUF<>0ANDG$=";Q$;Q$;"THEG$=G$(";I$;")".
.FX.LN.LN.10:GS$."34000":. K$."D" . GS$.
"49000".6GZ..2,LN;"GOS";GS$;":?LEF(Y$,23
);SP$:G$(";I$;")=IN$";.EG|..2,":IFG$(";I
$;")=CH(133)THE RET":D%(I).LN..G~.LN.LN.
10:.2,LN;"IF UF<>0 AND LEN(IN$)=0 THE G$
(";I$;")=G$"..G...K$."A".K$."D".1170..G.
..2,LN.1;"IFUF=0 THE ";LN.4..H...2,LN.2;
"B$=G$(";I$;"):A$=";Q$;"M";Q$;":GOS41000
:G1=I9".XH...2,LN.3;"IFG1>0THEGG=VA(G$("
;I$;"))+VA(G$):G$(";I$;")=STR$";.FH...2,
"(GG)"..H...2,LN.4;"IFUF=0THE";LN.10..H.
..2,LN.5;"B$=G$(";I$;"):A$=";Q$;"L";Q$;"
:GOS41000:G1=I9"..I...2,LN.6;"IFG1>0THEG
G=VA(G$)-VA(G$(";I$;")):G$(";I$;")=STR$"
;..I...2,"(GG)". I...K$."D".1262.>I...H(
Y$,23);.28);"VELD #";I.PI...H(Y$,24);SP$
:.H(Y$,24);"WEIGERING INDIEN: ";..I..X%.
18:Y%.24:L%.25:.842:BI$.IN$..I...BI$..""
.1192..I...K$."A".K$."D".1188..I..LN.LN.
10:.2,LN;"G$(";I$;")=STR$(VA(G$(";I$;"))
)"..J ..2,LN.5;"IF VA(G$(";I$;"))>0 THE"
;.OJ...2,"G$(";I$;")=RIG(G$(";I$;"),LEN(
G$(";I$;"))-1)"..J..LN.LN.10:.2,LN;"IFLE
N(G$(";I$;"))<L%(";E(I$);..J...2,") THE
I=";E(I$);":GOS40500":. 1262.HJ...BI$."H
ELP"..1004:.1172.SJ... 1740..K..B$.BI$:E
S.0:A$."TEKST":.1694:.I9.1.C(BI$).5.ES.1
:.1218.@K..A$."NUMERIEK":.1694:.I9.1.C(B
I$).8.ES.2:.1218.PK..A$."NIETS":.1694:.I
9.1 .C(BI$).5.ES.3:.1218..K..A$."BEVAT":
.1694..K...I9.1.C(BI$).5.BK$.J(BI$,9):.1
720:.OK.ES.4:.1218..K..A$."LENGTE":.1694
:.I9..1.C(BI$)..7.1210..L..BJ$.J(BI$,7):
.1704:.OK..1714:.OK.ES.5:.1218.2L..BJ$.B
I$:.1704:..OK.1216.KL...1728:.OK.ES.6:.1
218.DL...1720:.OK.ES.6:.1218..L...H(Y$,2
3);"SPELFOUT. VERBETER OF TYP 'HELP'.":.
1174..LB..H(Y$,23);SP$:.SP$..LD..H(Y$,2
4)"FOUTMELDING ? ":."(CR = ";ES$(ES);")"
;..MF.X%.15:Y%.24:L%.23:.842.(MH.EM$.IN$
:.EM$."HELP"..1004:.1218.QMJ..H(Y$,25);S
P$;:. EM$."" .EM$.ES$(ES)..ML..C(EM$).30
. .H((Y$,23);;"FOUTMELDING TE LANG.":.12
20..MN..ES.1232,1236,1240,1244,1250,1254
..MP.LN.LN.10:.2,LN;"CD$=G$(";I$;"):E=0:
GOS30000:IFE<>1THE";LN.20.,NR.LN.LN.10:.
2,LN;"?LEF(Y$,23);";Q$;EM$;Q$;":GO";BL:.
1172.MNT.LN.LN.10:.2,LN;"CD$=G$(";I$;"):
E=0:GOS31000:IFE<>1THE";LN.20..NV.LN.LN.
10:.2,LN;"?LEF(Y$,23);";Q$;EM$;Q$;":GO";
BL:.1172..NX.LN.LN.10:.2,LN;"IFLEN(G$(";
I$;"))<>0THE";LN.20..OZ.LN.LN.10:.2,LN;"
?LEF(Y$,23);";Q$;EM$;Q$;":GO";BL:.1172.M
O..LN.LN.10:.2,LN;"B$=G$(";I$;"):A$=";BK
$;":GOS41000".TO..LN.LN.10:.2,LN;"IF I9=
0 THE";LN.20..O..LN.LN.10:.2,LN;"?LEF(Y$
,23);";Q$;EM$;Q$;":GO";BL:.1172..O..LN.L
N.10:.2,LN;"IFNOT(LEN(G$(";I$;"))";BJ$;"
)THE";LN.20.&P..LN.LN.10:.2,LN;"?LEF(Y$,
23);";Q$;EM$;Q$;":GO";BL:.1172.FP..LN.LN
.10:.H(BK$,1)..Q$.1258.ZP...2,LN;"IFNOT(
G$(";I$;")";BJ$;")THE";LN.20:.1260..P...
2,LN;"IFNOT(VA(G$(";I$;"))";BJ$;")THE";L
N.20..P..LN.LN.10:.2,LN;"?LEF(Y$,23);";Q
$;EM$;Q$;":GO";BL:. 1172..Q..LN.LN.10:.2
,LN;"RET".!Q...I.KF.KF$.J(D(D%(KF).10),2
).3Q...I:.NS.0.1292.DQ..LN.LN.10:SL.LN:.
2,LN;"IF CS%(I) = 0 THE RET"..Q..LN.LN.1
0:.2,LN;"X%=CX%(I)+LEN(CP$(I)):Y%=CY%(I)
:L%=CL%(I)".ZQ..LN.LN.10:.2,LN;"GOS34000
:?LEF(Y$,23);SP$:SU$=IN$";..Q...2,":IFSU
$=CH(133)THERET".'R..LN.LN.10:.2,LN;"IF
LEN(SU$) > 0 THE";LN.20.IR..LN.LN.10:.2,
LN;"?LEF(Y$,23);"..R...2,LN.5;"?";Q$;"*
U MOET IETS INVOEREN *";Q$;": GO";SL..R.
.LN.LN.10:.2,LN;"CD$=SU$:E=0:GOS30000:IF
E<>1THE";LN.20..R..LN.LN.10:.2,LN;"?LEF(
Y$,23);"..S...2,LN.5;"?";Q$;"* ALLEEN GE
TALLEN AUB *";Q$;":GO";SL.>S..LN.LN.10:.
2,LN;"CD(I) = VA(SU$)".WS..LN.LN.10:.2,L
N;"RET".ZS...2,"1010 IF NR<";MS;"THE 105
0"..S...2,"1020?";Q$;".U HEEFT ";J(D(MS)
,2);" RECORDS INGEVOERD";Q$.JS"..NS.0.13
24..S$..2,"1065FOI=1TONC:IFCS%(I)=0 THE
1075".%T&..2,"1070?LEF(Y$,CY%(I));TAB(CX
%(I));CP$(I)".6T(..2,"1075NEI".ZT,.OS$."
FC":OL.1082:UL%.NF :. 1752.|T...2,EL;"IF
IN$=CH(133) THE 90"..T0..2,EL.1;"IF GS%
(FC)>0 THE GK(GS%(FC))=GL(GS%(FC))+VA(G$
(FC))"..T4..2,"1142IF FC<";NF;"THE 1080"
..T6..NS.0.1354.1U8..2,"1143FOI=1TONC":.
2,"1144IFCS%(I)=0THE1150":.2,"1146GOS";S
L.^U>..2,"1148IFIN$=CH(133)THE90":.2,"11
50NEI".QU@..2,"1150NEXTI"..UJ..2,"1190 I
F LEN(IN$)=0 OR IN$=";Q$;"J";Q$;" THE";L
N.10..UL..2,"1200?LEF(Y$,23);";Q$;"WELK
VELD VERANDEREN? ";..VN..2,"(1";.(NF.NS)
;"OF LIST)";Q$";".<VP..2,"1210 X%=35:Y%=
23:L%=4:GOS34000:IN=VA(IN$)".IVV..2,"123
0IFIN>=1ANDIN<=";NF.NS;"THEGO1240..VW..2
,"1231?LEF(Y$,23);SP$:?LEFT$(Y$,24);";..
VX..2,Q$; "ONGELDIG VELD #";Q$;"..V[..2,
"1232FORAQ=1TO3000:NEXT:?LEFT$(Y$,24);SP
$:GOTO1200..W\.OL.1250:OS$."IN":UL%.NF:.
1752.#W^..NS.0.1378.DW`..2,"1245 IF IN>N
F THE";EL.30.EWB..2,EL"IF IN$=CH(133) TH
E 90"..WD..2,EL.10"IFGS%(IN)>0 THE GK(GS
%(IN)) = GL(GS%(IN)) + VA(G$(IN))"..WF..
2,EL.20"GO 1160".OWH..NS.0.1522..WJ..2,E
L.30"P=0:IN=IN-NF":.2,EL.40"FOI=1TOIN".8
XN..2,EL.50"P=P+1:IFCS%(P)=0THE";EL.50:.
2,EL.60"NEI:I=P".MXR..2,EL.70"GOS";SL..X
T..2,EL.80;"IF IN$=CH(133) THE 90":.2,EL
.90"GO1160"..XB..2,"29110NEI..X...2,"129
20OP2,8,2,";Q$;"0:";GD$;Q$..X...2,"11815
?";Q$;"(1-";J(D(NF),2);"),LIST,.F1.=";Q$
;..Y...2,":?";Q$;"AFBREKEN";Q$;";".QY...
2,"11853 LD%=";FW;"- L%(UF):IF LD% > 0 T
HE SD$ = SD$ + ";.GY...2,"LEF(SP$,LD%)".
.Y$..2,"11858 G$=";Q$;Q$..Y(.OS$."UF":OL
.11860:UL%.NF:.1752..Y*..2,EL;"GO 11810"
.GY,..NC.0.1594..Y..LN.LN.10:.2,LN;"FOPZ
=1TONC"..Z0..NS.0..2,LN.5;"IF CS%(PZ)>0
THE";LN.20.1Z2.LN.LN.10:.2,LN;"GOS 28100
".QZ4.LN.LN.10:.2,LN;"IJ=GS%(PZ)"..Z6.LN
.LN.10:.2,LN;"IF IJ > 0 THE GK(IJ)=GL(IJ
)+CD(PZ)"..Z8.LN.LN.10:.2,LN;"NE PZ".RZ:
.LN.LN.10:.2,LN;"ZZ$=G$(";KF;"):GOS 2600
0"..[<.LN.LN.10:.2,LN;"REM *ZOEK NAAR RE
CORD RUIMTE*".2[>.LN.LN.10:.2,LN;"GOS ";
LN.10;":GO ";LN.60.F[@.LN.LN.10:.2,LN;"R
P=RP+1:IF RP>";MS.3;"THE RP=4".Y[B.L1.LN
:LN.LN.10..[D..2,LN.2;"OP2,8,2,";Q$;"0:"
;GD$;Q$..[F..2,LN;"A1=RP:GOS52100:IN2,IK
$:CLO2:IK=VA(IK$):IFIK>0THE";LN.10..[H.L
N.LN.10:.2,LN;"NR=NR+1"..\J.LN.LN.10:.2,
LN;"IF IK=0 THE FS=FS+1:IK=FS".R\L.LN.LN
.10:.2,LN;"IK=ABS(IK):RET".Z\N..2,"11898
ZZ$=G$(";KF;"):GOS 26000"..\P..2,"11899
GOS";L1..\X.LN.LN.10:.2,LN;"GOS 42000".P
\Z.LN.LN.10:.2,LN;"RM=";MS;"-NR"..]\.LN.
LN.10:.2,LN;"?LEF(Y$,23);";Q$;"RECORDS V
OL: ";Q$;.%]]..2,";MID$(STR$(NR),2);".H]
^..2,LN.2;"?";Q$;" AANTAL RECORDS VRIJ:
";Q$;";MID$(STR$(RM),2)"..]`..2,LN.4;"IF
RM=0 THE?LEF(Y$,23);TAB(6);";Q$;". FILE
VOL .";Q$.U]A..2,LN.3;"IFRM=0THEN?LEFT$
(Y$,23);SP$;"..^C.LN.LN.10:.2,LN;"?LEFT$
(Y$,24);";Q$;"TOETS .RETURN. VOOR VERVOL
G.";Q$.R^D.LN.LN.10:.2,LN;"GET AA$:IF AA
$<>CH(13) THE ";LN.X^F..".. EINDE GEGEV
ENS INVOER .":...^H.."ALS DE GEBRUIKER
VAN UW PROGRAMMA KLAAR.U^J.."IS MET GEGE
VENS INVOEREN IN EEN RECORD,".._L.."ZAL
HET PROGRAMMA VRAGEN OF ER NOG MEER."_N.
."MOET WORDEN INGEVOERD":..P_P.."DE GEBR
UIKER MOET DAN MET (J)A OF (N)EE.}_R.."A
NTWOORDEN OM AAN TE GEVEN OF DE GEGE-.._
T.."VENS INVOER IS BEEINDIGD OF DAT EEN.
Q_V.."NIEUW RECORD MOET WORDEN INGEVOERD
...`X.."DE GEBRUIKER KAN .RETURN. TYPEN
INPLAATS..`Z.."VAN 'NEE' OM VERDER TE GA
AN MET INVOER..^`|.."..VOOR UW MELDING I
N OF TOETS .RETURN.":...`~.."CR = ":."'K
LAAR MET INVOEREN ? (RETURN=NEE)'":.:."?
..`..X%.1:Y%.B(214):L%.35:.842:TT$.IN$..
`...TT$."".TT$."KLAAR MET INVOEREN ? (RE
TURN=NEE)"..A...2,LN.5;"?LEF(Y$,23);SP$"
.4A..LN.LN.10:.2,LN;"IF RM=0 THE 90".OA.
.LN.LN.10:.2,LN;"?LEF(Y$,24);SP$:?LEF(Y$
,24);TT$":BL.LN..A...2,"55 TT$=";Q$;TT$;
Q$.AA..LN.LN.10:.2,LN;"X%=LEN(TT$)+1:Y%=
24:L%=1:GOS34000"..A..LN.LN.10:.2,LN;"RE
M * KLAAR?, DAN EINDE, RETURN DAN MENU".
7B..LN.LN.10:.2,LN;"IF LEF(IN$,1)=";Q$;"
J";Q$;" THE 90".XB..LN.LN.10:.2,LN;"IF L
EN(IN$)=0 OR IN$=";Q$;"N";Q$;"THE";LN.10
..B...2,LN.5;"?LEF(Y$,23);";.TB...2,Q$;"
ANTWOORDT (J)A OF (N)EE (.RETURN.=NEE)";
Q$;":GO ";BL..C..LN.LN.10:.2,LN;"G$=";Q$
;Q$;":FC=0:?";Q$;".";Q$;":UF=0:GO 1000".
"C... 1780.:C...JI.1.C(B$).1.C(A$).GC..A
S.C(A$).GC ..J(B$,JI,AS).A$.I9.JI:.1700.
TC...JI:I9.0.ZC.....C..OK.0:.C(BJ$).2...
HC..L$.H(BJ$,1):.L$."<".L$.">".L$."=".BK
$.J(BJ$,2):OK..1..C...L$."<".J(BJ$,2,1).
">".C(BJ$).2.BK$.J(BJ$,3):OK..1..D....?D
..OK..1:.J.1.C(BK$):.J(BK$,J,1)."0".J(BK
$,J,1)."9".OK.0.HD...J:..CD..OK..1:.C(BK
$).3.OK.0:...D...J.2.C(BK$).1:.J(BK$,J,1
).Q$.OK.0..D...J:.H(BK$,1)..Q$.I(BK$,1).
.Q$.OK.0..D.....D..OK..1:DC.0:.J.1.C(BK$
):M$.J(BK$,J,1)..ED..(M$."0".M$."9").(M$
..".").(M$.."-".J.1).OK.0.%EF..M$.".".DC
.DC.1.7EH..J:.DC.1.OK.0.=EJ...`EL.TT$.BI
$:BI$."":. ZZ.1 . C(TT$)..EN.. J(TT$,ZZ,
1)."'" . BI$.BI$.Q$:. 1746..EP.BI$.BI$.J
(TT$,ZZ,1)..ER.. ZZ:..CEX.K.6:NL%.(UL%.1
).K.QEZ..II.0.NL%..E..L.K:.II.NL%.L.UL%.
II.K.4F...2,OL.II.2;"IF ";OS$;"<=";II.K;
"OR ";OS$;">";II.K.L;"THE";OL.II.2.2._F.
..2,OL.II.2.1;"ON ";OS$;"-";II.K;"GOS";.
KF...IJ.1.L..F...2,D(D%(II.K.IJ).10);..F
...IJ.L..2,",";..F...IJ..F...2..F...II..
F..EL.OL.II.2.OF...2,EL;"REM *".UF.....F
...2034:.G(147)..F...I.1.16: (I):..0G...
H(Y$,10).3);"DOE DE .CODEWRITER. DISK IN
DRIVE.".[G...H(Y$,24)"TOETS .RETURN. VO
OR VERVOLG".VG... AA$:.AA$..G(13).1786..
G.. 15:.15,8,15,"I0":.2,8,2,"CODEGEN".UG
..TZ$."":.ZL.1.20:.#2,AA$:TZ$.TZ$.AA$:.Z
L: 2:.15,"I0"..G.. 15:.J(TZ$,11,2).."15"
.1784..HT..G(147):..0HV.."CO^EWRITER:GAA
T NU HET PROGRAMMA MAKEN.]HX.."NAAR UW O
NTWERP. ALS U .RETURN. TOETST..HY.."WORD
T IEDERE REGEL VAN HET GEGENEREERDE..HZ.
."PROGRAMMA OP HET SCHERM ZICHTBAAR EN I
N..H..."HET COMPUTERGEHEUGEN OPGESLAGEN.
..I..."UITEINDELIJK WORDT HET PROGRAMMA
OP DE.;I..."WERKDISKETTE OPGESLAGEN. ALS
U HET PRO-.HI..."GRAMMA VOOR DE EERSTE
KEER RUNT MOET U..I..."BIJ DE MENUSELECT
IE 'F' KIEZEN (FILE..I..."PREPAREREN) OM
UW FILE DEFINITIEF VORM.QI..."TE GEVEN.
"..I...H(Y$,24)"TOETS .RETURN. VOOR VERV
OLG";..J...AA$:.AA$..G(13).2026.'J...828
,C(PN$).PJ...I.1.C(PN$):.828.I,F(J(PN$,I
,1)):. I..J...".";H(Y$,5)"PROGRAMMA WORD
T GELADEN. EVEN GEDULD..."..J...:."CONVE
RT",8..J...NS.0.2056.JJ...2,"20100IFF<>1
THEN20190"..K...2,"20110 P=0:?:?";Q$;"AA
N ZICHZELF GERELATEERDE VELDEN";Q$.+K...
2,"20120FOJ=1TO";NS;"STEP2".SK...2,"2013
0P=P+1:IFCS%(P)=0THEN20130"..K...2,"2014
0PRINTJ+NF,";Q$;"- ";Q$;",CP$(P);"..K...
2,"20150IFJ=";NS;"THE20180".JK...2,"2016
0P=P+1:IFCS$(P)=0THE20160"..L...2,"20170
PRINTTAB(19);J+1+NF;";Q$;"- ";Q$;",CP$(P
);"..L...2,"20180PRINT:NEXTJ".@L...2,"20
190REM ZICHZ. REF VELD.".OL...NC.0.2080.
LL...2,"20200IFF<>2THEN20260..L...2,"202
10?:?";Q$;"COMPUTERBEREKENDE VELDEN";Q$.
.L...2,"20220FORJ=1TONCSTEP2"..L...2,"20
230?J+NF;";Q$;"- ";Q$;",CP$(J);".)M...2,
"20240IFJ<NCTHEN?TAB(19);J+NF+1;";Q$;"-
";Q$;",CP$(J+1);".CM...2,"20250PRINT:NEX
TJ".YM...2,"20260REM PCS"..M .LN.21070:.
NS.0..2,"21030RET":LN.21060.FM,..2,"4000
6 RN=IK-1:SL=INT(";RS;"*RN/80):OS=(";RS;
"*RN)-(80*SL)"..M...2,"40005 OP4,8,4,";Q
$;"0:";P$;"0/D,L,";Q$;"+CH(80)"..N0..2,"
40010OD=0:REM ***********************".Q
N2..2,"40020 SN=(SL-";FR;"*OD)+1"..N4..2
,"40070REM ****************************"
..N6..2,"40075 SN=(SL-";FR;"*OD)+1:A1=SN
:GOS52000:INP4,IN$".JN8..NS.0.2126..N:..
2,"40095FOJ=1TONC:IFCS%(J)=0THE40140..O<
..2,"40100IFRL+15 > 80THE40115".RO>..2,"
40105 RL=RL+15:CE(J)=VA(MID$(IN$,I9,15))
:I9=I9+15".HO@..2,"40110GO40140"..OB..2,
"40115 SU$=MID$(IN$,I9,80-RL):SL=SL+1:SN
=SN+1".MOD..2,"40120IFINT(SL/";FR;")<>OD
THEGOS 38000"..PF..2,"40125 SN=(SL-";FR;
"*OD)+1:A1=SN:GOS52000:INP4,IN$".EPH..2,
"40130 IN$=LEF(IN$+SS$,80):SU$=SU$+LEF(I
N$,15+RL-80)".XPJ..2,"40135 CE(J)=VA(SU$
):RL=15-(80-RL):I9=RL+1"..PL..2,"40140NE
J"..PN..NC.0.2132.APP..2,"40160FOPZ=1TON
C:GOS28500:NE PZ"..PR..2,"40170FOII=1TON
C: CD(II) = CE(II) :NEII"..QT..NG.0.2136
.,QV..2,"40180FOII=1TONG:GK(II)=GL(II):N
EII".;QX..NG.0.2142.KQZ..2,"42002 GOS 13
100 : REM MAAK GEN. TOTAAL"..Q\..2,"4200
5OP4,8,4,";Q$;"0:";P$;"0/D,L,";Q$;"+CH(8
0)"..Q^..2,"42006 RN=IK-1:SL=INT(";RS;"*
RN/80):OS=(";RS;"*RN)-(SL*80)"..R`..2,"4
2010OD=0:REM ***********************".8R
B..2,"42020 SN=(SL-";FR;"*OD)+1".PRD..2,
"42005OP4,8,4,";Q$;"0:";P$;"0/D,L,";Q$;"
+CH(80)"..RF..2,"42066 SL=SL+1:SN=SN+1:R
EM ****************************".SRH..2,
"42070 SN=(SL-";FR;"*OD)+1"..RJ..NS.0.21
76..SL..2,"42083FOJ=1TONC:IFCS%(J)=0THE4
2113.MSN..2,"42086 SU$=LEF(STR$(CD(J))+S
S$,15) :IFRL+15 > 80THE42096".QSP..2,"42
090 RL=RL+15:OP$=OP$+SU$"..SR..2,"42093G
O42113".DST..2,"42096 OP$=OP$+LEF(SU$,80
-RL):A1=SN:GOS52000:PR4,OP$"..TV..2,"421
00 SL=SL+1:SN=SN+1:IFINT(SL/";FR;")<>ODT
HEGOS 38000".'TX..2,"42103 SN=(SL-";FR;"
*OD)+1".BTZ..2,"42106 A1=SN:GOS52000:INP
4,IN$:IN$=LEF(IN$+SS$,80)"..T|..2,"42110
OP$=MID$(SU$,81-RL):RL=15+RL-80"..T~..2
,"42113NEJ"..T...2,"42133 CLO4:OP2,8,2,"
;Q$;"0:";GD$;",L,";Q$;"+CH(5)"..U...2,"4
2134A1=RP:GOS52100:PRINT#2,STR$(IK):CLO2
".JU...2,"42135 OP4,8,4,";Q$;"0:";P$;"0/
D,L,";Q$;"+CH(80)"..U...2,"42136OP$=OP$+
MID$(IN$,RL+1):A1=SN:GOS52000:PR4,OP$:CL
O4"..U...2,"33000 CLO4:OP4,8,4,";Q$;"0:"
;SF$;Q$..U...2,"42138PRINT#15,";Q$;"I0";
Q$;":RET"..U...NC.0.2192.9V...2,"33070 D
IM CP$(NC),CX%(NC),CY%(NC),CT$(NC),CD(NC
),CE(NC),CL%(NC)".QV...2,"33080FOI=1TONC
"..V...2,"33090 INP4,CP$(I),CX%(I),CY%(I
),CL%(I),CT$(I)"..V...2,"33100NEI..V...N
G.0.2198..V...2,"33105 DIM GP$(NG),GX%(N
G),GY%(NG),GT$(NG),GL(NG),GK(NG),GM(NG),
";..W...2,"GL%(NG)".HW...2,"33107FOI=1TO
NG:INP4,GP$(I),GX%(I),GY%(I),GL%(I),GT$(
I):NE I".WW...NT.0.2208..W...2,"33120 DI
M TP$(NT),TX%(NT),TY%(NT)"..W...2,"33130
FOI=1TONT".CW...2,"33140 INP4,TP$(I),TX%
(I),TY%(I)".UW...2,"33150NEI"..W ..DZ.0.
2232..X...2,"35135IFT$=";Q$;"D";Q$;"THED
$=SM$:GOS 35500:SM$=D$".ZX...2,"35165IFT
$=";Q$;"D";Q$;"THED$=LR$:GOS 35500:LR$=D
$"..X...2,"35275IFT$=";Q$;"D";Q$;"THE D$
=G$:GOS 35500:G$=D$".OX...G(147);"WILT U
DATA INVOEREN IN DE":.:."AMERIKAANSE";.
.X..." VORM (MM/DD/YY)"..Y...:."OF EUR
OPESE VORM (DD/MM/YY)?".>Y...:.:."KIES
'A' OF 'E' EN TOETS .RETURN."._Y..X%.32
:Y%.8:L%.1:.842:AE$.IN$.{Y...AE$.."A".AE
$.."E".2222..Y...AE$."E". 2230.LY...2,"3
5500 D$=RIG(D$,2)+LEF(D$,2)+MID$(D$,3,2)
:RET":. 2232..Z...2,"35500 D$=RIG(D$,2)+
MID$(D$,3,2)+LEF(D$,2):RET"..Z...DZ.0.23
22.-Z...2542:. AE$."E" . 2302.BZ...2,"49
290IFXX<1 OR XX>12THE?LEF(Y$,23);";:. 23
04..Z...2,"49290IFYY<1 OR YY>12THE?LEF(Y
$,23);";..Z...2,Q$;"DE MAAND IS FOUT";Q$
;":GO49000".PZ... AE$."E" . 2310..{...2,
"49300IFYY<1 OR YY>DT%(XX) THE?LEF(Y$,23
);";:.2312.>{...2,"49300IFXX<1 OR XX>DT%
(YY) THE?LEF(Y$,23);";.K{...2,Q$;"DE DAG
IS VERKEERD";Q$;":GO49000"..{...2,"4931
0 IN$ = RIG(";Q$;"00";Q$;"+MID$(STR$(XX)
,2),2)"..{...2,"49320 IN$ = IN$ + RIG(";
Q$;"00";Q$;"+MID$(STR$(YY),2),2)".+|...2
,"49330 IN$ = IN$ + RIG(";Q$;"00";Q$;"+M
ID$(STR$(ZZ),2),2)".>|...2,"49340 RET".M
|...DX.0.2342.N|&..2,"38000 OD=INT(SL/";
FR;")"..|(..2,"38010 NM$=";Q$;P$;Q$;"+RI
G(STR$(OD),1)+";Q$;"/D";Q$..|*..2,"38020
CLO4:OP4,8,4,";Q$;"0:";Q$;"+(NM$)+";Q$;"
,L,";Q$;"+CH(80)"..},..NG.0.2482.<}...2,
"13000 CLO 3:OP3,8,3,";Q$;"0:";GF$;",L,"
Q$;"+CH(15)".V}0..2,"13005FO II=1TONG".N
}2..2,"13010 INP3,GL$"..}4..2,"13020 GL(
II)=VA(GL$)"..}6..2,"13030NEII"..}8..2,"
13040 CLO3:RET"..}:..2,"13100 CLO3: OP3,
8,3,";Q$;"0:";GF$;",L,"Q$;"+CH(15)"..~<.
.2,"13102FO W9=1TONF".)~>..2,"13105 IJ =
GS%(W9)".^~@..2,"13110IFIJ = 0THE13135
: REM NO GLOBAL FIELD".|~B..2,"13115 A1=
IJ:GOS52150"..~D..2,"13120IFAN$<>";Q$;"E
";Q$;"THE GL(IJ) = GL(IJ) - VA(F$(W9))".
.F..2,"13125IFAN$<>";Q$;"D";Q$;"THE GL(
IJ) = GL(IJ) + VA(G$(W9))"."H..2,"13130
PR3,STR$(GL(IJ))".5J..2,"13135NEW9".G
L.. NC.0 . 2398.AN..2,"13140FO W9=1TONC
"..P..2,"13145 IJ = GS%(W9+NF)"..R..2,
"13150IFIJ = 0THE13175 : REM NO GLOBAL F
IELD".ST..2,"13155 A1=IJ:GOS52150"...V.
.2,"13160IFAN$<>";Q$;"E";Q$;"THE GL(IJ)
= GL(IJ) - CE(W9)".Q.X..2,"13165IFAN$<>"
;Q$;"D";Q$;"THE GL(IJ) = GL(IJ) + CD(W9)
".Q.Z..2,"13170 PR3,STR$(GL(IJ))"...\..2
,"13175NEW9"...^..2,"13180 CLO3:RET"...`
..2,"13203 ?CH(147);LEF(Y$,5)";...B..2,Q
$;"CONTROLE NEEMT ENIGE TIJD IN BESLAG."
;Q$...D..2,"13205FOII=1TONG".8.F..2,"132
10 GM(II) = 0 : GK(II) = GL(II)".K.H..2,
"13212NEII".E.J..2,"13215FO IK=1TOFS"...
L..2,"13220 GOS 40005:REM NEXT RECORD"..
.N..2,"13225IFLEF(F$(1),1) = CH(255)THE1
3255".W.P..2,"13230FO IJ=1TONF"...R..2,"
13240IFGS%(IJ) > 0THEGM(GS%(IJ)) = GM(GS
%(IJ))+VA(F$(IJ))".-.T..2,"13250NEIJ".@.
V..2,"13255NEIK".Y.X..2,"13257FOII=1TONG
".X.Z..2,"13260 GL(II) = GM(II)"...|..2,
"13270NEII"...~.. NC.0 . 2454......2,"13
275FO IJ=1TONC".V....2,"13280 JK = GS%(I
J+NF)"......2,"13285IFJK = 0THE13350"...
...2,"13290FO IK=1TOFS".(....2,"13300 GO
S 40005".W....2,"13310IFLEF(F$(1),1) = C
H(255)THE13340".....2,"13320FO PZ=1TOIJ
:GOS28500:NEPZ"......2,"13330 GM(JK) = G
M(JK) + CE(IJ)"......2,"13340NEIK"......
2,"13345 GL(GS%(IJ+NF)) = GM(GS%(IJ+NF))
"......2,"13350NEIJ"......2,"13360?CH(14
7);LEF(Y$,3);".Z....2,"13365 ?";Q$;"VELD
";Q$;";TA15);";Q$;"OUD TOT. ";Q$;......
2,";TA25);";Q$;"NIEUW TOTAAL. ";Q$;": ?"
......2,"13370FO IJ=1TONG".R....2,"13380
?GP$(IJ);TA15);GK(IJ)TA25);GM(IJ)"... ..
2,"13390IFGK(IJ) = GM(IJ)THE13430".-....
2,"13400?";Q$;"* OUD TOTAAL GECORIGEERD
*";Q$.G....2,"13410CLO3:OP3,8,3,";Q$;"0:
";GF$;",L,"Q$;"+CH(15)"......2,"13420 A1
=IJ:GOS52150:PR3,GL(IJ):CLO3"......2,"13
430?"......2,"13440NEIJ"......2,"13445?L
EF(Y$,24);";Q$;"TOETS .RETURN. VOOR VERV
OLG";Q$.$....2,"13448 GET AA$:IFAA$<>CH(
13)THE13448".7....2,"13450GO90".I....NF.
NC.1.2500......2,"35040?";Q$;"......WELK
VELD WILT U SELECTEREN ?";Q$;......2,":
?"Q$"( 1 -";NF.NC;"OR 'LIST' )";Q$;";"..
....2,"35050 X%=21:Y%=7:L%=5:GOS 34000:S
F=VA(IN$)"......2,"35060IFIN$<>";Q$;"LIS
T";Q$;"THE35080 ".E....2,"35070F=2:GOS20
000:?CH(147) :GO35035......2,"35080IFSF<
1ORSF>NF+NCTHE?LEFT$(Y$,9)";Q$;"ONGELDIG
VELD";Q$.A....2,"35082 IFSF<1ORSF>NF+NC
THENFORZT=1TO1000:NEXTZT"......2,"35083
IFSF<1ORSF>NF+NCTHENPRINTLEFT$(Y$,9);SP$
:GOTO35035"...B..2502.!.D..2,"35040 SF=1
".0.F..NG.0.2510.\.H..2,"35180FOIA=1TONG
:GK(IA)=GL(IA):NEIA".U.J..2,"35190FOIK=1
TOFS"...L.. 2511...N..2,"35180FOIK=1TOFS
"...O..2,"35310 REM"...P..NC.0.2522...R.
.2,"35313 IB%=SF-NF+1 :IFIB%<1THEIB%=1".
..T..2,"35315IFIB%>NCTHE35330"./.V..2,"3
5320FOPZ=IB%TONC:GOS28500:NEPZ".[.X..2,"
35330FOIA=1TONC:CD(IA)=CE(IA):NEIA"...Z.
.2,"27000?";Q$;".";Q$;":SD$=LEF(DT$,L%("
;KF;"))";.N....2,":IFT$(";KF;")=";Q$;"D"
;Q$;"THESD$=";Q$;"../../..";Q$......2,"2
7010?LEF(Y$,Y%(";KF;"));TAX%(";KF;"));PR
$(";KF;");SD$".8....2,"27030 GOS ";KF$;"
:KF$=G$(";KF;")".M....2,"27060 RP=RP+1:R
F=RF+1:IFRP>";MS.3;"THE RP=4"......2,"27
065 CLO4:OP2,8,2,";Q$;"0:";GD$;",L,";Q$;
"+CH(5)"......2,"27100IFLEF(F$(";KF;"),L
EN(ZZ$))=ZZ$THERET"......2,"27120IFRF<";
MS;"THE 27060".2....2,"26040 RP=INT(";MS
;"*RP/9999):IFRP<3THERP=3".8.....~....2,
"49285IF(ZZ/4)<>INT(ZZ/4)THENGOS45390:IF
ER=18THENER=0:GO49000"......AE$."E".2548
.L....2,"45390IFXX=2ANDYY=29THENER=18;?L
EFT$(Y$,23);";:.2550......2,"45390IFXX=2
9ANDYY=2THENER=18:?LEFT$(Y$,23);";.,....
2,Q$;"DAG BESTAAT NIET";Q$;":RETURN".2..
...T... 15:.15,8,15:.2,8,2,"NEWMENU".U..
..15,ER$,EM$:ES.E(ER$): 2: 15...... ES.0
. .......G(147).30)"VERWISSEL DISK":.:.
.V...."FOUT!, CONTROLEER OF DE CODEWRITE
R DISK......"IN DE DISK-DRIVE ZIT.......
"TOETS F1 ALS U KLAAR BENT./.#..M1$:.M1$
..G(133) . 2595.9.(..2560...4
> CLICK IMAGE PREVIEW FOR FULL MODAL