GRAFIEK LIST
FILE INFORMATION
FILENAME(S): GRAFIEK LIST
FILE TYPE(S): PRG
FILE SIZE: 1.7K
FIRST SEEN: 2025-11-30 21:11:00
APPEARS ON: 1 disk(s)
FILE HASH
d469b0e179478110232c4ee54951e622bb8a8b1137036fd8c073e8568a85e96d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPEEDY WERK | GRAFIEK LIST | PRG | DuncanTwain | 20 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 16 08 64 00 47 45 54 43 4F 52 20 44 45 46 |....d.GETCOR DEF| 00000010: 20 24 42 37 45 42 00 2B 08 6E 00 53 43 52 4F 55 | $B7EB.+.n.SCROU| 00000020: 54 20 44 45 46 20 24 45 37 31 36 00 3C 08 78 00 |T DEF $E716.<.x.| 00000030: 4C 42 59 54 20 44 45 46 20 24 31 34 00 50 08 82 |LBYT DEF $14.P..| 00000040: 00 48 42 59 54 20 44 45 46 20 4C 42 59 54 AA 31 |.HBYT DEF LBYT.1| 00000050: 00 63 08 8C 00 43 55 52 43 4F 4C 20 44 45 46 20 |.c...CURCOL DEF | 00000060: 24 44 33 00 78 08 96 00 53 45 54 43 4F 4C 20 44 |$D3.x...SETCOL D| 00000070: 45 46 20 24 45 41 32 34 00 8D 08 A0 00 53 45 54 |EF $EA24.....SET| 00000080: 43 48 52 20 44 45 46 20 24 45 41 31 45 00 A0 08 |CHR DEF $EA1E...| 00000090: AA 00 49 4C 4C 51 20 44 45 46 20 24 42 32 34 38 |..ILLQ DEF $B248| 000000A0: 00 B5 08 B4 00 43 48 4B 43 4F 4D 20 44 45 46 20 |.....CHKCOM DEF | 000000B0: 24 41 45 46 44 00 C6 08 BE 00 43 4F 44 45 20 44 |$AEFD.....CODE D| 000000C0: 45 46 20 24 32 32 00 D9 08 C8 00 54 4D 50 20 44 |EF $22.....TMP D| 000000D0: 45 46 20 43 4F 44 45 AA 31 00 EC 08 D2 00 58 52 |EF CODE.1.....XR| 000000E0: 45 47 20 44 45 46 20 54 4D 50 AA 31 00 00 09 DC |EG DEF TMP.1....| 000000F0: 00 54 4D 50 31 20 44 45 46 20 58 52 45 47 AA 31 |.TMP1 DEF XREG.1| 00000100: 00 12 09 E6 00 4B 4C 45 55 52 20 44 45 46 20 24 |.....KLEUR DEF $| 00000110: 46 33 00 26 09 F0 00 43 55 52 52 49 20 44 45 46 |F3.&...CURRI DEF| 00000120: 20 24 41 42 33 42 00 36 09 FA 00 41 44 52 20 44 | $AB3B.6...ADR D| 00000130: 45 46 20 24 46 44 00 49 09 04 01 4C 59 4E 4C 45 |EF $FD.I...LYNLE| 00000140: 4E 20 44 45 46 20 24 44 35 00 5C 09 0E 01 43 48 |N DEF $D5.\...CH| 00000150: 52 41 44 52 20 44 45 46 20 24 44 31 00 6A 09 18 |RADR DEF $D1.j..| 00000160: 01 CF 52 47 20 24 43 30 30 30 00 7F 09 22 01 48 |..RG $C000...".H| 00000170: 50 4C 4F 54 20 4A 53 52 20 43 48 4B 43 4F 4D 00 |PLOT JSR CHKCOM.| 00000180: 8E 09 2C 01 CA 53 52 20 47 45 54 43 4F 52 00 9B |..,..SR GETCOR..| 00000190: 09 36 01 D3 54 58 20 58 52 45 47 00 A8 09 40 01 |.6..TX XREG...@.| 000001A0: CC 44 41 20 48 42 59 54 00 B3 09 4A 01 C3 4D 50 |.DA HBYT...J..MP| 000001B0: 20 23 32 00 BF 09 54 01 C2 43 53 20 49 4C 4C 00 | #2...T..CS ILL.| 000001C0: C9 09 5E 01 C1 53 4C 20 41 00 D3 09 68 01 C1 53 |..^..SL A...h..S| 000001D0: 4C 20 41 00 DD 09 72 01 C1 53 4C 20 41 00 E7 09 |L A...r..SL A...| 000001E0: 7C 01 C1 53 4C 20 41 00 F1 09 86 01 C1 53 4C 20 ||..SL A......SL | 000001F0: 41 00 FD 09 90 01 D3 54 41 20 54 4D 50 00 0A 0A |A......TA TMP...| 00000200: 9A 01 CC 44 41 20 4C 42 59 54 00 12 0A A4 01 D0 |...DA LBYT......| 00000210: 48 41 00 1C 0A AE 01 CC 53 52 20 41 00 26 0A B8 |HA......SR A.&..| 00000220: 01 CC 53 52 20 41 00 30 0A C2 01 CC 53 52 20 41 |..SR A.0....SR A| 00000230: 00 38 0A CC 01 C3 4C 43 00 44 0A D6 01 C1 44 43 |.8....LC.D....DC| 00000240: 20 54 4D 50 00 53 0A E0 01 C1 44 43 20 43 55 52 | TMP.S....DC CUR| 00000250: 43 4F 4C 00 5B 0A EA 01 D0 48 41 00 63 0A F4 01 |COL.[....HA.c...| 00000260: D4 41 59 00 72 0A FE 01 C3 4D 50 20 43 55 52 43 |.AY.r....MP CURC| 00000270: 4F 4C 00 7D 0A 08 02 C2 45 51 20 54 31 00 89 0A |OL.}....EQ T1...| 00000280: 12 02 C3 4D 50 20 23 33 39 00 94 0A 1C 02 C2 43 |...MP #39......C| 00000290: 43 20 54 32 00 A0 0A 21 02 CC 44 59 20 23 33 39 |C T2...!..DY #39| 000002A0: 00 B2 0A 26 02 54 32 20 4A 53 52 20 53 45 54 43 |...&.T2 JSR SETC| 000002B0: 4F 4C 00 BF 0A 30 02 CC 44 41 20 23 31 36 30 00 |OL...0..DA #160.| 000002C0: CE 0A 3A 02 CA 53 52 20 53 45 54 43 48 52 00 D6 |..:..SR SETCHR..| 000002D0: 0A 44 02 C4 45 59 00 E5 0A 4E 02 C3 50 59 20 43 |.D..EY...N..PY C| 000002E0: 55 52 43 4F 4C 00 F0 0A 58 02 C2 50 4C 20 54 32 |URCOL...X..PL T2| 000002F0: 00 FB 0A 62 02 54 31 20 50 4C 41 00 03 0B 6C 02 |...b.T1 PLA...l.| 00000300: D4 41 59 00 0B 0B 76 02 D0 4C 41 00 17 0B 80 02 |.AY...v..LA.....| 00000310: C3 50 59 20 23 34 30 00 25 0B 8A 02 C2 43 53 20 |.PY #40.%....CS | 00000320: 4B 4C 41 41 52 00 30 0B 94 02 C1 4E 44 20 23 37 |KLAAR.0....ND #7| 00000330: 00 38 0B 9E 02 D4 41 58 00 48 0B A8 02 CC 44 41 |.8....AX.H....DA| 00000340: 20 54 41 42 4C 45 2C 58 00 55 0B B2 02 CC 44 58 | TABLE,X.U....DX| 00000350: 20 58 52 45 47 00 64 0B BC 02 CA 53 52 20 53 45 | XREG.d....SR SE| 00000360: 54 43 48 52 00 76 0B C6 02 4B 4C 41 41 52 20 4C |TCHR.v...KLAAR L| 00000370: 44 41 20 23 31 37 00 85 0B D0 02 CA 4D 50 20 53 |DA #17......MP S| 00000380: 43 52 4F 55 54 00 96 0B DA 02 49 4C 4C 20 4A 4D |CROUT.....ILL JM| 00000390: 50 20 49 4C 4C 51 00 C4 0B E4 02 54 41 42 4C 45 |P ILLQ.....TABLE| 000003A0: 20 44 41 54 20 24 32 30 2C 24 36 35 2C 24 37 34 | DAT $20,$65,$74| 000003B0: 2C 24 37 35 2C 24 36 31 2C 24 46 36 2C 24 45 41 |,$75,$61,$F6,$EA| 000003C0: 2C 24 45 37 00 D9 0B EE 02 56 50 4C 4F 54 20 4A |,$E7.....VPLOT J| 000003D0: 53 52 20 43 48 4B 43 4F 4D 00 E8 0B F8 02 CA 53 |SR CHKCOM......S| 000003E0: 52 20 47 45 54 43 4F 52 00 F5 0B 02 03 CC 44 41 |R GETCOR......DA| 000003F0: 20 48 42 59 54 00 01 0C 0C 03 C2 4E 45 20 49 4C | HBYT......NE IL| 00000400: 4C 00 0E 0C 16 03 D3 54 58 20 58 52 45 47 00 1B |L......TX XREG..| 00000410: 0C 20 03 CC 44 41 20 4C 42 59 54 00 25 0C 2A 03 |. ..DA LBYT.%.*.| 00000420: CC 53 52 20 41 00 2F 0C 34 03 CC 53 52 20 41 00 |.SR A./.4..SR A.| 00000430: 39 0C 3E 03 CC 53 52 20 41 00 45 0C 48 03 D3 54 |9.>..SR A.E.H..T| 00000440: 41 20 54 4D 50 00 52 0C 52 03 CC 44 41 20 4C 42 |A TMP.R.R..DA LB| 00000450: 59 54 00 5D 0C 5C 03 C1 4E 44 20 23 37 00 6A 0C |YT.].\..ND #7.j.| 00000460: 66 03 D3 54 41 20 54 4D 50 31 00 79 0C 70 03 CC |f..TA TMP1.y.p..| 00000470: 44 41 20 43 48 52 41 44 52 00 81 0C 7A 03 C3 4C |DA CHRADR...z..L| 00000480: 43 00 90 0C 84 03 C1 44 43 20 43 55 52 43 4F 4C |C......DC CURCOL| 00000490: 00 9C 0C 8E 03 D3 54 41 20 41 44 52 00 AD 0C 98 |......TA ADR....| 000004A0: 03 CC 44 41 20 43 48 52 41 44 52 AA 31 00 B8 0C |..DA CHRADR.1...| 000004B0: A2 03 C1 44 43 20 23 30 00 C6 0C AC 03 D3 54 41 |...DC #0......TA| 000004C0: 20 41 44 52 AA 31 00 D1 0C B6 03 CC 44 41 20 23 | ADR.1......DA #| 000004D0: 30 00 DD 0C C0 03 CC 44 58 20 54 4D 50 00 E8 0C |0......DX TMP...| 000004E0: CA 03 C2 45 51 20 54 33 00 F9 0C D4 03 54 34 20 |...EQ T3.....T4 | 000004F0: 4A 53 52 20 43 4F 4C 4F 52 00 06 0D DE 03 CC 44 |JSR COLOR......D| 00000500: 41 20 23 31 36 30 00 16 0D E8 03 D3 54 41 20 28 |A #160......TA (| 00000510: 41 44 52 29 2C 59 00 23 0D F2 03 CC 44 41 20 58 |ADR),Y.#....DA X| 00000520: 52 45 47 00 35 0D FC 03 D3 54 41 20 28 4B 4C 45 |REG.5....TA (KLE| 00000530: 55 52 29 2C 59 00 41 0D 06 04 CC 44 41 20 41 44 |UR),Y.A....DA AD| 00000540: 52 00 49 0D 10 04 D3 45 43 00 55 0D 1A 04 D3 42 |R.I....EC.U....B| 00000550: 43 20 23 34 30 00 61 0D 24 04 D3 54 41 20 41 44 |C #40.a.$..TA AD| 00000560: 52 00 6C 0D 2E 04 C2 43 53 20 54 35 00 7A 0D 38 |R.l....CS T5.z.8| 00000570: 04 C4 45 43 20 41 44 52 AA 31 00 88 0D 42 04 CC |..EC ADR.1...B..| 00000580: 44 41 20 41 44 52 AA 31 00 93 0D 4C 04 C3 4D 50 |DA ADR.1...L..MP| 00000590: 20 23 34 00 9E 0D 56 04 C2 43 43 20 54 36 00 AD | #4...V..CC T6..| 000005A0: 0D 60 04 54 35 20 44 45 43 20 54 4D 50 00 B8 0D |.`.T5 DEC TMP...| 000005B0: 6A 04 C2 4E 45 20 54 34 00 C9 0D 74 04 54 33 20 |j..NE T4...t.T3 | 000005C0: 4A 53 52 20 43 4F 4C 4F 52 00 D6 0D 7E 04 CC 44 |JSR COLOR...~..D| 000005D0: 58 20 54 4D 50 31 00 E5 0D 88 04 CC 44 41 20 54 |X TMP1......DA T| 000005E0: 41 42 32 2C 58 00 F5 0D 92 04 D3 54 41 20 28 41 |AB2,X......TA (A| 000005F0: 44 52 29 2C 59 00 02 0E 9C 04 CC 44 41 20 58 52 |DR),Y......DA XR| 00000600: 45 47 00 14 0E A6 04 D3 54 41 20 28 4B 4C 45 55 |EG......TA (KLEU| 00000610: 52 29 2C 59 00 26 0E B0 04 54 36 20 4C 44 41 20 |R),Y.&...T6 LDA | 00000620: 43 55 52 43 4F 4C 00 35 0E BA 04 C3 4D 50 20 4C |CURCOL.5....MP L| 00000630: 59 4E 4C 45 4E 00 41 0E C4 04 C2 45 51 20 AC AA |YNLEN.A....EQ ..| 00000640: 35 00 4F 0E CE 04 CA 4D 50 20 43 55 52 52 49 00 |5.O....MP CURRI.| 00000650: 57 0E D8 04 D2 54 53 00 84 0E E2 04 54 41 42 32 |W....TS.....TAB2| 00000660: 20 44 41 54 20 24 32 30 2C 24 36 34 2C 24 36 46 | DAT $20,$64,$6F| 00000670: 2C 24 37 39 2C 24 36 32 2C 24 46 38 2C 24 46 37 |,$79,$62,$F8,$F7| 00000680: 2C 24 45 33 00 96 0E EC 04 43 4F 4C 4F 52 20 4C |,$E3.....COLOR L| 00000690: 44 41 20 41 44 52 00 A4 0E F6 04 D3 54 41 20 4B |DA ADR......TA K| 000006A0: 4C 45 55 52 00 B2 0E 00 05 CC 44 41 20 41 44 52 |LEUR......DA ADR| 000006B0: AA 31 00 C3 0E 0A 05 CA 4D 50 20 53 45 54 43 4F |.1......MP SETCO| 000006C0: 4C AA 36 00 00 00 |L.6... |
....D.GETCOR DEF $B7EB.+.N.SCROUT DEF $E 716.<.X.LBYT DEF $14.P...HBYT DEF LBYT.1 .C...CURCOL DEF $D3.X...SETCOL DEF $EA24 ... .SETCHR DEF $EA1E. ...ILLQ DEF $B248 .....CHKCOM DEF $AEFD.F...CODE DEF $22.Y .H.TMP DEF CODE.1...R.XREG DEF TMP.1.... .TMP1 DEF XREG.1.....KLEUR DEF $F3.&...C URRI DEF $AB3B.6...ADR DEF $FD.I...LYNLE N DEF $D5.\...CHRADR DEF $D1.J...ORG $C0 00..".HPLOT JSR CHKCOM...,.JSR GETCOR.. .6.STX XREG...@.LDA HBYT...J.CMP #2...T. BCS ILL.I.^.ASL A.S.H.ASL A...R.ASL A... |.ASL A.....ASL A.....STA TMP.....LDA LB YT.....PHA.....LSR A.&...LSR A.0.B.LSR A .8.L.CLC.D.V.ADC TMP.S...ADC CURCOL.[... PHA.C...TAY.R...CMP CURCOL.}...BEQ T1... ..CMP #39.....BCC T2. .!.LDY #39...&.T2 JSR SETCOL...0.LDA #160.N.:.JSR SETCHR.V .D.DEY...N.CPY CURCOL...X.BPL T2...B.T1 PLA...L.TAY...V.PLA.....CPY #40.%...BCS KLAAR.0...AND #7.8...TAX.H...LDA TABLE,X .U...LDX XREG.D...JSR SETCHR.V.F.KLAAR L DA #17...P.JMP SCROUT...Z.ILL JMP ILLQ.D ...TABLE DAT $20,$65,$74,$75,$61,$F6,$EA ,$E7.Y...VPLOT JSR CHKCOM.....JSR GETCOR .....LDA HBYT.....BNE ILL.....STX XREG.. . .LDA LBYT.%.*.LSR A./.4.LSR A.9.>.LSR A.E.H.STA TMP.R.R.LDA LBYT.].\.AND #7.J. F.STA TMP1.Y.P.LDA CHRADR...Z.CLC.....AD C CURCOL.....STA ADR.....LDA CHRADR.1... ..ADC #0.F...STA ADR.1.Q...LDA #0.....LD X TMP...J.BEQ T3...T.T4 JSR COLOR.....LD A #160.....STA (ADR),Y.#...LDA XREG.5... STA (KLEUR),Y.A...LDA ADR.I...SEC.U...SB C #40.A.$.STA ADR.L...BCS T5.Z.8.DEC ADR .1...B.LDA ADR.1...L.CMP #4...V.BCC T6.. .`.T5 DEC TMP...J.BNE T4.I.T.T3 JSR COLO R.V.~.LDX TMP1.....LDA TAB2,X.....STA (A DR),Y.....LDA XREG.....STA (KLEUR),Y.&.. .T6 LDA CURCOL.5...CMP LYNLEN.A.D.BEQ .. 5.O.N.JMP CURRI.W.X.RTS.....TAB2 DAT $20 ,$64,$6F,$79,$62,$F8,$F7,$E3.....COLOR L DA ADR.....STA KLEUR.....LDA ADR.1.C...J MP SETCOL.6...
> CLICK IMAGE PREVIEW FOR FULL MODAL