home *** CD-ROM | disk | FTP | other *** search
/ FreeWare Collection 2 / FreeSoftwareCollection2pd199x-jp.img / kxc / ms_dos / tf02mini / tfxpr09.bas < prev    next >
BASIC Source File  |  1990-06-14  |  1KB  |  43 lines
  1. 990 DEFINT D
  2. 995 DIM DX(100),DY(100),DZ(100),DF(100)
  3. 1000 OPEN "R",#1,"1:(7)box1.TFX":CLS
  4. 1010 FIELD #1,7 AS A$
  5. 1015 I=0
  6. 1020 READ X,Y,Z,FLG
  7. 1022 DX(I)=X:DY(I)=Y:DZ(I)=Z:DF(I)=FLG
  8. 1024 IF DF(I)=2 IE=I ELSE I=I+1:GOTO 1020
  9. 1026 FOR J=100 TO 10 STEP -10
  10. 1027   FOR I=0 TO IE
  11. 1030     X=DX(I)*J/100+320:Y=DY(I)*J/100+200:Z=DZ(I)*J/100+200
  12. 1040     LINE -(X,Y),PSET,7
  13. 1050     B$=CHR$(X MOD 256)+CHR$(X\256)
  14. 1060     B$=B$+CHR$(Y MOD 256)+CHR$(Y\256)
  15. 1070     B$=B$+CHR$(Z MOD 256)+CHR$(Z\256)
  16. 1075     FLG=DF(I)
  17. 1076     IF FLG=2 THEN IF J=10 ELSE FLG=1
  18. 1080     B$=B$+CHR$(FLG)
  19. 1090     LSET A$=B$:PUT #1
  20. 1102   NEXT
  21. 1104 NEXT
  22. 1110 CLOSE #1
  23. 1120 DATA  100, 100, 100,0
  24. 1130 DATA  100,-100, 100,0
  25. 1140 DATA  100,-100,-100,0
  26. 1150 DATA  100, 100,-100,0
  27. 1160 DATA  100, 100, 100,1
  28. 1170 DATA -100, 100, 100,0
  29. 1180 DATA -100,-100, 100,0
  30. 1190 DATA -100,-100,-100,0
  31. 1200 DATA -100, 100,-100,0
  32. 1210 DATA -100, 100, 100,1
  33. 1220 DATA -100, 100, 100,0
  34. 1230 DATA  100, 100, 100,1
  35. 1240 DATA -100,-100, 100,0
  36. 1250 DATA  100,-100, 100,1
  37. 1260 DATA -100,-100,-100,0
  38. 1270 DATA  100,-100,-100,1
  39. 1280 DATA -100, 100,-100,0
  40. 1290 DATA  100, 100,-100,1
  41. 1300 DATA -100, 100, 100,0
  42. 1310 DATA  100, 100, 100,2
  43.