GRAFIX INSTR.C
FILE INFORMATION
FILENAME(S): GRAFIX INSTR.C
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-11-30 18:13:07
APPEARS ON: 1 disk(s)
FILE HASH
6cc7ff8a43b6741aed9533b3a31373bdc5e1f2bb4a72b4d3fd758ecbe8b48f1a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUG | GRAFIX INSTR.C | PRG | Sailor, Ganheden | 6 | 11 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 0A 00 97 35 33 32 38 30 2C 31 34 3A |..&....53280,14:| 00000010: 97 35 33 32 38 31 2C 31 3A 99 22 90 0E 08 22 3A |.53281,1:."...":| 00000020: 8D 31 30 30 30 30 00 58 08 1E 00 99 22 11 11 11 |.10000.X...."...| 00000030: 20 20 20 20 D4 48 49 53 20 57 41 53 20 57 52 49 | .HIS WAS WRI| 00000040: 54 54 45 4E 20 42 59 20 20 C2 52 41 44 20 D4 45 |TTEN BY .RAD .E| 00000050: 4D 50 4C 45 54 4F 4E 22 00 87 08 23 00 99 22 20 |MPLETON"...#.." | 00000060: 41 4E 44 20 20 41 50 50 45 41 52 45 44 20 49 4E |AND APPEARED IN| 00000070: 20 54 48 45 20 CA 55 4C 59 20 27 38 33 20 49 53 | THE .ULY '83 IS| 00000080: 53 55 45 20 4F 46 22 00 B6 08 25 00 99 22 20 27 |SUE OF"...%.." '| 00000090: D4 48 45 20 D4 52 41 4E 53 41 43 54 4F 52 27 2E |.HE .RANSACTOR'.| 000000A0: 20 20 C9 54 20 20 52 45 53 49 44 45 53 20 49 4E | .T RESIDES IN| 000000B0: 20 20 4C 4F 2D 22 00 E5 08 28 00 99 22 20 43 41 | LO-"...(.." CA| 000000C0: 54 49 4F 4E 53 20 20 34 39 31 35 32 2D 34 39 38 |TIONS 49152-498| 000000D0: 35 33 20 28 24 C3 30 30 30 2D 24 C3 32 C2 C4 29 |53 ($.000-$.2..)| 000000E0: 20 41 4E 44 22 00 0C 09 32 00 99 22 20 49 53 20 | AND"...2.." IS | 000000F0: 4E 4F 54 20 52 45 4C 4F 43 41 54 41 42 4C 45 20 |NOT RELOCATABLE | 00000100: 41 53 20 49 54 20 49 53 2E 22 3A 99 00 3B 09 3C |AS IT IS.":..;.<| 00000110: 00 99 22 20 20 20 20 D4 48 45 20 20 46 49 52 53 |.." .HE FIRS| 00000120: 54 20 46 49 46 54 45 45 4E 20 1D 42 59 54 45 53 |T FIFTEEN .BYTES| 00000130: 20 41 52 45 20 20 4A 55 4D 50 22 00 6A 09 46 00 | ARE JUMP".j.F.| 00000140: 99 22 20 56 45 43 54 4F 52 53 20 1D 54 4F 20 54 |." VECTORS .TO T| 00000150: 48 45 20 20 46 49 56 45 20 43 4F 4D 4D 41 4E 44 |HE FIVE COMMAND| 00000160: 53 2E 20 20 20 D4 48 45 59 22 00 99 09 4B 00 99 |S. .HEY"...K..| 00000170: 22 20 53 54 41 52 54 20 20 41 54 20 34 31 39 35 |" START AT 4195| 00000180: 33 2E 20 20 20 D3 45 54 54 49 4E 47 20 20 41 20 |3. .ETTING A | 00000190: 56 41 52 49 41 42 4C 45 22 00 C8 09 50 00 99 22 |VARIABLE"...P.."| 000001A0: 20 4C 49 4B 45 20 C2 C1 20 A0 28 C2 41 53 45 20 | LIKE .. .(.ASE | 000001B0: C1 44 44 52 45 53 53 29 20 20 54 4F 20 54 48 49 |.DDRESS) TO THI| 000001C0: 53 20 4D 45 41 4E 53 22 00 F4 09 5A 00 99 22 20 |S MEANS"...Z.." | 000001D0: 59 4F 55 20 43 41 4E 20 45 41 53 49 4C 59 20 41 |YOU CAN EASILY A| 000001E0: 43 43 45 53 53 20 45 41 43 48 20 43 4F 4D 4D 41 |CCESS EACH COMMA| 000001F0: 4E 44 2E 22 00 08 0A 5F 00 99 22 11 11 11 11 11 |ND."..._..".....| 00000200: 22 3A 8D 20 3B FF FF FF FF FF FF 59 81 FF FF 67 |":. ;......Y...g| 00000210: FF B2 FF D2 FF D2 FF FF D2 FF FF FF FF FF B5 FF |................| 00000220: 64 80 CA FF FF FF FF FF D0 FF FF FF B3 FF FF FF |d...............| 00000230: A7 FF FF 33 FF FF FF FF FF FF FF FF FF FF FF FF |...3............| 00000240: 67 FF FF C4 FF 42 FF 33 FF FF FF D0 FF DA FF ED |g....B.3........| 00000250: FF FF FF B3 FF FF FF A7 FF FF FF FF FF FF FF FF |................| 00000260: FF FF FF FF FF FF 32 FF FF FF FF FF 33 FF FF FF |......2.....3...| 00000270: FF FF FF FF FF EE EF FF FF FF FF FF FF FF D0 FF |................| 00000280: D0 EE FF FF FF D4 FF FF FF FF D2 FF FF FF FF FF |................| 00000290: FF FF FF FF DD FF FF FF FF 2A FF 33 FF FF FF D2 |.........*.3....| 000002A0: FF FF FF FF D0 EE FF FF FF D0 FF D0 EE FF FF FF |................| 000002B0: 67 FF FF BA FF FF FF 33 FF FF FF FF FF FF FF FF |g......3........| 000002C0: FF FF FF FF FF D6 D4 FF D0 EE FF FF FF FF 0E FF |................| 000002D0: FF FF 33 FF FF FF FF FF FF FF FF FF FF A6 FF FF |..3.............| 000002E0: FF FF FF FF FF FF FF FF FF FF D6 D4 FF D0 EE FF |................| 000002F0: FF FF FF FF FF FF 7A F7 FF FF 99 22 A0 A0 A0 A0 |......z...."....| 00000300: C3 32 3A 20 20 C1 4C 54 45 52 4E 41 54 45 20 C2 |.2: .LTERNATE .| 00000310: 41 43 4B 47 52 4F 55 4E 44 20 23 32 22 00 3D 0B |ACKGROUND #2".=.| 00000320: B4 00 99 22 A0 A0 A0 A0 C3 33 3A 20 20 C3 4F 4C |...".....3: .OL| 00000330: 4F 55 52 20 CE 59 42 42 4C 45 53 11 22 00 6C 0B |OUR .YBBLES.".l.| 00000340: BE 00 99 22 A0 D7 48 45 4E 20 20 D3 D9 D3 A0 C2 |..."..HEN .....| 00000350: C1 20 49 53 20 43 41 4C 4C 45 44 2C 20 20 54 48 |. IS CALLED, TH| 00000360: 45 20 53 43 52 45 45 4E 20 49 53 22 00 9B 0B C8 |E SCREEN IS"....| 00000370: 00 99 22 A0 43 4C 45 41 52 45 44 20 54 4F 20 20 |..".CLEARED TO | 00000380: 54 48 45 20 42 41 43 4B 47 52 4F 55 4E 44 20 43 |THE BACKGROUND C| 00000390: 4F 4C 4F 55 52 2E 20 20 C9 4E 22 00 CA 0B D2 00 |OLOUR. .N".....| 000003A0: 99 22 20 53 55 42 53 45 51 55 45 4E 54 20 43 4F |." SUBSEQUENT CO| 000003B0: 4D 4D 41 4E 44 53 20 20 54 48 45 20 46 4F 55 52 |MMANDS THE FOUR| 000003C0: 20 20 43 4F 4C 4F 55 52 53 22 00 03 0C DC 00 99 | COLOURS"......| 000003D0: 22 20 41 52 45 20 52 45 46 45 52 45 4E 43 45 44 |" ARE REFERENCED| 000003E0: 20 42 59 20 54 48 45 20 4E 55 4D 42 45 52 53 20 | BY THE NUMBERS | 000003F0: 30 20 54 4F 20 33 2E 22 3A 99 22 11 22 3A 8D 39 |0 TO 3.":.".":.9| 00000400: 30 30 30 00 45 0C 2C 01 99 22 11 20 D2 45 41 44 |000.E.,..". .EAD| 00000410: 20 CC 4F 43 41 54 49 4F 4E 20 2D 20 D3 D9 D3 20 | .OCATION - ... | 00000420: 34 39 31 35 36 20 4F 52 20 D3 D9 D3 20 C2 C1 2B |49156 OR ... ..+| 00000430: 33 22 3A 99 22 A0 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |3":."...........| 00000440: A3 A3 A3 11 22 00 69 0C 36 01 99 22 A0 C6 4F 52 |....".i.6.."..OR| 00000450: 4D 41 54 3A 20 20 D3 D9 D3 20 C2 C1 2B 33 2C D2 |MAT: ... ..+3,.| 00000460: CF D7 2C C3 CF CC 22 3A 99 00 98 0C 40 01 99 22 |..,...":....@.."| 00000470: 20 D2 45 41 44 53 20 54 48 45 20 20 47 49 56 45 | .EADS THE GIVE| 00000480: 4E 20 50 49 58 45 4C 2E 20 20 20 D4 48 45 20 20 |N PIXEL. .HE | 00000490: 43 4F 4C 4F 55 52 2C 22 00 C7 0C 4A 01 99 22 A0 |COLOUR,"...J..".| 000004A0: 46 52 4F 4D 20 20 30 20 54 4F 20 33 2C 20 57 49 |FROM 0 TO 3, WI| 000004B0: 4C 4C 20 20 42 45 20 53 54 4F 52 45 44 20 49 4E |LL BE STORED IN| 000004C0: 20 4C 4F 43 41 2D 22 00 EE 0C 54 01 99 22 20 54 | LOCA-"...T.." T| 000004D0: 49 4F 4E 20 32 35 36 20 46 4F 52 20 59 4F 55 20 |ION 256 FOR YOU | 000004E0: 54 4F 20 D0 C5 C5 CB 20 41 54 2E 11 11 22 00 27 |TO .... AT...".'| 000004F0: 0D 5E 01 99 22 20 D3 45 54 20 D0 4F 49 4E 54 20 |.^.." .ET .OINT | 00000500: 2D 20 D3 D9 D3 20 34 39 31 35 39 20 4F 52 20 D3 |- ... 49159 OR .| 00000510: D9 D3 20 C2 C1 2B 36 22 3A 99 22 A0 A3 A3 A3 A3 |.. ..+6":.".....| 00000520: A3 A3 A3 A3 A3 11 22 00 52 0D 68 01 99 22 A0 C6 |......".R.h.."..| 00000530: 4F 52 4D 41 54 3A 20 20 D3 D9 D3 20 C2 C1 2B 36 |ORMAT: ... ..+6| 00000540: 2C D2 CF D7 2C C3 CF CC 2C C3 CF CC CF D5 D2 22 |,...,...,......"| 00000550: 3A 99 00 81 0D 72 01 99 22 A0 D3 45 54 53 20 41 |:....r.."..ETS A| 00000560: 20 50 49 58 45 4C 20 54 4F 20 54 48 45 20 53 50 | PIXEL TO THE SP| 00000570: 45 43 49 46 49 45 44 20 43 4F 4C 4F 55 4F 52 2E |ECIFIED COLOUOR.| 00000580: 22 00 B0 0D 7C 01 99 22 A0 C3 48 4F 4F 53 45 20 |"...|.."..HOOSE | 00000590: 43 4F 4C 4F 55 52 20 30 20 28 42 41 43 4B 47 52 |COLOUR 0 (BACKGR| 000005A0: 4F 55 4E 44 20 43 4F 4C 4F 55 52 29 20 54 4F 22 |OUND COLOUR) TO"| 000005B0: 00 D0 0D 86 01 99 22 A0 54 55 52 4E 20 50 49 58 |......".TURN PIX| 000005C0: 45 4C 20 4F 46 46 2E 22 3A 99 3A 8D 39 30 30 30 |EL OFF.":.:.9000| 000005D0: 00 FD 0D 90 01 99 22 11 11 11 11 20 D2 45 53 54 |......".... .EST| 000005E0: 4F 52 45 20 D4 45 50 54 20 CD 4F 44 45 20 2D 20 |ORE .EPT .ODE - | 000005F0: D3 D9 D3 20 34 39 31 36 32 20 4F 52 22 00 22 0E |... 49162 OR".".| 00000600: 95 01 99 22 A0 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |..."............| 00000610: A3 A3 A3 A3 A3 A3 20 20 20 D3 D9 D3 A0 C2 C1 2B |...... ......+| 00000620: 39 22 00 52 0E 9A 01 99 22 11 11 20 C6 4F 52 4D |9".R....".. .ORM| 00000630: 41 54 3A 20 20 D3 D9 D3 A0 C2 C1 2B 39 3A D0 D2 |AT: ......+9:..| 00000640: C9 CE D4 20 22 C7 28 33 34 29 22 93 22 C7 28 33 |... ".(34)".".(3| 00000650: 34 29 00 82 0E A4 01 99 22 11 20 C7 49 56 45 53 |4)......". .IVES| 00000660: 20 20 42 41 43 4B 20 54 48 45 20 20 4E 4F 52 4D | BACK THE NORM| 00000670: 41 4C 20 20 54 45 58 54 20 20 53 43 52 45 45 4E |AL TEXT SCREEN| 00000680: 2E 22 00 B1 0E AE 01 99 22 A0 D4 48 45 20 20 53 |."......"..HE S| 00000690: 43 52 45 45 4E 20 20 57 49 4C 4C 20 20 42 45 20 |CREEN WILL BE | 000006A0: 46 55 4C 4C 20 4F 46 20 20 47 41 52 42 41 47 45 |FULL OF GARBAGE| 000006B0: 22 00 E0 0E B8 01 99 22 20 46 52 4F 4D 20 54 48 |"......" FROM TH| 000006C0: 45 20 43 4F 4C 4F 55 52 20 47 52 41 50 48 49 43 |E COLOUR GRAPHIC| 000006D0: 53 2C 20 53 4F 20 49 54 27 53 20 42 45 53 54 22 |S, SO IT'S BEST"| 000006E0: 00 0F 0F C2 01 99 22 A0 54 4F 20 46 4F 4C 4C 4F |......".TO FOLLO| 000006F0: 57 20 57 49 54 48 20 41 20 43 4C 45 41 52 20 53 |W WITH A CLEAR S| 00000700: 43 52 45 45 4E 20 49 4E 53 54 52 55 43 2D 22 00 |CREEN INSTRUC-".| 00000710: 1C 0F C7 01 99 22 A0 54 49 4F 4E 2E 00 2E 0F CC |.....".TION.....| 00000720: 01 99 22 11 11 11 11 22 3A 8D 39 30 30 30 00 62 |.."....":.9000.b| 00000730: 0F F4 01 99 22 11 11 11 11 20 C4 52 41 57 20 2D |....".... .RAW -| 00000740: 20 D3 D9 D3 20 34 39 31 36 35 20 4F 52 20 D3 D9 | ... 49165 OR ..| 00000750: D3 A0 C2 C1 2B 31 32 22 3A 99 22 20 A3 A3 A3 A3 |....+12":." ....| 00000760: 11 22 00 98 0F FE 01 99 22 A0 C6 4F 52 4D 41 54 |."......"..ORMAT| 00000770: 3A 11 22 3A 99 22 A0 A0 A0 A0 D3 D9 D3 A0 C2 C1 |:.":."..........| 00000780: 2B 31 32 2C D2 31 2C C3 31 2C D2 32 2C C3 32 2C |+12,.1,.1,.2,.2,| 00000790: C3 CF CC CF D5 D2 11 22 00 C7 0F 08 02 99 22 A0 |......."......".| 000007A0: C4 52 41 57 53 20 41 20 4C 49 4E 45 20 20 46 52 |.RAWS A LINE FR| 000007B0: 4F 4D 20 54 48 45 20 50 4F 49 4E 54 20 20 D2 31 |OM THE POINT .1| 000007C0: 2F C3 31 20 54 4F 22 00 F6 0F 12 02 99 22 A0 54 |/.1 TO"......".T| 000007D0: 48 45 20 50 4F 49 4E 54 20 D2 32 2F C3 32 20 4F |HE POINT .2/.2 O| 000007E0: 46 20 20 43 4F 4C 4F 55 52 20 30 20 54 4F 20 33 |F COLOUR 0 TO 3| 000007F0: 2E 20 20 C1 53 22 00 20 10 1C 02 99 22 A0 42 45 |. .S". ....".BE| 00000800: 46 4F 52 45 2C 20 43 4F 4C 4F 55 52 20 30 20 45 |FORE, COLOUR 0 E| 00000810: 52 41 53 45 53 20 54 48 45 20 4C 49 4E 45 2E 22 |RASES THE LINE."| 00000820: 00 33 10 26 02 99 22 11 11 11 11 11 22 3A 8D 39 |.3.&..".....":.9| 00000830: 30 30 30 00 78 10 58 02 99 22 11 11 11 11 20 CC |000.x.X..".... .| 00000840: 4F 41 44 49 4E 47 20 C7 52 41 50 48 49 43 53 20 |OADING .RAPHICS | 00000850: D2 4F 55 54 49 4E 45 53 22 3A 99 22 A0 A3 A3 A3 |.OUTINES":."....| 00000860: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................| 00000870: A3 A3 A3 A3 A3 A3 11 22 00 A7 10 62 02 99 22 A0 |......."...b..".| 00000880: A0 A0 A0 D4 4F 20 55 53 45 20 20 54 48 45 53 45 |....O USE THESE| 00000890: 20 47 52 41 50 48 49 43 53 20 20 52 4F 55 54 49 | GRAPHICS ROUTI| 000008A0: 4E 45 53 20 49 4E 22 00 D6 10 6C 02 99 22 20 59 |NES IN"...l.." Y| 000008B0: 4F 55 52 20 4F 57 4E 20 50 52 4F 47 52 41 4D 53 |OUR OWN PROGRAMS| 000008C0: 2C 20 20 54 48 45 59 20 43 41 4E 20 42 45 20 4C |, THEY CAN BE L| 000008D0: 4F 41 44 45 44 22 00 05 11 76 02 99 22 20 57 49 |OADED"...v.." WI| 000008E0: 54 48 20 54 48 49 53 20 49 4E 53 54 52 55 43 54 |TH THIS INSTRUCT| 000008F0: 49 4F 4E 20 41 54 20 54 48 45 20 42 45 47 49 4E |ION AT THE BEGIN| 00000900: 4E 49 4E 47 22 00 1E 11 80 02 99 22 20 4F 46 20 |NING"......" OF | 00000910: 54 48 45 20 50 52 4F 47 52 41 4D 3A 11 22 00 42 |THE PROGRAM:.".B| 00000920: 11 8A 02 99 22 20 20 20 31 20 C9 C6 A0 D0 C5 C5 |...." 1 ......| 00000930: CB 20 34 39 31 35 32 3C 3E 39 36 20 D4 C8 C5 CE |. 49152<>96 ....| 00000940: A0 22 00 74 11 8F 02 99 22 20 20 20 20 20 A0 20 |.".t...." . | 00000950: CC CF C1 C4 A0 22 C7 28 33 34 29 22 C7 D2 C1 C6 |.....".(34)"....| 00000960: C9 D8 A0 D2 D4 CE D3 22 C7 28 33 34 29 22 2C 38 |.......".(34)",8| 00000970: 2C 31 11 22 00 86 11 94 02 99 22 11 11 11 11 22 |,1."......"...."| 00000980: 3A 8D 39 30 30 30 00 AF 11 BC 02 99 A3 31 34 29 |:.9000.......14)| 00000990: 22 11 11 11 11 11 11 11 11 11 11 C5 4E 44 20 4F |"...........ND O| 000009A0: 46 20 D4 45 58 54 11 11 11 11 11 11 11 11 22 00 |F .EXT........".| 000009B0: B5 11 27 23 80 00 CD 11 28 23 99 A3 31 34 29 22 |..'#....(#..14)"| 000009C0: D0 52 45 53 53 20 D2 C5 D4 D5 D2 CE 22 00 E5 11 |.RESS ......"...| 000009D0: 32 23 A1 41 24 3A 8B 41 24 B3 B1 C7 28 31 33 29 |2#.A$:.A$...(13)| 000009E0: 89 39 30 31 30 00 15 12 10 27 99 22 93 11 20 C7 |.9010....'.".. .| 000009F0: A0 D2 A0 C1 A0 C6 A0 C9 A0 D8 A0 A0 A0 C9 A0 CE |................| 00000A00: A0 D3 A0 D4 A0 D2 A0 D5 A0 C3 A0 D4 A0 C9 A0 CF |................| 00000A10: A0 CE A0 D3 22 00 43 12 1A 27 99 22 20 A3 A3 A2 |....".C..'." ...| 00000A20: 03 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................| 00000A30: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................| 00000A40: A3 A3 22 00 49 12 24 27 8E 00 00 00 |..".I.$'.... |
..&....53280,14:.53281,1:."...":.10000.X ...."... THIS WAS WRITTEN BY BRAD TE MPLETON"...#.." AND APPEARED IN THE JUL Y '83 ISSUE OF"...%.." 'THE TRANSACTOR'. IT RESIDES IN LO-"...(.." CATIONS 4 9152-49853 ($C000-$C2BD) AND"...2.." IS NOT RELOCATABLE AS IT IS.":..;.<.." T HE FIRST FIFTEEN .BYTES ARE JUMP".J.F. ." VECTORS .TO THE FIVE COMMANDS. THE Y"...K.." START AT 41953. SETTING A VARIABLE".H.P.." LIKE BA (BASE ADDRESS) TO THIS MEANS"...Z.." YOU CAN EASILY A CCESS EACH COMMAND."..._..".....":. ;... ...Y...G...R.R..R.......D.J.....P....... ...3............G..D.B.3...P.Z.......... ..............2.....3.................P. P....T....R..............*.3...R....P... .P.P....G......3.............VT.P....... ..3.......................VT.P........Z. ..." C2: ALTERNATE BACKGROUND #2".=. ..." C3: COLOUR NYBBLES.".L...." WHE N SYS BA IS CALLED, THE SCREEN IS"...H .." CLEARED TO THE BACKGROUND COLOUR. IN".J.R.." SUBSEQUENT COMMANDS THE FOUR COLOURS"......" ARE REFERENCED BY THE NUMBERS 0 TO 3.":.".":.9000.E.,..". READ LOCATION - SYS 49156 OR SYS BA+3":." .. ............".I.6.." FORMAT: SYS BA+3,R OW,COL":....@.." READS THE GIVEN PIXEL. THE COLOUR,".G.J.." FROM 0 TO 3, WI LL BE STORED IN LOCA-"...T.." TION 256 FOR YOU TO PEEK AT...".'.^.." SET POINT - SYS 49159 OR SYS BA+6":." ..........". R.H.." FORMAT: SYS BA+6,ROW,COL,COLOUR" :....R.." SETS A PIXEL TO THE SPECIFIED COLOUOR."...|.." CHOOSE COLOUR 0 (BACKGR OUND COLOUR) TO".P...." TURN PIXEL OFF." :.:.9000......".... RESTORE TEPT MODE - SYS 49162 OR"."...." ................. SYS BA+9".R....".. FORMAT: SYS BA+9:PR INT "G(34)"."G(34)......". GIVES BACK T HE NORMAL TEXT SCREEN."......" THE S CREEN WILL BE FULL OF GARBAGE"......" FROM THE COLOUR GRAPHICS, SO IT'S BEST" ...B.." TO FOLLOW WITH A CLEAR SCREEN IN STRUC-"...G.." TION....L.."....":.9000.B ....".... DRAW - SYS 49165 OR SYS BA+12" :." ....."......" FORMAT:.":." SYS BA +12,R1,C1,R2,C2,COLOUR.".G...." DRAWS A LINE FROM THE POINT R1/C1 TO"......" T HE POINT R2/C2 OF COLOUR 0 TO 3. AS". ...." BEFORE, COLOUR 0 ERASES THE LINE." .3.&..".....":.9000.X.X..".... LOADING G RAPHICS ROUTINES":." ................... ......."...B.." TO USE THESE GRAPHIC S ROUTINES IN".V.L.." YOUR OWN PROGRAMS , THEY CAN BE LOADED"...V.." WITH THIS INSTRUCTION AT THE BEGINNING"......" OF THE PROGRAM:.".B...." 1 IF PEEK 49152< >96 THEN ".T...." LOAD "G(34)"GRAF IX RTNS"G(34)",8,1."......"....":.9000.. .....14)"..........END OF TEXT........". ..'#..M.(#..14)"PRESS RETURN"...2#.A$:.A $..G(13).9010....'.".. G R A F I X I N S T R U C T I O N S".C..'." ........... ..........................".I.$'....
> CLICK IMAGE PREVIEW FOR FULL MODAL