HISTOG-8
FILE INFORMATION
FILENAME(S): HISTOG-8
FILE TYPE(S): PRG
FILE SIZE: 12K
FIRST SEEN: 2025-11-30 21:06:41
APPEARS ON: 1 disk(s)
FILE HASH
68c4df588a5acf6bf7ad1e7c177421374c4562cd3d0e4e4cf6c789dae84c846f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| STR I BASIC | HISTOG-8 | PRG | DuncanTwain | 17 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0E 08 0A 00 3A 89 20 32 31 30 36 30 00 4A |......:. 21060.J|
00000010: 08 15 00 53 52 24 B2 22 22 3A 53 52 B2 4F 3A 48 |...SR$."":SR.O:H|
00000020: 4F B2 30 3A 56 45 B2 4F 3A 43 54 B2 30 3A 43 4E |O.0:VE.O:CT.0:CN|
00000030: B2 30 3A 8F 20 44 41 4E 20 57 45 52 4B 45 4E 20 |.0:. DAN WERKEN |
00000040: 5A 45 20 53 4E 45 4C 4C 45 52 00 58 08 16 00 4B |ZE SNELLER.X...K|
00000050: 45 59 20 4F 46 46 3A 8E 00 63 08 32 00 89 20 31 |EY OFF:..c.2.. 1|
00000060: 30 30 30 00 79 08 46 00 8B 20 4D 42 B1 48 4D 20 |000.y.F.. MB.HM |
00000070: A7 20 88 20 4D 42 B2 48 4D 00 7F 08 50 00 8E 00 |. . MB.HM...P...|
00000080: 89 08 64 00 43 4C 53 3A 8E 00 A9 08 70 00 48 4F |..d.CLS:....p.HO|
00000090: B2 20 48 4F 20 4D 4F 44 20 38 31 3A 8B 20 48 4F |. HO MOD 81:. HO|
000000A0: B2 30 20 A7 20 48 4F B2 31 00 BC 08 72 00 4C 4F |.0 . HO.1...r.LO|
000000B0: 43 41 54 45 20 56 45 2C 48 4F 3A 8E 00 CB 08 D2 |CATE VE,HO:.....|
000000C0: 00 49 4E 24 B2 49 4E 4B 45 59 24 00 DA 08 E1 00 |.IN$.INKEY$.....|
000000D0: 49 4E 24 B2 49 4E 4B 45 59 24 00 E1 08 E6 00 57 |IN$.INKEY$.....W|
000000E0: 80 00 E7 08 F0 00 8E 00 ED 08 18 01 A0 00 10 09 |................|
000000F0: 37 01 8B 20 28 53 34 AD 31 30 B1 43 4E 29 B1 B2 |7.. (S4.10.CN)..|
00000100: 31 20 A7 20 53 32 B2 53 32 AA 31 3A 53 34 B2 30 |1 . S2.S2.1:S4.0|
00000110: 00 41 09 38 01 8B 20 43 4E B2 30 20 A7 20 53 52 |.A.8.. CN.0 . SR|
00000120: 24 B2 C4 28 53 32 29 3A 53 52 24 B2 C9 28 53 52 |$..(S2):SR$..(SR|
00000130: 24 2C C3 28 53 52 24 29 AB 31 29 3A 89 20 33 31 |$,.(SR$).1):. 31|
00000140: 35 00 78 09 39 01 43 B2 43 4E AB 31 3A 57 48 49 |5.x.9.C.CN.1:WHI|
00000150: 4C 45 20 28 43 B1 30 20 AF 20 53 34 AD 31 30 B1 |LE (C.0 . S4.10.|
00000160: 43 B3 31 29 3A 43 B2 43 AB 31 3A 57 80 3A 4E 55 |C.1):C.C.1:W.:NU|
00000170: 4C B2 43 4E AB 31 AB 43 00 98 09 3A 01 8B 20 43 |L.CN.1.C...:.. C|
00000180: 4E B1 30 20 A7 20 53 32 24 B2 C4 28 53 32 29 3A |N.0 . S2$..(S2):|
00000190: 53 32 24 B2 52 49 47 48 00 A1 09 E8 03 8D 20 32 |S2$.RIGH...... 2|
000001A0: 30 00 C0 09 F2 03 8F 20 2A 2A 2A 2A 20 48 4F 4F |0...... **** HOO|
000001B0: 46 44 50 52 4F 47 52 41 4D 4D 41 20 2A 2A 2A 2A |FDPROGRAMMA ****|
000001C0: 00 C6 09 FC 03 3A 00 ED 09 10 04 8B 20 41 46 44 |.....:...... AFD|
000001D0: 52 20 A7 20 8D 20 31 31 36 30 30 3A 8F 20 57 41 |R . . 11600:. WA|
000001E0: 41 52 4E 20 41 46 44 52 55 4B 4B 45 4E 00 09 0A |ARN AFDRUKKEN...|
000001F0: 4C 04 8D 20 31 30 30 30 30 3A 8F 20 49 4E 49 54 |L.. 10000:. INIT|
00000200: 49 41 4C 49 53 41 54 49 45 00 1B 0A 51 04 57 48 |IALISATIE...Q.WH|
00000210: 49 4C 45 20 44 4F B0 47 41 41 4E 00 34 0A 56 04 |ILE DO.GAAN.4.V.|
00000220: 8D 20 32 30 30 30 3A 8F 20 4D 45 4E 55 53 54 55 |. 2000:. MENUSTU|
00000230: 52 49 4E 47 00 3B 0A 60 04 57 80 00 45 0A 6A 04 |RING.;.`.W..E.j.|
00000240: 8D 20 31 30 30 00 61 0A 74 04 99 22 54 4F 54 20 |. 100.a.t.."TOT |
00000250: 44 45 20 56 4F 4C 47 45 4E 44 45 20 4B 45 45 52 |DE VOLGENDE KEER|
00000260: 22 00 70 0A 7E 04 91 20 45 52 52 B0 20 89 20 30 |".p.~.. ERR. . 0|
00000270: 00 7A 0A 88 04 4B 45 59 20 91 00 80 0A A6 04 3A |.z...KEY ......:|
00000280: 00 A1 0A 72 06 8B 20 48 4F B1 B2 48 4D AB 43 54 |...r.. HO..HM.CT|
00000290: 20 A7 20 99 3A 56 45 B2 56 45 AA 31 3A 48 4F B2 | . .:VE.VE.1:HO.|
000002A0: 31 00 A7 0A CF 07 80 00 BD 0A D0 07 8F 20 2A 2A |1............ **|
000002B0: 20 48 4F 4F 46 44 4D 45 4E 55 20 2A 2A 00 D6 0A | HOOFDMENU **...|
000002C0: DA 07 4D 24 28 30 29 B2 22 4D 45 45 54 47 45 47 |..M$(0)."MEETGEG|
000002D0: 45 56 45 4E 53 22 00 E9 0A E4 07 4D 24 28 31 29 |EVENS".....M$(1)|
000002E0: B2 22 55 49 54 4C 45 47 22 00 0A 0B EE 07 4D 24 |."UITLEG".....M$|
000002F0: 28 32 29 B2 22 49 4E 56 4F 45 52 45 4E 2F 56 45 |(2)."INVOEREN/VE|
00000300: 52 57 49 4A 44 45 52 45 4E 22 00 26 0B F8 07 4D |RWIJDEREN".&...M|
00000310: 24 28 33 29 B2 22 48 49 53 54 4F 47 52 41 4D 20 |$(3)."HISTOGRAM |
00000320: 4D 41 4B 45 4E 22 00 3A 0B 02 08 4D 24 28 34 29 |MAKEN".:...M$(4)|
00000330: B2 22 53 54 4F 50 50 45 4E 22 00 48 0B 0C 08 4D |."STOPPEN".H...M|
00000340: 24 28 35 29 B2 22 2E 22 00 61 0B 16 08 8D 20 31 |$(5).".".a.... 1|
00000350: 35 30 30 30 3A 8F 20 4D 45 4E 55 20 4D 41 4B 45 |5000:. MENU MAKE|
00000360: 4E 00 80 0B 20 08 91 20 49 4E 20 8D 20 33 30 30 |N... .. IN . 300|
00000370: 30 2C 34 30 30 30 2C 35 30 30 30 2C 36 30 30 30 |0,4000,5000,6000|
00000380: 00 86 0B 2A 08 8E 00 A1 0B B8 0B 8F 20 2A 2A 20 |...*........ ** |
00000390: 53 55 42 4D 45 4E 55 20 55 49 54 4C 45 47 20 2A |SUBMENU UITLEG *|
000003A0: 2A 00 A7 0B C2 0B 3A 00 BB 0B CC 0B 8D 20 33 31 |*.....:...... 31|
000003B0: 30 30 3A 8F 20 55 49 54 4C 45 47 00 C1 0B D6 0B |00:. UITLEG.....|
000003C0: 3A 00 C7 0B 12 0C 8E 00 DA 0B 1C 0C 8F 20 2A 2A |:............ **|
000003D0: 20 55 49 54 4C 45 47 20 2A 2A 00 E0 0B 26 0C 3A | UITLEG **...&.:|
000003E0: 00 F8 0B 30 0C 8D 20 32 30 31 30 30 3A 8F 20 48 |...0.. 20100:. H|
000003F0: 55 49 53 53 54 49 4A 4C 00 0C 0C 3A 0C 56 45 B2 |UISSTIJL...:.VE.|
00000400: 34 3A 48 4F B2 31 3A 8D 20 31 31 30 00 41 0C 44 |4:HO.1:. 110.A.D|
00000410: 0C 99 20 22 4D 45 54 20 44 49 54 20 50 52 4F 47 |.. "MET DIT PROG|
00000420: 52 41 4D 4D 41 20 4B 55 4E 54 20 55 20 57 41 41 |RAMMA KUNT U WAA|
00000430: 52 4E 45 4D 49 4E 47 53 47 45 47 45 56 45 4E 53 |RNEMINGSGEGEVENS|
00000440: 22 00 47 0C 49 0C 99 00 73 0C 4E 0C 99 20 22 2D |".G.I...s.N.. "-|
00000450: 20 4E 41 41 52 20 45 45 4E 20 42 45 53 54 41 4E | NAAR EEN BESTAN|
00000460: 44 20 4F 50 20 53 43 48 49 4A 46 20 53 54 55 52 |D OP SCHIJF STUR|
00000470: 45 4E 22 00 9E 0C 53 0C 99 20 22 2D 20 56 41 4E |EN"...S.. "- VAN|
00000480: 20 45 45 4E 20 42 45 53 54 41 4E 44 20 4F 50 20 | EEN BESTAND OP |
00000490: 53 43 48 49 4A 46 20 4C 45 5A 45 4E 20 22 00 A4 |SCHIJF LEZEN "..|
000004A0: 0C 58 0C 99 00 BE 0C 5D 0C 99 20 22 56 45 52 56 |.X.....].. "VERV|
000004B0: 4F 4C 47 45 4E 53 20 4B 55 4E 54 20 55 22 00 C4 |OLGENS KUNT U"..|
000004C0: 0C 62 0C 99 00 E8 0C 67 0C 99 20 22 2D 20 45 52 |.b.....g.. "- ER|
000004D0: 20 48 49 53 54 4F 47 52 41 4D 4D 45 4E 20 56 41 | HISTOGRAMMEN VA|
000004E0: 4E 20 4D 41 4B 45 4E 22 00 15 0D 6C 0C 99 20 22 |N MAKEN"...l.. "|
000004F0: 2D 4D 45 54 20 56 45 52 53 43 48 49 4C 4C 45 4E |-MET VERSCHILLEN|
00000500: 44 45 20 4B 4C 41 53 53 45 2D 49 4E 44 45 4C 49 |DE KLASSE-INDELI|
00000510: 4E 47 45 4E 22 00 30 0D 71 0C 8D 20 32 30 30 30 |NGEN".0.q.. 2000|
00000520: 30 3A 8F 20 47 45 5A 49 45 4E 20 50 52 49 4E 54 |0:. GEZIEN PRINT|
00000530: 00 36 0D 76 0C 8E 00 53 0D A0 0F 8F 20 2A 2A 20 |.6.v...S.... ** |
00000540: 53 55 42 4D 45 4E 55 20 49 4E 56 4F 45 52 45 4E |SUBMENU INVOEREN|
00000550: 20 2A 2A 00 59 0D AA 0F 3A 00 6E 0D B4 0F 4D 24 | **.Y...:.n...M$|
00000560: 28 30 29 B2 22 49 4E 56 4F 45 52 45 4E 22 00 A2 |(0)."INVOEREN"..|
00000570: 0D BE 0F 4D 24 28 31 29 B2 22 42 45 53 54 41 4E |...M$(1)."BESTAN|
00000580: 44 20 4F 50 45 4E 45 4E 20 56 4F 4F 52 20 49 4E |D OPENEN VOOR IN|
00000590: 56 4F 45 52 20 57 41 41 52 4E 45 4D 49 4E 47 45 |VOER WAARNEMINGE|
000005A0: 4E 22 00 C2 0D C8 0F 4D 24 28 32 29 B2 22 4F 56 |N".....M$(2)."OV|
000005B0: 45 52 5A 49 43 48 54 20 42 45 53 54 41 4E 44 45 |ERZICHT BESTANDE|
000005C0: 4E 22 00 E2 0D D2 0F 4D 24 28 33 29 B2 22 42 45 |N".....M$(3)."BE|
000005D0: 53 54 41 4E 44 20 56 45 52 57 49 4A 44 45 52 45 |STAND VERWIJDERE|
000005E0: 4E 22 00 F8 0D DC 0F 4D 24 28 34 29 B2 22 48 4F |N".....M$(4)."HO|
000005F0: 4F 46 44 4D 45 4E 55 22 00 06 0E E6 0F 4D 24 28 |OFDMENU".....M$(|
00000600: 35 29 B2 22 2E 22 00 1F 0E F0 0F 8D 20 31 35 30 |5)."."...... 150|
00000610: 30 30 3A 8F 20 4D 45 4E 55 20 4D 41 4B 45 4E 00 |00:. MENU MAKEN.|
00000620: 39 0E FA 0F 91 20 49 4E 20 8D 20 34 31 30 30 2C |9.... IN . 4100,|
00000630: 34 32 30 30 2C 34 33 30 30 00 3F 0E FF 0F 8E 00 |4200,4300.?.....|
00000640: 7B 0E 04 10 8F 20 2A 2A 2A 2A 20 42 45 53 54 41 |{.... **** BESTA|
00000650: 4E 44 20 4F 50 45 4E 45 4E 20 56 4F 4F 52 20 49 |ND OPENEN VOOR I|
00000660: 4E 56 4F 45 52 20 56 41 4E 20 57 41 41 52 4E 45 |NVOER VAN WAARNE|
00000670: 4D 49 4E 47 45 4E 20 2A 2A 2A 2A 00 81 0E 0E 10 |MINGEN ****.....|
00000680: 3A 00 8D 0E 18 10 8D 20 32 30 31 30 30 00 AA 0E |:...... 20100...|
00000690: 22 10 8D 20 31 32 36 30 30 3A 8F 20 42 45 53 54 |".. 12600:. BEST|
000006A0: 41 4E 44 20 4F 50 45 4E 45 4E 00 BD 0E 2C 10 8B |AND OPENEN...,..|
000006B0: 20 4E 41 41 4D 24 B2 22 22 20 A7 20 8E 00 E1 0E | NAAM$."" . ....|
000006C0: 36 10 8D 20 31 32 30 30 30 3A 8F 20 57 41 41 52 |6.. 12000:. WAAR|
000006D0: 4E 45 4D 49 4E 47 45 4E 20 49 4E 56 4F 45 52 45 |NEMINGEN INVOERE|
000006E0: 4E 00 E7 0E 40 10 3A 00 ED 0E 5E 10 8E 00 11 0F |N...@.:...^.....|
000006F0: 68 10 8F 20 2A 2A 2A 2A 20 4F 56 45 52 5A 49 43 |h.. **** OVERZIC|
00000700: 48 54 20 42 45 53 54 41 4E 44 45 4E 20 2A 2A 2A |HT BESTANDEN ***|
00000710: 2A 00 17 0F 72 10 3A 00 2F 0F 7C 10 8D 20 32 30 |*...r.:./.|.. 20|
00000720: 31 30 30 3A 8F 20 48 55 49 53 53 54 49 4A 4C 00 |100:. HUISSTIJL.|
00000730: 47 0F 86 10 8D 20 31 32 38 30 30 3A 8F 20 4F 56 |G.... 12800:. OV|
00000740: 45 52 5A 49 43 48 54 00 4D 0F 90 10 3A 00 53 0F |ERZICHT.M...:.S.|
00000750: 9A 10 3A 00 59 0F C2 10 8E 00 7D 0F CC 10 8F 20 |..:.Y.....}.... |
00000760: 2A 2A 2A 2A 20 42 45 53 54 41 4E 44 20 56 45 52 |**** BESTAND VER|
00000770: 57 49 4A 44 45 52 45 4E 20 2A 2A 2A 2A 00 83 0F |WIJDEREN ****...|
00000780: D6 10 3A 00 9B 0F E0 10 8D 20 32 30 31 30 30 3A |..:...... 20100:|
00000790: 8F 20 48 55 49 53 53 54 49 4A 4C 00 BD 0F EA 10 |. HUISSTIJL.....|
000007A0: 8D 20 31 32 38 30 30 3A 8F 20 4F 56 45 52 5A 49 |. 12800:. OVERZI|
000007B0: 43 48 54 20 42 45 53 54 41 4E 44 45 4E 00 DF 0F |CHT BESTANDEN...|
000007C0: F4 10 8D 20 31 32 39 30 30 3A 8F 20 42 45 53 54 |... 12900:. BEST|
000007D0: 41 4E 44 20 56 45 52 57 49 4A 44 45 52 45 4E 00 |AND VERWIJDEREN.|
000007E0: E5 0F FE 10 3A 00 EB 0F 26 11 8E 00 0F 10 88 13 |....:...&.......|
000007F0: 8F 20 2A 2A 20 53 55 42 4D 45 4E 55 20 48 49 53 |. ** SUBMENU HIS|
00000800: 54 4F 47 52 41 4D 20 4D 41 4B 45 4E 20 2A 2A 00 |TOGRAM MAKEN **.|
00000810: 15 10 92 13 3A 00 31 10 9C 13 4D 24 28 30 29 B2 |....:.1...M$(0).|
00000820: 22 48 49 53 54 4F 47 52 41 4D 20 4D 41 4B 45 4E |"HISTOGRAM MAKEN|
00000830: 22 00 67 10 A6 13 4D 24 28 31 29 B2 22 42 45 53 |".g...M$(1)."BES|
00000840: 54 41 4E 44 20 4F 50 45 4E 45 4E 20 56 4F 4F 52 |TAND OPENEN VOOR|
00000850: 20 55 49 54 4C 45 5A 45 4E 20 57 41 41 52 4E 45 | UITLEZEN WAARNE|
00000860: 4D 49 4E 47 45 4E 22 00 7D 10 B0 13 4D 24 28 32 |MINGEN".}...M$(2|
00000870: 29 B2 22 4F 56 45 52 5A 49 43 48 54 22 00 93 10 |)."OVERZICHT"...|
00000880: BA 13 4D 24 28 33 29 B2 22 48 4F 4F 46 44 4D 45 |..M$(3)."HOOFDME|
00000890: 4E 55 22 00 A1 10 C4 13 4D 24 28 34 29 B2 22 2E |NU".....M$(4).".|
000008A0: 22 00 BA 10 CE 13 8D 20 31 35 30 30 30 3A 8F 20 |"...... 15000:. |
000008B0: 4D 45 4E 55 20 4D 41 4B 45 4E 00 CF 10 D8 13 91 |MENU MAKEN......|
000008C0: 20 49 4E 20 8D 20 35 31 30 30 2C 34 32 30 30 00 | IN . 5100,4200.|
000008D0: D5 10 E2 13 8E 00 0F 11 EC 13 8F 20 2A 2A 2A 2A |........... ****|
000008E0: 20 42 45 53 54 41 4E 44 20 4F 50 45 4E 45 4E 20 | BESTAND OPENEN |
000008F0: 56 4F 4F 52 20 49 4E 4C 45 5A 45 4E 20 57 41 41 |VOOR INLEZEN WAA|
00000900: 52 4E 45 4D 49 4E 47 45 4E 20 2A 2A 2A 2A 2A 00 |RNEMINGEN *****.|
00000910: 15 11 F6 13 3A 00 2D 11 FB 13 8D 20 32 30 31 30 |....:.-.... 2010|
00000920: 30 3A 8F 20 48 55 49 53 53 54 49 4A 4C 00 4B 11 |0:. HUISSTIJL.K.|
00000930: 00 14 8D 20 31 32 38 30 30 3A 8F 20 4F 56 45 52 |... 12800:. OVER|
00000940: 5A 49 43 48 54 20 47 45 56 45 4E 00 68 11 05 14 |ZICHT GEVEN.h...|
00000950: 8D 20 31 32 37 30 30 3A 8F 20 42 45 53 54 41 4E |. 12700:. BESTAN|
00000960: 44 20 4F 50 45 4E 45 4E 00 7B 11 0A 14 8B 20 4E |D OPENEN.{.... N|
00000970: 41 41 4D 24 B2 22 22 20 A7 20 8E 00 8D 11 0F 14 |AAM$."" . ......|
00000980: 4E 4F 47 45 45 4E 53 B2 28 31 B2 31 29 00 9A 11 |NOGEENS.(1.1)...|
00000990: 14 14 8D 20 31 31 30 30 30 3A 00 B7 11 28 14 8D |... 11000:...(..|
000009A0: 20 31 32 34 30 30 3A 8F 20 4E 4F 47 20 45 45 4E | 12400:. NOG EEN|
000009B0: 53 20 50 52 49 4E 54 00 CF 11 2D 14 8B 20 4E 4F |S PRINT...-.. NO|
000009C0: 47 45 45 4E 53 20 A7 20 8D 20 31 31 31 38 30 00 |GEENS . . 11180.|
000009D0: D6 11 32 14 57 80 00 DC 11 3C 14 3A 00 E2 11 46 |..2.W....<.:...F|
000009E0: 14 8E 00 EE 11 B4 14 8F 20 4B 45 55 5A 45 00 0A |........ KEUZE..|
000009F0: 12 70 17 8F 20 2A 2A 20 53 55 42 4D 45 4E 55 20 |.p.. ** SUBMENU |
00000A00: 53 54 4F 50 50 45 4E 20 2A 2A 00 10 12 7A 17 3A |STOPPEN **...z.:|
00000A10: 00 28 12 8E 17 8D 20 32 30 31 30 30 3A 8F 20 48 |.(.... 20100:. H|
00000A20: 55 49 53 53 54 49 4A 4C 00 52 12 98 17 56 52 41 |UISSTIJL.R...VRA|
00000A30: 41 47 24 B2 22 57 49 4C 54 20 55 20 45 43 48 54 |AG$."WILT U ECHT|
00000A40: 20 53 54 4F 50 50 45 4E 3F 20 3C 4A 2F 4E 3E 20 | STOPPEN? <J/N> |
00000A50: 4E 22 00 6C 12 A2 17 8D 20 32 30 35 30 30 3A 8F |N".l.... 20500:.|
00000A60: 20 4F 4B 50 52 49 4E 54 20 4A 2F 4E 00 81 12 AC | OKPRINT J/N....|
00000A70: 17 44 4F B0 47 41 41 4E B2 A8 20 41 4B 4B 4F B0 |.DO.GAAN.. AKKO.|
00000A80: 44 00 87 12 C0 17 3A 00 8D 12 CA 17 8E 00 AB 12 |D.....:.........|
00000A90: 10 27 8F 20 2A 2A 2A 2A 20 49 4E 49 54 49 41 4C |.'. **** INITIAL|
00000AA0: 49 53 41 54 49 45 20 2A 2A 2A 2A 00 B1 12 1A 27 |ISATIE ****....'|
00000AB0: 3A 00 D4 12 24 27 56 4D B2 32 34 3A 48 4D B2 38 |:...$'VM.24:HM.8|
00000AC0: 30 3A 52 4D 41 52 47 45 B2 31 31 3A 4C 4D 41 52 |0:RMARGE.11:LMAR|
00000AD0: 47 45 B2 35 00 F5 12 38 27 41 41 4E 54 4B 4C 41 |GE.5...8'AANTKLA|
00000AE0: 53 53 45 4E B2 31 30 3A 49 B2 41 41 4E 54 4B 4C |SSEN.10:I.AANTKL|
00000AF0: 41 53 53 45 4E 00 13 13 42 27 86 20 53 43 48 41 |ASSEN...B'. SCHA|
00000B00: 41 4C 24 28 56 4D AB 36 29 2C 53 54 41 41 46 24 |AL$(VM.6),STAAF$|
00000B10: 28 31 29 00 28 13 4C 27 8D 20 31 30 33 33 30 3A |(1).(.L'. 10330:|
00000B20: 8F 20 44 49 4D 4D 45 4E 00 3F 13 74 27 8F 20 53 |. DIMMEN.?.t'. S|
00000B30: 50 45 43 49 41 4C 45 20 53 54 52 49 4E 47 53 00 |PECIALE STRINGS.|
00000B40: 58 13 7E 27 43 49 4A 46 45 52 24 B2 22 30 31 32 |X.~'CIJFER$."012|
00000B50: 33 34 35 36 37 38 39 22 00 7B 13 88 27 50 55 4E |3456789".{..'PUN|
00000B60: 54 24 B2 22 2E 22 3A 4D 49 4E 24 B2 22 2D 22 3A |T$.".":MIN$."-":|
00000B70: BD 91 45 4E 54 24 B2 22 45 45 22 00 9F 13 92 27 |..ENT$."EE"....'|
00000B80: 43 4B 41 52 24 B2 43 49 4A 46 45 52 24 AA 50 55 |CKAR$.CIJFER$.PU|
00000B90: 4E 54 24 AA 4D 49 4E 24 AA BD 91 45 4E 54 24 00 |NT$.MIN$...ENT$.|
00000BA0: C6 13 9C 27 41 4C 46 41 24 B2 22 41 42 43 44 45 |...'ALFA$."ABCDE|
00000BB0: 46 47 48 49 4A 4B 4C 4D 4E 4F 50 51 52 53 54 55 |FGHIJKLMNOPQRSTU|
00000BC0: 56 57 58 59 5A 22 00 F3 13 A6 27 41 4C 46 41 24 |VWXYZ"....'ALFA$|
00000BD0: B2 41 4C 46 41 24 AA 22 41 42 43 44 45 46 47 48 |.ALFA$."ABCDEFGH|
00000BE0: 49 4A 4B 4C 4D 4E 4F 50 51 52 53 54 55 56 57 58 |IJKLMNOPQRSTUVWX|
00000BF0: 59 5A 22 00 18 14 B0 27 52 54 24 B2 C7 28 31 33 |YZ"....'RT$..(13|
00000C00: 29 3A 42 53 24 B2 C7 28 38 29 3A 53 50 41 54 49 |):BS$..(8):SPATI|
00000C10: 45 24 B2 C7 28 33 32 29 00 28 14 BA 27 4B 4F 50 |E$..(32).(..'KOP|
00000C20: 24 B2 22 54 45 4C 45 41 00 2E 14 32 28 8E 00 45 |$."TELEA...2(..E|
00000C30: 14 3C 28 8F 20 2A 2A 2A 2A 20 44 49 4D 4D 45 4E |.<(. **** DIMMEN|
00000C40: 20 2A 2A 2A 2A 00 4B 14 46 28 3A 00 68 14 50 28 | ****.K.F(:.h.P(|
00000C50: 45 52 41 53 45 20 4B 4C 4D 49 44 2C 91 44 45 52 |ERASE KLMID,.DER|
00000C60: 47 52 45 4E 53 2C B8 51 00 7A 14 5A 28 49 B2 41 |GRENS,.Q.z.Z(I.A|
00000C70: 41 4E 54 4B 4C 41 53 53 45 4E 00 9C 14 64 28 86 |ANTKLASSEN...d(.|
00000C80: 20 4B 4C 4D 49 44 28 49 29 2C 91 44 45 52 47 52 | KLMID(I),.DERGR|
00000C90: 45 4E 53 28 49 29 2C B8 51 28 49 29 00 CC 14 6E |ENS(I),.Q(I)...n|
00000CA0: 28 53 54 41 41 46 42 52 B2 B5 28 28 48 4D AB 4C |(STAAFBR..((HM.L|
00000CB0: 4D 41 52 47 45 AB 52 4D 41 52 47 45 AB 31 29 AD |MARGE.RMARGE.1).|
00000CC0: 41 41 4E 54 4B 4C 41 53 53 45 4E 29 00 0E 15 78 |AANTKLASSEN)...x|
00000CD0: 28 53 54 41 41 46 24 28 30 29 B2 53 54 52 49 4E |(STAAF$(0).STRIN|
00000CE0: 47 24 28 53 54 41 41 46 42 52 2C 32 34 30 29 3A |G$(STAAFBR,240):|
00000CF0: 53 54 41 41 46 24 28 31 29 B2 53 54 52 49 4E 47 |STAAF$(1).STRING|
00000D00: 24 28 53 54 41 41 46 42 52 2C 32 31 39 29 00 14 |$(STAAFBR,219)..|
00000D10: 15 96 28 8E 00 36 15 F8 2A 8F 20 2A 2A 2A 2A 20 |..(..6..*. **** |
00000D20: 4C 45 45 53 20 4D 45 45 54 47 45 47 45 56 45 4E |LEES MEETGEGEVEN|
00000D30: 53 20 2A 2A 2A 2A 00 46 15 16 2B 41 41 4E 54 57 |S ****.F..+AANTW|
00000D40: 41 41 52 4E B2 31 00 5E 15 1B 2B 56 45 B2 56 45 |AARN.1.^..+VE.VE|
00000D50: 52 AA 31 3A 48 4F B2 31 3A 8D 20 31 31 30 00 82 |R.1:HO.1:. 110..|
00000D60: 15 25 2B 4D 41 58 57 41 41 52 44 45 B2 57 41 41 |.%+MAXWAARDE.WAA|
00000D70: 52 4E 3A 4D 49 4E 57 41 41 52 44 45 B2 57 41 41 |RN:MINWAARDE.WAA|
00000D80: 52 4E 00 95 15 2A 2B 57 48 49 4C 45 20 A8 20 45 |RN...*+WHILE . E|
00000D90: 4F 46 28 31 29 00 A3 15 2F 2B 85 20 23 31 2C 57 |OF(1).../+. #1,W|
00000DA0: 4E 47 24 00 B5 15 34 2B 57 41 41 52 4E B2 C5 28 |NG$...4+WAARN..(|
00000DB0: 57 4E 47 24 29 00 DC 15 39 2B 8B 20 41 46 44 52 |WNG$)...9+. AFDR|
00000DC0: 20 A7 20 8D 20 31 31 36 30 30 3A 8F 20 57 41 41 | . . 11600:. WAA|
00000DD0: 52 4E 20 41 46 44 52 55 4B 4B 45 4E 00 04 16 3E |RN AFDRUKKEN...>|
00000DE0: 2B 8B 20 57 41 41 52 4E B1 4D 41 58 57 41 41 52 |+. WAARN.MAXWAAR|
00000DF0: 44 45 20 A7 20 4D 41 58 57 41 41 52 44 45 B2 57 |DE . MAXWAARDE.W|
00000E00: 41 41 52 4E 00 2C 16 43 2B 8B 20 57 41 41 52 4E |AARN.,.C+. WAARN|
00000E10: B3 4D 49 4E 57 41 41 52 44 45 20 A7 20 4D 49 4E |.MINWAARDE . MIN|
00000E20: 57 41 41 52 44 45 B2 57 41 41 52 4E 00 40 16 48 |WAARDE.WAARN.@.H|
00000E30: 2B 41 41 4E 54 57 41 41 52 4E B2 41 41 4E 54 57 |+AANTWAARN.AANTW|
00000E40: 00 5B 16 5C 2B 8F 20 4D 49 4E 20 45 4E 20 4D 41 |.[.\+. MIN EN MA|
00000E50: 58 20 41 46 44 52 55 4B 4B 45 4E 00 61 16 66 2B |X AFDRUKKEN.a.f+|
00000E60: 3A 00 7F 16 70 2B 8B 20 41 46 44 52 20 A7 20 8D |:...p+. AFDR . .|
00000E70: 20 31 31 37 30 30 3A 99 20 45 4C 53 45 20 99 00 | 11700:. ELSE ..|
00000E80: B3 16 7A 2B 53 52 B2 4D 49 4E 57 41 41 52 44 45 |..z+SR.MINWAARDE|
00000E90: 3A 99 20 22 4D 49 4E 49 4D 55 4D 3A 20 22 3B 3A |:. "MINIMUM: ";:|
00000EA0: 8D 20 32 31 30 30 30 3A 99 20 53 52 24 3B 22 2E |. 21000:. SR$;".|
00000EB0: 20 22 3B 00 E1 16 84 2B 53 52 B2 4D 41 58 57 41 | ";....+SR.MAXWA|
00000EC0: 41 52 44 45 3A 99 20 22 4D 41 58 49 4D 55 4D 3A |ARDE:. "MAXIMUM:|
00000ED0: 20 22 3B 3A 8D 20 32 31 30 30 30 3A 99 20 53 52 | ";:. 21000:. SR|
00000EE0: 24 00 05 17 8E 2B 8D 20 31 31 37 30 30 3A 8F 20 |$....+. 11700:. |
00000EF0: 47 45 5A 49 45 4E 50 52 49 4E 54 20 45 4E 20 56 |GEZIENPRINT EN V|
00000F00: 45 52 44 45 52 00 45 17 98 2B 8B 20 4D 49 4E 57 |ERDER.E..+. MINW|
00000F10: 41 41 52 44 45 B2 4D 41 58 57 41 41 52 44 45 20 |AARDE.MAXWAARDE |
00000F20: A7 20 46 4F 55 54 B2 36 3A 8D 20 32 30 32 30 30 |. FOUT.6:. 20200|
00000F30: 3A 4E 4F 47 45 45 4E 53 B2 A8 28 4E 4F 47 45 45 |:NOGEENS..(NOGEE|
00000F40: 4E 53 29 3A 8E 00 4B 17 A2 2B 3A 00 6F 17 AC 2B |NS):..K..+:.o..+|
00000F50: 8D 20 31 32 33 30 30 3A 8F 20 41 41 4E 54 41 4C |. 12300:. AANTAL|
00000F60: 20 4B 4C 41 53 53 45 4E 20 56 52 41 47 45 4E 00 | KLASSEN VRAGEN.|
00000F70: 75 17 B6 2B 3A 00 8E 17 C0 2B 8F 20 4B 4C 41 53 |u..+:....+. KLAS|
00000F80: 53 45 4E 20 56 41 53 54 4C 45 47 47 45 4E 00 94 |SEN VASTLEGGEN..|
00000F90: 17 CA 2B 3A 00 B2 17 D4 2B 56 41 52 42 52 B2 4D |..+:....+VARBR.M|
00000FA0: 41 58 57 41 41 52 44 45 AB 4D 49 4E 57 41 41 52 |AXWAARDE.MINWAAR|
00000FB0: 44 45 00 D1 17 DE 2B 4B 4C 41 53 53 45 42 52 B2 |DE....+KLASSEBR.|
00000FC0: 56 41 52 42 52 AD 41 41 4E 54 4B 4C 41 53 53 45 |VARBR.AANTKLASSE|
00000FD0: 4E 00 EE 17 E8 2B 81 20 4B 4C 41 53 53 45 B2 31 |N....+. KLASSE.1|
00000FE0: 20 A4 20 41 41 4E 54 4B 4C 41 53 53 45 4E 00 25 | . AANTKLASSEN.%|
00000FF0: 18 F2 2B 4B 4C 4D 49 44 28 4B 4C 41 53 53 45 29 |..+KLMID(KLASSE)|
00001000: B2 4D 49 4E 57 41 41 52 44 45 AA 4B 4C 41 53 53 |.MINWAARDE.KLASS|
00001010: 45 AC 4B 4C 41 53 53 45 42 52 AB 4B 4C 41 53 53 |E.KLASSEBR.KLASS|
00001020: 45 42 52 AD 32 00 59 18 FC 2B 91 44 45 52 47 52 |EBR.2.Y..+.DERGR|
00001030: 45 4E 53 28 4B 4C 41 53 53 45 29 B2 4D 49 4E 57 |ENS(KLASSE).MINW|
00001040: 41 41 52 44 45 AA 28 4B 4C 41 53 53 45 AB 31 29 |AARDE.(KLASSE.1)|
00001050: AC 4B 4C 41 53 53 45 42 52 00 66 18 06 2C 82 20 |.KLASSEBR.f..,. |
00001060: 4B 4C 41 53 53 45 00 6C 18 10 2C 3A 00 86 18 24 |KLASSE.l..,:...$|
00001070: 2C 8F 20 46 52 45 51 55 45 4E 54 49 45 53 20 42 |,. FREQUENTIES B|
00001080: 45 50 41 4C 45 4E 00 8C 18 2E 2C 3A 00 A9 18 38 |EPALEN....,:...8|
00001090: 2C 81 20 4B 4C 41 53 53 45 B2 31 20 A4 20 41 41 |,. KLASSE.1 . AA|
000010A0: 4E 54 4B 4C 41 53 53 45 4E 00 BA 18 42 2C B8 51 |NTKLASSEN...B,.Q|
000010B0: 28 4B 4C 41 53 53 45 29 B2 30 00 C7 18 4C 2C 82 |(KLASSE).0...L,.|
000010C0: 20 4B 4C 41 53 53 45 00 DD 18 56 2C 9F 20 4E 41 | KLASSE...V,. NA|
000010D0: 41 4D 24 20 81 20 85 20 41 53 20 23 31 00 F0 18 |AM$ . . AS #1...|
000010E0: 60 2C 57 48 49 4C 45 20 A8 20 45 4F 46 28 31 29 |`,WHILE . EOF(1)|
000010F0: 00 FE 18 6A 2C 85 20 23 31 2C 57 4E 47 24 00 10 |...j,. #1,WNG$..|
00001100: 19 74 2C 57 41 41 52 4E B2 C5 28 57 4E 47 24 29 |.t,WAARN..(WNG$)|
00001110: 00 22 19 7E 2C 49 B2 41 41 4E 54 4B 4C 41 53 53 |.".~,I.AANTKLASS|
00001120: 45 4E 00 3F 19 88 2C 57 48 49 4C 45 20 57 41 41 |EN.?..,WHILE WAA|
00001130: 52 4E B3 91 44 45 52 47 52 45 4E 53 28 49 29 00 |RN..DERGRENS(I).|
00001140: 49 19 92 2C 49 B2 49 AB 31 00 50 19 9C 2C 57 80 |I..,I.I.1.P..,W.|
00001150: 00 62 19 A6 2C B8 51 28 49 29 B2 B8 51 28 49 29 |.b..,.Q(I)..Q(I)|
00001160: AA 31 00 69 19 B0 2C 57 80 00 72 19 BA 2C A0 20 |.1.i..,W..r..,. |
00001170: 23 31 00 78 19 E2 2C 3A 00 8E 19 EC 2C 8F 20 4D |#1.x..,:....,. M|
00001180: 41 58 46 52 45 51 20 42 45 50 41 4C 45 4E 00 94 |AXFREQ BEPALEN..|
00001190: 19 F6 2C 3A 00 A0 19 00 2D 4D 41 58 B8 51 B2 30 |..,:....-MAX.Q.0|
000011A0: 00 BD 19 0A 2D 81 20 4B 4C 41 53 53 45 B2 31 20 |....-. KLASSE.1 |
000011B0: A4 20 41 41 4E 54 4B 4C 41 53 53 45 4E 00 E7 19 |. AANTKLASSEN...|
000011C0: 14 2D 8B 20 B8 51 28 4B 4C 41 53 53 45 29 B1 4D |.-. .Q(KLASSE).M|
000011D0: 41 58 B8 51 20 A7 20 4D 41 58 B8 51 B2 B8 51 28 |AX.Q . MAX.Q..Q(|
000011E0: 4B 4C 41 53 53 45 29 00 F4 19 1E 2D 82 20 4B 4C |KLASSE)....-. KL|
000011F0: 41 53 53 45 00 FA 19 46 2D 8E 00 16 1A 50 2D 8F |ASSE...F-....P-.|
00001200: 20 2A 2A 20 57 41 41 52 4E 20 41 46 44 52 55 4B | ** WAARN AFDRUK|
00001210: 4B 45 4E 20 2A 2A 00 1C 1A 5A 2D 3A 00 31 1A 64 |KEN **...Z-:.1.d|
00001220: 2D 53 52 B2 57 41 41 52 4E 3A 8D 20 32 31 30 30 |-SR.WAARN:. 2100|
00001230: 30 00 46 1A 6E 2D 8D 20 31 31 30 3A 99 20 53 52 |0.F.n-. 110:. SR|
00001240: 24 3B 22 20 22 3B 00 55 1A 78 2D 48 4F B2 48 4F |$;" ";.U.x-HO.HO|
00001250: AA 43 54 AA 31 00 6B 1A 8C 2D 8B 20 56 45 B3 43 |.CT.1.k..-. VE.C|
00001260: 4F 4D 52 45 47 45 4C 20 A7 20 8E 00 71 1A 96 2D |OMREGEL . ..q..-|
00001270: 3A 00 8F 1A B4 2D 8F 20 2A 2A 20 47 45 5A 49 45 |:....-. ** GEZIE|
00001280: 4E 3F 20 45 4E 20 56 45 52 44 45 52 20 2A 2A 00 |N? EN VERDER **.|
00001290: 95 1A BE 2D 3A 00 B5 1A C8 2D 8D 20 32 30 30 30 |...-:....-. 2000|
000012A0: 30 3A 8F 20 54 4F 45 54 53 20 56 4F 4F 52 20 47 |0:. TOETS VOOR G|
000012B0: 45 5A 49 45 4E 00 CD 1A D2 2D 56 45 B2 56 45 52 |EZIEN....-VE.VER|
000012C0: AA 31 3A 48 4F B2 31 3A 8D 20 31 31 30 00 E7 1A |.1:HO.1:. 110...|
000012D0: DC 2D 81 20 52 45 47 45 4C B2 56 45 20 A4 20 43 |.-. REGEL.VE . C|
000012E0: 4F 4D 52 45 47 45 4C 00 F8 1A E6 2D 99 20 53 50 |OMREGEL....-. SP|
000012F0: 41 43 45 24 28 48 4D 29 00 04 1B F0 2D 82 20 52 |ACE$(HM)....-. R|
00001300: 45 47 45 4C 00 0E 1B FA 2D 8D 20 31 31 30 00 14 |EGEL....-. 110..|
00001310: 1B 04 2E 3A 00 1A 1B 0E 2E 8E 00 3F 1B 18 2E 8F |...:.......?....|
00001320: 20 2A 2A 20 57 41 41 52 4E 45 4D 49 4E 47 45 4E | ** WAARNEMINGEN|
00001330: 20 41 46 44 52 55 4B 4B 45 4E 20 3F 20 2A 2A 00 | AFDRUKKEN ? **.|
00001340: 45 1B 22 2E 3A 00 79 1B 36 2E 56 52 41 41 47 24 |E.".:.y.6.VRAAG$|
00001350: B2 22 57 49 4C 54 20 55 20 57 41 41 52 4E 45 4D |."WILT U WAARNEM|
00001360: 49 4E 47 45 4E 20 41 46 44 52 55 4B 4B 45 4E 3F |INGEN AFDRUKKEN?|
00001370: 20 3C 4A 2F 4E 3E 20 4E 22 00 95 1B 40 2E 8D 20 | <J/N> N"...@.. |
00001380: 32 30 35 30 30 3A 8F 20 4F 4B 50 52 49 4E 54 20 |20500:. OKPRINT |
00001390: 3C 4A 2F 4E 3E 00 A5 1B 4A 2E 41 46 44 52 B2 41 |<J/N>...J.AFDR.A|
000013A0: 4B 4B 4F B0 44 00 B1 1B 54 2E 8D 20 32 30 34 30 |KKO.D...T.. 2040|
000013B0: 30 00 B7 1B 5E 2E 3A 00 BD 1B 72 2E 8E 00 F3 1B |0...^.:...r.....|
000013C0: E0 2E 8F 20 2A 2A 2A 2A 20 42 45 53 54 41 4E 44 |... **** BESTAND|
000013D0: 20 4D 45 54 20 57 41 41 52 4E 45 4D 49 4E 47 53 | MET WAARNEMINGS|
000013E0: 47 45 54 41 4C 4C 45 4E 20 4D 41 4B 45 4E 20 2A |GETALLEN MAKEN *|
000013F0: 2A 2A 2A 00 F9 1B EA 2E 3A 00 1A 1C F4 2E 56 45 |***.....:.....VE|
00001400: 52 B2 35 3A 48 B0 B2 31 3A 41 41 4E 54 41 4C B2 |R.5:H..1:AANTAL.|
00001410: 30 3A 4F 4B B2 28 31 B2 31 29 00 2E 1C FE 2E 56 |0:OK.(1.1).....V|
00001420: 45 B2 56 45 52 3A 57 4E 47 24 B2 22 40 22 00 46 |E.VER:WNG$."@".F|
00001430: 1C 08 2F 57 48 49 4C 45 20 57 4E 47 24 B3 B1 22 |../WHILE WNG$.."|
00001440: 30 30 30 30 30 22 00 65 1C 12 2F 48 4F B2 48 B0 |00000".e../HO.H.|
00001450: 20 3A 8D 20 31 31 30 3A 99 20 53 50 41 43 45 24 | :. 110:. SPACE$|
00001460: 28 48 4D 29 3B 00 85 1C 1C 2F 56 45 B2 56 45 AA |(HM);..../VE.VE.|
00001470: 31 3A 8D 20 31 31 30 3A 99 20 53 50 41 43 45 24 |1:. 110:. SPACE$|
00001480: 28 48 4D 29 3B 00 97 1C 26 2F 56 45 B2 56 45 AB |(HM);...&/VE.VE.|
00001490: 31 3A 8D 20 31 31 30 00 B3 1C 30 2F 99 20 22 57 |1:. 110...0/. "W|
000014A0: 41 41 52 4E 45 4D 49 4E 47 53 47 45 54 41 4C 20 |AARNEMINGSGETAL |
000014B0: 3A 22 3B 00 D5 1C 3A 2F 4B 53 45 54 24 B2 43 4B |:";...:/KSET$.CK|
000014C0: 41 52 24 3A 41 4E 54 57 C3 B2 31 35 3A 41 4E 54 |AR$:ANTW..15:ANT|
000014D0: 57 24 B2 22 22 00 E8 1C 44 2F 48 4F B2 48 4F AA |W$.""...D/HO.HO.|
000014E0: 31 38 3A 8D 20 31 31 30 00 FF 1C 4E 2F 8D 20 32 |18:. 110...N/. 2|
000014F0: 30 37 30 30 3A 57 4E 47 24 B2 41 4E 54 57 24 00 |0700:WNG$.ANTW$.|
00001500: 18 1D 58 2F 8D 20 31 32 32 30 30 3A 8F 20 42 45 |..X/. 12200:. BE|
00001510: 56 45 53 54 49 47 45 4E 00 4F 1D 62 2F 8B 20 43 |VESTIGEN.O.b/. C|
00001520: B0 52 45 43 54 AC 28 57 4E 47 24 B3 B1 22 30 30 |.RECT.(WNG$.."00|
00001530: 30 30 30 22 29 20 A7 20 41 41 4E 54 41 4C B2 41 |000") . AANTAL.A|
00001540: 41 4E 54 41 4C AA 31 3A 8D 20 31 32 35 30 30 00 |ANTAL.1:. 12500.|
00001550: 6C 1D 6C 2F 8B 20 46 4F 55 54 20 A7 20 41 41 4E |l.l/. FOUT . AAN|
00001560: 54 41 4C B2 41 41 4E 54 41 4C AB 31 00 99 1D 76 |TAL.AANTAL.1...v|
00001570: 2F 8B 20 57 4E 47 24 B3 B1 22 30 30 30 30 30 22 |/. WNG$.."00000"|
00001580: 20 A7 20 56 45 B2 56 45 52 AA 28 41 41 4E 54 41 | . VE.VER.(AANTA|
00001590: 4C 20 4D 4F 44 20 31 34 29 00 A0 1D 80 2F 57 80 |L MOD 14)..../W.|
000015A0: 00 CE 1D 8A 2F 99 3A 99 20 22 55 20 48 45 45 46 |..../.:. "U HEEF|
000015B0: 54 20 22 3B 41 41 4E 54 41 4C 3B 22 20 57 41 41 |T ";AANTAL;" WAA|
000015C0: 52 4E 45 4D 49 4E 47 45 4E 20 49 4E 47 45 00 F0 |RNEMINGEN INGE..|
000015D0: 1D A8 2F 8F 20 2A 2A 2A 2A 20 49 4E 56 4F 45 52 |../. **** INVOER|
000015E0: 20 42 45 56 45 53 54 49 47 45 4E 20 2A 2A 2A 2A | BEVESTIGEN ****|
000015F0: 00 F6 1D B2 2F 3A 00 1C 1E BC 2F 56 52 41 41 47 |..../:..../VRAAG|
00001600: 24 B2 22 49 53 20 44 49 54 20 43 4F 52 52 45 43 |$."IS DIT CORREC|
00001610: 54 20 3F 20 3C 4A 2F 4E 3E 20 4A 22 00 38 1E C6 |T ? <J/N> J".8..|
00001620: 2F 8D 20 32 30 34 30 30 3A 8F 20 49 4E 49 54 20 |/. 20400:. INIT |
00001630: 43 4F 4D 52 45 47 45 4C 00 56 1E D0 2F 8D 20 32 |COMREGEL.V../. 2|
00001640: 30 35 30 30 3A 8F 20 4F 4B 20 50 52 49 4E 54 20 |0500:. OK PRINT |
00001650: 4A 41 2F 4E 45 45 00 72 1E DA 2F 8D 20 32 30 34 |JA/NEE.r../. 204|
00001660: 30 30 3A 8F 20 49 4E 49 54 20 43 4F 4D 52 45 47 |00:. INIT COMREG|
00001670: 45 4C 00 84 1E E4 2F 43 B0 52 45 43 54 B2 41 4B |EL..../C.RECT.AK|
00001680: 4B 4F B0 44 00 8A 1E EE 2F 3A 00 90 1E 02 30 8E |KO.D..../:....0.|
00001690: 00 B6 1E 0C 30 8F 20 2A 2A 2A 2A 20 41 41 4E 54 |....0. **** AANT|
000016A0: 41 4C 20 4B 4C 41 53 53 45 4E 20 56 52 41 47 45 |AL KLASSEN VRAGE|
000016B0: 4E 20 2A 2A 2A 2A 00 BC 1E 16 30 3A 00 D9 1E 1B |N ****....0:....|
000016C0: 30 56 45 B2 43 4F 4D 52 45 47 45 4C AB 33 3A 48 |0VE.COMREGEL.3:H|
000016D0: 4F B2 31 3A 8D 20 31 31 30 00 01 1F 20 30 99 20 |O.1:. 110... 0. |
000016E0: 22 41 41 4E 54 41 4C 20 57 41 41 52 4E 45 4D 49 |"AANTAL WAARNEMI|
000016F0: 4E 47 45 4E 3A 20 22 3B 41 41 4E 54 57 41 41 52 |NGEN: ";AANTWAAR|
00001700: 4E 00 1E 1F 25 30 56 45 B2 43 4F 4D 52 45 47 45 |N...%0VE.COMREGE|
00001710: 4C AB 32 3A 48 4F B2 31 3A 8D 20 31 31 30 00 36 |L.2:HO.1:. 110.6|
00001720: 1F 2A 30 99 20 53 50 41 43 45 24 28 48 4D 29 3B |.*0. SPACE$(HM);|
00001730: 3A 8D 20 31 31 30 00 64 1F 34 30 99 20 22 48 4F |:. 110.d.40. "HO|
00001740: 45 56 45 45 4C 20 4B 4C 41 53 53 45 4E 20 57 49 |EVEEL KLASSEN WI|
00001750: 4C 54 20 55 20 3C 33 20 54 4F 54 20 32 30 3E 20 |LT U <3 TOT 20> |
00001760: 3E 3E 22 3B 00 8C 1F 39 30 53 52 B2 41 41 4E 54 |>>";...90SR.AANT|
00001770: 4B 4C 41 53 53 45 4E 3A 43 4E B2 30 3A 8D 20 33 |KLASSEN:CN.0:. 3|
00001780: 31 30 3A 41 4E 54 57 24 B2 53 52 24 00 AF 1F 3E |10:ANTW$.SR$...>|
00001790: 30 4B 53 45 54 24 B2 43 49 4A 46 45 52 24 3A 41 |0KSET$.CIJFER$:A|
000017A0: 4E 54 57 C3 B2 32 3A 48 4F B2 48 4F AA 33 36 00 |NTW..2:HO.HO.36.|
000017B0: CE 1F 48 30 99 20 41 4E 54 57 24 3B 3A 8D 20 32 |..H0. ANTW$;:. 2|
000017C0: 30 37 30 30 3A 43 43 24 B2 41 4E 54 57 24 00 E7 |0700:CC$.ANTW$..|
000017D0: 1F 4D 30 8D 20 31 32 32 30 30 3A 8F 20 42 45 56 |.M0. 12200:. BEV|
000017E0: 45 53 54 49 47 45 4E 00 FE 1F 52 30 8B 20 A8 20 |ESTIGEN...R0. . |
000017F0: 43 B0 52 45 43 54 20 A7 20 31 32 33 30 30 00 21 |C.RECT . 12300.!|
00001800: 20 57 30 8B 20 C5 28 43 43 24 29 B3 33 20 B0 20 | W0. .(CC$).3 . |
00001810: C5 28 43 43 24 29 B1 32 30 20 A7 20 31 32 33 30 |.(CC$).20 . 1230|
00001820: 30 00 49 20 5C 30 41 41 4E 54 4B 4C 41 53 53 45 |0.I \0AANTKLASSE|
00001830: 4E B2 C5 28 43 43 24 29 3A 8D 20 31 30 33 30 30 |N..(CC$):. 10300|
00001840: 3A 8F 20 44 49 4D 4D 45 4E 00 4F 20 66 30 8E 00 |:. DIMMEN.O f0..|
00001850: 6A 20 70 30 8F 20 2A 2A 2A 2A 20 4E 4F 47 20 45 |j p0. **** NOG E|
00001860: 45 4E 53 20 3F 20 2A 2A 2A 2A 00 70 20 7A 30 3A |ENS ? ****.p z0:|
00001870: 00 90 20 84 30 56 52 41 41 47 24 B2 22 4E 4F 47 |.. .0VRAAG$."NOG|
00001880: 20 45 45 4E 53 20 3F 20 3C 4A 2F 4E 3E 20 4A 22 | EENS ? <J/N> J"|
00001890: 00 A3 20 AC 30 4E 4F 47 45 45 4E 53 B2 41 4B 4B |.. .0NOGEENS.AKK|
000018A0: 4F B0 44 00 A9 20 B6 30 3A 00 AF 20 CA 30 8E 00 |O.D.. .0:.. .0..|
000018B0: DA 20 D4 30 8F 20 2A 2A 2A 2A 20 43 4F 4E 54 52 |. .0. **** CONTR|
000018C0: 4F 4C 45 20 45 4E 20 42 45 53 54 41 4E 44 20 56 |OLE EN BESTAND V|
000018D0: 55 4C 4C 45 4E 20 2A 2A 2A 2A 00 E0 20 D9 30 3A |ULLEN ****.. .0:|
000018E0: 00 0A 21 DE 30 46 4F 55 54 B2 30 3A 43 43 24 B2 |..!.0FOUT.0:CC$.|
000018F0: 57 4E 47 24 3A 8B 20 C3 28 43 43 24 29 B2 30 20 |WNG$:. .(CC$).0 |
00001900: A7 20 46 4F 55 54 B2 31 3A 8E 00 38 21 E3 30 45 |. FOUT.1:..8!.0E|
00001910: B2 49 4E 53 54 52 28 43 43 24 2C 22 45 22 29 3A |.INSTR(CC$,"E"):|
00001920: 8B 20 45 B2 30 20 A7 20 45 B2 49 4E 53 54 52 28 |. E.0 . E.INSTR(|
00001930: 43 43 24 2C 22 45 22 29 00 63 21 E8 30 50 31 B2 |CC$,"E").c!.0P1.|
00001940: 49 4E 53 54 52 28 43 43 24 2C 4D 49 4E 24 29 3A |INSTR(CC$,MIN$):|
00001950: 50 32 B2 49 4E 53 54 52 28 43 43 24 2C 50 55 4E |P2.INSTR(CC$,PUN|
00001960: 54 24 29 00 8B 21 ED 30 8B 20 50 31 AC 50 32 B1 |T$)..!.0. P1.P2.|
00001970: 30 20 A7 20 8B 20 B6 28 50 31 AB 50 32 29 B2 31 |0 . . .(P1.P2).1|
00001980: 20 A7 20 46 4F 55 54 B2 31 3A 8E 00 A9 21 F2 30 | . FOUT.1:...!.0|
00001990: 8B 20 45 B2 4F 20 A7 20 8B 20 50 31 B1 31 20 A7 |. E.O . . P1.1 .|
000019A0: 20 46 4F 55 54 B2 31 3A 8E 00 CB 21 F7 30 8B 20 | FOUT.1:...!.0. |
000019B0: 50 31 B2 31 20 A7 20 8B 20 C3 28 43 43 24 29 B2 |P1.1 . . .(CC$).|
000019C0: 31 A7 20 46 4F 55 54 B2 31 3A 8E 00 E4 21 FC 30 |1. FOUT.1:...!.0|
000019D0: 41 41 4E 54 50 55 4E 54 B2 30 3A 41 41 4E 54 4D |AANTPUNT.0:AANTM|
000019E0: 49 4E B2 30 00 02 22 01 31 81 20 49 B2 31 20 A4 |IN.0..".1. I.1 .|
000019F0: 20 C3 28 43 43 24 29 20 A7 20 46 4F 55 54 B2 31 | .(CC$) . FOUT.1|
00001A00: 3A 8E 00 38 22 06 31 8B 20 49 4E 53 54 52 28 50 |:..8".1. INSTR(P|
00001A10: 55 4E 54 24 2C CA 28 43 43 24 2C 49 2C 31 29 29 |UNT$,.(CC$,I,1))|
00001A20: B1 30 20 A7 20 41 41 4E 54 50 55 4E 54 B2 41 41 |.0 . AANTPUNT.AA|
00001A30: 4E 54 50 55 4E 54 AA 31 00 6D 22 0B 31 8B 20 49 |NTPUNT.1.m".1. I|
00001A40: 4E 53 54 52 28 4D 49 4E 24 20 2C CA 28 43 43 24 |NSTR(MIN$ ,.(CC$|
00001A50: 2C 49 2C 31 29 29 B1 30 20 A7 20 41 41 4E 54 4D |,I,1)).0 . AANTM|
00001A60: 49 4E 20 B2 41 41 4E 54 4D 49 4E AA 31 00 75 22 |IN .AANTMIN.1.u"|
00001A70: 10 31 82 20 49 00 91 22 15 31 8B 20 41 41 4E 54 |.1. I..".1. AANT|
00001A80: 50 55 4E 54 B1 31 20 A7 20 46 4F 55 54 B2 31 3A |PUNT.1 . FOUT.1:|
00001A90: 8E 00 B5 22 1A 31 8B 20 41 41 4E 54 4D 49 4E 20 |...".1. AANTMIN |
00001AA0: B1 28 31 AB 28 45 B1 30 29 29 20 A7 20 46 4F 55 |.(1.(E.0)) . FOU|
00001AB0: 54 B2 31 3A 8E 00 C6 22 1F 31 57 52 49 54 45 20 |T.1:...".1WRITE |
00001AC0: 23 31 2C 43 43 24 00 D3 22 24 31 57 4E 47 24 B2 |#1,CC$.."$1WNG$.|
00001AD0: 43 43 24 00 D9 22 2E 31 8E 00 04 23 38 31 8F 20 |CC$..".1...#81. |
00001AE0: 2A 2A 2A 2A 20 42 45 53 54 41 4E 44 20 4F 50 45 |**** BESTAND OPE|
00001AF0: 4E 45 4E 20 56 4F 4F 52 20 4F 55 54 50 55 54 20 |NEN VOOR OUTPUT |
00001B00: 2A 2A 2A 2A 00 24 23 60 31 56 45 52 B2 33 3A 8D |****.$#`1VER.3:.|
00001B10: 20 32 30 36 30 30 3A 8F 20 4E 41 41 4D 20 56 52 | 20600:. NAAM VR|
00001B20: 41 47 45 4E 00 37 23 65 31 8B 20 4E 41 41 4D 24 |AGEN.7#e1. NAAM$|
00001B30: B2 22 22 20 A7 20 8E 00 52 23 6A 31 9F 20 4E 41 |."" . ..R#j1. NA|
00001B40: 41 4D 24 20 81 20 4F 55 54 50 55 54 20 41 53 20 |AM$ . OUTPUT AS |
00001B50: 23 31 00 6B 23 74 31 56 45 B2 56 45 52 3A 48 4F |#1.k#t1VE.VER:HO|
00001B60: B2 48 4D B3 32 3A 8D 20 31 31 30 00 8D 23 7E 31 |.HM.2:. 110..#~1|
00001B70: 99 20 22 47 45 45 46 20 30 30 30 30 30 20 4F 4D |. "GEEF 00000 OM|
00001B80: 20 54 45 20 53 54 4F 50 50 45 4E 2E 22 00 AD 23 | TE STOPPEN."..#|
00001B90: 92 31 46 4F 55 54 B2 34 3A 8D 20 32 30 32 30 30 |.1FOUT.4:. 20200|
00001BA0: 3A 52 45 53 55 4D 45 20 31 32 36 38 30 00 D8 23 |:RESUME 12680..#|
00001BB0: 9C 31 8F 20 2A 2A 2A 2A 20 42 45 53 54 41 4E 44 |.1. **** BESTAND|
00001BC0: 20 4F 50 45 4E 45 4E 20 56 4F 4F 52 20 49 4E 50 | OPENEN VOOR INP|
00001BD0: 55 54 20 2A 2A 2A 2A 2A 00 DE 23 A6 31 3A 00 F1 |UT *****..#.1:..|
00001BE0: 23 B0 31 91 20 45 52 52 B0 20 89 20 31 32 37 39 |#.1. ERR. . 1279|
00001BF0: 30 00 1E 24 BA 31 56 52 41 41 47 24 B2 22 55 49 |0..$.1VRAAG$."UI|
00001C00: 54 20 57 45 4C 4B 20 42 45 53 54 41 4E 44 20 57 |T WELK BESTAND W|
00001C10: 49 4C 54 20 55 20 4C 45 5A 45 4E 20 3F 22 00 3F |ILT U LEZEN ?".?|
00001C20: 24 C4 31 56 45 52 B2 31 30 3A 8D 20 32 30 36 30 |$.1VER.10:. 2060|
00001C30: 30 3A 8F 20 4E 41 41 4D 20 56 52 41 47 45 4E 00 |0:. NAAM VRAGEN.|
00001C40: 52 24 C9 31 8B 20 4E 41 41 4D 24 B2 22 22 20 A7 |R$.1. NAAM$."" .|
00001C50: 20 8E 00 68 24 CE 31 9F 20 4E 41 41 4D 24 20 81 | ..h$.1. NAAM$ .|
00001C60: 20 85 20 41 53 20 23 31 00 81 24 D8 31 56 45 B2 | . AS #1..$.1VE.|
00001C70: 56 45 52 3A 48 4F B2 48 4D B3 32 3A 8D 20 31 31 |VER:HO.HM.2:. 11|
00001C80: 30 00 96 24 E2 31 99 20 22 45 56 45 4E 20 47 45 |0..$.1. "EVEN GE|
00001C90: 44 55 4C 44 22 3B 00 9C 24 EC 31 8E 00 C5 24 F6 |DULD";..$.1...$.|
00001CA0: 31 46 4F 55 54 B2 32 3A 8D 20 32 30 32 30 30 3A |1FOUT.2:. 20200:|
00001CB0: 4E 41 41 4D 24 B2 22 22 3A 52 45 53 55 4D 45 20 |NAAM$."":RESUME |
00001CC0: 31 32 37 38 30 00 E9 24 00 32 8F 20 2A 2A 2A 2A |12780..$.2. ****|
00001CD0: 20 4F 56 45 52 5A 49 43 48 54 20 42 45 53 54 41 | OVERZICHT BESTA|
00001CE0: 4E 44 45 4E 20 2A 2A 2A 2A 00 EF 24 0A 32 3A 00 |NDEN ****..$.2:.|
00001CF0: 02 25 14 32 91 20 45 52 52 B0 20 89 20 31 32 38 |.%.2. ERR. . 128|
00001D00: 39 30 00 37 25 1E 32 56 45 B2 33 3A 48 4F B2 31 |90.7%.2VE.3:HO.1|
00001D10: 3A 8D 31 31 30 3A 99 22 CF 56 45 52 5A 49 43 48 |:.110:.".VERZICH|
00001D20: 54 20 57 41 41 52 4E 45 4D 49 4E 47 53 42 45 53 |T WAARNEMINGSBES|
00001D30: 54 41 4E 44 45 4E 22 00 49 25 28 32 56 45 B2 56 |TANDEN".I%(2VE.V|
00001D40: 45 AA 32 3A 8D 20 31 31 30 00 5B 25 32 32 46 49 |E.2:. 110.[%22FI|
00001D50: 4C 45 53 20 22 2A 2E 48 49 53 22 00 7B 25 3C 32 |LES "*.HIS".{%<2|
00001D60: 8D 20 32 30 30 30 30 3A 8F 20 54 4F 45 54 53 20 |. 20000:. TOETS |
00001D70: 56 4F 4F 52 20 47 45 5A 49 45 4E 00 81 25 46 32 |VOOR GEZIEN..%F2|
00001D80: 3A 00 87 25 50 32 8E 00 A7 25 5A 32 46 4F 55 54 |:..%P2...%Z2FOUT|
00001D90: B2 33 3A 8D 20 32 30 32 30 30 3A 52 45 53 55 4D |.3:. 20200:RESUM|
00001DA0: 45 20 31 32 38 38 30 00 CB 25 64 32 8F 20 2A 2A |E 12880..%d2. **|
00001DB0: 2A 2A 20 42 45 53 54 41 4E 44 20 56 45 52 57 49 |** BESTAND VERWI|
00001DC0: 4A 44 45 52 45 4E 20 2A 2A 2A 2A 00 D1 25 6E 32 |JDEREN ****..%n2|
00001DD0: 3A 00 E4 25 78 32 91 20 45 52 52 B0 20 89 20 31 |:..%x2. ERR. . 1|
00001DE0: 32 39 39 30 00 0C 26 82 32 56 52 41 41 47 24 B2 |2990..&.2VRAAG$.|
00001DF0: 22 57 45 4C 4B 20 42 45 53 54 41 4E 44 20 56 45 |"WELK BESTAND VE|
00001E00: 52 57 49 4A 44 45 52 45 4E 20 3F 22 00 2D 26 8C |RWIJDEREN ?".-&.|
00001E10: 32 56 45 52 B2 31 30 3A 8D 20 32 30 36 30 30 3A |2VER.10:. 20600:|
00001E20: 8F 20 4E 41 41 4D 20 56 52 41 47 45 4E 00 3C 26 |. NAAM VRAGEN.<&|
00001E30: 96 32 4B 49 4C 4C 20 4E 41 41 4D 24 00 54 26 9B |.2KILL NAAM$.T&.|
00001E40: 32 8D 20 32 30 31 30 30 3A 8F 20 48 55 49 53 53 |2. 20100:. HUISS|
00001E50: 54 49 4A 4C 00 76 26 A0 32 8D 20 31 32 38 30 30 |TIJL.v&.2. 12800|
00001E60: 3A 8F 20 4F 56 45 52 5A 49 43 48 54 20 42 45 53 |:. OVERZICHT BES|
00001E70: 54 41 4E 44 45 4E 00 7C 26 AA 32 3A 00 82 26 B4 |TANDEN.|&.2:..&.|
00001E80: 32 8E 00 A2 26 BE 32 46 4F 55 54 B2 33 3A 8D 20 |2...&.2FOUT.3:. |
00001E90: 32 30 32 30 30 3A 52 45 53 55 4D 45 20 31 32 39 |20200:RESUME 129|
00001EA0: 38 30 00 C0 26 C8 32 8F 20 2A 2A 2A 2A 20 48 49 |80..&.2. **** HI|
00001EB0: 53 54 4F 20 54 45 4B 45 4E 45 4E 20 2A 2A 2A 2A |STO TEKENEN ****|
00001EC0: 00 C6 26 D2 32 3A 00 D2 26 DC 32 8D 20 32 30 31 |..&.2:..&.2. 201|
00001ED0: 30 30 00 EE 26 2C 33 8F 20 56 45 52 54 49 43 41 |00..&,3. VERTICA|
00001EE0: 4C 45 20 41 53 20 56 45 52 44 45 4C 45 4E 00 F4 |LE AS VERDELEN..|
00001EF0: 26 36 33 3A 00 0D 27 40 33 57 4E 50 53 54 41 50 |&63:..'@3WNPSTAP|
00001F00: B2 4D 41 58 B8 51 AD 28 56 4D AB 36 29 00 2C 27 |.MAX.Q.(VM.6).,'|
00001F10: 4A 33 41 46 52 B2 AB 28 57 4E 50 53 54 41 50 B3 |J3AFR..(WNPSTAP.|
00001F20: B1 B5 28 57 4E 50 53 54 41 50 29 29 00 47 27 54 |..(WNPSTAP)).G'T|
00001F30: 33 57 4E 50 53 54 41 50 B2 B5 28 57 4E 50 53 54 |3WNPSTAP..(WNPST|
00001F40: 41 50 29 AA 41 46 52 00 51 27 7C 33 8D 20 33 31 |AP).AFR.Q'|3. 31|
00001F50: 30 00 64 27 86 33 53 43 48 41 41 4C 24 28 49 29 |0.d'.3SCHAAL$(I)|
00001F60: B2 53 52 24 00 6C 27 90 33 82 20 49 00 72 27 9A |.SR$.l'.3. I.r'.|
00001F70: 33 3A 00 8D 27 F4 33 8F 20 56 45 52 54 49 43 41 |3:..'.3. VERTICA|
00001F80: 4C 45 20 41 53 20 54 45 4B 45 4E 45 4E 00 93 27 |LE AS TEKENEN..'|
00001F90: FE 33 3A 00 A4 27 08 34 56 45 52 B2 43 4F 4D 52 |.3:..'.4VER.COMR|
00001FA0: 45 47 45 4C 00 BA 27 12 34 81 20 49 B2 56 4D AB |EGEL..'.4. I.VM.|
00001FB0: 36 20 A4 20 30 20 A9 20 AB 31 00 C7 27 1C 34 56 |6 . 0 . .1..'.4V|
00001FC0: 45 B2 56 45 52 AB 49 00 F9 27 26 34 8B 20 53 43 |E.VER.I..'&4. SC|
00001FD0: 48 41 41 4C 24 28 49 29 B2 22 22 20 A7 20 53 43 |HAAL$(I)."" . SC|
00001FE0: 48 41 41 4C 24 28 49 29 B2 53 50 41 43 45 24 28 |HAAL$(I).SPACE$(|
00001FF0: 4C 4D 41 52 47 45 AB 31 29 00 1B 28 2B 34 48 4F |LMARGE.1)..(+4HO|
00002000: B2 4C 4D 41 52 47 45 AB C3 28 53 43 48 41 41 4C |.LMARGE..(SCHAAL|
00002010: 24 28 49 29 29 3A 8D 20 31 31 30 00 30 28 30 34 |$(I)):. 110.0(04|
00002020: 99 20 53 43 48 41 41 4C 24 28 49 29 3B 22 3C 22 |. SCHAAL$(I);"<"|
00002030: 00 38 28 3A 34 82 20 49 00 55 28 58 34 8F 20 48 |.8(:4. I.U(X4. H|
00002040: 4F 52 49 5A 4F 4E 54 41 4C 45 20 41 53 20 54 45 |ORIZONTALE AS TE|
00002050: 4B 45 4E 45 4E 00 5B 28 62 34 3A 00 78 28 6C 34 |KENEN.[(b4:.x(l4|
00002060: 56 45 B2 56 45 52 3A 48 4F B2 4C 4D 41 52 47 45 |VE.VER:HO.LMARGE|
00002070: AA 31 3A 8D 20 31 31 30 00 90 28 76 34 81 20 49 |.1:. 110..(v4. I|
00002080: B2 31 20 A4 20 41 41 4E 54 4B 4C 41 53 53 45 4E |.1 . AANTKLASSEN|
00002090: 00 AF 28 80 34 99 20 53 54 52 49 4E 47 24 28 53 |..(.4. STRING$(S|
000020A0: 54 41 41 46 42 52 2C C6 28 22 3F 22 29 29 3B 00 |TAAFBR,.("?"));.|
000020B0: B7 28 8A 34 82 20 49 00 D9 28 94 34 56 45 B2 56 |.(.4. I..(.4VE.V|
000020C0: 45 AA 31 3A 48 4F B2 48 4F AA 53 54 41 41 46 42 |E.1:HO.HO.STAAFB|
000020D0: 52 B3 32 3A 8D 20 31 31 30 00 F1 28 9E 34 81 20 |R.2:. 110..(.4. |
000020E0: 49 B2 31 20 A4 20 41 41 4E 54 4B 4C 41 53 53 45 |I.1 . AANTKLASSE|
000020F0: 4E 00 00 29 A8 34 53 52 B2 49 3A 8D 20 33 31 30 |N..).4SR.I:. 310|
00002100: 00 11 29 B2 34 53 52 24 B2 C9 28 53 52 24 2C 31 |..).4SR$..(SR$,1|
00002110: 29 00 1C 29 BC 34 99 20 53 52 24 3B 00 34 29 C6 |)..).4. SR$;.4).|
00002120: 34 48 4F B2 48 4F AA 53 54 41 41 46 42 52 3A 8D |4HO.HO.STAAFBR:.|
00002130: 20 31 31 30 00 3C 29 D0 34 82 20 49 00 51 29 20 | 110.<).4. I.Q) |
00002140: 35 8F 20 53 54 41 56 45 4E 20 54 45 4B 45 4E 45 |5. STAVEN TEKENE|
00002150: 4E 00 57 29 2A 35 3A 00 6F 29 34 35 81 20 49 B2 |N.W)*5:.o)45. I.|
00002160: 31 20 A4 20 41 41 4E 54 4B 4C 41 53 53 45 4E 00 |1 . AANTKLASSEN.|
00002170: 88 29 3E 35 41 41 4E 54 56 53 B2 B8 51 28 49 29 |.)>5AANTVS..Q(I)|
00002180: AD 57 4E 50 53 54 41 50 00 A0 29 48 35 41 41 4E |.WNPSTAP..)H5AAN|
00002190: 54 56 53 B2 B5 28 41 41 4E 54 56 53 AA 2E 35 29 |TVS..(AANTVS..5)|
000021A0: 00 B9 29 52 35 56 45 52 B2 56 4D AB 32 3A 48 B0 |..)R5VER.VM.2:H.|
000021B0: B2 4C 4D 41 52 47 45 AA 31 00 D1 29 5C 35 48 4F |.LMARGE.1..)\5HO|
000021C0: B2 48 B0 AA 28 49 AB 31 29 AC 53 54 41 41 46 42 |.H..(I.1).STAAFB|
000021D0: 52 00 E8 29 66 35 8B 20 41 41 4E 54 56 53 B2 30 |R..)f5. AANTVS.0|
000021E0: 20 A7 20 31 33 37 31 30 00 FB 29 70 35 81 20 4A | . 13710..)p5. J|
000021F0: B2 31 20 A4 20 41 41 4E 54 56 53 00 21 2A 7A 35 |.1 . AANTVS.!*z5|
00002200: 56 45 B2 56 45 52 AB 4A 3A 8D 20 31 31 30 3A 99 |VE.VER.J:. 110:.|
00002210: 20 53 54 41 41 46 24 28 49 20 4D 4F 44 20 32 29 | STAAF$(I MOD 2)|
00002220: 3B 00 29 2A 84 35 82 20 4A 00 31 2A 8E 35 82 20 |;.)*.5. J.1*.5. |
00002230: 49 00 37 2A 98 35 3A 00 45 2A E8 35 8F 20 4C 45 |I.7*.5:.E*.5. LE|
00002240: 47 45 4E 44 41 00 4B 2A F2 35 3A 00 62 2A FC 35 |GENDA.K*.5:.b*.5|
00002250: 56 45 52 B2 31 3A 48 B0 B2 48 4D AB 52 4D 41 52 |VER.1:H..HM.RMAR|
00002260: 47 45 00 79 2A 1A 36 56 45 B2 56 45 52 3A 48 4F |GE.y*.6VE.VER:HO|
00002270: B2 48 B0 3A 8D 20 31 31 30 00 8D 2A 24 36 99 20 |.H.:. 110..*$6. |
00002280: 22 4E 52 3C 4B 4C 41 53 4D 49 44 22 3B 00 9F 2A |"NR<KLASMID";..*|
00002290: 2E 36 56 45 B2 56 45 AA 31 3A 8D 20 31 31 30 00 |.6VE.VE.1:. 110.|
000022A0: BD 2A 38 36 99 20 53 54 52 49 4E 47 24 28 52 4D |.*86. STRING$(RM|
000022B0: 41 52 47 45 2C C6 28 22 3D 22 29 29 3B 00 D5 2A |ARGE,.("="));..*|
000022C0: 42 36 81 20 49 B2 31 20 A4 20 41 41 4E 54 4B 4C |B6. I.1 . AANTKL|
000022D0: 41 53 53 45 4E 00 EE 2A 4C 36 43 54 B2 32 3A 43 |ASSEN..*L6CT.2:C|
000022E0: 4E B2 30 3A 53 52 B2 49 3A 8D 20 33 31 30 00 06 |N.0:SR.I:. 310..|
000022F0: 2B 56 36 56 45 B2 56 45 AA 31 3A 48 4F B2 48 B0 |+V6VE.VE.1:HO.H.|
00002300: 3A 8D 20 31 31 30 00 11 2B 60 36 99 20 53 52 24 |:. 110..+`6. SR$|
00002310: 3B 00 33 2B 6A 36 43 54 B2 37 3A 43 4E B2 31 3A |;.3+j6CT.7:CN.1:|
00002320: 53 52 B2 4B 4C 4D 49 44 28 49 29 3A 8D 20 32 31 |SR.KLMID(I):. 21|
00002330: 30 30 30 00 45 2B 74 36 48 4F B2 48 B0 AA 33 3A |000.E+t6HO.H..3:|
00002340: 8D 20 31 31 30 00 7A 2B 79 36 4C 53 52 B2 C3 28 |. 110.z+y6LSR..(|
00002350: 53 52 24 29 3A 8B 20 4C 53 52 B3 43 54 20 A7 20 |SR$):. LSR.CT . |
00002360: 53 52 24 B2 53 54 52 49 4E 47 24 28 43 54 AB 4C |SR$.STRING$(CT.L|
00002370: 53 52 2C 33 32 29 AA 53 52 24 00 85 2B 7E 36 99 |SR,32).SR$..+~6.|
00002380: 20 53 52 24 3B 00 8D 2B 88 36 82 20 49 00 AD 2B | SR$;..+.6. I..+|
00002390: 92 36 8D 20 32 30 30 30 30 3A 8F 20 54 4F 45 54 |.6. 20000:. TOET|
000023A0: 53 20 56 4F 4F 52 20 47 45 5A 49 45 4E 00 B3 2B |S VOOR GEZIEN..+|
000023B0: A6 36 8E 00 C4 2B 98 3A 8F 20 2A 2A 20 4D 45 4E |.6...+.:. ** MEN|
000023C0: 55 20 2A 2A 00 D7 2B A2 3A 8F 20 42 45 50 41 41 |U **..+.:. BEPAA|
000023D0: 4C 20 4D 41 52 47 45 00 E2 2B AC 3A 88 20 4D 42 |L MARGE..+.:. MB|
000023E0: B2 30 00 F0 2B B6 3A 81 20 49 B2 30 20 A4 20 35 |.0..+.:. I.0 . 5|
000023F0: 00 03 2C C0 3A 88 20 4D B2 C3 28 4D 24 28 49 29 |..,.:. M..(M$(I)|
00002400: 29 AA 33 00 17 2C CA 3A 8B 20 4D B1 4D 42 20 A7 |).3..,.:. M.MB .|
00002410: 20 88 20 4D 42 B2 4D 00 1F 2C D4 3A 82 20 49 00 | . MB.M..,.:. I.|
00002420: 3A 2C E8 3A 88 20 4D 41 52 47 45 B2 B5 28 28 48 |:,.:. MARGE..((H|
00002430: 4D AB 4D 42 29 AD 32 AA 31 29 00 40 2C FB 3A 3A |M.MB).2.1).@,.::|
00002440: 00 54 2C FC 3A 8F 20 44 52 55 4B 20 54 49 54 45 |.T,.:. DRUK TITE|
00002450: 4C 20 41 46 00 5E 2C 06 3B 8D 20 31 30 30 00 6F |L AF.^,.;. 100.o|
00002460: 2C 10 3B 88 20 48 4F B2 4D 41 52 47 45 AB 31 00 |,.;. HO.MARGE.1.|
00002470: 80 2C 1A 3B 88 20 56 45 B2 31 3A 8D 20 31 31 30 |.,.;. VE.1:. 110|
00002480: 00 96 2C 24 3B 99 22 23 20 22 3B 4D 24 28 30 29 |..,$;."# ";M$(0)|
00002490: 3B 22 20 23 22 3B 00 9C 2C 5F 3B 3A 00 B8 2C 60 |;" #";..,_;:..,`|
000024A0: 3B 8F 20 44 52 55 4B 20 41 4C 54 45 52 4E 41 54 |;. DRUK ALTERNAT|
000024B0: 49 45 56 45 4E 20 41 46 00 D7 2C 6A 3B 88 20 4D |IEVEN AF..,j;. M|
000024C0: B2 31 3A 88 20 48 4F B2 4D 41 52 47 45 3A 88 20 |.1:. HO.MARGE:. |
000024D0: 56 45 B2 56 45 AA 33 00 EC 2C 74 3B 57 48 49 4C |VE.VE.3..,t;WHIL|
000024E0: 45 20 4D 24 28 4D 29 B3 B1 22 2E 22 00 00 2D 7E |E M$(M).."."..-~|
000024F0: 3B 88 20 56 45 B2 56 45 AA 32 3A 8D 20 31 31 30 |;. VE.VE.2:. 110|
00002500: 00 19 2D 88 3B 99 20 C7 28 34 38 AA 4D 29 3B 22 |..-.;. .(48.M);"|
00002510: 20 22 3B 4D 24 28 4D 29 3B 00 25 2D 92 3B 88 20 | ";M$(M);.%-.;. |
00002520: 4D B2 4D AA 31 00 2C 2D 9C 3B 57 80 00 32 2D C3 |M.M.1.,-.;W..2-.|
00002530: 3B 3A 00 53 2D CE 3B 88 20 48 4F B2 4D 41 52 47 |;:.S-.;. HO.MARG|
00002540: 45 AB 31 3A 88 20 56 45 B2 56 4D AB 31 3A 8D 20 |E.1:. VE.VM.1:. |
00002550: 31 31 30 00 6B 2D D8 3B 99 22 4B 49 45 53 20 45 |110.k-.;."KIES E|
00002560: 45 4E 20 43 49 4A 46 45 52 22 3B 00 7F 2D E2 3B |EN CIJFER";..-.;|
00002570: 88 20 49 4E B2 31 3A 88 20 49 4E 24 B2 22 22 00 |. IN.1:. IN$."".|
00002580: 94 2D EC 3B 57 48 49 4C 45 20 49 4E 24 B3 B1 C7 |.-.;WHILE IN$...|
00002590: 28 31 33 29 00 9E 2D F6 3B 88 20 41 B2 30 00 B4 |(13)..-.;. A.0..|
000025A0: 2D 00 3C 57 48 49 4C 45 20 41 B3 31 20 B0 20 41 |-.<WHILE A.1 . A|
000025B0: B1 4D AB 31 00 C4 2D 0A 3C 88 20 56 45 B2 49 4E |.M.1..-.<. VE.IN|
000025C0: AC 32 AA 34 00 D4 2D 14 3C 8D 20 31 31 30 3A 99 |.2.4..-.<. 110:.|
000025D0: 22 2A 22 3B 00 E4 2D 3C 3C 8D 20 31 31 30 3A 99 |"*";..-<<. 110:.|
000025E0: 22 20 22 3B 00 EB 2D 46 3C 57 80 00 FF 2D 50 3C |" ";..-F<W...-P<|
000025F0: 88 20 56 45 B2 56 4D AB 31 3A 8D 20 31 31 30 00 |. VE.VM.1:. 110.|
00002600: 19 2E 5A 3C 99 22 44 52 55 4B 20 49 4E 56 4F 45 |..Z<."DRUK INVOE|
00002610: 52 2D 54 4F 45 54 53 22 3B 00 2B 2E 64 3C 88 20 |R-TOETS";.+.d<. |
00002620: 56 45 B2 56 4D 3A 8D 20 31 31 30 00 43 2E 6E 3C |VE.VM:. 110.C.n<|
00002630: 99 22 4F 46 20 4B 49 45 53 20 4F 50 4E 49 45 55 |."OF KIES OPNIEU|
00002640: 57 22 3B 00 4A 2E 78 3C 57 80 00 50 2E 82 3C 8E |W";.J.x<W..P..<.|
00002650: 00 56 2E 7F 3E 3A 00 78 2E 20 4E 8F 20 2A 2A 2A |.V..>:.x. N. ***|
00002660: 2A 20 54 4F 45 54 53 20 56 4F 4F 52 20 47 45 5A |* TOETS VOOR GEZ|
00002670: 49 45 4E 20 2A 2A 2A 2A 00 7E 2E 2A 4E 3A 00 87 |IEN ****.~.*N:..|
00002680: 2E 34 4E 42 45 45 50 00 9C 2E 3E 4E 56 45 B2 56 |.4NBEEP...>NVE.V|
00002690: 4D 3A 48 4F B2 31 3A 8D 20 31 31 30 00 A2 2E 8E |M:HO.1:. 110....|
000026A0: 4E 3A 00 B7 2E 98 4E 8D 20 31 30 30 3A 4C 4B B2 |N:....N. 100:LK.|
000026B0: C3 28 4B 4F 50 24 29 00 D3 2E A2 4E 48 4F B2 48 |.(KOP$)....NHO.H|
000026C0: 4D B3 32 AB 4C 4B B3 32 3A 56 45 B2 31 3A 8D 20 |M.2.LK.2:VE.1:. |
000026D0: 31 31 30 00 DF 2E AC 4E 99 20 4B 4F 50 24 3B 00 |110....N. KOP$;.|
000026E0: F6 2E B6 4E 56 45 B2 56 45 AA 31 3A 48 4F B2 31 |...NVE.VE.1:HO.1|
000026F0: 3A 8D 20 31 31 30 00 FC 2E DE 4E 8E 00 1A 2F E8 |:. 110....N.../.|
00002700: 4E 8F 20 2A 2A 2A 2A 20 46 4F 55 54 4D 45 4C 44 |N. **** FOUTMELD|
00002710: 49 4E 47 45 4E 20 2A 2A 2A 2A 00 20 2F F2 4E 3A |INGEN ****. /.N:|
00002720: 00 4C 2F FC 4E 8B 20 46 4F 55 54 B2 31 20 A7 20 |.L/.N. FOUT.1 . |
00002730: 46 4F 55 54 24 B2 22 47 45 45 4E 20 46 49 4C 45 |FOUT$."GEEN FILE|
00002740: 53 20 4F 50 20 53 43 48 49 4A 46 22 00 79 2F 01 |S OP SCHIJF".y/.|
00002750: 4F 8B 20 46 4F 55 54 B2 32 20 A7 20 46 4F 55 54 |O. FOUT.2 . FOUT|
00002760: 24 B2 4E 41 41 4D 24 AA 22 20 4E 49 45 54 20 4F |$.NAAM$." NIET O|
00002770: 50 20 53 43 48 49 4A 46 22 00 A5 2F 06 4F 8B 20 |P SCHIJF"../.O. |
00002780: 46 4F 55 54 B2 33 20 A7 20 46 4F 55 54 24 B2 22 |FOUT.3 . FOUT$."|
00002790: 47 45 45 4E 20 53 43 48 49 4A 46 20 49 4E 20 44 |GEEN SCHIJF IN D|
000027A0: 52 49 56 45 22 00 D1 2F 10 4F 8B 20 46 4F 55 54 |RIVE"../.O. FOUT|
000027B0: B2 34 20 A7 20 46 4F 55 54 24 B2 4E 41 41 4D 24 |.4 . FOUT$.NAAM$|
000027C0: AA 22 20 4E 49 45 54 20 47 45 56 4F 4E 44 45 4E |." NIET GEVONDEN|
000027D0: 22 00 16 30 15 4F 8B 20 46 4F 55 54 B2 35 20 A7 |"..0.O. FOUT.5 .|
000027E0: 20 46 4F 55 54 24 B2 22 54 45 20 57 45 49 4E 49 | FOUT$."TE WEINI|
000027F0: 47 20 57 41 41 52 4E 45 4D 49 4E 47 45 4E 2E 20 |G WAARNEMINGEN. |
00002800: 47 45 45 4E 20 42 45 53 54 41 4E 44 20 47 45 4D |GEEN BESTAND GEM|
00002810: 41 41 4B 54 2E 22 00 5D 30 1A 4F 8B 20 46 4F 55 |AAKT.".]0.O. FOU|
00002820: 54 B2 36 20 A7 20 46 4F 55 54 24 B2 22 41 4C 4C |T.6 . FOUT$."ALL|
00002830: 45 22 AA C4 28 41 41 4E 54 57 41 41 52 4E 29 AA |E"..(AANTWAARN).|
00002840: 22 20 57 41 41 52 4E 45 4D 49 4E 47 45 4E 22 AA |" WAARNEMINGEN".|
00002850: 22 20 5A 49 4A 4E 20 47 45 4C 49 4A 4B 00 7D 30 |" ZIJN GELIJK.}0|
00002860: 2E 4F 8D 20 32 30 30 30 30 3A 8F 20 54 4F 45 54 |.O. 20000:. TOET|
00002870: 53 20 56 4F 4F 52 20 47 45 5A 49 45 4E 00 88 30 |S VOOR GEZIEN..0|
00002880: 33 4F 46 4F 55 54 B2 30 00 8E 30 38 4F A0 00 94 |3OFOUT.0..08O...|
00002890: 30 3D 4F 3A 00 9A 30 42 4F 8E 00 C0 30 4C 4F 8F |0=O:..0BO...0LO.|
000028A0: 20 2A 2A 2A 2A 20 53 50 41 54 49 45 53 20 55 49 | **** SPATIES UI|
000028B0: 54 20 43 43 24 20 48 41 4C 45 4E 20 2A 2A 2A 2A |T CC$ HALEN ****|
000028C0: 00 C6 30 56 4F 3A 00 DC 30 60 4F 4C 57 B2 C3 28 |..0VO:..0`OLW..(|
000028D0: 43 43 24 29 3A 49 B2 31 3A 53 B2 30 00 EE 30 6A |CC$):I.1:S.0..0j|
000028E0: 4F 57 48 49 4C 45 20 49 AA 53 B3 B2 4C 57 00 2A |OWHILE I.S..LW.*|
000028F0: 31 74 4F 8B 20 CA 28 43 43 24 2C 49 2C 31 29 B2 |1tO. .(CC$,I,1).|
00002900: 22 20 22 20 A7 20 CA 28 43 43 24 2C 49 29 B2 CA |" " . .(CC$,I)..|
00002910: 28 43 43 24 2C 49 AA 31 29 3A 53 B2 53 AA 31 20 |(CC$,I.1):S.S.1 |
00002920: 45 4C 53 45 20 49 B2 49 AA 31 00 31 31 88 4F 57 |ELSE I.I.1.11.OW|
00002930: 80 00 45 31 92 4F 43 43 24 B2 C8 28 43 43 24 2C |..E1.OCC$..(CC$,|
00002940: 4C 57 AB 53 29 00 4B 31 9C 4F 3A 00 51 31 A6 4F |LW.S).K1.O:.Q1.O|
00002950: 8E 00 6F 31 B0 4F 8F 20 2A 2A 2A 2A 20 49 4E 49 |..o1.O. **** INI|
00002960: 54 20 43 4F 4D 52 45 47 45 4C 20 2A 2A 2A 2A 00 |T COMREGEL ****.|
00002970: 75 31 BA 4F 3A 00 90 31 C4 4F 56 45 B2 43 4F 4D |u1.O:..1.OVE.COM|
00002980: 52 45 47 45 4C 3A 48 4F B2 31 3A 8D 20 31 31 30 |REGEL:HO.1:. 110|
00002990: 00 A8 31 CE 4F 99 20 53 50 41 43 45 24 28 48 4D |..1.O. SPACE$(HM|
000029A0: 29 3B 3A 8D 20 31 31 30 00 AE 31 D8 4F 3A 00 B4 |);:. 110..1.O:..|
000029B0: 31 0A 50 8E 00 D0 31 14 50 8F 20 2A 2A 2A 2A 20 |1.P...1.P. **** |
000029C0: 4F 4B 20 3F 20 4A 41 2F 4E 45 45 20 2A 2A 2A 2A |OK ? JA/NEE ****|
000029D0: 00 D6 31 1E 50 3A 00 F2 31 28 50 8D 20 32 30 34 |..1.P:..1(P. 204|
000029E0: 30 30 3A 8F 20 49 4E 49 54 20 43 4F 4D 52 45 47 |00:. INIT COMREG|
000029F0: 45 4C 00 00 32 32 50 99 20 56 52 41 41 47 24 3B |EL..22P. VRAAG$;|
00002A00: 00 1C 32 3C 50 48 4F B2 48 4F AA C3 28 56 52 41 |..2<PHO.HO..(VRA|
00002A10: 41 47 24 29 AB 31 3A 8D 20 31 31 30 00 22 32 46 |AG$).1:. 110."2F|
00002A20: 50 3A 00 55 32 50 50 41 4E 54 57 24 B2 C9 28 56 |P:.U2PPANTW$..(V|
00002A30: 52 41 41 47 24 2C 31 29 3A 41 4E 54 57 C3 B2 31 |RAAG$,1):ANTW..1|
00002A40: 3A 4B 53 45 54 24 B2 22 4E 4E 4A 4A 22 3A 8D 20 |:KSET$."NNJJ":. |
00002A50: 32 30 37 30 30 00 77 32 5A 50 41 4B 4B 4F B0 44 |20700.w2ZPAKKO.D|
00002A60: B2 28 49 4E 53 54 52 28 4B 53 45 54 24 2C 41 4E |.(INSTR(KSET$,AN|
00002A70: 54 57 24 29 B1 32 29 00 7D 32 64 50 3A 00 83 32 |TW$).2).}2dP:..2|
00002A80: 6E 50 8E 00 9F 32 78 50 8F 20 2A 2A 2A 2A 20 4E |nP...2xP. **** N|
00002A90: 41 41 4D 20 56 52 41 47 45 4E 20 2A 2A 2A 2A 00 |AAM VRAGEN ****.|
00002AA0: A5 32 82 50 3A 00 B4 32 87 50 56 56 24 B2 56 52 |.2.P:..2.PVV$.VR|
00002AB0: 41 41 47 24 00 CA 32 8C 50 56 45 B2 56 45 52 3A |AAG$..2.PVE.VER:|
00002AC0: 48 4F B2 31 3A 8D 20 31 31 30 00 E2 32 91 50 99 |HO.1:. 110..2.P.|
00002AD0: 20 53 50 41 43 45 24 28 48 4D 29 3B 3A 8D 20 31 | SPACE$(HM);:. 1|
00002AE0: 31 30 00 ED 32 96 50 99 20 56 56 24 3B 00 20 33 |10..2.P. VV$;. 3|
00002AF0: 9B 50 56 45 B2 56 45 AA 31 3A 8D 20 31 31 30 3A |.PVE.VE.1:. 110:|
00002B00: 99 20 53 50 41 43 45 24 28 48 4D 29 3A 8D 20 31 |. SPACE$(HM):. 1|
00002B10: 31 30 3A 99 20 22 4E 41 41 4D 20 3E 3E 20 22 3B |10:. "NAAM >> ";|
00002B20: 00 32 33 A0 50 48 4F B2 48 4F AA 39 3A 8D 20 31 |.23.PHO.HO.9:. 1|
00002B30: 31 30 00 63 33 A5 50 41 4E 54 57 24 B2 22 22 3A |10.c3.PANTW$."":|
00002B40: 41 4E 54 57 C3 B2 38 3A 4B 53 45 54 24 B2 41 4C |ANTW..8:KSET$.AL|
00002B50: 46 41 24 AA 43 49 4A 46 45 52 24 AA 53 50 41 54 |FA$.CIJFER$.SPAT|
00002B60: 49 45 24 00 78 33 AA 50 8D 20 32 30 37 30 30 3A |IE$.x3.P. 20700:|
00002B70: 8F 20 49 4E 56 4F 45 52 00 9C 33 AF 50 43 43 24 |. INVOER..3.PCC$|
00002B80: B2 41 4E 54 57 24 3A 8B 20 43 43 24 B2 22 22 20 |.ANTW$:. CC$."" |
00002B90: A7 20 4E 41 41 4D 24 B2 22 22 3A 8E 00 B5 33 B4 |. NAAM$."":...3.|
00002BA0: 50 8D 20 31 32 32 30 30 3A 8F 20 42 45 56 45 53 |P. 12200:. BEVES|
00002BB0: 54 49 47 45 4E 00 CC 33 B9 50 8B 20 A8 20 43 B0 |TIGEN..3.P. . C.|
00002BC0: 52 45 43 54 20 A7 20 32 30 36 32 30 00 E1 33 BE |RECT . 20620..3.|
00002BD0: 50 4E 41 41 4D 24 B2 43 43 24 AA 22 2E 48 49 53 |PNAAM$.CC$.".HIS|
00002BE0: 22 00 E7 33 C8 50 3A 00 EE 33 D2 50 52 45 00 0A |"..3.P:..3.PRE..|
00002BF0: 34 DC 50 8F 20 2A 2A 2A 20 49 4E 56 4F 45 52 52 |4.P. *** INVOERR|
00002C00: 4F 55 54 49 4E 45 20 2A 2A 2A 00 10 34 E6 50 3A |OUTINE ***..4.P:|
00002C10: 00 26 34 F0 50 8D 32 31 30 3A 8B 49 4E 24 B2 52 |.&4.P.210:.IN$.R|
00002C20: 54 24 20 A7 20 8E 00 38 34 FA 50 41 4B B2 30 3A |T$ . ..84.PAK.0:|
00002C30: 41 4E 54 57 24 B2 22 22 00 59 34 04 51 8D 20 31 |ANTW$."".Y4.Q. 1|
00002C40: 31 30 3A 99 20 53 50 41 43 45 24 28 41 4E 54 57 |10:. SPACE$(ANTW|
00002C50: C3 29 3B 3A 8D 20 31 31 30 00 77 34 0E 51 57 48 |.);:. 110.w4.QWH|
00002C60: 49 4C 45 20 41 4B B3 41 4E 54 57 C3 20 AF 20 49 |ILE AK.ANTW. . I|
00002C70: 4E 24 B3 B1 52 54 24 00 89 34 18 51 57 48 49 4C |N$..RT$..4.QWHIL|
00002C80: 45 20 49 4E 24 B2 42 53 24 00 A4 34 22 51 8D 20 |E IN$.BS$..4"Q. |
00002C90: 31 31 30 3A 99 20 53 50 41 43 45 24 28 41 4E 54 |110:. SPACE$(ANT|
00002CA0: 57 C3 29 3B 00 C2 34 2C 51 8D 20 31 31 30 3A 41 |W.);..4,Q. 110:A|
00002CB0: 4E 54 57 24 B2 22 22 3A 41 4B B2 30 3A 8D 20 32 |NTW$."":AK.0:. 2|
00002CC0: 31 30 00 C9 34 36 51 57 80 00 03 35 40 51 8B 20 |10..46QW...5@Q. |
00002CD0: 49 4E 53 54 52 28 4B 53 45 54 24 2C 49 4E 24 29 |INSTR(KSET$,IN$)|
00002CE0: B1 30 20 A7 20 99 20 49 4E 24 3B 3A 41 4E 54 57 |.0 . . IN$;:ANTW|
00002CF0: 24 B2 41 4E 54 57 24 AA 49 4E 24 3A 41 4B B2 41 |$.ANTW$.IN$:AK.A|
00002D00: 4B AA 31 00 0D 35 4A 51 8D 20 32 31 30 00 14 35 |K.1..5JQ. 210..5|
00002D10: 54 51 57 80 00 1A 35 9A 51 8E 00 39 35 08 52 8F |TQW...5.Q..95.R.|
00002D20: 20 2A 2A 20 47 45 54 41 4C 46 4F 52 4D 41 41 54 | ** GETALFORMAAT|
00002D30: 20 4D 41 4B 45 4E 20 2A 2A 00 3F 35 12 52 3A 00 | MAKEN **.?5.R:.|
00002D40: 62 35 1C 52 43 43 B2 B6 28 53 52 29 3A 4D 49 4E |b5.RCC..(SR):MIN|
00002D50: B2 28 53 52 B3 30 29 3A 43 56 B2 43 54 AB 43 4E |.(SR.0):CV.CT.CN|
00002D60: AB 31 00 70 35 26 52 43 4E 48 55 4C 50 B2 43 4E |.1.p5&RCNHULP.CN|
00002D70: 00 81 35 30 52 8B 20 43 43 B2 30 20 A7 20 8D 20 |..50R. CC.0 . . |
00002D80: 33 00 A4 35 3A 52 8B 20 43 43 B1 B2 31 20 A7 20 |3..5:R. CC..1 . |
00002D90: 8D 20 32 31 32 30 30 20 45 4C 53 45 20 8D 20 32 |. 21200 ELSE . 2|
00002DA0: 31 31 30 30 00 CD 35 44 52 8B 20 4D 49 4E 20 A7 |1100..5DR. MIN .|
00002DB0: 20 53 52 24 B2 22 2D 22 AA 53 52 24 20 45 4C 53 | SR$."-".SR$ ELS|
00002DC0: 45 20 53 52 24 B2 22 20 22 AA 53 52 24 00 DB 35 |E SR$." ".SR$..5|
00002DD0: 4E 52 43 4E B2 43 4E 48 55 4C 50 00 E1 35 62 52 |NRCN.CNHULP..5bR|
00002DE0: 8E 00 FD 35 6C 52 8F 20 2A 2A 20 4B 4C 45 49 4E |...5lR. ** KLEIN|
00002DF0: 45 20 47 45 54 41 4C 4C 45 4E 20 2A 2A 00 03 36 |E GETALLEN **..6|
00002E00: 76 52 3A 00 1D 36 80 52 47 52 45 4E 53 B2 31 30 |vR:..6.RGRENS.10|
00002E10: B1 28 AB 43 4E 29 3A 43 4E 31 B2 43 4E 00 30 36 |.(.CN):CN1.CN.06|
00002E20: 8A 52 57 48 49 4C 45 20 43 43 B3 47 52 45 4E 53 |.RWHILE CC.GRENS|
00002E30: 00 47 36 8F 52 43 43 B2 31 30 AC 43 43 3A 43 4E |.G6.RCC.10.CC:CN|
00002E40: 31 B2 43 4E 31 AA 31 00 4E 36 94 52 57 80 00 6B |1.CN1.1.N6.RW..k|
00002E50: 36 9E 52 8B 20 43 4E 31 B2 43 4E 20 A7 20 53 52 |6.R. CN1.CN . SR|
00002E60: B2 43 43 3A 8D 20 33 31 30 3A 8E 00 7B 36 A8 52 |.CC:. 310:..{6.R|
00002E70: 43 43 B2 43 43 AC 31 30 B1 43 4E 00 8B 36 B2 52 |CC.CC.10.CN..6.R|
00002E80: 53 52 B2 43 43 3A 8D 20 33 31 30 00 B6 36 BC 52 |SR.CC:. 310..6.R|
00002E90: 53 52 31 24 B2 53 52 24 AA 22 45 2D 22 3A 8B 20 |SR1$.SR$."E-":. |
00002EA0: 43 4E 31 B3 31 30 20 A7 20 53 52 31 24 B2 53 52 |CN1.10 . SR1$.SR|
00002EB0: 31 24 AA 22 30 22 00 CC 36 C1 52 43 4E B2 30 3A |1$."0"..6.RCN.0:|
00002EC0: 53 52 B2 43 4E 31 3A 8D 20 33 31 30 00 DD 36 C6 |SR.CN1:. 310..6.|
00002ED0: 52 53 52 24 B2 53 52 31 24 AA 53 52 24 00 E3 36 |RSR$.SR1$.SR$..6|
00002EE0: CB 52 8E 00 FE 36 D0 52 8F 20 2A 2A 20 47 52 4F |.R...6.R. ** GRO|
00002EF0: 54 45 20 47 45 54 41 4C 4C 45 4E 20 2A 2A 00 04 |TE GETALLEN **..|
00002F00: 37 DA 52 3A 00 1D 37 E4 52 47 52 45 4E 53 B2 31 |7.R:..7.RGRENS.1|
00002F10: 30 B1 43 56 3A 43 56 31 B2 43 56 AB 31 00 31 37 |0.CV:CV1.CV.1.17|
00002F20: EE 52 57 48 49 4C 45 20 43 43 B1 B2 47 52 45 4E |.RWHILE CC..GREN|
00002F30: 53 00 48 37 F3 52 43 43 B2 43 43 AD 31 30 3A 43 |S.H7.RCC.CC.10:C|
00002F40: 56 31 B2 43 56 31 AA 31 00 4F 37 F8 52 57 80 00 |V1.CV1.1.O7.RW..|
00002F50: 6E 37 02 53 8B 20 43 56 31 B2 43 56 AB 31 20 A7 |n7.S. CV1.CV.1 .|
00002F60: 20 53 52 B2 43 43 3A 8D 20 33 31 30 3A 8E 00 84 | SR.CC:. 310:...|
00002F70: 37 0C 53 43 43 B2 43 43 AD 28 31 30 B1 28 43 56 |7.SCC.CC.(10.(CV|
00002F80: AB 31 29 29 00 94 37 16 53 53 52 B2 43 43 3A 8D |.1))..7.SSR.CC:.|
00002F90: 20 33 31 30 00 BF 37 20 53 53 52 31 24 B2 53 52 | 310..7 SSR1$.SR|
00002FA0: 24 AA 22 45 2B 22 3A 8B 20 43 56 31 B3 31 30 20 |$."E+":. CV1.10 |
00002FB0: A7 20 53 52 31 24 B2 53 52 31 24 AA 22 30 22 00 |. SR1$.SR1$."0".|
00002FC0: D5 37 21 53 43 4E B2 30 3A 53 52 B2 43 56 31 3A |.7!SCN.0:SR.CV1:|
00002FD0: 8D 20 33 31 30 00 EB 37 25 53 43 4E B2 30 3A 53 |. 310..7%SCN.0:S|
00002FE0: 52 B2 43 56 31 3A 8D 20 33 31 30 00 FC 37 2A 53 |R.CV1:. 310..7*S|
00002FF0: 53 52 24 B2 53 52 31 24 AA 53 52 24 00 02 38 2F |SR$.SR1$.SR$..8/|
00003000: 53 8E 00 00 00 |S.... |
......:. 21060.J...SR$."":SR.O:HO.0:VE.O
:CT.0:CN.0:. DAN WERKEN ZE SNELLER.X...K
EY OFF:..C.2.. 1000.Y.F.. MB.HM . . MB.H
M..P.....D.CLS:....P.HO. HO MOD 81:. HO
.0 . HO.1...R.LOCATE VE,HO:..K.R.IN$.INK
EY$.Z...IN$.INKEY$.....W............ ...
7.. (S4.10.CN)..1 . S2.S2.1:S4.0.A.8.. C
N.0 . SR$.D(S2):SR$.I(SR$,C(SR$).1):. 31
5.X.9.C.CN.1:WHILE (C.0 . S4.10.C.1):C.C
.1:W.:NUL.CN.1.C...:.. CN.0 . S2$.D(S2):
S2$.RIGH...... 20...... **** HOOFDPROGRA
MMA ****.F...:...... AFDR . . 11600:. WA
ARN AFDRUKKEN...L.. 10000:. INITIALISATI
E...Q.WHILE DO.GAAN.4.V.. 2000:. MENUSTU
RING.;.`.W..E.J.. 100.A.T.."TOT DE VOLGE
NDE KEER".P.~.. ERR. . 0.Z...KEY ......:
...R.. HO..HM.CT . .:VE.VE.1:HO.1...O...
..P.. ** HOOFDMENU **.V.Z.M$(0)."MEETGEG
EVENS".....M$(1)."UITLEG".....M$(2)."INV
OEREN/VERWIJDEREN".&...M$(3)."HISTOGRAM
MAKEN".:...M$(4)."STOPPEN".H...M$(5)."."
.A.... 15000:. MENU MAKEN... .. IN . 300
0,4000,5000,6000...*........ ** SUBMENU
UITLEG **...B.:...L.. 3100:. UITLEG.A.V.
:.G.....Z.... ** UITLEG **...&.:...0.. 2
0100:. HUISSTIJL...:.VE.4:HO.1:. 110.A.D
.. "MET DIT PROGRAMMA KUNT U WAARNEMINGS
GEGEVENS".G.I...S.N.. "- NAAR EEN BESTAN
D OP SCHIJF STUREN"...S.. "- VAN EEN BES
TAND OP SCHIJF LEZEN "...X.....].. "VERV
OLGENS KUNT U".D.B.....G.. "- ER HISTOGR
AMMEN VAN MAKEN"...L.. "-MET VERSCHILLEN
DE KLASSE-INDELINGEN".0.Q.. 20000:. GEZI
EN PRINT.6.V...S. .. ** SUBMENU INVOEREN
**.Y...:.N...M$(0)."INVOEREN".....M$(1)
."BESTAND OPENEN VOOR INVOER WAARNEMINGE
N".B.H.M$(2)."OVERZICHT BESTANDEN"...R.M
$(3)."BESTAND VERWIJDEREN".....M$(4)."HO
OFDMENU".....M$(5)."."...... 15000:. MEN
U MAKEN.9.... IN . 4100,4200,4300.?.....
{.... **** BESTAND OPENEN VOOR INVOER VA
N WAARNEMINGEN ****.....:...... 20100...
".. 12600:. BESTAND OPENEN...,.. NAAM$."
" . ....6.. 12000:. WAARNEMINGEN INVOERE
N...@.:...^.....H.. **** OVERZICHT BESTA
NDEN ****...R.:./.|.. 20100:. HUISSTIJL.
G.... 12800:. OVERZICHT.M...:.S...:.Y.B.
..}.L.. **** BESTAND VERWIJDEREN ****...
V.:...... 20100:. HUISSTIJL...... 12800:
. OVERZICHT BESTANDEN...... 12900:. BEST
AND VERWIJDEREN.....:...&........ ** SUB
MENU HISTOGRAM MAKEN **.....:.1...M$(0).
"HISTOGRAM MAKEN".G...M$(1)."BESTAND OPE
NEN VOOR UITLEZEN WAARNEMINGEN".}...M$(2
)."OVERZICHT".....M$(3)."HOOFDMENU"...D.
M$(4)."."...N.. 15000:. MENU MAKEN.O.X..
IN . 5100,4200.U.......... **** BESTAND
OPENEN VOOR INLEZEN WAARNEMINGEN *****.
....:.-.... 20100:. HUISSTIJL.K.... 1280
0:. OVERZICHT GEVEN.H.... 12700:. BESTAN
D OPENEN.{.... NAAM$."" . ......NOGEENS.
(1.1)...... 11000:...(.. 12400:. NOG EEN
S PRINT.O.-.. NOGEENS . . 11180.V.2.W...
.<.:...F........ KEUZE...P.. ** SUBMENU
STOPPEN **...Z.:.(.... 20100:. HUISSTIJL
.R...VRAAG$."WILT U ECHT STOPPEN? <J/N>
N".L.... 20500:. OKPRINT J/N.....DO.GAAN
.. AKKO.D.....:...J......'. **** INITIAL
ISATIE ****....':.T.$'VM.24:HM.80:RMARGE
.11:LMARGE.5...8'AANTKLASSEN.10:I.AANTKL
ASSEN...B'. SCHAAL$(VM.6),STAAF$(1).(.L'
. 10330:. DIMMEN.?.T'. SPECIALE STRINGS.
X.~'CIJFER$."0123456789".{..'PUNT$.".":M
IN$."-":..ENT$."EE"....'CKAR$.CIJFER$.PU
NT$.MIN$...ENT$.F..'ALFA$."ABCDEFGHIJKLM
NOPQRSTUVWXYZ"....'ALFA$.ALFA$."ABCDEFGH
IJKLMNOPQRSTUVWXYZ"....'RT$.G(13):BS$.G(
8):SPATIE$.G(32).(..'KOP$."TELEA...2(..E
.<(. **** DIMMEN ****.K.F(:.H.P(ERASE KL
MID,.DERGRENS,.Q.Z.Z(I.AANTKLASSEN...D(.
KLMID(I),.DERGRENS(I),.Q(I).L.N(STAAFBR
..((HM.LMARGE.RMARGE.1).AANTKLASSEN)...X
(STAAF$(0).STRING$(STAAFBR,240):STAAF$(1
).STRING$(STAAFBR,219)....(..6..*. ****
LEES MEETGEGEVENS ****.F..+AANTWAARN.1.^
..+VE.VER.1:HO.1:. 110...%+MAXWAARDE.WAA
RN:MINWAARDE.WAARN...*+WHILE . EOF(1)...
/+. #1,WNG$...4+WAARN.E(WNG$)...9+. AFDR
. . 11600:. WAARN AFDRUKKEN...>+. WAARN
.MAXWAARDE . MAXWAARDE.WAARN.,.C+. WAARN
.MINWAARDE . MINWAARDE.WAARN.@.H+AANTWAA
RN.AANTW.[.\+. MIN EN MAX AFDRUKKEN.A.F+
:..P+. AFDR . . 11700:. ELSE ....Z+SR.M
INWAARDE:. "MINIMUM: ";:. 21000:. SR$;".
";....+SR.MAXWAARDE:. "MAXIMUM: ";:. 21
000:. SR$....+. 11700:. GEZIENPRINT EN V
ERDER.E..+. MINWAARDE.MAXWAARDE . FOUT.6
:. 20200:NOGEENS..(NOGEENS):..K..+:.O..+
. 12300:. AANTAL KLASSEN VRAGEN.U..+:...
.+. KLASSEN VASTLEGGEN...J+:...T+VARBR.M
AXWAARDE.MINWAARDE.Q..+KLASSEBR.VARBR.AA
NTKLASSEN....+. KLASSE.1 . AANTKLASSEN.%
..+KLMID(KLASSE).MINWAARDE.KLASSE.KLASSE
BR.KLASSEBR.2.Y..+.DERGRENS(KLASSE).MINW
AARDE.(KLASSE.1).KLASSEBR.F..,. KLASSE.L
..,:...$,. FREQUENTIES BEPALEN....,:...8
,. KLASSE.1 . AANTKLASSEN...B,.Q(KLASSE)
.0.G.L,. KLASSE...V,. NAAM$ . . AS #1...
`,WHILE . EOF(1)...J,. #1,WNG$...T,WAARN
.E(WNG$).".~,I.AANTKLASSEN.?..,WHILE WAA
RN..DERGRENS(I).I..,I.I.1.P..,W..B..,.Q(
I)..Q(I).1.I..,W..R.., #1.X..,:....,. M
AXFREQ BEPALEN....,:. ..-MAX.Q.0....-. K
LASSE.1 . AANTKLASSEN....-. .Q(KLASSE).M
AX.Q . MAX.Q..Q(KLASSE)....-. KLASSE...F
-....P-. ** WAARN AFDRUKKEN **...Z-:.1.D
-SR.WAARN:. 21000.F.N-. 110:. SR$;" ";.U
.X-HO.HO.CT.1.K..-. VE.COMREGEL . ..Q..-
:....-. ** GEZIEN? EN VERDER **....-:...
H-. 20000:. TOETS VOOR GEZIEN.M.R-VE.VER
.1:HO.1:. 110....-. REGEL.VE . COMREGEL.
...-. SPACE$(HM)....-. REGEL....-. 110..
...:.......?.... ** WAARNEMINGEN AFDRUKK
EN ? **.E.".:.Y.6.VRAAG$."WILT U WAARNEM
INGEN AFDRUKKEN? <J/N> N"...@.. 20500:.
OKPRINT <J/N>...J.AFDR.AKKO.D...T.. 2040
0...^.:...R........ **** BESTAND MET WAA
RNEMINGSGETALLEN MAKEN ****.....:.....VE
R.5:H..1:AANTAL.0:OK.(1.1).....VE.VER:WN
G$."@".F../WHILE WNG$.."00000".E../HO.H.
:. 110:. SPACE$(HM);..../VE.VE.1:. 110:
. SPACE$(HM);...&/VE.VE.1:. 110...0/. "W
AARNEMINGSGETAL :";.U.:/KSET$.CKAR$:ANTW
C.15:ANTW$.""...D/HO.HO.18:. 110...N/. 2
0700:WNG$.ANTW$...X/. 12200:. BEVESTIGEN
.O.B/. C.RECT.(WNG$.."00000") . AANTAL.A
ANTAL.1:. 12500.L.L/. FOUT . AANTAL.AANT
AL.1...V/. WNG$.."00000" . VE.VER.(AANTA
L MOD 14). ../W..N../.:. "U HEEFT ";AANT
AL;" WAARNEMINGEN INGE..../. **** INVOER
BEVESTIGEN ****..../:..../VRAAG$."IS DI
T CORRECT ? <J/N> J".8.F/. 20400:. INIT
COMREGEL.V.P/. 20500:. OK PRINT JA/NEE.R
.Z/. 20400:. INIT COMREGEL..../C.RECT.AK
KO.D..../:....0.....0. **** AANTAL KLASS
EN VRAGEN ****....0:.Y..0VE.COMREGEL.3:H
O.1:. 110... 0. "AANTAL WAARNEMINGEN: ";
AANTWAARN...%0VE.COMREGEL.2:HO.1:. 110.6
.*0. SPACE$(HM);:. 110.D.40. "HOEVEEL KL
ASSEN WILT U <3 TOT 20> >>";...90SR.AANT
KLASSEN:CN.0:. 310:ANTW$.SR$...>0KSET$.C
IJFER$:ANTWC.2:HO.HO.36.N.H0. ANTW$;:. 2
0700:CC$.ANTW$...M0. 12200:. BEVESTIGEN.
..R0. . C.RECT . 12300.! W0. E(CC$).3 .
E(CC$).20 . 12300.I \0AANTKLASSEN.E(CC$)
:. 10300:. DIMMEN.O F0..J P0. **** NOG E
ENS ? ****.P Z0:.. .0VRAAG$."NOG EENS ?
<J/N> J".. .0NOGEENS.AKKO.D.. .0:.. J0..
Z T0. **** CONTROLE EN BESTAND VULLEN **
**.. Y0:..!.0FOUT.0:CC$.WNG$:. C(CC$).0
. FOUT.1:..8!.0E.INSTR(CC$,"E"):. E.0 .
E.INSTR(CC$,"E").C!.0P1.INSTR(CC$,MIN$):
P2.INSTR(CC$,PUNT$)..!.0. P1.P2.0 . . .(
P1.P2).1 . FOUT.1:...!.0. E.O . . P1.1 .
FOUT.1:..K!.0. P1.1 . . C(CC$).1. FOUT.
1:...!.0AANTPUNT.0:AANTMIN.0..".1. I.1 .
C(CC$) . FOUT.1:..8".1. INSTR(PUNT$,J(C
C$,I,1)).0 . AANTPUNT.AANTPUNT.1.M".1. I
NSTR(MIN$ ,J(CC$,I,1)).0 . AANTMIN .AANT
MIN.1.U".1. I..".1. AANTPUNT.1 . FOUT.1:
...".1. AANTMIN .(1.(E.0)) . FOUT.1:..F"
.1WRITE #1,CC$.S"$1WNG$.CC$.Y".1...#81.
**** BESTAND OPENEN VOOR OUTPUT ****.$#`
1VER.3:. 20600:. NAAM VRAGEN.7#E1. NAAM$
."" . ..R#J1. NAAM$ . OUTPUT AS #1.K#T1V
E.VER:HO.HM.2:. 110..#~1. "GEEF 00000 OM
TE STOPPEN."..#.1FOUT.4:. 20200:RESUME
12680.X#.1. **** BESTAND OPENEN VOOR INP
UT *****..#.1:..#.1. ERR. . 12790..$.1VR
AAG$."UIT WELK BESTAND WILT U LEZEN ?".?
$D1VER.10:. 20600:. NAAM VRAGEN.R$I1. NA
AM$."" . ..H$N1. NAAM$ . . AS #1..$X1VE.
VER:HO.HM.2:. 110..$.1. "EVEN GEDULD";..
$.1..E$.1FOUT.2:. 20200:NAAM$."":RESUME
12780..$.2. **** OVERZICHT BESTANDEN ***
*..$.2:..%.2. ERR. . 12890.7%.2VE.3:HO.1
:.110:."OVERZICHT WAARNEMINGSBESTANDEN".
I%(2VE.VE.2:. 110.[%22FILES "*.HIS".{%<2
. 20000:. TOETS VOOR GEZIEN..%F2:..%P2..
.%Z2FOUT.3:. 20200:RESUME 12880.K%D2. **
** BESTAND VERWIJDEREN ****.Q%N2:..%X2.
ERR. . 12990..&.2VRAAG$."WELK BESTAND VE
RWIJDEREN ?".-&.2VER.10:. 20600:. NAAM V
RAGEN.<&.2KILL NAAM$.T&.2. 20100:. HUISS
TIJL.V& 2. 12800:. OVERZICHT BESTANDEN.|
&.2:..&.2...&.2FOUT.3:. 20200:RESUME 129
80..&H2. **** HISTO TEKENEN ****.F&R2:.R
&.2. 20100..&,3. VERTICALE AS VERDELEN..
&63:..'@3WNPSTAP.MAX.Q.(VM.6).,'J3AFR..(
WNPSTAP...(WNPSTAP)).G'T3WNPSTAP..(WNPST
AP).AFR.Q'|3. 310.D'.3SCHAAL$(I).SR$.L'.
3. I.R'.3:..'.3. VERTICALE AS TEKENEN..'
.3:..'.4VER.COMREGEL..'.4. I.VM.6 . 0 .
.1.G'.4VE.VER.I..'&4. SCHAAL$(I)."" . SC
HAAL$(I).SPACE$(LMARGE.1)..(+4HO.LMARGE.
C(SCHAAL$(I)):. 110.0(04. SCHAAL$(I);"<"
.8(:4. I.U(X4. HORIZONTALE AS TEKENEN.[(
B4:.X(L4VE.VER:HO.LMARGE.1:. 110..(V4. I
.1 . AANTKLASSEN..(.4. STRING$(STAAFBR,F
("?"));..(.4. I.Y(.4VE.VE.1:HO.HO.STAAFB
R.2:. 110..(.4. I.1 . AANTKLASSEN..).4SR
.I:. 310..).4SR$.I(SR$,1)..).4. SR$;.4)F
4HO.HO.STAAFBR:. 110.<)P4. I.Q) 5. STAVE
N TEKENEN.W)*5:.O)45. I.1 . AANTKLASSEN.
.)>5AANTVS..Q(I).WNPSTAP. )H5AANTVS..(AA
NTVS..5)..)R5VER.VM.2:H..LMARGE.1.Q)\5HO
.H..(I.1).STAAFBR..)F5. AANTVS.0 . 13710
..)P5. J.1 . AANTVS.!*Z5VE.VER.J:. 110:.
STAAF$(I MOD 2);.)*.5. J.1*.5. I.7*.5:.
E*.5. LEGENDA.K*.5:.B*.5VER.1:H..HM.RMAR
GE.Y*.6VE.VER:HO.H.:. 110..*$6. "NR<KLAS
MID";..*.6VE.VE.1:. 110..*86. STRING$(RM
ARGE,F("="));.U*B6. I.1 . AANTKLASSEN..*
L6CT.2:CN.0:SR.I:. 310..+V6VE.VE.1:HO.H.
:. 110..+`6. SR$;.3+J6CT.7:CN.1:SR.KLMID
(I):. 21000.E+T6HO.H..3:. 110.Z+Y6LSR.C(
SR$):. LSR.CT . SR$.STRING$(CT.LSR,32).S
R$..+~6. SR$;..+.6. I..+.6. 20000:. TOET
S VOOR GEZIEN..+.6..D+.:. ** MENU **.W+.
:. BEPAAL MARGE..+.:. MB.0..+.:. I.0 . 5
..,.:. M.C(M$(I)).3..,J:. M.MB . . MB.M.
.,T:. I.:,.:. MARGE..((HM.MB).2.1).@,.::
.T,.:. DRUK TITEL AF.^,.;. 100.O,.;. HO.
MARGE.1..,.;. VE.1:. 110..,$;."# ";M$(0)
;" #";..,_;:..,`;. DRUK ALTERNATIEVEN AF
.W,J;. M.1:. HO.MARGE:. VE.VE.3..,T;WHIL
E M$(M).."."..-~;. VE.VE.2:. 110..-.;. G
(48.M);" ";M$(M);.%-.;. M.M.1.,-.;W..2-C
;:.S-N;. HO.MARGE.1:. VE.VM.1:. 110.K-X;
."KIES EEN CIJFER";.-.;. IN.1:. IN$."".
.-.;WHILE IN$..G(13)..-.;. A.0..-.<WHILE
A.1 . A.M.1.D-.<. VE.IN.2.4.T-.<. 110:.
"*";..-<<. 110:." ";..-F<W...-P<. VE.VM.
1:. 110...Z<."DRUK INVOER-TOETS";.+.D<.
VE.VM:. 110.C.N<."OF KIES OPNIEUW";.J.X<
W..P..<..V.>:.X. N. **** TOETS VOOR GEZ
IEN ****.~.*N:...4NBEEP...>NVE.VM:HO.1:.
110....N:....N. 100:LK.C(KOP$).S..NHO.H
M.2.LK.2:VE.1:. 110....N. KOP$;....NVE.V
E.1:HO.1:. 110....N.../.N. **** FOUTMELD
INGEN ****. /.N:.L/.N. FOUT.1 . FOUT$."G
EEN FILES OP SCHIJF".Y/.O. FOUT.2 . FOUT
$.NAAM$." NIET OP SCHIJF"../.O. FOUT.3 .
FOUT$."GEEN SCHIJF IN DRIVE".Q/.O. FOUT
.4 . FOUT$.NAAM$." NIET GEVONDEN"..0.O.
FOUT.5 . FOUT$."TE WEINIG WAARNEMINGEN.
GEEN BESTAND GEMAAKT.".]0.O. FOUT.6 . FO
UT$."ALLE".D(AANTWAARN)." WAARNEMINGEN".
" ZIJN GELIJK.}0.O. 20000:. TOETS VOOR G
EZIEN..03OFOUT.0..08O ..0=O:..0BO...0LO.
**** SPATIES UIT CC$ HALEN ****.F0VO:..
0`OLW.C(CC$):I.1:S.0..0JOWHILE I.S..LW.*
1TO. J(CC$,I,1)." " . J(CC$,I).J(CC$,I.1
):S.S.1 ELSE I.I.1.11.OW..E1.OCC$.H(CC$,
LW.S).K1.O:.Q1.O..O1.O. **** INIT COMREG
EL ****.U1.O:..1DOVE.COMREGEL:HO.1:. 110
..1NO. SPACE$(HM);:. 110..1XO:..1.P..P1.
P. **** OK ? JA/NEE ****.V1.P:..1(P. 204
00:. INIT COMREGEL..22P. VRAAG$;..2<PHO.
HO.C(VRAAG$).1:. 110."2FP:.U2PPANTW$.I(V
RAAG$,1):ANTWC.1:KSET$."NNJJ":. 20700.W2
ZPAKKO.D.(INSTR(KSET$,ANTW$).2).}2DP:..2
NP...2XP. **** NAAM VRAGEN ****..2.P:..2
.PVV$.VRAAG$.J2.PVE.VER:HO.1:. 110..2.P.
SPACE$(HM);:. 110..2.P. VV$;. 3.PVE.VE.
1:. 110:. SPACE$(HM):. 110:. "NAAM >> ";
.23 PHO.HO.9:. 110.C3.PANTW$."":ANTWC.8:
KSET$.ALFA$.CIJFER$.SPATIE$.X3.P. 20700:
. INVOER..3.PCC$.ANTW$:. CC$."" . NAAM$.
"":...3.P. 12200:. BEVESTIGEN.L3.P. . C.
RECT . 20620..3.PNAAM$.CC$.".HIS"..3HP:.
.3RPRE..4.P. *** INVOERROUTINE ***..4.P:
.&4.P.210:.IN$.RT$ . ..84.PAK.0:ANTW$.""
.Y4.Q. 110:. SPACE$(ANTWC);:. 110.W4.QWH
ILE AK.ANTWC . IN$..RT$..4.QWHILE IN$.BS
$..4"Q. 110:. SPACE$(ANTWC);.B4,Q. 110:A
NTW$."":AK.0:. 210.I46QW...5@Q. INSTR(KS
ET$,IN$).0 . . IN$;:ANTW$.ANTW$.IN$:AK.A
K.1..5JQ. 210..5TQW...5.Q..95.R. ** GETA
LFORMAAT MAKEN **.?5.R:.B5.RCC..(SR):MIN
.(SR.0):CV.CT.CN.1.P5&RCNHULP.CN..50R. C
C.0 . . 3..5:R. CC..1 . . 21200 ELSE . 2
1100.M5DR. MIN . SR$."-".SR$ ELSE SR$."
".SR$..5NRCN.CNHULP..5BR...5LR. ** KLEIN
E GETALLEN **..6VR:..6.RGRENS.10.(.CN):C
N1.CN.06.RWHILE CC.GRENS.G6.RCC.10.CC:CN
1.CN1.1.N6.RW..K6.R. CN1.CN . SR.CC:. 31
0:..{6.RCC.CC.10.CN..6.RSR.CC:. 310..6.R
SR1$.SR$."E-":. CN1.10 . SR1$.SR1$."0".L
6ARCN.0:SR.CN1:. 310..6FRSR$.SR1$.SR$..6
KR...6PR. ** GROTE GETALLEN **..7ZR:..7.
RGRENS.10.CV:CV1.CV.1.17.RWHILE CC..GREN
S.H7.RCC.CC.10:CV1.CV1.1.O7.RW..N7.S. CV
1.CV.1 . SR.CC:. 310:...7.SCC.CC.(10.(CV
.1))..7.SSR.CC:. 310..7 SSR1$.SR$."E+":.
CV1.10 . SR1$.SR1$."0".U7!SCN.0:SR.CV1:
. 310..7%SCN.0:SR.CV1:. 310..7*SSR$.SR1$
.SR$..8/S....
> CLICK IMAGE PREVIEW FOR FULL MODAL