home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FreeWare Collection 2
/
FreeSoftwareCollection2pd199x-jp.img
/
kxc
/
ms_dos
/
tf02mini
/
tfxpr09.bas
< prev
next >
Wrap
BASIC Source File
|
1990-06-14
|
1KB
|
43 lines
990 DEFINT D
995 DIM DX(100),DY(100),DZ(100),DF(100)
1000 OPEN "R",#1,"1:(7)box1.TFX":CLS
1010 FIELD #1,7 AS A$
1015 I=0
1020 READ X,Y,Z,FLG
1022 DX(I)=X:DY(I)=Y:DZ(I)=Z:DF(I)=FLG
1024 IF DF(I)=2 IE=I ELSE I=I+1:GOTO 1020
1026 FOR J=100 TO 10 STEP -10
1027 FOR I=0 TO IE
1030 X=DX(I)*J/100+320:Y=DY(I)*J/100+200:Z=DZ(I)*J/100+200
1040 LINE -(X,Y),PSET,7
1050 B$=CHR$(X MOD 256)+CHR$(X\256)
1060 B$=B$+CHR$(Y MOD 256)+CHR$(Y\256)
1070 B$=B$+CHR$(Z MOD 256)+CHR$(Z\256)
1075 FLG=DF(I)
1076 IF FLG=2 THEN IF J=10 ELSE FLG=1
1080 B$=B$+CHR$(FLG)
1090 LSET A$=B$:PUT #1
1102 NEXT
1104 NEXT
1110 CLOSE #1
1120 DATA 100, 100, 100,0
1130 DATA 100,-100, 100,0
1140 DATA 100,-100,-100,0
1150 DATA 100, 100,-100,0
1160 DATA 100, 100, 100,1
1170 DATA -100, 100, 100,0
1180 DATA -100,-100, 100,0
1190 DATA -100,-100,-100,0
1200 DATA -100, 100,-100,0
1210 DATA -100, 100, 100,1
1220 DATA -100, 100, 100,0
1230 DATA 100, 100, 100,1
1240 DATA -100,-100, 100,0
1250 DATA 100,-100, 100,1
1260 DATA -100,-100,-100,0
1270 DATA 100,-100,-100,1
1280 DATA -100, 100,-100,0
1290 DATA 100, 100,-100,1
1300 DATA -100, 100, 100,0
1310 DATA 100, 100, 100,2