00000000: 53 42 01 0F 08 05 00 8F 20 33 30 20 20 38 35 35 |SB...... 30 855|
00000010: 00 2B 08 0A 00 43 4C 24 B2 22 44 49 53 50 4C 41 |.+...CL$."DISPLA|
00000020: 59 20 43 48 52 24 28 31 34 37 29 22 00 35 08 14 |Y CHR$(147)".5..|
00000030: 00 21 51 43 4C 24 00 53 08 1E 00 21 15 40 31 32 |.!QCL$.S...!.@12|
00000040: 2C 32 40 AA 22 20 D6 C5 D2 CA C1 C1 D2 C4 C1 C7 |,2@." ..........|
00000050: C5 CE 20 22 00 85 08 3C 00 21 15 40 32 2C 35 22 |.. "...<.!.@2,5"|
00000060: D6 41 4E 20 57 45 4C 4B 45 20 4D 41 41 4E 44 20 |.AN WELKE MAAND |
00000070: 57 49 4C 54 20 D5 20 45 45 4E 20 4C 49 4A 53 54 |WILT . EEN LIJST|
00000080: 3F 20 20 2E 2E 22 00 B4 08 41 00 21 15 40 32 2C |? .."...A.!.@2,|
00000090: 37 22 CD 41 41 4E 44 20 49 4E 20 54 57 45 45 20 |7".AAND IN TWEE |
000000A0: 43 49 4A 46 45 52 53 20 49 4E 56 4F 45 52 45 4E |CIJFERS INVOEREN|
000000B0: 22 3A 89 37 30 00 C8 08 46 00 21 15 40 30 3A 21 |":.70...F.!.@0:!|
000000C0: 3A 40 33 37 2C 35 3B 4D 24 00 D4 08 4B 00 57 B2 |:@37,5;M$...K.W.|
000000D0: C5 28 4D 24 29 00 E6 08 50 00 21 39 57 B1 31 32 |.(M$)...P.!9W.12|
000000E0: B0 57 B3 31 A7 37 30 00 FD 08 64 00 86 41 24 28 |.W.1.70...d..A$(|
000000F0: 34 30 2C 33 29 2C 48 24 28 34 30 2C 33 29 00 19 |40,3),H$(40,3)..|
00000100: 09 96 00 4E 24 B2 22 48 56 45 52 4A 2E 22 AA 4D |...N$."HVERJ.".M|
00000110: 24 AA 22 2D 4C 49 4A 53 54 22 00 3B 09 A0 00 21 |$."-LIJST".;...!|
00000120: 15 40 32 2C 39 22 CE 49 45 55 57 45 20 4C 49 4A |.@2,9".IEUWE LIJ|
00000130: 53 54 20 4D 41 4B 45 4E 3F 20 4E 22 00 4A 09 AA |ST MAKEN? N".J..|
00000140: 00 21 3A 40 32 32 2C 39 3B 4C 24 00 5C 09 B4 00 |.!:@22,9;L$.\...|
00000150: 21 39 4C 24 B3 B1 22 4A 22 A7 32 30 30 00 7F 09 |!9L$.."J".200...|
00000160: BE 00 21 03 4E 24 21 26 5B 47 45 42 2E 44 41 54 |..!.N$!&[GEB.DAT|
00000170: 2E 5D 49 53 22 3F 3F 22 AA 4D 24 AA 22 3F 3F 22 |.]IS"??".M$."??"|
00000180: 00 9F 09 C8 00 21 15 40 32 2C 31 31 22 C5 D6 C5 |.....!.@2,11"...|
00000190: CE 20 C7 C5 C4 D5 CC C4 20 C1 2E D5 2E C2 2E 22 |. ...... ......"|
000001A0: 00 CA 09 D2 00 21 15 40 34 2C 31 33 22 2D 20 44 |.....!.@4,13"- D|
000001B0: 45 20 52 45 43 4F 52 44 53 20 57 4F 52 44 45 4E |E RECORDS WORDEN|
000001C0: 20 49 4E 47 45 4C 45 5A 45 4E 22 00 D2 09 22 01 | INGELEZEN"...".|
000001D0: 49 B2 30 00 DD 09 40 01 21 02 21 1D 4E 24 00 EB |I.0...@.!.!.N$..|
000001E0: 09 4A 01 49 B2 49 AA 31 3A 4A B2 31 00 FF 09 54 |.J.I.I.1:J.1...T|
000001F0: 01 44 41 54 24 B2 5B 47 45 42 2E 44 41 54 2E 5D |.DAT$.[GEB.DAT.]|
00000200: 00 11 0A 5E 01 44 47 24 B2 C9 28 44 41 54 24 2C |...^.DG$..(DAT$,|
00000210: 32 29 00 25 0A 68 01 4D 41 24 B2 CA 28 44 41 54 |2).%.h.MA$..(DAT|
00000220: 24 2C 33 2C 32 29 00 37 0A 72 01 4A 52 24 B2 C8 |$,3,2).7.r.JR$..|
00000230: 28 44 41 54 24 2C 32 29 00 4C 0A 7C 01 44 41 54 |(DAT$,2).L.|.DAT|
00000240: 24 B2 44 47 24 AA 4D 41 24 AA 4A 52 24 00 63 0A |$.DG$.MA$.JR$.c.|
00000250: 86 01 41 24 28 49 2C 4A 29 B2 44 41 54 24 3A 4A |..A$(I,J).DAT$:J|
00000260: B2 4A AA 31 00 7D 0A 90 01 41 24 28 49 2C 4A 29 |.J.1.}...A$(I,J)|
00000270: B2 5B 47 52 4F 45 50 5D 3A 4A B2 4A AA 31 00 94 |.[GROEP]:J.J.1..|
00000280: 0A 9A 01 52 4F 24 B2 5B 52 4F 45 50 4E 41 41 4D |...RO$.[ROEPNAAM|
00000290: 5D AA 22 20 22 00 AE 0A A4 01 56 4F 24 B2 5B 56 |]." ".....VO$.[V|
000002A0: 4F 4F 52 56 4F 45 47 53 45 4C 5D AA 22 20 22 00 |OORVOEGSEL]." ".|
000002B0: BD 0A AE 01 4E 41 24 B2 5B 4E 41 41 4D 5D 00 D1 |....NA$.[NAAM]..|
000002C0: 0A B8 01 4E 41 24 B2 52 4F 24 AA 56 4F 24 AA 4E |...NA$.RO$.VO$.N|
000002D0: 41 24 00 E1 0A C2 01 41 24 28 49 2C 4A 29 B2 4E |A$.....A$(I,J).N|
000002E0: 41 24 00 EF 0A D6 01 21 02 82 3A 21 48 35 35 30 |A$.....!..:!H550|
000002F0: 00 F8 0A F4 01 89 33 33 30 00 24 0B 26 02 21 15 |......330.$.&.!.|
00000300: 40 34 2C 31 35 22 2D 20 44 45 20 52 45 43 4F 52 |@4,15"- DE RECOR|
00000310: 44 53 20 57 4F 52 44 45 4E 20 47 45 53 4F 52 54 |DS WORDEN GESORT|
00000320: 45 45 52 44 22 00 2F 0B 58 02 81 4E B2 31 A4 49 |EERD"./.X..N.1.I|
00000330: 00 3A 0B 62 02 81 4B B2 4E A4 49 00 54 0B 6C 02 |.:.b..K.N.I.T.l.|
00000340: 21 39 41 24 28 4B 2C 31 29 B3 41 24 28 4E 2C 31 |!9A$(K,1).A$(N,1|
00000350: 29 A7 36 35 30 00 5D 0B 76 02 89 37 30 30 00 91 |).650.].v..700..|
00000360: 0B 8A 02 48 24 28 4E 2C 31 29 B2 41 24 28 4E 2C |...H$(N,1).A$(N,|
00000370: 31 29 3A 48 24 28 4E 2C 32 29 B2 41 24 28 4E 2C |1):H$(N,2).A$(N,|
00000380: 32 29 3A 48 24 28 4E 2C 33 29 B2 41 24 28 4E 2C |2):H$(N,3).A$(N,|
00000390: 33 29 00 C5 0B 94 02 41 24 28 4E 2C 31 29 B2 41 |3).....A$(N,1).A|
000003A0: 24 28 4B 2C 31 29 3A 41 24 28 4E 2C 32 29 B2 41 |$(K,1):A$(N,2).A|
000003B0: 24 28 4B 2C 32 29 3A 41 24 28 4E 2C 33 29 B2 41 |$(K,2):A$(N,3).A|
000003C0: 24 28 4B 2C 33 29 00 F9 0B 9E 02 41 24 28 4B 2C |$(K,3).....A$(K,|
000003D0: 31 29 B2 48 24 28 4E 2C 31 29 3A 41 24 28 4B 2C |1).H$(N,1):A$(K,|
000003E0: 32 29 B2 48 24 28 4E 2C 32 29 3A 41 24 28 4B 2C |2).H$(N,2):A$(K,|
000003F0: 33 29 B2 48 24 28 4E 2C 33 29 00 00 0C BC 02 82 |3).H$(N,3)......|
00000400: 4B 00 07 0C C6 02 82 4E 00 32 0C 20 03 21 15 40 |K......N.2. .!.@|
00000410: 32 2C 31 38 22 C9 53 20 44 45 20 50 52 49 4E 54 |2,18".S DE PRINT|
00000420: 45 52 20 41 41 4E 47 45 53 4C 4F 54 45 4E 3F 20 |ER AANGESLOTEN? |
00000430: 20 4E 22 00 42 0C 2A 03 21 3A 40 33 30 2C 31 38 | N".B.*.!:@30,18|
00000440: 3B 50 24 00 4C 0C 34 03 21 51 43 4C 24 00 7B 0C |;P$.L.4.!QCL$.{.|
00000450: 3E 03 21 15 22 C7 D2 20 CE C1 C1 CD 20 20 20 20 |>.!.".. .... |
00000460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000470: 20 20 20 C7 C5 C2 2E C4 C1 D4 2E 22 00 83 0C 48 | ........"...H|
00000480: 03 54 B2 30 00 95 0C 52 03 21 39 50 24 B3 B1 22 |.T.0...R.!9P$.."|
00000490: 4A 22 A7 38 38 30 00 BB 0C 57 03 21 17 22 D6 C5 |J".880...W.!."..|
000004A0: D2 CA C1 C1 D2 C4 C1 C7 C5 CE 20 20 20 20 20 20 |.......... |
000004B0: 20 20 4D 41 41 4E 44 20 22 3B 4D 24 00 F3 0C 5C | MAAND ";M$...\|
000004C0: 03 21 17 22 C7 D2 CF C5 D0 20 CE C1 C1 CD 20 20 |.!."..... .... |
000004D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004E0: 20 20 20 20 20 20 20 20 20 20 20 C7 C5 C2 2E C4 | .....|
000004F0: C1 D4 2E 22 00 FE 0C 66 03 21 17 40 31 2C 30 00 |..."...f.!.@1,0.|
00000500: 09 0D 70 03 81 4E B2 31 A4 49 00 2A 0D 84 03 21 |..p..N.1.I.*...!|
00000510: 15 41 24 28 4E 2C 32 29 40 34 41 24 28 4E 2C 33 |.A$(N,2)@4A$(N,3|
00000520: 29 40 33 31 41 24 28 4E 2C 31 29 00 3C 0D 8E 03 |)@31A$(N,1).<...|
00000530: 21 39 50 24 B3 B1 22 4A 22 A7 39 37 30 00 5D 0D |!9P$.."J".970.].|
00000540: 98 03 21 17 41 24 28 4E 2C 32 29 40 37 41 24 28 |..!.A$(N,2)@7A$(|
00000550: 4E 2C 33 29 40 34 31 41 24 28 4E 2C 31 29 00 64 |N,3)@41A$(N,1).d|
00000560: 0D CA 03 82 4E 00 71 0D E8 03 21 4A 22 4D 45 4E |....N.q...!J"MEN|
00000570: 55 22 00 00 00 |U"... |
SB...... 30 855.+...CL$."DISPLAY CHR$(1
47)".5...!QCL$.S...!.@12,2@." VERJAARDAG
EN "...<.!.@2,5"VAN WELKE MAAND WILT U E
EN LIJST? .."...A.!.@2,7"MAAND IN TWEE
CIJFERS INVOEREN":.70.H.F.!.@0:!:@37,5;M
$.T.K.W.E(M$)...P.!9W.12.W.1.70...D..A$(
40,3),H$(40,3).....N$."HVERJ.".M$."-LIJS
T".;. .!.@2,9"NIEUWE LIJST MAKEN? N".J..
.!:@22,9;L$.\...!9L$.."J".200....!.N$!&
[GEB.DAT.]IS"??".M$."??"...H.!.@2,11"EVE
N GEDULD A.U.B.".J.R.!.@4,13"- DE RECORD
S WORDEN INGELEZEN".R.".I.0...@.!.!.N$..
.J.I.I.1:J.1...T.DAT$.[GEB.DAT.]...^.DG$
.I(DAT$,2).%.H.MA$.J(DAT$,3,2).7.R.JR$.H
(DAT$,2).L.|.DAT$.DG$.MA$.JR$.C...A$(I,J
).DAT$:J.J.1.}...A$(I,J).[GROEP]:J.J.1..
...RO$.[ROEPNAAM]." ".....VO$.[VOORVOEGS
EL]." ".....NA$.[NAAM].Q...NA$.RO$.VO$.N
A$...B.A$(I,J).NA$...V.!..:!H550......33
0.$.&.!.@4,15"- DE RECORDS WORDEN GESORT
EERD"./.X..N.1.I.:.B..K.N.I.T.L.!9A$(K,1
).A$(N,1).650.].V..700.....H$(N,1).A$(N,
1):H$(N,2).A$(N,2):H$(N,3).A$(N,3).E...A
$(N,1).A$(K,1):A$(N,2).A$(K,2):A$(N,3).A
$(K,3).....A$(K,1).H$(N,1):A$(K,2).H$(N,
2):A$(K,3).H$(N,3)......K...F..N.2. .!.@
2,18"IS DE PRINTER AANGESLOTEN? N".B.*.
!:@30,18;P$.L.4.!QCL$.{.>.!."GR NAAM
GEB.DAT."...H.T.0...R
.!9P$.."J".880...W.!."VERJAARDAGEN
MAAND ";M$...\.!."GROEP NAAM
GEB.DAT."...F.!.@1,0.
..P..N.1.I.*...!.A$(N,2)@4A$(N,3)@31A$(N
,1).<...!9P$.."J".970.]...!.A$(N,2)@7A$(
N,3)@41A$(N,1).D.J..N.Q...!J"MENU"...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL