MAGIC CLOCK
FILE INFORMATION
FILENAME(S): MAGIC CLOCK
FILE TYPE(S): PRG
FILE SIZE: 3.9K
FIRST SEEN: 2025-11-02 16:57:19
APPEARS ON: 1 disk(s)
FILE HASH
164f73f20720a7da24faa70da010eb00e3e8ecc296384afb3f27502ecb22bad0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOAD RUN 02 | MAGIC CLOCK | PRG | Treasure Chest - Romfreak | 16 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 0A 00 8F 20 52 55 42 49 43 53 20 43 |..(.... RUBICS C|
00000010: 4C 4F 43 4B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |LOCK============|
00000020: 3D 3D 3D 3D 3D 3D 3D 3D 00 44 08 14 00 8F 20 42 |========.D.... B|
00000030: 59 20 41 4C 46 4F 4E 53 20 4D 49 54 54 45 4C 4D |Y ALFONS MITTELM|
00000040: 45 59 45 52 00 4A 08 1E 00 8F 00 68 08 28 00 8F |EYER.J.....h.(..|
00000050: 20 46 55 45 52 20 43 4F 4D 4D 4F 44 4F 52 45 20 | FUER COMMODORE |
00000060: 43 4F 4D 50 55 54 45 52 00 83 08 32 00 8F 20 43 |COMPUTER...2.. C|
00000070: 31 31 36 2F 43 31 36 2F 50 34 2F 43 36 34 2F 43 |116/C16/P4/C64/C|
00000080: 31 32 38 00 89 08 3C 00 8F 00 A3 08 46 00 8F 20 |128...<.....F.. |
00000090: 42 45 49 53 50 49 45 4C 20 46 55 45 52 20 47 55 |BEISPIEL FUER GU|
000000A0: 54 45 4E 00 B9 08 50 00 8F 20 50 52 4F 47 52 41 |TEN...P.. PROGRA|
000000B0: 4D 4D 49 45 52 53 54 49 4C 00 E0 08 5A 00 8F 20 |MMIERSTIL...Z.. |
000000C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000000D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000000E0: 00 F7 08 64 00 8F 20 52 45 43 48 4E 45 52 41 4E |...d.. RECHNERAN|
000000F0: 50 41 53 53 55 4E 47 00 04 09 6E 00 50 B2 C2 28 |PASSUNG...n.P..(|
00000100: 37 37 32 29 00 2C 09 78 00 52 58 B2 37 38 31 AC |772).,.x.RX.781.|
00000110: 28 50 B2 31 32 34 29 AA 32 30 33 35 AC 28 50 B2 |(P.124).2035.(P.|
00000120: 38 36 29 AA 37 AC 28 50 B2 31 33 29 00 45 09 82 |86).7.(P.13).E..|
00000130: 00 52 58 B2 AB 52 58 3A 52 59 B2 52 58 AA 31 3A |.RX..RX:RY.RX.1:|
00000140: 89 31 38 36 30 00 4B 09 8C 00 3A 00 73 09 96 00 |.1860.K...:.s...|
00000150: 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 49 4E |. ----------- IN|
00000160: 49 54 49 41 4C 49 53 49 45 52 55 4E 47 20 2D 2D |ITIALISIERUNG --|
00000170: 2D 2D 2D 00 7E 09 A0 00 8F 20 49 4E 49 54 00 87 |---.~.... INIT..|
00000180: 09 AA 00 89 32 30 30 00 8D 09 B4 00 3A 00 9F 09 |....200.....:...|
00000190: BE 00 8F 20 41 55 53 47 41 42 45 49 4E 49 54 00 |... AUSGABEINIT.|
000001A0: BE 09 C8 00 59 4B B2 33 3A 58 4B B2 39 3A 8F 20 |....YK.3:XK.9:. |
000001B0: 52 41 48 4D 45 4E 50 4F 53 49 54 49 4F 4E 00 DF |RAHMENPOSITION..|
000001C0: 09 D2 00 4C 52 24 B2 22 20 22 3A 5A 52 24 B2 C7 |...LR$." ":ZR$..|
000001D0: 28 31 38 29 AA 22 20 22 AA C7 28 31 34 36 29 00 |(18)." "..(146).|
000001E0: F8 09 DC 00 4C 46 24 B2 C7 28 31 37 29 3A 42 53 |....LF$..(17):BS|
000001F0: 24 B2 C7 28 31 35 37 29 00 28 0A E6 00 57 41 24 |$..(157).(...WA$|
00000200: B2 C7 28 31 39 35 29 3A 53 45 24 B2 C7 28 31 39 |..(195):SE$..(19|
00000210: 34 29 3A 4C 4F 24 B2 C7 28 31 37 36 29 3A 52 4F |4):LO$..(176):RO|
00000220: 24 B2 C7 28 31 37 34 29 00 58 0A F0 00 4C 55 24 |$..(174).X...LU$|
00000230: B2 C7 28 31 37 33 29 3A 52 55 24 B2 C7 28 31 38 |..(173):RU$..(18|
00000240: 39 29 3A 53 49 24 B2 C7 28 31 32 32 29 3A 53 4F |9):SI$..(122):SO|
00000250: 24 B2 C7 28 31 31 33 29 00 5E 0A FA 00 3A 00 6C |$..(113).^...:.l|
00000260: 0A 04 01 8F 20 56 41 52 49 4E 49 54 00 78 0A 0E |.... VARINIT.x..|
00000270: 01 86 20 46 28 34 33 29 00 92 0A 18 01 56 4F B2 |.. F(43).....VO.|
00000280: 30 3A 48 49 B2 32 32 3A 5A 45 B2 31 33 3A 53 43 |0:HI.22:ZE.13:SC|
00000290: B2 30 00 B1 0A 22 01 53 43 B2 30 3A 52 47 B2 34 |.0...".SC.0:RG.4|
000002A0: 3A 5A 45 B2 31 33 3A 56 4F B2 30 3A 48 49 B2 32 |:ZE.13:VO.0:HI.2|
000002B0: 32 00 D5 0A 2C 01 45 43 28 30 29 B2 30 3A 45 43 |2...,.EC(0).0:EC|
000002C0: 28 31 29 B2 32 3A 45 43 28 32 29 B2 36 3A 45 43 |(1).2:EC(2).6:EC|
000002D0: 28 33 29 B2 38 00 DB 0A 36 01 3A 00 EC 0A 40 01 |(3).8...6.:...@.|
000002E0: 8F 20 46 55 4E 4B 54 49 4F 4E 45 4E 00 08 0B 4A |. FUNKTIONEN...J|
000002F0: 01 96 20 A5 20 59 50 28 4E 29 B2 B5 28 4E AD 33 |.. . YP(N)..(N.3|
00000300: 29 AC 36 AA 59 4B AA 33 00 2A 0B 54 01 96 20 A5 |).6.YK.3.*.T.. .|
00000310: 20 58 50 28 4E 29 B2 28 4E AB B5 28 4E AD 33 29 | XP(N).(N..(N.3)|
00000320: AC 33 29 AC 37 AA 58 4B AA 33 00 40 0B 5E 01 96 |.3).7.XK.3.@.^..|
00000330: 20 A5 20 45 49 28 49 29 B2 46 28 49 AA 56 4F 29 | . EI(I).F(I.VO)|
00000340: 00 5E 0B 68 01 96 20 A5 20 5A 57 28 42 29 B2 28 |.^.h.. . ZW(B).(|
00000350: 45 43 28 41 29 AA 45 43 28 42 29 29 AD 32 00 83 |EC(A).EC(B)).2..|
00000360: 0B 72 01 96 20 A5 20 4B 4F 28 4E 29 B2 B6 28 4E |.r.. . KO(N)..(N|
00000370: AA 31 32 AC 28 28 4E B2 30 29 B0 28 4E B2 31 33 |.12.((N.0).(N.13|
00000380: 29 29 29 00 A7 0B 7C 01 96 20 A5 20 45 58 28 4E |)))...|.. . EX(N|
00000390: 29 B2 28 28 49 20 AF 20 A8 20 4E 29 B0 28 A8 20 |).((I . . N).(. |
000003A0: 49 20 AF 20 4E 29 29 00 CD 0B 86 01 96 20 A5 20 |I . N))...... . |
000003B0: 57 54 28 49 29 B2 CE 08 28 CE 08 28 A5 45 49 28 |WT(I)...(..(.EI(|
000003C0: 58 29 2C A5 45 49 28 49 29 29 2C 31 29 00 D3 0B |X),.EI(I)),1)...|
000003D0: 90 01 3A 00 E2 0B 9A 01 8F 20 5A 45 49 54 49 4E |..:...... ZEITIN|
000003E0: 49 54 00 EF 0B A4 01 58 B2 BB 28 AB 54 49 29 00 |IT.....X..(.TI).|
000003F0: 1A 0C AE 01 41 B2 5A 45 AA 56 4F 3A 81 49 B2 41 |....A.ZE.VO:.I.A|
00000400: 20 A4 20 41 AA 38 3A 46 28 49 29 B2 B5 28 BB 28 | . A.8:F(I)..(.(|
00000410: 31 29 AC 31 32 AA 31 29 3A 82 00 45 0C B8 01 41 |1).12.1):..E...A|
00000420: B2 5A 45 AA 48 49 3A 81 49 B2 41 20 A4 20 41 AA |.ZE.HI:.I.A . A.|
00000430: 38 3A 46 28 49 29 B2 B5 28 BB 28 31 29 AC 31 32 |8:F(I)..(.(1).12|
00000440: AA 31 29 3A 82 00 7D 0C C2 01 81 20 49 B2 30 20 |.1):..}.... I.0 |
00000450: A4 20 33 3A 46 28 5A 45 AA 48 49 AA 45 43 28 A5 |. 3:F(ZE.HI.EC(.|
00000460: 45 58 28 31 29 29 29 B2 A5 4B 4F 28 31 32 AB 46 |EX(1)))..KO(12.F|
00000470: 28 45 43 28 49 29 AA 5A 45 29 29 3A 82 00 83 0C |(EC(I).ZE)):....|
00000480: CC 01 3A 00 94 0C D6 01 8F 20 53 43 48 41 4C 54 |..:...... SCHALT|
00000490: 49 4E 49 54 00 B4 0C E0 01 41 B2 53 43 AA 56 4F |INIT.....A.SC.VO|
000004A0: 3A 81 49 B2 41 20 A4 20 41 AA 33 3A 46 28 49 29 |:.I.A . A.3:F(I)|
000004B0: B2 30 3A 82 00 D4 0C EA 01 41 B2 53 43 AA 48 49 |.0:......A.SC.HI|
000004C0: 3A 81 49 B2 41 20 A4 20 41 AA 33 3A 46 28 49 29 |:.I.A . A.3:F(I)|
000004D0: B2 31 3A 82 00 DF 0C F4 01 52 41 B2 30 3A 8E 00 |.1:......RA.0:..|
000004E0: E5 0C FE 01 3A 00 0C 0D 08 02 8F 20 2D 2D 2D 2D |....:...... ----|
000004F0: 2D 2D 2D 2D 2D 2D 20 41 55 53 47 41 42 45 52 4F |------ AUSGABERO|
00000500: 55 54 49 4E 45 4E 20 2D 2D 2D 2D 2D 00 17 0D 12 |UTINEN -----....|
00000510: 02 8F 20 50 4C 4F 54 00 30 0D 1C 02 97 52 58 2C |.. PLOT.0....RX,|
00000520: 59 3A 97 52 59 2C 58 3A 9E 36 35 35 32 30 3A 8E |Y:.RY,X:.65520:.|
00000530: 00 36 0D 26 02 3A 00 64 0D 30 02 8F 20 52 41 48 |.6.&.:.d.0.. RAH|
00000540: 4D 45 4E 28 59 4F 2C 58 4C 2C 59 55 2C 58 52 29 |MEN(YO,XL,YU,XR)|
00000550: 20 56 41 52 20 48 2C 56 2C 49 2C 58 2C 59 2C 41 | VAR H,V,I,X,Y,A|
00000560: 24 2C 42 24 00 7C 0D 3A 02 48 B2 58 52 AB 58 4C |$,B$.|.:.H.XR.XL|
00000570: AB 31 3A 56 B2 59 55 AB 59 4F AB 31 00 A7 0D 44 |.1:V.YU.YO.1...D|
00000580: 02 59 B2 59 4F 3A 58 B2 58 4C 3A 41 24 B2 4C 4F |.Y.YO:X.XL:A$.LO|
00000590: 24 3A 42 24 B2 52 4F 24 3A 8D 36 32 30 3A 58 B2 |$:B$.RO$:.620:X.|
000005A0: 58 52 3A 8D 36 33 30 00 CD 0D 4E 02 58 B2 58 4C |XR:.630...N.X.XL|
000005B0: 3A 8D 36 33 30 3A 59 B2 59 55 3A 41 24 B2 4C 55 |:.630:Y.YU:A$.LU|
000005C0: 24 3A 42 24 B2 52 55 24 3A 89 36 32 30 00 D3 0D |$:B$.RU$:.620...|
000005D0: 58 02 3A 00 F6 0D 62 02 8F 20 52 41 48 4D 48 28 |X.:...b.. RAHMH(|
000005E0: 59 2C 58 2C 41 24 2C 42 24 29 2C 20 52 41 48 4D |Y,X,A$,B$), RAHM|
000005F0: 56 28 59 2C 58 29 00 20 0E 6C 02 8D 35 34 30 3A |V(Y,X). .l..540:|
00000600: 20 99 41 24 3B 3A 20 81 49 B2 31 20 A4 20 48 3A | .A$;: .I.1 . H:|
00000610: 20 99 57 41 24 3B 3A 82 3A 20 99 42 24 3A 20 8E | .WA$;:.: .B$: .|
00000620: 00 47 0E 76 02 8D 35 34 30 3A 20 81 20 49 B2 31 |.G.v..540: . I.1|
00000630: 20 A4 20 56 3A 20 99 4C 46 24 53 45 24 42 53 24 | . V: .LF$SE$BS$|
00000640: 3B 3A 20 82 3A 20 8E 00 4D 0E 80 02 3A 00 5D 0E |;: .: ..M...:.].|
00000650: 8A 02 8F 20 55 48 52 52 41 48 4D 45 4E 00 84 0E |... UHRRAHMEN...|
00000660: 94 02 59 4F B2 59 4B 3A 59 55 B2 59 4B AA 31 38 |..YO.YK:YU.YK.18|
00000670: 3A 58 4C B2 58 4B 3A 58 52 B2 58 4B AA 32 31 3A |:XL.XK:XR.XK.21:|
00000680: 8D 35 37 30 00 A6 0E 9E 02 81 20 4A B2 30 20 A4 |.570...... J.0 .|
00000690: 20 38 3A 59 4F B2 A5 59 50 28 4A 29 AB 31 3A 59 | 8:YO..YP(J).1:Y|
000006A0: 55 B2 59 4F AA 32 00 C7 0E A8 02 58 4C B2 A5 58 |U.YO.2.....XL..X|
000006B0: 50 28 4A 29 AB 31 3A 58 52 B2 58 4C AA 33 3A 8D |P(J).1:XR.XL.3:.|
000006C0: 35 37 30 3A 82 3A 8E 00 CD 0E B2 02 3A 00 E2 0E |570:.:......:...|
000006D0: BC 02 8F 20 53 43 48 41 4C 54 50 4C 41 54 5A 28 |... SCHALTPLATZ(|
000006E0: 49 29 00 0C 0F C6 02 58 B2 58 4B AA 37 AA 28 49 |I).....X.XK.7.(I|
000006F0: 20 AF 20 31 29 AC 37 3A 59 B2 59 4B AA 36 AA B5 | . 1).7:Y.YK.6..|
00000700: 28 49 AD 32 29 AC 36 3A 89 35 34 30 00 12 0F D0 |(I.2).6:.540....|
00000710: 02 3A 00 27 0F DA 02 8F 20 53 43 48 41 4C 54 53 |.:.'.... SCHALTS|
00000720: 54 45 4C 4C 55 4E 47 00 4A 0F E4 02 41 24 B2 53 |TELLUNG.J...A$.S|
00000730: 49 24 3A 8B 20 46 28 49 AA 56 4F AA 53 43 29 B2 |I$:. F(I.VO.SC).|
00000740: 30 20 A7 20 41 24 B2 53 4F 24 00 55 0F EE 02 99 |0 . A$.SO$.U....|
00000750: 41 24 3B 3A 8E 00 5B 0F F8 02 3A 00 71 0F 02 03 |A$;:..[...:.q...|
00000760: 8F 20 5A 45 49 47 53 43 48 41 4C 54 45 52 28 49 |. ZEIGSCHALTER(I|
00000770: 29 00 7F 0F 0C 03 8D 37 31 30 3A 89 37 34 30 00 |)......710:.740.|
00000780: 85 0F 16 03 3A 00 96 0F 20 03 8F 20 53 43 48 41 |....:... .. SCHA|
00000790: 4C 54 42 49 4C 44 00 AE 0F 2A 03 81 20 49 B2 30 |LTBILD...*.. I.0|
000007A0: 20 A4 20 33 3A 20 8D 37 38 30 3A 82 3A 8E 00 B4 | . 3: .780:.:...|
000007B0: 0F 34 03 3A 00 C3 0F 3E 03 8F 20 5A 45 49 47 5A |.4.:...>.. ZEIGZ|
000007C0: 45 49 54 00 01 10 48 03 81 20 49 B2 30 20 A4 20 |EIT...H.. I.0 . |
000007D0: 38 3A 58 B2 A5 58 50 28 49 29 3A 59 B2 A5 59 50 |8:X..XP(I):Y..YP|
000007E0: 28 49 29 3A 8D 35 34 30 3A 99 C9 28 22 20 22 AA |(I):.540:..(" ".|
000007F0: C4 28 46 28 49 AA 5A 45 AA 56 4F 29 29 2C 32 29 |.(F(I.ZE.VO)),2)|
00000800: 3B 00 09 10 52 03 82 3A 8E 00 0F 10 5C 03 3A 00 |;...R..:....\.:.|
00000810: 21 10 66 03 8F 20 5A 45 49 47 52 41 44 28 52 41 |!.f.. ZEIGRAD(RA|
00000820: 29 00 32 10 70 03 8D 39 34 30 3A 99 5A 52 24 3B |).2.p..940:.ZR$;|
00000830: 3A 8E 00 38 10 7A 03 3A 00 4C 10 84 03 8F 20 4C |:..8.z.:.L.... L|
00000840: 4F 45 53 43 48 52 41 44 28 52 41 29 00 5D 10 8E |OESCHRAD(RA).]..|
00000850: 03 8D 39 34 30 3A 99 4C 52 24 3B 3A 8E 00 63 10 |..940:.LR$;:..c.|
00000860: 98 03 3A 00 75 10 A2 03 8F 20 52 41 44 50 4C 41 |..:.u.... RADPLA|
00000870: 54 5A 28 49 29 00 A3 10 AC 03 58 B2 58 4B AB 31 |TZ(I).....X.XK.1|
00000880: AA 28 52 41 20 AF 20 31 29 AC 32 33 3A 59 B2 59 |.(RA . 1).23:Y.Y|
00000890: 4B AB 31 AA B5 28 52 41 AD 32 29 AC 32 30 3A 89 |K.1..(RA.2).20:.|
000008A0: 35 34 30 00 A9 10 B6 03 3A 00 D0 10 C0 03 8F 20 |540.....:...... |
000008B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 52 49 45 47 |----------- RIEG|
000008C0: 45 4C 2D 4C 4F 47 49 4B 20 2D 2D 2D 2D 2D 2D 2D |EL-LOGIK -------|
000008D0: 00 E3 10 CA 03 8F 20 45 49 4E 53 55 4D 4D 45 28 |...... EINSUMME(|
000008E0: 2F 4E 29 00 0C 11 D4 03 4E B2 30 3A 41 B2 53 43 |/N).....N.0:A.SC|
000008F0: AA 56 4F 3A 81 20 49 B2 41 20 A4 20 41 AA 33 3A |.VO:. I.A . A.3:|
00000900: 4E B2 4E AA 46 28 49 29 3A 82 3A 8E 00 12 11 DE |N.N.F(I):.:.....|
00000910: 03 3A 00 23 11 E8 03 8F 20 45 43 4B 52 49 45 47 |.:.#.... ECKRIEG|
00000920: 45 4C 4E 00 48 11 F2 03 81 20 41 B2 30 20 A4 20 |ELN.H.... A.0 . |
00000930: 33 3A 49 B2 A5 45 49 28 41 29 3A 49 B2 A5 45 58 |3:I..EI(A):I..EX|
00000940: 28 A5 45 49 28 58 29 29 00 66 11 FC 03 46 28 56 |(.EI(X)).f...F(V|
00000950: 4F AA 52 47 AA 45 43 28 41 29 29 B2 A5 45 58 28 |O.RG.EC(A))..EX(|
00000960: 31 29 3A 82 3A 8E 00 6C 11 06 04 3A 00 7E 11 10 |1):.:..l...:.~..|
00000970: 04 8F 20 54 45 49 4C 52 49 45 47 45 4C 4E 00 9A |.. TEILRIEGELN..|
00000980: 11 1A 04 8D 39 38 30 3A 8B 20 46 28 58 AA 56 4F |....980:. F(X.VO|
00000990: 29 B2 30 20 A7 20 31 31 31 30 00 A0 11 24 04 3A |).0 . 1110...$.:|
000009A0: 00 AE 11 2E 04 8F 20 55 4E 54 46 41 4C 4C 00 CC |...... UNTFALL..|
000009B0: 11 38 04 91 20 4E 20 89 20 31 32 36 30 2C 31 32 |.8.. N . 1260,12|
000009C0: 30 30 2C 31 32 30 30 2C 31 32 30 30 00 D2 11 42 |00,1200,1200...B|
000009D0: 04 3A 00 DF 11 4C 04 8F 20 4F 42 46 41 4C 4C 00 |.:...L.. OBFALL.|
000009E0: FF 11 56 04 91 20 4E AA 31 20 89 20 31 32 33 30 |..V.. N.1 . 1230|
000009F0: 2C 31 32 33 30 2C 31 33 37 30 2C 31 32 30 30 00 |,1230,1370,1200.|
00000A00: 05 12 60 04 3A 00 14 12 6A 04 8F 20 41 4C 4C 45 |..`.:...j.. ALLE|
00000A10: 53 28 57 29 00 3A 12 74 04 41 44 B2 52 47 AA 56 |S(W).:.t.AD.RG.V|
00000A20: 4F 3A 81 20 49 B2 41 44 20 A4 20 41 44 AA 38 3A |O:. I.AD . AD.8:|
00000A30: 46 28 49 29 B2 57 3A 82 3A 8E 00 40 12 7E 04 3A |F(I).W:.:..@.~.:|
00000A40: 00 4E 12 88 04 8F 20 52 49 45 47 45 4C 4E 00 7C |.N.... RIEGELN.||
00000A50: 12 92 04 58 B2 52 41 3A 8D 31 30 35 30 3A 8D 31 |...X.RA:.1050:.1|
00000A60: 35 32 30 3A 49 B2 58 3A 58 B2 A5 45 58 28 31 29 |520:I.X:X..EX(1)|
00000A70: 3A 8D 31 30 35 30 3A 89 31 35 32 30 00 82 12 9C |:.1050:.1520....|
00000A80: 04 3A 00 93 12 A6 04 8F 20 56 45 52 52 49 45 47 |.:...... VERRIEG|
00000A90: 45 4C 4E 00 A7 12 B0 04 57 B2 30 3A 8D 31 31 34 |ELN.....W.0:.114|
00000AA0: 30 3A 89 31 30 31 30 00 AD 12 BA 04 3A 00 BE 12 |0:.1010.....:...|
00000AB0: C4 04 8F 20 45 4E 54 52 49 45 47 45 4C 4E 00 D2 |... ENTRIEGELN..|
00000AC0: 12 CE 04 57 B2 31 3A 8D 31 31 34 30 3A 89 31 30 |...W.1:.1140:.10|
00000AD0: 31 30 00 D8 12 D8 04 3A 00 EC 12 E2 04 8F 20 45 |10.....:...... E|
00000AE0: 49 4E 4B 4E 4F 50 46 55 4E 54 45 4E 00 07 13 EC |INKNOPFUNTEN....|
00000AF0: 04 8D 31 32 33 30 3A 49 B2 58 3A 49 B2 A5 45 58 |..1230:I.X:I..EX|
00000B00: 28 33 29 3A 41 B2 49 00 22 13 F6 04 46 28 56 4F |(3):A.I."...F(VO|
00000B10: AA 52 47 AA A5 5A 57 28 A5 45 58 28 31 29 29 29 |.RG..ZW(.EX(1)))|
00000B20: B2 30 00 3D 13 00 05 46 28 56 4F AA 52 47 AA A5 |.0.=...F(VO.RG..|
00000B30: 5A 57 28 A5 45 58 28 32 29 29 29 B2 30 00 43 13 |ZW(.EX(2))).0.C.|
00000B40: 0A 05 8E 00 49 13 14 05 3A 00 56 13 1E 05 8F 20 |....I...:.V.... |
00000B50: 57 45 4C 43 48 45 00 64 13 28 05 81 20 49 B2 30 |WELCHE.d.(.. I.0|
00000B60: 20 A4 20 33 00 7D 13 32 05 8B 20 A5 45 49 28 49 | . 3.}.2.. .EI(I|
00000B70: 29 B2 31 20 A7 20 42 B2 41 3A 41 B2 49 00 8E 13 |).1 . B.A:A.I...|
00000B80: 3C 05 82 3A 41 B2 A5 5A 57 28 42 29 3A 8E 00 94 |<..:A..ZW(B):...|
00000B90: 13 46 05 3A 00 A8 13 50 05 8F 20 5A 57 45 49 4B |.F.:...P.. ZWEIK|
00000BA0: 4E 4F 50 46 4F 42 45 4E 00 B6 13 5A 05 8D 31 32 |NOPFOBEN...Z..12|
00000BB0: 33 30 3A 49 B2 58 00 E3 13 64 05 8B 20 A5 45 49 |30:I.X...d.. .EI|
00000BC0: 28 58 29 B3 B1 A5 45 49 28 A5 45 58 28 33 29 29 |(X)...EI(.EX(3))|
00000BD0: A7 8D 31 33 32 30 3A 46 28 52 47 AA 56 4F AA 41 |..1320:F(RG.VO.A|
00000BE0: 29 B2 30 00 E9 13 6E 05 8E 00 EF 13 78 05 3A 00 |).0...n.....x.:.|
00000BF0: 15 14 82 05 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..... ----------|
00000C00: 2D 2D 2D 20 54 45 49 4C 50 52 4F 47 52 41 4D 4D |--- TEILPROGRAMM|
00000C10: 45 20 2D 2D 2D 00 22 14 8C 05 8F 20 4E 55 4D 4D |E ---.".... NUMM|
00000C20: 45 52 00 36 14 96 05 58 B2 28 C6 28 43 24 29 AB |ER.6...X.(.(C$).|
00000C30: 31 29 AF 33 3A 8E 00 3C 14 A0 05 3A 00 4B 14 AA |1).3:..<...:.K..|
00000C40: 05 8F 20 53 43 48 41 4C 54 45 4E 00 5B 14 B4 05 |.. SCHALTEN.[...|
00000C50: 8D 31 34 39 30 3A 89 31 34 39 30 00 61 14 BE 05 |.1490:.1490.a...|
00000C60: 3A 00 77 14 C8 05 8F 20 54 45 49 4C 53 43 48 41 |:.w.... TEILSCHA|
00000C70: 4C 54 45 4E 28 58 29 00 AD 14 D2 05 41 B2 58 AA |LTEN(X).....A.X.|
00000C80: 53 43 AA 56 4F 3A 49 B2 46 28 41 29 3A 46 28 41 |SC.VO:I.F(A):F(A|
00000C90: 29 B2 A5 45 58 28 31 29 3A 8D 31 35 32 30 3A 49 |)..EX(1):.1520:I|
00000CA0: B2 58 3A 58 B2 A5 45 58 28 31 29 3A 8E 00 B3 14 |.X:X..EX(1):....|
00000CB0: DC 05 3A 00 C0 14 E6 05 8F 20 57 45 4E 44 45 4E |..:...... WENDEN|
00000CC0: 00 D6 14 F0 05 41 B2 56 4F 3A 56 4F B2 48 49 3A |.....A.VO:VO.HI:|
00000CD0: 48 49 B2 41 3A 8E 00 DC 14 FA 05 3A 00 EC 14 04 |HI.A:......:....|
00000CE0: 06 8F 20 53 43 48 41 4C 54 55 4E 47 00 0B 15 0E |.. SCHALTUNG....|
00000CF0: 06 8D 31 34 33 30 3A 8D 31 34 36 30 3A 49 B2 58 |..1430:.1460:I.X|
00000D00: 3A 8D 37 38 30 3A 89 31 31 37 30 00 11 15 18 06 |:.780:.1170.....|
00000D10: 3A 00 1F 15 22 06 8F 20 57 45 4E 44 55 4E 47 00 |:...".. WENDUNG.|
00000D20: 3C 15 2C 06 8D 39 31 30 3A 49 B2 52 41 3A 52 41 |<.,..910:I.RA:RA|
00000D30: B2 A5 45 58 28 31 29 3A 8D 38 38 30 00 50 15 36 |..EX(1):.880.P.6|
00000D40: 06 8D 31 35 32 30 3A 8D 38 31 30 3A 89 38 34 30 |..1520:.810:.840|
00000D50: 00 56 15 40 06 3A 00 63 15 4A 06 8F 20 44 52 45 |.V.@.:.c.J.. DRE|
00000D60: 48 45 4E 00 78 15 54 06 8D 31 36 35 30 3A 58 B2 |HEN.x.T..1650:X.|
00000D70: AB 58 3A 89 31 36 35 30 00 7E 15 5E 06 3A 00 8D |.X:.1650.~.^.:..|
00000D80: 15 68 06 54 45 49 4C 44 52 45 48 45 4E 00 A8 15 |.h.TEILDREHEN...|
00000D90: 72 06 41 44 B2 52 47 AA 56 4F 3A 81 20 49 B2 41 |r.AD.RG.VO:. I.A|
00000DA0: 44 20 A4 20 41 44 AA 38 00 CC 15 7C 06 8B 20 46 |D . AD.8...|.. F|
00000DB0: 28 49 29 B2 31 20 A7 20 46 28 49 AA 39 29 B2 A5 |(I).1 . F(I.9)..|
00000DC0: 4B 4F 28 46 28 49 AA 39 29 AA 58 29 00 D8 15 86 |KO(F(I.9).X)....|
00000DD0: 06 82 3A 89 31 35 32 30 00 DE 15 90 06 3A 00 EC |..:.1520.....:..|
00000DE0: 15 9A 06 8F 20 44 52 45 48 55 4E 47 00 04 16 A4 |.... DREHUNG....|
00000DF0: 06 58 B2 31 3A 8B 20 43 24 B2 22 2D 22 20 A7 20 |.X.1:. C$."-" . |
00000E00: 58 B2 AB 31 00 13 16 AE 06 8D 31 36 32 30 3A 89 |X..1......1620:.|
00000E10: 38 34 30 00 19 16 B8 06 3A 00 27 16 C2 06 8F 20 |840.....:.'.... |
00000E20: 52 41 44 57 41 48 4C 00 4C 16 CC 06 8D 39 31 30 |RADWAHL.L....910|
00000E30: 3A 8D 31 39 30 30 3A 8D 31 34 33 30 3A 52 41 B2 |:.1900:.1430:RA.|
00000E40: 58 3A 8D 38 38 30 3A 89 31 31 37 30 00 52 16 D6 |X:.880:.1170.R..|
00000E50: 06 3A 00 78 16 E0 06 8F 20 2D 2D 2D 2D 2D 2D 2D |.:.x.... -------|
00000E60: 2D 2D 2D 2D 2D 2D 20 48 41 55 50 54 50 52 4F 47 |------ HAUPTPROG|
00000E70: 52 41 4D 4D 20 2D 2D 2D 00 85 16 EA 06 8F 20 41 |RAMM ---...... A|
00000E80: 4E 46 41 4E 47 00 B0 16 F4 06 99 C7 28 31 34 37 |NFANG.......(147|
00000E90: 29 3A 8D 31 37 30 3A 8D 36 36 30 3A 8D 38 31 30 |):.170:.660:.810|
00000EA0: 3A 8D 38 34 30 3A 8D 38 38 30 3A 89 31 31 37 30 |:.840:.880:.1170|
00000EB0: 00 B6 16 FE 06 3A 00 C8 16 08 07 8F 20 54 41 53 |.....:...... TAS|
00000EC0: 54 57 45 52 54 55 4E 47 00 F7 16 12 07 4E B2 30 |TWERTUNG.....N.0|
00000ED0: 3A 81 49 B2 31 A4 38 3A 8B 43 24 B2 CA 28 22 31 |:.I.1.8:.C$..("1|
00000EE0: 32 33 34 2E 2B 2D 30 22 2C 49 2C 31 29 20 A7 20 |234.+-0",I,1) . |
00000EF0: 4E B2 49 3A 49 B2 38 00 2B 17 1C 07 82 3A 91 20 |N.I:I.8.+....:. |
00000F00: 4E 20 89 20 31 35 35 30 2C 31 35 35 30 2C 31 35 |N . 1550,1550,15|
00000F10: 35 30 2C 31 35 35 30 2C 31 37 34 30 2C 31 37 30 |50,1550,1740,170|
00000F20: 30 2C 31 37 30 30 2C 31 35 38 30 00 31 17 26 07 |0,1700,1580.1.&.|
00000F30: 8E 00 37 17 30 07 3A 00 4B 17 3A 07 8F 20 48 41 |..7.0.:.K.:.. HA|
00000F40: 55 50 54 53 43 48 4C 45 49 46 45 00 55 17 44 07 |UPTSCHLEIFE.U.D.|
00000F50: 8D 31 37 38 30 00 6B 17 4E 07 8D 31 39 30 30 3A |.1780.k.N..1900:|
00000F60: 8D 31 38 31 30 3A 89 31 38 37 30 00 71 17 58 07 |.1810:.1870.q.X.|
00000F70: 3A 00 7F 17 62 07 8F 20 45 49 4E 47 41 42 45 00 |:...b.. EINGABE.|
00000F80: 97 17 6C 07 A1 20 43 24 3A 8B 20 43 24 B2 22 22 |..l.. C$:. C$.""|
00000F90: 20 A7 20 31 39 30 30 00 9D 17 76 07 8E 00 A3 17 | . 1900...v.....|
00000FA0: 80 07 3A 00 C9 17 8A 07 8F 20 3D 3D 3D 3D 3D 3D |..:...... ======|
00000FB0: 3D 3D 3D 3D 3D 20 45 20 4E 20 44 20 45 20 3D 3D |===== E N D E ==|
00000FC0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 00 00 |=========... |
..(.... RUBICS CLOCK====================
.D.... BY ALFONS MITTELMEYER.J.....H.(..
FUER COMMODORE COMPUTER...2.. C116/C16/
P4/C64/C128...<.....F.. BEISPIEL FUER GU
TEN...P.. PROGRAMMIERSTIL...Z.. ========
========================...D.. RECHNERAN
PASSUNG...N.P.B(772).,.X.RX.781.(P.124).
2035.(P.86).7.(P.13).E...RX..RX:RY.RX.1:
.1860.K...:.S.... ----------- INITIALISI
ERUNG -----.~. .. INIT......200.....:...
... AUSGABEINIT...H.YK.3:XK.9:. RAHMENPO
SITION...R.LR$." ":ZR$.G(18)." ".G(146).
....LF$.G(17):BS$.G(157).(...WA$.G(195):
SE$.G(194):LO$.G(176):RO$.G(174).X...LU$
.G(173):RU$.G(189):SI$.G(122):SO$.G(113)
.^...:.L.... VARINIT.X.... F(43).....VO.
0:HI.22:ZE.13:SC.0...".SC.0:RG.4:ZE.13:V
O.0:HI.22.U.,.EC(0).0:EC(1).2:EC(2).6:EC
(3).8...6.:...@.. FUNKTIONEN...J.. . YP(
N)..(N.3).6.YK.3.*.T.. . XP(N).(N..(N.3)
.3).7.XK.3.@.^.. . EI(I).F(I.VO).^.H.. .
ZW(B).(EC(A).EC(B)).2...R.. . KO(N)..(N
.12.((N.0).(N.13)))...|.. . EX(N).((I .
. N).(. I . N)).M.... . WT(I).N.(N.(.EI(
X),.EI(I)),1).S...:...... ZEITINIT.....X
..(.TI).....A.ZE.VO:.I.A . A.8:F(I)..(.(
1).12.1):..E...A.ZE.HI:.I.A . A.8:F(I)..
(.(1).12.1):..}.B.. I.0 . 3:F(ZE.HI.EC(.
EX(1)))..KO(12.F(EC(I).ZE)):....L.:...V.
. SCHALTINIT.....A.SC.VO:.I.A . A.3:F(I)
.0:..T...A.SC.HI:.I.A . A.3:F(I).1:.....
.RA.0:......:...... ---------- AUSGABERO
UTINEN -----...... PLOT.0....RX,Y:.RY,X:
.65520:..6.&.:.D.0.. RAHMEN(YO,XL,YU,XR)
VAR H,V,I,X,Y,A$,B$.|.:.H.XR.XL.1:V.YU.
YO.1...D.Y.YO:X.XL:A$.LO$:B$.RO$:.620:X.
XR:.630.M.N.X.XL:.630:Y.YU:A$.LU$:B$.RU$
:.620.S.X.:...B.. RAHMH(Y,X,A$,B$), RAHM
V(Y,X). .L..540: .A$;: .I.1 . H: .WA$;:.
: .B$: ..G.V..540: . I.1 . V: .LF$SE$BS$
;: .: ..M...:.].... UHRRAHMEN.....YO.YK:
YU.YK.18:XL.XK:XR.XK.21:.570...... J.0 .
8:YO..YP(J).1:YU.YO.2.G...XL..XP(J).1:X
R.XL.3:.570:.:..M...:...... SCHALTPLATZ(
I)...F.X.XK.7.(I . 1).7:Y.YK.6..(I.2).6:
.540...P.:.'.Z.. SCHALTSTELLUNG.J...A$.S
I$:. F(I.VO.SC).0 . A$.SO$.U....A$;:..[.
..:.Q.... ZEIGSCHALTER(I).....710:.740.
....:... .. SCHALTBILD...*.. I.0 . 3: .7
80:.:....4.:.C.>.. ZEIGZEIT...H.. I.0 .
8:X..XP(I):Y..YP(I):.540:.I(" ".D(F(I.ZE
.VO)),2);...R..:....\.:.!.F.. ZEIGRAD(RA
).2.P..940:.ZR$;:..8.Z.:.L.... LOESCHRAD
(RA).]....940:.LR$;:..C...:.U.... RADPLA
TZ(I).....X.XK.1.(RA . 1).23:Y.YK.1..(RA
.2).20:.540.....:.P.... ----------- RIEG
EL-LOGIK -------...J.. EINSUMME(/N)...T.
N.0:A.SC.VO:. I.A . A.3:N.N.F(I):.:.....
.:.#.... ECKRIEGELN.H.... A.0 . 3:I..EI(
A):I..EX(.EI(X)).F...F(VO.RG.EC(A))..EX(
1):.:..L...:.~.... TEILRIEGELN......980:
. F(X.VO).0 . 1110. .$.:...... UNTFALL.L
.8.. N . 1260,1200,1200,1200.R.B.:...L..
OBFALL...V.. N.1 . 1230,1230,1370,1200.
..`.:...J.. ALLES(W).:.T.AD.RG.VO:. I.AD
. AD.8:F(I).W:.:..@.~.:.N.... RIEGELN.|
...X.RA:.1050:.1520:I.X:X..EX(1):.1050:.
1520.....:...... VERRIEGELN.....W.0:.114
0:.1010.....:...D.. ENTRIEGELN.R.N.W.1:.
1140:.1010.X.X.:...... EINKNOPFUNTEN....
..1230:I.X:I..EX(3):A.I."...F(VO.RG..ZW(
.EX(1))).0.=...F(VO.RG..ZW(.EX(2))).0.C.
....I...:.V.... WELCHE.D.(.. I.0 . 3.}.2
.. .EI(I).1 . B.A:A.I...<..:A..ZW(B):...
.F.:...P.. ZWEIKNOPFOBEN...Z..1230:I.X..
.D.. .EI(X)...EI(.EX(3))..1320:F(RG.VO.A
).0...N.....X.:...... ------------- TEIL
PROGRAMME ---.".... NUMMER.6...X.(F(C$).
1).3:..<. .:.K.... SCHALTEN.[....1490:.1
490.A...:.W.H.. TEILSCHALTEN(X)...R.A.X.
SC.VO:I.F(A):F(A)..EX(1):.1520:I.X:X..EX
(1):......:...... WENDEN.V...A.VO:VO.HI:
HI.A:......:...... SCHALTUNG......1430:.
1460:I.X:.780:.1170.....:...".. WENDUNG.
<.,..910:I.RA:RA..EX(1):.880.P.6..1520:.
810:.840.V.@.:.C.J.. DREHEN.X.T..1650:X.
.X:.1650.~.^.:...H.TEILDREHEN...R.AD.RG.
VO:. I.AD . AD.8.L.|.. F(I).1 . F(I.9)..
KO(F(I.9).X).X....:.1520.....:...... DRE
HUNG.....X.1:. C$."-" . X..1......1620:.
840.....:.'.B.. RADWAHL.L.L..910:.1900:.
1430:RA.X:.880:.1170.R.V.:.X.... -------
------ HAUPTPROGRAMM ---...... ANFANG...
...G(147):.170:.660:.810:.840:.880:.1170
.....:.H.... TASTWERTUNG.....N.0:.I.1.8:
.C$.J("1234.+-0",I,1) . N.I:I.8.+....:.
N . 1550,1550,1550,1550,1740,1700,1700,1
580.1.&...7.0.:.K.:.. HAUPTSCHLEIFE.U.D.
.1780.K.N..1900:.1810:.1870.Q.X.:..B..
EINGABE...L.. C$:. C$."" . 1900...V.....
..:.I.... =========== E N D E ==========
=...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL