DATUM SUBROUTINE
FILE INFORMATION
FILENAME(S): DATUM SUBROUTINE
FILE TYPE(S): PRG
FILE SIZE: 1.7K
FIRST SEEN: 2025-11-30 21:12:23
APPEARS ON: 2 disk(s)
FILE HASH
3324d7e5244ccc75f566512f020f5d014b5b28b840cc5bed117da01cb8b3fd97
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LISTINGS | DATUM SUBROUTINE | PRG | DuncanTwain | 13 | 5 | DOWNLOAD FILE |
| LISTINGS | DATUM SUBROUTINE | PRG | DuncanTwain | 13 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 32 04 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..2.d.. ********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000030: 2A 2A 00 57 04 6E 00 8F 20 20 20 20 20 20 20 20 |**.W.n.. | 00000040: 20 20 20 20 20 22 C4 C1 D4 D5 CD 2D D3 D5 C2 D2 | ".....-....| 00000050: CF D5 D4 C9 CE C5 22 00 87 04 6F 00 8F 20 20 56 |......"...o.. V| 00000060: 49 4E 44 54 20 44 45 20 44 41 47 20 56 41 4E 20 |INDT DE DAG VAN | 00000070: 44 45 20 57 45 45 4B 20 56 4F 4F 52 20 45 4C 4B |DE WEEK VOOR ELK| 00000080: 45 20 44 41 54 55 4D 00 AC 04 70 00 8F 20 20 20 |E DATUM...p.. | 00000090: 20 20 20 20 20 20 20 20 20 54 55 53 53 45 4E 20 | TUSSEN | 000000A0: 31 39 30 30 20 45 4E 20 32 30 30 30 00 D3 04 78 |1900 EN 2000...x| 000000B0: 00 8F 20 20 20 20 20 20 20 20 20 20 20 4A 41 4E |.. JAN| 000000C0: 20 42 4F 44 5A 49 4E 47 41 2C 20 42 4C 41 52 49 | BODZINGA, BLARI| 000000D0: 43 55 4D 00 04 05 82 00 8F 20 2A 2A 2A 2A 2A 2A |CUM...... ******| 000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000100: 2A 2A 2A 2A 00 44 05 83 00 83 5A 4F 4E 44 41 47 |****.D....ZONDAG| 00000110: 2C 4D 41 41 4E 44 41 47 2C 44 49 4E 53 44 41 47 |,MAANDAG,DINSDAG| 00000120: 2C 57 4F 45 4E 53 44 41 47 2C 44 4F 4E 44 45 52 |,WOENSDAG,DONDER| 00000130: 44 41 47 2C 56 52 49 4A 44 41 47 2C 5A 41 54 45 |DAG,VRIJDAG,ZATE| 00000140: 52 44 41 47 00 61 05 84 00 86 57 44 24 28 37 29 |RDAG.a....WD$(7)| 00000150: 3A 81 49 B2 30 A4 36 3A 87 57 44 24 28 49 29 3A |:.I.0.6:.WD$(I):| 00000160: 82 00 7F 05 87 00 45 B2 31 39 20 20 3A 8F 20 48 |......E.19 :. H| 00000170: 4F 4E 44 45 52 44 54 41 4C 20 4A 41 52 45 4E 00 |ONDERDTAL JAREN.| 00000180: A7 05 8C 00 85 20 22 44 41 47 2C 4D 41 41 4E 44 |..... "DAG,MAAND| 00000190: 2C 4A 41 41 52 A0 28 44 44 2C 4D 4D 2C 4A 4A 29 |,JAAR.(DD,MM,JJ)| 000001A0: 22 3B 44 2C 4D 2C 4A 00 D8 05 96 00 8F 20 2A 2A |";D,M,J...... **| 000001B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 22 20 D2 CF |*********** " ..| 000001C0: D5 D4 C9 CE C5 20 22 20 2A 2A 2A 2A 2A 2A 2A 2A |..... " ********| 000001D0: 2A 2A 2A 2A 2A 2A 2A 2A 00 FF 05 A0 00 4D 20 B2 |********.....M .| 000001E0: 20 4D AB 32 3A 20 8B 20 4D B3 31 20 A7 20 4D 20 | M.2: . M.1 . M | 000001F0: B2 20 4D AA 31 32 3A 20 4A 20 B2 20 4A AB 31 00 |. M.12: J . J.1.| 00000200: 37 06 AA 00 57 44 20 B2 20 B5 28 45 AD 34 29 20 |7...WD . .(E.4) | 00000210: AB 32 AC 45 20 AA 20 4A 20 AA 20 B5 28 4A AD 34 |.2.E . J . .(J.4| 00000220: 29 20 AA 20 B5 28 32 2E 36 AC 4D 20 AB 20 30 2E |) . .(2.6.M . 0.| 00000230: 31 39 29 20 AA 20 44 00 4F 06 B4 00 57 44 20 B2 |19) . D.O...WD .| 00000240: 20 57 44 20 AB 20 B5 28 57 44 AD 37 29 AC 37 00 | WD . .(WD.7).7.| 00000250: 69 06 BE 00 99 22 57 45 45 4B 44 41 47 20 3D 20 |i...."WEEKDAG = | 00000260: 12 22 57 44 24 28 57 44 29 00 00 00 41 44 52 45 |."WD$(WD)...ADRE| 00000270: 53 4B 4F 4E 53 54 41 4E 54 45 00 B0 06 0F 00 87 |SKONSTANTE......| 00000280: 41 3A 8B A8 41 A7 97 49 2C 41 3A 49 B2 49 AA 31 |A:..A..I,A:I.I.1| 00000290: 3A 89 31 35 20 3A 8F 20 50 4F 4B 45 4E 20 44 41 |:.15 :. POKEN DA| 000002A0: 54 41 20 49 4E 20 52 41 4D 2E 00 ED 06 10 00 9E |TA IN RAM.......| 000002B0: 39 34 32 20 20 20 20 20 20 20 20 20 20 20 20 20 |942 | 000002C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002D0: 20 20 3A 8F 20 53 45 54 20 49 4E 54 45 52 52 55 | :. SET INTERRU| 000002E0: 50 54 2B 4B 4C 4F 4B 00 F3 06 11 00 3A 00 25 07 |PT+KLOK.....:.%.| 000002F0: 14 00 83 20 30 33 32 2C 32 33 34 2C 32 35 35 2C |... 032,234,255,| 00000300: 32 33 30 2C 32 34 38 2C 31 36 35 2C 32 34 38 2C |230,248,165,248,| 00000310: 32 30 31 2C 30 30 36 2C 32 30 38 2C 30 30 36 00 |201,006,208,006.| 00000320: 57 07 1E 00 83 20 31 36 39 2C 30 30 30 2C 31 33 |W.... 169,000,13| 00000330: 33 2C 32 34 38 2C 32 34 30 2C 32 33 39 2C 31 36 |3,248,240,239,16| 00000340: 35 2C 31 35 35 2C 32 30 31 2C 32 33 39 2C 32 30 |5,155,201,239,20| 00000350: 38 00 89 07 28 00 83 20 30 30 34 2C 31 36 39 2C |8...(.. 004,169,| 00000360: 32 35 35 2C 31 33 33 2C 31 35 35 2C 30 37 36 2C |255,133,155,076,| 00000370: 30 38 38 2C 32 32 38 2C 31 32 30 2C 31 36 39 2C |088,228,120,169,| 00000380: 31 34 34 00 AF 07 32 00 83 20 31 33 33 2C 31 34 |144...2.. 133,14| 00000390: 34 2C 31 36 39 2C 30 30 33 2C 31 33 33 2C 31 34 |4,169,003,133,14| 000003A0: 35 2C 30 38 38 2C 30 39 36 00 B8 07 3C 00 83 20 |5,088,096...<.. | 000003B0: 2D 31 00 BE 07 46 00 3A 00 C4 07 50 00 3A 00 FE |-1...F.:...P.:..| 000003C0: 07 5A 00 8F 20 20 20 20 20 20 20 20 20 20 42 52 |.Z.. BR| 000003D0: 45 41 4B 20 45 4E 41 42 45 4C 20 49 53 20 4D 4F |EAK ENABEL IS MO| 000003E0: 47 45 4C 49 4A 4B 20 44 4F 4F 52 20 53 59 53 54 |GELIJK DOOR SYST| 000003F0: 45 4D 20 52 45 53 45 54 00 38 08 5B 00 8F 20 20 |EM RESET.8.[.. | 00000400: 20 20 20 20 20 20 20 20 4F 46 20 44 4F 4F 52 20 | OF DOOR | 00000410: 48 45 54 20 49 4E 47 45 56 45 4E 20 56 41 4E 20 |HET INGEVEN VAN | 00000420: 44 45 20 56 4F 4C 47 45 4E 44 45 20 52 45 47 45 |DE VOLGENDE REGE| 00000430: 4C 3A 00 3E 08 5C 00 3A 00 7D 08 5D 00 8F 20 56 |L:.>.\.:.}.].. V| 00000440: 45 52 53 49 45 53 20 38 30 2F 34 30 58 58 3A 20 |ERSIES 80/40XX: | 00000450: 50 4F 4B 45 20 20 20 39 34 34 2C 38 35 20 3A 20 |POKE 944,85 : | 00000460: 50 4F 4B 45 20 20 20 39 34 38 2C 32 32 38 20 3A |POKE 948,228 :| 00000470: 20 53 59 53 39 34 32 00 BE 08 5F 00 8F 20 56 45 | SYS942..._.. VE| 00000480: 52 53 49 45 20 43 2D 36 34 20 20 20 20 3A 20 50 |RSIE C-64 : P| 00000490: 4F 4B 45 20 34 39 31 36 34 2C 34 39 20 3A 20 50 |OKE 49164,49 : P| 000004A0: 4F 4B 45 20 34 39 31 36 39 2C 32 33 34 20 3A 20 |OKE 49169,234 : | 000004B0: 53 59 53 34 39 31 36 32 00 C4 08 64 00 3A 00 03 |SYS49162...d.:..| 000004C0: 09 C8 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********| 000004D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000004E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000004F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 31 09 |*************.1.| 00000500: C9 00 8F 20 20 20 20 22 D6 C5 D2 D3 C9 C5 20 56 |... "...... V| 00000510: 4F 4F 52 20 C3 CF CD CD CF C4 CF D2 C5 20 36 34 |OOR ......... 64| 00000520: 20 43 4F 4D 50 55 54 45 52 53 22 00 47 09 CD 00 | COMPUTERS".G...| 00000530: 8F 20 20 20 20 20 57 49 4A 5A 49 47 49 4E 47 45 |. WIJZIGINGE| 00000540: 4E 00 68 09 FA 00 8F 20 20 20 52 45 47 45 4C 20 |N.h.... REGEL | 00000550: 31 30 20 57 4F 52 44 54 20 3A 20 49 3D 34 39 31 |10 WORDT : I=491| 00000560: 35 32 00 8B 09 04 01 8F 20 20 20 52 45 47 45 4C |52...... REGEL| 00000570: 20 31 36 20 57 4F 52 44 54 20 3A 20 53 59 53 20 | 16 WORDT : SYS | 00000580: 34 39 31 36 32 00 C1 09 0E 01 8F 20 20 20 49 4E |49162...... IN| 00000590: 20 50 4C 41 41 54 53 20 56 41 4E 20 44 45 20 44 | PLAATS VAN DE D| 000005A0: 41 54 41 52 45 47 45 4C 53 20 32 30 2C 33 30 2C |ATAREGELS 20,30,| 000005B0: 34 30 2C 35 30 20 4B 4F 4D 45 4E 00 E6 09 18 01 |40,50 KOMEN.....| 000005C0: 8F 20 20 20 44 45 20 56 4F 4C 47 45 4E 44 45 20 |. DE VOLGENDE | 000005D0: 44 41 54 41 2D 53 54 41 54 45 4D 45 4E 54 53 3A |DATA-STATEMENTS:| 000005E0: 00 18 0A 22 01 8F 20 52 45 47 45 4C 20 32 30 3A |...".. REGEL 20:| 000005F0: 20 20 44 41 54 41 20 30 33 32 2C 32 33 34 2C 32 | DATA 032,234,2| 00000600: 35 35 2C 31 36 39 2C 32 35 35 2C 31 33 33 2C 31 |55,169,255,133,1| 00000610: 34 35 00 4A 0A 2C 01 8F 20 52 45 47 45 4C 20 33 |45.J.,.. REGEL 3| 00000620: 30 3A 20 20 44 41 54 41 20 30 37 36 2C 30 35 32 |0: DATA 076,052| 00000630: 2C 32 33 34 2C 31 32 30 2C 31 36 39 2C 30 30 30 |,234,120,169,000| 00000640: 2C 31 34 31 00 7C 0A 36 01 8F 20 52 45 47 45 4C |,141.|.6.. REGEL| 00000650: 20 34 30 3A 20 20 44 41 54 41 20 30 32 30 2C 30 | 40: DATA 020,0| 00000660: 30 33 2C 31 36 39 2C 31 39 32 2C 31 34 31 2C 30 |03,169,192,141,0| 00000670: 32 31 2C 30 30 33 00 9A 0A 40 01 8F 20 52 45 47 |21,003...@.. REG| 00000680: 45 4C 20 35 30 3A 20 20 44 41 54 41 20 30 38 38 |EL 50: DATA 088| 00000690: 2C 30 39 36 00 D9 0A 4A 01 8F 20 2A 2A 2A 2A 2A |,096...J.. *****| 000006A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000006B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000006C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000006D0: 2A 2A 2A 00 00 00 |***... |
..2.D.. ******************************** **********.W.N.. "DATUM-SUBR OUTINE"...O.. VINDT DE DAG VAN DE WEEK VOOR ELKE DATUM...P.. TUSSEN 1900 EN 2000.S.X.. JAN BODZING A, BLARICUM...... ********************** ********************.D....ZONDAG,MAANDAG ,DINSDAG,WOENSDAG,DONDERDAG,VRIJDAG,ZATE RDAG.A....WD$(7):.I.0.6:.WD$(I):.....E. 19 :. HONDERDTAL JAREN...... "DAG,MAAND ,JAAR (DD,MM,JJ)";D,M,J.X.... ********** *** " ROUTINE " ****************... .M . M.2: . M.1 . M . M.12: J . J.1.7...WD . .(E.4) .2.E . J . .(J.4) . .(2.6.M . 0. 19) . D.O...WD . WD . .(WD.7).7.I...."WE EKDAG = ."WD$(WD)...ADRESKONSTANTE...... A:..A..I,A:I.I.1:.15 :. POKEN DATA IN RA M.......942 :. SET INTERRUPT+KLOK.....:.%.... 032, 234,255,230,248,165,248,201,006,208,006. W.... 169,000,133,248,240,239,165,155,20 1,239,208...(.. 004,169,255,133,155,076, 088,228,120,169,144...2.. 133,144,169,00 3,133,145,088,096...<.. -1...F.:.D.P.:.. .Z.. BREAK ENABEL IS MOGELIJK D OOR SYSTEM RESET.8.[.. OF DOOR HET INGEVEN VAN DE VOLGENDE REGEL:.>.\.: .}.].. VERSIES 80/40XX: POKE 944,85 : POKE 948,228 : SYS942..._.. VERSIE C-6 4 : POKE 49164,49 : POKE 49169,234 : SYS49162.D.D.:...H.. ******************* *************************************.1. I.. "VERSIE VOOR COMMODORE 64 COMPUTE RS".G.M.. WIJZIGINGEN.H.... REGEL 10 WORDT : I=49152...... REGEL 16 WORD T : SYS 49162.A.... IN PLAATS VAN DE D ATAREGELS 20,30,40,50 KOMEN...... DE V OLGENDE DATA-STATEMENTS:...".. REGEL 20: DATA 032,234,255,169,255,133,145.J.,.. REGEL 30: DATA 076,052,234,120,169,000 ,141.|.6.. REGEL 40: DATA 020,003,169,1 92,141,021,003...@.. REGEL 50: DATA 088 ,096.Y.J.. ***************************** ***************************...
> CLICK IMAGE PREVIEW FOR FULL MODAL