home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / TEST / TEMPOCALC.bas < prev    next >
BASIC Source File  |  2020-08-13  |  1KB  |  33 lines
  1. 10  DIM X(256),Y(256),Z(256)
  2. 20000  DEF  FN T(A) = .4889 *(26 +27 *A +5 *A *A)
  3. 20010  FOR I = 0 TO 255
  4. 20020 N =  INT( FN T(I))
  5. 20040 H =  INT(N/65536)
  6. 20050 M =  INT((N -(H *65536))/256)
  7. 20060 L = N -H *65536 -M *256
  8. 20070  PRINT I"  "N"  "H"  "M"  "L
  9. 20080 X(I) = H:Y(I) = M:Z(I) = L
  10. 20090  NEXT 
  11. 20100  PRINT  CHR$(4)"OPEN TEMPOVAL.TXT": PRINT  CHR$(4)"WRITE TEMPOVAL.TXT"
  12. 21000  PRINT "TEMPOHI  DFB ";
  13. 21010  FOR I = 0 TO 240  STEP 16
  14. 21020  FOR J = 0 TO 15
  15. 21030  PRINT X(I +J);: IF J <15  THEN  PRINT ",";
  16. 21040  NEXT J
  17. 21045  PRINT : PRINT "             ";
  18. 21050  NEXT I
  19. 22000  PRINT : PRINT "TEMPOMID DFB ";
  20. 22010  FOR I = 0 TO 240  STEP 16
  21. 22020  FOR J = 0 TO 15
  22. 22030  PRINT Y(I +J);: IF J <15  THEN  PRINT ",";
  23. 22040  NEXT J
  24. 22045  PRINT : PRINT "             ";
  25. 22050  NEXT I
  26. 23000  PRINT : PRINT "TEMPOLO  DFB ";
  27. 23010  FOR I = 0 TO 240  STEP 16
  28. 23020  FOR J = 0 TO 15
  29. 23030  PRINT Z(I +J);: IF J <15  THEN  PRINT ",";
  30. 23040  NEXT J
  31. 23045  PRINT : PRINT "             ";
  32. 23050  NEXT I
  33. 24000  PRINT  CHR$(4)"CLOSE"