home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / sysutl / clock.arc / HANDSGEN.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-12-21  |  697 b   |  28 lines
  1. 100  REM ******************************************************* HANDSGEN.BAS
  2. 101  REM * GENERATES TABLES FOR CLOCK HANDS
  3. 110  REM ********************************************************************
  4. 200  DEFINT A-Q, S-Z
  5. 500  OPEN "E:HANDSGEN.TAB" FOR OUTPUT AS #1
  6. 1000  FOR HAND = 0 TO 7
  7. 1100  RANGLE = (360/60) * HAND * (3.14159/180)
  8. 1150  PRINT #1,TAB(16);"/*--- hand entry #";HAND;" ---*/"
  9. 1200  RMULTI = TAN (RANGLE)
  10. 1250  POSITION = 0
  11. 1300  FOR I = 0 TO 100
  12. 1400  POSITION = POSITION + 12
  13. 1500  RCOL = 160 + (I * RMULTI)
  14. 1700  IROW = 100 - I
  15. 1800  ICOL = RCOL
  16. 1900  PRINT #1, TAB(POSITION);
  17. 2000  PRINT #1, USING "###_,";IROW;ICOL;
  18. 2012  PRINT #1, "1,";
  19. 2020  IF POSITION < 60 GOTO 2090
  20. 2024  PRINT #1," "
  21. 2030  POSITION = 0
  22. 2090  REM
  23. 2900  NEXT I
  24. 3100  NEXT HAND
  25. 8900  CLOSE #1
  26. 9000  END
  27. 9999  SAVE "E:HANDSGEN.BAS"
  28.