home *** CD-ROM | disk | FTP | other *** search
/ Between Heaven & Hell 2 / BetweenHeavenHell.cdr / 100 / 31 / casreel.bas < prev    next >
BASIC Source File  |  1983-05-05  |  3KB  |  52 lines
  1. 10000 DEFINT N,M:COLOR 7,0:KEY OFF:SCREEN O,O,O:WIDTH 80:WIDTH "LPT1:",255
  2. 10100 CLS:PRINT "CAS-REEL.BAS  (C) 1983 by Michael Csontos, 3228 Livonia Ctr. Rd., Lima, NY 14485"
  3. 10200 PRINT "The purpose of this program is to provide timing information for transfers of   recorded material from reel-to-reel audio tape masters to compact-cassettes.":PRINT
  4. 10250 PRINT "With the screen display you may watch the footage information scroll by, press  <Ctrl>+<NumLock> to stop at the area of interest, then press <shift+<PrtSc> to  twice rapidly obtain a  hard copy.":PRINT
  5. 10300 PRINT "If you choose OUTPUT TO PRINTER you will get five pages of tables of footages vs number of cassettes.":PRINT
  6. 10400 PRINT "The motivation for writing this program was the frustration of repeatedly       mislaying calculator programs and handwritten tables of this information. In    debugging this program, enough tables were generated to place everywhere they"
  7. 10500 PRINT "might be sought.":PRINT
  8. 10600 INPUT "OUTPUT TO PRINTER (Y/N)";P$
  9. 10700 IF P$="Y" OR P$="y" THEN P=1:GOTO 10900
  10. 10800 IF P$="N" OR P$="n" THEN P=0 ELSE PRINT "PLEASE ANSWER y,Y OR N,n!":GOTO 10600
  11. 10900 IF P THEN LPRINT CHR$(27)CHR$(64)CHR$(15)CHR$(27)CHR$(68)CHR$(18)CHR$(36)CHR$(54)CHR$(72)CHR$(90)CHR$(108)CHR$(126)CHR$(0);
  12. 11000 FOR M=1 TO 5
  13. 11100 READ SPEED$,SPEED
  14. 11200 R=CSRLIN:C=POS(0):LOCATE 25,1:COLOR 0,7:
  15. 11300 PRINT "        TAPE SPEED " SPEED$ " INCHES PER SECOND           ";
  16. 11400 COLOR 7,0:LOCATE R,C
  17. 11500 IF P THEN LPRINT CHR$(14) "CONVERSION TABLE FOR REEL-TO-REEL TAPE TO CASSETTES"
  18. 11600 IF P THEN LPRINT CHR$(14) "REEL TAPE SPEED " SPEED$ " INCHES PER SECOND":LPRINT
  19. 11700 PRINT "LENGTH   TIME   "
  20. 11800 IF P THEN LPRINT "LENGTH"CHR$(9)"TIME"
  21. 11900 FOR N=100 TO 5000 STEP 100
  22. 12000 COLOR 15,0
  23. 12100 PRINT N "FEET";
  24. 12200 IF P THEN LPRINT N "FEET";
  25. 12300 TIM=((N*12)/(SPEED))/60
  26. 12400 PRINT INT(TIM) "MINUTES",;
  27. 12500 COLOR 7,0
  28. 12600 IF P THEN LPRINT CHR$(9) INT(TIM) "MINUTES";
  29. 12700 CAS=TIM/30
  30. 12800 PRINT INT(CAS) "C30 CASETTES",;
  31. 12900 IF P THEN LPRINT CHR$(9) INT(CAS) "C30 CASETTES";
  32. 13000 CAS=TIM/60
  33. 13100 PRINT INT(CAS) "C60 CASETTES",;
  34. 13200 IF P THEN LPRINT CHR$(9) INT(CAS) "C60 CASETTES";
  35. 13300 CAS=TIM/90
  36. 13400 PRINT INT(CAS) "C90 CASETTES",;
  37. 13500 IF P THEN LPRINT CHR$(9) INT(CAS) "C90 CASETTES";
  38. 13600 CAS=TIM/120
  39. 13700 PRINT INT(CAS) "C120 CASETTES",;
  40. 13800 IF P THEN LPRINT CHR$(9) INT(CAS) "C120 CASETTES";
  41. 13900 CAS=TIM/180
  42. 14000 PRINT INT(CAS) "C180 CASETTES":PRINT
  43. 14100 IF P THEN LPRINT CHR$(9) INT(CAS) "C180 CASETTES"
  44. 14200 NEXT N
  45. 14300 IF P THEN LPRINT CHR$(12);
  46. 14400 NEXT M
  47. 14500 KEY ON:END
  48. 14600 DATA "15/16",.9375,"1-7/8",1.875,"3-4/4",3.75,"7-1/2",7.5,"15",15
  49. 14700 '   SAVE"CAS-REEL",A
  50. NEXT M
  51. 14500 KEY ON:END
  52. 14600 DATA "15/16",.9375,"1-7/8",1.875,"3-4/4",3