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.
1 REM INTERACTIVE MICROWARE,INC. 2 REM PO BOX 771,STATE COLLEGE,PA 16801 3 REM COMPACT GRAPHICS 4 REM LINES 10-40 DEMO.PGM/LINES 800-876 CG SUBROUTINE 5 DIM A(100) 10 DATA100000,210000,301447,510747,301746,800068,304246,800068 12 DATA306846,800068,309346,800068,301826,510326,911133,333390 14 DATA301826,911177,777790,506016,939000,510923,304818,911177 16 DATA900000,507515,977559,306915,506909,305215,505209,304809 18 DATA507309,305215,933111,234555,331112,345553,311123,455590 20 DATA306909,911188,787878,175676,767665,553321,222313,135353 22 DATA444590,301723,800080,800080,800080,800080,800080,933353 24 DATA133900,0,651150,979000,650031,939000,648950,939000 26 DATA650069,933390,650031,933390,650069,0,933353,133353 28 DATA133353,133353,190000,0 30 FORI=10TO85:POKE 16553,255:READA(I):NEXTI 35 Z=10:GOSUB800 40 GOTO40 800 Z=Z-1:A(0)=0 802 A(0)=0:GOSUB866 804 ON(W)GOTO808,810,812,814,816,818,834,836,840 806 RETURN 808 CLS:GOTO802 810 GOSUB868:A(3)=W:GOTO802 812 GOSUB876:X=U:Y=V:GOTO802 814 GOSUB876:X=X+U-500:Y=Y+V-50:GOTO802 816 GOSUB876:U=U-X:V=V-Y:GOTO820 818 GOSUB876:U=U-500:V=V-50 820 IFA(3)=1SET(X,Y):GOTO824 822 RESET(X,Y) 824 A(8)=ABS(U):IFA(8)<ABS(V)A(8)=ABS(V) 826 FORW=1TOA(8) 828 X=X+U/A(8):Y=Y+V/A(8) 830 IFA(3)=0GOTO832 831 SET(X+.01,Y+.01):NEXTW:GOTO833 832 RESET(X+.01,Y+.01):NEXTW 833 X=INT(X+.01):Y=INT(Y+.01):GOTO802 834 GOSUB876:Z=V-1:GOTO802 836 GOSUB876:A(4)=Z:Z=V-1:GOSUB802 838 Z=A(4):GOTO802 840 GOSUB866 842 ON(W)GOTO846,848,850,852,854,856,858,860,802 844 RETURN 846 Y=Y-1:GOTO862 848 X=X+1:Y=Y-1:GOTO862 850 X=X+1:GOTO862 852 X=X+1:Y=Y+1:GOTO862 854 Y=Y+1:GOTO862 856 X=X-1:Y=Y+1:GOTO862 858 X=X-1:GOTO862 860 X=X-1:Y=Y-1 862 IFA(3)=1SET(X,Y):GOTO840 864 RESET(X,Y):GOTO840 866 IFA(0)<=0A(0)=6:A(1)=1E5:Z=Z+1:A(2)=A(Z) 868 W=INT(A(2)/A(1)):A(2)=A(2)-W*A(1) 870 A(1)=A(1)/10:A(0)=A(0)-1 874 RETURN 876 U=INT(A(2)/100):V=A(2)-100*U:A(0)=0:RETURN 878 END