DIGITALUHR.ASC
FILE INFORMATION
FILENAME(S): DIGITALUHR.ASC
FILE TYPE(S): SEQ
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-02 16:54:41
APPEARS ON: 1 disk(s)
FILE HASH
05d850e792cec1de39927cf945a5d9407f8e5b68b767ec6ec646669015573d06
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HEINRICH MEEL | DIGITALUHR.ASC | SEQ | Treasure Chest - Reamigation | 13 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 02 0A 0A 0A 0D 0D 0D 0A 52 45 41 44 59 2E 0D 0A |........READY...| 00000010: 0D 31 20 50 4F 4B 45 35 33 32 38 30 2C 30 3A 50 |.1 POKE53280,0:P| 00000020: 4F 4B 45 35 33 32 38 31 2C 30 20 3A 52 45 4D 20 |OKE53281,0 :REM | 00000030: 2A 46 41 52 42 45 20 2A 0D 32 20 50 52 49 4E 54 |*FARBE *.2 PRINT| 00000040: 22 93 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |". *************| 00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000060: 2A 2A 2A 2A 2A 2A 2A 22 0D 33 20 50 52 49 4E 54 |*******".3 PRINT| 00000070: 22 20 2A 20 44 49 47 49 54 41 4C 2D 55 48 52 20 |" * DIGITAL-UHR | 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000090: 20 20 20 20 20 2A 0D 34 20 50 52 49 4E 54 22 20 | *.4 PRINT" | 000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000C0: 2A 2A 2A 2A 22 0D 35 20 50 52 49 4E 54 22 11 11 |****".5 PRINT"..| 000000D0: 11 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D |. --------| 000000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 4D 41 58 31 38 2E |----------MAX18.| 000000F0: 5A 45 49 43 48 45 4E 22 0D 36 20 49 4E 50 55 54 |ZEICHEN".6 INPUT| 00000100: 22 91 91 44 41 54 55 4D 22 3B 54 24 0D 31 30 20 |"..DATUM";T$.10 | 00000110: 50 52 49 4E 54 22 11 11 11 57 49 45 56 49 45 4C |PRINT"...WIEVIEL| 00000120: 20 55 48 52 20 49 53 54 20 45 53 20 28 53 54 44 | UHR IST ES (STD| 00000130: 2C 4D 49 4E 2C 53 45 4B 29 20 4F 48 4E 45 20 20 |,MIN,SEK) OHNE | 00000140: 20 4B 4F 4D 4D 41 22 3A 49 4E 50 55 54 54 49 24 | KOMMA":INPUTTI$| 00000150: 0D 31 31 20 50 52 49 4E 54 22 9E 93 11 11 11 11 |.11 PRINT"......| 00000160: 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00000170: 1D 91 91 D1 9D 11 11 D1 1D 1D 1D 1D 1D 1D 1D 1D |................| 00000180: 1D 1D 1D 1D 1D 1D D1 9D 91 91 D1 22 0D 31 32 20 |...........".12 | 00000190: 50 52 49 4E 54 22 13 11 11 11 11 11 11 11 11 11 |PRINT"..........| 000001A0: 11 11 11 11 11 12 20 20 20 20 20 20 20 20 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 92 22 | ."| 000001D0: 0D 31 33 20 47 4F 53 55 42 20 34 30 30 0D 31 35 |.13 GOSUB 400.15| 000001E0: 20 50 52 49 4E 54 22 9E 13 11 11 12 20 20 20 20 | PRINT"..... | 000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000210: 20 20 20 20 92 22 0D 32 30 20 54 3D 56 41 4C 28 | .".20 T=VAL(| 00000220: 4C 45 46 54 24 28 54 49 24 2C 31 29 29 3A 50 52 |LEFT$(TI$,1)):PR| 00000230: 49 4E 54 22 13 11 11 11 11 11 22 3B 3A 49 46 54 |INT"......";:IFT| 00000240: 3D 30 54 48 45 4E 54 3D 31 30 0D 32 35 20 47 4F |=0THENT=10.25 GO| 00000250: 53 55 42 20 33 30 30 0D 33 30 20 54 3D 56 41 4C |SUB 300.30 T=VAL| 00000260: 28 4D 49 44 24 28 54 49 24 2C 32 2C 31 29 29 3A |(MID$(TI$,2,1)):| 00000270: 50 52 49 4E 54 22 13 11 11 11 11 11 1D 1D 1D 1D |PRINT"..........| 00000280: 1D 1D 22 3B 3A 49 46 54 3D 30 54 48 45 4E 54 3D |..";:IFT=0THENT=| 00000290: 31 30 0D 33 35 20 47 4F 53 55 42 33 30 30 0D 34 |10.35 GOSUB300.4| 000002A0: 30 20 54 3D 56 41 4C 28 4D 49 44 24 28 54 49 24 |0 T=VAL(MID$(TI$| 000002B0: 2C 33 2C 31 29 29 3A 50 52 49 4E 54 22 13 11 11 |,3,1)):PRINT"...| 000002C0: 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 000002D0: 1D 1D 22 3B 3A 49 46 54 3D 30 54 48 45 4E 54 3D |..";:IFT=0THENT=| 000002E0: 31 30 0D 34 35 20 47 4F 53 55 42 33 30 30 0D 35 |10.45 GOSUB300.5| 000002F0: 30 20 54 3D 56 41 4C 28 4D 49 44 24 28 54 49 24 |0 T=VAL(MID$(TI$| 00000300: 2C 34 2C 31 29 29 3A 50 52 49 4E 54 22 13 11 11 |,4,1)):PRINT"...| 00000310: 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00000320: 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 3A 49 46 54 3D 30 |........";:IFT=0| 00000330: 54 48 45 4E 54 3D 31 30 0D 35 35 20 47 4F 53 55 |THENT=10.55 GOSU| 00000340: 42 33 30 30 0D 36 30 20 54 3D 56 41 4C 28 4D 49 |B300.60 T=VAL(MI| 00000350: 44 24 28 54 49 24 2C 35 2C 31 29 29 3A 50 52 49 |D$(TI$,5,1)):PRI| 00000360: 4E 54 22 13 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D |NT".............| 00000370: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00000380: 1D 1D 1D 1D 1D 1D 1D 22 3B 0D 36 31 20 49 46 54 |.......";.61 IFT| 00000390: 3D 30 54 48 45 4E 54 3D 31 30 0D 36 35 20 47 4F |=0THENT=10.65 GO| 000003A0: 53 55 42 33 30 30 0D 37 30 20 54 3D 56 41 4C 28 |SUB300.70 T=VAL(| 000003B0: 52 49 47 48 54 24 28 54 49 24 2C 31 29 29 3A 50 |RIGHT$(TI$,1)):P| 000003C0: 52 49 4E 54 22 13 11 11 11 11 11 1D 1D 1D 1D 1D |RINT"...........| 000003D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 000003E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 |..............."| 000003F0: 3B 0D 37 31 20 49 46 54 3D 30 54 48 45 4E 54 3D |;.71 IFT=0THENT=| 00000400: 31 30 0D 37 35 20 47 4F 53 55 42 33 30 30 0D 38 |10.75 GOSUB300.8| 00000410: 30 20 53 32 3D 56 41 4C 28 4D 49 44 24 28 54 49 |0 S2=VAL(MID$(TI| 00000420: 24 2C 32 2C 31 29 29 3A 53 34 3D 56 41 4C 28 4D |$,2,1)):S4=VAL(M| 00000430: 49 44 24 28 54 49 24 2C 34 2C 31 29 29 0D 39 30 |ID$(TI$,4,1)).90| 00000440: 20 47 4F 54 4F 32 30 0D 31 31 30 20 50 52 49 4E | GOTO20.110 PRIN| 00000450: 54 22 20 20 20 D1 11 9D 9D 9D 9D 20 20 D1 D1 11 |T" ...... ...| 00000460: 9D 9D 9D 9D 20 D1 20 D1 11 9D 9D 9D 9D 20 20 20 |.... . ...... | 00000470: D1 11 9D 9D 9D 9D 20 20 20 D1 11 9D 9D 9D 9D 20 |...... ...... | 00000480: 20 20 D1 11 9D 9D 9D 9D 20 20 20 D1 92 22 0D 31 | ...... ..".1| 00000490: 31 35 20 52 45 54 55 52 4E 0D 31 32 30 20 50 52 |15 RETURN.120 PR| 000004A0: 49 4E 54 22 20 D1 D1 20 11 9D 9D 9D 9D D1 20 20 |INT" .. ...... | 000004B0: D1 11 9D 9D 9D 9D 20 20 20 D1 11 9D 9D 9D 9D 20 |...... ...... | 000004C0: 20 D1 20 11 9D 9D 9D 9D 20 D1 20 20 11 9D 9D 9D | . ..... . ....| 000004D0: 9D D1 20 20 20 11 9D 9D 9D 9D D1 D1 D1 D1 92 22 |.. .........."| 000004E0: 0D 31 32 35 20 52 45 54 55 52 4E 0D 31 33 30 20 |.125 RETURN.130 | 000004F0: 50 52 49 4E 54 22 20 D1 D1 20 11 9D 9D 9D 9D D1 |PRINT" .. ......| 00000500: 20 20 D1 11 9D 9D 9D 9D 20 20 20 D1 11 9D 9D 9D | ...... .....| 00000510: 9D 20 20 D1 20 11 9D 9D 9D 9D 20 20 20 D1 11 9D |. . ..... ...| 00000520: 9D 9D 9D D1 20 20 D1 11 9D 9D 9D 9D 20 D1 D1 20 |.... ...... .. | 00000530: 92 22 0D 31 33 35 20 52 45 54 55 52 4E 0D 31 34 |.".135 RETURN.14| 00000540: 30 20 50 52 49 4E 54 22 20 20 D1 20 11 9D 9D 9D |0 PRINT" . ....| 00000550: 9D 20 D1 20 20 11 9D 9D 9D 9D D1 20 20 20 11 9D |. . ...... ..| 00000560: 9D 9D 9D D1 20 D1 20 11 9D 9D 9D 9D D1 D1 D1 D1 |.... . .........| 00000570: 11 9D 9D 9D 9D 20 20 D1 20 11 9D 9D 9D 9D 20 20 |..... . ..... | 00000580: D1 20 92 22 0D 31 34 35 20 52 45 54 55 52 4E 0D |. .".145 RETURN.| 00000590: 31 35 30 20 50 52 49 4E 54 22 D1 D1 D1 D1 11 9D |150 PRINT"......| 000005A0: 9D 9D 9D D1 20 20 20 11 9D 9D 9D 9D D1 20 20 20 |.... ...... | 000005B0: 11 9D 9D 9D 9D D1 D1 D1 20 11 9D 9D 9D 9D 20 20 |........ ..... | 000005C0: 20 D1 11 9D 9D 9D 9D D1 20 20 D1 11 9D 9D 9D 9D | ....... ......| 000005D0: 20 D1 D1 20 92 22 0D 31 35 35 20 52 45 54 55 52 | .. .".155 RETUR| 000005E0: 4E 0D 31 36 30 20 50 52 49 4E 54 22 20 D1 D1 20 |N.160 PRINT" .. | 000005F0: 11 9D 9D 9D 9D D1 20 20 D1 11 9D 9D 9D 9D D1 20 |...... ....... | 00000600: 20 20 11 9D 9D 9D 9D D1 D1 D1 20 11 9D 9D 9D 9D | ........ .....| 00000610: D1 20 20 D1 11 9D 9D 9D 9D D1 20 20 D1 11 9D 9D |. ....... ....| 00000620: 9D 9D 20 D1 D1 20 92 22 0D 31 36 35 20 52 45 54 |.. .. .".165 RET| 00000630: 55 52 4E 0D 31 37 30 20 50 52 49 4E 54 22 D1 D1 |URN.170 PRINT"..| 00000640: D1 D1 11 9D 9D 9D 9D 20 20 20 D1 11 9D 9D 9D 9D |....... ......| 00000650: 20 20 20 D1 11 9D 9D 9D 9D 20 20 D1 20 11 9D 9D | ...... . ...| 00000660: 9D 9D 20 D1 20 20 11 9D 9D 9D 9D D1 20 20 20 11 |.. . ...... .| 00000670: 9D 9D 9D 9D D1 20 20 20 92 22 0D 31 37 35 20 52 |..... .".175 R| 00000680: 45 54 55 52 4E 0D 31 38 30 20 50 52 49 4E 54 22 |ETURN.180 PRINT"| 00000690: 20 D1 D1 20 11 9D 9D 9D 9D D1 20 20 D1 11 9D 9D | .. ...... ....| 000006A0: 9D 9D D1 20 20 D1 11 9D 9D 9D 9D 20 D1 D1 20 11 |... ...... .. .| 000006B0: 9D 9D 9D 9D D1 20 20 D1 11 9D 9D 9D 9D D1 20 20 |..... ....... | 000006C0: D1 11 9D 9D 9D 9D 20 D1 D1 20 92 22 0D 31 38 35 |...... .. .".185| 000006D0: 20 52 45 54 55 52 4E 0D 31 39 30 20 50 52 49 4E | RETURN.190 PRIN| 000006E0: 54 22 20 D1 D1 20 11 9D 9D 9D 9D D1 20 20 D1 11 |T" .. ...... ..| 000006F0: 9D 9D 9D 9D D1 20 20 D1 11 9D 9D 9D 9D 20 D1 D1 |..... ...... ..| 00000700: D1 11 9D 9D 9D 9D 20 20 20 D1 11 9D 9D 9D 9D D1 |...... .......| 00000710: 20 20 D1 11 9D 9D 9D 9D 20 D1 D1 20 92 22 0D 31 | ...... .. .".1| 00000720: 39 35 20 52 45 54 55 52 4E 0D 32 30 30 20 50 52 |95 RETURN.200 PR| 00000730: 49 4E 54 22 20 D1 D1 20 11 9D 9D 9D 9D D1 20 20 |INT" .. ...... | 00000740: D1 11 9D 9D 9D 9D D1 20 20 D1 11 9D 9D 9D 9D D1 |....... .......| 00000750: 20 20 D1 11 9D 9D 9D 9D D1 20 20 D1 11 9D 9D 9D | ....... .....| 00000760: 9D D1 20 20 D1 11 9D 9D 9D 9D 20 D1 D1 20 92 22 |.. ...... .. ."| 00000770: 0D 32 30 35 20 52 45 54 55 52 4E 0D 33 30 30 20 |.205 RETURN.300 | 00000780: 4F 4E 54 47 4F 53 55 42 31 31 30 2C 31 32 30 2C |ONTGOSUB110,120,| 00000790: 31 33 30 2C 31 34 30 2C 31 35 30 2C 31 36 30 2C |130,140,150,160,| 000007A0: 31 37 30 2C 31 38 30 2C 31 39 30 2C 32 30 30 3A |170,180,190,200:| 000007B0: 52 45 54 55 52 4E 0D 34 30 30 20 50 52 49 4E 54 |RETURN.400 PRINT| 000007C0: 22 9F 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D D5 C0 C0 |"...............| 000007D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 000007E0: C0 C0 C9 22 0D 34 31 30 20 50 52 49 4E 54 22 1D |...".410 PRINT".| 000007F0: 1D 1D 1D 1D 1D 1D 1D 1D C2 20 20 20 20 20 20 20 |......... | 00000800: 20 20 20 20 20 20 20 20 20 20 20 20 20 C2 22 0D | .".| 00000810: 34 32 30 20 50 52 49 4E 54 22 1D 1D 1D 1D 1D 1D |420 PRINT"......| 00000820: 1D 1D 1D C2 20 20 20 20 20 20 20 20 20 20 20 20 |.... | 00000830: 20 20 20 20 20 20 20 20 C2 22 0D 34 32 35 20 50 | .".425 P| 00000840: 52 49 4E 54 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |RINT"...........| 00000850: 1D 22 3B 54 24 0D 34 33 30 20 50 52 49 4E 54 22 |.";T$.430 PRINT"| 00000860: 1D 1D 1D 1D 1D 1D 1D 1D 1D C2 20 20 20 20 20 20 |.......... | 00000870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 C2 22 | ."| 00000880: 0D 34 34 30 20 50 52 49 4E 54 22 1D 1D 1D 1D 1D |.440 PRINT".....| 00000890: 1D 1D 1D 1D CA C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 000008A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 CB 22 0D 35 30 30 20 |..........".500 | 000008B0: 52 45 54 55 52 4E 0D 0A 52 45 41 44 59 2E 0D 0A |RETURN..READY...| 000008C0: 03 0D |.. |
........READY....1 POKE53280,0:POKE53281
,0 :REM *FARBE *.2 PRINT". *************
***********************".3 PRINT" * DIGI
TAL-UHR *.4 PRINT"
************************************".5
PRINT"... ------------------MAX18.
ZEICHEN".6 INPUT"..DATUM";T$.10 PRINT"..
.WIEVIEL UHR IST ES (STD,MIN,SEK) OHNE
KOMMA":INPUTTI$.11 PRINT"..............
...........Q...Q..............Q...Q".12
PRINT"................
.".13 GOSUB 400.15
PRINT".....
.".20 T=VAL(LEFT$(TI$,1)):PR
INT"......";:IFT=0THENT=10.25 GOSUB 300.
30 T=VAL(MID$(TI$,2,1)):PRINT"..........
..";:IFT=0THENT=10.35 GOSUB300.40 T=VAL(
MID$(TI$,3,1)):PRINT"...................
..";:IFT=0THENT=10.45 GOSUB300.50 T=VAL(
MID$(TI$,4,1)):PRINT"...................
........";:IFT=0THENT=10.55 GOSUB300.60
T=VAL(MID$(TI$,5,1)):PRINT".............
.......................";.61 IFT=0THENT=
10.65 GOSUB300.70 T=VAL(RIGHT$(TI$,1)):P
RINT"...................................
.......";.71 IFT=0THENT=10.75 GOSUB300.8
0 S2=VAL(MID$(TI$,2,1)):S4=VAL(MID$(TI$,
4,1)).90 GOTO20.110 PRINT" Q..... QQ.
.... Q Q..... Q..... Q..... Q.....
Q.".115 RETURN.120 PRINT" QQ .....Q
Q..... Q..... Q ..... Q .....Q ...
..QQQQ.".125 RETURN.130 PRINT" QQ .....Q
Q..... Q..... Q ..... Q.....Q Q.
.... QQ .".135 RETURN.140 PRINT" Q ....
. Q .....Q .....Q Q .....QQQQ..... Q
..... Q .".145 RETURN.150 PRINT"QQQQ..
...Q .....Q .....QQQ ..... Q.....Q
Q..... QQ .".155 RETURN.160 PRINT" QQ
.....Q Q.....Q .....QQQ .....Q Q....
.Q Q..... QQ .".165 RETURN.170 PRINT"QQ
QQ..... Q..... Q..... Q ..... Q ..
...Q .....Q .".175 RETURN.180 PRINT"
QQ .....Q Q.....Q Q..... QQ .....Q Q
.....Q Q..... QQ .".185 RETURN.190 PRIN
T" QQ .....Q Q.....Q Q..... QQQ.....
Q.....Q Q..... QQ .".195 RETURN.200 PR
INT" QQ .....Q Q.....Q Q.....Q Q.....
Q Q.....Q Q..... QQ .".205 RETURN.300
ONTGOSUB110,120,130,140,150,160,170,180,
190,200:RETURN.400 PRINT"............U..
..................I".410 PRINT".........
B B".420 PRINT"......
...B B".425 PRINT"...
.........";T$.430 PRINT".........B
B".440 PRINT".........J...
.................K".500 RETURN..READY...
..
> CLICK IMAGE PREVIEW FOR FULL MODAL