DATUM-4
FILE INFORMATION
FILENAME(S): DATUM-4
FILE TYPE(S): PRG
FILE SIZE: 4.3K
FIRST SEEN: 2025-11-30 21:06:41
APPEARS ON: 1 disk(s)
FILE HASH
a8ef48256d2ef58e48a3d5be8f5f73cc3b56be75d0f42d67ab3f813a4d991816
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| STR I BASIC | DATUM-4 | PRG | DuncanTwain | 24 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0C 08 0A 00 89 20 31 30 30 30 00 1F 08 14 |....... 1000....| 00000010: 00 43 4C 45 41 52 20 41 3A 89 20 31 30 31 30 00 |.CLEAR A:. 1010.| 00000020: 27 08 64 00 43 4C 53 00 2D 08 65 00 8E 00 3F 08 |'.d.CLS.-.e...?.| 00000030: 6E 00 8B 20 56 45 B2 30 20 A7 20 56 45 B2 31 00 |n.. VE.0 . VE.1.| 00000040: 51 08 6F 00 8B 20 48 4F B2 30 20 A7 20 48 4F B2 |Q.o.. HO.0 . HO.| 00000050: 31 00 6E 08 70 00 8B 20 48 4F B1 38 30 20 A7 20 |1.n.p.. HO.80 . | 00000060: 48 4F B2 48 4F AB 38 30 3A 89 20 31 31 32 00 8B |HO.HO.80:. 112..| 00000070: 08 71 00 8B 20 56 45 B1 32 34 20 A7 20 56 45 B2 |.q.. VE.24 . VE.| 00000080: 56 45 AB 32 34 3A 89 20 31 31 33 00 9C 08 73 00 |VE.24:. 113...s.| 00000090: 4C 4F 43 41 54 45 20 56 45 2C 48 4F 00 A2 08 77 |LOCATE VE,HO...w| 000000A0: 00 8E 00 BA 08 78 00 56 45 B2 43 53 52 4C 49 4E |.....x.VE.CSRLIN| 000000B0: 3A 48 4F B2 B9 28 30 29 3A 8E 00 E3 08 C8 00 8F |:HO..(0):.......| 000000C0: 20 2A 2A 20 46 4F 55 54 45 4E 2D 20 45 4E 20 4D | ** FOUTEN- EN M| 000000D0: 45 44 45 44 45 4C 49 4E 47 45 4E 4B 41 44 45 52 |EDEDELINGENKADER| 000000E0: 20 2A 2A 00 E9 08 C9 00 8E 00 08 09 D2 00 49 4E | **...........IN| 000000F0: 24 B2 85 24 28 31 29 3A 8B 20 C6 28 49 4E 24 29 |$..$(1):. .(IN$)| 00000100: B2 30 20 A7 20 32 31 30 00 0E 09 D3 00 8E 00 1D |.0 . 210........| 00000110: 09 E8 03 41 B2 31 30 30 3A 89 20 32 30 00 29 09 |...A.100:. 20.).| 00000120: F2 03 8F 20 44 41 54 55 4D 00 43 09 FC 03 8F 20 |... DATUM.C.... | 00000130: 2A 2A 20 49 4E 49 54 49 41 4C 49 53 41 54 49 45 |** INITIALISATIE| 00000140: 20 2A 2A 00 87 09 06 04 86 20 54 49 4A 44 28 33 | **...... TIJD(3| 00000150: 29 2C 46 4F 55 54 28 37 29 2C 4D 41 58 28 33 29 |),FOUT(7),MAX(3)| 00000160: 2C 4D 49 4E 28 33 29 2C 46 4F 55 54 24 28 37 29 |,MIN(3),FOUT$(7)| 00000170: 2C 47 45 4C 49 4A 4B 5A 45 54 24 28 33 29 2C 4D |,GELIJKZET$(3),M| 00000180: 41 AF 24 28 31 32 29 00 AD 09 10 04 81 20 49 B2 |A.$(12)...... I.| 00000190: 31 20 A4 20 37 3A 20 87 20 46 4F 55 54 28 49 29 |1 . 7: . FOUT(I)| 000001A0: 2C 46 4F 55 54 24 28 49 29 3A 82 20 49 00 BF 09 |,FOUT$(I):. I...| 000001B0: 1A 04 81 20 49 B2 31 20 A4 20 33 3A 87 20 47 00 |... I.1 . 3:. G.| 000001C0: CC 09 42 04 41 41 4E 54 41 4C B2 31 00 D6 09 4C |..B.AANTAL.1...L| 000001D0: 04 8D 20 31 30 30 00 F4 09 56 04 8D 20 31 30 32 |.. 100...V.. 102| 000001E0: 30 30 3A 20 20 8F 20 4B 41 44 45 52 20 54 45 4B |00: . KADER TEK| 000001F0: 45 4E 45 4E 00 12 0A B0 04 8F 20 2A 2A 20 4E 55 |ENEN...... ** NU| 00000200: 20 44 41 54 55 4D 20 49 4E 56 4F 45 52 45 4E 20 | DATUM INVOEREN | 00000210: 2A 2A 00 33 0A BA 04 8F 20 20 49 4E 4C 45 5A 45 |**.3.... INLEZE| 00000220: 4E 20 4A 41 41 52 2C 4D 41 41 4E 44 20 45 4E 20 |N JAAR,MAAND EN | 00000230: 44 41 47 00 43 0A C4 04 3A 20 81 20 49 B2 31 20 |DAG.C...: . I.1 | 00000240: A4 20 33 00 5A 0A CE 04 3A 20 20 4B B2 49 3A 8D |. 3.Z...: K.I:.| 00000250: 20 31 31 30 30 30 3A 4B B2 30 00 64 0A D8 04 3A | 11000:K.0.d...:| 00000260: 20 82 20 49 00 6A 0A E2 04 3A 00 80 0A EC 04 48 | . I.j...:.....H| 00000270: 4F B2 32 35 3A 56 45 B2 31 30 3A 8D 20 31 31 30 |O.25:VE.10:. 110| 00000280: 00 9E 0A F6 04 99 20 22 44 45 20 44 41 54 55 4D |...... "DE DATUM| 00000290: 20 49 53 3A 22 3B 54 49 4A 44 28 33 29 3B 00 B7 | IS:";TIJD(3);..| 000002A0: 0A 00 05 99 20 4D 41 AF 24 28 54 49 4A 44 28 32 |.... MA.$(TIJD(2| 000002B0: 29 29 3B 22 20 22 3B 00 D2 0A 0A 05 99 20 22 31 |));" ";...... "1| 000002C0: 39 22 3B CA 28 C4 28 54 49 4A 44 28 31 29 29 2C |9";.(.(TIJD(1)),| 000002D0: 32 29 00 E5 0A 14 05 8F 20 44 41 54 41 20 49 4E |2)...... DATA IN| 000002E0: 4C 45 5A 45 4E 00 ED 0A 1E 05 49 B2 30 00 F3 0A |LEZEN.....I.0...| 000002F0: 28 05 3A 00 0A 0B 32 05 3A 20 57 48 49 4C 45 20 |(.:...2.: WHILE | 00000300: 4E 41 41 4D 24 B3 B1 22 2E 22 00 3F 0B 3C 05 3A |NAAM$..".".?.<.:| 00000310: 20 20 87 20 4E 41 41 4D 24 2C 47 45 42 44 41 54 | . NAAM$,GEBDAT| 00000320: 55 4D 3A 20 20 8F 20 4C 45 45 53 20 4E 41 4D 45 |UM: . LEES NAME| 00000330: 4E 20 55 49 54 20 44 41 54 41 4C 49 4A 53 54 00 |N UIT DATALIJST.| 00000340: 4C 0B 46 05 3A 20 20 49 B2 49 AA 31 00 55 0B 50 |L.F.: I.I.1.U.P| 00000350: 05 3A 20 57 80 00 5B 0B 5A 05 3A 00 6C 0B 64 05 |.: W..[.Z.:.l.d.| 00000360: 49 4D 41 58 B2 49 AB 31 3A 49 B2 30 00 91 0B 6E |IMAX.I.1:I.0...n| 00000370: 05 8C 20 32 36 30 30 30 3A 20 20 8F 20 47 45 45 |.. 26000: . GEE| 00000380: 46 20 4E 41 4D 45 4E 20 45 45 4E 20 49 4E 44 45 |F NAMEN EEN INDE| 00000390: 58 00 B2 0B 78 05 86 20 4E 41 41 4D 24 28 49 4D |X...x.. NAAM$(IM| 000003A0: 41 58 29 2C 47 45 42 44 41 54 55 4D 28 49 4D 41 |AX),GEBDATUM(IMA| 000003B0: 58 29 00 B8 0B 82 05 3A 00 CB 0B 8C 05 3A 20 81 |X).....:.....: .| 000003C0: 20 49 B2 31 20 A4 20 49 4D 41 58 00 E9 0B 96 05 | I.1 . IMAX.....| 000003D0: 3A 20 20 87 20 4E 41 41 4D 24 28 49 29 2C 47 45 |: . NAAM$(I),GE| 000003E0: 42 44 41 54 55 4D 28 49 29 00 F3 0B A0 05 3A 20 |BDATUM(I).....: | 000003F0: 82 20 49 00 F9 0B AA 05 3A 00 0E 0C B4 05 8F 20 |. I.....:...... | 00000400: 44 41 54 55 4D 2D 47 45 42 44 41 54 55 4D 00 57 |DATUM-GEBDATUM.W| 00000410: 0C BE 05 99 20 22 4E 55 20 44 45 20 31 36 2D 4A |.... "NU DE 16-J| 00000420: 41 52 49 47 45 4E 2C 20 3F 3D 56 4F 4C 4C 45 44 |ARIGEN, ?=VOLLED| 00000430: 49 47 20 4F 56 45 52 5A 49 43 48 54 2E 20 41 4E |IG OVERZICHT. AN| 00000440: 44 45 52 45 20 54 4F 45 54 53 3A 31 36 2D 4A 41 |DERE TOETS:16-JA| 00000450: 52 49 47 45 4E 2E 22 00 87 0C C8 05 47 45 42 44 |RIGEN.".....GEBD| 00000460: 41 54 55 4D 58 B2 31 30 30 30 30 AC 54 49 4A 44 |ATUMX.10000.TIJD| 00000470: 28 31 29 AA 31 30 30 AC 54 49 4A 44 28 32 29 AA |(1).100.TIJD(2).| 00000480: 54 49 4A 44 28 33 29 00 91 0C D2 05 8D 20 32 31 |TIJD(3)...... 21| 00000490: 30 00 97 0C DC 05 3A 00 AB 0C E6 05 3A 20 57 48 |0.....:.....: WH| 000004A0: 49 4C 45 20 49 4E 24 B2 22 3F 22 00 D1 0C F0 05 |ILE IN$."?".....| 000004B0: 3A 20 20 8D 20 31 33 30 30 30 3A 20 20 8F 20 4E |: . 13000: . N| 000004C0: 41 41 52 20 54 57 45 45 44 45 20 53 43 48 45 52 |AAR TWEEDE SCHER| 000004D0: 4D 00 DE 0C FA 05 3A 20 20 8D 20 32 31 30 00 E7 |M.....: . 210..| 000004E0: 0C 04 06 3A 20 57 80 00 ED 0C 0E 06 3A 00 F7 0C |...: W......:...| 000004F0: 18 06 8D 20 31 30 30 00 FD 0C 22 06 3A 00 32 0D |... 100...".:.2.| 00000500: 2C 06 3A 20 81 20 49 B2 31 20 A4 20 49 4D 41 58 |,.: . I.1 . IMAX| 00000510: 3A 20 20 8F 20 31 36 2D 4A 41 52 49 47 45 4E 20 |: . 16-JARIGEN | 00000520: 45 4E 20 4F 55 44 45 52 20 41 46 44 52 55 4B 4B |EN OUDER AFDRUKK| 00000530: 45 4E 00 68 0D 36 06 3A 20 20 8B 20 47 45 42 44 |EN.h.6.: . GEBD| 00000540: 41 54 55 4D 58 AB 47 45 42 44 41 54 55 4D 28 49 |ATUMX.GEBDATUM(I| 00000550: 29 B1 B2 31 36 30 30 30 30 21 20 A7 20 4A B2 49 |)..160000! . J.I| 00000560: 3A 8D 20 31 32 30 30 30 00 72 0D 40 06 3A 20 82 |:. 12000.r.@.: .| 00000570: 20 49 00 78 0D 4A 06 3A 00 91 0D 54 06 99 20 22 | I.x.J.:...T.. "| 00000580: 45 49 4E 44 45 20 50 52 4F 47 52 41 4D 4D 41 2E |EINDE PROGRAMMA.| 00000590: 22 00 97 0D 0F 27 80 00 AC 0D 10 27 8F 20 46 4F |"....'.....'. FO| 000005A0: 55 54 4D 45 44 45 44 45 4C 49 4E 47 00 BE 0D 1A |UTMEDEDELING....| 000005B0: 27 48 B0 B2 48 4F 3A 56 45 52 54 B2 56 45 00 D3 |'H..HO:VERT.VE..| 000005C0: 0D 24 27 48 4F B2 30 3A 56 45 B2 32 32 3A 8D 20 |.$'HO.0:VE.22:. | 000005D0: 31 31 30 00 EC 0D 2E 27 99 20 46 4F 55 54 24 28 |110....'. FOUT$(| 000005E0: 46 4F 55 54 4E 55 4D 4D 45 52 29 3B 00 FC 0D 38 |FOUTNUMMER);...8| 000005F0: 27 56 45 B2 32 33 3A 8D 20 31 31 30 00 34 0E 42 |'VE.23:. 110.4.B| 00000600: 27 99 20 22 4D 45 54 20 45 45 4E 20 57 49 4C 4C |'. "MET EEN WILL| 00000610: 45 4B 45 55 52 49 47 45 20 54 4F 45 54 53 20 4B |EKEURIGE TOETS K| 00000620: 55 4E 54 20 55 20 57 45 45 52 20 56 45 52 44 45 |UNT U WEER VERDE| 00000630: 52 2E 22 3B 00 3E 0E 4C 27 8D 20 32 31 30 00 44 |R.";.>.L'. 210.D| 00000640: 0E 56 27 3A 00 57 0E 60 27 3A 20 81 20 56 45 B2 |.V':.W.`': . VE.| 00000650: 32 32 20 A4 20 32 33 00 76 0E 6A 27 3A 20 20 20 |22 . 23.v.j': | 00000660: 8D 20 31 31 30 3A 99 20 53 54 52 49 4E 47 24 28 |. 110:. STRING$(| 00000670: 38 30 2C 33 32 29 00 81 0E 74 27 3A 20 82 20 56 |80,32)...t': . V| 00000680: 45 00 87 0E 7E 27 3A 00 AE 0E 7F 27 48 4F B2 33 |E...~':....'HO.3| 00000690: 30 3A 56 45 B2 4B AA 33 3A 8D 20 31 31 30 3A 99 |0:VE.K.3:. 110:.| 000006A0: 20 53 54 52 49 4E 47 24 28 32 2C 33 32 29 00 D3 | STRING$(2,32)..| 000006B0: 0E 88 27 46 4F 55 54 4E 55 4D 4D 45 52 B2 30 3A |..'FOUTNUMMER.0:| 000006C0: 20 8F 20 46 4F 55 54 20 41 46 47 45 48 41 4E 44 | . FOUT AFGEHAND| 000006D0: 45 4C 44 00 EB 0E 92 27 48 4F B2 48 B0 3A 56 45 |ELD....'HO.H.:VE| 000006E0: B2 56 45 52 54 3A 8D 20 31 31 30 00 F1 0E 9C 27 |.VERT:. 110....'| 000006F0: 8E 00 F7 0E A6 27 3A 00 09 0F E2 27 48 B0 B2 48 |.....':....'H..H| 00000700: 4F 3A 56 45 52 54 B2 56 45 00 12 0F EC 27 48 4F |O:VERT.VE....'HO| 00000710: B2 30 00 27 0F F6 27 81 20 56 45 B2 32 31 20 A4 |.0.'..'. VE.21 .| 00000720: 20 32 34 20 A9 20 33 00 31 0F 00 28 8D 20 31 31 | 24 . 3.1..(. 11| 00000730: 30 00 47 0F 0A 28 99 20 53 54 52 49 4E 47 24 28 |0.G..(. STRING$(| 00000740: 38 30 2C 36 31 29 3B 00 50 0F 14 28 82 20 56 45 |80,61);.P..(. VE| 00000750: 00 68 0F 1E 28 48 4F B2 48 B0 3A 56 45 B2 56 45 |.h..(HO.H.:VE.VE| 00000760: 52 54 3A 8D 20 31 31 30 00 6E 0F 28 28 8E 00 74 |RT:. 110.n.((..t| 00000770: 0F 32 28 3A 00 98 0F F8 2A 8F 20 53 55 42 52 4F |.2(:....*. SUBRO| 00000780: 55 54 49 4E 45 20 49 4E 56 4F 45 52 20 45 4E 20 |UTINE INVOER EN | 00000790: 43 4F 4E 54 52 4F 4C 45 00 AE 0F 02 2B 48 4F B2 |CONTROLE....+HO.| 000007A0: 30 3A 56 45 B2 33 AA 4B 3A 8D 20 31 31 30 00 C3 |0:VE.3.K:. 110..| 000007B0: 0F 0C 2B 99 20 47 45 4C 49 4A 4B 5A 45 54 24 28 |..+. GELIJKZET$(| 000007C0: 4B 29 3B 00 D3 0F 16 2B 54 49 4A 44 28 4B 29 B2 |K);....+TIJD(K).| 000007D0: 31 30 30 00 D9 0F 20 2B 3A 00 06 10 2A 2B 3A 20 |100... +:...*+: | 000007E0: 20 57 48 49 4C 45 20 54 49 4A 44 28 4B 29 B1 4D | WHILE TIJD(K).M| 000007F0: 41 58 28 4B 29 20 B0 20 54 49 4A 44 28 4B 29 B3 |AX(K) . TIJD(K).| 00000800: 4D 49 4E 28 4B 29 00 19 10 34 2B 3A 20 20 20 20 |MIN(K)...4+: | 00000810: 81 20 4C B2 31 20 A4 20 32 00 32 10 3E 2B 3A 20 |. L.1 . 2.2.>+: | 00000820: 20 20 20 20 20 48 4F B2 32 39 AA 4C 3A 8D 20 31 | HO.29.L:. 1| 00000830: 31 30 00 43 10 48 2B 3A 20 20 20 20 20 20 8D 20 |10.C.H+: . | 00000840: 32 31 30 00 6B 10 52 2B 3A 20 20 20 20 20 20 20 |210.k.R+: | 00000850: 20 57 48 49 4C 45 20 49 4E 53 54 52 28 43 49 4A | WHILE INSTR(CIJ| 00000860: 46 45 52 24 2C 49 4E 24 29 B2 30 00 95 10 5C 2B |FER$,IN$).0...\+| 00000870: 3A 20 20 20 20 20 20 20 20 20 20 46 4F 55 54 4E |: FOUTN| 00000880: 55 4D 4D 45 52 B2 34 3A 8D 20 31 30 30 30 30 3A |UMMER.4:. 10000:| 00000890: 8D 20 32 31 30 00 A5 10 66 2B 3A 20 20 20 20 20 |. 210...f+: | 000008A0: 20 20 20 57 80 00 B7 10 70 2B 3A 20 20 20 20 20 | W....p+: | 000008B0: 20 99 20 49 4E 24 3B 00 D1 10 7A 2B 3A 20 20 20 | . IN$;...z+: | 000008C0: 20 20 20 48 55 4C 50 28 4C 29 B2 C5 28 49 4E 24 | HULP(L)..(IN$| 000008D0: 29 00 DE 10 84 2B 3A 20 20 20 20 82 20 4C 00 02 |)....+: . L..| 000008E0: 11 8E 2B 3A 20 20 20 20 54 49 4A 44 28 4B 29 B2 |..+: TIJD(K).| 000008F0: 31 30 AC 48 55 4C 50 28 31 29 AA 48 55 4C 50 28 |10.HULP(1).HULP(| 00000900: 32 29 00 3F 11 98 2B 3A 20 20 20 20 8B 20 28 54 |2).?..+: . (T| 00000910: 49 4A 44 28 4B 29 B1 4D 41 58 28 4B 29 20 B0 20 |IJD(K).MAX(K) . | 00000920: 54 49 4A 44 28 4B 29 B3 4D 49 4E 28 4B 29 29 20 |TIJD(K).MIN(K)) | 00000930: A7 20 46 4F 55 54 4E 55 4D 4D 45 52 B2 46 4F 00 |. FOUTNUMMER.FO.| 00000940: 45 11 B6 2B 8E 00 4B 11 C0 2B 3A 00 6C 11 88 2C |E..+..K..+:.l..,| 00000950: 8F 20 43 4F 4E 54 52 4F 4C 45 20 33 31 2F 33 30 |. CONTROLE 31/30| 00000960: 2F 32 39 2F 32 38 20 44 41 47 45 4E 00 88 11 92 |/29/28 DAGEN....| 00000970: 2C 4D 41 AF 9A 52 4F 4C 45 24 B2 4D 41 AF 24 28 |,MA..ROLE$.MA.$(| 00000980: 54 49 4A 44 28 32 29 29 00 C3 11 9C 2C 8B 20 49 |TIJD(2))....,. I| 00000990: 4E 53 54 52 28 4D 41 AF 31 24 2C 4D 41 AF 9A 52 |NSTR(MA.1$,MA..R| 000009A0: 4F 4C 45 24 29 B1 30 20 AF 20 54 49 4A 44 28 33 |OLE$).0 . TIJD(3| 000009B0: 29 B2 33 31 20 A7 20 46 4F 55 54 4E 55 4D 4D 45 |).31 . FOUTNUMME| 000009C0: 52 B2 35 00 01 12 A6 2C 8B 20 54 49 4A 44 28 32 |R.5....,. TIJD(2| 000009D0: 29 B2 32 20 AF 20 54 49 4A 44 28 33 29 B1 32 38 |).2 . TIJD(3).28| 000009E0: 20 AF 20 54 49 4A 44 28 31 29 20 4D 4F 44 20 34 | . TIJD(1) MOD 4| 000009F0: B1 30 20 A7 20 46 4F 55 54 4E 55 4D 4D 45 52 B2 |.0 . FOUTNUMMER.| 00000A00: 36 00 3F 12 B0 2C 8B 20 54 49 4A 44 28 32 29 B2 |6.?..,. TIJD(2).| 00000A10: 32 20 AF 20 54 49 4A 44 28 33 29 B1 32 39 20 AF |2 . TIJD(3).29 .| 00000A20: 20 54 49 4A 44 28 31 29 20 4D 4F 44 20 34 B2 30 | TIJD(1) MOD 4.0| 00000A30: 20 A7 20 46 4F 55 54 4E 55 4D 4D 45 52 B2 37 00 | . FOUTNUMMER.7.| 00000A40: 67 12 BA 2C 8B 20 46 4F 55 54 4E 55 4D 4D 45 52 |g..,. FOUTNUMMER| 00000A50: B1 34 20 A7 20 8D 20 31 30 30 30 30 3A 54 49 4A |.4 . . 10000:TIJ| 00000A60: 44 28 33 29 B2 33 32 00 78 12 C4 2C 46 4F 55 54 |D(3).32.x..,FOUT| 00000A70: 4E 55 4D 4D 45 52 B2 30 00 7E 12 CE 2C 8E 00 84 |NUMMER.0.~..,...| 00000A80: 12 D8 2C 3A 00 B0 12 E0 2E 8F 20 2A 2A 20 49 4E |..,:...... ** IN| 00000A90: 20 45 45 4E 20 4B 41 44 45 52 20 44 45 20 4E 41 | EEN KADER DE NA| 00000AA0: 4D 45 4E 20 41 46 44 52 55 4B 4B 45 4E 20 2A 2A |MEN AFDRUKKEN **| 00000AB0: 00 C4 12 EA 2E 48 4F B2 35 3A 56 45 B2 35 3A 8D |.....HO.5:VE.5:.| 00000AC0: 20 31 31 30 00 F5 12 F4 2E 99 20 22 44 49 54 20 | 110...... "DIT | 00000AD0: 49 53 20 44 45 20 4C 49 4A 53 54 20 56 41 4E 20 |IS DE LIJST VAN | 00000AE0: 31 36 2D 4A 41 52 49 47 45 4E 20 45 4E 20 4F 55 |16-JARIGEN EN OU| 00000AF0: 44 45 52 3A 22 00 FB 12 FE 2E 3A 00 18 13 08 2F |DER:".....:..../| 00000B00: 3A 20 57 48 49 4C 45 20 41 41 4E 54 41 4C 20 4D |: WHILE AANTAL M| 00000B10: 4F 44 20 31 30 20 B2 30 00 30 13 12 2F 3A 20 20 |OD 10 .0.0../: | 00000B20: 48 4F B2 31 3A 56 45 B2 31 30 3A 8D 20 31 31 30 |HO.1:VE.10:. 110| 00000B30: 00 77 13 1C 2F 3A 20 20 99 20 22 44 52 55 4B 20 |.w../: . "DRUK | 00000B40: 45 45 4E 20 54 4F 45 54 53 20 49 4E 20 56 4F 4F |EEN TOETS IN VOO| 00000B50: 52 20 44 45 20 56 4F 4C 47 45 4E 44 45 20 53 45 |R DE VOLGENDE SE| 00000B60: 52 49 45 20 56 41 4E 20 4D 41 58 20 31 30 20 4E |RIE VAN MAX 10 N| 00000B70: 41 4D 45 4E 2E 22 3B 00 84 13 26 2F 3A 20 20 8D |AMEN.";...&/: .| 00000B80: 20 32 31 30 00 98 13 30 2F 3A 20 20 20 20 81 20 | 210...0/: . | 00000B90: 4B B2 31 20 A4 20 31 30 00 B5 13 3A 2F 3A 20 20 |K.1 . 10...:/: | 00000BA0: 20 20 20 20 48 4F B2 31 3A 56 45 B2 39 AA 4B 3A | HO.1:VE.9.K:| 00000BB0: 8D 20 31 31 30 00 D2 13 44 2F 3A 20 20 20 20 20 |. 110...D/: | 00000BC0: 20 99 20 53 54 52 49 4E 47 24 28 38 36 2C 33 32 | . STRING$(86,32| 00000BD0: 29 3B 00 DF 13 4E 2F 3A 20 20 20 20 82 20 4B 00 |);...N/: . K.| 00000BE0: F1 13 58 2F 3A 20 20 20 20 41 41 4E 54 41 4C B2 |..X/: AANTAL.| 00000BF0: 31 00 FB 13 62 2F 3A 20 20 57 80 00 01 14 6C 2F |1...b/: W....l/| 00000C00: 3A 00 1D 14 76 2F 48 4F B2 35 3A 56 45 B2 41 41 |:...v/HO.5:VE.AA| 00000C10: 4E 54 41 4C AA 31 30 3A 8D 20 31 31 30 00 38 14 |NTAL.10:. 110.8.| 00000C20: 80 2F 99 20 4E 41 41 4D 24 28 4A 29 2C 47 45 42 |./. NAAM$(J),GEB| 00000C30: 44 41 54 55 4D 28 4A 29 00 4C 14 8A 2F 41 41 4E |DATUM(J).L../AAN| 00000C40: 54 41 4C B2 41 41 4E 54 41 4C AA 31 00 52 14 94 |TAL.AANTAL.1.R..| 00000C50: 2F 8E 00 58 14 9E 2F 3A 00 7E 14 C8 32 8F 20 54 |/..X../:.~..2. T| 00000C60: 57 45 45 44 45 20 53 43 48 45 52 4D 20 56 45 52 |WEEDE SCHERM VER| 00000C70: 54 4F 4F 4E 54 20 44 45 20 4C 49 4A 53 54 00 B5 |TOONT DE LIJST..| 00000C80: 14 D2 32 8D 20 31 32 30 3A 48 B0 B2 48 4F 3A 56 |..2. 120:H..HO:V| 00000C90: 45 52 54 B2 56 45 3A 20 20 8F 20 48 4F 55 44 54 |ERT.VE: . HOUDT| 00000CA0: 20 43 55 52 53 4F 52 20 53 43 48 45 52 4D 20 30 | CURSOR SCHERM 0| 00000CB0: 20 56 41 53 54 00 C9 14 DC 32 48 4F B2 31 3A 56 | VAST....2HO.1:V| 00000CC0: 45 B2 31 3A 8D 20 31 31 30 00 E9 14 E6 32 53 43 |E.1:. 110....2SC| 00000CD0: 52 45 45 4E 20 30 2C 30 2C 31 2C 31 3A 20 20 8F |REEN 0,0,1,1: .| 00000CE0: 20 53 43 48 45 52 4D 20 31 00 11 15 F0 32 3A 20 | SCHERM 1....2: | 00000CF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 8F | .| 00000D00: 20 44 52 55 4B 20 44 45 20 4C 49 4A 53 54 20 41 | DRUK DE LIJST A| 00000D10: 46 00 24 15 FA 32 3A 20 81 20 4B B2 31 20 A4 20 |F.$..2: . K.1 . | 00000D20: 49 4D 41 58 00 43 15 04 33 3A 20 20 20 99 20 4E |IMAX.C..3: . N| 00000D30: 41 41 4D 24 28 4B 29 2C 47 45 42 44 41 54 55 4D |AAM$(K),GEBDATUM| 00000D40: 28 4B 29 00 4D 15 0E 33 3A 20 82 20 4B 00 53 15 |(K).M..3: . K.S.| 00000D50: 18 33 3A 00 73 15 22 33 99 20 22 54 4F 45 54 53 |.3:.s."3. "TOETS| 00000D60: 20 4F 4D 20 54 45 52 55 47 20 54 45 20 47 41 41 | OM TERUG TE GAA| 00000D70: 4E 20 22 00 7D 15 2C 33 8D 20 32 31 30 00 A3 15 |N ".}.,3. 210...| 00000D80: 36 33 53 43 52 45 45 4E 20 30 2C 30 2C 30 2C 30 |63SCREEN 0,0,0,0| 00000D90: 3A 20 20 8F 20 53 43 48 45 52 4D 20 30 20 54 45 |: . SCHERM 0 TE| 00000DA0: 52 55 47 00 DA 15 40 33 48 4F B2 48 B0 3A 56 45 |RUG...@3HO.H.:VE| 00000DB0: B2 56 45 52 54 3A 8D 20 31 31 30 3A 20 20 8F 20 |.VERT:. 110: . | 00000DC0: 50 4F 53 49 54 49 45 20 43 55 52 53 4F 52 20 4F |POSITIE CURSOR O| 00000DD0: 50 20 53 43 48 45 52 4D 20 30 00 E0 15 4A 33 8E |P SCHERM 0...J3.| 00000DE0: 00 E6 15 54 33 3A 00 F8 15 A8 61 8F 20 46 4F 55 |...T3:....a. FOU| 00000DF0: 54 4E 55 4D 4D 45 52 53 00 26 16 B2 61 83 20 31 |TNUMMERS.&..a. 1| 00000E00: 2C 20 22 44 49 54 20 4A 41 41 52 20 4D 41 47 20 |, "DIT JAAR MAG | 00000E10: 4E 49 45 54 20 47 45 4B 4F 5A 45 4E 20 57 4F 52 |NIET GEKOZEN WOR| 00000E20: 44 45 4E 20 21 22 00 5B 16 BC 61 83 20 32 2C 20 |DEN !".[..a. 2, | 00000E30: 22 44 45 20 4D 41 41 4E 44 45 4E 20 57 4F 52 44 |"DE MAANDEN WORD| 00000E40: 45 4E 20 47 45 4E 55 4D 4D 45 52 44 20 56 41 4E |EN GENUMMERD VAN| 00000E50: 20 31 20 54 4F 54 20 31 32 21 22 00 8D 16 C6 61 | 1 TOT 12!"....a| 00000E60: 83 20 33 2C 20 22 44 45 20 44 41 47 45 4E 20 4C |. 3, "DE DAGEN L| 00000E70: 4F 50 45 4E 20 56 41 4E 20 31 20 54 4F 54 20 4D |OPEN VAN 1 TOT M| 00000E80: 41 58 49 4D 41 41 4C 20 33 31 20 21 22 00 B2 16 |AXIMAAL 31 !"...| 00000E90: D0 61 83 20 34 2C 20 22 41 4C 4C 45 45 4E 20 43 |.a. 4, "ALLEEN C| 00000EA0: 49 4A 46 45 52 53 20 47 45 42 52 55 49 4B 45 4E |IJFERS GEBRUIKEN| 00000EB0: 21 22 00 D6 16 DA 61 83 20 35 2C 20 22 44 45 5A |!"....a. 5, "DEZ| 00000EC0: 45 20 4D 41 41 4E 44 20 54 45 4C 54 20 33 30 20 |E MAAND TELT 30 | 00000ED0: 44 41 47 45 4E 22 00 F3 16 E4 61 83 20 36 2C 20 |DAGEN"....a. 6, | 00000EE0: 22 46 45 42 20 54 45 4C 54 20 32 38 20 44 41 47 |"FEB TELT 28 DAG| 00000EF0: 45 4E 22 00 25 17 EE 61 83 20 37 2C 20 22 46 45 |EN".%..a. 7, "FE| 00000F00: 42 20 54 45 4C 54 20 49 4E 20 45 45 4E 20 53 43 |B TELT IN EEN SC| 00000F10: 48 52 49 4B 4B 45 4C 4A 41 41 52 20 32 39 20 44 |HRIKKELJAAR 29 D| 00000F20: 41 47 45 4E 22 00 2B 17 02 62 3A 00 41 17 0C 62 |AGEN".+..b:.A..b| 00000F30: 8F 20 44 41 54 41 20 47 45 4C 49 4A 4B 5A 45 54 |. DATA GELIJKZET| 00000F40: 24 00 69 17 16 62 83 20 22 54 4F 45 54 53 20 48 |$.i..b. "TOETS H| 00000F50: 45 54 20 4A 41 41 52 20 49 4E 20 28 32 30 2D 38 |ET JAAR IN (20-8| 00000F60: 36 29 22 2C 38 36 2C 32 30 00 90 17 20 62 83 20 |6)",86,20... b. | 00000F70: 22 54 4F 45 54 53 20 44 45 20 4D 41 41 4E 44 20 |"TOETS DE MAAND | 00000F80: 49 4E 20 28 30 31 2D 31 32 29 22 2C 31 32 2C 31 |IN (01-12)",12,1| 00000F90: 00 B7 17 2A 62 83 20 22 54 4F 45 54 53 20 44 45 |...*b. "TOETS DE| 00000FA0: 20 44 41 47 20 49 4E 20 28 30 31 2D 33 31 29 20 | DAG IN (01-31) | 00000FB0: 20 22 2C 33 31 2C 31 00 BD 17 66 62 3A 00 D0 17 | ",31,1...fb:...| 00000FC0: 70 62 8F 20 44 41 54 41 20 4D 41 41 4E 44 45 4E |pb. DATA MAANDEN| 00000FD0: 00 06 18 7A 62 83 20 4A 41 4E 2C 46 45 42 2C 4D |...zb. JAN,FEB,M| 00000FE0: 52 54 2C 41 50 52 2C 4D 45 49 2C 4A 55 4E 2C 4A |RT,APR,MEI,JUN,J| 00000FF0: 55 4C 2C 41 55 47 2C 53 45 50 2C 4F 4B 54 2C 4E |UL,AUG,SEP,OKT,N| 00001000: 4F 56 2C 44 45 43 00 0C 18 CA 62 3A 00 2B 18 90 |OV,DEC....b:.+..| 00001010: 65 8F 20 44 41 54 41 20 4E 41 41 4D 2C 20 47 45 |e. DATA NAAM, GE| 00001020: 42 4F 4F 52 54 45 44 41 54 55 4D 00 3D 18 9A 65 |BOORTEDATUM.=..e| 00001030: 83 20 4B 45 45 53 2C 36 31 30 33 31 33 00 50 18 |. KEES,610313.P.| 00001040: A4 65 83 20 4D 41 52 49 45 2C 36 36 30 35 33 30 |.e. MARIE,660530| 00001050: 00 61 18 AE 65 83 20 52 4F 42 2C 34 36 30 33 31 |.a..e. ROB,46031| 00001060: 35 00 75 18 B8 65 83 20 4D 41 52 4A 41 4E 2C 34 |5.u..e. MARJAN,4| 00001070: 33 30 38 32 37 00 86 18 C2 65 83 20 57 49 4D 2C |30827....e. WIM,| 00001080: 36 35 31 32 31 31 00 9A 18 CC 65 83 20 53 4A 4F |651211....e. SJO| 00001090: 55 4B 45 2C 36 36 31 31 31 31 00 AD 18 D6 65 83 |UKE,661111....e.| 000010A0: 20 45 4C 53 4A 45 2C 38 36 31 31 30 33 00 C2 18 | ELSJE,861103...| 000010B0: E0 65 83 20 47 52 45 45 54 4A 45 2C 37 35 30 35 |.e. GREETJE,7505| 000010C0: 32 33 00 D6 18 EA 65 83 20 41 4C 49 45 4B 45 2C |23....e. ALIEKE,| 000010D0: 37 34 30 36 31 37 00 EA 18 F4 65 83 20 47 45 52 |740617....e. GER| 000010E0: 52 49 54 2C 38 34 30 39 31 32 00 FD 18 FE 65 83 |RIT,840912....e.| 000010F0: 20 50 45 54 45 52 2C 37 36 30 31 30 31 00 10 19 | PETER,760101...| 00001100: 08 66 83 20 4D 4F 45 4D 53 2C 36 30 30 31 30 31 |.f. MOEMS,600101| 00001110: 00 22 19 12 66 83 20 4D 41 4D 53 2C 36 30 30 31 |."..f. MAMS,6001| 00001120: 30 31 00 00 00 |01... |
....... 1000.....CLEAR A:. 1010.'.D.CLS.
-.E...?.N.. VE.0 . VE.1.Q.O.. HO.0 . HO.
1.N.P.. HO.80 . HO.HO.80:. 112...Q.. VE.
24 . VE.VE.24:. 113...S.LOCATE VE,HO...W
.....X.VE.CSRLIN:HO..(0):....H.. ** FOUT
EN- EN MEDEDELINGENKADER **...I.....R.IN
$..$(1):. F(IN$).0 . 210...S.......A.100
:. 20.).... DATUM.C.... ** INITIALISATIE
**...... TIJD(3),FOUT(7),MAX(3),MIN(3),
FOUT$(7),GELIJKZET$(3),MA.$(12)...... I.
1 . 7: . FOUT(I),FOUT$(I):. I...... I.1
. 3:. G.L.B.AANTAL.1.V.L.. 100...V.. 102
00: . KADER TEKENEN...... ** NU DATUM I
NVOEREN **.3.... INLEZEN JAAR,MAAND EN
DAG.C.D.: . I.1 . 3.Z.N.: K.I:. 11000:K
.0.D.X.: . I.J...:.....HO.25:VE.10:. 110
...... "DE DATUM IS:";TIJD(3);...... MA.
$(TIJD(2));" ";.R.... "19";J(D(TIJD(1)),
2)...... DATA INLEZEN.....I.0...(.:...2.
: WHILE NAAM$..".".?.<.: . NAAM$,GEBDAT
UM: . LEES NAMEN UIT DATALIJST.L.F.: I
.I.1.U.P.: W..[.Z.:.L.D.IMAX.I.1:I.0...N
.. 26000: . GEEF NAMEN EEN INDEX...X..
NAAM$(IMAX),GEBDATUM(IMAX).....:.K...: .
I.1 . IMAX.....: . NAAM$(I),GEBDATUM(I
)... .: . I.....:...... DATUM-GEBDATUM.W
.... "NU DE 16-JARIGEN, ?=VOLLEDIG OVERZ
ICHT. ANDERE TOETS:16-JARIGEN."...H.GEBD
ATUMX.10000.TIJD(1).100.TIJD(2).TIJD(3).
..R.. 210.....:.....: WHILE IN$."?".Q...
: . 13000: . NAAR TWEEDE SCHERM.....:
. 210.....: W......:...... 100...".:.2.
,.: . I.1 . IMAX: . 16-JARIGEN EN OUDER
AFDRUKKEN.H.6.: . GEBDATUMX.GEBDATUM(I
)..160000! . J.I:. 12000.R.@.: . I.X.J.:
...T.. "EINDE PROGRAMMA."....'.....'. FO
UTMEDEDELING....'H..HO:VERT.VE.S.$'HO.0:
VE.22:. 110....'. FOUT$(FOUTNUMMER);...8
'VE.23:. 110.4.B'. "MET EEN WILLEKEURIGE
TOETS KUNT U WEER VERDER.";.>.L'. 210.D
.V':.W.`': . VE.22 . 23.V.J': . 110:.
STRING$(80,32)...T': . VE...~':...'HO.3
0:VE.K.3:. 110:. STRING$(2,32).S..'FOUTN
UMMER.0: . FOUT AFGEHANDELD....'HO.H.:VE
.VERT:. 110....'.....':....'H..HO:VERT.V
E....'HO.0.'..'. VE.21 . 24 . 3.1..(. 11
0.G..(. STRING$(80,61);.P..(. VE.H..(HO.
H.:VE.VERT:. 110.N.((..T.2(:....*. SUBRO
UTINE INVOER EN CONTROLE....+HO.0:VE.3.K
:. 110.C..+. GELIJKZET$(K);.S..+TIJD(K).
100.Y. +:...*+: WHILE TIJD(K).MAX(K) .
TIJD(K).MIN(K)...4+: . L.1 . 2.2.>+:
HO.29.L:. 110.C.H+: . 210.K.R+
: WHILE INSTR(CIJFER$,IN$).0...\+
: FOUTNUMMER.4:. 10000:. 210...
F+: W....P+: . IN$;.Q.Z+:
HULP(L).E(IN$)....+: . L....+:
TIJD(K).10.HULP(1).HULP(2).?..+: . (T
IJD(K).MAX(K) . TIJD(K).MIN(K)) . FOUTNU
MMER.FO.E..+..K..+:.L..,. CONTROLE 31/30
/29/28 DAGEN....,MA..ROLE$.MA.$(TIJD(2))
.C..,. INSTR(MA.1$,MA..ROLE$).0 . TIJD(3
).31 . FOUTNUMMER.5....,. TIJD(2).2 . TI
JD(3).28 . TIJD(1) MOD 4.0 . FOUTNUMMER.
6.?..,. TIJD(2).2 . TIJD(3).29 . TIJD(1)
MOD 4.0 . FOUTNUMMER.7.G..,. FOUTNUMMER
.4 . . 10000:TIJD(3).32.X.D,FOUTNUMMER.0
.~.N,....X,:...... ** IN EEN KADER DE NA
MEN AFDRUKKEN **.D...HO.5:VE.5:. 110....
.. "DIT IS DE LIJST VAN 16-JARIGEN EN OU
DER:".....:..../: WHILE AANTAL MOD 10 .0
.0../: HO.1:VE.10:. 110.W../: . "DRUK
EEN TOETS IN VOOR DE VOLGENDE SERIE VAN
MAX 10 NAMEN.";...&/: . 210...0/: .
K.1 . 10...:/: HO.1:VE.9.K:. 110.R.
D/: . STRING$(86,32);...N/: . K.
..X/: AANTAL.1...B/: W....L/:...V/HO
.5:VE.AANTAL.10:. 110.8../. NAAM$(J),GEB
DATUM(J).L../AANTAL.AANTAL.1.R../..X../:
.~.H2. TWEEDE SCHERM VERTOONT DE LIJST..
.R2. 120:H..HO:VERT.VE: . HOUDT CURSOR
SCHERM 0 VAST.I..2HO.1:VE.1:. 110....2SC
REEN 0,0,1,1: . SCHERM 1....2:
. DRUK DE LIJST AF.$..2: . K.1 .
IMAX.C..3: . NAAM$(K),GEBDATUM(K).M..3
: . K.S..3:.S."3. "TOETS OM TERUG TE GAA
N ".}.,3. 210...63SCREEN 0,0,0,0: . SCH
ERM 0 TERUG.Z.@3HO.H.:VE.VERT:. 110: .
POSITIE CURSOR OP SCHERM 0...J3....T3:..
..A. FOUTNUMMERS.&..A. 1, "DIT JAAR MAG
NIET GEKOZEN WORDEN !".[..A. 2, "DE MAAN
DEN WORDEN GENUMMERD VAN 1 TOT 12!"...FA
. 3, "DE DAGEN LOPEN VAN 1 TOT MAXIMAAL
31 !"...PA. 4, "ALLEEN CIJFERS GEBRUIKEN
!".V.ZA. 5, "DEZE MAAND TELT 30 DAGEN"..
..A. 6, "FEB TELT 28 DAGEN".%..A. 7, "FE
B TELT IN EEN SCHRIKKELJAAR 29 DAGEN".+.
.B:.A..B. DATA GELIJKZET$.I..B. "TOETS H
ET JAAR IN (20-86)",86,20... B. "TOETS D
E MAAND IN (01-12)",12,1...*B. "TOETS DE
DAG IN (01-31) ",31,1...FB:.P.PB. DATA
MAANDEN...ZB. JAN,FEB,MRT,APR,MEI,JUN,J
UL,AUG,SEP,OKT,NOV,DEC...JB:.+..E. DATA
NAAM, GEBOORTEDATUM.=..E. KEES,610313.P.
.E. MARIE,660530.A..E. ROB,460315.U..E.
MARJAN,430827...BE. WIM,651211...LE. SJO
UKE,661111...VE. ELSJE,861103.B..E. GREE
TJE,750523.V..E. ALIEKE,740617....E. GER
RIT,840912....E. PETER,760101....F. MOEM
S,600101."..F. MAMS,600101...
> CLICK IMAGE PREVIEW FOR FULL MODAL