CILIND-6
FILE INFORMATION
FILENAME(S): CILIND-6
FILE TYPE(S): PRG
FILE SIZE: 3.7K
FIRST SEEN: 2025-11-30 21:06:41
APPEARS ON: 1 disk(s)
FILE HASH
bc37cb4d947e99a4338cadbcbab6a96607411cc13409d9c53a4af14aca674b0d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| STR I BASIC | CILIND-6 | PRG | DuncanTwain | 11 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2C 08 18 29 4B 4F 50 24 B2 22 4C 49 46 45 |..,..)KOP$."LIFE| 00000010: 20 56 41 4E 20 43 4F 4E 57 41 59 20 4F 50 20 45 | VAN CONWAY OP E| 00000020: 45 4E 20 43 49 4C 49 4E 44 45 52 22 00 52 08 A8 |EN CILINDER".R..| 00000030: 2F 8F 20 2A 2A 2A 2A 20 54 45 4C 20 42 55 52 45 |/. **** TEL BURE| 00000040: 4E 20 4F 50 20 43 49 4C 49 4E 44 45 52 20 2A 2A |N OP CILINDER **| 00000050: 2A 2A 00 58 08 B2 2F 27 00 6A 08 BC 2F 41 41 4E |**.X../'.j../AAN| 00000060: 54 41 4C 42 55 52 45 4E B2 30 00 7E 08 C6 2F 81 |TALBUREN.0.~../.| 00000070: 20 48 B2 48 B0 AB 31 20 A4 20 48 B0 AA 31 00 9A | H.H..1 . H..1..| 00000080: 08 CB 2F 48 48 B2 48 3A 8B 20 48 B2 30 20 A7 20 |../HH.H:. H.0 . | 00000090: 48 48 B2 42 52 45 45 44 54 45 00 B3 08 D0 2F 8B |HH.BREEDTE..../.| 000000A0: 20 48 B2 42 52 45 45 44 54 45 AA 31 20 A7 20 48 | H.BREEDTE.1 . H| 000000B0: 48 B2 31 00 E0 08 D5 2F 81 20 56 B2 A5 4D 41 58 |H.1..../. V..MAX| 000000C0: 28 31 2C 56 45 52 AB 31 29 20 A4 20 46 47 4E 4D |(1,VER.1) . FGNM| 000000D0: 49 4E 28 48 4F 4F 47 54 45 2C 56 45 52 AA 31 29 |IN(HOOGTE,VER.1)| 000000E0: 00 1C 09 DA 2F 8B 20 57 45 52 45 4C 44 24 28 4F |..../. WERELD$(O| 000000F0: 55 44 2C 48 48 2C 56 29 B2 42 45 57 4F 91 44 24 |UD,HH,V).BEWO.D$| 00000100: 20 A7 20 41 41 4E 54 41 4C 42 55 52 45 4E B2 41 | . AANTALBUREN.A| 00000110: 41 4E 54 41 4C 42 55 52 45 4E AA 31 00 24 09 E4 |ANTALBUREN.1.$..| 00000120: 2F 82 20 56 00 2C 09 EE 2F 82 20 48 00 6A 09 F8 |/. V.,../. H.j..| 00000130: 2F 8B 20 57 45 52 45 4C 44 24 28 4F 55 44 2C 48 |/. WERELD$(OUD,H| 00000140: B0 2C 56 45 52 29 B2 42 45 57 4F 91 44 24 20 A7 |.,VER).BEWO.D$ .| 00000150: 20 41 41 4E 54 41 4C 42 55 52 45 4E B2 41 41 4E | AANTALBUREN.AAN| 00000160: 54 41 4C 42 55 52 45 4E AB 31 00 70 09 02 30 8E |TALBUREN.1.p..0.| 00000170: 00 00 00 24 28 49 29 3A 82 20 49 00 BF 09 1A 04 |...$(I):. I.....| 00000180: 81 20 49 B2 31 20 A4 20 33 3A 87 20 47 00 CC 09 |. I.1 . 3:. G...| 00000190: 42 04 41 41 4E 54 41 4C B2 31 00 D6 09 4C 04 8D |B.AANTAL.1...L..| 000001A0: 20 31 30 30 00 F4 09 56 04 8D 20 31 30 32 30 30 | 100...V.. 10200| 000001B0: 3A 20 20 8F 20 4B 41 44 45 52 20 54 45 4B 45 4E |: . KADER TEKEN| 000001C0: 45 4E 00 12 0A B0 04 8F 20 2A 2A 20 4E 55 20 44 |EN...... ** NU D| 000001D0: 41 54 55 4D 20 49 4E 56 4F 45 52 45 4E 20 2A 2A |ATUM INVOEREN **| 000001E0: 00 33 0A BA 04 8F 20 20 49 4E 4C 45 5A 45 4E 20 |.3.... INLEZEN | 000001F0: 4A 41 41 52 2C 4D 41 41 4E 44 20 45 4E 20 44 41 |JAAR,MAAND EN DA| 00000200: 47 00 43 0A C4 04 3A 20 81 20 49 B2 31 20 A4 20 |G.C...: . I.1 . | 00000210: 33 00 5A 0A CE 04 3A 20 20 4B B2 49 3A 8D 20 31 |3.Z...: K.I:. 1| 00000220: 31 30 30 30 3A 4B B2 30 00 64 0A D8 04 3A 20 82 |1000:K.0.d...: .| 00000230: 20 49 00 6A 0A E2 04 3A 00 80 0A EC 04 48 4F B2 | I.j...:.....HO.| 00000240: 32 35 3A 56 45 B2 31 30 3A 8D 20 31 31 30 00 9E |25:VE.10:. 110..| 00000250: 0A F6 04 99 20 22 44 45 20 44 41 54 55 4D 20 49 |.... "DE DATUM I| 00000260: 53 3A 22 3B 54 49 4A 44 28 33 29 3B 00 B7 0A 00 |S:";TIJD(3);....| 00000270: 05 99 20 4D 41 AF 24 28 54 49 4A 44 28 32 29 29 |.. MA.$(TIJD(2))| 00000280: 3B 22 20 22 3B 00 D2 0A 0A 05 99 20 22 31 39 22 |;" ";...... "19"| 00000290: 3B CA 28 C4 28 54 49 4A 44 28 31 29 29 2C 32 29 |;.(.(TIJD(1)),2)| 000002A0: 00 E5 0A 14 05 8F 20 44 41 54 41 20 49 4E 4C 45 |...... DATA INLE| 000002B0: 5A 45 4E 00 ED 0A 1E 05 49 B2 30 00 F3 0A 28 05 |ZEN.....I.0...(.| 000002C0: 3A 00 0A 0B 32 05 3A 20 57 48 49 4C 45 20 4E 41 |:...2.: WHILE NA| 000002D0: 41 4D 24 B3 B1 22 2E 22 00 3F 0B 3C 05 3A 20 20 |AM$..".".?.<.: | 000002E0: 87 20 4E 41 41 4D 24 2C 47 45 42 44 41 54 55 4D |. NAAM$,GEBDATUM| 000002F0: 3A 20 20 8F 20 4C 45 45 53 20 4E 41 4D 45 4E 20 |: . LEES NAMEN | 00000300: 55 49 54 20 44 41 54 41 4C 49 4A 53 54 00 4C 0B |UIT DATALIJST.L.| 00000310: 46 05 3A 20 20 49 B2 49 AA 31 00 55 0B 50 05 3A |F.: I.I.1.U.P.:| 00000320: 20 57 80 00 5B 0B 5A 05 3A 00 6C 0B 64 05 49 4D | W..[.Z.:.l.d.IM| 00000330: 41 58 B2 49 AB 31 3A 49 B2 30 00 91 0B 6E 05 8C |AX.I.1:I.0...n..| 00000340: 20 32 36 30 30 30 3A 20 20 8F 20 47 45 45 46 20 | 26000: . GEEF | 00000350: 4E 41 4D 45 4E 20 45 45 4E 20 49 4E 44 45 58 00 |NAMEN EEN INDEX.| 00000360: B2 0B 78 05 86 20 4E 41 41 4D 24 28 49 4D 41 58 |..x.. NAAM$(IMAX| 00000370: 29 2C 47 45 42 44 41 54 55 4D 28 49 4D 41 58 29 |),GEBDATUM(IMAX)| 00000380: 00 B8 0B 82 05 3A 00 CB 0B 8C 05 3A 20 81 20 49 |.....:.....: . I| 00000390: B2 31 20 A4 20 49 4D 41 58 00 E9 0B 96 05 3A 20 |.1 . IMAX.....: | 000003A0: 20 87 20 4E 41 41 4D 24 28 49 29 2C 47 45 42 44 | . NAAM$(I),GEBD| 000003B0: 41 54 55 4D 28 49 29 00 F3 0B A0 05 3A 20 82 20 |ATUM(I).....: . | 000003C0: 49 00 F9 0B AA 05 3A 00 0E 0C B4 05 8F 20 44 41 |I.....:...... DA| 000003D0: 54 55 4D 2D 47 45 42 44 41 54 55 4D 00 57 0C BE |TUM-GEBDATUM.W..| 000003E0: 05 99 20 22 4E 55 20 44 45 20 31 36 2D 4A 41 52 |.. "NU DE 16-JAR| 000003F0: 49 47 45 4E 2C 20 3F 3D 56 4F 4C 4C 45 44 49 47 |IGEN, ?=VOLLEDIG| 00000400: 20 4F 56 45 52 5A 49 43 48 54 2E 20 41 4E 44 45 | OVERZICHT. ANDE| 00000410: 52 45 20 54 4F 45 54 53 3A 31 36 2D 4A 41 52 49 |RE TOETS:16-JARI| 00000420: 47 45 4E 2E 22 00 87 0C C8 05 47 45 42 44 41 54 |GEN.".....GEBDAT| 00000430: 55 4D 58 B2 31 30 30 30 30 AC 54 49 4A 44 28 31 |UMX.10000.TIJD(1| 00000440: 29 AA 31 30 30 AC 54 49 4A 44 28 32 29 AA 54 49 |).100.TIJD(2).TI| 00000450: 4A 44 28 33 29 00 91 0C D2 05 8D 20 32 31 30 00 |JD(3)...... 210.| 00000460: 97 0C DC 05 3A 00 AB 0C E6 05 3A 20 57 48 49 4C |....:.....: WHIL| 00000470: 45 20 49 4E 24 B2 22 3F 22 00 D1 0C F0 05 3A 20 |E IN$."?".....: | 00000480: 20 8D 20 31 33 30 30 30 3A 20 20 8F 20 4E 41 41 | . 13000: . NAA| 00000490: 52 20 54 57 45 45 44 45 20 53 43 48 45 52 4D 00 |R TWEEDE SCHERM.| 000004A0: DE 0C FA 05 3A 20 20 8D 20 32 31 30 00 E7 0C 04 |....: . 210....| 000004B0: 06 3A 20 57 80 00 ED 0C 0E 06 3A 00 F7 0C 18 06 |.: W......:.....| 000004C0: 8D 20 31 30 30 00 FD 0C 22 06 3A 00 32 0D 2C 06 |. 100...".:.2.,.| 000004D0: 3A 20 81 20 49 B2 31 20 A4 20 49 4D 41 58 3A 20 |: . I.1 . IMAX: | 000004E0: 20 8F 20 31 36 2D 4A 41 52 49 47 45 4E 20 45 4E | . 16-JARIGEN EN| 000004F0: 20 4F 55 44 45 52 20 41 46 44 52 55 4B 4B 45 4E | OUDER AFDRUKKEN| 00000500: 00 68 0D 36 06 3A 20 20 8B 20 47 45 42 44 41 54 |.h.6.: . GEBDAT| 00000510: 55 4D 58 AB 47 45 42 44 41 54 55 4D 28 49 29 B1 |UMX.GEBDATUM(I).| 00000520: B2 31 36 30 30 30 30 21 20 A7 20 4A B2 49 3A 8D |.160000! . J.I:.| 00000530: 20 31 32 30 30 30 00 72 0D 40 06 3A 20 82 20 49 | 12000.r.@.: . I| 00000540: 00 78 0D 4A 06 3A 00 91 0D 54 06 99 20 22 45 49 |.x.J.:...T.. "EI| 00000550: 4E 44 45 20 50 52 4F 47 52 41 4D 4D 41 2E 22 00 |NDE PROGRAMMA.".| 00000560: 97 0D 0F 27 80 00 AC 0D 10 27 8F 20 46 4F 55 54 |...'.....'. FOUT| 00000570: 4D 45 44 45 44 45 4C 49 4E 47 00 BE 0D 1A 27 48 |MEDEDELING....'H| 00000580: B0 B2 48 4F 3A 56 45 52 54 B2 56 45 00 D3 0D 24 |..HO:VERT.VE...$| 00000590: 27 48 4F B2 30 3A 56 45 B2 32 32 3A 8D 20 31 31 |'HO.0:VE.22:. 11| 000005A0: 30 00 EC 0D 2E 27 99 20 46 4F 55 54 24 28 46 4F |0....'. FOUT$(FO| 000005B0: 55 54 4E 55 4D 4D 45 52 29 3B 00 FC 0D 38 27 56 |UTNUMMER);...8'V| 000005C0: 45 B2 32 33 3A 8D 20 31 31 30 00 34 0E 42 27 99 |E.23:. 110.4.B'.| 000005D0: 20 22 4D 45 54 20 45 45 4E 20 57 49 4C 4C 45 4B | "MET EEN WILLEK| 000005E0: 45 55 52 49 47 45 20 54 4F 45 54 53 20 4B 55 4E |EURIGE TOETS KUN| 000005F0: 54 20 55 20 57 45 45 52 20 56 45 52 44 45 52 2E |T U WEER VERDER.| 00000600: 22 3B 00 3E 0E 4C 27 8D 20 32 31 30 00 44 0E 56 |";.>.L'. 210.D.V| 00000610: 27 3A 00 57 0E 60 27 3A 20 81 20 56 45 B2 32 32 |':.W.`': . VE.22| 00000620: 20 A4 20 32 33 00 76 0E 6A 27 3A 20 20 20 8D 20 | . 23.v.j': . | 00000630: 31 31 30 3A 99 20 53 54 52 49 4E 47 24 28 38 30 |110:. STRING$(80| 00000640: 2C 33 32 29 00 81 0E 74 27 3A 20 82 20 56 45 00 |,32)...t': . VE.| 00000650: 87 0E 7E 27 3A 00 AE 0E 7F 27 48 4F B2 33 30 3A |..~':....'HO.30:| 00000660: 56 45 B2 4B AA 33 3A 8D 20 31 31 30 3A 99 20 53 |VE.K.3:. 110:. S| 00000670: 54 52 49 4E 47 24 28 32 2C 33 32 29 00 D3 0E 88 |TRING$(2,32)....| 00000680: 27 46 4F 55 54 4E 55 4D 4D 45 52 B2 30 3A 20 8F |'FOUTNUMMER.0: .| 00000690: 20 46 4F 55 54 20 41 46 47 45 48 41 4E 44 45 4C | FOUT AFGEHANDEL| 000006A0: 44 00 EB 0E 92 27 48 4F B2 48 B0 3A 56 45 B2 56 |D....'HO.H.:VE.V| 000006B0: 45 52 54 3A 8D 20 31 31 30 00 F1 0E 9C 27 8E 00 |ERT:. 110....'..| 000006C0: F7 0E A6 27 3A 00 09 0F E2 27 48 B0 B2 48 4F 3A |...':....'H..HO:| 000006D0: 56 45 52 54 B2 56 45 00 12 0F EC 27 48 4F B2 30 |VERT.VE....'HO.0| 000006E0: 00 27 0F F6 27 81 20 56 45 B2 32 31 20 A4 20 32 |.'..'. VE.21 . 2| 000006F0: 34 20 A9 20 33 00 31 0F 00 28 8D 20 31 31 30 00 |4 . 3.1..(. 110.| 00000700: 47 0F 0A 28 99 20 53 54 52 49 4E 47 24 28 38 30 |G..(. STRING$(80| 00000710: 2C 36 31 29 3B 00 50 0F 14 28 82 20 56 45 00 68 |,61);.P..(. VE.h| 00000720: 0F 1E 28 48 4F B2 48 B0 3A 56 45 B2 56 45 52 54 |..(HO.H.:VE.VERT| 00000730: 3A 8D 20 31 31 30 00 6E 0F 28 28 8E 00 74 0F 32 |:. 110.n.((..t.2| 00000740: 28 3A 00 98 0F F8 2A 8F 20 53 55 42 52 4F 55 54 |(:....*. SUBROUT| 00000750: 49 4E 45 20 49 4E 56 4F 45 52 20 45 4E 20 43 4F |INE INVOER EN CO| 00000760: 4E 54 52 4F 4C 45 00 AE 0F 02 2B 48 4F B2 30 3A |NTROLE....+HO.0:| 00000770: 56 45 B2 33 AA 4B 3A 8D 20 31 31 30 00 C3 0F 0C |VE.3.K:. 110....| 00000780: 2B 99 20 47 45 4C 49 4A 4B 5A 45 54 24 28 4B 29 |+. GELIJKZET$(K)| 00000790: 3B 00 D3 0F 16 2B 54 49 4A 44 28 4B 29 B2 31 30 |;....+TIJD(K).10| 000007A0: 30 00 D9 0F 20 2B 3A 00 06 10 2A 2B 3A 20 20 57 |0... +:...*+: W| 000007B0: 48 49 4C 45 20 54 49 4A 44 28 4B 29 B1 4D 41 58 |HILE TIJD(K).MAX| 000007C0: 28 4B 29 20 B0 20 54 49 4A 44 28 4B 29 B3 4D 49 |(K) . TIJD(K).MI| 000007D0: 4E 28 4B 29 00 19 10 34 2B 3A 20 20 20 20 81 20 |N(K)...4+: . | 000007E0: 4C B2 31 20 A4 20 32 00 32 10 3E 2B 3A 20 20 20 |L.1 . 2.2.>+: | 000007F0: 20 20 20 48 4F B2 32 39 AA 4C 3A 8D 20 31 31 30 | HO.29.L:. 110| 00000800: 00 43 10 48 2B 3A 20 20 20 20 20 20 8D 20 32 31 |.C.H+: . 21| 00000810: 30 00 6B 10 52 2B 3A 20 20 20 20 20 20 20 20 57 |0.k.R+: W| 00000820: 48 49 4C 45 20 49 4E 53 54 52 28 43 49 4A 46 45 |HILE INSTR(CIJFE| 00000830: 52 24 2C 49 4E 24 29 B2 30 00 95 10 5C 2B 3A 20 |R$,IN$).0...\+: | 00000840: 20 20 20 20 20 20 20 20 20 46 4F 55 54 4E 55 4D | FOUTNUM| 00000850: 4D 45 52 B2 34 3A 8D 20 31 30 30 30 30 3A 8D 20 |MER.4:. 10000:. | 00000860: 32 31 30 00 A5 10 66 2B 3A 20 20 20 20 20 20 20 |210...f+: | 00000870: 20 57 80 00 B7 10 70 2B 3A 20 20 20 20 20 20 99 | W....p+: .| 00000880: 20 49 4E 24 3B 00 D1 10 7A 2B 3A 20 20 20 20 20 | IN$;...z+: | 00000890: 20 48 55 4C 50 28 4C 29 B2 C5 28 49 4E 24 29 00 | HULP(L)..(IN$).| 000008A0: DE 10 84 2B 3A 20 20 20 20 82 20 4C 00 02 11 8E |...+: . L....| 000008B0: 2B 3A 20 20 20 20 54 49 4A 44 28 4B 29 B2 31 30 |+: TIJD(K).10| 000008C0: AC 48 55 4C 50 28 31 29 AA 48 55 4C 50 28 32 29 |.HULP(1).HULP(2)| 000008D0: 00 3F 11 98 2B 3A 20 20 20 20 8B 20 28 54 49 4A |.?..+: . (TIJ| 000008E0: 44 28 4B 29 B1 4D 41 58 28 4B 29 20 B0 20 54 49 |D(K).MAX(K) . TI| 000008F0: 4A 44 28 4B 29 B3 4D 49 4E 28 4B 29 29 20 A7 20 |JD(K).MIN(K)) . | 00000900: 46 4F 55 54 4E 55 4D 4D 45 52 B2 46 4F 00 45 11 |FOUTNUMMER.FO.E.| 00000910: B6 2B 8E 00 4B 11 C0 2B 3A 00 6C 11 88 2C 8F 20 |.+..K..+:.l..,. | 00000920: 43 4F 4E 54 52 4F 4C 45 20 33 31 2F 33 30 2F 32 |CONTROLE 31/30/2| 00000930: 39 2F 32 38 20 44 41 47 45 4E 00 88 11 92 2C 4D |9/28 DAGEN....,M| 00000940: 41 AF 9A 52 4F 4C 45 24 B2 4D 41 AF 24 28 54 49 |A..ROLE$.MA.$(TI| 00000950: 4A 44 28 32 29 29 00 C3 11 9C 2C 8B 20 49 4E 53 |JD(2))....,. INS| 00000960: 54 52 28 4D 41 AF 31 24 2C 4D 41 AF 9A 52 4F 4C |TR(MA.1$,MA..ROL| 00000970: 45 24 29 B1 30 20 AF 20 54 49 4A 44 28 33 29 B2 |E$).0 . TIJD(3).| 00000980: 33 31 20 A7 20 46 4F 55 54 4E 55 4D 4D 45 52 B2 |31 . FOUTNUMMER.| 00000990: 35 00 01 12 A6 2C 8B 20 54 49 4A 44 28 32 29 B2 |5....,. TIJD(2).| 000009A0: 32 20 AF 20 54 49 4A 44 28 33 29 B1 32 38 20 AF |2 . TIJD(3).28 .| 000009B0: 20 54 49 4A 44 28 31 29 20 4D 4F 44 20 34 B1 30 | TIJD(1) MOD 4.0| 000009C0: 20 A7 20 46 4F 55 54 4E 55 4D 4D 45 52 B2 36 00 | . FOUTNUMMER.6.| 000009D0: 3F 12 B0 2C 8B 20 54 49 4A 44 28 32 29 B2 32 20 |?..,. TIJD(2).2 | 000009E0: AF 20 54 49 4A 44 28 33 29 B1 32 39 20 AF 20 54 |. TIJD(3).29 . T| 000009F0: 49 4A 44 28 31 29 20 4D 4F 44 20 34 B2 30 20 A7 |IJD(1) MOD 4.0 .| 00000A00: 20 46 4F 55 54 4E 55 4D 4D 45 52 B2 37 00 67 12 | FOUTNUMMER.7.g.| 00000A10: BA 2C 8B 20 46 4F 55 54 4E 55 4D 4D 45 52 B1 34 |.,. FOUTNUMMER.4| 00000A20: 20 A7 20 8D 20 31 30 30 30 30 3A 54 49 4A 44 28 | . . 10000:TIJD(| 00000A30: 33 29 B2 33 32 00 78 12 C4 2C 46 4F 55 54 4E 55 |3).32.x..,FOUTNU| 00000A40: 4D 4D 45 52 B2 30 00 7E 12 CE 2C 8E 00 84 12 D8 |MMER.0.~..,.....| 00000A50: 2C 3A 00 B0 12 E0 2E 8F 20 2A 2A 20 49 4E 20 45 |,:...... ** IN E| 00000A60: 45 4E 20 4B 41 44 45 52 20 44 45 20 4E 41 4D 45 |EN KADER DE NAME| 00000A70: 4E 20 41 46 44 52 55 4B 4B 45 4E 20 2A 2A 00 C4 |N AFDRUKKEN **..| 00000A80: 12 EA 2E 48 4F B2 35 3A 56 45 B2 35 3A 8D 20 31 |...HO.5:VE.5:. 1| 00000A90: 31 30 00 F5 12 F4 2E 99 20 22 44 49 54 20 49 53 |10...... "DIT IS| 00000AA0: 20 44 45 20 4C 49 4A 53 54 20 56 41 4E 20 31 36 | DE LIJST VAN 16| 00000AB0: 2D 4A 41 52 49 47 45 4E 20 45 4E 20 4F 55 44 45 |-JARIGEN EN OUDE| 00000AC0: 52 3A 22 00 FB 12 FE 2E 3A 00 18 13 08 2F 3A 20 |R:".....:..../: | 00000AD0: 57 48 49 4C 45 20 41 41 4E 54 41 4C 20 4D 4F 44 |WHILE AANTAL MOD| 00000AE0: 20 31 30 20 B2 30 00 30 13 12 2F 3A 20 20 48 4F | 10 .0.0../: HO| 00000AF0: B2 31 3A 56 45 B2 31 30 3A 8D 20 31 31 30 00 77 |.1:VE.10:. 110.w| 00000B00: 13 1C 2F 3A 20 20 99 20 22 44 52 55 4B 20 45 45 |../: . "DRUK EE| 00000B10: 4E 20 54 4F 45 54 53 20 49 4E 20 56 4F 4F 52 20 |N TOETS IN VOOR | 00000B20: 44 45 20 56 4F 4C 47 45 4E 44 45 20 53 45 52 49 |DE VOLGENDE SERI| 00000B30: 45 20 56 41 4E 20 4D 41 58 20 31 30 20 4E 41 4D |E VAN MAX 10 NAM| 00000B40: 45 4E 2E 22 3B 00 84 13 26 2F 3A 20 20 8D 20 32 |EN.";...&/: . 2| 00000B50: 31 30 00 98 13 30 2F 3A 20 20 20 20 81 20 4B B2 |10...0/: . K.| 00000B60: 31 20 A4 20 31 30 00 B5 13 3A 2F 3A 20 20 20 20 |1 . 10...:/: | 00000B70: 20 20 48 4F B2 31 3A 56 45 B2 39 AA 4B 3A 8D 20 | HO.1:VE.9.K:. | 00000B80: 31 31 30 00 D2 13 44 2F 3A 20 20 20 20 20 20 99 |110...D/: .| 00000B90: 20 53 54 52 49 4E 47 24 28 38 36 2C 33 32 29 3B | STRING$(86,32);| 00000BA0: 00 DF 13 4E 2F 3A 20 20 20 20 82 20 4B 00 F1 13 |...N/: . K...| 00000BB0: 58 2F 3A 20 20 20 20 41 41 4E 54 41 4C B2 31 00 |X/: AANTAL.1.| 00000BC0: FB 13 62 2F 3A 20 20 57 80 00 01 14 6C 2F 3A 00 |..b/: W....l/:.| 00000BD0: 1D 14 76 2F 48 4F B2 35 3A 56 45 B2 41 41 4E 54 |..v/HO.5:VE.AANT| 00000BE0: 41 4C AA 31 30 3A 8D 20 31 31 30 00 38 14 80 2F |AL.10:. 110.8../| 00000BF0: 99 20 4E 41 41 4D 24 28 4A 29 2C 47 45 42 44 41 |. NAAM$(J),GEBDA| 00000C00: 54 55 4D 28 4A 29 00 4C 14 8A 2F 41 41 4E 54 41 |TUM(J).L../AANTA| 00000C10: 4C B2 41 41 4E 54 41 4C AA 31 00 52 14 94 2F 8E |L.AANTAL.1.R../.| 00000C20: 00 58 14 9E 2F 3A 00 7E 14 C8 32 8F 20 54 57 45 |.X../:.~..2. TWE| 00000C30: 45 44 45 20 53 43 48 45 52 4D 20 56 45 52 54 4F |EDE SCHERM VERTO| 00000C40: 4F 4E 54 20 44 45 20 4C 49 4A 53 54 00 B5 14 D2 |ONT DE LIJST....| 00000C50: 32 8D 20 31 32 30 3A 48 B0 B2 48 4F 3A 56 45 52 |2. 120:H..HO:VER| 00000C60: 54 B2 56 45 3A 20 20 8F 20 48 4F 55 44 54 20 43 |T.VE: . HOUDT C| 00000C70: 55 52 53 4F 52 20 53 43 48 45 52 4D 20 30 20 56 |URSOR SCHERM 0 V| 00000C80: 41 53 54 00 C9 14 DC 32 48 4F B2 31 3A 56 45 B2 |AST....2HO.1:VE.| 00000C90: 31 3A 8D 20 31 31 30 00 E9 14 E6 32 53 43 52 45 |1:. 110....2SCRE| 00000CA0: 45 4E 20 30 2C 30 2C 31 2C 31 3A 20 20 8F 20 53 |EN 0,0,1,1: . S| 00000CB0: 43 48 45 52 4D 20 31 00 11 15 F0 32 3A 20 20 20 |CHERM 1....2: | 00000CC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 8F 20 44 | . D| 00000CD0: 52 55 4B 20 44 45 20 4C 49 4A 53 54 20 41 46 00 |RUK DE LIJST AF.| 00000CE0: 24 15 FA 32 3A 20 81 20 4B B2 31 20 A4 20 49 4D |$..2: . K.1 . IM| 00000CF0: 41 58 00 43 15 04 33 3A 20 20 20 99 20 4E 41 41 |AX.C..3: . NAA| 00000D00: 4D 24 28 4B 29 2C 47 45 42 44 41 54 55 4D 28 4B |M$(K),GEBDATUM(K| 00000D10: 29 00 4D 15 0E 33 3A 20 82 20 4B 00 53 15 18 33 |).M..3: . K.S..3| 00000D20: 3A 00 73 15 22 33 99 20 22 54 4F 45 54 53 20 4F |:.s."3. "TOETS O| 00000D30: 4D 20 54 45 52 55 47 20 54 45 20 47 41 41 4E 20 |M TERUG TE GAAN | 00000D40: 22 00 7D 15 2C 33 8D 20 32 31 30 00 A3 15 36 33 |".}.,3. 210...63| 00000D50: 53 43 52 45 45 4E 20 30 2C 30 2C 30 2C 30 3A 20 |SCREEN 0,0,0,0: | 00000D60: 20 8F 20 53 43 48 45 52 4D 20 30 20 54 45 52 55 | . SCHERM 0 TERU| 00000D70: 47 00 DA 15 40 33 48 4F B2 48 B0 3A 56 45 B2 56 |G...@3HO.H.:VE.V| 00000D80: 45 52 54 3A 8D 20 31 31 30 3A 20 20 8F 20 50 4F |ERT:. 110: . PO| 00000D90: 53 49 54 49 45 20 43 55 52 53 4F 52 20 4F 50 20 |SITIE CURSOR OP | 00000DA0: 53 43 48 45 52 4D 20 30 00 E0 15 4A 33 8E 00 E6 |SCHERM 0...J3...| 00000DB0: 15 54 33 3A 00 F8 15 A8 61 8F 20 46 4F 55 54 4E |.T3:....a. FOUTN| 00000DC0: 55 4D 4D 45 52 53 00 26 16 B2 61 83 20 31 2C 20 |UMMERS.&..a. 1, | 00000DD0: 22 44 49 54 20 4A 41 41 52 20 4D 41 47 20 4E 49 |"DIT JAAR MAG NI| 00000DE0: 45 54 20 47 45 4B 4F 5A 45 4E 20 57 4F 52 44 45 |ET GEKOZEN WORDE| 00000DF0: 4E 20 21 22 00 5B 16 BC 61 83 20 32 2C 20 22 44 |N !".[..a. 2, "D| 00000E00: 45 20 4D 41 41 4E 44 45 4E 20 57 4F 52 44 45 4E |E MAANDEN WORDEN| 00000E10: 20 47 45 4E 55 4D 4D 45 52 44 20 56 41 4E 20 31 | GENUMMERD VAN 1| 00000E20: 20 54 4F 54 20 31 32 21 22 00 8D 16 C6 61 83 20 | TOT 12!"....a. | 00000E30: 33 2C 20 22 44 45 20 44 41 47 45 4E 20 4C 4F 50 |3, "DE DAGEN LOP| 00000E40: 45 4E 20 56 41 4E 20 31 20 54 4F 54 20 4D 41 58 |EN VAN 1 TOT MAX| 00000E50: 49 4D 41 41 4C 20 33 31 20 21 22 00 B2 16 D0 61 |IMAAL 31 !"....a| 00000E60: 83 20 34 2C 20 22 41 4C 4C 45 45 4E 20 43 49 4A |. 4, "ALLEEN CIJ| 00000E70: 46 45 52 53 20 47 45 42 52 55 49 4B 45 4E 21 22 |FERS GEBRUIKEN!"| 00000E80: 00 D6 16 DA 61 83 20 35 2C 20 22 44 45 5A 45 20 |....a. 5, "DEZE | 00000E90: 4D 41 41 4E 44 20 54 45 4C 54 20 33 30 20 44 41 |MAAND TELT 30 DA| 00000EA0: 47 45 4E 22 00 F3 16 E4 61 83 20 36 2C 20 22 46 |GEN"....a. 6, "F| 00000EB0: 45 42 20 54 45 4C 54 20 32 38 20 44 41 47 45 4E |EB TELT 28 DAGEN| 00000EC0: 22 00 25 17 EE 61 83 20 37 2C 20 22 46 45 42 20 |".%..a. 7, "FEB | 00000ED0: 54 45 |TE |
..,..)KOP$."LIFE VAN CONWAY OP EEN CILIN DER".R../. **** TEL BUREN OP CILINDER ** **.X../'.J../AANTALBUREN.0.~.F/. H.H..1 . H..1...K/HH.H:. H.0 . HH.BREEDTE...P/. H.BREEDTE.1 . HH.1...U/. V..MAX(1,VER.1 ) . FGNMIN(HOOGTE,VER.1)...Z/. WERELD$(O UD,HH,V).BEWO.D$ . AANTALBUREN.AANTALBUR EN.1.$../. V.,../. H.J../. WERELD$(OUD,H .,VER).BEWO.D$ . AANTALBUREN.AANTALBUREN .1.P..0....$(I):. I...... I.1 . 3:. G.L. B.AANTAL.1.V.L.. 100...V.. 10200: . KAD ER TEKENEN...... ** NU DATUM INVOEREN ** .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)...... D ATA INLEZEN.....I.0...(.:...2.: WHILE NA AM$..".".?.<.: . NAAM$,GEBDATUM: . LEE S 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 . IMA X.....: . NAAM$(I),GEBDATUM(I)... .: . I.....:...... DATUM-GEBDATUM.W.... "NU D E 16-JARIGEN, ?=VOLLEDIG OVERZICHT. ANDE RE TOETS:16-JARIGEN."...H.GEBDATUMX.1000 0.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.. "EI NDE PROGRAMMA."....'.....'. FOUTMEDEDELI NG....'H..HO:VERT.VE.S.$'HO.0:VE.22:. 11 0....'. FOUT$(FOUTNUMMER);...8'VE.23:. 1 10.4.B'. "MET EEN WILLEKEURIGE TOETS KUN T U WEER VERDER.";.>.L'. 210.D.V':.W.`': . VE.22 . 23.V.J': . 110:. STRING$(80 ,32)...T': . VE...~':...'HO.30:VE.K.3:. 110:. STRING$(2,32).S..'FOUTNUMMER.0: . FOUT AFGEHANDELD....'HO.H.:VE.VERT:. 11 0....'.....':....'H..HO:VERT.VE....'HO.0 .'..'. VE.21 . 24 . 3.1..(. 110.G..(. ST RING$(80,61);.P..(. VE.H..(HO.H.:VE.VERT :. 110.N.((..T.2(:....*. SUBROUTINE INVO ER EN CONTROLE....+HO.0:VE.3.K:. 110.C.. +. GELIJKZET$(K);.S..+TIJD(K).100.Y. +:. ..*+: WHILE TIJD(K).MAX(K) . TIJD(K).MI N(K)...4+: . L.1 . 2.2.>+: HO.29 .L:. 110.C.H+: . 210.K.R+: W HILE 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).?..+: . (TIJD(K).MAX (K) . TIJD(K).MIN(K)) . FOUTNUMMER.FO.E. .+..K..+:.L..,. CONTROLE 31/30/29/28 DAG EN....,MA..ROLE$.MA.$(TIJD(2)).C..,. INS TR(MA.1$,MA..ROLE$).0 . TIJD(3).31 . FOU TNUMMER.5....,. TIJD(2).2 . TIJD(3).28 . TIJD(1) MOD 4.0 . FOUTNUMMER.6.?..,. TI JD(2).2 . TIJD(3).29 . TIJD(1) MOD 4.0 . FOUTNUMMER.7.G..,. FOUTNUMMER.4 . . 100 00:TIJD(3).32.X.D,FOUTNUMMER.0.~.N,....X ,:...... ** IN EEN KADER DE NAMEN AFDRUK KEN **.D...HO.5:VE.5:. 110...... "DIT IS DE LIJST VAN 16-JARIGEN EN OUDER:"..... :..../: WHILE AANTAL MOD 10 .0.0../: HO .1:VE.10:. 110.W../: . "DRUK EEN TOETS IN VOOR DE VOLGENDE SERIE VAN MAX 10 NAM EN.";...&/: . 210...0/: . K.1 . 10.. .:/: HO.1:VE.9.K:. 110.R.D/: . STRING$(86,32);...N/: . K...X/: A ANTAL.1...B/: W....L/:...V/HO.5:VE.AANT AL.10:. 110.8../. NAAM$(J),GEBDATUM(J).L ../AANTAL.AANTAL.1.R../..X../:.~.H2. TWE EDE SCHERM VERTOONT DE LIJST...R2. 120:H ..HO:VERT.VE: . HOUDT CURSOR SCHERM 0 V AST.I..2HO.1:VE.1:. 110....2SCREEN 0,0,1 ,1: . SCHERM 1....2: . D RUK DE LIJST AF.$..2: . K.1 . IMAX.C..3: . NAAM$(K),GEBDATUM(K).M..3: . K.S..3 :.S."3. "TOETS OM TERUG TE GAAN ".}.,3. 210...63SCREEN 0,0,0,0: . SCHERM 0 TERU G.Z.@3HO.H.:VE.VERT:. 110: . POSITIE CU RSOR OP SCHERM 0...J3....T3:....A. FOUTN UMMERS.&..A. 1, "DIT JAAR MAG NIET GEKOZ EN WORDEN !".[..A. 2, "DE MAANDEN WORDEN GENUMMERD VAN 1 TOT 12!"...FA. 3, "DE D AGEN LOPEN VAN 1 TOT MAXIMAAL 31 !"...PA . 4, "ALLEEN CIJFERS GEBRUIKEN!".V.ZA. 5 , "DEZE MAAND TELT 30 DAGEN"....A. 6, "F EB TELT 28 DAGEN".%..A. 7, "FEB TE
> CLICK IMAGE PREVIEW FOR FULL MODAL