LOGOKLOK.LOGO

FILE INFORMATION

FILENAME(S): LOGOKLOK.LOGO

FILE TYPE(S): PRG

FILE SIZE: 1.1K

FIRST SEEN: 2025-11-30 21:12:55

APPEARS ON: 3 disk(s)

FILE HASH

fa935c2b0f248d1fcd407805b7c67366210ea0a6299686e7289e795b839337f8

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
LOGO NEDERLANDS	LOGOKLOK.LOGO	PRG	DuncanTwain	22	7	DOWNLOAD FILE
LOGO NEDERLANDS	LOGOKLOK.LOGO	PRG	DuncanTwain	22	7	DOWNLOAD FILE
LOGO NEDERLANDS	LOGOKLOK.LOGO	PRG	DuncanTwain	22	7	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 21 4B 0D  20 57 45 47 20 5B 5A 45  |. TO !K. WEG [ZE|
00000010: 54 4B 4C 4F 4B 20 4B 4C  4F 4B 20 53 45 4B 4F 4E  |TKLOK KLOK SEKON|
00000020: 44 45 4E 20 42 43 44 20  44 45 43 20 4E 41 4D 45  |DEN BCD DEC NAME|
00000030: 4E 20 21 4B 5D 0D 45 4E  44 0D 0D 54 4F 20 5A 45  |N !K].END..TO ZE|
00000040: 54 4B 4C 4F 4B 20 3A 55  55 52 20 3A 4D 49 4E 20  |TKLOK :UUR :MIN |
00000050: 3A 53 45 4B 0D 20 2E 44  45 50 4F 53 49 54 20 35  |:SEK. .DEPOSIT 5|
00000060: 36 33 33 34 20 42 49 54  4F 52 20 2E 45 58 41 4D  |6334 BITOR .EXAM|
00000070: 49 4E 45 20 35 36 33 33  34 20 31 32 38 0D 20 41  |INE 56334 128. A|
00000080: 4C 53 20 4E 49 45 54 20  3A 55 55 52 20 3D 20 31  |LS NIET :UUR = 1|
00000090: 32 20 44 41 4E 20 41 4C  53 20 3A 55 55 52 20 3E  |2 DAN ALS :UUR >|
000000A0: 20 31 31 20 44 41 4E 20  4D 41 41 4B 20 22 55 55  | 11 DAN MAAK "UU|
000000B0: 52 20 3A 55 55 52 20 2B  20 36 38 0D 20 2E 44 45  |R :UUR + 68. .DE|
000000C0: 50 4F 53 49 54 20 35 36  33 33 31 20 42 43 44 20  |POSIT 56331 BCD |
000000D0: 3A 55 55 52 0D 20 2E 44  45 50 4F 53 49 54 20 35  |:UUR. .DEPOSIT 5|
000000E0: 36 33 33 30 20 42 43 44  20 3A 4D 49 4E 0D 20 2E  |6330 BCD :MIN. .|
000000F0: 44 45 50 4F 53 49 54 20  35 36 33 32 39 20 42 43  |DEPOSIT 56329 BC|
00000100: 44 20 3A 53 45 4B 0D 20  2E 44 45 50 4F 53 49 54  |D :SEK. .DEPOSIT|
00000110: 20 35 36 33 32 38 20 30  0D 45 4E 44 0D 0D 54 4F  | 56328 0.END..TO|
00000120: 20 4B 4C 4F 4B 0D 20 4D  41 41 4B 20 22 55 55 52  | KLOK. MAAK "UUR|
00000130: 20 2E 45 58 41 4D 49 4E  45 20 35 36 33 33 31 0D  | .EXAMINE 56331.|
00000140: 20 4D 41 41 4B 20 22 4D  49 4E 20 44 45 43 20 2E  | MAAK "MIN DEC .|
00000150: 45 58 41 4D 49 4E 45 20  35 36 33 33 30 0D 20 4D  |EXAMINE 56330. M|
00000160: 41 41 4B 20 22 53 45 4B  20 49 4E 54 45 47 45 52  |AAK "SEK INTEGER|
00000170: 20 28 20 31 30 20 2A 20  28 20 44 45 43 20 2E 45  | ( 10 * ( DEC .E|
00000180: 58 41 4D 49 4E 45 20 35  36 33 32 39 20 29 20 2B  |XAMINE 56329 ) +|
00000190: 20 2E 45 58 41 4D 49 4E  45 20 35 36 33 32 38 20  | .EXAMINE 56328 |
000001A0: 29 20 2F 20 31 30 0D 20  41 4C 53 20 45 4C 4B 56  |) / 10. ALS ELKV|
000001B0: 41 4E 20 4E 49 45 54 20  3A 55 55 52 20 3D 20 31  |AN NIET :UUR = 1|
000001C0: 38 20 4E 49 45 54 20 3A  55 55 52 20 3D 20 31 34  |8 NIET :UUR = 14|
000001D0: 36 20 44 41 4E 20 41 4C  53 20 3A 55 55 52 20 3E  |6 DAN ALS :UUR >|
000001E0: 20 31 37 20 44 41 4E 20  4D 41 41 4B 20 22 55 55  | 17 DAN MAAK "UU|
000001F0: 52 20 28 20 44 45 43 20  28 20 3A 55 55 52 20 2D  |R ( DEC ( :UUR -|
00000200: 20 31 32 38 20 29 20 29  20 2B 20 31 32 20 41 4E  | 128 ) ) + 12 AN|
00000210: 44 45 52 53 20 4D 41 41  4B 20 22 55 55 52 20 44  |DERS MAAK "UUR D|
00000220: 45 43 20 3A 55 55 52 0D  20 41 4C 53 20 3A 55 55  |EC :UUR. ALS :UU|
00000230: 52 20 3D 20 31 34 36 20  44 41 4E 20 4D 41 41 4B  |R = 146 DAN MAAK|
00000240: 20 22 55 55 52 20 31 32  0D 20 41 4C 53 20 3A 55  | "UUR 12. ALS :U|
00000250: 55 52 20 3D 20 31 38 20  44 41 4E 20 4D 41 41 4B  |UR = 18 DAN MAAK|
00000260: 20 22 55 55 52 20 30 0D  20 41 4C 53 20 3A 55 55  | "UUR 0. ALS :UU|
00000270: 52 20 3C 20 31 30 20 4D  41 41 4B 20 22 55 55 52  |R < 10 MAAK "UUR|
00000280: 20 57 4F 4F 52 44 20 22  30 20 3A 55 55 52 0D 20  | WOORD "0 :UUR. |
00000290: 41 4C 53 20 3A 4D 49 4E  20 3C 20 31 30 20 4D 41  |ALS :MIN < 10 MA|
000002A0: 41 4B 20 22 4D 49 4E 20  57 4F 4F 52 44 20 22 30  |AK "MIN WOORD "0|
000002B0: 20 3A 4D 49 4E 0D 20 41  4C 53 20 3A 53 45 4B 20  | :MIN. ALS :SEK |
000002C0: 3C 20 31 30 20 4D 41 41  4B 20 22 53 45 4B 20 57  |< 10 MAAK "SEK W|
000002D0: 4F 4F 52 44 20 22 30 20  3A 53 45 4B 0D 20 52 45  |OORD "0 :SEK. RE|
000002E0: 53 20 28 20 57 4F 4F 52  44 20 3A 55 55 52 20 22  |S ( WOORD :UUR "|
000002F0: 2E 20 3A 4D 49 4E 20 22  2E 20 3A 53 45 4B 20 29  |. :MIN ". :SEK )|
00000300: 0D 45 4E 44 0D 0D 54 4F  20 53 45 4B 4F 4E 44 45  |.END..TO SEKONDE|
00000310: 4E 0D 20 52 45 53 20 28  20 36 30 20 2A 20 44 45  |N. RES ( 60 * DE|
00000320: 43 20 2E 45 58 41 4D 49  4E 45 20 35 36 33 33 30  |C .EXAMINE 56330|
00000330: 20 29 20 2B 20 28 20 49  4E 54 45 47 45 52 20 28  | ) + ( INTEGER (|
00000340: 20 31 30 20 2A 20 28 20  44 45 43 20 2E 45 58 41  | 10 * ( DEC .EXA|
00000350: 4D 49 4E 45 20 35 36 33  32 39 20 29 20 2B 20 2E  |MINE 56329 ) + .|
00000360: 45 58 41 4D 49 4E 45 20  35 36 33 32 38 20 29 20  |EXAMINE 56328 ) |
00000370: 2F 20 31 30 20 29 0D 45  4E 44 0D 0D 54 4F 20 42  |/ 10 ).END..TO B|
00000380: 43 44 20 3A 58 0D 20 52  45 53 20 28 20 31 36 20  |CD :X. RES ( 16 |
00000390: 2A 20 28 20 49 4E 54 45  47 45 52 20 3A 58 20 2F  |* ( INTEGER :X /|
000003A0: 20 31 30 20 29 20 2B 20  3A 58 20 2D 20 31 30 20  | 10 ) + :X - 10 |
000003B0: 2A 20 49 4E 54 45 47 45  52 20 3A 58 20 2F 20 31  |* INTEGER :X / 1|
000003C0: 30 20 29 0D 45 4E 44 0D  0D 54 4F 20 44 45 43 20  |0 ).END..TO DEC |
000003D0: 3A 58 0D 20 52 45 53 20  31 30 20 2A 20 28 20 49  |:X. RES 10 * ( I|
000003E0: 4E 54 45 47 45 52 20 3A  58 20 2F 20 31 36 20 29  |NTEGER :X / 16 )|
000003F0: 20 2B 20 3A 58 20 2D 20  31 36 20 2A 20 28 20 49  | + :X - 16 * ( I|
00000400: 4E 54 45 47 45 52 20 3A  58 20 2F 20 31 36 20 29  |NTEGER :X / 16 )|
00000410: 0D 45 4E 44 0D 0D 4D 41  41 4B 20 22 53 45 4B 20  |.END..MAAK "SEK |
00000420: 28 31 38 29 0D 4D 41 41  4B 20 22 4D 49 4E 20 22  |(18).MAAK "MIN "|
00000430: 30 39 0D 4D 41 41 4B 20  22 55 55 52 20 28 32 33  |09.MAAK "UUR (23|
00000440: 29 0D                                             |).              |

. TO !K. WEG [ZETKLOK KLOK SEKONDEN BCD 
DEC NAMEN !K].END..TO ZETKLOK :UUR :MIN 
:SEK. .DEPOSIT 56334 BITOR .EXAMINE 5633
4 128. ALS NIET :UUR = 12 DAN ALS :UUR >
 11 DAN MAAK "UUR :UUR + 68. .DEPOSIT 56
331 BCD :UUR. .DEPOSIT 56330 BCD :MIN. .
DEPOSIT 56329 BCD :SEK. .DEPOSIT 56328 0
.END..TO KLOK. MAAK "UUR .EXAMINE 56331.
 MAAK "MIN DEC .EXAMINE 56330. MAAK "SEK
 INTEGER ( 10 * ( DEC .EXAMINE 56329 ) +
 .EXAMINE 56328 ) / 10. ALS ELKVAN NIET 
:UUR = 18 NIET :UUR = 146 DAN ALS :UUR >
 17 DAN MAAK "UUR ( DEC ( :UUR - 128 ) )
 + 12 ANDERS MAAK "UUR DEC :UUR. ALS :UU
R = 146 DAN MAAK "UUR 12. ALS :UUR = 18 
DAN MAAK "UUR 0. ALS :UUR < 10 MAAK "UUR
 WOORD "0 :UUR. ALS :MIN < 10 MAAK "MIN 
WOORD "0 :MIN. ALS :SEK < 10 MAAK "SEK W
OORD "0 :SEK. RES ( WOORD :UUR ". :MIN "
. :SEK ).END..TO SEKONDEN. RES ( 60 * DE
C .EXAMINE 56330 ) + ( INTEGER ( 10 * ( 
DEC .EXAMINE 56329 ) + .EXAMINE 56328 ) 
/ 10 ).END..TO BCD :X. RES ( 16 * ( INTE
GER :X / 10 ) + :X - 10 * INTEGER :X / 1
0 ).END..TO DEC :X. RES 10 * ( INTEGER :
X / 16 ) + :X - 16 * ( INTEGER :X / 16 )
.END..MAAK "SEK (18).MAAK "MIN "09.MAAK 
"UUR (23).

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL