UGEDAG
FILE INFORMATION
FILENAME(S): UGEDAG
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-11-30 19:36:56
APPEARS ON: 1 disk(s)
FILE HASH
cfd9746f8f2db565b6aa0ee3ef4f5243a6017a6a481429475cc1263510747d2b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 11 8 86 | UGEDAG | PRG | Curtcool, Bo | 27 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 10 08 0A 00 8F 20 22 55 47 45 44 41 47 22 |....... "UGEDAG"| 00000010: 00 2B 08 82 00 99 22 93 22 3A 97 35 33 32 38 30 |.+....".":.53280| 00000020: 2C 30 3A 97 35 33 32 38 31 2C 30 00 44 08 A0 00 |,0:.53281,0.D...| 00000030: 86 20 44 41 47 24 28 36 29 2C 4D 41 4E 45 44 24 |. DAG$(6),MANED$| 00000040: 28 31 32 29 00 50 08 AA 00 81 20 58 B2 30 A4 36 |(12).P.... X.0.6| 00000050: 00 5E 08 B4 00 87 20 44 41 47 24 28 58 29 00 65 |.^.... DAG$(X).e| 00000060: 08 BE 00 82 58 00 9E 08 C8 00 83 20 4C 30 52 44 |....X...... L0RD| 00000070: 41 47 2C 53 30 4E 44 41 47 2C 4D 41 4E 44 41 47 |AG,S0NDAG,MANDAG| 00000080: 2C 54 49 52 53 44 41 47 2C 4F 4E 53 44 41 47 2C |,TIRSDAG,ONSDAG,| 00000090: 54 4F 52 53 44 41 47 2C 46 52 45 44 41 47 00 B9 |TORSDAG,FREDAG..| 000000A0: 08 D2 00 81 58 B2 31 A4 31 32 3A 87 20 4D 41 4E |....X.1.12:. MAN| 000000B0: 45 44 24 28 58 29 3A 82 58 00 00 09 F0 00 83 20 |ED$(X):.X...... | 000000C0: 4A 41 4E 55 41 52 2C 46 45 42 55 41 52 2C 4D 41 |JANUAR,FEBUAR,MA| 000000D0: 52 54 53 2C 41 50 52 49 4C 2C 4D 41 4A 2C 4A 55 |RTS,APRIL,MAJ,JU| 000000E0: 4E 49 2C 4A 55 4C 49 2C 41 55 47 55 53 54 2C 53 |NI,JULI,AUGUST,S| 000000F0: 45 50 54 45 4D 42 45 52 2C 4F 4B 54 4F 42 45 52 |EPTEMBER,OKTOBER| 00000100: 00 18 09 F5 00 83 20 4E 4F 56 45 4D 42 45 52 2C |...... NOVEMBER,| 00000110: 44 45 43 45 4D 42 45 52 00 48 09 F6 00 99 22 93 |DECEMBER.H....".| 00000120: 05 20 D5 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |. ..............| 00000130: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 00000140: C3 C3 C3 C3 C3 C3 C9 22 00 76 09 09 01 99 22 20 |.......".v...." | 00000150: C2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000170: 20 20 20 20 C2 22 00 A5 09 0E 01 99 22 20 C2 20 | ."......" . | 00000180: 20 20 55 20 47 20 45 20 44 20 41 20 47 20 20 4B | U G E D A G K| 00000190: 4C 2E 22 3B 54 49 24 3B 22 20 20 20 20 20 20 20 |L.";TI$;" | 000001A0: 20 20 20 C2 22 00 D3 09 13 01 99 22 20 C2 20 20 | ."......" . | 000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001D0: 20 C2 22 00 01 0A 18 01 99 22 20 CA C3 C3 C3 C3 | ."......" .....| 000001E0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 000001F0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 CB |................| 00000200: 22 00 28 0A 22 01 99 3A 99 3A 99 22 1D 1D 1D 1D |".(."..:.:."....| 00000210: 1D 1D 1D 1D 1D 12 54 41 53 54 20 27 30 27 20 46 |......TAST '0' F| 00000220: 4F 52 20 53 54 4F 50 22 00 32 0A 2C 01 99 3A 99 |OR STOP".2.,..:.| 00000230: 3A 99 00 42 0A 72 01 85 22 44 41 54 4F 3A 20 22 |:..B.r.."DATO: "| 00000240: 3B 44 00 50 0A 7C 01 44 B2 B5 28 B6 28 44 29 29 |;D.P.|.D..(.(D))| 00000250: 00 5E 0A 81 01 8B 20 44 B2 30 A7 36 32 30 00 6F |.^.... D.0.620.o| 00000260: 0A 86 01 8B 20 44 B1 33 31 20 A7 20 33 36 30 00 |.... D.31 . 360.| 00000270: 83 0A 90 01 99 3A 85 22 4D 41 41 4E 45 44 3A 20 |.....:."MAANED: | 00000280: 22 3B 4D 00 91 0A A4 01 4D B2 B5 28 B6 28 4D 29 |";M.....M..(.(M)| 00000290: 29 00 A7 0A AE 01 8B 28 4D B3 31 29 AA 28 4D B1 |)......(M.1).(M.| 000002A0: 31 32 29 A7 34 30 30 00 B8 0A C2 01 99 3A 85 22 |12).400......:."| 000002B0: 41 41 52 3A 20 22 3B 41 00 C6 0A CC 01 41 B2 B5 |AAR: ";A.....A..| 000002C0: 28 B6 28 41 29 29 00 E0 0A D6 01 8B 20 41 B3 31 |(.(A))...... A.1| 000002D0: 35 38 32 A7 20 8D 20 31 34 34 30 3A 89 34 35 30 |582. . 1440:.450| 000002E0: 00 ED 0A EA 01 8B 4D B1 32 A7 35 32 30 00 30 0B |......M.2.520.0.| 000002F0: F4 01 41 4E 54 41 4C 20 44 41 47 45 B2 33 36 35 |..ANTAL DAGE.365| 00000300: AC 41 AA 44 AA 33 31 AC 28 4D AB 31 29 AA B5 28 |.A.D.31.(M.1)..(| 00000310: 28 41 AB 31 29 AD 34 29 AB B5 28 2E 37 35 AC 28 |(A.1).4)..(.75.(| 00000320: B5 28 28 41 AB 31 29 AD 31 30 30 29 AA 31 29 29 |.((A.1).100).1))| 00000330: 00 3A 0B FE 01 89 20 35 33 30 00 81 0B 08 02 41 |.:.... 530.....A| 00000340: 4E 54 41 4C 20 44 41 47 45 B2 33 36 35 AC 41 AA |NTAL DAGE.365.A.| 00000350: 44 AA 33 31 AC 28 4D AB 31 29 AB B5 28 2E 34 AC |D.31.(M.1)..(.4.| 00000360: 4D AA 32 2E 33 29 AA B5 28 41 AD 34 29 AB B5 28 |M.2.3)..(A.4)..(| 00000370: 2E 37 35 AC 28 B5 28 41 AD 31 30 30 29 AA 31 29 |.75.(.(A.100).1)| 00000380: 29 00 AB 0B 12 02 55 47 45 44 41 47 B2 41 4E 54 |).....UGEDAG.ANT| 00000390: 41 4C 20 44 41 47 45 AB 28 B5 28 41 4E 54 41 4C |AL DAGE.(.(ANTAL| 000003A0: 20 44 41 47 45 AD 37 29 AC 37 29 00 B3 0B 21 02 | DAGE.7).7)...!.| 000003B0: 99 3A 99 00 DF 0B 26 02 99 22 44 45 4E 22 3B C4 |.:....&.."DEN";.| 000003C0: 28 44 29 3B 22 20 22 3B 4D 41 4E 45 44 24 28 4D |(D);" ";MANED$(M| 000003D0: 29 3B 22 20 22 3B C4 28 41 29 3B 22 20 22 3B 00 |);" ";.(A);" ";.| 000003E0: F8 0B 28 02 8B 20 41 B3 31 39 38 37 20 A7 20 4B |..(.. A.1987 . K| 000003F0: 24 B2 22 56 41 52 20 22 00 11 0C 2A 02 8B 20 41 |$."VAR "...*.. A| 00000400: B1 B2 31 39 38 37 20 A7 20 4B 24 B2 22 45 52 20 |..1987 . K$."ER | 00000410: 22 00 33 0C 30 02 99 20 4B 24 3B 22 45 4E 20 22 |".3.0.. K$;"EN "| 00000420: 3B 44 41 47 24 28 55 47 45 44 41 47 29 3B 22 20 |;DAG$(UGEDAG);" | 00000430: 2D 20 22 00 5A 0C 35 02 99 3A 99 22 20 20 20 20 |- ".Z.5..:." | 00000440: 20 20 20 12 20 55 44 52 45 47 4E 20 4D 45 52 45 | . UDREGN MERE| 00000450: 20 20 3F 20 28 4A 2F 4E 29 22 00 6F 0C 44 02 A1 | ? (J/N)".o.D..| 00000460: 20 41 24 3A 8B 41 24 B2 22 22 A7 20 35 38 30 00 | A$:.A$."". 580.| 00000470: 82 0C 4E 02 8B 41 24 B2 C7 28 37 34 29 A7 20 32 |..N..A$..(74). 2| 00000480: 34 36 00 93 0C 58 02 8B 41 24 B2 C7 28 37 38 29 |46...X..A$..(78)| 00000490: A7 20 80 00 9C 0C 62 02 89 35 38 30 00 A2 0C 6C |. ....b..580...l| 000004A0: 02 80 00 AE 0C E8 03 99 20 54 49 24 3A 8E 00 CC |........ TI$:...| 000004B0: 0C FC 03 99 22 13 11 11 11 11 11 1D 1D 1D 1D 1D |...."...........| 000004C0: 1D 1D 1D 1D 1D 22 3B 54 49 24 3A 8E 00 D9 0C A0 |.....";TI$:.....| 000004D0: 05 99 22 91 91 22 3B 3A 8E 00 00 00 |.."..";:.... |
....... "UGEDAG".+....".":.53280,0:.5328
1,0.D. .. DAG$(6),MANED$(12).P.... X.0.6
.^.... DAG$(X).E....X...H.. L0RDAG,S0NDA
G,MANDAG,TIRSDAG,ONSDAG,TORSDAG,FREDAG..
.R..X.1.12:. MANED$(X):.X...... JANUAR,F
EBUAR,MARTS,APRIL,MAJ,JUNI,JULI,AUGUST,S
EPTEMBER,OKTOBER...... NOVEMBER,DECEMBER
.H....".. UCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCI".V...." B
B"......" B U G E D A G K
L.";TI$;" B".S...." B
B"......" JCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCK".(."..:
.:."..........TAST '0' FOR STOP".2.,..:.
:..B.R.."DATO: ";D.P.|.D..(.(D)).^.... D
.0.620.O.... D.31 . 360......:."MAANED:
";M.....M..(.(M))......(M.1).(M.12).400.
..B..:."AAR: ";A.F.L.A..(.(A))...V.. A.1
582. . 1440:.450......M.2.520.0...ANTAL
DAGE.365.A.D.31.(M.1)..((A.1).4)..(.75.(
.((A.1).100).1)).:.... 530.....ANTAL DAG
E.365.A.D.31.(M.1)..(.4.M.2.3)..(A.4)..(
.75.(.(A.100).1)).....UGEDAG.ANTAL DAGE.
(.(ANTAL DAGE.7).7)...!..:....&.."DEN";D
(D);" ";MANED$(M);" ";D(A);" ";...(.. A.
1987 . K$."VAR "...*.. A..1987 . K$."ER
".3.0.. K$;"EN ";DAG$(UGEDAG);" - ".Z.5.
.:." . UDREGN MERE ? (J/N)".O.D..
A$:.A$."". 580...N..A$.G(74). 246...X..
A$.G(78). ....B..580...L........ TI$:..L
...."................";TI$:..Y. .."..";:
....
> CLICK IMAGE PREVIEW FOR FULL MODAL