ANL.GRAFIK-PAK.
FILE INFORMATION
FILENAME(S): ANL.GRAFIK-PAK.
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-12-01 13:57:41
APPEARS ON: 1 disk(s)
FILE HASH
b412e8ac7a7f688cff7849ad5fa1635e2d552551d026b267896dc0b3e8ed1e14
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GRAFIK PROGRAMME | ANL.GRAFIK-PAK. | PRG | HOL2001, Misc | 28 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 04 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 00 4D 08 05 00 8F 20 2A 2A |*******.M.... **| 00000030: 20 57 52 49 54 54 45 4E 20 42 59 20 48 2E 52 41 | WRITTEN BY H.RA| 00000040: 44 55 53 43 48 45 57 53 4B 49 20 2A 2A 00 73 08 |DUSCHEWSKI **.s.| 00000050: 06 00 8F 20 2A 2A 20 20 20 20 47 52 41 46 49 4B |... ** GRAFIK| 00000060: 20 50 41 4B 45 54 20 4D 43 20 39 2F 38 34 20 20 | PAKET MC 9/84 | 00000070: 20 2A 2A 00 99 08 07 00 8F 20 2A 2A 2A 2A 2A 2A | **...... ******| 00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BA 08 0A 00 41 24 |*********.....A$| 000000A0: B2 22 47 20 52 20 41 20 46 20 49 20 4B 20 2D 20 |."G R A F I K - | 000000B0: 50 20 41 20 4B 20 45 20 54 22 00 D5 08 14 00 42 |P A K E T".....B| 000000C0: 24 B2 22 41 20 4E 20 4C 20 45 20 49 20 54 20 55 |$."A N L E I T U| 000000D0: 20 4E 20 47 22 00 E9 08 1E 00 41 B2 C3 28 41 24 | N G".....A..(A$| 000000E0: 29 3A 42 B2 C3 28 42 24 29 00 F7 08 28 00 4C 24 |):B..(B$)...(.L$| 000000F0: B2 C7 28 31 34 37 29 00 08 09 2D 00 99 4C 24 3A |..(147)...-..L$:| 00000100: 99 22 11 11 11 11 11 22 00 13 09 32 00 81 58 B2 |."....."...2..X.| 00000110: 31 A4 41 00 26 09 3C 00 99 A3 37 29 CA 28 41 24 |1.A.&.<...7).(A$| 00000120: 2C 58 2C 31 29 3B 00 35 09 41 00 81 59 B2 31 A4 |,X,1);.5.A..Y.1.| 00000130: 31 30 30 3A 82 00 3B 09 46 00 82 00 48 09 4B 00 |100:..;.F...H.K.| 00000140: 99 22 11 11 11 11 11 22 00 53 09 50 00 81 58 B2 |.".....".S.P..X.| 00000150: 31 A4 42 00 67 09 5A 00 99 A3 31 30 29 CA 28 42 |1.B.g.Z...10).(B| 00000160: 24 2C 58 2C 31 29 3B 00 77 09 64 00 81 59 B2 31 |$,X,1);.w.d..Y.1| 00000170: A4 31 30 30 3A 82 59 00 7D 09 6E 00 82 00 93 09 |.100:.Y.}.n.....| 00000180: 78 00 81 58 B2 31 A4 31 30 30 30 3A 82 3A 99 4C |x..X.1.1000:.:.L| 00000190: 24 3A 99 00 A0 09 82 00 99 A3 37 29 41 24 3A 99 |$:........7)A$:.| 000001A0: 00 D2 09 8C 00 99 22 53 43 48 4E 45 4C 4C 45 45 |......"SCHNELLEE| 000001B0: 53 20 41 53 53 45 4D 42 4C 45 52 20 50 52 4F 47 |S ASSEMBLER PROG| 000001C0: 52 41 4D 4D 20 24 43 30 30 30 2D 43 36 30 30 22 |RAMM $C000-C600"| 000001D0: 3A 99 00 E7 09 96 00 99 41 24 3B 22 20 57 49 52 |:.......A$;" WIR| 000001E0: 44 20 4D 49 54 3A 22 00 08 0A A0 00 99 22 53 59 |D MIT:"......"SY| 000001F0: 53 20 34 39 31 35 32 20 20 49 4E 49 54 49 41 4C |S 49152 INITIAL| 00000200: 49 53 49 45 52 54 2E 22 00 33 0A AA 00 99 22 44 |ISIERT.".3...."D| 00000210: 49 45 20 47 52 41 46 49 4B 2D 42 45 46 45 48 4C |IE GRAFIK-BEFEHL| 00000220: 45 20 57 45 52 44 45 4E 20 4D 49 54 20 45 49 4E |E WERDEN MIT EIN| 00000230: 45 4D 22 00 54 0A B4 00 99 22 5C 2D 5A 45 49 43 |EM".T...."\-ZEIC| 00000240: 48 45 4E 20 47 45 4B 45 4E 4E 5A 45 49 43 48 4E |HEN GEKENNZEICHN| 00000250: 45 54 2E 22 00 5D 0A BE 00 8D 38 30 30 00 93 0A |ET.".]....800...| 00000260: C8 00 99 22 12 20 20 20 20 20 20 20 20 20 42 20 |...". B | 00000270: 45 20 46 20 45 20 48 20 4C 20 45 20 20 20 20 20 |E F E H L E | 00000280: 20 20 20 20 20 20 20 20 20 20 20 20 20 92 22 3A | .":| 00000290: 99 3A 99 00 A5 0A CD 00 99 A3 31 32 29 22 5C 20 |.:........12)"\ | 000002A0: 49 4E 22 3A 99 00 D1 0A D2 00 99 22 55 4D 53 43 |IN":......."UMSC| 000002B0: 48 41 4C 54 55 4E 47 20 49 4E 20 44 45 4E 20 47 |HALTUNG IN DEN G| 000002C0: 52 41 46 49 4B 20 4D 4F 44 55 53 22 3A 8D 38 30 |RAFIK MODUS":.80| 000002D0: 30 00 E4 0A D7 00 99 A3 31 32 29 22 5C 20 4F 46 |0.......12)"\ OF| 000002E0: 46 22 3A 99 00 0A 0B DC 00 99 22 5A 55 52 55 45 |F":......."ZURUE| 000002F0: 43 4B 20 49 4E 20 44 45 4E 20 54 45 58 54 20 4D |CK IN DEN TEXT M| 00000300: 4F 44 55 53 22 3A 8D 38 30 30 00 1D 0B E1 00 99 |ODUS":.800......| 00000310: A3 31 32 29 22 5C 20 43 4C 53 22 3A 99 00 44 0B |.12)"\ CLS":..D.| 00000320: E6 00 99 22 4C 4F 45 53 43 48 45 4E 20 44 45 53 |..."LOESCHEN DES| 00000330: 20 47 52 41 46 49 4B 20 42 49 4C 44 45 53 22 3A | GRAFIK BILDES":| 00000340: 8D 38 30 30 00 5B 0B EB 00 99 A3 31 32 29 22 43 |.800.[.....12)"C| 00000350: 4F 4C 20 58 2C 59 2C 5A 22 3A 99 00 78 0B F0 00 |OL X,Y,Z":..x...| 00000360: 99 22 42 45 53 54 49 4D 4D 55 4E 47 20 44 45 52 |."BESTIMMUNG DER| 00000370: 20 46 41 52 42 45 4E 22 00 8E 0B FA 00 99 22 58 | FARBEN"......"X| 00000380: 20 2D 20 50 55 4E 4B 54 46 41 52 42 45 22 00 AA | - PUNKTFARBE"..| 00000390: 0B 04 01 99 22 59 20 2D 20 48 49 4E 54 45 52 47 |...."Y - HINTERG| 000003A0: 52 55 4E 44 46 41 52 42 45 22 00 C1 0B 0E 01 99 |RUNDFARBE"......| 000003B0: 22 5A 20 2D 20 52 41 48 4D 45 4E 46 41 52 42 45 |"Z - RAHMENFARBE| 000003C0: 22 00 CA 0B 18 01 8D 38 30 30 00 DE 0B 1D 01 99 |"......800......| 000003D0: A3 31 32 29 22 20 5C 20 52 45 56 22 3A 99 00 0E |.12)" \ REV":...| 000003E0: 0C 22 01 99 22 52 45 56 45 52 53 44 41 52 53 54 |.".."REVERSDARST| 000003F0: 45 4C 4C 55 4E 47 20 44 45 53 20 47 52 41 46 49 |ELLUNG DES GRAFI| 00000400: 4B 20 42 49 4C 44 45 53 22 3A 8D 38 30 30 00 25 |K BILDES":.800.%| 00000410: 0C 27 01 99 A3 31 32 29 22 5C 20 44 4F 54 2C 58 |.'...12)"\ DOT,X| 00000420: 2C 59 22 3A 99 00 4B 0C 2C 01 99 22 53 45 54 5A |,Y":..K.,.."SETZ| 00000430: 45 4E 20 45 49 4E 45 53 20 50 49 58 45 4C 20 41 |EN EINES PIXEL A| 00000440: 4E 20 58 2C 59 22 3A 8D 38 30 30 00 63 0C 31 01 |N X,Y":.800.c.1.| 00000450: 99 A3 31 32 29 22 5C 20 54 45 53 54 20 58 2C 59 |..12)"\ TEST X,Y| 00000460: 22 3A 99 00 91 0C 36 01 99 22 50 52 55 45 46 54 |":....6.."PRUEFT| 00000470: 2C 4F 42 20 41 4E 20 58 2C 59 20 45 49 4E 20 50 |,OB AN X,Y EIN P| 00000480: 49 58 45 4C 20 47 45 53 45 54 5A 54 20 49 53 54 |IXEL GESETZT IST| 00000490: 22 00 B8 0C 40 01 99 22 56 3D 20 2D 31 20 44 41 |"...@.."V= -1 DA| 000004A0: 4E 4E 20 49 53 54 20 41 4E 20 58 2C 59 20 45 49 |NN IST AN X,Y EI| 000004B0: 4E 20 50 49 58 45 4C 22 00 DC 0C 4A 01 99 22 56 |N PIXEL"...J.."V| 000004C0: 3D 20 20 30 20 4B 45 49 4E 20 50 49 58 45 4C 20 |= 0 KEIN PIXEL | 000004D0: 41 4E 20 58 2C 59 22 3A 8D 38 30 30 00 FB 0C 81 |AN X,Y":.800....| 000004E0: 01 99 A3 31 32 29 22 5C 20 4C 49 4E 45 20 58 2C |...12)"\ LINE X,| 000004F0: 59 20 54 4F 20 41 2C 42 22 3A 99 00 1F 0D 86 01 |Y TO A,B":......| 00000500: 99 22 5A 45 49 43 48 4E 45 4E 20 45 49 4E 45 52 |."ZEICHNEN EINER| 00000510: 20 4C 49 4E 49 45 20 56 4F 4E 20 58 2C 59 22 00 | LINIE VON X,Y".| 00000520: 34 0D 90 01 99 22 4E 41 43 48 20 41 2C 42 22 3A |4...."NACH A,B":| 00000530: 8D 38 30 30 00 50 0D 95 01 99 A3 31 32 29 22 43 |.800.P.....12)"C| 00000540: 4C 49 4E 45 20 58 2C 59 20 54 4F 20 41 2C 42 22 |LINE X,Y TO A,B"| 00000550: 00 74 0D 9A 01 99 22 4C 4F 45 53 43 48 45 4E 20 |.t...."LOESCHEN | 00000560: 45 49 4E 45 52 20 4C 49 4E 49 45 20 56 4F 4E 20 |EINER LINIE VON | 00000570: 58 2C 59 22 00 89 0D A4 01 99 22 4E 41 43 48 20 |X,Y"......"NACH | 00000580: 41 2C 42 22 3A 8D 38 30 30 00 9B 0D A9 01 99 A3 |A,B":.800.......| 00000590: 31 32 29 22 5C 20 48 41 52 44 22 00 C2 0D AE 01 |12)"\ HARD".....| 000005A0: 99 22 48 41 52 44 43 4F 50 50 59 20 44 45 53 20 |."HARDCOPPY DES | 000005B0: 47 52 41 46 49 4B 20 42 49 4C 44 45 53 20 41 55 |GRAFIK BILDES AU| 000005C0: 46 22 00 E3 0D B8 01 99 22 45 49 4E 45 4D 20 44 |F"......"EINEM D| 000005D0: 52 55 43 4B 45 52 20 28 31 35 32 36 29 22 3A 8D |RUCKER (1526)":.| 000005E0: 38 30 30 00 FA 0D BD 01 99 A3 31 32 29 22 54 45 |800.......12)"TE| 000005F0: 58 54 20 58 2C 59 2C 41 24 22 00 26 0E C2 01 99 |XT X,Y,A$".&....| 00000600: 22 53 45 54 5A 54 20 45 49 4E 45 4E 20 54 45 58 |"SETZT EINEN TEX| 00000610: 54 20 28 41 24 29 20 41 4E 20 44 49 45 20 4B 4F |T (A$) AN DIE KO| 00000620: 4F 52 44 49 2D 22 00 3D 0E CC 01 99 22 4E 41 54 |ORDI-".=...."NAT| 00000630: 45 4E 20 58 2C 59 22 3A 8D 38 30 30 22 00 57 0E |EN X,Y":.800".W.| 00000640: D1 01 99 A3 31 32 29 22 5C 20 47 4C 4F 41 44 20 |....12)"\ GLOAD | 00000650: 41 24 2C 58 22 3A 99 00 71 0E D6 01 99 22 4C 41 |A$,X":..q...."LA| 00000660: 44 45 4E 20 45 49 4E 45 52 20 47 52 41 46 49 4B |DEN EINER GRAFIK| 00000670: 22 00 8D 0E E0 01 99 22 41 24 20 2D 20 4E 41 4D |"......"A$ - NAM| 00000680: 45 20 44 45 52 20 47 52 41 46 49 4B 22 00 A8 0E |E DER GRAFIK"...| 00000690: EA 01 99 22 20 58 20 2D 20 47 45 52 41 45 54 45 |..." X - GERAETE| 000006A0: 41 44 52 45 53 53 45 22 00 AE 0E EF 01 99 00 C8 |ADRESSE"........| 000006B0: 0E F4 01 99 A3 31 32 29 22 5C 20 47 53 41 56 45 |.....12)"\ GSAVE| 000006C0: 20 41 24 2C 58 22 3A 99 00 F4 0E FE 01 99 22 41 | A$,X":......."A| 000006D0: 42 53 50 45 49 43 48 45 52 4E 20 45 49 4E 45 53 |BSPEICHERN EINES| 000006E0: 20 47 52 41 46 49 4B 20 42 49 4C 44 45 53 22 3A | GRAFIK BILDES":| 000006F0: 8D 38 30 30 00 1F 0F 08 02 99 22 44 49 45 20 4B |.800......"DIE K| 00000700: 4F 4F 52 44 49 4E 41 54 45 4E 20 42 45 5A 49 45 |OORDINATEN BEZIE| 00000710: 48 45 4E 20 53 49 43 48 20 41 55 46 22 3A 99 00 |HEN SICH AUF":..| 00000720: 41 0F 12 02 99 22 44 49 45 20 42 49 4C 44 45 43 |A...."DIE BILDEC| 00000730: 4B 45 20 4C 49 4E 4B 53 20 4F 42 45 4E 2E 22 3A |KE LINKS OBEN.":| 00000740: 99 00 58 0F 1C 02 99 22 58 20 2D 20 30 20 2E 2E |..X...."X - 0 ..| 00000750: 2E 20 33 31 39 22 3A 99 00 6F 0F 26 02 99 22 59 |. 319":..o.&.."Y| 00000760: 20 2D 20 30 20 2E 2E 2E 20 31 39 39 22 3A 99 00 | - 0 ... 199":..| 00000770: 9C 0F 30 02 99 22 44 45 52 20 53 54 52 49 4E 47 |..0.."DER STRING| 00000780: 20 49 4E 20 5C 20 54 45 58 54 20 4B 41 4E 4E 20 | IN \ TEXT KANN | 00000790: 45 49 4E 45 20 4D 41 58 2E 22 3A 99 00 C3 0F 3A |EINE MAX.":....:| 000007A0: 02 99 22 4C 41 45 4E 47 45 20 56 4F 4E 20 32 35 |.."LAENGE VON 25| 000007B0: 35 20 5A 45 49 43 48 45 4E 20 48 41 42 45 4E 22 |5 ZEICHEN HABEN"| 000007C0: 3A 99 22 00 F2 0F 44 02 99 22 46 55 45 52 20 44 |:."...D.."FUER D| 000007D0: 49 45 20 46 41 52 42 45 4E 20 47 45 4C 54 45 4E |IE FARBEN GELTEN| 000007E0: 20 44 49 45 20 57 45 52 54 45 20 57 49 45 22 3A | DIE WERTE WIE":| 000007F0: 99 22 00 0C 10 4E 02 99 22 49 4D 20 43 36 34 20 |."...N.."IM C64 | 00000800: 48 41 4E 44 42 55 43 48 2E 22 3A 99 00 3C 10 58 |HANDBUCH.":..<.X| 00000810: 02 99 22 53 54 45 55 45 52 5A 45 49 43 48 45 4E |.."STEUERZEICHEN| 00000820: 20 41 55 53 53 45 52 20 52 56 53 20 4F 4E 2F 4F | AUSSER RVS ON/O| 00000830: 46 46 20 57 45 52 44 45 4E 22 3A 99 00 54 10 62 |FF WERDEN":..T.b| 00000840: 02 99 22 4E 49 43 48 54 20 41 4E 47 45 4E 4F 4D |.."NICHT ANGENOM| 00000850: 4D 45 4E 22 00 5A 10 1F 03 80 00 68 10 20 03 99 |MEN".Z.....h. ..| 00000860: 22 11 11 11 11 11 11 22 00 7C 10 2A 03 99 22 2A |"......".|.*.."*| 00000870: 2A 20 52 45 54 55 52 4E 20 2A 2A 22 00 8F 10 34 |* RETURN **"...4| 00000880: 03 A1 43 24 3A 8B 43 24 B2 22 22 A7 38 32 30 00 |..C$:.C$."".820.| 00000890: 99 10 3E 03 99 4C 24 3A 8E 00 00 00 |..>..L$:.... |
..'.... *******************************.
M.... ** WRITTEN BY H.RADUSCHEWSKI **.S.
... ** GRAFIK PAKET MC 9/84 **.....
. *******************************.....A$
."G R A F I K - P A K E T".U...B$."A N L
E I T U N G".....A.C(A$):B.C(B$)...(.L$
.G(147)...-..L$:."....."...2..X.1.A.&.<.
..7)J(A$,X,1);.5.A..Y.1.100:..;.F...H.K.
.".....".S.P..X.1.B.G.Z...10)J(B$,X,1);.
W.D..Y.1.100:.Y.}.N.....X..X.1.1000:.:.L
$:.. .....7)A$:..R...."SCHNELLEES ASSEMB
LER PROGRAMM $C000-C600":.......A$;" WIR
D MIT:"... .."SYS 49152 INITIALISIERT."
.3...."DIE GRAFIK-BEFEHLE WERDEN MIT EIN
EM".T...."\-ZEICHEN GEKENNZEICHNET.".]..
..800...H..". B E F E H L E
.":.:....M...12)"\ IN":..Q.
R.."UMSCHALTUNG IN DEN GRAFIK MODUS":.80
0...W...12)"\ OFF":......."ZURUECK IN DE
N TEXT MODUS":.800.......12)"\ CLS":..D.
..."LOESCHEN DES GRAFIK BILDES":.800.[..
...12)"COL X,Y,Z":..X...."BESTIMMUNG DER
FARBEN"......"X - PUNKTFARBE"......"Y -
HINTERGRUNDFARBE".A...."Z - RAHMENFARBE
".J....800.......12)" \ REV":....".."REV
ERSDARSTELLUNG DES GRAFIK BILDES":.800.%
.'...12)"\ DOT,X,Y":..K.,.."SETZEN EINES
PIXEL AN X,Y":.800.C.1...12)"\ TEST X,Y
":....6.."PRUEFT,OB AN X,Y EIN PIXEL GES
ETZT IST"...@.."V= -1 DANN IST AN X,Y EI
N PIXEL"...J.."V= 0 KEIN PIXEL AN X,Y":
.800.......12)"\ LINE X,Y TO A,B":......
."ZEICHNEN EINER LINIE VON X,Y".4...."NA
CH A,B":.800.P.....12)"CLINE X,Y TO A,B"
.T...."LOESCHEN EINER LINIE VON X,Y"....
.."NACH A,B":.800.......12)"\ HARD".B...
."HARDCOPPY DES GRAFIK BILDES AUF"......
"EINEM DRUCKER (1526)":.800.......12)"TE
XT X,Y,A$".&.B.."SETZT EINEN TEXT (A$) A
N DIE KOORDI-".=.L.."NATEN X,Y":.800".W.
Q...12)"\ GLOAD A$,X":..Q.V.."LADEN EINE
R GRAFIK"......"A$ - NAME DER GRAFIK"...
..." X - GERAETEADRESSE".......H.....12)
"\ GSAVE A$,X":......."ABSPEICHERN EINES
GRAFIK BILDES":.800......"DIE KOORDINAT
EN BEZIEHEN SICH AUF":..A...."DIE BILDEC
KE LINKS OBEN.":..X...."X - 0 ... 319":.
.O.&.."Y - 0 ... 199":....0.."DER STRING
IN \ TEXT KANN EINE MAX.":..C.:.."LAENG
E VON 255 ZEICHEN HABEN":."...D.."FUER D
IE FARBEN GELTEN DIE WERTE WIE":."...N..
"IM C64 HANDBUCH.":..<.X.."STEUERZEICHEN
AUSSER RVS ON/OFF WERDEN":..T.B.."NICHT
ANGENOMMEN".Z.....H. .."......".|.*.."*
* RETURN **"...4..C$:.C$."".820...>..L$:
....
> CLICK IMAGE PREVIEW FOR FULL MODAL