KLOK-4
FILE INFORMATION
FILENAME(S): KLOK-4
FILE TYPE(S): PRG
FILE SIZE: 3.4K
FIRST SEEN: 2025-11-30 21:06:41
APPEARS ON: 1 disk(s)
FILE HASH
e8e364ba7f509bafb8ad65974cea64c5686009bcaef23e7abbb35afbfc39d4a0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| STR I BASIC | KLOK-4 | PRG | DuncanTwain | 22 | 7 | 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 41 08 |'.d.CLS.-.e...A.| 00000030: 6E 00 8B 20 56 45 B2 30 20 A7 20 88 20 56 45 B2 |n.. VE.0 . . VE.| 00000040: 31 00 55 08 6F 00 8B 20 48 4F B2 30 20 A7 20 88 |1.U.o.. HO.0 . .| 00000050: 20 48 4F B2 31 00 74 08 70 00 8B 20 48 4F B1 38 | HO.1.t.p.. HO.8| 00000060: 30 20 A7 20 88 20 48 4F B2 48 4F AB 38 30 3A 89 |0 . . HO.HO.80:.| 00000070: 20 31 31 32 00 93 08 71 00 8B 20 56 45 B1 32 34 | 112...q.. VE.24| 00000080: 20 A7 20 88 20 56 45 B2 56 45 AB 32 34 3A 89 20 | . . VE.VE.24:. | 00000090: 31 31 33 00 A4 08 73 00 4C 4F 43 41 54 45 20 56 |113...s.LOCATE V| 000000A0: 45 2C 48 4F 00 AA 08 77 00 8E 00 C6 08 78 00 88 |E,HO...w.....x..| 000000B0: 20 56 45 B2 43 53 52 4C 49 4E 3A 88 20 48 4F B2 | VE.CSRLIN:. HO.| 000000C0: B9 28 30 29 3A 8E 00 D5 08 C8 00 49 4E 24 B2 49 |.(0):......IN$.I| 000000D0: 4E 4B 45 59 24 00 DB 08 C9 00 8E 00 FA 08 D2 00 |NKEY$...........| 000000E0: 49 4E 24 B2 85 24 28 31 29 3A 8B 20 C6 28 49 4E |IN$..$(1):. .(IN| 000000F0: 24 29 B2 30 20 A7 20 32 31 30 00 00 09 D3 00 8E |$).0 . 210......| 00000100: 00 11 09 E8 03 88 20 41 B2 31 30 30 3A 89 20 32 |...... A.100:. 2| 00000110: 30 00 23 09 F2 03 8F 20 54 45 4C 45 41 43 2D 4B |0.#.... TELEAC-K| 00000120: 4C 4F 4B 00 3D 09 FC 03 8F 20 2A 2A 20 49 4E 49 |LOK.=.... ** INI| 00000130: 54 49 41 4C 49 53 41 54 49 45 20 2A 2A 00 71 09 |TIALISATIE **.q.| 00000140: 06 04 86 20 54 49 4A 44 28 33 29 2C 46 4F 55 54 |... TIJD(3),FOUT| 00000150: 28 34 29 2C 4D 41 58 28 33 29 2C 46 4F 55 54 24 |(4),MAX(3),FOUT$| 00000160: 28 34 29 2C 47 45 4C 49 4A 4B 5A 45 54 24 28 33 |(4),GELIJKZET$(3| 00000170: 29 00 96 09 10 04 81 20 49 B2 31 20 A4 20 34 3A |)...... I.1 . 4:| 00000180: 87 20 46 4F 55 54 28 49 29 2C 46 4F 55 54 24 28 |. FOUT(I),FOUT$(| 00000190: 49 29 3A 82 20 49 00 BF 09 1A 04 81 20 49 B2 31 |I):. I...... I.1| 000001A0: 20 A4 20 33 3A 87 20 47 45 4C 49 4A 4B 5A 45 54 | . 3:. GELIJKZET| 000001B0: 24 28 49 29 2C 4D 41 58 28 49 29 3A 82 20 49 00 |$(I),MAX(I):. I.| 000001C0: DA 09 24 04 88 20 43 49 4A 46 45 52 24 B2 22 30 |..$.. CIJFER$."0| 000001D0: 31 32 33 34 35 36 37 38 39 22 00 E4 09 4C 04 8D |123456789"...L..| 000001E0: 20 31 30 30 00 02 0A 56 04 8D 20 31 30 32 30 30 | 100...V.. 10200| 000001F0: 3A 20 20 8F 20 4B 41 44 45 52 20 54 45 4B 45 4E |: . KADER TEKEN| 00000200: 45 4E 00 24 0A B0 04 8F 20 2A 2A 20 4E 55 20 4B |EN.$.... ** NU K| 00000210: 4C 4F 4B 20 47 45 4C 49 4A 4B 20 5A 45 54 54 45 |LOK GELIJK ZETTE| 00000220: 4E 20 2A 2A 00 30 0A BA 04 8D 20 31 34 30 30 30 |N **.0.... 14000| 00000230: 00 40 0A C4 04 3A 20 81 20 49 B2 31 20 A4 20 33 |.@...: . I.1 . 3| 00000240: 00 76 0A CE 04 3A 20 20 88 20 4B B2 49 3A 8D 20 |.v...: . K.I:. | 00000250: 31 31 30 30 30 3A 88 20 4B B2 30 3A 20 20 8F 20 |11000:. K.0: . | 00000260: 55 55 52 2C 4D 49 4E 20 45 4E 20 53 45 43 20 49 |UUR,MIN EN SEC I| 00000270: 4E 4C 45 5A 45 4E 00 80 0A D8 04 3A 20 82 20 49 |NLEZEN.....: . I| 00000280: 00 9F 0A 14 05 8F 20 2A 2A 20 44 45 20 4B 4C 4F |...... ** DE KLO| 00000290: 4B 20 47 41 41 54 20 4C 4F 50 45 4E 20 2A 2A 00 |K GAAT LOPEN **.| 000002A0: A9 0A 1E 05 8D 20 31 30 30 00 D4 0A 28 05 8D 20 |..... 100...(.. | 000002B0: 31 33 30 30 30 3A 20 20 8F 20 55 49 54 4C 45 47 |13000: . UITLEG| 000002C0: 20 48 4F 45 20 4B 4C 4F 4B 20 54 45 20 53 54 4F | HOE KLOK TE STO| 000002D0: 50 50 45 4E 00 19 0B 32 05 88 20 55 55 52 B2 54 |PPEN...2.. UUR.T| 000002E0: 49 4A 44 28 31 29 3A 88 20 4D 49 4E B2 54 49 4A |IJD(1):. MIN.TIJ| 000002F0: 44 28 32 29 3A 88 20 53 45 43 B2 54 49 4A 44 28 |D(2):. SEC.TIJD(| 00000300: 33 29 3A 8F 20 44 45 20 49 4E 47 45 53 54 45 4C |3):. DE INGESTEL| 00000310: 44 45 20 54 49 4A 44 45 4E 00 37 0B 3C 05 8D 20 |DE TIJDEN.7.<.. | 00000320: 31 30 32 30 30 3A 20 20 8F 20 4B 41 44 45 52 20 |10200: . KADER | 00000330: 54 45 4B 45 4E 45 4E 00 3D 0B 46 05 3A 00 4B 0B |TEKENEN.=.F.:.K.| 00000340: 48 05 88 20 4B 4C 41 41 52 B2 30 00 5F 0B 4B 05 |H.. KLAAR.0._.K.| 00000350: 3A 20 57 48 49 4C 45 20 A8 20 4B 4C 41 41 52 00 |: WHILE . KLAAR.| 00000360: 7E 0B 50 05 3A 20 20 20 57 48 49 4C 45 20 55 55 |~.P.: WHILE UU| 00000370: 52 B3 32 34 20 AF 20 A8 20 4B 4C 41 41 52 00 9F |R.24 . . KLAAR..| 00000380: 0B 5A 05 3A 20 20 20 20 20 57 48 49 4C 45 20 4D |.Z.: WHILE M| 00000390: 49 4E B3 36 30 20 AF 20 A8 20 4B 4C 41 41 52 00 |IN.60 . . KLAAR.| 000003A0: C2 0B 64 05 3A 20 20 20 20 20 20 20 57 48 49 4C |..d.: WHIL| 000003B0: 45 20 53 45 43 B3 36 30 20 AF 20 A8 20 4B 4C 41 |E SEC.60 . . KLA| 000003C0: 41 52 00 FA 0B 6E 05 3A 20 20 20 20 20 20 20 20 |AR...n.: | 000003D0: 20 8D 20 31 32 30 30 30 3A 20 20 8F 20 53 45 43 | . 12000: . SEC| 000003E0: 4F 4E 44 45 4E 2D 57 41 43 48 54 4C 55 53 20 45 |ONDEN-WACHTLUS E| 000003F0: 4E 20 43 4F 4E 54 52 4F 4C 45 00 26 0C 73 05 3A |N CONTROLE.&.s.:| 00000400: 20 20 20 20 20 20 20 20 20 88 20 4B 4C 41 41 52 | . KLAAR| 00000410: B2 28 49 4E 24 B2 22 53 22 29 20 B0 20 28 49 4E |.(IN$."S") . (IN| 00000420: 24 B2 22 53 22 29 00 57 0C 78 05 3A 20 20 20 20 |$."S").W.x.: | 00000430: 20 20 20 20 20 8D 20 31 31 30 3A 8D 20 31 35 30 | . 110:. 150| 00000440: 30 30 3A 20 8F 20 44 45 20 54 49 4A 44 20 41 46 |00: . DE TIJD AF| 00000450: 44 52 55 4B 4B 45 4E 00 8D 0C 82 05 3A 20 20 20 |DRUKKEN.....: | 00000460: 20 20 20 20 20 20 88 20 53 45 43 B2 53 45 43 AA | . SEC.SEC.| 00000470: 31 3A 20 20 8F 20 4F 50 20 53 54 4F 50 50 45 4E |1: . OP STOPPEN| 00000480: 20 56 41 4E 20 44 45 20 4B 4C 4F 4B 2E 00 9C 0C | VAN DE KLOK....| 00000490: 8C 05 3A 20 20 20 20 20 20 20 57 80 00 BC 0C 96 |..: W.....| 000004A0: 05 3A 20 20 20 20 20 20 20 88 20 53 45 43 B2 30 |.: . SEC.0| 000004B0: 3A 88 20 4D 49 4E B2 4D 49 4E AA 31 00 C9 0C A0 |:. MIN.MIN.1....| 000004C0: 05 3A 20 20 20 20 20 57 80 00 E7 0C AA 05 3A 20 |.: W......: | 000004D0: 20 20 20 20 88 20 4D 49 4E B2 30 3A 88 20 55 55 | . MIN.0:. UU| 000004E0: 52 B2 55 55 52 AA 31 00 F2 0C B4 05 3A 20 20 20 |R.UUR.1.....: | 000004F0: 57 80 00 02 0D BE 05 3A 20 20 20 88 20 55 55 52 |W......: . UUR| 00000500: B2 30 00 0B 0D C8 05 3A 20 57 80 00 25 0D DC 05 |.0.....: W..%...| 00000510: 88 20 48 4F B2 32 35 3A 88 20 56 45 B2 32 32 3A |. HO.25:. VE.22:| 00000520: 8D 20 31 31 30 00 41 0D E6 05 99 20 22 44 45 20 |. 110.A.... "DE | 00000530: 4B 4C 4F 4B 20 49 53 20 47 45 53 54 4F 50 54 2E |KLOK IS GESTOPT.| 00000540: 22 00 47 0D 0F 27 80 00 5C 0D 10 27 8F 20 46 4F |".G..'..\..'. FO| 00000550: 55 54 4D 45 44 45 44 45 4C 49 4E 47 00 72 0D 1A |UTMEDEDELING.r..| 00000560: 27 88 20 48 B0 B2 48 4F 3A 88 20 56 45 52 54 B2 |'. H..HO:. VERT.| 00000570: 56 45 00 8B 0D 24 27 88 20 48 4F B2 30 3A 88 20 |VE...$'. HO.0:. | 00000580: 56 45 B2 32 32 3A 8D 20 31 31 30 00 A4 0D 2E 27 |VE.22:. 110....'| 00000590: 99 20 46 4F 55 54 24 28 46 4F 55 54 4E 55 4D 4D |. FOUT$(FOUTNUMM| 000005A0: 45 52 29 3B 00 B6 0D 38 27 88 20 56 45 B2 32 33 |ER);...8'. VE.23| 000005B0: 3A 8D 20 31 31 30 00 EE 0D 42 27 99 20 22 4D 45 |:. 110...B'. "ME| 000005C0: 54 20 45 45 4E 20 57 49 4C 4C 45 4B 45 55 52 49 |T EEN WILLEKEURI| 000005D0: 47 45 20 54 4F 45 54 53 20 4B 55 4E 54 20 55 20 |GE TOETS KUNT U | 000005E0: 57 45 45 52 20 56 45 52 44 45 52 2E 22 3B 00 F8 |WEER VERDER.";..| 000005F0: 0D 4C 27 8D 20 32 31 30 00 FE 0D 56 27 3A 00 11 |.L'. 210...V':..| 00000600: 0E 60 27 3A 20 81 20 56 45 B2 32 32 20 A4 20 32 |.`': . VE.22 . 2| 00000610: 33 00 30 0E 6A 27 3A 20 20 20 8D 20 31 31 30 3A |3.0.j': . 110:| 00000620: 99 20 53 54 52 49 4E 47 24 28 38 30 2C 33 32 29 |. STRING$(80,32)| 00000630: 00 3B 0E 74 27 3A 20 82 20 56 45 00 41 0E 7E 27 |.;.t': . VE.A.~'| 00000640: 3A 00 6E 0E 7F 27 88 20 48 4F B2 33 33 AB 4C 3A |:.n..'. HO.33.L:| 00000650: 88 20 56 45 B2 4B AA 33 3A 8D 20 31 31 30 3A 99 |. VE.K.3:. 110:.| 00000660: 20 53 54 52 49 4E 47 24 28 32 2C 33 32 29 00 95 | STRING$(2,32)..| 00000670: 0E 88 27 88 20 46 4F 55 54 4E 55 4D 4D 45 52 B2 |..'. FOUTNUMMER.| 00000680: 30 3A 20 8F 20 46 4F 55 54 20 41 46 47 45 48 41 |0: . FOUT AFGEHA| 00000690: 4E 44 45 4C 44 00 B1 0E 92 27 88 20 48 4F B2 48 |NDELD....'. HO.H| 000006A0: B0 3A 88 20 56 45 B2 56 45 52 54 3A 8D 20 31 31 |.:. VE.VERT:. 11| 000006B0: 30 00 B7 0E 9C 27 8E 00 BD 0E A6 27 3A 00 E6 0E |0....'.....':...| 000006C0: D8 27 8F 20 2A 2A 20 46 4F 55 54 45 4E 2D 20 45 |.'. ** FOUTEN- E| 000006D0: 4E 20 4D 45 44 45 44 45 4C 49 4E 47 45 4E 4B 41 |N MEDEDELINGENKA| 000006E0: 44 45 52 20 2A 2A 00 FC 0E E2 27 88 20 48 B0 B2 |DER **....'. H..| 000006F0: 48 4F 3A 88 20 56 45 52 54 B2 56 45 00 07 0F EC |HO:. VERT.VE....| 00000700: 27 88 20 48 4F B2 30 00 1C 0F F6 27 81 20 56 45 |'. HO.0....'. VE| 00000710: B2 32 31 20 A4 20 32 34 20 A9 20 33 00 26 0F 00 |.21 . 24 . 3.&..| 00000720: 28 8D 20 31 31 30 00 3C 0F 0A 28 99 20 53 54 52 |(. 110.<..(. STR| 00000730: 49 4E 47 24 28 38 30 2C 36 31 29 3B 00 45 0F 14 |ING$(80,61);.E..| 00000740: 28 82 20 56 45 00 61 0F 1E 28 88 20 48 4F B2 48 |(. VE.a..(. HO.H| 00000750: B0 3A 88 20 56 45 B2 56 45 52 54 3A 8D 20 31 31 |.:. VE.VERT:. 11| 00000760: 30 00 67 0F 28 28 8E 00 6D 0F 32 28 3A 00 91 0F |0.g.((..m.2(:...| 00000770: F8 2A 8F 20 53 55 42 52 4F 55 54 49 4E 45 20 49 |.*. SUBROUTINE I| 00000780: 4E 56 4F 45 52 20 45 4E 20 43 4F 4E 54 52 4F 4C |NVOER EN CONTROL| 00000790: 45 00 AB 0F 02 2B 88 20 48 4F B2 30 3A 88 20 56 |E....+. HO.0:. V| 000007A0: 45 B2 33 AA 4B 3A 8D 20 31 31 30 00 C0 0F 0C 2B |E.3.K:. 110....+| 000007B0: 99 20 47 45 4C 49 4A 4B 5A 45 54 24 28 4B 29 3B |. GELIJKZET$(K);| 000007C0: 00 D1 0F 16 2B 88 20 54 49 4A 44 28 4B 29 B2 36 |....+. TIJD(K).6| 000007D0: 31 00 D7 0F 20 2B 3A 00 F3 0F 2A 2B 3A 20 20 57 |1... +:...*+: W| 000007E0: 48 49 4C 45 20 54 49 4A 44 28 4B 29 B1 4D 41 58 |HILE TIJD(K).MAX| 000007F0: 28 4B 29 00 06 10 34 2B 3A 20 20 20 20 81 20 4C |(K)...4+: . L| 00000800: B2 31 20 A4 20 32 00 21 10 3E 2B 3A 20 20 20 20 |.1 . 2.!.>+: | 00000810: 20 20 88 20 48 4F B2 32 39 AA 4C 3A 8D 20 31 31 | . HO.29.L:. 11| 00000820: 30 00 32 10 48 2B 3A 20 20 20 20 20 20 8D 20 32 |0.2.H+: . 2| 00000830: 31 30 00 5A 10 52 2B 3A 20 20 20 20 20 20 20 20 |10.Z.R+: | 00000840: 57 48 49 4C 45 20 49 4E 53 54 52 28 43 49 4A 46 |WHILE INSTR(CIJF| 00000850: 45 52 24 2C 49 4E 24 29 B2 30 00 86 10 5C 2B 3A |ER$,IN$).0...\+:| 00000860: 20 20 20 20 20 20 20 20 20 20 88 20 46 4F 55 54 | . FOUT| 00000870: 4E 55 4D 4D 45 52 B2 34 3A 8D 20 31 30 30 30 30 |NUMMER.4:. 10000| 00000880: 3A 8D 20 32 31 30 00 96 10 66 2B 3A 20 20 20 20 |:. 210...f+: | 00000890: 20 20 20 20 57 80 00 A8 10 70 2B 3A 20 20 20 20 | W....p+: | 000008A0: 20 20 99 20 49 4E 24 3B 00 C4 10 7A 2B 3A 20 20 | . IN$;...z+: | 000008B0: 20 20 20 20 88 20 48 55 4C 50 28 4C 29 B2 C5 28 | . HULP(L)..(| 000008C0: 49 4E 24 29 00 D1 10 84 2B 3A 20 20 20 20 82 20 |IN$)....+: . | 000008D0: 4C 00 F7 10 8E 2B 3A 20 20 20 20 88 20 54 49 4A |L....+: . TIJ| 000008E0: 44 28 4B 29 B2 31 30 AC 48 55 4C 50 28 31 29 AA |D(K).10.HULP(1).| 000008F0: 48 55 4C 50 28 32 29 00 30 11 98 2B 3A 20 20 20 |HULP(2).0..+: | 00000900: 20 8B 20 54 49 4A 44 28 4B 29 B1 4D 41 58 28 4B | . TIJD(K).MAX(K| 00000910: 29 20 A7 20 88 20 46 4F 55 54 4E 55 4D 4D 45 52 |) . . FOUTNUMMER| 00000920: B2 46 4F 55 54 28 4B 29 3A 8D 20 31 30 30 30 30 |.FOUT(K):. 10000| 00000930: 00 3A 11 A2 2B 3A 20 20 57 80 00 40 11 AC 2B 3A |.:..+: W..@..+:| 00000940: 00 46 11 B6 2B 8E 00 4C 11 C0 2B 3A 00 6E 11 E0 |.F..+..L..+:.n..| 00000950: 2E 8F 20 2A 2A 20 57 41 43 48 54 4C 55 53 20 56 |.. ** WACHTLUS V| 00000960: 4F 4F 52 20 44 45 20 4B 4C 4F 4B 20 2A 2A 00 80 |OOR DE KLOK **..| 00000970: 11 EA 2E 3A 20 81 20 4B B2 31 20 A4 20 33 30 30 |...: . K.1 . 300| 00000980: 00 8A 11 F4 2E 3A 20 82 20 4B 00 94 11 FE 2E 8D |.....: . K......| 00000990: 20 32 30 30 00 9A 11 58 2F 8E 00 A0 11 62 2F 3A | 200...X/....b/:| 000009A0: 00 C3 11 C8 32 8F 20 2A 2A 20 48 4F 45 20 44 45 |....2. ** HOE DE| 000009B0: 20 4B 4C 4F 4B 20 54 45 20 53 54 4F 50 50 45 4E | KLOK TE STOPPEN| 000009C0: 20 2A 2A 00 D9 11 D2 32 88 20 48 B0 B2 48 4F 3A | **....2. H..HO:| 000009D0: 88 20 56 45 52 54 B2 56 45 00 F2 11 DC 32 88 20 |. VERT.VE....2. | 000009E0: 48 4F B2 31 30 3A 88 20 56 45 B2 32 3A 8D 20 31 |HO.10:. VE.2:. 1| 000009F0: 31 30 00 2D 12 E6 32 99 20 22 44 45 20 54 45 4C |10.-..2. "DE TEL| 00000A00: 45 41 43 2D 4B 4C 4F 4B 2E 20 57 49 4C 54 20 55 |EAC-KLOK. WILT U| 00000A10: 20 53 54 4F 50 50 45 4E 2C 20 54 4F 45 54 53 20 | STOPPEN, TOETS | 00000A20: 44 41 4E 20 44 45 20 53 20 49 4E 2E 22 00 49 12 |DAN DE S IN.".I.| 00000A30: F0 32 88 20 48 4F B2 48 B0 3A 88 20 56 45 B2 56 |.2. HO.H.:. VE.V| 00000A40: 45 52 54 3A 8D 20 31 31 30 00 4F 12 FA 32 8E 00 |ERT:. 110.O..2..| 00000A50: 55 12 04 33 3A 00 76 12 B0 36 8F 20 2A 2A 20 55 |U..3:.v..6. ** U| 00000A60: 49 54 4C 45 47 20 47 45 4C 49 4A 4B 20 5A 45 54 |ITLEG GELIJK ZET| 00000A70: 54 45 4E 20 2A 2A 00 8C 12 BA 36 88 20 48 B0 B2 |TEN **....6. H..| 00000A80: 48 4F 3A 88 20 56 45 52 54 B2 56 45 00 A5 12 C4 |HO:. VERT.VE....| 00000A90: 36 88 20 48 4F B2 31 30 3A 88 20 56 45 B2 31 3A |6. HO.10:. VE.1:| 00000AA0: 8D 20 31 31 30 00 E7 12 CE 36 99 20 22 44 45 20 |. 110....6. "DE | 00000AB0: 54 45 4C 45 41 43 2D 4B 4C 4F 4B 2E 20 56 4F 4F |TELEAC-KLOK. VOO| 00000AC0: 52 44 41 54 20 44 45 20 4B 4C 4F 4B 20 42 45 47 |RDAT DE KLOK BEG| 00000AD0: 49 4E 54 20 54 45 20 4C 4F 50 45 4E 2C 20 4D 4F |INT TE LOPEN, MO| 00000AE0: 45 54 20 48 49 4A 22 00 F8 12 D8 36 88 20 56 45 |ET HIJ"....6. VE| 00000AF0: B2 32 3A 8D 20 31 31 30 00 3C 13 E2 36 99 20 22 |.2:. 110.<..6. "| 00000B00: 47 45 4C 49 4A 4B 20 57 4F 52 44 45 4E 20 47 45 |GELIJK WORDEN GE| 00000B10: 5A 45 54 2E 20 54 4F 45 54 53 20 48 49 45 52 56 |ZET. TOETS HIERV| 00000B20: 4F 4F 52 20 53 54 45 45 44 53 20 54 57 45 45 20 |OOR STEEDS TWEE | 00000B30: 43 49 4A 46 45 52 53 20 49 4E 2E 22 00 58 13 EC |CIJFERS IN.".X..| 00000B40: 36 88 20 48 4F B2 48 B0 3A 88 20 56 45 B2 56 45 |6. HO.H.:. VE.VE| 00000B50: 52 54 3A 8D 20 31 31 30 00 5E 13 F6 36 8E 00 64 |RT:. 110.^..6..d| 00000B60: 13 00 37 3A 00 82 13 98 3A 8F 20 2A 2A 20 44 45 |..7:....:. ** DE| 00000B70: 20 54 49 4A 44 20 41 46 44 52 55 4B 4B 45 4E 20 | TIJD AFDRUKKEN | 00000B80: 2A 2A 00 9C 13 A2 3A 88 20 48 4F B2 31 30 3A 88 |**....:. HO.10:.| 00000B90: 20 56 45 B2 31 32 3A 8D 20 31 31 30 00 BC 13 AC | VE.12:. 110....| 00000BA0: 3A 99 20 22 48 45 54 20 49 53 20 4E 55 20 22 3B |:. "HET IS NU ";| 00000BB0: 55 55 52 3B 22 20 55 55 52 2C 22 3B 00 EA 13 B6 |UUR;" UUR,";....| 00000BC0: 3A 99 20 20 4D 49 4E 3B 22 20 4D 49 4E 55 54 45 |:. MIN;" MINUTE| 00000BD0: 4E 20 45 4E 20 22 3B 53 45 43 3B 22 20 53 45 43 |N EN ";SEC;" SEC| 00000BE0: 4F 4E 44 45 4E 2E 20 20 20 22 00 FC 13 C0 3A 88 |ONDEN. "....:.| 00000BF0: 20 56 45 B2 31 34 3A 8D 20 31 31 30 00 25 14 CA | VE.14:. 110.%..| 00000C00: 3A 99 20 22 44 45 20 49 4E 47 45 42 4F 55 57 44 |:. "DE INGEBOUWD| 00000C10: 45 20 4B 4C 4F 4B 20 47 45 45 46 54 3A 20 22 3B |E KLOK GEEFT: ";| 00000C20: 54 49 4D 45 24 00 2B 14 D4 3A 8E 00 31 14 DE 3A |TIME$.+..:..1..:| 00000C30: 3A 00 43 14 20 4E 8F 20 46 4F 55 54 4E 55 4D 4D |:.C. N. FOUTNUMM| 00000C40: 45 52 53 00 75 14 84 4E 83 20 31 2C 20 22 44 45 |ERS.u..N. 1, "DE| 00000C50: 20 55 52 45 4E 20 4D 4F 45 54 45 4E 20 54 55 53 | UREN MOETEN TUS| 00000C60: 53 45 4E 20 30 30 20 45 4E 20 32 33 20 4C 49 47 |SEN 00 EN 23 LIG| 00000C70: 47 45 4E 2E 22 00 A9 14 8E 4E 83 20 32 2C 20 22 |GEN."....N. 2, "| 00000C80: 44 45 20 4D 49 4E 55 54 45 4E 20 4D 4F 45 54 45 |DE MINUTEN MOETE| 00000C90: 4E 20 54 55 53 53 45 4E 20 30 30 20 45 4E 20 35 |N TUSSEN 00 EN 5| 00000CA0: 39 20 4C 49 47 47 45 4E 22 00 DD 14 98 4E 83 20 |9 LIGGEN"....N. | 00000CB0: 33 2C 20 22 44 45 53 45 43 4F 4E 44 45 4E 20 4D |3, "DESECONDEN M| 00000CC0: 4F 45 54 45 4E 20 54 55 53 53 45 4E 20 30 30 20 |OETEN TUSSEN 00 | 00000CD0: 45 4E 20 35 39 20 4C 49 47 47 45 4E 22 00 00 15 |EN 59 LIGGEN"...| 00000CE0: A2 4E 83 20 34 2C 20 22 C1 4C 4C 45 45 4E 20 43 |.N. 4, ".LLEEN C| 00000CF0: 49 4A 46 45 52 53 20 47 45 42 52 55 49 4B 45 4E |IJFERS GEBRUIKEN| 00000D00: 00 24 15 12 52 83 20 22 D4 4F 45 54 53 20 48 45 |.$..R. ".OETS HE| 00000D10: 54 20 55 55 52 20 49 4E 20 28 30 30 2D 32 33 29 |T UUR IN (00-23)| 00000D20: 22 2C 32 33 00 4B 15 1C 52 83 20 22 D4 4F 45 54 |",23.K..R. ".OET| 00000D30: 53 20 44 45 20 4D 49 4E 55 54 45 4E 20 49 4E 20 |S DE MINUTEN IN | 00000D40: 28 30 30 2D 35 39 29 22 2C 35 39 00 73 15 26 52 |(00-59)",59.s.&R| 00000D50: 83 20 22 D4 4F 45 54 53 20 44 45 20 53 45 43 4F |. ".OETS DE SECO| 00000D60: 4E 44 45 4E 20 49 4E 20 28 30 30 2D 35 39 29 22 |NDEN IN (00-59)"| 00000D70: 2C 35 39 00 00 00 |,59... |
....... 1000.....CLEAR A:. 1010.'.D.CLS.
-.E...A.N.. VE.0 . . VE.1.U.O.. HO.0 . .
HO.1.T.P.. HO.80 . . HO.HO.80:. 112...Q
.. VE.24 . . VE.VE.24:. 113...S.LOCATE V
E,HO...W...F.X.. VE.CSRLIN:. HO..(0):..U
.H.IN$.INKEY$...I.....R.IN$..$(1):. F(IN
$).0 . 210...S........ A.100:. 20.#....
TELEAC-KLOK.=.... ** INITIALISATIE **.Q.
... TIJD(3),FOUT(4),MAX(3),FOUT$(4),GELI
JKZET$(3)...... I.1 . 4:. FOUT(I),FOUT$(
I):. I...... I.1 . 3:. GELIJKZET$(I),MAX
(I):. I.Z.$.. CIJFER$."0123456789"...L..
100...V.. 10200: . KADER TEKENEN.$....
** NU KLOK GELIJK ZETTEN **.0.... 14000
.@.D.: . I.1 . 3.V.N.: . K.I:. 11000:.
K.0: . UUR,MIN EN SEC INLEZEN...X.: . I
...... ** DE KLOK GAAT LOPEN **...... 10
0.T.(.. 13000: . UITLEG HOE KLOK TE STO
PPEN...2.. UUR.TIJD(1):. MIN.TIJD(2):. S
EC.TIJD(3):. DE INGESTELDE TIJDEN.7.<..
10200: . KADER TEKENEN.=.F.:.K.H.. KLAA
R.0._.K.: WHILE . KLAAR.~.P.: WHILE UU
R.24 . . KLAAR...Z.: WHILE MIN.60 .
. KLAAR.B.D.: WHILE SEC.60 . . KLA
AR...N.: . 12000: . SECONDEN-WA
CHTLUS EN CONTROLE.&.S.: . KLAAR
.(IN$."S") . (IN$."S").W.X.: . 1
10:. 15000: . DE TIJD AFDRUKKEN.....:
. SEC.SEC.1: . OP STOPPEN VAN DE
KLOK......: W......: . SEC.0
:. MIN.MIN.1.I. .: W......: . MI
N.0:. UUR.UUR.1.....: W......: . UUR
.0...H.: W..%.... HO.25:. VE.22:. 110.A.
... "DE KLOK IS GESTOPT.".G..'..\..'. FO
UTMEDEDELING.R..'. H..HO:. VERT.VE...$'.
HO.0:. VE.22:. 110....'. FOUT$(FOUTNUMM
ER);...8'. VE.23:. 110...B'. "MET EEN WI
LLEKEURIGE TOETS KUNT U WEER VERDER.";..
.L'. 210...V':...`': . VE.22 . 23.0.J':
. 110:. STRING$(80,32).;.T': . VE.A.~'
:.N.'. HO.33.L:. VE.K.3:. 110:. STRING$
(2,32)....'. FOUTNUMMER.0: . FOUT AFGEHA
NDELD....'. HO.H.:. VE.VERT:. 110....'..
...':...X'. ** FOUTEN- EN MEDEDELINGENKA
DER **....'. H..HO:. VERT.VE....'. HO.0.
...'. VE.21 . 24 . 3.&..(. 110.<..(. STR
ING$(80,61);.E..(. VE.A..(. HO.H.:. VE.V
ERT:. 110.G.((..M.2(:....*. SUBROUTINE I
NVOER EN CONTROLE....+. HO.0:. VE.3.K:.
110....+. GELIJKZET$(K);.Q..+. TIJD(K).6
1.W. +:...*+: WHILE TIJD(K).MAX(K)...4+
: . L.1 . 2.!.>+: . HO.29.L:. 11
0.2.H+: . 210.Z.R+: WHILE IN
STR(CIJFER$,IN$).0...\+: . FOUT
NUMMER.4:. 10000:. 210...F+: W...
.P+: . IN$;.D.Z+: . HULP(L).E(
IN$).Q..+: . L....+: . TIJD(K).10.
HULP(1).HULP(2).0..+: . TIJD(K).MAX(K
) . . FOUTNUMMER.FOUT(K):. 10000.:..+:
W..@..+:.F..+..L..+:.N.... ** WACHTLUS V
OOR DE KLOK **.....: . K.1 . 300.....: .
K...... 200...X/.. .B/:.C.H2. ** HOE DE
KLOK TE STOPPEN **.Y.R2. H..HO:. VERT.V
E....2. HO.10:. VE.2:. 110.-..2. "DE TEL
EAC-KLOK. WILT U STOPPEN, TOETS DAN DE S
IN.".I..2. HO.H.:. VE.VERT:. 110.O..2..
U..3:.V..6. ** UITLEG GELIJK ZETTEN **..
..6. H..HO:. VERT.VE...D6. HO.10:. VE.1:
. 110...N6. "DE TELEAC-KLOK. VOORDAT DE
KLOK BEGINT TE LOPEN, MOET HIJ"...X6. VE
.2:. 110.<..6. "GELIJK WORDEN GEZET. TOE
TS HIERVOOR STEEDS TWEE CIJFERS IN.".X..
6. HO.H.:. VE.VERT:. 110.^..6..D..7:....
:. ** DE TIJD AFDRUKKEN **....:. HO.10:.
VE.12:. 110....:. "HET IS NU ";UUR;" UU
R,";....:. MIN;" MINUTEN EN ";SEC;" SEC
ONDEN. "....:. VE.14:. 110.%.J:. "DE I
NGEBOUWDE KLOK GEEFT: ";TIME$.+.T:..1..:
:.C. N. FOUTNUMMERS.U..N. 1, "DE UREN MO
ETEN TUSSEN 00 EN 23 LIGGEN."....N. 2, "
DE MINUTEN MOETEN TUSSEN 00 EN 59 LIGGEN
"....N. 3, "DESECONDEN MOETEN TUSSEN 00
EN 59 LIGGEN"....N. 4, "ALLEEN CIJFERS G
EBRUIKEN.$..R. "TOETS HET UUR IN (00-23)
",23.K..R. "TOETS DE MINUTEN IN (00-59)"
,59.S.&R. "TOETS DE SECONDEN IN (00-59)"
,59...
> CLICK IMAGE PREVIEW FOR FULL MODAL