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.
gj INTERACTIVE MICROWARE,INC. j PO BOX 771,STATE COLLEGE,PA 16801 j COMPACT GRAPHICS j LINES 10-40 DEMO.PGM/LINES 800-876 CG SUBROUTINE j A(100) 'k 100000,210000,301447,510747,301746,800068,304246,800068 dk 306846,800068,309346,800068,301826,510326,911133,333390 k 301826,911177,777790,506016,939000,510923,304818,911177 k 900000,507515,977559,306915,506909,305215,505209,304809 l 507309,305215,933111,234555,331112,345553,311123,455590 Xl 306909,911188,787878,175676,767665,553321,222313,135353 l 444590,301723,800080,800080,800080,800080,800080,933353 l 133900,0,651150,979000,650031,939000,648950,939000 m 650069,933390,650031,933390,650069,0,933353,133353 !m 133353,133353,190000,0 Cm I1085: 16553,255:A(I):I Qm# Z10:800 Ym( 40 jm ZZ1:A(0)0 zm"A(0)0:866 m$(W)808,810,812,814,816,818,834,836,840 m& m(:802 m*868:A(3)W:802 m,876:XU:YV:802 n.876:XXU500:YYV50:802 n0876:UUX:VVY:820 6n2876:UU500:VV50 Mn4A(3)1(X,Y):824 Xn6(X,Y) zn8A(8)(U):A(8)(V)A(8)(V) n:W1A(8) n<XXUA(8):YYVA(8) n>A(3)0832 n?(X.01,Y.01):W:833 n@(X.01,Y.01):W oAX(X.01):Y(Y.01):802 oB876:ZV1:802 1oD876:A(4)Z:ZV1:802 AoFZA(4):802 JoH866 woJ(W)846,848,850,852,854,856,858,860,802 }oL oNYY1:862 oPXX1:YY1:862 oRXX1:862 oTXX1:YY1:862 oVYY1:862 oXXX1:YY1:862 oZXX1:862 p\XX1:YY1 p^A(3)1(X,Y):840 /p`(X,Y):840 [pbA(0)0A(0)6:A(1)1E5:ZZ1:A(2)A(Z) pdW(A(2)A(1)):A(2)A(2)WA(1) pfA(1)A(1)10:A(0)A(0)1 pj plU(A(2)100):VA(2)100U:A(0)0: pn