Willus.com
Home
|
Archive
|
About
GRAFICS.BAS
(1677 bytes)
EMULATE AS:
DEFAULT TYPE (BASIC)
|
CMD program
|
Program on Disk
|
2-Disk Debug
|
Disk Download
SHOW BELOW AS:
BASIC program
(download)
|
Text File
(download)
|
Z-80 Program
(download)
|
EDTASM File
(download)
|
Graphic
(download)
|
Hex File
(download)
|
SCRIPSIT File
(download)
Return to TRS-80 software list.
000000: FF 67 6A 01 00 93 20 49 4E 54 45 52 41 43 54 49 .gj... INTERACTI 000010: 56 45 20 4D 49 43 52 4F 57 41 52 45 2C 49 4E 43 VE MICROWARE,INC 000020: 2E 00 8F 6A 02 00 93 20 50 4F 20 42 4F 58 20 37 ...j... PO BOX 7 000030: 37 31 2C 53 54 41 54 45 20 43 4F 4C 4C 45 47 45 71,STATE COLLEGE 000040: 2C 50 41 20 31 36 38 30 31 00 A6 6A 03 00 93 20 ,PA 16801..j... 000050: 43 4F 4D 50 41 43 54 20 47 52 41 50 48 49 43 53 COMPACT GRAPHICS 000060: 00 DD 6A 04 00 93 20 4C 49 4E 45 53 20 31 30 2D ..j... LINES 10- 000070: 34 30 20 44 45 4D 4F 2E 50 47 4D 2F 4C 49 4E 45 40 DEMO.PGM/LINE 000080: 53 20 38 30 30 2D 38 37 36 20 43 47 20 53 55 42 S 800-876 CG SUB 000090: 52 4F 55 54 49 4E 45 00 EA 6A 05 00 8A 20 41 28 ROUTINE..j... A( 0000A0: 31 30 30 29 00 27 6B 0A 00 88 31 30 30 30 30 30 100).'k...100000 0000B0: 2C 32 31 30 30 30 30 2C 33 30 31 34 34 37 2C 35 ,210000,301447,5 0000C0: 31 30 37 34 37 2C 33 30 31 37 34 36 2C 38 30 30 10747,301746,800 0000D0: 30 36 38 2C 33 30 34 32 34 36 2C 38 30 30 30 36 068,304246,80006 0000E0: 38 00 64 6B 0C 00 88 33 30 36 38 34 36 2C 38 30 8.dk...306846,80 0000F0: 30 30 36 38 2C 33 30 39 33 34 36 2C 38 30 30 30 0068,309346,8000 000100: 36 38 2C 33 30 31 38 32 36 2C 35 31 30 33 32 36 68,301826,510326 000110: 2C 39 31 31 31 33 33 2C 33 33 33 33 39 30 00 A1 ,911133,333390.. 000120: 6B 0E 00 88 33 30 31 38 32 36 2C 39 31 31 31 37 k...301826,91117 000130: 37 2C 37 37 37 37 39 30 2C 35 30 36 30 31 36 2C 7,777790,506016, 000140: 39 33 39 30 30 30 2C 35 31 30 39 32 33 2C 33 30 939000,510923,30 000150: 34 38 31 38 2C 39 31 31 31 37 37 00 DE 6B 10 00 4818,911177..k.. 000160: 88 39 30 30 30 30 30 2C 35 30 37 35 31 35 2C 39 .900000,507515,9 000170: 37 37 35 35 39 2C 33 30 36 39 31 35 2C 35 30 36 77559,306915,506 000180: 39 30 39 2C 33 30 35 32 31 35 2C 35 30 35 32 30 909,305215,50520 000190: 39 2C 33 30 34 38 30 39 00 1B 6C 12 00 88 35 30 9,304809..l...50 0001A0: 37 33 30 39 2C 33 30 35 32 31 35 2C 39 33 33 31 7309,305215,9331 0001B0: 31 31 2C 32 33 34 35 35 35 2C 33 33 31 31 31 32 11,234555,331112 0001C0: 2C 33 34 35 35 35 33 2C 33 31 31 31 32 33 2C 34 ,345553,311123,4 0001D0: 35 35 35 39 30 00 58 6C 14 00 88 33 30 36 39 30 55590.Xl...30690 0001E0: 39 2C 39 31 31 31 38 38 2C 37 38 37 38 37 38 2C 9,911188,787878, 0001F0: 31 37 35 36 37 36 2C 37 36 37 36 36 35 2C 35 35 175676,767665,55 000200: 33 33 32 31 2C 32 32 32 33 31 33 2C 31 33 35 33 3321,222313,1353 000210: 35 33 00 95 6C 16 00 88 34 34 34 35 39 30 2C 33 53..l...444590,3 000220: 30 31 37 32 33 2C 38 30 30 30 38 30 2C 38 30 30 01723,800080,800 000230: 30 38 30 2C 38 30 30 30 38 30 2C 38 30 30 30 38 080,800080,80008 000240: 30 2C 38 30 30 30 38 30 2C 39 33 33 33 35 33 00 0,800080,933353. 000250: CD 6C 18 00 88 31 33 33 39 30 30 2C 30 2C 36 35 .l...133900,0,65 000260: 31 31 35 30 2C 39 37 39 30 30 30 2C 36 35 30 30 1150,979000,6500 000270: 33 31 2C 39 33 39 30 30 30 2C 36 34 38 39 35 30 31,939000,648950 000280: 2C 39 33 39 30 30 30 00 05 6D 1A 00 88 36 35 30 ,939000..m...650 000290: 30 36 39 2C 39 33 33 33 39 30 2C 36 35 30 30 33 069,933390,65003 0002A0: 31 2C 39 33 33 33 39 30 2C 36 35 30 30 36 39 2C 1,933390,650069, 0002B0: 30 2C 39 33 33 33 35 33 2C 31 33 33 33 35 33 00 0,933353,133353. 0002C0: 21 6D 1C 00 88 31 33 33 33 35 33 2C 31 33 33 33 !m...133353,1333 0002D0: 35 33 2C 31 39 30 30 30 30 2C 30 00 43 6D 1E 00 53,190000,0.Cm.. 0002E0: 81 49 D5 31 30 BD 38 35 3A B1 20 31 36 35 35 33 .I.10.85:. 16553 0002F0: 2C 32 35 35 3A 8B 41 28 49 29 3A 87 49 00 51 6D ,255:.A(I):.I.Qm 000300: 23 00 5A D5 31 30 3A 91 38 30 30 00 59 6D 28 00 #.Z.10:.800.Ym(. 000310: 8D 34 30 00 6A 6D 20 03 5A D5 5A CE 31 3A 41 28 .40.jm .Z.Z.1:A( 000320: 30 29 D5 30 00 7A 6D 22 03 41 28 30 29 D5 30 3A 0).0.zm".A(0).0: 000330: 91 38 36 36 00 A7 6D 24 03 A1 28 57 29 8D 38 30 .866..m$..(W).80 000340: 38 2C 38 31 30 2C 38 31 32 2C 38 31 34 2C 38 31 8,810,812,814,81 000350: 36 2C 38 31 38 2C 38 33 34 2C 38 33 36 2C 38 34 6,818,834,836,84 000360: 30 00 AD 6D 26 03 92 00 B8 6D 28 03 84 3A 8D 38 0..m&....m(..:.8 000370: 30 32 00 CD 6D 2A 03 91 38 36 38 3A 41 28 33 29 02..m*..868:A(3) 000380: D5 57 3A 8D 38 30 32 00 E3 6D 2C 03 91 38 37 36 .W:.802..m,..876 000390: 3A 58 D5 55 3A 59 D5 56 3A 8D 38 30 32 00 04 6E :X.U:Y.V:.802..n 0003A0: 2E 03 91 38 37 36 3A 58 D5 58 CD 55 CE 35 30 30 ...876:X.X.U.500 0003B0: 3A 59 D5 59 CD 56 CE 35 30 3A 8D 38 30 32 00 1E :Y.Y.V.50:.802.. 0003C0: 6E 30 03 91 38 37 36 3A 55 D5 55 CE 58 3A 56 D5 n0..876:U.U.X:V. 0003D0: 56 CE 59 3A 8D 38 32 30 00 36 6E 32 03 91 38 37 V.Y:.820.6n2..87 0003E0: 36 3A 55 D5 55 CE 35 30 30 3A 56 D5 56 CE 35 30 6:U.U.500:V.V.50 0003F0: 00 4D 6E 34 03 8F 41 28 33 29 D5 31 83 28 58 2C .Mn4..A(3).1.(X, 000400: 59 29 3A 8D 38 32 34 00 58 6E 36 03 82 28 58 2C Y):.824.Xn6..(X, 000410: 59 29 00 7A 6E 38 03 41 28 38 29 D5 D9 28 55 29 Y).zn8.A(8)..(U) 000420: 3A 8F 41 28 38 29 D6 D9 28 56 29 41 28 38 29 D5 :.A(8)..(V)A(8). 000430: D9 28 56 29 00 88 6E 3A 03 81 57 D5 31 BD 41 28 .(V)..n:..W.1.A( 000440: 38 29 00 A2 6E 3C 03 58 D5 58 CD 55 D0 41 28 38 8)..n<.X.X.U.A(8 000450: 29 3A 59 D5 59 CD 56 D0 41 28 38 29 00 B2 6E 3E ):Y.Y.V.A(8)..n> 000460: 03 8F 41 28 33 29 D5 30 8D 38 33 32 00 CD 6E 3F ..A(3).0.832..n? 000470: 03 83 28 58 CD 2E 30 31 2C 59 CD 2E 30 31 29 3A ..(X..01,Y..01): 000480: 87 57 3A 8D 38 33 33 00 E3 6E 40 03 82 28 58 CD .W:.833..n@..(X. 000490: 2E 30 31 2C 59 CD 2E 30 31 29 3A 87 57 00 02 6F .01,Y..01):.W..o 0004A0: 41 03 58 D5 D8 28 58 CD 2E 30 31 29 3A 59 D5 D8 A.X..(X..01):Y.. 0004B0: 28 59 CD 2E 30 31 29 3A 8D 38 30 32 00 16 6F 42 (Y..01):.802..oB 0004C0: 03 91 38 37 36 3A 5A D5 56 CE 31 3A 8D 38 30 32 ..876:Z.V.1:.802 0004D0: 00 31 6F 44 03 91 38 37 36 3A 41 28 34 29 D5 5A .1oD..876:A(4).Z 0004E0: 3A 5A D5 56 CE 31 3A 91 38 30 32 00 41 6F 46 03 :Z.V.1:.802.AoF. 0004F0: 5A D5 41 28 34 29 3A 8D 38 30 32 00 4A 6F 48 03 Z.A(4):.802.JoH. 000500: 91 38 36 36 00 77 6F 4A 03 A1 28 57 29 8D 38 34 .866.woJ..(W).84 000510: 36 2C 38 34 38 2C 38 35 30 2C 38 35 32 2C 38 35 6,848,850,852,85 000520: 34 2C 38 35 36 2C 38 35 38 2C 38 36 30 2C 38 30 4,856,858,860,80 000530: 32 00 7D 6F 4C 03 92 00 8C 6F 4E 03 59 D5 59 CE 2.}oL....oN.Y.Y. 000540: 31 3A 8D 38 36 32 00 A1 6F 50 03 58 D5 58 CD 31 1:.862..oP.X.X.1 000550: 3A 59 D5 59 CE 31 3A 8D 38 36 32 00 B0 6F 52 03 :Y.Y.1:.862..oR. 000560: 58 D5 58 CD 31 3A 8D 38 36 32 00 C5 6F 54 03 58 X.X.1:.862..oT.X 000570: D5 58 CD 31 3A 59 D5 59 CD 31 3A 8D 38 36 32 00 .X.1:Y.Y.1:.862. 000580: D4 6F 56 03 59 D5 59 CD 31 3A 8D 38 36 32 00 E9 .oV.Y.Y.1:.862.. 000590: 6F 58 03 58 D5 58 CE 31 3A 59 D5 59 CD 31 3A 8D oX.X.X.1:Y.Y.1:. 0005A0: 38 36 32 00 F8 6F 5A 03 58 D5 58 CE 31 3A 8D 38 862..oZ.X.X.1:.8 0005B0: 36 32 00 08 70 5C 03 58 D5 58 CE 31 3A 59 D5 59 62..p\.X.X.1:Y.Y 0005C0: CE 31 00 1F 70 5E 03 8F 41 28 33 29 D5 31 83 28 .1..p^..A(3).1.( 0005D0: 58 2C 59 29 3A 8D 38 34 30 00 2F 70 60 03 82 28 X,Y):.840./p`..( 0005E0: 58 2C 59 29 3A 8D 38 34 30 00 5B 70 62 03 8F 41 X,Y):.840.[pb..A 0005F0: 28 30 29 D6 D5 30 41 28 30 29 D5 36 3A 41 28 31 (0)..0A(0).6:A(1 000600: 29 D5 31 45 35 3A 5A D5 5A CD 31 3A 41 28 32 29 ).1E5:Z.Z.1:A(2) 000610: D5 41 28 5A 29 00 7F 70 64 03 57 D5 D8 28 41 28 .A(Z).pd.W..(A( 000620: 32 29 D0 41 28 31 29 29 3A 41 28 32 29 D5 41 28 2).A(1)):A(2).A( 000630: 32 29 CE 57 CF 41 28 31 29 00 9C 70 66 03 41 28 2).W.A(1)..pf.A( 000640: 31 29 D5 41 28 31 29 D0 31 30 3A 41 28 30 29 D5 1).A(1).10:A(0). 000650: 41 28 30 29 CE 31 00 A2 70 6A 03 92 00 CA 70 6C A(0).1..pj....pl 000660: 03 55 D5 D8 28 41 28 32 29 D0 31 30 30 29 3A 56 .U..(A(2).100):V 000670: D5 41 28 32 29 CE 31 30 30 CF 55 3A 41 28 30 29 .A(2).100.U:A(0) 000680: D5 30 3A 92 00 D0 70 6E 03 80 00 00 00 .0:...pn..... 9001 'RELOCATABLE Z-80 CODE 9002 POKE 16526,0:POKE 16527,256 9003 DEFINT A,I:READAD,AS:FORI=1TOAS:READAV:POKEAD+I-1,AV:NEXTI:RETURN 9004 DATA 0,-65536