GRAFIK-ROUTINEN
FILE INFORMATION
FILENAME(S): GRAFIK-ROUTINEN
FILE TYPE(S): PRG
FILE SIZE: 2.9K
FIRST SEEN: 2025-11-02 16:39:26
APPEARS ON: 1 disk(s)
FILE HASH
10a4ab191a1b48f9f61af580d36126f54219544579acbfda67842d8e9ce22146
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COMMODORE DISC43 | GRAFIK-ROUTINEN | PRG | Treasure Chest - Plattfuss | 12 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 0A 00 8F 20 47 52 41 46 49 4B 20 52 |..(.... GRAFIK R| 00000010: 4F 55 54 49 4E 45 4E 20 3D 3D 3D 3D 3D 3D 3D 3D |OUTINEN ========| 00000020: 3D 3D 3D 3D 3D 43 36 34 00 48 08 14 00 8F 20 57 |=====C64.H.... W| 00000030: 52 49 54 54 45 4E 20 42 59 20 41 2E 20 4D 49 54 |RITTEN BY A. MIT| 00000040: 54 45 4C 4D 45 59 45 52 00 6F 08 1E 00 8F 20 3D |TELMEYER.o.... =| 00000050: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000060: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 |===============.| 00000070: 78 08 82 00 56 42 B2 33 00 81 08 8C 00 47 42 B2 |x...VB.3.....GB.| 00000080: 38 00 8A 08 96 00 56 52 B2 37 00 B0 08 97 00 8F |8.....VR.7......| 00000090: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------| 000000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000000B0: 00 B9 08 9B 00 56 46 B2 31 00 CD 08 A0 00 8D 31 |.....VF.1......1| 000000C0: 38 30 3A 8D 32 30 30 3A 89 31 31 35 30 00 ED 08 |80:.200:.1150...| 000000D0: B4 00 56 48 B2 36 34 AC 56 42 AA 34 AC 56 52 3A |..VH.64.VB.4.VR:| 000000E0: 47 48 B2 36 34 AC 56 42 AA 34 AC 47 42 00 07 09 |GH.64.VB.4.GB...| 000000F0: BE 00 56 41 B2 32 35 36 AC 56 48 3A 47 41 B2 32 |..VA.256.VH:GA.2| 00000100: 35 36 AC 47 48 3A 8E 00 17 09 C8 00 81 49 B2 38 |56.GH:.......I.8| 00000110: 32 38 A4 31 30 30 34 00 27 09 C9 00 87 41 3A 97 |28.1004.'....A:.| 00000120: 49 2C 41 3A 82 3A 8E 00 4C 09 CA 00 83 31 32 30 |I,A:.:..L....120| 00000130: 2C 30 37 32 2C 31 36 35 2C 30 30 31 2C 30 34 31 |,072,165,001,041| 00000140: 2C 32 35 32 2C 31 33 33 2C 30 30 31 00 71 09 CB |,252,133,001.q..| 00000150: 00 83 31 30 34 2C 30 39 36 2C 30 37 32 2C 31 36 |..104,096,072,16| 00000160: 35 2C 30 30 31 2C 30 30 39 2C 30 30 33 2C 31 33 |5,001,009,003,13| 00000170: 33 00 96 09 CC 00 83 30 30 31 2C 30 38 38 2C 31 |3......001,088,1| 00000180: 30 34 2C 30 39 36 2C 30 33 32 2C 30 36 30 2C 30 |04,096,032,060,0| 00000190: 30 33 2C 31 36 30 00 BB 09 CD 00 83 30 30 30 2C |03,160......000,| 000001A0: 31 34 35 2C 32 35 31 2C 32 30 30 2C 32 30 38 2C |145,251,200,208,| 000001B0: 32 35 31 2C 32 33 30 2C 32 35 32 00 E0 09 CE 00 |251,230,252.....| 000001C0: 83 32 30 32 2C 32 30 38 2C 32 34 36 2C 32 34 30 |.202,208,246,240| 000001D0: 2C 32 32 39 2C 31 36 30 2C 30 30 30 2C 30 33 32 |,229,160,000,032| 000001E0: 00 05 0A CF 00 83 32 30 37 2C 32 35 35 2C 31 37 |......207,255,17| 000001F0: 36 2C 32 32 32 2C 30 33 32 2C 30 36 30 2C 30 30 |6,222,032,060,00| 00000200: 33 2C 31 34 35 00 2A 0A D0 00 83 32 35 31 2C 30 |3,145.*....251,0| 00000210: 33 32 2C 30 37 30 2C 30 30 33 2C 32 30 30 2C 32 |32,070,003,200,2| 00000220: 30 38 2C 32 34 30 2C 32 33 30 00 4F 0A D1 00 83 |08,240,230.O....| 00000230: 32 35 32 2C 32 30 32 2C 32 30 38 2C 32 33 35 2C |252,202,208,235,| 00000240: 32 34 30 2C 32 30 34 2C 31 36 30 2C 30 30 30 00 |240,204,160,000.| 00000250: 74 0A D2 00 83 30 33 32 2C 30 36 30 2C 30 30 33 |t....032,060,003| 00000260: 2C 31 37 37 2C 32 35 31 2C 30 33 32 2C 30 37 30 |,177,251,032,070| 00000270: 2C 30 30 33 00 99 0A D3 00 83 30 33 32 2C 32 31 |,003......032,21| 00000280: 30 2C 32 35 35 2C 32 30 30 2C 32 30 38 2C 32 34 |0,255,200,208,24| 00000290: 32 2C 32 33 30 2C 32 35 32 00 BE 0A D4 00 83 32 |2,230,252......2| 000002A0: 30 32 2C 32 30 38 2C 32 33 37 2C 30 39 36 2C 30 |02,208,237,096,0| 000002B0: 33 32 2C 32 35 33 2C 31 37 34 2C 30 33 32 00 E3 |32,253,174,032..| 000002C0: 0A D5 00 83 32 33 35 2C 31 38 33 2C 31 33 38 2C |....235,183,138,| 000002D0: 30 33 32 2C 30 36 30 2C 30 30 33 2C 31 36 30 2C |032,060,003,160,| 000002E0: 30 30 30 00 08 0B D6 00 83 31 34 35 2C 30 32 30 |000......145,020| 000002F0: 2C 30 37 36 2C 30 37 30 2C 30 30 33 2C 30 33 32 |,076,070,003,032| 00000300: 2C 32 35 33 2C 31 37 34 00 2D 0B D7 00 83 30 33 |,253,174.-....03| 00000310: 32 2C 31 33 38 2C 31 37 33 2C 30 33 32 2C 32 34 |2,138,173,032,24| 00000320: 37 2C 31 38 33 2C 30 33 32 2C 30 36 30 00 52 0B |7,183,032,060.R.| 00000330: D8 00 83 30 30 33 2C 31 36 30 2C 30 30 30 2C 31 |...003,160,000,1| 00000340: 37 37 2C 30 32 30 2C 30 33 32 2C 30 37 30 2C 30 |77,020,032,070,0| 00000350: 30 33 00 77 0B D9 00 83 31 36 38 2C 30 33 32 2C |03.w....168,032,| 00000360: 31 36 32 2C 31 37 39 2C 30 33 32 2C 32 35 33 2C |162,179,032,253,| 00000370: 31 37 34 2C 30 33 32 00 9C 0B DA 00 83 31 33 39 |174,032......139| 00000380: 2C 31 37 36 2C 31 33 33 2C 30 37 33 2C 31 33 32 |,176,133,073,132| 00000390: 2C 30 37 34 2C 31 36 35 2C 30 31 34 00 C1 0B DB |,074,165,014....| 000003A0: 00 83 30 37 36 2C 31 39 34 2C 31 36 39 2C 30 33 |..076,194,169,03| 000003B0: 32 2C 32 35 33 2C 31 37 34 2C 30 33 32 2C 32 33 |2,253,174,032,23| 000003C0: 35 00 E6 0B DC 00 83 31 38 33 2C 31 36 39 2C 30 |5......183,169,0| 000003D0: 30 30 2C 30 35 36 2C 31 30 36 2C 32 30 32 2C 30 |00,056,106,202,0| 000003E0: 31 36 2C 32 35 32 00 0B 0C DD 00 83 31 36 30 2C |16,252......160,| 000003F0: 30 30 30 2C 30 37 36 2C 30 36 30 2C 30 30 33 2C |000,076,060,003,| 00000400: 30 33 32 2C 31 39 39 2C 30 30 33 00 30 0C DE 00 |032,199,003.0...| 00000410: 83 30 31 37 2C 30 32 30 2C 31 34 35 2C 30 32 30 |.017,020,145,020| 00000420: 2C 30 37 36 2C 30 37 30 2C 30 30 33 2C 30 33 32 |,076,070,003,032| 00000430: 00 55 0C DF 00 83 31 39 39 2C 30 30 33 2C 30 37 |.U....199,003,07| 00000440: 33 2C 32 35 35 2C 30 34 39 2C 30 32 30 2C 30 37 |3,255,049,020,07| 00000450: 36 2C 32 32 32 00 5E 0C E0 00 83 30 30 33 00 78 |6,222.^....003.x| 00000460: 0C A4 01 8F 20 2D 2D 2D 2D 20 47 52 41 46 49 4B |.... ---- GRAFIK| 00000470: 20 41 4E 20 2D 2D 2D 2D 00 97 0C AE 01 97 35 36 | AN ----......56| 00000480: 35 37 36 2C C2 28 35 36 35 37 36 29 AF 32 35 32 |576,.(56576).252| 00000490: B0 28 33 AB 56 42 29 00 AB 0C B8 01 97 35 33 32 |.(3.VB)......532| 000004A0: 37 32 2C 31 36 AC 56 52 AA 47 42 00 C4 0C C2 01 |72,16.VR.GB.....| 000004B0: 97 35 33 32 36 35 2C C2 28 35 33 32 36 35 29 B0 |.53265,.(53265).| 000004C0: 33 32 3A 8E 00 DF 0C D6 01 8F 20 2D 2D 2D 2D 20 |32:....... ---- | 000004D0: 47 52 41 46 49 4B 20 41 55 53 20 2D 2D 2D 2D 00 |GRAFIK AUS ----.| 000004E0: F9 0C E0 01 97 35 36 35 37 36 2C C2 28 35 36 35 |.....56576,.(565| 000004F0: 37 36 29 AF 32 35 32 B0 33 00 07 0D EA 01 97 35 |76).252.3......5| 00000500: 33 32 37 32 2C 32 31 00 21 0D F4 01 97 35 33 32 |3272,21.!....532| 00000510: 36 35 2C C2 28 35 33 32 36 35 29 AF 32 32 33 3A |65,.(53265).223:| 00000520: 8E 00 3F 0D 08 02 8F 20 2D 2D 2D 2D 20 46 41 52 |..?.... ---- FAR| 00000530: 42 45 20 4B 4C 41 45 52 45 4E 20 2D 2D 2D 2D 00 |BE KLAEREN ----.| 00000540: 58 0D 12 02 97 37 38 30 2C 31 36 AC 56 46 AA 48 |X....780,16.VF.H| 00000550: 46 3A 97 37 38 31 2C 34 00 72 0D 1C 02 97 32 35 |F:.781,4.r....25| 00000560: 31 2C 30 3A 97 32 35 32 2C 56 48 3A 9E 38 34 38 |1,0:.252,VH:.848| 00000570: 3A 8E 00 90 0D 26 02 8F 20 2D 2D 2D 2D 20 42 49 |:....&.. ---- BI| 00000580: 4C 44 20 4C 4F 45 53 43 48 45 4E 20 2D 2D 2D 2D |LD LOESCHEN ----| 00000590: 00 A3 0D 30 02 97 37 38 30 2C 30 3A 97 37 38 31 |...0..780,0:.781| 000005A0: 2C 33 32 00 BD 0D 3A 02 97 32 35 31 2C 30 3A 97 |,32...:..251,0:.| 000005B0: 32 35 32 2C 47 48 3A 9E 38 34 38 3A 8E 00 DA 0D |252,GH:.848:....| 000005C0: 44 02 8F 20 2D 2D 2D 2D 20 47 52 41 46 49 4B 20 |D.. ---- GRAFIK | 000005D0: 4C 41 44 45 4E 20 2D 2D 2D 2D 00 F7 0D 4E 02 9F |LADEN ----...N..| 000005E0: 38 2C 38 2C 38 2C 46 49 24 AA 22 2C 50 2C 52 22 |8,8,8,FI$.",P,R"| 000005F0: 3A 97 37 38 31 2C 38 00 11 0E 58 02 9E 36 35 34 |:.781,8...X..654| 00000600: 37 38 3A A1 41 24 3A A1 41 24 3A 97 32 35 31 2C |78:.A$:.A$:.251,| 00000610: 30 00 1F 0E 62 02 8B 46 47 B2 30 A7 36 33 30 00 |0...b..FG.0.630.| 00000620: 37 0E 6C 02 97 32 35 32 2C 56 48 3A 97 37 38 31 |7.l..252,VH:.781| 00000630: 2C 34 3A 9E 38 36 35 00 50 0E 76 02 97 32 35 32 |,4:.865.P.v..252| 00000640: 2C 47 48 3A 97 37 38 31 2C 33 32 3A 9E 38 36 35 |,GH:.781,32:.865| 00000650: 00 60 0E 80 02 9E 36 35 34 38 34 3A A0 38 3A 8E |.`....65484:.8:.| 00000660: 00 7D 0E 85 02 8F 20 2D 2D 2D 2D 20 47 52 41 46 |.}.... ---- GRAF| 00000670: 49 4B 20 53 41 56 45 4E 20 2D 2D 2D 2D 00 9A 0E |IK SAVEN ----...| 00000680: 8A 02 9F 38 2C 38 2C 38 2C 46 49 24 AA 22 2C 50 |...8,8,8,FI$.",P| 00000690: 2C 57 22 3A 97 37 38 31 2C 38 00 B3 0E 94 02 9E |,W":.781,8......| 000006A0: 36 35 34 38 31 3A 99 C7 28 30 29 3B 3A 97 32 35 |65481:..(0);:.25| 000006B0: 31 2C 30 00 C8 0E 9E 02 8B 46 47 B2 30 A7 99 22 |1,0......FG.0.."| 000006C0: 20 22 3B 3A 89 37 30 30 00 E3 0E A8 02 99 C7 28 | ";:.700.......(| 000006D0: 32 38 29 3B 3A 97 32 35 32 2C 56 48 3A 97 37 38 |28);:.252,VH:.78| 000006E0: 31 2C 34 00 EC 0E B2 02 9E 38 39 30 00 0A 0F BC |1,4......890....| 000006F0: 02 97 32 35 32 2C 47 48 3A 97 37 38 31 2C 33 32 |..252,GH:.781,32| 00000700: 3A 9E 38 39 30 3A 89 36 34 30 00 2A 0F C6 02 8F |:.890:.640.*....| 00000710: 20 2D 2D 2D 2D 20 53 50 45 49 43 48 45 52 5A 55 | ---- SPEICHERZU| 00000720: 47 52 49 46 46 20 2D 2D 2D 2D 00 49 0F D0 02 8F |GRIFF ----.I....| 00000730: 20 49 3D 53 59 53 39 31 32 2C 41 2C 49 3A 52 45 | I=SYS912,A,I:RE| 00000740: 4D 20 50 4F 4B 45 41 2C 49 00 68 0F DA 02 8F 20 |M POKEA,I.h.... | 00000750: 53 59 53 39 32 39 2C 41 2C 49 3A 52 45 4D 20 49 |SYS929,A,I:REM I| 00000760: 3D 50 45 45 4B 28 41 29 00 85 0F EE 02 8F 20 2D |=PEEK(A)...... -| 00000770: 2D 2D 2D 20 50 49 58 45 4C 20 53 45 54 5A 45 4E |--- PIXEL SETZEN| 00000780: 20 2D 2D 2D 2D 00 9D 0F F8 02 53 4E B2 B5 28 58 | ----.....SN..(X| 00000790: AD 38 29 3A 5A 4E B2 B5 28 59 AD 38 29 00 C1 0F |.8):ZN..(Y.8)...| 000007A0: 02 03 8B 46 41 B2 31 A7 9E 39 31 32 2C 34 30 AC |...FA.1..912,40.| 000007B0: 5A 4E AA 53 4E AA 56 41 2C 31 36 AC 56 46 AA 48 |ZN.SN.VA,16.VF.H| 000007C0: 46 00 D9 0F 0C 03 41 44 B2 33 31 32 AC 5A 4E AA |F.....AD.312.ZN.| 000007D0: 59 AA 38 AC 53 4E AA 47 41 00 F1 0F 16 03 8B 4C |Y.8.SN.GA......L| 000007E0: 4F B2 30 A7 9E 39 38 35 2C 41 44 2C 58 AF 37 3A |O.0..985,AD,X.7:| 000007F0: 8E 00 03 10 20 03 9E 39 39 35 2C 41 44 2C 58 AF |.... ..995,AD,X.| 00000800: 37 3A 8E 00 19 10 2A 03 8F 20 2D 2D 2D 2D 20 4C |7:....*.. ---- L| 00000810: 49 4E 49 45 20 2D 2D 2D 2D 00 34 10 34 03 8B B6 |INIE ----.4.4...| 00000820: 28 59 32 AB 59 31 29 B1 B6 28 58 32 AB 58 31 29 |(Y2.Y1)..(X2.X1)| 00000830: A7 38 36 30 00 4A 10 3E 03 4D B2 28 59 32 AB 59 |.860.J.>.M.(Y2.Y| 00000840: 31 29 AD 28 58 32 AB 58 31 29 00 60 10 48 03 81 |1).(X2.X1).`.H..| 00000850: 58 B2 58 31 A4 58 32 A9 B4 28 58 32 AB 58 31 29 |X.X1.X2..(X2.X1)| 00000860: 00 81 10 52 03 59 B2 B5 28 59 31 AA 28 58 AB 58 |...R.Y..(Y1.(X.X| 00000870: 31 29 AC 4D AA 2E 35 29 3A 8D 37 36 30 3A 82 3A |1).M..5):.760:.:| 00000880: 8E 00 97 10 5C 03 4D B2 28 58 32 AB 58 31 29 AD |....\.M.(X2.X1).| 00000890: 28 59 32 AB 59 31 29 00 AD 10 66 03 81 59 B2 59 |(Y2.Y1)...f..Y.Y| 000008A0: 31 A4 59 32 A9 B4 28 59 32 AB 59 31 29 00 CE 10 |1.Y2..(Y2.Y1)...| 000008B0: 67 03 58 B2 B5 28 58 31 AA 28 59 AB 59 31 29 AC |g.X..(X1.(Y.Y1).| 000008C0: 4D AA 2E 35 29 3A 8D 37 36 30 3A 82 3A 8E 00 E7 |M..5):.760:.:...| 000008D0: 10 6B 03 8F 20 2D 2D 2D 2D 20 52 45 43 48 54 45 |.k.. ---- RECHTE| 000008E0: 43 4B 20 2D 2D 2D 2D 00 00 11 70 03 41 B2 59 32 |CK ----...p.A.Y2| 000008F0: 3A 59 32 B2 59 31 3A 8D 38 32 30 3A 59 32 B2 41 |:Y2.Y1:.820:Y2.A| 00000900: 00 19 11 7A 03 41 B2 58 32 3A 58 32 B2 58 31 3A |...z.A.X2:X2.X1:| 00000910: 8D 38 32 30 3A 58 32 B2 41 00 32 11 84 03 41 B2 |.820:X2.A.2...A.| 00000920: 59 31 3A 59 31 B2 59 32 3A 8D 38 32 30 3A 59 31 |Y1:Y1.Y2:.820:Y1| 00000930: B2 41 00 4D 11 8E 03 41 B2 58 31 3A 58 31 B2 58 |.A.M...A.X1:X1.X| 00000940: 32 3A 8D 38 32 30 3A 58 31 B2 41 3A 8E 00 63 11 |2:.820:X1.A:..c.| 00000950: 98 03 8F 20 2D 2D 2D 2D 20 4B 52 45 49 53 20 2D |... ---- KREIS -| 00000960: 2D 2D 2D 00 77 11 A2 03 58 45 B2 B5 28 52 AD BA |---.w...XE..(R..| 00000970: 28 32 29 AA 2E 35 29 00 9A 11 AC 03 81 4B 58 B2 |(2)..5)......KX.| 00000980: 30 A4 58 45 3A 4B 59 B2 B5 28 BA 28 52 AC 52 AB |0.XE:KY..(.(R.R.| 00000990: 4B 58 AC 4B 58 29 AA 2E 35 29 00 B6 11 B6 03 8D |KX.KX)..5)......| 000009A0: 39 37 30 3A 4B 58 B2 AB 4B 58 3A 8D 39 37 30 3A |970:KX..KX:.970:| 000009B0: 4B 59 B2 AB 4B 59 00 CF 11 C0 03 8D 39 37 30 3A |KY..KY......970:| 000009C0: 4B 58 B2 AB 4B 58 3A 8D 39 37 30 3A 82 3A 8E 00 |KX..KX:.970:.:..| 000009D0: E8 11 CA 03 58 B2 58 4D AA 4B 58 3A 59 B2 59 4D |....X.XM.KX:Y.YM| 000009E0: AA 4B 59 3A 8D 37 36 30 00 01 12 D4 03 58 B2 58 |.KY:.760.....X.X| 000009F0: 4D AA 4B 59 3A 59 B2 59 4D AA 4B 58 3A 89 37 36 |M.KY:Y.YM.KX:.76| 00000A00: 30 00 1F 12 DE 03 8F 20 2D 2D 2D 2D 20 43 55 52 |0...... ---- CUR| 00000A10: 53 4F 52 20 53 45 54 5A 45 4E 20 2D 2D 2D 2D 00 |SOR SETZEN ----.| 00000A20: 3E 12 E8 03 5A 5A B2 34 30 AC 28 59 AF 32 34 38 |>...ZZ.40.(Y.248| 00000A30: 29 AA 28 58 AF 35 30 34 29 AA 47 41 3A 8E 00 5A |).(X.504).GA:..Z| 00000A40: 12 F2 03 58 4D B2 31 36 30 3A 59 4D B2 31 30 30 |...XM.160:YM.100| 00000A50: 3A 52 B2 35 30 3A 8D 39 33 30 00 64 12 FC 03 8D |:R.50:.930.d....| 00000A60: 31 30 30 30 00 7C 12 06 04 97 35 36 33 33 34 2C |1000.|....56334,| 00000A70: C2 28 35 36 33 33 34 29 AF 32 35 34 00 8C 12 10 |.(56334).254....| 00000A80: 04 97 31 2C C2 28 31 29 AF 32 35 31 00 9C 12 1A |..1,.(1).251....| 00000A90: 04 81 4A B2 31 A4 C3 28 54 58 24 29 00 C1 12 24 |..J.1..(TX$)...$| 00000AA0: 04 8B 46 41 B2 31 A7 9E 39 31 32 2C 28 5A 5A AB |..FA.1..912,(ZZ.| 00000AB0: 47 41 29 AD 38 AA 56 41 2C 31 36 AC 56 46 AA 48 |GA).8.VA,16.VF.H| 00000AC0: 46 00 D7 12 2E 04 99 C7 28 31 39 29 CA 28 54 58 |F.......(19).(TX| 00000AD0: 24 2C 4A 2C 31 29 3B 00 F6 12 38 04 41 44 B2 C2 |$,J,1);...8.AD..| 00000AE0: 28 31 30 32 34 29 AC 38 AA 31 30 32 34 AC 47 5A |(1024).8.1024.GZ| 00000AF0: AA 35 33 32 34 38 00 13 13 42 04 81 49 B2 30 A4 |.53248...B..I.0.| 00000B00: 37 3A 9E 39 31 32 2C 5A 5A AA 49 2C C2 28 41 44 |7:.912,ZZ.I,.(AD| 00000B10: AA 49 29 00 23 13 4C 04 82 3A 5A 5A B2 5A 5A AA |.I).#.L..:ZZ.ZZ.| 00000B20: 38 3A 82 00 31 13 56 04 97 31 2C C2 28 31 29 B0 |8:..1.V..1,.(1).| 00000B30: 34 00 49 13 5B 04 97 35 36 33 33 34 2C C2 28 35 |4.I.[..56334,.(5| 00000B40: 36 33 33 34 29 B0 31 3A 8E 00 64 13 60 04 8F 20 |6334).1:..d.`.. | 00000B50: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000B60: 3D 3D 3D 3D 00 79 13 6A 04 8F 20 20 48 41 55 50 |====.y.j.. HAUP| 00000B70: 54 50 52 4F 47 52 41 4D 4D 00 94 13 74 04 8F 20 |TPROGRAMM...t.. | 00000B80: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000B90: 3D 3D 3D 3D 00 C0 13 7E 04 8F 20 48 41 55 50 54 |====...~.. HAUPT| 00000BA0: 50 52 4F 47 52 41 4D 4D 20 41 42 20 5A 45 49 4C |PROGRAMM AB ZEIL| 00000BB0: 45 20 31 31 35 30 20 45 52 46 41 53 53 45 4E 2E |E 1150 ERFASSEN.| 00000BC0: 00 00 00 |... |
..(.... GRAFIK ROUTINEN =============C64 .H.... WRITTEN BY A. MITTELMEYER.O.... = ===============================.X...VB.3 .....GB.8.....VR.7...... --------------- ----------------.....VF.1.M. ..180:.200: .1150.....VH.64.VB.4.VR:GH.64.VB.4.GB... ..VA.256.VH:GA.256.GH:....H..I.828.1004. '.I..A:.I,A:.:..L.J..120,072,165,001,041 ,252,133,001.Q.K..104,096,072,165,001,00 9,003,133...L..001,088,104,096,032,060,0 03,160...M..000,145,251,200,208,251,230, 252...N..202,208,246,240,229,160,000,032 ...O..207,255,176,222,032,060,003,145.*. P..251,032,070,003,200,208,240,230.O.Q.. 252,202,208,235,240,204,160,000.T.R..032 ,060,003,177,251,032,070,003...S..032,21 0,255,200,208,242,230,252...T..202,208,2 37,096,032,253,174,032...U..235,183,138, 032,060,003,160,000...V..145,020,076,070 ,003,032,253,174.-.W..032,138,173,032,24 7,183,032,060.R.X..003,160,000,177,020,0 32,070,003.W.Y..168,032,162,179,032,253, 174,032...Z..139,176,133,073,132,074,165 ,014.A....076,194,169,032,253,174,032,23 5......183,169,000,056,106,202,016,252.. ....160,000,076,060,003,032,199,003.0... .017,020,145,020,076,070,003,032.U....19 9,003,073,255,049,020,076,222.^....003.X .... ---- GRAFIK AN ----......56576,B(56 576).252.(3.VB)......53272,16.VR.GB.D.B. .53265,B(53265).32:....V.. ---- GRAFIK A US ----......56576,B(56576).252.3......5 3272,21.!....53265,B(53265).223:..?.... ---- FARBE KLAEREN ----.X....780,16.VF.H F:.781,4.R....251,0:.252,VH:.848:....&.. ---- BILD LOESCHEN ----...0..780,0:.781 ,32...:..251,0:.252,GH:.848:..Z.D.. ---- GRAFIK LADEN ----...N..8,8,8,FI$.",P,R" :.781,8...X..65478:.A$:.A$:.251,0...B..F G.0.630.7.L..252,VH:.781,4:.865.P.V..252 ,GH:.781,32:.865.`....65484: 8:..}.... - --- GRAFIK SAVEN ----......8,8,8,FI$.",P ,W":.781,8......65481:.G(0);:.251,0.H... .FG.0.." ";:.700......G(28);:.252,VH:.78 1,4......890......252,GH:.781,32:.890:.6 40.*.F.. ---- SPEICHERZUGRIFF ----.I.P.. I=SYS912,A,I:REM POKEA,I.H.Z.. SYS929,A ,I:REM I=PEEK(A)...... ---- PIXEL SETZEN ----.....SN..(X.8):ZN..(Y.8).A....FA.1. .912,40.ZN.SN.VA,16.VF.HF.Y...AD.312.ZN. Y.8.SN.GA......LO.0..985,AD,X.7:.... ..9 95,AD,X.7:....*.. ---- LINIE ----.4.4... (Y2.Y1)..(X2.X1).860.J.>.M.(Y2.Y1).(X2.X 1).`.H..X.X1.X2..(X2.X1)...R.Y..(Y1.(X.X 1).M..5):.760:.:....\.M.(X2.X1).(Y2.Y1). ..F..Y.Y1.Y2..(Y2.Y1).N.G.X..(X1.(Y.Y1). M..5):.760:.:....K.. ---- RECHTECK ----. ..P.A.Y2:Y2.Y1:.820:Y2.A...Z.A.X2:X2.X1: .820:X2.A.2...A.Y1:Y1.Y2:.820:Y1.A.M...A .X1:X1.X2:.820:X1.A:..C.... ---- KREIS - ---.W...XE..(R..(2)..5)......KX.0.XE:KY. .(.(R.R.KX.KX)..5)......970:KX..KX:.970: KY..KY.O....970:KX..KX:.970:.:....J.X.XM .KX:Y.YM.KY:.760...T.X.XM.KY:Y.YM.KX:.76 0...... ---- CURSOR SETZEN ----.>...ZZ.4 0.(Y.248).(X.504).GA:..Z...XM.160:YM.100 :R.50:.930.D....1000.|....56334,B(56334) .254......1,B(1).251......J.1.C(TX$).A.$ ..FA.1..912,(ZZ.GA).8.VA,16.VF.HF.W....G (19)J(TX$,J,1);...8.AD.B(1024).8.1024.GZ .53248...B..I.0.7:.912,ZZ.I,B(AD.I).#.L. .:ZZ.ZZ.8:..1.V..1,B(1).4.I.[..56334,B(5 6334).1:..D.`.. ====================.Y.J .. HAUPTPROGRAMM...T.. ================ ====...~.. HAUPTPROGRAMM AB ZEILE 1150 E RFASSEN....
> CLICK IMAGE PREVIEW FOR FULL MODAL