00000000: 53 42 01 1E 08 64 00 8F 20 CC C5 C5 D2 CC 2E CB |SB...d.. .......|
00000010: C1 C1 D2 D4 20 C3 C5 CE D4 D2 CF CE C9 C3 D3 00 |.... ...........|
00000020: 2D 08 6E 00 45 53 43 24 B2 C7 28 32 37 29 00 4E |-.n.ESC$..(27).N|
00000030: 08 78 00 45 4D 50 24 B2 45 53 43 24 AA 22 C5 22 |.x.EMP$.ESC$."."|
00000040: 3A 43 45 4D 50 24 B2 45 53 43 24 AA 22 C6 22 00 |:CEMP$.ESC$.".".|
00000050: 73 08 82 00 53 50 43 24 B2 45 53 43 24 AA C7 28 |s...SPC$.ESC$..(|
00000060: 34 38 29 3A 43 53 50 43 24 B2 45 53 43 24 AA C7 |48):CSPC$.ESC$..|
00000070: 28 35 30 29 00 85 08 8C 00 21 17 53 50 43 24 3A |(50).....!.SPC$:|
00000080: 21 17 45 4D 50 24 00 A1 08 96 00 43 4C 24 B2 22 |!.EMP$.....CL$."|
00000090: 44 49 53 50 4C 41 59 20 43 48 52 24 28 31 34 37 |DISPLAY CHR$(147|
000000A0: 29 22 00 DD 08 A0 00 4B 4F 50 24 B2 22 44 49 53 |)".....KOP$."DIS|
000000B0: 50 4C 41 59 40 31 30 2C 33 40 2B 22 AA C7 28 33 |PLAY@10,3@+"..(3|
000000C0: 34 29 AA 22 20 CC C5 C5 D2 CC C9 CE C7 C5 CE CB |4)." ...........|
000000D0: C1 C1 D2 D4 C5 CE 20 22 AA C7 28 33 34 29 00 E7 |...... "..(34)..|
000000E0: 08 AA 00 21 51 43 4C 24 00 F2 08 B4 00 21 51 4B |...!QCL$.....!QK|
000000F0: 4F 50 24 00 17 09 BE 00 21 15 40 30 3B 40 31 2C |OP$.....!.@0;@1,|
00000100: 38 22 D4 59 50 45 20 48 45 54 20 4C 45 45 52 4C |8".YPE HET LEERL|
00000110: 2E 4E 4F 2E 20 49 4E 22 00 27 09 C8 00 21 3A 40 |.NO. IN".'...!:@|
00000120: 32 35 2C 38 3B 4B 59 24 00 31 09 D2 00 21 02 4B |25,8;KY$.1...!.K|
00000130: 59 24 00 6C 09 DC 00 21 45 21 15 40 31 2C 31 30 |Y$.l...!E!.@1,10|
00000140: 22 C4 49 54 20 4E 55 4D 4D 45 52 20 4B 4F 4D 54 |".IT NUMMER KOMT|
00000150: 20 4E 49 45 54 20 56 4F 4F 52 21 20 D2 C5 D4 D5 | NIET VOOR! ....|
00000160: D2 CE 20 21 22 3A 21 2A 3A 89 31 37 30 00 A2 09 |.. !":!*:.170...|
00000170: E6 00 21 15 40 31 2C 31 32 5B 4C 45 45 52 4C 2E |..!.@1,12[LEERL.|
00000180: 4E 4F 2E 5D 26 5B 52 4F 45 50 4E 41 41 4D 5D 26 |NO.]&[ROEPNAAM]&|
00000190: 5B 56 4F 4F 52 56 4F 45 47 53 45 4C 5D 5B 4E 41 |[VOORVOEGSEL][NA|
000001A0: 41 4D 5D 00 AA 09 F0 00 21 35 35 00 B2 09 FA 00 |AM].....!55.....|
000001B0: 21 38 31 00 F5 09 04 01 21 17 40 30 22 4E 41 41 |!81.....!.@0"NAA|
000001C0: 4D 22 40 31 37 22 3A 22 26 5B 4E 41 41 4D 5D 5B |M"@17":"&[NAAM][|
000001D0: 56 4F 4F 52 56 4F 45 47 53 45 4C 5D 40 34 30 22 |VOORVOEGSEL]@40"|
000001E0: 4C 45 45 52 4C 2E 4E 4F 2E 3A 22 5B 4C 45 45 52 |LEERL.NO.:"[LEER|
000001F0: 4C 2E 4E 4F 2E 5D 00 1A 0A 0E 01 21 17 22 56 4F |L.NO.].....!."VO|
00000200: 4F 52 4E 41 4D 45 4E 20 20 20 20 20 20 20 3A 22 |ORNAMEN :"|
00000210: 5B 56 4F 4F 52 4E 41 4D 45 4E 5D 00 3E 0A 18 01 |[VOORNAMEN].>...|
00000220: 21 17 22 52 4F 45 50 4E 41 41 4D 20 20 20 20 20 |!."ROEPNAAM |
00000230: 20 20 20 3A 22 5B 52 4F 45 50 4E 41 41 4D 5D 00 | :"[ROEPNAAM].|
00000240: 62 0A 22 01 21 17 22 47 45 42 4F 4F 52 54 45 44 |b.".!."GEBOORTED|
00000250: 41 54 55 4D 20 20 20 3A 22 5B 47 45 42 2E 44 41 |ATUM :"[GEB.DA|
00000260: 54 2E 5D 00 A8 0A 2C 01 21 17 22 47 45 53 4C 41 |T.]...,.!."GESLA|
00000270: 43 48 54 20 20 20 20 20 20 20 20 3A 22 5B 47 45 |CHT :"[GE|
00000280: 53 4C 41 43 48 54 5D 22 20 20 4E 41 54 2E 3A 22 |SLACHT]" NAT.:"|
00000290: 5B 4E 41 54 2E 5D 22 20 20 47 45 4C 4F 4F 46 3A |[NAT.]" GELOOF:|
000002A0: 22 5B 47 45 4C 4F 4F 46 5D 00 C9 0A 36 01 21 17 |"[GELOOF]...6.!.|
000002B0: 22 41 44 52 45 53 20 20 20 20 20 20 20 20 20 20 |"ADRES |
000002C0: 20 3A 22 5B 41 44 52 45 53 5D 00 EE 0A 40 01 21 | :"[ADRES]...@.!|
000002D0: 17 22 50 4F 53 54 43 2E 2F 57 4F 4F 4E 50 4C 2E |."POSTC./WOONPL.|
000002E0: 20 20 3A 22 5B 50 43 2F 50 4C 41 41 54 53 5D 00 | :"[PC/PLAATS].|
000002F0: 24 0B 4A 01 21 17 22 54 45 4C 45 46 4F 4F 4E 20 |$.J.!."TELEFOON |
00000300: 20 20 20 20 20 20 20 3A 22 5B 54 45 4C 2E 4E 4F | :"[TEL.NO|
00000310: 2E 5D 22 20 20 32 45 20 54 45 4C 2E 4E 4F 2E 3A |.]" 2E TEL.NO.:|
00000320: 22 5B 32 45 5D 00 45 0B 54 01 21 17 22 56 41 44 |"[2E].E.T.!."VAD|
00000330: 45 52 20 20 20 20 20 20 20 20 20 20 20 3A 22 5B |ER :"[|
00000340: 56 41 44 45 52 5D 00 62 0B 5E 01 21 17 22 42 45 |VADER].b.^.!."BE|
00000350: 52 4F 45 50 20 56 41 44 45 52 20 20 20 20 3A 22 |ROEP VADER :"|
00000360: 5B 56 5D 00 84 0B 68 01 21 17 22 4D 4F 45 44 45 |[V]...h.!."MOEDE|
00000370: 52 20 20 20 20 20 20 20 20 20 20 3A 22 5B 4D 4F |R :"[MO|
00000380: 45 44 45 52 5D 00 A1 0B 72 01 21 17 22 42 45 52 |EDER]...r.!."BER|
00000390: 4F 45 50 20 4D 4F 45 44 45 52 20 20 20 3A 22 5B |OEP MOEDER :"[|
000003A0: 4D 5D 00 C8 0B 7C 01 21 17 22 56 45 52 41 4E 54 |M]...|.!."VERANT|
000003B0: 57 2E 50 45 52 53 2E 20 20 20 3A 22 5B 56 45 52 |W.PERS. :"[VER|
000003C0: 41 4E 54 57 2E 50 45 52 5D 00 EF 0B 86 01 21 17 |ANTW.PER].....!.|
000003D0: 22 47 45 5A 49 4E 53 53 41 4D 45 4E 53 54 2E 20 |"GEZINSSAMENST. |
000003E0: 20 3A 22 5B 47 45 5A 2E 53 41 4D 45 4E 53 54 5D | :"[GEZ.SAMENST]|
000003F0: 00 13 0C 90 01 21 17 22 48 55 49 53 41 52 54 53 |.....!."HUISARTS|
00000400: 20 20 20 20 20 20 20 20 3A 22 5B 48 55 49 53 41 | :"[HUISA|
00000410: 52 54 53 5D 00 3A 0C 9A 01 21 17 22 49 4E 53 43 |RTS].:...!."INSC|
00000420: 48 52 49 4A 56 2E 44 41 54 55 4D 20 3A 22 5B 49 |HRIJV.DATUM :"[I|
00000430: 4E 53 43 48 52 2E 44 41 54 2E 5D 00 61 0C A4 01 |NSCHR.DAT.].a...|
00000440: 21 17 22 53 43 48 2E 56 2E 48 45 52 4B 4F 4D 53 |!."SCH.V.HERKOMS|
00000450: 54 20 20 3A 22 5B 53 43 48 2E 56 2E 48 45 52 4B |T :"[SCH.V.HERK|
00000460: 2E 5D 00 7B 0C AE 01 21 17 22 55 49 54 53 43 48 |.].{...!."UITSCH|
00000470: 52 49 4A 56 2E 44 41 54 2E 20 3A 22 00 95 0C B8 |RIJV.DAT. :"....|
00000480: 01 21 17 22 56 45 52 54 52 4F 4B 4B 45 4E 20 4E |.!."VERTROKKEN N|
00000490: 41 41 52 20 3A 22 00 B6 0C C2 01 21 17 22 42 49 |AAR :".....!."BI|
000004A0: 4A 5A 4F 4E 44 45 52 48 45 44 45 4E 20 20 3A 22 |JZONDERHEDEN :"|
000004B0: 5B 42 49 4A 5A 2E 5D 00 C2 0C CC 01 21 17 C7 28 |[BIJZ.].....!..(|
000004C0: 31 32 29 00 CC 0C D6 01 21 51 43 4C 24 00 DB 0C |12).....!QCL$...|
000004D0: E0 01 21 38 30 3A 21 35 31 3A 21 15 00 0A 0D EA |..!80:!51:!.....|
000004E0: 01 8F 20 47 4F 54 4F 20 34 38 30 3A 52 45 4D 20 |.. GOTO 480:REM |
000004F0: 41 4C 53 20 4D 45 4E 20 43 4F 4E 54 49 4E 55 20 |ALS MEN CONTINU |
00000500: 57 49 4C 20 50 52 49 4E 54 45 4E 00 22 0D F4 01 |WIL PRINTEN."...|
00000510: 21 15 40 35 2C 35 22 D6 4F 4C 47 45 4E 44 45 3F |!.@5,5".OLGENDE?|
00000520: 20 4A 22 00 32 0D FE 01 21 3A 40 31 35 2C 35 3B | J".2...!:@15,5;|
00000530: 4E 45 24 00 45 0D 08 02 21 39 4E 45 24 B3 B1 22 |NE$.E...!9NE$.."|
00000540: 4A 22 A7 35 36 30 00 4D 0D 12 02 21 02 82 00 57 |J".560.M...!...W|
00000550: 0D 1C 02 21 51 43 4C 24 00 60 0D 26 02 89 32 33 |...!QCL$.`.&..23|
00000560: 30 00 78 0D 30 02 21 15 40 35 2C 39 22 CE 4F 47 |0.x.0.!.@5,9".OG|
00000570: 20 45 45 4E 20 3F 20 4A 22 00 88 0D 3A 02 21 3A | EEN ? J"...:.!:|
00000580: 40 31 35 2C 39 3B 4E 45 24 00 9B 0D 44 02 21 39 |@15,9;NE$...D.!9|
00000590: 4E 45 24 B3 B1 22 4A 22 A7 36 30 30 00 A4 0D 4E |NE$.."J".600...N|
000005A0: 02 89 31 37 30 00 B0 0D 58 02 21 17 43 45 4D 50 |..170...X.!.CEMP|
000005B0: 24 00 BC 0D 62 02 21 17 43 53 50 43 24 00 C8 0D |$...b.!.CSPC$...|
000005C0: 6C 02 21 4A 22 4D 45 4E 55 00 00 00 |l.!J"MENU... |
SB...D.. LEERL.KAART CENTRONICS.-.N.ESC$
.G(27).N.X.EMP$.ESC$."E":CEMP$.ESC$."F".
S...SPC$.ESC$.G(48):CSPC$.ESC$.G(50)....
.!.SPC$:!.EMP$.....CL$."DISPLAY CHR$(147
)"... .KOP$."DISPLAY@10,3@+".G(34)." LEE
RLINGENKAARTEN ".G(34).....!QCL$.....!QK
OP$.....!.@0;@1,8"TYPE HET LEERL.NO. IN"
.'.H.!:@25,8;KY$.1.R.!.KY$.L...!E!.@1,10
"DIT NUMMER KOMT NIET VOOR! RETURN !":!*
:.170.....!.@1,12[LEERL.NO.]&[ROEPNAAM]&
[VOORVOEGSEL][NAAM].....!55.....!81.....
!.@0"NAAM"@17":"&[NAAM][VOORVOEGSEL]@40"
LEERL.NO.:"[LEERL.NO.].....!."VOORNAMEN
:"[VOORNAMEN].>...!."ROEPNAAM
:"[ROEPNAAM].B.".!."GEBOORTEDATUM :
"[GEB.DAT.]...,.!."GESLACHT :"[GE
SLACHT]" NAT.:"[NAT.]" GELOOF:"[GELOOF
].I.6.!."ADRES :"[ADRES]...@.!
."POSTC./WOONPL. :"[PC/PLAATS].$.J.!."T
ELEFOON :"[TEL.NO.]" 2E TEL.NO.:
"[2E].E.T.!."VADER :"[VADER].B
.^.!."BEROEP VADER :"[V]...H.!."MOEDE
R :"[MOEDER]...R.!."BEROEP MOED
ER :"[M].H.|.!."VERANTW.PERS. :"[VER
ANTW.PER].....!."GEZINSSAMENST. :"[GEZ.
SAMENST].....!."HUISARTS :"[HUISA
RTS].:...!."INSCHRIJV.DATUM :"[INSCHR.DA
T.].A...!."SCH.V.HERKOMST :"[SCH.V.HERK
.].{...!."UITSCHRIJV.DAT. :".....!."VERT
ROKKEN NAAR :"...B.!."BIJZONDERHEDEN :"
[BIJZ.].B.L.!.G(12).L.V.!QCL$.....!80:!5
1:!....... GOTO 480:REM ALS MEN CONTINU
WIL PRINTEN."...!.@5,5"VOLGENDE? J".2...
!:@15,5;NE$.E...!9NE$.."J".560.M...!...W
...!QCL$.`.&..230.X.0.!.@5,9"NOG EEN ? J
"...:.!:@15,9;NE$...D.!9NE$.."J".600...N
..170...X.!.CEMP$...B.!.CSPC$.H.L.!J"MEN
U...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL