STAMBOOM MAKEN
FILE INFORMATION
FILENAME(S): STAMBOOM MAKEN
FILE TYPE(S): PRG
FILE SIZE: 6.7K
FIRST SEEN: 2025-11-30 21:23:33
APPEARS ON: 1 disk(s)
FILE HASH
99d5f492c77c5dce86d0b0e7cbcd9f2635531982ad464fe5b36a382573fd91fd
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 SPEL 31 2 | STAMBOOM MAKEN | PRG | DuncanTwain | 23 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 28 00 8F 20 53 41 56 45 2F 4C 4F 41 |..(.(.. SAVE/LOA|
00000010: 44 20 46 49 4C 45 20 30 20 4E 49 45 54 20 54 4F |D FILE 0 NIET TO|
00000020: 45 47 45 53 54 41 41 4E 00 3A 08 32 00 81 4A B2 |EGESTAAN.:.2..J.|
00000030: 31 A4 31 33 30 3A A0 4A 3A 82 00 59 08 3C 00 9C |1.130:.J:..Y.<..|
00000040: 3A 8D 33 36 34 30 3A 97 35 33 32 38 30 2C 31 34 |:.3640:.53280,14|
00000050: 3A 97 35 33 32 38 31 2C 30 00 A0 08 46 00 86 46 |:.53281,0...F..F|
00000060: 41 24 28 31 33 30 29 2C 4E 4D 24 28 31 37 35 29 |A$(130),NM$(175)|
00000070: 2C 41 24 28 32 36 29 2C 42 24 28 34 31 29 2C 53 |,A$(26),B$(41),S|
00000080: 43 53 24 28 33 31 29 2C 4E 54 24 28 31 31 29 2C |CS$(31),NT$(11),|
00000090: 5A 4B 24 28 31 31 29 2C 5A 4E 24 28 31 33 30 29 |ZK$(11),ZN$(130)|
000000A0: 00 D7 08 50 00 46 4C B2 31 3A 4E B2 31 3A 53 4E |...P.FL.1:N.1:SN|
000000B0: B2 31 3A 81 49 B2 31 A4 31 33 30 3A 5A 4E 24 28 |.1:.I.1.130:ZN$(|
000000C0: 49 29 B2 C9 28 C4 28 49 29 2C C3 28 C4 28 49 29 |I)..(.(I),.(.(I)|
000000D0: 29 AB 31 29 3A 82 49 00 05 09 5A 00 51 24 B2 22 |).1):.I...Z.Q$."|
000000E0: 22 3A 81 49 B2 31 A4 38 30 3A 51 24 B2 51 24 AA |":.I.1.80:Q$.Q$.|
000000F0: 22 2D 22 3A 82 49 3A 5A 4B 24 28 31 31 29 B2 22 |"-":.I:ZK$(11)."|
00000100: 53 54 4F 50 22 00 1E 09 64 00 99 22 93 20 20 12 |STOP"...d..". .|
00000110: 2A 20 53 54 41 4D 42 4F 4F 4D 20 2A 92 22 00 41 |* STAMBOOM *.".A|
00000120: 09 6E 00 41 24 B2 22 13 11 11 11 11 11 11 11 11 |.n.A$.".........|
00000130: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000140: 22 00 8C 09 78 00 42 24 B2 22 1D 1D 1D 1D 1D 1D |"...x.B$."......|
00000150: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000160: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000170: 1D 1D 1D 22 3A 97 37 38 38 2C 35 32 3A 8F 20 53 |...":.788,52:. S|
00000180: 54 4F 50 54 4F 45 54 53 20 55 49 54 00 A9 09 82 |TOPTOETS UIT....|
00000190: 00 99 22 11 12 47 4F 54 4F 20 31 30 30 20 4E 41 |.."..GOTO 100 NA|
000001A0: 20 42 52 45 41 4B 92 11 22 00 C4 09 8C 00 99 22 | BREAK.."......"|
000001B0: 12 40 92 20 3D 20 4D 45 4E 55 20 42 49 4A 20 46 |.@. = MENU BIJ F|
000001C0: 4F 55 54 22 00 DC 09 96 00 99 22 11 11 20 20 20 |OUT"......".. |
000001D0: 20 12 2A 20 4D 45 4E 55 20 2A 92 22 00 09 0A A0 | .* MENU *."....|
000001E0: 00 99 22 11 31 20 3D 20 49 4E 56 4F 45 52 20 52 |..".1 = INVOER R|
000001F0: 4F 55 54 49 4E 45 22 3A 99 22 32 20 3D 20 43 4F |OUTINE":."2 = CO|
00000200: 52 52 45 43 54 49 45 53 22 00 36 0A AA 00 99 22 |RRECTIES".6...."|
00000210: 33 20 3D 20 46 41 4D 2E 2D 54 41 4B 20 5A 49 45 |3 = FAM.-TAK ZIE|
00000220: 4E 22 3A 99 22 34 20 3D 20 54 41 4B 2D 52 45 47 |N":."4 = TAK-REG|
00000230: 49 53 54 45 52 22 00 65 0A B4 00 99 22 35 20 3D |ISTER".e...."5 =|
00000240: 20 53 54 41 4D 42 4F 4F 4D 20 5A 49 45 4E 22 3A | STAMBOOM ZIEN":|
00000250: 99 22 11 36 20 3D 20 43 41 53 53 2D 52 4F 55 54 |.".6 = CASS-ROUT|
00000260: 49 4E 45 53 22 00 A2 0A BE 00 99 22 37 20 3D 20 |INES"......"7 = |
00000270: 46 52 45 28 30 29 20 5A 49 45 4E 20 20 22 3A 99 |FRE(0) ZIEN ":.|
00000280: 22 11 38 20 3D 20 50 52 49 4E 54 20 53 54 41 4D |".8 = PRINT STAM|
00000290: 42 4F 4F 4D 22 3A 99 22 39 20 3D 20 4B 4C 41 41 |BOOM":."9 = KLAA|
000002A0: 52 22 00 B2 0A C8 00 8D 32 32 38 30 3A 8C 3A 49 |R"......2280:.:I|
000002B0: B2 30 00 C9 0A D2 00 83 31 2C 32 2C 33 2C 34 2C |.0......1,2,3,4,|
000002C0: 35 2C 36 2C 37 2C 38 2C 39 00 E6 0A DC 00 49 B2 |5,6,7,8,9.....I.|
000002D0: 49 AA 31 3A 87 4D 45 24 3A 8B 4D 45 24 B2 4B 59 |I.1:.ME$:.ME$.KY|
000002E0: 24 A7 89 32 35 30 00 F4 0A E6 00 8B 49 B3 39 A7 |$..250......I.9.|
000002F0: 89 32 32 30 00 FD 0A F0 00 89 32 30 30 00 34 0B |.220......200.4.|
00000300: FA 00 91 49 89 32 36 30 2C 38 31 30 2C 31 30 36 |...I.260,810,106|
00000310: 30 2C 31 33 32 30 2C 31 34 32 30 2C 31 35 30 30 |0,1320,1420,1500|
00000320: 2C 31 38 32 30 2C 31 38 34 30 2C 32 32 35 30 3A |,1820,1840,2250:|
00000330: 89 31 30 30 00 47 0B 04 01 99 22 93 22 3A 81 4A |.100.G....".":.J|
00000340: B2 53 4E A4 31 37 35 00 81 0B 0E 01 99 22 11 12 |.SN.175......"..|
00000350: 46 92 41 4D 2E 48 4F 4F 46 44 20 2D 20 12 45 92 |F.AM.HOOFD - .E.|
00000360: 43 48 54 47 45 4E 4F 54 45 20 2D 20 12 4B 92 49 |CHTGENOTE - .K.I|
00000370: 4E 44 20 20 22 3B 3A 8D 32 33 34 30 3A 85 4B 59 |ND ";:.2340:.KY|
00000380: 24 00 A5 0B 18 01 99 3A 46 48 24 B2 4B 59 24 3A |$......:FH$.KY$:|
00000390: 8B 4B 59 24 B2 22 46 22 A7 54 4B B2 54 4B AA 31 |.KY$."F".TK.TK.1|
000003A0: 3A 89 33 39 30 00 E2 0B 22 01 8B 4B 59 24 B2 22 |:.390..."..KY$."|
000003B0: 45 22 AF 54 4B B2 31 A7 4E 4D 24 28 31 29 B2 22 |E".TK.1.NM$(1)."|
000003C0: 22 3A 46 41 24 28 31 29 B2 22 22 3A 4A B2 30 3A |":FA$(1)."":J.0:|
000003D0: 53 4E B2 31 3A 4E B2 31 3A 54 4B B2 30 3A 89 31 |SN.1:N.1:TK.0:.1|
000003E0: 30 30 00 F4 0B 2C 01 8B 4B 59 24 B2 22 45 22 A7 |00...,..KY$."E".|
000003F0: 89 34 30 30 00 06 0C 36 01 8B 4B 59 24 B2 22 4B |.400...6..KY$."K|
00000400: 22 A7 89 33 33 30 00 17 0C 40 01 99 22 91 91 91 |"..330...@.."...|
00000410: 91 22 3A 89 32 37 30 00 27 0C 4A 01 8B 4B 44 B3 |.":.270.'.J..KD.|
00000420: B1 30 A7 89 33 35 30 00 53 0C 54 01 99 22 4D 41 |.0..350.S.T.."MA|
00000430: 58 2E 20 4B 49 4E 44 45 52 45 4E 20 4E 52 2E 31 |X. KINDEREN NR.1|
00000440: 2D 38 20 20 20 28 39 3D 4D 45 4E 55 29 22 3A 4B |-8 (9=MENU)":K|
00000450: 44 B2 30 00 81 0C 5E 01 4B 44 B2 4B 44 AA 31 3A |D.0...^.KD.KD.1:|
00000460: 99 22 11 4B 49 4E 44 20 4E 55 4D 4D 2E 20 20 20 |.".KIND NUMM. |
00000470: 22 3B 4B 44 3B 22 9D 9D 9D 9D 22 3B 3A 85 4B 4E |";KD;"....";:.KN|
00000480: 24 00 99 0C 68 01 8B C5 28 4B 4E 24 29 B1 38 A7 |$...h...(KN$).8.|
00000490: 4B 44 B2 30 3A 89 31 30 30 00 B3 0C 72 01 8B C5 |KD.0:.100...r...|
000004A0: 28 4B 4E 24 29 B3 B1 4B 44 A7 4B 44 B2 C5 28 4B |(KN$)..KD.KD..(K|
000004B0: 4E 24 29 00 CF 0C 7C 01 43 24 B2 46 48 24 3A 8B |N$)...|.C$.FH$:.|
000004C0: 46 48 24 B2 22 4B 22 A7 46 48 24 B2 4B 4E 24 00 |FH$."K".FH$.KN$.|
000004D0: DD 0C 86 01 8B 4A B2 31 A7 89 34 31 30 00 0E 0D |.....J.1..410...|
000004E0: 90 01 44 4C B2 54 4B AD 32 3A 8B 44 4C B3 B1 B5 |..DL.TK.2:.DL...|
000004F0: 28 44 4C 29 AF C8 28 4E 4D 24 28 4A AB 31 29 2C |(DL)..(NM$(J.1),|
00000500: 31 29 B2 22 45 22 A7 54 4B B2 54 4B AA 31 00 1F |1)."E".TK.TK.1..|
00000510: 0D 9A 01 8B 54 4B B3 31 30 A7 99 22 1D 22 3B 00 |....TK.10..".";.|
00000520: 58 0D A4 01 99 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D |X...."..........|
00000530: 1D 1D 1D 1D 1D 1D 1D 1D 1D 54 41 4B 2D 4E 55 4D |.........TAK-NUM|
00000540: 4D 45 52 20 20 20 20 22 3B 54 4B 3B 22 9D 9D 9D |MER ";TK;"...|
00000550: 9D 9D 22 3B 3A 85 54 4B 00 69 0D AE 01 8B 54 4B |..";:.TK.i....TK|
00000560: B1 31 33 30 A7 89 31 30 30 00 78 0D B8 01 8B 54 |.130..100.x....T|
00000570: 4B B3 31 A7 89 31 30 30 00 9A 0D C2 01 99 3A 99 |K.1..100......:.|
00000580: 22 46 41 4D 2E 4E 41 41 4D 20 20 20 20 22 3B 3A |"FAM.NAAM ";:|
00000590: 8D 32 33 34 30 3A 85 46 4D 24 00 BA 0D CC 01 99 |.2340:.FM$......|
000005A0: 22 56 4F 4F 52 4E 41 4D 45 4E 20 20 20 22 3B 3A |"VOORNAMEN ";:|
000005B0: 8D 32 33 34 30 3A 85 56 4E 24 00 DA 0D D6 01 99 |.2340:.VN$......|
000005C0: 22 47 45 42 2E 44 41 54 55 4D 20 20 20 22 3B 3A |"GEB.DATUM ";:|
000005D0: 8D 32 33 34 30 3A 85 47 44 24 00 FA 0D E0 01 99 |.2340:.GD$......|
000005E0: 22 47 42 2E 50 4C 41 41 54 53 20 20 20 22 3B 3A |"GB.PLAATS ";:|
000005F0: 8D 32 33 34 30 3A 85 47 50 24 00 1A 0E EA 01 99 |.2340:.GP$......|
00000600: 22 4F 56 45 52 4C 45 44 45 4E 20 20 20 22 3B 3A |"OVERLEDEN ";:|
00000610: 8D 32 33 34 30 3A 85 4F 4C 24 00 3A 0E F4 01 99 |.2340:.OL$.:....|
00000620: 22 48 55 57 2E 44 41 54 55 4D 20 20 20 22 3B 3A |"HUW.DATUM ";:|
00000630: 8D 32 33 34 30 3A 85 48 44 24 00 5A 0E FE 01 99 |.2340:.HD$.Z....|
00000640: 22 47 45 48 2E 54 45 2F 4D 45 54 20 20 22 3B 3A |"GEH.TE/MET ";:|
00000650: 8D 32 33 34 30 3A 85 48 50 24 00 9A 0E 08 02 41 |.2340:.HP$.....A|
00000660: 31 B2 C3 28 46 4D 24 29 3A 41 32 B2 C3 28 56 4E |1..(FM$):A2..(VN|
00000670: 24 29 3A 41 33 B2 C3 28 47 44 24 29 3A 41 34 B2 |$):A3..(GD$):A4.|
00000680: C3 28 47 50 24 29 3A 41 35 B2 C3 28 4F 4C 24 29 |.(GP$):A5..(OL$)|
00000690: 3A 41 36 B2 C3 28 48 44 24 29 00 DD 0E 12 02 41 |:A6..(HD$).....A|
000006A0: 37 B2 C3 28 48 50 24 29 3A 41 38 B2 41 31 AA 41 |7..(HP$):A8.A1.A|
000006B0: 32 AA 41 33 AA 41 34 AA 41 35 AA 41 36 AA 41 37 |2.A3.A4.A5.A6.A7|
000006C0: 3A 8B 41 38 B1 31 31 30 A7 99 22 11 54 45 4B 53 |:.A8.110..".TEKS|
000006D0: 54 20 49 53 20 54 45 20 4C 41 4E 47 22 00 FD 0E |T IS TE LANG"...|
000006E0: 1C 02 99 22 40 20 3D 20 46 4F 55 54 20 20 20 20 |..."@ = FOUT |
000006F0: 22 3B 3A 8D 32 33 34 30 3A 85 4B 59 24 00 12 0F |";:.2340:.KY$...|
00000700: 26 02 99 3A 8B 4B 59 24 B3 B1 22 40 22 A7 89 35 |&..:.KY$.."@"..5|
00000710: 38 30 00 2B 0F 30 02 8B C8 28 43 24 2C 31 29 B2 |80.+.0...(C$,1).|
00000720: 22 4B 22 A7 4B 44 B2 4B 44 AB 31 00 42 0F 3A 02 |"K".KD.KD.1.B.:.|
00000730: 8B 4B 59 24 B2 22 40 22 A7 99 22 93 22 3A 89 32 |.KY$."@"..".":.2|
00000740: 37 30 00 8E 0F 44 02 53 4E B2 4A 3A 4E 4D 24 28 |70...D.SN.J:NM$(|
00000750: 4A 29 B2 46 48 24 AA 22 20 22 AA 46 4D 24 AA 22 |J).FH$." ".FM$."|
00000760: 20 22 AA 56 4E 24 AA 22 2F 22 AA 47 44 24 AA 22 | ".VN$."/".GD$."|
00000770: 20 22 AA 47 50 24 AA 22 20 22 AA 4F 4C 24 AA 22 | ".GP$." ".OL$."|
00000780: 20 22 AA 48 44 24 AA 22 20 22 AA 48 50 24 00 BA | ".HD$." ".HP$..|
00000790: 0F 4E 02 8B C3 28 5A 4E 24 28 54 4B 29 29 B2 31 |.N...(ZN$(TK)).1|
000007A0: A7 5A 4E 24 28 54 4B 29 B2 22 30 30 22 AA 5A 4E |.ZN$(TK)."00".ZN|
000007B0: 24 28 54 4B 29 3A 89 36 31 30 00 E0 0F 58 02 8B |$(TK):.610...X..|
000007C0: C3 28 5A 4E 24 28 54 4B 29 29 B2 32 A7 5A 4E 24 |.(ZN$(TK)).2.ZN$|
000007D0: 28 54 4B 29 B2 22 30 22 AA 5A 4E 24 28 54 4B 29 |(TK)."0".ZN$(TK)|
000007E0: 00 14 10 62 02 4E 4D 24 28 4A 29 B2 4E 4D 24 28 |...b.NM$(J).NM$(|
000007F0: 4A 29 AA 22 20 22 AA 5A 4E 24 28 54 4B 29 3A 8B |J)." ".ZN$(TK):.|
00000800: C8 28 4E 4D 24 28 4A 29 2C 31 29 B2 22 46 22 A7 |.(NM$(J),1)."F".|
00000810: 4B 44 B2 30 00 2E 10 6C 02 8B C8 28 4E 4D 24 28 |KD.0...l...(NM$(|
00000820: 4A 29 2C 31 29 B2 22 45 22 A7 4B 44 B2 30 00 3E |J),1)."E".KD.0.>|
00000830: 10 76 02 8B 4B 44 B3 B1 30 A7 89 37 34 30 00 50 |.v..KD..0..740.P|
00000840: 10 80 02 4B B2 4E 3A 8B 4B B2 31 A7 89 36 36 30 |...K.N:.K.1..660|
00000850: 00 7C 10 8A 02 44 4C B2 54 4B AD 32 3A 8B 44 4C |.|...DL.TK.2:.DL|
00000860: B3 B1 B5 28 44 4C 29 AF C8 28 4E 4D 24 28 4A 29 |...(DL)..(NM$(J)|
00000870: 2C 31 29 B2 22 46 22 A7 89 31 30 30 00 A7 10 94 |,1)."F"..100....|
00000880: 02 99 22 52 45 47 49 53 54 45 52 2D 4E 55 4D 4D |.."REGISTER-NUMM|
00000890: 45 52 20 20 20 20 22 3B 54 4B 3B 22 9D 9D 9D 9D |ER ";TK;"....|
000008A0: 9D 9D 22 3B 3A 85 4B 00 B5 10 9E 02 8B 4B B1 31 |..";:.K......K.1|
000008B0: A7 89 36 39 30 00 CA 10 A8 02 8D 33 33 37 30 3A |..690......3370:|
000008C0: 4E B2 4E AA 31 3A 89 37 34 30 00 F6 10 B2 02 44 |N.N.1:.740.....D|
000008D0: 4C B2 54 4B AD 32 3A 8B 44 4C B2 B5 28 44 4C 29 |L.TK.2:.DL..(DL)|
000008E0: AF C8 28 4E 4D 24 28 4A 29 2C 31 29 B2 22 45 22 |..(NM$(J),1)."E"|
000008F0: A7 4E B2 4E AA 31 00 25 11 BC 02 8B 44 4C B2 B5 |.N.N.1.%....DL..|
00000900: 28 44 4C 29 AF C8 28 4E 4D 24 28 4A 29 2C 31 29 |(DL)..(NM$(J),1)|
00000910: B2 22 45 22 A7 8D 33 33 33 30 3A 4B B2 4B AA 31 |."E"..3330:K.K.1|
00000920: 3A 89 37 32 30 00 45 11 C6 02 8B C8 28 4E 4D 24 |:.720.E.....(NM$|
00000930: 28 4A 29 2C 31 29 B2 22 46 22 A7 8D 33 33 37 30 |(J),1)."F"..3370|
00000940: 3A 89 37 33 30 00 55 11 D0 02 8D 33 33 37 30 3A |:.730.U....3370:|
00000950: 4E B2 4E AA 31 00 7B 11 DA 02 8B 4B B1 31 33 30 |N.N.1.{....K.130|
00000960: A7 99 22 11 12 52 45 47 49 53 54 45 52 20 49 53 |.."..REGISTER IS|
00000970: 20 56 4F 4C 92 22 3A 89 31 30 30 00 AE 11 E4 02 | VOL.":.100.....|
00000980: 99 22 11 49 4E 56 4F 45 52 4E 52 2E 3D 22 3B 53 |.".INVOERNR.=";S|
00000990: 4E 3B 22 20 20 20 20 22 3B 22 54 41 4B 2D 4E 52 |N;" ";"TAK-NR|
000009A0: 2E 3D 22 3B 54 4B 3A 99 4E 4D 24 28 4A 29 00 DD |.=";TK:.NM$(J)..|
000009B0: 11 EE 02 99 22 11 4D 45 4E 55 20 12 36 92 20 20 |....".MENU .6. |
000009C0: 4C 41 41 54 53 54 45 20 49 4E 50 55 54 20 4D 45 |LAATSTE INPUT ME|
000009D0: 54 20 45 43 48 54 47 45 4E 4F 54 45 22 00 F8 11 |T ECHTGENOTE"...|
000009E0: F8 02 8D 32 32 38 30 3A 8B 4B 59 24 B3 B1 C7 28 |...2280:.KY$...(|
000009F0: 33 32 29 A7 89 37 38 30 00 0C 12 02 03 8B 4B 59 |32)..780......KY|
00000A00: 24 B2 C7 28 33 32 29 A7 89 37 39 30 00 1D 12 0C |$..(32)..790....|
00000A10: 03 53 4E B2 53 4E AA 31 3A 89 31 30 30 00 3B 12 |.SN.SN.1:.100.;.|
00000A20: 16 03 99 22 93 22 3A 82 4A 3A 99 22 11 12 42 4F |...".":.J:."..BO|
00000A30: 4F 4D 20 49 53 20 56 4F 4C 92 22 00 4A 12 20 03 |OM IS VOL.".J. .|
00000A40: 8D 32 32 38 30 3A 89 31 30 30 00 7D 12 2A 03 99 |.2280:.100.}.*..|
00000A50: 22 93 11 43 4F 52 52 2E 20 54 41 4B 20 4F 46 20 |"..CORR. TAK OF |
00000A60: 52 45 47 49 53 54 45 52 20 28 54 2F 52 29 20 20 |REGISTER (T/R) |
00000A70: 22 3B 3A 8D 32 33 34 30 3A 85 43 44 24 00 8F 12 |";:.2340:.CD$...|
00000A80: 34 03 8B 43 44 24 B2 22 54 22 A7 89 38 35 30 00 |4..CD$."T"..850.|
00000A90: A1 12 3E 03 8B 43 44 24 B2 22 52 22 A7 89 39 39 |..>..CD$."R"..99|
00000AA0: 30 00 AA 12 48 03 89 38 31 30 00 C3 12 52 03 8D |0...H..810...R..|
00000AB0: 33 33 38 30 3A 99 3A 4C B2 C3 28 5A 4B 24 29 3A |3380:.:L..(ZK$):|
00000AC0: 4A B2 30 00 EF 12 5C 03 4A B2 4A AA 31 3A 8D 33 |J.0...\.J.J.1:.3|
00000AD0: 31 37 30 3A 8B 58 A7 99 22 11 20 20 22 3B 3A 8D |170:.X..". ";:.|
00000AE0: 32 33 35 30 3A 85 49 3A 8B 49 A7 89 38 39 30 00 |2350:.I:.I..890.|
00000AF0: FF 12 66 03 8B 4A B2 53 4E A7 89 31 30 35 30 00 |..f..J.SN..1050.|
00000B00: 0D 13 70 03 99 4A 3A 99 3A 89 38 36 30 00 26 13 |..p..J:.:.860.&.|
00000B10: 7A 03 8D 33 32 31 30 3A 8B 43 52 24 B2 22 57 22 |z..3210:.CR$."W"|
00000B20: A7 89 31 30 35 30 00 41 13 84 03 4C B2 C3 28 4E |..1050.A...L..(N|
00000B30: 4D 24 28 4A 29 29 3A 8B 4C B1 37 35 A7 89 39 35 |M$(J)):.L.75..95|
00000B40: 30 00 53 13 8E 03 99 22 11 1D 1D 22 3B 4E 4D 24 |0.S...."...";NM$|
00000B50: 28 4A 29 00 69 13 98 03 8B 4C B1 33 35 A7 99 22 |(J).i....L.35.."|
00000B60: 91 91 22 3B 3A 89 39 34 30 00 73 13 A2 03 99 22 |..";:.940.s...."|
00000B70: 91 22 3B 00 84 13 AC 03 85 4E 4D 24 28 4A 29 3A |.";......NM$(J):|
00000B80: 89 39 38 30 00 A8 13 B6 03 99 22 11 1D 1D 22 3B |.980......"...";|
00000B90: C8 28 4E 4D 24 28 4A 29 2C 37 30 29 3A 99 22 91 |.(NM$(J),70):.".|
00000BA0: 91 22 3B 3A 85 48 31 24 00 CD 13 C0 03 99 22 11 |.";:.H1$......".|
00000BB0: 1D 1D 22 3B C9 28 4E 4D 24 28 4A 29 2C 4C AB 37 |..";.(NM$(J),L.7|
00000BC0: 30 29 3A 99 22 91 22 3B 3A 85 48 32 24 00 E0 13 |0):.".";:.H2$...|
00000BD0: CA 03 4E 4D 24 28 4A 29 B2 48 31 24 AA 48 32 24 |..NM$(J).H1$.H2$|
00000BE0: 00 EA 13 D4 03 89 31 30 35 30 00 03 14 DE 03 8D |......1050......|
00000BF0: 33 33 38 30 3A 99 3A 4C B2 C3 28 5A 4B 24 29 3A |3380:.:L..(ZK$):|
00000C00: 4B B2 30 00 30 14 E8 03 4B B2 4B AA 31 3A 8D 33 |K.0.0...K.K.1:.3|
00000C10: 31 39 30 3A 8B 58 A7 99 22 11 20 20 22 3B 3A 8D |190:.X..". ";:.|
00000C20: 32 33 35 30 3A 85 49 3A 8B 49 A7 89 31 30 33 30 |2350:.I:.I..1030|
00000C30: 00 41 14 F2 03 8B 4B B2 31 33 30 A7 89 31 30 35 |.A....K.130..105|
00000C40: 30 00 50 14 FC 03 99 4B 3A 99 3A 89 31 30 30 30 |0.P....K:.:.1000|
00000C50: 00 69 14 06 04 8D 33 32 31 30 3A 8B 43 52 24 B2 |.i....3210:.CR$.|
00000C60: 22 57 22 A7 89 31 30 35 30 00 89 14 10 04 99 22 |"W"..1050......"|
00000C70: 11 1D 1D 22 3B 46 41 24 28 4B 29 3A 99 22 91 22 |...";FA$(K):."."|
00000C80: 3B 3A 85 46 41 24 28 4B 29 00 98 14 1A 04 8D 32 |;:.FA$(K)......2|
00000C90: 32 38 30 3A 89 31 30 30 00 C1 14 24 04 99 22 93 |280:.100...$..".|
00000CA0: 11 46 41 4D 49 4C 49 45 54 41 4B 2D 4E 55 4D 4D |.FAMILIETAK-NUMM|
00000CB0: 45 52 20 20 22 3B 3A 8D 32 33 35 30 3A 85 46 54 |ER ";:.2350:.FT|
00000CC0: 24 00 DB 14 2E 04 46 54 B2 C5 28 46 54 24 29 3A |$.....FT..(FT$):|
00000CD0: 8B 46 54 B2 30 A7 89 31 30 36 30 00 04 15 38 04 |.FT.0..1060...8.|
00000CE0: 8D 32 33 39 30 3A 8D 33 34 35 30 3A 81 4D B2 31 |.2390:.3450:.M.1|
00000CF0: A4 31 30 3A 8B 5A 4B 24 28 4D 29 B2 22 22 A7 89 |.10:.ZK$(M).""..|
00000D00: 31 31 30 30 00 1A 15 42 04 8B 5A 4B 24 28 4D 29 |1100...B..ZK$(M)|
00000D10: B3 B1 22 22 A7 89 31 31 32 30 00 21 15 4C 04 82 |..""..1120.!.L..|
00000D20: 4D 00 42 15 56 04 99 22 11 4E 49 45 54 20 41 41 |M.B.V..".NIET AA|
00000D30: 4E 57 45 5A 49 47 22 3A 8D 32 32 38 30 3A 89 31 |NWEZIG":.2280:.1|
00000D40: 30 30 00 61 15 60 04 8B 5A 4B 24 28 31 29 B2 22 |00.a.`..ZK$(1)."|
00000D50: 22 AF 5A 4B 24 28 32 29 B2 22 22 A7 89 31 31 37 |".ZK$(2).""..117|
00000D60: 30 00 76 15 6A 04 8B 5A 4B 24 28 31 29 B2 22 22 |0.v.j..ZK$(1).""|
00000D70: A7 89 31 31 35 30 00 98 15 74 04 4A B2 30 3A 4E |..1150...t.J.0:N|
00000D80: 4D 24 28 4A 29 B2 5A 4B 24 28 31 29 3A 8D 32 34 |M$(J).ZK$(1):.24|
00000D90: 36 30 3A 8D 32 37 35 30 00 AD 15 7E 04 8B 5A 4B |60:.2750...~..ZK|
00000DA0: 24 28 32 29 B2 22 22 A7 89 31 31 37 30 00 CF 15 |$(2).""..1170...|
00000DB0: 88 04 4A B2 30 3A 4E 4D 24 28 4A 29 B2 5A 4B 24 |..J.0:NM$(J).ZK$|
00000DC0: 28 32 29 3A 8D 32 34 36 30 3A 8D 32 37 36 30 00 |(2):.2460:.2760.|
00000DD0: FD 15 92 04 4A B2 30 3A 81 4D B2 33 A4 36 3A 4E |....J.0:.M.3.6:N|
00000DE0: 4D 24 28 4A 29 B2 5A 4B 24 28 4D 29 3A 8B 4E 4D |M$(J).ZK$(M):.NM|
00000DF0: 24 28 4A 29 B2 22 22 A7 89 31 32 30 30 00 19 16 |$(J).""..1200...|
00000E00: 9C 04 8D 32 34 36 30 3A 4B 53 B2 C5 28 C8 28 4E |...2460:KS..(.(N|
00000E10: 4D 24 28 4A 29 2C 31 29 29 00 35 16 A6 04 91 4B |M$(J),1)).5....K|
00000E20: 53 8D 32 37 38 30 2C 32 37 39 30 2C 32 38 32 30 |S.2780,2790,2820|
00000E30: 2C 32 38 33 30 00 3C 16 B0 04 82 4D 00 55 16 BA |,2830.<....M.U..|
00000E40: 04 8D 33 33 39 30 3A 8B 4B 59 24 B3 B1 22 4A 22 |..3390:.KY$.."J"|
00000E50: A7 89 31 30 30 00 8A 16 C4 04 8D 32 33 39 30 3A |..100......2390:|
00000E60: 4A B2 30 3A 81 4D B2 37 A4 31 30 3A 4E 4D 24 28 |J.0:.M.7.10:NM$(|
00000E70: 4A 29 B2 5A 4B 24 28 4D 29 3A 8B 4E 4D 24 28 4A |J).ZK$(M):.NM$(J|
00000E80: 29 B2 22 22 A7 89 31 32 39 30 00 A6 16 CE 04 8D |).""..1290......|
00000E90: 32 34 36 30 3A 4B 53 B2 C5 28 C8 28 4E 4D 24 28 |2460:KS..(.(NM$(|
00000EA0: 4A 29 2C 31 29 29 00 B5 16 D8 04 8B 4B 53 B2 35 |J),1))......KS.5|
00000EB0: A7 4B 53 B2 31 00 C4 16 E2 04 8B 4B 53 B2 36 A7 |.KS.1......KS.6.|
00000EC0: 4B 53 B2 32 00 D3 16 EC 04 8B 4B 53 B2 37 A7 4B |KS.2......KS.7.K|
00000ED0: 53 B2 33 00 E2 16 F6 04 8B 4B 53 B2 38 A7 4B 53 |S.3......KS.8.KS|
00000EE0: B2 34 00 FE 16 00 05 91 4B 53 8D 32 37 38 30 2C |.4......KS.2780,|
00000EF0: 32 37 39 30 2C 32 38 32 30 2C 32 38 33 30 00 05 |2790,2820,2830..|
00000F00: 17 0A 05 82 4D 00 1E 17 14 05 8D 33 33 39 30 3A |....M......3390:|
00000F10: 8B 4B 59 24 B3 B1 22 4A 22 A7 89 31 30 30 00 28 |.KY$.."J"..100.(|
00000F20: 17 1E 05 89 31 30 36 30 00 37 17 28 05 8B 46 4C |....1060.7.(..FL|
00000F30: B3 32 A7 46 4C B2 32 00 69 17 32 05 99 22 93 54 |.2.FL.2.i.2..".T|
00000F40: 41 4B 2D 52 45 47 49 53 54 45 52 22 3B 46 4C AB |AK-REGISTER";FL.|
00000F50: 31 3B 22 20 46 49 4C 45 20 22 3B 46 4C 24 3A 99 |1;" FILE ";FL$:.|
00000F60: 3A 4B B2 30 3A 50 47 B2 30 00 7F 17 3C 05 8B 4B |:K.0:PG.0...<..K|
00000F70: B2 31 33 30 A7 8D 32 32 38 30 3A 89 31 30 30 00 |.130..2280:.100.|
00000F80: 91 17 46 05 4B B2 4B AA 31 3A 50 47 B2 50 47 AA |..F.K.K.1:PG.PG.|
00000F90: 31 00 A7 17 50 05 8B 4B B1 31 33 30 A7 8D 32 32 |1...P..K.130..22|
00000FA0: 38 30 3A 89 31 30 30 00 B3 17 5A 05 99 46 41 24 |80:.100...Z..FA$|
00000FB0: 28 4B 29 00 CF 17 64 05 8B 50 47 B2 32 30 A7 50 |(K)...d..PG.20.P|
00000FC0: 47 B2 30 3A 8D 33 34 30 30 3A 89 31 34 30 30 00 |G.0:.3400:.1400.|
00000FD0: D9 17 6E 05 89 31 33 34 30 00 EC 17 78 05 8B 4B |..n..1340...x..K|
00000FE0: 59 24 B3 B1 22 4A 22 A7 89 31 30 30 00 04 18 82 |Y$.."J"..100....|
00000FF0: 05 8B 4B 59 24 B2 22 4A 22 A7 99 22 93 22 3A 89 |..KY$."J"..".":.|
00001000: 31 33 34 30 00 1D 18 8C 05 99 22 93 53 54 41 4D |1340......".STAM|
00001010: 42 4F 4F 4D 22 3A 99 3A 8D 32 38 36 30 00 3A 18 |BOOM":.:.2860.:.|
00001020: 96 05 81 49 B2 31 A4 31 39 3A 99 53 43 24 28 49 |...I.1.19:.SC$(I|
00001030: 29 3A 82 49 3A 8D 32 32 38 30 00 4D 18 A0 05 99 |):.I:.2280.M....|
00001040: 22 93 53 54 41 4D 42 4F 4F 4D 22 3A 99 00 69 18 |".STAMBOOM":..i.|
00001050: AA 05 81 49 B2 32 30 A4 32 32 3A 99 53 43 24 28 |...I.20.22:.SC$(|
00001060: 49 29 3A 82 49 3A 99 3A 99 00 85 18 B4 05 81 49 |I):.I:.:.......I|
00001070: B2 32 33 A4 32 35 3A 99 53 43 24 28 49 29 3A 82 |.23.25:.SC$(I):.|
00001080: 49 3A 99 3A 99 00 A1 18 BE 05 81 49 B2 32 36 A4 |I:.:.......I.26.|
00001090: 32 38 3A 99 53 43 24 28 49 29 3A 82 49 3A 99 3A |28:.SC$(I):.I:.:|
000010A0: 99 00 BD 18 C8 05 81 49 B2 32 39 A4 33 31 3A 99 |.......I.29.31:.|
000010B0: 53 43 24 28 49 29 3A 82 49 3A 99 3A 99 00 CC 18 |SC$(I):.I:.:....|
000010C0: D2 05 8D 32 32 38 30 3A 89 31 30 30 00 0E 19 DC |...2280:.100....|
000010D0: 05 99 22 93 12 20 32 20 46 49 4C 45 53 20 56 4F |..".. 2 FILES VO|
000010E0: 4F 52 20 52 45 47 49 53 54 45 52 20 45 4E 20 44 |OR REGISTER EN D|
000010F0: 41 54 41 20 92 22 3A 97 37 38 38 2C 34 39 3A 8F |ATA .":.788,49:.|
00001100: 20 53 54 4F 50 54 4F 45 54 53 20 41 41 4E 00 27 | STOPTOETS AAN.'|
00001110: 19 E6 05 8D 33 36 32 30 3A 8B 53 4C 24 B2 22 53 |....3620:.SL$."S|
00001120: 22 A7 89 31 35 34 30 00 3A 19 F0 05 8B 53 4C 24 |"..1540.:....SL$|
00001130: B2 22 4C 22 A7 89 31 36 38 30 00 43 19 FA 05 89 |."L"..1680.C....|
00001140: 31 30 30 00 6D 19 04 06 99 22 11 46 49 4C 45 2D |100.m....".FILE-|
00001150: 4E 55 4D 4D 45 52 20 52 45 47 49 53 54 45 52 20 |NUMMER REGISTER |
00001160: 20 22 3B 3A 8D 32 33 35 30 3A 85 46 4C 00 90 19 | ";:.2350:.FL...|
00001170: 0E 06 99 22 11 52 45 57 49 4E 44 20 28 4A 2F 4E |...".REWIND (J/N|
00001180: 29 20 20 22 3B 3A 8D 32 33 34 30 3A 85 52 57 24 |) ";:.2340:.RW$|
00001190: 00 A4 19 18 06 8B 52 57 24 B3 B1 22 4A 22 A7 89 |......RW$.."J"..|
000011A0: 31 35 30 30 00 D9 19 22 06 8D 33 36 35 30 3A 99 |1500..."..3650:.|
000011B0: 22 11 53 41 56 45 20 3D 20 52 45 47 49 53 54 45 |".SAVE = REGISTE|
000011C0: 52 20 46 49 4C 45 20 22 3B 46 4C 3B 22 20 20 54 |R FILE ";FL;" T|
000011D0: 41 4B 4B 45 4E 3A 22 3B 4E 00 FC 19 2C 06 8D 33 |AKKEN:";N...,..3|
000011E0: 37 30 30 3A 9F 46 4C 2C 31 2C 31 2C 46 4C 24 3A |700:.FL,1,1,FL$:|
000011F0: 98 46 4C 2C 53 4E 3A 98 46 4C 2C 4E 00 1E 1A 36 |.FL,SN:.FL,N...6|
00001200: 06 81 4B B2 31 A4 4E AB 31 3A 98 46 4C 2C 46 41 |..K.1.N.1:.FL,FA|
00001210: 24 28 4B 29 3A 82 4B 3A 98 46 4C 2C 46 4C 00 34 |$(K):.K:.FL,FL.4|
00001220: 1A 40 06 A0 46 4C 3A 46 4C B2 46 4C AA 31 3A 8D |.@..FL:FL.FL.1:.|
00001230: 32 33 36 30 00 5A 1A 4A 06 99 22 11 53 41 56 45 |2360.Z.J..".SAVE|
00001240: 20 46 49 4C 45 2D 4E 41 41 4D 20 20 20 22 3B 3A | FILE-NAAM ";:|
00001250: 8D 32 33 34 30 3A 85 46 4C 24 00 70 1A 54 06 99 |.2340:.FL$.p.T..|
00001260: 22 11 53 41 56 45 20 3D 20 22 3B 46 4C 24 3A 99 |".SAVE = ";FL$:.|
00001270: 00 A9 1A 5E 06 9F 46 4C 2C 31 2C 31 2C 46 4C 24 |...^..FL,1,1,FL$|
00001280: 3A 81 4A B2 31 A4 53 4E AB 31 3A 4C B2 C3 28 4E |:.J.1.SN.1:L..(N|
00001290: 4D 24 28 4A 29 29 3A 53 48 24 B2 CA 28 4E 4D 24 |M$(J)):SH$..(NM$|
000012A0: 28 4A 29 2C 31 2C 33 30 29 00 D8 1A 68 06 53 46 |(J),1,30)...h.SF|
000012B0: 24 B2 C8 28 4E 4D 24 28 4A 29 2C 33 31 29 3A 8B |$..(NM$(J),31):.|
000012C0: C9 28 53 46 24 2C 31 29 B2 22 20 22 A7 53 48 24 |.(SF$,1)." ".SH$|
000012D0: B2 53 48 24 AA 22 20 22 00 0D 1B 72 06 53 45 24 |.SH$." "...r.SE$|
000012E0: B2 CA 28 4E 4D 24 28 4A 29 2C 33 31 2C 4C 29 3A |..(NM$(J),31,L):|
000012F0: 98 46 4C 2C 53 48 24 3A 98 46 4C 2C 53 45 24 3A |.FL,SH$:.FL,SE$:|
00001300: 82 4A 3A 98 46 4C 2C 46 4C 3A A0 46 4C 00 35 1B |.J:.FL,FL:.FL.5.|
00001310: 7C 06 8D 32 33 36 30 3A 99 22 11 46 49 4C 45 20 ||..2360:.".FILE |
00001320: 22 3B 46 4C 3B 22 20 22 3B 46 4C 24 3B 22 20 4B |";FL;" ";FL$;" K|
00001330: 4C 41 41 52 22 00 44 1B 86 06 8D 32 32 38 30 3A |LAAR".D....2280:|
00001340: 89 31 30 30 00 73 1B 90 06 54 41 B2 31 3A 99 22 |.100.s...TA.1:."|
00001350: 11 46 49 4C 45 2D 4E 55 4D 4D 45 52 20 52 45 47 |.FILE-NUMMER REG|
00001360: 49 53 54 45 52 20 20 22 3B 3A 8D 32 33 35 30 3A |ISTER ";:.2350:|
00001370: 85 46 4C 00 96 1B 9A 06 99 22 11 52 45 57 49 4E |.FL......".REWIN|
00001380: 44 20 28 4A 2F 4E 29 20 20 22 3B 3A 8D 32 33 34 |D (J/N) ";:.234|
00001390: 30 3A 85 52 57 24 00 AA 1B A4 06 8B 52 57 24 B3 |0:.RW$......RW$.|
000013A0: B1 22 4A 22 A7 89 31 35 30 30 00 CB 1B AE 06 99 |."J"..1500......|
000013B0: 22 11 4C 4F 41 44 20 3D 20 52 45 47 49 53 54 45 |".LOAD = REGISTE|
000013C0: 52 20 46 49 4C 45 20 22 3B 46 4C 00 EE 1B B8 06 |R FILE ";FL.....|
000013D0: 8D 33 37 30 30 3A 9F 46 4C 2C 31 2C 30 2C 46 4C |.3700:.FL,1,0,FL|
000013E0: 24 3A 84 46 4C 2C 53 4E 3A 84 46 4C 2C 4E 00 0B |$:.FL,SN:.FL,N..|
000013F0: 1C C2 06 99 22 11 9D 22 3B 4E 3B 22 20 56 4F 4C |...."..";N;" VOL|
00001400: 47 45 4E 53 20 42 41 4E 44 20 22 00 27 1C C7 06 |GENS BAND ".'...|
00001410: 99 22 11 41 41 4E 54 41 4C 20 20 20 22 3B 3A 8D |.".AANTAL ";:.|
00001420: 32 33 35 30 3A 85 4E 00 49 1C CC 06 81 4B B2 31 |2350:.N.I....K.1|
00001430: A4 4E AB 31 3A 84 46 4C 2C 46 41 24 28 4B 29 3A |.N.1:.FL,FA$(K):|
00001440: 82 4B 3A 84 46 4C 2C 46 4C 00 64 1C D1 06 8B 53 |.K:.FL,FL.d....S|
00001450: 54 B2 36 34 A7 A0 46 4C 3A 46 4C B2 46 4C AA 31 |T.64..FL:FL.FL.1|
00001460: 3A 4E B2 4B 00 89 1C D6 06 99 22 11 4C 4F 41 44 |:N.K......".LOAD|
00001470: 20 46 49 4C 45 2D 4E 41 41 4D 20 20 22 3B 3A 8D | FILE-NAAM ";:.|
00001480: 32 33 34 30 3A 85 46 4C 24 00 9F 1C E0 06 99 22 |2340:.FL$......"|
00001490: 11 4C 4F 41 44 20 3D 20 22 3B 46 4C 24 3A 99 00 |.LOAD = ";FL$:..|
000014A0: C1 1C EA 06 9F 46 4C 2C 31 2C 30 2C 46 4C 24 3A |.....FL,1,0,FL$:|
000014B0: 81 4A B2 31 A4 53 4E AB 31 3A 84 46 4C 2C 53 48 |.J.1.SN.1:.FL,SH|
000014C0: 24 00 DC 1C F4 06 84 46 4C 2C 53 45 24 3A 4E 4D |$......FL,SE$:NM|
000014D0: 24 28 4A 29 B2 53 48 24 AA 53 45 24 00 EA 1C FE |$(J).SH$.SE$....|
000014E0: 06 82 4A 3A 84 46 4C 2C 46 4C 00 F9 1C 03 07 8B |..J:.FL,FL......|
000014F0: 53 54 B2 36 34 A7 A0 46 4C 00 1B 1D 08 07 8D 32 |ST.64..FL......2|
00001500: 33 36 30 3A 99 22 11 49 4E 56 4F 45 52 4E 55 4D |360:.".INVOERNUM|
00001510: 4D 45 52 20 49 53 20 22 3B 53 4E 00 42 1D 12 07 |MER IS ";SN.B...|
00001520: 99 22 11 46 49 4C 45 20 49 4E 20 43 4F 4D 50 20 |.".FILE IN COMP |
00001530: 49 53 20 22 3B 46 4C 3A 8D 32 32 38 30 3A 89 31 |IS ";FL:.2280:.1|
00001540: 30 30 00 6F 1D 1C 07 99 C8 28 41 24 2C 31 37 29 |00.o.....(A$,17)|
00001550: 3B C8 28 42 24 2C 32 30 29 3B 22 57 41 43 48 54 |;.(B$,20);"WACHT|
00001560: 20 21 22 3A 81 4A B2 31 A4 31 30 30 30 3A 82 00 | !":.J.1.1000:..|
00001570: 90 1D 1E 07 99 C8 28 41 24 2C 31 37 29 3B C8 28 |......(A$,17);.(|
00001580: 42 24 2C 32 30 29 3B 22 20 20 20 20 20 20 20 22 |B$,20);" "|
00001590: 00 C4 1D 21 07 46 52 B2 B8 28 30 29 AB 28 B4 28 |...!.FR..(0).(.(|
000015A0: B8 28 30 29 29 B3 30 29 AC 36 35 35 33 35 3A 99 |.(0)).0).65535:.|
000015B0: C8 28 41 24 2C 31 37 29 3B C8 28 42 24 2C 32 30 |.(A$,17);.(B$,20|
000015C0: 29 3B 46 52 00 E9 1D 26 07 99 C8 28 41 24 2C 31 |);FR...&...(A$,1|
000015D0: 30 29 3B C8 28 42 24 2C 32 30 29 3B 53 4E 3A 8D |0);.(B$,20);SN:.|
000015E0: 32 32 38 30 3A 89 31 30 30 00 01 1E 30 07 99 22 |2280:.100...0.."|
000015F0: 93 50 52 49 4E 54 45 52 20 4B 4C 41 41 52 20 21 |.PRINTER KLAAR !|
00001600: 22 00 3D 1E 3A 07 99 22 11 50 52 49 4E 54 3A 20 |".=.:..".PRINT: |
00001610: 20 12 52 92 45 47 49 53 54 45 52 20 20 12 53 92 | .R.EGISTER .S.|
00001620: 54 41 4D 42 4F 4F 4D 20 20 12 54 92 41 4B 20 20 |TAMBOOM .T.AK |
00001630: 22 3B 3A 8D 32 33 34 30 3A 85 50 52 24 00 69 1E |";:.2340:.PR$.i.|
00001640: 44 07 99 22 11 50 52 49 4E 54 45 52 20 41 41 4E |D..".PRINTER AAN|
00001650: 2D 55 49 54 20 28 41 2F 55 29 20 20 22 3B 3A 8D |-UIT (A/U) ";:.|
00001660: 32 33 34 30 3A 85 4B 59 24 00 83 1E 4E 07 99 3A |2340:.KY$...N..:|
00001670: 8B 4B 59 24 B2 22 41 22 A7 46 4C B2 31 3A 89 31 |.KY$."A".FL.1:.1|
00001680: 39 30 30 00 95 1E 58 07 8B 4B 59 24 B2 22 55 22 |900...X..KY$."U"|
00001690: A7 89 31 30 30 00 9F 1E 62 07 89 31 38 34 30 00 |..100...b..1840.|
000016A0: B2 1E 6C 07 8B 50 52 24 B2 22 53 22 A7 89 31 39 |..l..PR$."S"..19|
000016B0: 34 30 00 C5 1E 76 07 8B 50 52 24 B2 22 52 22 A7 |40...v..PR$."R".|
000016C0: 89 32 30 32 30 00 D8 1E 80 07 8B 50 52 24 B2 22 |.2020......PR$."|
000016D0: 54 22 A7 89 32 30 38 30 00 E2 1E 8A 07 89 31 38 |T"..2080......18|
000016E0: 34 30 00 FE 1E 94 07 99 22 11 57 41 43 48 54 20 |40......".WACHT |
000016F0: 21 22 3A 8D 32 38 36 30 3A 8D 33 34 31 30 00 14 |!":.2860:.3410..|
00001700: 1F 9E 07 9F 34 2C 34 3A 98 34 2C 42 52 24 3A 98 |....4,4:.4,BR$:.|
00001710: 34 2C 51 24 00 31 1F A8 07 81 49 B2 32 39 A4 33 |4,Q$.1....I.29.3|
00001720: 31 3A 98 34 2C 53 43 24 28 49 29 3A 82 49 3A 98 |1:.4,SC$(I):.I:.|
00001730: 34 00 4E 1F B2 07 81 49 B2 32 36 A4 32 38 3A 98 |4.N....I.26.28:.|
00001740: 34 2C 53 43 24 28 49 29 3A 82 49 3A 98 34 00 6B |4,SC$(I):.I:.4.k|
00001750: 1F BC 07 81 49 B2 32 33 A4 32 35 3A 98 34 2C 53 |....I.23.25:.4,S|
00001760: 43 24 28 49 29 3A 82 49 3A 98 34 00 8B 1F C6 07 |C$(I):.I:.4.....|
00001770: 81 49 B2 32 30 A4 32 32 3A 98 34 2C 53 43 24 28 |.I.20.22:.4,SC$(|
00001780: 49 29 3A 82 49 3A 98 34 3A 98 34 00 B3 1F D0 07 |I):.I:.4:.4.....|
00001790: 81 49 B2 31 A4 31 39 3A 98 34 2C 53 43 24 28 49 |.I.1.19:.4,SC$(I|
000017A0: 29 3A 82 49 3A 98 34 2C 51 24 3A 98 34 3A 98 34 |):.I:.4,Q$:.4:.4|
000017B0: 3A A0 34 00 C3 1F DA 07 8D 32 38 36 30 3A 89 31 |:.4......2860:.1|
000017C0: 38 34 30 00 E6 1F E4 07 99 22 11 52 45 47 49 53 |840......".REGIS|
000017D0: 54 45 52 20 46 49 4C 45 20 20 22 3B 3A 8D 32 33 |TER FILE ";:.23|
000017E0: 35 30 3A 85 46 4C 00 FD 1F EE 07 8B 46 4C B2 30 |50:.FL......FL.0|
000017F0: A7 99 22 91 91 91 22 3A 89 32 30 32 30 00 30 20 |.."...":.2020.0 |
00001800: F8 07 9F 46 4C 2C 34 2C 31 3A 98 46 4C 2C 22 52 |...FL,4,1:.FL,"R|
00001810: 45 47 49 53 54 45 52 20 22 3B 46 4C 3B 3A 98 46 |EGISTER ";FL;:.F|
00001820: 4C 2C 46 4C 24 3A 98 46 4C 2C 51 24 3A 4B B2 30 |L,FL$:.FL,Q$:K.0|
00001830: 00 6A 20 02 08 4B B2 4B AA 31 3A 51 B2 C3 28 46 |.j ..K.K.1:Q..(F|
00001840: 41 24 28 4B 29 29 3A 98 46 4C 2C 46 41 24 28 4B |A$(K)):.FL,FA$(K|
00001850: 29 3B A3 34 30 AB 51 29 3B 3A 4B B2 4B AA 31 3A |);.40.Q);:K.K.1:|
00001860: 98 46 4C 2C 46 41 24 28 4B 29 00 8E 20 0C 08 8B |.FL,FA$(K).. ...|
00001870: 4B B1 4E AB 31 A7 98 46 4C 2C 51 24 3A 98 46 4C |K.N.1..FL,Q$:.FL|
00001880: 3A 98 46 4C 3A A0 46 4C 3A 89 31 38 34 30 00 98 |:.FL:.FL:.1840..|
00001890: 20 16 08 89 32 30 35 30 00 C6 20 20 08 99 51 24 | ...2050.. ..Q$|
000018A0: 3A 46 54 B2 30 3A 99 22 11 46 41 4D 49 4C 49 45 |:FT.0:.".FAMILIE|
000018B0: 2D 54 41 4B 20 4E 52 2E 20 20 22 3B 3A 8D 32 33 |-TAK NR. ";:.23|
000018C0: 35 30 3A 85 46 54 00 F1 20 2A 08 8D 33 34 35 30 |50:.FT.. *..3450|
000018D0: 3A 81 4D B2 31 A4 31 30 3A 9F 46 4C 2C 34 2C 31 |:.M.1.10:.FL,4,1|
000018E0: 3A 8B 5A 4B 24 28 4D 29 B2 22 22 A7 89 32 31 31 |:.ZK$(M).""..211|
000018F0: 30 00 07 21 34 08 8B 5A 4B 24 28 4D 29 B3 B1 22 |0..!4..ZK$(M).."|
00001900: 22 A7 89 32 31 32 30 00 2F 21 3E 08 A0 46 4C 3A |"..2120./!>..FL:|
00001910: 82 4D 3A 99 22 11 4E 49 45 54 20 41 41 4E 57 45 |.M:.".NIET AANWE|
00001920: 5A 49 47 22 3A 8D 32 32 38 30 3A 89 31 30 30 00 |ZIG":.2280:.100.|
00001930: 51 21 48 08 98 46 4C 2C 22 46 41 4D 49 4C 49 45 |Q!H..FL,"FAMILIE|
00001940: 2D 54 41 4B 3A 20 22 3B 46 54 3A 98 46 4C 2C 51 |-TAK: ";FT:.FL,Q|
00001950: 24 00 70 21 52 08 8B 5A 4B 24 28 31 29 B2 22 22 |$.p!R..ZK$(1).""|
00001960: AF 5A 4B 24 28 32 29 B2 22 22 A7 89 32 31 38 30 |.ZK$(2).""..2180|
00001970: 00 85 21 5C 08 8B 5A 4B 24 28 31 29 B2 22 22 A7 |..!\..ZK$(1)."".|
00001980: 89 32 31 36 30 00 A7 21 66 08 4A B2 30 3A 4E 4D |.2160..!f.J.0:NM|
00001990: 24 28 4A 29 B2 5A 4B 24 28 31 29 3A 8D 32 34 36 |$(J).ZK$(1):.246|
000019A0: 30 3A 8D 33 35 34 30 00 BC 21 70 08 8B 5A 4B 24 |0:.3540..!p..ZK$|
000019B0: 28 32 29 B2 22 22 A7 89 32 31 38 30 00 DE 21 7A |(2).""..2180..!z|
000019C0: 08 4A B2 30 3A 4E 4D 24 28 4A 29 B2 5A 4B 24 28 |.J.0:NM$(J).ZK$(|
000019D0: 32 29 3A 8D 32 34 36 30 3A 8D 33 35 34 30 00 11 |2):.2460:.3540..|
000019E0: 22 84 08 98 46 4C 3A 4A B2 30 3A 81 4D B2 33 A4 |"...FL:J.0:.M.3.|
000019F0: 31 30 3A 4E 4D 24 28 4A 29 B2 5A 4B 24 28 4D 29 |10:NM$(J).ZK$(M)|
00001A00: 3A 8B 4E 4D 24 28 4A 29 B2 22 22 A7 89 32 32 30 |:.NM$(J).""..220|
00001A10: 30 00 21 22 8E 08 8D 32 34 36 30 3A 8D 33 35 38 |0.!"...2460:.358|
00001A20: 30 00 28 22 98 08 82 4D 00 3F 22 A2 08 98 46 4C |0.("...M.?"...FL|
00001A30: 2C 51 24 3A 98 46 4C 3A 98 46 4C 3A A0 46 4C 00 |,Q$:.FL:.FL:.FL.|
00001A40: 68 22 AC 08 99 22 93 11 50 52 49 4E 54 45 52 20 |h"..."..PRINTER |
00001A50: 55 49 54 20 28 41 2F 55 29 20 20 22 3B 3A 8D 32 |UIT (A/U) ";:.2|
00001A60: 33 34 30 3A 85 4B 59 24 00 99 22 B6 08 8B 4B 59 |340:.KY$.."...KY|
00001A70: 24 B3 B1 22 55 22 A7 46 54 B2 46 54 AA 31 3A 99 |$.."U".FT.FT.1:.|
00001A80: 22 93 11 46 41 4D 49 4C 49 45 2D 54 41 4B 20 22 |"..FAMILIE-TAK "|
00001A90: 3B 46 54 3A 89 32 30 39 30 00 A2 22 C0 08 89 31 |;FT:.2090.."...1|
00001AA0: 30 30 00 D1 22 CA 08 99 22 93 11 54 45 52 55 47 |00.."..."..TERUG|
00001AB0: 20 4E 41 41 52 20 4D 45 4E 55 20 4F 46 20 4B 4C | NAAR MENU OF KL|
00001AC0: 41 41 52 20 28 4D 2F 4B 29 20 |AAR (M/K) |
..(.(.. SAVE/LOAD FILE 0 NIET TOEGESTAAN
.:.2..J.1.130: J:..Y.<..:.3640:.53280,14
:.53281,0. .F..FA$(130),NM$(175),A$(26),
B$(41),SCS$(31),NT$(11),ZK$(11),ZN$(130)
.W.P.FL.1:N.1:SN.1:.I.1.130:ZN$(I).I(D(I
),C(D(I)).1):.I...Z.Q$."":.I.1.80:Q$.Q$.
"-":.I:ZK$(11)."STOP"...D..". .* STAMBO
OM *.".A.N.A$.".........................
"...X.B$."..............................
...........":.788,52:. STOPTOETS UIT....
.."..GOTO 100 NA BREAK..".D....".@. = ME
NU BIJ FOUT"......".. .* MENU *."...
..".1 = INVOER ROUTINE":."2 = CORRECTIES
".6...."3 = FAM.-TAK ZIEN":."4 = TAK-REG
ISTER".E...."5 = STAMBOOM ZIEN":.".6 = C
ASS-ROUTINES"......"7 = FRE(0) ZIEN ":.
".8 = PRINT STAMBOOM":."9 = KLAAR"...H..
2280:.:I.0.I.R..1,2,3,4,5,6,7,8,9.....I.
I.1:.ME$:.ME$.KY$..250......I.9..220....
..200.4....I.260,810,1060,1320,1420,1500
,1820,1840,2250:.100.G....".":.J.SN.175.
....."..F.AM.HOOFD - .E.CHTGENOTE - .K.I
ND ";:.2340:.KY$......:FH$.KY$:.KY$."F"
.TK.TK.1:.390..."..KY$."E".TK.1.NM$(1)."
":FA$(1)."":J.0:SN.1:N.1:TK.0:.100...,..
KY$."E"..400...6..KY$."K"..330...@.."...
.":.270.'.J..KD..0..350.S.T.."MAX. KINDE
REN NR.1-8 (9=MENU)":KD.0...^.KD.KD.1:
.".KIND NUMM. ";KD;"....";:.KN$...H..E
(KN$).8.KD.0:.100...R..E(KN$)..KD.KD.E(K
N$).O.|.C$.FH$:.FH$."K".FH$.KN$......J.1
..410.....DL.TK.2:.DL...(DL).H(NM$(J.1),
1)."E".TK.TK.1......TK.10..".";.X...."..
.................TAK-NUMMER ";TK;"...
..";:.TK.I....TK.130..100.X....TK.1..100
...B..:."FAM.NAAM ";:.2340:.FM$...L..
"VOORNAMEN ";:.2340:.VN$.Z.V.."GEB.DAT
UM ";:.2340:.GD$......"GB.PLAATS ";:
.2340:.GP$......"OVERLEDEN ";:.2340:.O
L$.:...."HUW.DATUM ";:.2340:.HD$.Z....
"GEH.TE/MET ";:.2340:.HP$.....A1.C(FM$)
:A2.C(VN$):A3.C(GD$):A4.C(GP$):A5.C(OL$)
:A6.C(HD$).....A7.C(HP$):A8.A1.A2.A3.A4.
A5.A6.A7:.A8.110..".TEKST IS TE LANG"...
..."@ = FOUT ";:.2340:.KY$...&..:.KY$
.."@"..580.+.0..H(C$,1)."K".KD.KD.1.B.:.
.KY$."@"..".":.270...D.SN.J:NM$(J).FH$."
".FM$." ".VN$."/".GD$." ".GP$." ".OL$."
".HD$." ".HP$...N..C(ZN$(TK)).1.ZN$(TK)
."00".ZN$(TK):.610...X..C(ZN$(TK)).2.ZN$
(TK)."0".ZN$(TK)...B.NM$(J).NM$(J)." ".Z
N$(TK):.H(NM$(J),1)."F".KD.0...L..H(NM$(
J),1)."E".KD.0.>.V..KD..0..740.P...K.N:.
K.1..660.|...DL.TK.2:.DL...(DL).H(NM$(J)
,1)."F"..100......"REGISTER-NUMMER ";
TK;"......";:.K......K.1..690.J....3370:
N.N.1:.740.....DL.TK.2:.DL..(DL).H(NM$(J
),1)."E".N.N.1.%....DL..(DL).H(NM$(J),1)
."E"..3330:K.K.1:.720.E.F..H(NM$(J),1)."
F"..3370:.730.U.P..3370:N.N.1.{.Z..K.130
.."..REGISTER IS VOL.":.100......".INVOE
RNR.=";SN;" ";"TAK-NR.=";TK:.NM$(J)..
....".MENU .6. LAATSTE INPUT MET ECHTGE
NOTE"......2280:.KY$..G(32)..780......KY
$.G(32)..790.....SN.SN.1:.100.;....".":.
J:."..BOOM IS VOL.".J. ..2280:.100.}.*..
"..CORR. TAK OF REGISTER (T/R) ";:.2340
:.CD$...4..CD$."T"..850...>..CD$."R"..99
0...H..810.C.R..3380:.:L.C(ZK$):J.0...\.
J.J.1:.3170:.X..". ";:.2350:.I:.I..890.
..F..J.SN..1050...P..J:.:.860.&.Z..3210:
.CR$."W"..1050.A...L.C(NM$(J)):.L.75..95
0.S...."...";NM$(J).I....L.35.."..";:.94
0.S....".";......NM$(J):.980......"...";
H(NM$(J),70):."..";:.H1$.M...."...";I(NM
$(J),L.70):.".";:.H2$...J.NM$(J).H1$.H2$
...T..1050......3380:.:L.C(ZK$):K.0.0...
K.K.1:.3190:.X..". ";:.2350:.I:.I..1030
.A....K.130..1050.P....K:.:.1000.I....32
10:.CR$."W"..1050......"...";FA$(K):."."
;:.FA$(K)......2280:.100.A.$.."..FAMILIE
TAK-NUMMER ";:.2350:.FT$.....FT.E(FT$):
.FT.0..1060...8..2390:.3450:.M.1.10:.ZK$
(M).""..1100...B..ZK$(M)..""..1120.!.L..
M.B.V..".NIET AANWEZIG":.2280:.100.A.`..
ZK$(1)."".ZK$(2).""..1170.V.J..ZK$(1).""
..1150...T.J.0:NM$(J).ZK$(1):.2460:.2750
...~..ZK$(2).""..1170.O...J.0:NM$(J).ZK$
(2):.2460:.2760.....J.0:.M.3.6:NM$(J).ZK
$(M):.NM$(J).""..1200......2460:KS.E(H(N
M$(J),1)).5....KS.2780,2790,2820,2830.<.
...M.U....3390:.KY$.."J"..100...D..2390:
J.0:.M.7.10:NM$(J).ZK$(M):.NM$(J).""..12
90...N..2460:KS.E(H(NM$(J),1))...X..KS.5
.KS.1.D....KS.6.KS.2.S....KS.7.KS.3.....
.KS.8.KS.4......KS.2780,2790,2820,2830..
....M......3390:.KY$.."J"..100.(....1060
.7.(..FL.2.FL.2.I.2..".TAK-REGISTER";FL.
1;" FILE ";FL$:.:K.0:PG.0..<..K.130..22
80:.100...F.K.K.1:PG.PG.1...P..K.130..22
80:.100...Z..FA$(K).O.D..PG.20.PG.0:.340
0:.1400.Y.N..1340...X..KY$.."J"..100....
..KY$."J"..".":.1340......".STAMBOOM":.:
.2860.:....I.1.19:.SC$(I):.I:.2280.M. ..
".STAMBOOM":..I....I.20.22:.SC$(I):.I:.:
.......I.23.25:.SC$(I):.I:.:.......I.26.
28:.SC$(I):.I:.:....H..I.29.31:.SC$(I):.
I:.:..L.R..2280:.100......".. 2 FILES VO
OR REGISTER EN DATA .":.788,49:. STOPTOE
TS AAN.'....3620:.SL$."S"..1540.:....SL$
."L"..1680.C....100.M....".FILE-NUMMER R
EGISTER ";:.2350:.FL......".REWIND (J/N
) ";:.2340:.RW$......RW$.."J"..1500.Y."
..3650:.".SAVE = REGISTER FILE ";FL;" T
AKKEN:";N...,..3700:.FL,1,1,FL$:.FL,SN:.
FL,N...6..K.1.N.1:.FL,FA$(K):.K:.FL,FL.4
.@. FL:FL.FL.1:.2360.Z.J..".SAVE FILE-NA
AM ";:.2340:.FL$.P.T..".SAVE = ";FL$:.
...^..FL,1,1,FL$:.J.1.SN.1:L.C(NM$(J)):S
H$.J(NM$(J),1,30).X.H.SF$.H(NM$(J),31):.
I(SF$,1)." ".SH$.SH$." "...R.SE$.J(NM$(J
),31,L):.FL,SH$:.FL,SE$:.J:.FL,FL: FL.5.
|..2360:.".FILE ";FL;" ";FL$;" KLAAR".D.
...2280:.100.S...TA.1:.".FILE-NUMMER REG
ISTER ";:.2350:.FL......".REWIND (J/N)
";:.2340:.RW$......RW$.."J"..1500.K....
".LOAD = REGISTER FILE ";FL......3700:.F
L,1,0,FL$:.FL,SN:.FL,N...B.."..";N;" VOL
GENS BAND ".'.G..".AANTAL ";:.2350:.N.
I.L..K.1.N.1:.FL,FA$(K):.K:.FL,FL.D.Q..S
T.64. FL:FL.FL.1:N.K...V..".LOAD FILE-NA
AM ";:.2340:.FL$......".LOAD = ";FL$:..
A....FL,1,0,FL$:.J.1.SN.1:.FL,SH$......F
L,SE$:NM$(J).SH$.SE$......J:.FL,FL......
ST.64. FL......2360:.".INVOERNUMMER IS "
;SN.B....".FILE IN COMP IS ";FL:.2280:.1
00.O....H(A$,17);H(B$,20);"WACHT !":.J.1
.1000:.......H(A$,17);H(B$,20);" "
.D.!.FR..(0).(.(.(0)).0).65535:.H(A$,17)
;H(B$,20);FR...&..H(A$,10);H(B$,20);SN:.
2280:.100...0..".PRINTER KLAAR !".=.:.."
.PRINT: .R.EGISTER .S.TAMBOOM .T.AK
";:.2340:.PR$.I.D..".PRINTER AAN-UIT (A/
U) ";:.2340:.KY$...N..:.KY$."A".FL.1:.1
900...X..KY$."U"..100...B..1840...L..PR$
."S"..1940.E.V..PR$."R"..2020.X....PR$."
T"..2080......1840......".WACHT !":.2860
:.3410......4,4:.4,BR$:.4,Q$.1....I.29.3
1:.4,SC$(I):.I:.4.N....I.26.28:.4,SC$(I)
:.I:.4.K....I.23.25:.4,SC$(I):.I:.4...F.
.I.20.22:.4,SC$(I):.I:.4:.4...P..I.1.19:
.4,SC$(I):.I:.4,Q$:.4:.4: 4.C.Z..2860:.1
840......".REGISTER FILE ";:.2350:.FL..
....FL.0.."...":.2020.0 ...FL,4,1:.FL,"R
EGISTER ";FL;:.FL,FL$:.FL,Q$:K.0.J ..K.K
.1:Q.C(FA$(K)):.FL,FA$(K);.40.Q);:K.K.1:
.FL,FA$(K).. ...K.N.1..FL,Q$:.FL:.FL: FL
:.1840.. ...2050.F ..Q$:FT.0:.".FAMILIE
-TAK NR. ";:.2350:.FT.. *..3450:.M.1.10
:.FL,4,1:.ZK$(M).""..2110..!4..ZK$(M).."
"..2120./!>. FL:.M:.".NIET AANWEZIG":.22
80:.100.Q!H..FL,"FAMILIE-TAK: ";FT:.FL,Q
$.P!R..ZK$(1)."".ZK$(2).""..2180..!\..ZK
$(1).""..2160..!F.J.0:NM$(J).ZK$(1):.246
0:.3540..!P..ZK$(2).""..2180..!Z.J.0:NM$
(J).ZK$(2):.2460:.3540.."...FL:J.0:.M.3.
10:NM$(J).ZK$(M):.NM$(J).""..2200.!"...2
460:.3580.("...M.?"...FL,Q$:.FL:.FL: FL.
H"..."..PRINTER UIT (A/U) ";:.2340:.KY$
.."...KY$.."U".FT.FT.1:."..FAMILIE-TAK "
;FT:.2090.."...100.Q"J.."..TERUG NAAR ME
NU OF KLAAR (M/K)
> CLICK IMAGE PREVIEW FOR FULL MODAL