HIRES4.BAS
FILE INFORMATION
FILENAME(S): HIRES4.BAS
FILE TYPE(S): PRG
FILE SIZE: 3.9K
FIRST SEEN: 2025-11-30 21:13:39
APPEARS ON: 1 disk(s)
FILE HASH
8e0db318e170f26765404840cc59f4dfbf6e8db88e8537b5c6cf232b6831dcc5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15720 SEITE A | HIRES4.BAS | PRG | DuncanTwain | 11 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3F 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..?.... ********| 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 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 00000040: 7D 08 14 00 8F 20 2A 20 20 20 20 20 20 20 20 20 |}.... * | 00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000070: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 BB 08 | *...| 00000080: 1E 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 |... * | 00000090: 20 20 48 20 49 20 52 20 45 20 53 20 34 20 2E 20 | H I R E S 4 . | 000000A0: 42 20 41 20 53 20 20 20 20 20 20 20 20 20 20 20 |B A S | 000000B0: 20 20 20 20 20 20 20 20 20 20 2A 00 F9 08 28 00 | *...(.| 000000C0: 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |. * | 000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000F0: 20 20 20 20 20 20 20 20 2A 00 37 09 32 00 8F 20 | *.7.2.. | 00000100: 2A 20 20 42 41 53 49 43 56 45 52 53 49 4F 4E 20 |* BASICVERSION | 00000110: 45 49 4E 45 53 20 47 52 41 46 49 4B 50 52 4F 47 |EINES GRAFIKPROG| 00000120: 52 41 4D 4D 45 53 20 46 55 45 52 20 44 45 4E 20 |RAMMES FUER DEN | 00000130: 43 36 34 20 20 20 2A 00 75 09 3C 00 8F 20 2A 20 |C64 *.u.<.. * | 00000140: 20 20 20 20 20 20 20 20 48 45 49 4D 4F 20 50 4F | HEIMO PO| 00000150: 4E 4E 41 54 48 20 20 48 41 4D 42 55 52 47 20 20 |NNATH HAMBURG | 00000160: 31 39 38 37 20 20 20 20 20 20 20 20 20 20 20 20 |1987 | 00000170: 20 20 20 20 2A 00 B3 09 46 00 8F 20 2A 20 20 20 | *...F.. * | 00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001B0: 20 20 2A 00 F1 09 50 00 8F 20 2A 2A 2A 2A 2A 2A | *...P.. ******| 000001C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000001D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000001E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000001F0: 2A 00 F7 09 5A 00 8F 00 34 0A 64 00 8F 20 2D 2D |*...Z...4.d.. --| 00000200: 2D 2D 2D 2D 2D 20 48 41 55 50 54 50 52 4F 47 52 |----- HAUPTPROGR| 00000210: 41 4D 4D 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |AMM ------------| 00000220: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000230: 2D 2D 2D 2D 00 40 0A 6E 00 99 C7 28 31 34 37 29 |----.@.n...(147)| 00000240: 00 80 0A 78 00 99 3A 99 3A 99 22 44 49 45 53 45 |...x..:.:."DIESE| 00000250: 53 20 50 52 4F 47 52 41 4D 4D 20 54 45 53 54 45 |S PROGRAMM TESTE| 00000260: 54 20 41 4C 4C 45 20 4D 4F 44 55 4C 45 22 3A 99 |T ALLE MODULE":.| 00000270: 22 56 4F 4E 20 48 49 52 45 53 34 2E 42 41 53 22 |"VON HIRES4.BAS"| 00000280: 00 AE 0A 82 00 5A 46 B2 35 3A 48 46 B2 30 3A 8F |.....ZF.5:HF.0:.| 00000290: 20 5A 45 49 43 48 45 4E 2D 20 55 4E 44 20 48 49 | ZEICHEN- UND HI| 000002A0: 4E 54 45 52 47 52 55 4E 44 46 41 52 42 45 00 CE |NTERGRUNDFARBE..| 000002B0: 0A 8C 00 8D 20 32 30 30 30 3A 8F 20 47 52 41 46 |.... 2000:. GRAF| 000002C0: 49 4B 20 45 49 4E 53 43 48 41 4C 54 45 4E 00 EB |IK EINSCHALTEN..| 000002D0: 0A 96 00 8D 20 33 30 30 30 3A 8F 20 42 49 54 4D |.... 3000:. BITM| 000002E0: 41 50 20 4C 4F 45 53 43 48 45 4E 00 03 0B A0 00 |AP LOESCHEN.....| 000002F0: 8D 20 34 30 30 30 3A 8F 20 46 41 52 42 47 45 42 |. 4000:. FARBGEB| 00000300: 55 4E 47 00 32 0B AA 00 4C B2 30 3A 8F 20 4C 4F |UNG.2...L.0:. LO| 00000310: 45 53 43 48 4D 41 52 4B 45 20 41 55 46 20 50 55 |ESCHMARKE AUF PU| 00000320: 4E 4B 54 20 53 45 54 5A 45 4E 20 56 2E EE EF 4C |NKT SETZEN V...L| 00000330: 45 42 00 42 0B B4 00 81 20 58 B2 30 20 A4 20 33 |EB.B.... X.0 . 3| 00000340: 31 39 00 58 0B BE 00 3A 59 B2 35 30 AC BF 28 58 |19.X...:Y.50..(X| 00000350: AD 32 30 29 AA 31 30 30 00 74 0B C8 00 3A 8D 20 |.20).100.t...:. | 00000360: 36 30 30 30 3A 8F 20 50 55 4E 4B 54 45 20 53 45 |6000:. PUNKTE SE| 00000370: 54 5A 45 4E 00 7C 0B D2 00 82 20 58 00 AD 0B DC |TZEN.|.... X....| 00000380: 00 4C B2 31 3A 8F 20 4C 4F 45 53 43 48 4D 41 52 |.L.1:. LOESCHMAR| 00000390: 4B 45 20 41 55 46 20 50 55 4E 4B 54 20 4C 4F 45 |KE AUF PUNKT LOE| 000003A0: 53 43 48 45 4E 20 53 54 45 4C 4C 45 4E 00 BF 0B |SCHEN STELLEN...| 000003B0: E6 00 81 20 58 B2 31 30 30 20 A4 20 32 30 30 00 |... X.100 . 200.| 000003C0: D5 0B F0 00 3A 59 B2 35 30 AC BF 28 58 AD 32 30 |....:Y.50..(X.20| 000003D0: 29 AA 31 30 30 00 F3 0B FA 00 3A 8D 20 36 30 30 |).100.....:. 600| 000003E0: 30 3A 8F 20 50 55 4E 4B 54 45 20 4C 4F 45 53 43 |0:. PUNKTE LOESC| 000003F0: 48 45 4E 00 FB 0B 04 01 82 20 58 00 1E 0C 0E 01 |HEN...... X.....| 00000400: 8D 20 35 30 30 30 3A 8F 20 54 45 58 54 4D 4F 44 |. 5000:. TEXTMOD| 00000410: 55 53 20 45 49 4E 53 43 48 41 4C 54 45 4E 00 42 |US EINSCHALTEN.B| 00000420: 0C 18 01 99 3A 99 22 44 49 45 20 4D 4F 44 55 4C |....:."DIE MODUL| 00000430: 45 20 32 20 42 49 53 20 36 20 53 49 4E 44 20 4F |E 2 BIS 6 SIND O| 00000440: 4B 22 00 57 0C 22 01 81 20 49 B2 30 20 A4 20 31 |K".W.".. I.0 . 1| 00000450: 30 30 30 3A 82 20 49 00 7E 0C 2C 01 8D 20 32 30 |000:. I.~.,.. 20| 00000460: 30 30 3A 8F 20 47 52 41 46 49 4B 20 57 49 45 44 |00:. GRAFIK WIED| 00000470: 45 52 20 45 49 4E 53 43 48 41 4C 54 45 4E 00 9A |ER EINSCHALTEN..| 00000480: 0C 36 01 58 31 B2 31 36 30 3A 59 31 B2 31 30 30 |.6.X1.160:Y1.100| 00000490: 3A 52 25 B2 39 30 3A 4C B2 30 00 B1 0C 40 01 81 |:R%.90:L.0...@..| 000004A0: 20 41 B2 30 20 A4 20 36 2E 32 38 20 A9 20 2E 30 | A.0 . 6.28 . .0| 000004B0: 35 00 C5 0C 4A 01 3A 58 32 B2 52 25 AC BE 28 41 |5...J.:X2.R%..(A| 000004C0: 29 AA 31 36 30 00 D9 0C 54 01 3A 59 32 B2 52 25 |).160...T.:Y2.R%| 000004D0: AC BF 28 41 29 AA 31 30 30 00 F7 0C 5E 01 3A 8D |..(A).100...^.:.| 000004E0: 20 37 30 30 30 3A 8F 20 4C 49 4E 49 45 4E 20 5A | 7000:. LINIEN Z| 000004F0: 45 49 43 48 4E 45 4E 00 FF 0C 68 01 82 20 41 00 |EICHNEN...h.. A.| 00000500: 22 0D 72 01 8D 20 35 30 30 30 3A 8F 20 54 45 58 |".r.. 5000:. TEX| 00000510: 54 4D 4F 44 55 53 20 45 49 4E 53 43 48 41 4C 54 |TMODUS EINSCHALT| 00000520: 45 4E 00 45 0D 7C 01 99 3A 99 22 41 55 43 48 20 |EN.E.|..:."AUCH | 00000530: 44 41 53 20 4D 4F 44 55 4C 20 37 20 41 52 42 45 |DAS MODUL 7 ARBE| 00000540: 49 54 45 54 22 00 5A 0D 86 01 81 20 49 B2 30 20 |ITET".Z.... I.0 | 00000550: A4 20 31 30 30 30 3A 82 20 49 00 7A 0D 90 01 8D |. 1000:. I.z....| 00000560: 20 32 30 30 30 3A 8F 20 47 52 41 46 49 4B 20 45 | 2000:. GRAFIK E| 00000570: 49 4E 53 43 48 41 4C 54 45 4E 00 95 0D 9A 01 58 |INSCHALTEN.....X| 00000580: 4D B2 31 36 30 3A 59 4D B2 31 30 30 3A 52 B2 39 |M.160:YM.100:R.9| 00000590: 35 3A 4C B2 30 00 B1 0D A4 01 8D 20 38 30 30 30 |5:L.0...... 8000| 000005A0: 3A 8F 20 4B 52 45 49 53 20 5A 45 49 43 48 4E 45 |:. KREIS ZEICHNE| 000005B0: 4E 00 C6 0D AE 01 81 20 49 B2 30 20 A4 20 31 30 |N...... I.0 . 10| 000005C0: 30 30 3A 82 20 49 00 DD 0D B8 01 8D 20 35 30 30 |00:. I...... 500| 000005D0: 30 3A 8F 20 54 45 58 54 4D 4F 44 55 53 00 05 0E |0:. TEXTMODUS...| 000005E0: C2 01 99 3A 99 22 41 55 43 48 20 44 41 53 20 4D |...:."AUCH DAS M| 000005F0: 4F 44 55 4C 20 38 20 46 55 4E 4B 54 49 4F 4E 49 |ODUL 8 FUNKTIONI| 00000600: 45 52 54 2E 22 00 37 0E CC 01 97 20 35 32 2C 31 |ERT.".7.... 52,1| 00000610: 36 30 3A 97 35 36 2C 31 36 30 3A 8F 20 42 41 53 |60:.56,160:. BAS| 00000620: 49 43 5A 45 49 47 45 52 20 5A 55 52 55 45 43 4B |ICZEIGER ZURUECK| 00000630: 53 54 45 4C 4C 45 4E 00 3D 0E D6 01 9C 00 43 0E |STELLEN.=.....C.| 00000640: E0 01 80 00 7F 0E D0 07 8F 20 2D 2D 2D 2D 2D 2D |......... ------| 00000650: 2D 20 4D 4F 44 55 4C 20 32 3A 20 47 52 41 46 49 |- MODUL 2: GRAFI| 00000660: 4B 20 45 49 4E 53 43 48 41 4C 54 45 4E 20 2D 2D |K EINSCHALTEN --| 00000670: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.| 00000680: AA 0E DA 07 97 20 35 36 35 37 36 2C 31 39 38 20 |..... 56576,198 | 00000690: 3A 20 8F 20 41 42 53 43 48 4E 49 54 54 20 31 20 |: . ABSCHNITT 1 | 000006A0: 45 49 4E 53 54 45 4C 4C 45 4E 00 E3 0E E4 07 97 |EINSTELLEN......| 000006B0: 20 35 33 32 37 32 2C 31 32 35 20 3A 20 8F 20 42 | 53272,125 : . B| 000006C0: 49 4C 44 53 43 48 49 52 4D 20 55 4E 44 20 42 49 |ILDSCHIRM UND BI| 000006D0: 54 4D 41 50 53 54 41 52 54 20 46 45 53 54 4C 45 |TMAPSTART FESTLE| 000006E0: 47 45 4E 00 1B 0F EE 07 97 20 36 34 38 2C 39 32 |GEN...... 648,92| 000006F0: 20 20 20 20 3A 20 8F 20 42 49 4C 44 53 43 48 49 | : . BILDSCHI| 00000700: 52 4D 20 41 4E 20 42 45 54 52 49 45 42 53 53 59 |RM AN BETRIEBSSY| 00000710: 53 54 45 4D 20 4D 45 4C 44 45 4E 00 47 0F F8 07 |STEM MELDEN.G...| 00000720: 97 20 35 32 2C 39 32 20 20 20 20 20 3A 20 8F 20 |. 52,92 : . | 00000730: 42 41 53 49 43 53 50 45 49 43 48 45 52 20 42 45 |BASICSPEICHER BE| 00000740: 47 52 45 4E 5A 45 4E 00 53 0F 02 08 97 20 35 36 |GRENZEN.S.... 56| 00000750: 2C 39 32 00 87 0F 0C 08 97 20 35 33 32 36 35 2C |,92...... 53265,| 00000760: C2 28 35 33 32 36 35 29 20 B0 20 33 32 3A 8F 20 |.(53265) . 32:. | 00000770: 42 49 54 4D 41 50 4D 4F 44 55 53 20 45 49 4E 53 |BITMAPMODUS EINS| 00000780: 43 48 41 4C 54 45 4E 00 8D 0F 16 08 8E 00 C9 0F |CHALTEN.........| 00000790: B8 0B 8F 20 2D 2D 2D 2D 2D 2D 2D 20 4D 4F 44 55 |... ------- MODU| 000007A0: 4C 20 33 3A 20 42 49 54 4D 41 50 20 4C 4F 45 53 |L 3: BITMAP LOES| 000007B0: 43 48 45 4E 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |CHEN -----------| 000007C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 ED 0F C2 0B 42 41 |---------.....BA| 000007D0: B2 32 34 35 37 36 20 3A 20 8F 20 42 49 54 4D 41 |.24576 : . BITMA| 000007E0: 50 53 54 41 52 54 41 44 52 45 53 53 45 00 19 10 |PSTARTADRESSE...| 000007F0: CC 0B 81 20 49 B2 42 41 20 A4 20 42 41 AA 37 39 |... I.BA . BA.79| 00000800: 39 39 20 3A 20 8F 20 44 49 45 20 4C 4F 45 53 43 |99 : . DIE LOESC| 00000810: 48 53 43 48 4C 45 49 46 45 00 24 10 D6 0B 3A 97 |HSCHLEIFE.$...:.| 00000820: 20 49 2C 30 00 2C 10 E0 0B 82 20 49 00 32 10 EA | I,0.,.... I.2..| 00000830: 0B 8E 00 6E 10 A0 0F 8F 20 2D 2D 2D 2D 2D 2D 2D |...n.... -------| 00000840: 20 4D 4F 44 55 4C 20 34 3A 20 46 41 52 42 47 45 | MODUL 4: FARBGE| 00000850: 42 55 4E 47 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |BUNG -----------| 00000860: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 96 |--------------..| 00000870: 10 AA 0F 42 53 B2 32 33 35 35 32 20 3A 20 8F 20 |...BS.23552 : . | 00000880: 42 49 4C 44 53 43 48 49 52 4D 53 54 41 52 54 41 |BILDSCHIRMSTARTA| 00000890: 44 52 45 53 53 45 00 C0 10 B4 0F 46 B2 31 36 AC |DRESSE.....F.16.| 000008A0: 5A 46 AA 48 46 3A 8F 20 42 45 52 45 43 48 4E 55 |ZF.HF:. BERECHNU| 000008B0: 4E 47 20 44 45 53 20 46 41 52 42 43 4F 44 45 53 |NG DES FARBCODES| 000008C0: 00 E9 10 BE 0F 81 20 49 B2 42 53 20 A4 20 42 53 |...... I.BS . BS| 000008D0: AA 39 39 39 20 3A 20 8F 20 44 49 45 20 46 41 52 |.999 : . DIE FAR| 000008E0: 42 53 43 48 4C 45 49 46 45 00 F4 10 C8 0F 3A 97 |BSCHLEIFE.....:.| 000008F0: 20 49 2C 46 00 FC 10 D2 0F 82 20 49 00 02 11 DC | I,F...... I....| 00000900: 0F 8E 00 3E 11 88 13 8F 20 2D 2D 2D 2D 2D 2D 2D |...>.... -------| 00000910: 20 4D 4F 44 55 4C 20 35 3A 20 54 45 58 54 4D 4F | MODUL 5: TEXTMO| 00000920: 44 55 53 20 45 49 4E 20 2D 2D 2D 2D 2D 2D 2D 2D |DUS EIN --------| 00000930: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 6B |--------------.k| 00000940: 11 92 13 97 20 35 33 32 37 32 2C 32 31 20 3A 20 |.... 53272,21 : | 00000950: 8F 20 41 4C 54 45 4E 20 49 4E 48 41 4C 54 20 52 |. ALTEN INHALT R| 00000960: 45 53 54 41 55 52 49 45 52 45 4E 00 99 11 9C 13 |ESTAURIEREN.....| 00000970: 97 20 35 36 35 37 36 2C 31 39 39 3A 20 8F 20 56 |. 56576,199: . V| 00000980: 49 43 20 57 49 45 44 45 52 20 41 55 46 20 41 42 |IC WIEDER AUF AB| 00000990: 53 43 48 4E 49 54 54 20 30 00 D2 11 A6 13 97 20 |SCHNITT 0...... | 000009A0: 36 34 38 2C 34 20 3A 8F 20 41 4C 54 45 4E 20 42 |648,4 :. ALTEN B| 000009B0: 49 4C 44 53 43 48 49 52 4D 20 41 4E 20 42 45 54 |ILDSCHIRM AN BET| 000009C0: 52 49 45 42 53 53 59 53 54 45 4D 20 4D 45 4C 44 |RIEBSSYSTEM MELD| 000009D0: 45 4E 00 05 12 B0 13 97 20 35 33 32 36 35 2C C2 |EN...... 53265,.| 000009E0: 28 35 33 32 36 35 29 20 AF 20 32 32 33 3A 8F 20 |(53265) . 223:. | 000009F0: 54 45 58 54 4D 4F 44 55 53 20 45 49 4E 53 43 48 |TEXTMODUS EINSCH| 00000A00: 41 4C 54 45 4E 00 0B 12 BA 13 8E 00 47 12 70 17 |ALTEN.......G.p.| 00000A10: 8F 20 2D 2D 2D 2D 2D 2D 2D 20 4D 4F 44 55 4C 20 |. ------- MODUL | 00000A20: 36 3A 20 50 55 4E 4B 54 20 53 45 54 5A 45 4E 2F |6: PUNKT SETZEN/| 00000A30: 4C 4F 45 53 43 48 45 4E 20 2D 2D 2D 2D 2D 2D 2D |LOESCHEN -------| 00000A40: 2D 2D 2D 2D 2D 2D 2D 00 6E 12 7A 17 8B 20 58 B3 |-------.n.z.. X.| 00000A50: 30 20 B0 20 58 B1 33 31 39 20 B0 20 59 B3 30 20 |0 . X.319 . Y.0 | 00000A60: B0 20 59 B1 31 39 39 20 A7 20 36 30 36 30 00 94 |. Y.199 . 6060..| 00000A70: 12 84 17 42 59 B2 28 58 8E C0 9E 87 B0 34 29 AA |...BY.(X.....4).| 00000A80: 34 30 AC 28 59 20 AF 20 32 34 38 29 AA 28 59 20 |40.(Y . 248).(Y | 00000A90: AF 20 37 29 00 A7 12 8E 17 42 49 B2 37 20 AB 20 |. 7).....BI.7 . | 00000AA0: 28 58 20 AF 20 37 29 00 D6 12 98 17 8B 20 4C B2 |(X . 7)...... L.| 00000AB0: 31 20 A7 20 97 20 42 59 AA 42 41 2C C2 28 42 59 |1 . . BY.BA,.(BY| 00000AC0: AA 42 41 29 20 AF 20 A8 20 28 32 AE 42 49 29 3A |.BA) . . (2.BI):| 00000AD0: 89 20 36 30 36 30 00 F4 12 A2 17 97 20 42 59 AA |. 6060...... BY.| 00000AE0: 42 41 2C C2 28 42 59 AA 42 41 29 20 B0 20 28 32 |BA,.(BY.BA) . (2| 00000AF0: AE 42 49 29 00 FA 12 AC 17 8E 00 36 13 58 1B 8F |.BI).......6.X..| 00000B00: 20 2D 2D 2D 2D 2D 2D 2D 20 4D 4F 44 55 4C 20 37 | ------- MODUL 7| 00000B10: 3A 20 4C 49 4E 49 45 4E 20 5A 45 49 43 48 4E 45 |: LINIEN ZEICHNE| 00000B20: 4E 2F 4C 4F 45 53 43 48 45 4E 20 2D 2D 2D 2D 2D |N/LOESCHEN -----| 00000B30: 2D 2D 2D 2D 2D 2D 00 5A 13 62 1B 58 25 B2 58 31 |------.Z.b.X%.X1| 00000B40: 3A 59 25 B2 59 31 3A 8F 20 41 4C 4C 45 53 20 49 |:Y%.Y1:. ALLES I| 00000B50: 4E 20 49 4E 54 45 47 45 52 53 00 88 13 6C 1B 44 |N INTEGERS...l.D| 00000B60: 58 25 B2 B6 28 58 32 AB 58 31 29 3A 8F 20 42 45 |X%..(X2.X1):. BE| 00000B70: 52 45 43 48 4E 55 4E 47 20 44 45 52 20 44 49 46 |RECHNUNG DER DIF| 00000B80: 46 45 52 45 4E 5A 45 4E 00 99 13 76 1B 44 59 25 |FERENZEN...v.DY%| 00000B90: B2 B6 28 59 32 AB 59 31 29 00 C4 13 80 1B 53 31 |..(Y2.Y1).....S1| 00000BA0: 25 B2 B4 28 58 32 AB 58 31 29 3A 8F 20 42 45 53 |%..(X2.X1):. BES| 00000BB0: 54 49 4D 4D 55 4E 47 20 44 45 52 20 4F 4B 54 41 |TIMMUNG DER OKTA| 00000BC0: 4E 54 45 4E 00 D5 13 8A 1B 53 32 25 B2 B4 28 59 |NTEN.....S2%..(Y| 00000BD0: 32 AB 59 31 29 00 07 14 94 1B 8B 20 44 58 25 B3 |2.Y1)...... DX%.| 00000BE0: 44 59 25 20 A7 20 44 25 B2 44 58 25 3A 44 58 25 |DY% . D%.DX%:DX%| 00000BF0: B2 44 59 25 3A 44 59 25 B2 44 25 3A 54 25 B2 31 |.DY%:DY%.D%:T%.1| 00000C00: 3A 89 20 37 30 38 30 00 3B 14 9E 1B 54 25 B2 30 |:. 7080.;...T%.0| 00000C10: 20 3A 20 8F 20 55 4D 44 52 45 48 45 4E 20 57 45 | : . UMDREHEN WE| 00000C20: 4E 4E 20 44 58 20 3C 20 44 59 20 55 4E 44 20 4D |NN DX < DY UND M| 00000C30: 41 52 4B 45 20 53 45 54 5A 45 4E 00 69 14 A8 1B |ARKE SETZEN.i...| 00000C40: 44 25 B2 32 AC 44 59 25 20 AB 20 44 58 25 3A 8F |D%.2.DY% . DX%:.| 00000C50: 20 53 54 41 52 54 57 45 52 54 20 44 28 31 29 20 | STARTWERT D(1) | 00000C60: 45 52 4D 49 54 54 45 4C 4E 00 90 14 B2 1B 49 31 |ERMITTELN.....I1| 00000C70: 25 B2 32 AC 44 59 25 20 3A 20 8F 20 49 4E 4B 52 |%.2.DY% : . INKR| 00000C80: 45 4D 45 4E 54 45 20 42 45 52 45 43 48 4E 45 4E |EMENTE BERECHNEN| 00000C90: 00 9E 14 BC 1B 49 32 25 B2 32 AC 44 58 25 00 C0 |.....I2%.2.DX%..| 00000CA0: 14 C6 1B 81 20 49 B2 31 20 A4 20 44 58 25 20 3A |.... I.1 . DX% :| 00000CB0: 20 8F 20 48 41 55 50 54 53 43 48 4C 45 49 46 45 | . HAUPTSCHLEIFE| 00000CC0: 00 E7 14 D0 1B 3A 58 B2 58 25 3A 59 B2 59 25 3A |.....:X.X%:Y.Y%:| 00000CD0: 8D 20 36 30 30 30 3A 8F 20 50 55 4E 4B 54 20 5A |. 6000:. PUNKT Z| 00000CE0: 45 49 43 48 4E 45 4E 00 FC 14 DA 1B 3A 8B 20 44 |EICHNEN.....:. D| 00000CF0: 25 B3 30 20 A7 20 89 20 37 31 37 30 00 1B 15 E4 |%.0 . . 7170....| 00000D00: 1B 3A 8B 20 54 25 B2 31 20 A7 20 58 25 B2 58 25 |.:. T%.1 . X%.X%| 00000D10: AA 53 31 25 3A 89 20 37 31 36 30 00 2A 15 EE 1B |.S1%:. 7160.*...| 00000D20: 3A 59 25 B2 59 25 AA 53 32 25 00 39 15 F8 1B 3A |:Y%.Y%.S2%.9...:| 00000D30: 44 25 B2 44 25 AB 49 32 25 00 58 15 02 1C 3A 8B |D%.D%.I2%.X...:.| 00000D40: 20 54 25 B2 31 20 A7 20 59 25 B2 59 25 AA 53 32 | T%.1 . Y%.Y%.S2| 00000D50: 25 3A 89 20 37 31 39 30 00 67 15 0C 1C 3A 58 25 |%:. 7190.g...:X%| 00000D60: B2 58 25 AA 53 31 25 00 76 15 16 1C 3A 44 25 B2 |.X%.S1%.v...:D%.| 00000D70: 44 25 AA 49 31 25 00 7E 15 20 1C 82 20 49 00 84 |D%.I1%.~. .. I..| 00000D80: 15 2A 1C 8E 00 C0 15 40 1F 8F 20 2D 2D 2D 2D 2D |.*.....@.. -----| 00000D90: 2D 2D 20 4D 4F 44 55 4C 20 38 3A 20 4B 52 45 49 |-- MODUL 8: KREI| 00000DA0: 53 20 5A 45 49 43 48 4E 45 4E 2F 4C 4F 45 53 43 |S ZEICHNEN/LOESC| 00000DB0: 48 45 4E 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |HEN ------------| 00000DC0: 00 DB 15 4A 1F 58 25 B2 30 3A 59 25 B2 52 3A 8F |...J.X%.0:Y%.R:.| 00000DD0: 20 53 54 41 52 54 57 45 52 54 45 00 FD 15 54 1F | STARTWERTE...T.| 00000DE0: 44 25 B2 52 AB 31 3A 8F 20 45 4E 54 53 43 48 45 |D%.R.1:. ENTSCHE| 00000DF0: 49 44 55 4E 47 53 47 52 4F 45 53 53 45 00 1E 16 |IDUNGSGROESSE...| 00000E00: 5E 1F 8B 20 44 25 B3 30 20 A7 20 59 25 B2 59 25 |^.. D%.0 . Y%.Y%| 00000E10: AB 31 3A 44 25 B2 44 25 AA 59 25 AA 59 25 00 47 |.1:D%.D%.Y%.Y%.G| 00000E20: 16 68 1F 8D 20 38 31 30 30 3A 8F 20 5A 45 49 43 |.h.. 8100:. ZEIC| 00000E30: 48 4E 45 4E 20 56 4F 4E 20 38 20 4B 52 45 49 53 |HNEN VON 8 KREIS| 00000E40: 50 55 4E 4B 54 45 4E 00 59 16 72 1F 44 25 B2 44 |PUNKTEN.Y.r.D%.D| 00000E50: 25 AB 58 25 AB 58 25 AB 31 00 65 16 7C 1F 58 25 |%.X%.X%.1.e.|.X%| 00000E60: B2 58 25 AA 31 00 79 16 86 1F 8B 20 58 25 B3 B2 |.X%.1.y.... X%..| 00000E70: 59 25 20 A7 20 38 30 33 30 00 7F 16 90 1F 8E 00 |Y% . 8030.......| 00000E80: B3 16 A4 1F 8F 20 2D 2D 2D 2D 2D 2D 2D 20 55 50 |..... ------- UP| 00000E90: 20 38 20 4B 52 45 49 53 50 55 4E 4B 54 45 20 5A | 8 KREISPUNKTE Z| 00000EA0: 45 49 43 48 4E 45 4E 20 2D 2D 2D 2D 2D 2D 2D 2D |EICHNEN --------| 00000EB0: 2D 2D 2D 00 CE 16 AE 1F 58 B2 58 4D AA 58 25 3A |---.....X.XM.X%:| 00000EC0: 59 B2 59 4D AA 59 25 3A 8D 20 36 30 30 30 00 E9 |Y.YM.Y%:. 6000..| 00000ED0: 16 B8 1F 58 B2 58 4D AB 58 25 3A 59 B2 59 4D AA |...X.XM.X%:Y.YM.| 00000EE0: 59 25 3A 8D 20 36 30 30 30 00 04 17 C2 1F 58 B2 |Y%:. 6000.....X.| 00000EF0: 58 4D AA 58 25 3A 59 B2 59 4D AB 59 25 3A 8D 20 |XM.X%:Y.YM.Y%:. | 00000F00: 36 30 30 30 00 1F 17 CC 1F 58 B2 58 4D AB 58 25 |6000.....X.XM.X%| 00000F10: 3A 59 B2 59 4D AB 59 25 3A 8D 20 36 30 30 30 00 |:Y.YM.Y%:. 6000.| 00000F20: 3A 17 D6 1F 58 B2 58 4D AA 59 25 3A 59 B2 59 4D |:...X.XM.Y%:Y.YM| 00000F30: AA 58 25 3A 8D 20 36 30 30 30 00 55 17 E0 1F 58 |.X%:. 6000.U...X| 00000F40: B2 58 4D AB 59 25 3A 59 B2 59 4D AA 58 25 3A 8D |.XM.Y%:Y.YM.X%:.| 00000F50: 20 36 30 30 30 00 70 17 EA 1F 58 B2 58 4D AA 59 | 6000.p...X.XM.Y| 00000F60: 25 3A 59 B2 59 4D AB 58 25 3A 8D 20 36 30 30 30 |%:Y.YM.X%:. 6000| 00000F70: 00 8B 17 F4 1F 58 B2 58 4D AB 59 25 3A 59 B2 59 |.....X.XM.Y%:Y.Y| 00000F80: 4D AB 58 25 3A 8D 20 36 30 30 30 00 91 17 FE 1F |M.X%:. 6000.....| 00000F90: 8E 00 00 00 20 38 |.... 8 |
..?.... ********************************
***********************.}.... *
*...... * H I R E S 4 .
B A S *...(.. *
*.7.2.. * BASICVERSION EINES GR
AFIKPROGRAMMES FUER DEN C64 *.U.<.. *
HEIMO PONNATH HAMBURG 1987
*...F.. *
*...P.
. **************************************
*****************...Z...4.D.. ------- HA
UPTPROGRAMM ----------------------------
----.@.N..G(147)...X..:.:."DIESES PROGRA
MM TESTET ALLE MODULE":."VON HIRES4.BAS"
.....ZF.5:HF.0:. ZEICHEN- UND HINTERGRUN
DFARBE.N.... 2000:. GRAFIK EINSCHALTEN..
.... 3000:. BITMAP LOESCHEN... .. 4000:.
FARBGEBUNG.2...L.0:. LOESCHMARKE AUF PU
NKT SETZEN V...LEB.B.... X.0 . 319.X...:
Y.50..(X.20).100.T.H.:. 6000:. PUNKTE SE
TZEN.|.R.. X.....L.1:. LOESCHMARKE AUF P
UNKT LOESCHEN STELLEN...... X.100 . 200.
U...:Y.50..(X.20).100.....:. 6000:. PUNK
TE LOESCHEN...... X...... 5000:. TEXTMOD
US EINSCHALTEN.B....:."DIE MODULE 2 BIS
6 SIND OK".W.".. I.0 . 1000:. I.~.,.. 20
00:. GRAFIK WIEDER EINSCHALTEN...6.X1.16
0:Y1.100:R%.90:L.0...@.. A.0 . 6.28 . .0
5.E.J.:X2.R%..(A).160.Y.T.:Y2.R%..(A).10
0...^.:. 7000:. LINIEN ZEICHNEN...H.. A.
".R.. 5000:. TEXTMODUS EINSCHALTEN.E.|..
:."AUCH DAS MODUL 7 ARBEITET".Z.... I.0
. 1000:. I.Z.... 2000:. GRAFIK EINSCHALT
EN.....XM.160:YM.100:R.95:L.0...... 8000
:. KREIS ZEICHNEN.F.... I.0 . 1000:. I..
.... 5000:. TEXTMODUS...B..:."AUCH DAS M
ODUL 8 FUNKTIONIERT.".7.L.. 52,160:.56,1
60:. BASICZEIGER ZURUECKSTELLEN.=.V...C.
.....P.. ------- MODUL 2: GRAFIK EINSCH
ALTEN -----------------...Z.. 56576,198
: . ABSCHNITT 1 EINSTELLEN...... 53272,1
25 : . BILDSCHIRM UND BITMAPSTART FESTLE
GEN...... 648,92 : . BILDSCHIRM AN BE
TRIEBSSYSTEM MELDEN.G.... 52,92 : .
BASICSPEICHER BEGRENZEN.S.... 56,92.....
. 53265,B(53265) . 32:. BITMAPMODUS EINS
CHALTEN.......I.... ------- MODUL 3: BIT
MAP LOESCHEN --------------------...B.BA
.24576 : . BITMAPSTARTADRESSE...L.. I.BA
. BA.7999 : . DIE LOESCHSCHLEIFE.$.V.:.
I,0.,.... I.2.....N. .. ------- MODUL 4
: FARBGEBUNG -------------------------..
...BS.23552 : . BILDSCHIRMSTARTADRESSE..
...F.16.ZF.HF:. BERECHNUNG DES FARBCODES
...... I.BS . BS.999 : . DIE FARBSCHLEIF
E...H.:. I,F...R.. I.......>.... -------
MODUL 5: TEXTMODUS EIN ----------------
------.K.... 53272,21 : . ALTEN INHALT R
ESTAURIEREN...... 56576,199: . VIC WIEDE
R AUF ABSCHNITT 0.R.... 648,4 :. ALTEN B
ILDSCHIRM AN BETRIEBSSYSTEM MELDEN......
53265,B(53265) . 223:. TEXTMODUS EINSCH
ALTEN.......G.P.. ------- MODUL 6: PUNKT
SETZEN/LOESCHEN --------------.N.Z.. X.
0 . X.319 . Y.0 . Y.199 . 6060.....BY.(X
.....4).40.(Y . 248).(Y . 7).....BI.7 .
(X . 7).V.... L.1 . . BY.BA,B(BY.BA) . .
(2.BI):. 6060...... BY.BA,B(BY.BA) . (2
.BI).......6.X.. ------- MODUL 7: LINIEN
ZEICHNEN/LOESCHEN -----------.Z.B.X%.X1
:Y%.Y1:. ALLES IN INTEGERS...L.DX%..(X2.
X1):. BERECHNUNG DER DIFFERENZEN...V.DY%
..(Y2.Y1).D...S1%..(X2.X1):. BESTIMMUNG
DER OKTANTEN.U...S2%..(Y2.Y1)...... DX%.
DY% . D%.DX%:DX%.DY%:DY%.D%:T%.1:. 7080.
;...T%.0 : . UMDREHEN WENN DX < DY UND M
ARKE SETZEN.I...D%.2.DY% . DX%:. STARTWE
RT D(1) ERMITTELN.....I1%.2.DY% : . INKR
EMENTE BERECHNEN.....I2%.2.DX%...F.. I.1
. DX% : . HAUPTSCHLEIFE...P.:X.X%:Y.Y%:
. 6000:. PUNKT ZEICHNEN...Z.:. D%.0 . .
7170.....:. T%.1 . X%.X%.S1%:. 7160.*...
:Y%.Y%.S2%.9...:D%.D%.I2%.X...:. T%.1 .
Y%.Y%.S2%:. 7190.G...:X%.X%.S1%.V...:D%.
D%.I1%.~. .. I...*.....@.. ------- MODUL
8: KREIS ZEICHNEN/LOESCHEN ------------
...J.X%.0:Y%.R:. STARTWERTE...T.D%.R.1:.
ENTSCHEIDUNGSGROESSE...^.. D%.0 . Y%.Y%
.1:D%.D%.Y%.Y%.G.H.. 8100:. ZEICHNEN VON
8 KREISPUNKTEN.Y.R.D%.D%.X%.X%.1.E.|.X%
.X%.1.Y.... X%..Y% . 8030........... --
----- UP 8 KREISPUNKTE ZEICHNEN --------
---.N...X.XM.X%:Y.YM.Y%:. 6000.....X.XM.
X%:Y.YM.Y%:. 6000...B.X.XM.X%:Y.YM.Y%:.
6000...L.X.XM.X%:Y.YM.Y%:. 6000.:.V.X.XM
.Y%:Y.YM.X%:. 6000.U...X.XM.Y%:Y.YM.X%:.
6000.P...X.XM.Y%:Y.YM.X%:. 6000.....X.X
M.Y%:Y.YM.X%:. 6000......... 8
> CLICK IMAGE PREVIEW FOR FULL MODAL