10100 CLS:PRINT "CAS-REEL.BAS (C) 1983 by Michael Csontos, 3228 Livonia Ctr. Rd., Lima, NY 14485"
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
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
10300 PRINT "If you choose OUTPUT TO PRINTER you will get five pages of tables of footages vs number of cassettes.":PRINT
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"
10500 PRINT "might be sought.":PRINT
10600 INPUT "OUTPUT TO PRINTER (Y/N)";P$
10700 IF P$="Y" OR P$="y" THEN P=1:GOTO 10900
10800 IF P$="N" OR P$="n" THEN P=0 ELSE PRINT "PLEASE ANSWER y,Y OR N,n!":GOTO 10600
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);
11000 FOR M=1 TO 5
11100 READ SPEED$,SPEED
11200 R=CSRLIN:C=POS(0):LOCATE 25,1:COLOR 0,7:
11300 PRINT " TAPE SPEED " SPEED$ " INCHES PER SECOND ";
11400 COLOR 7,0:LOCATE R,C
11500 IF P THEN LPRINT CHR$(14) "CONVERSION TABLE FOR REEL-TO-REEL TAPE TO CASSETTES"
11600 IF P THEN LPRINT CHR$(14) "REEL TAPE SPEED " SPEED$ " INCHES PER SECOND":LPRINT
11700 PRINT "LENGTH TIME "
11800 IF P THEN LPRINT "LENGTH"CHR$(9)"TIME"
11900 FOR N=100 TO 5000 STEP 100
12000 COLOR 15,0
12100 PRINT N "FEET";
12200 IF P THEN LPRINT N "FEET";
12300 TIM=((N*12)/(SPEED))/60
12400 PRINT INT(TIM) "MINUTES",;
12500 COLOR 7,0
12600 IF P THEN LPRINT CHR$(9) INT(TIM) "MINUTES";
12700 CAS=TIM/30
12800 PRINT INT(CAS) "C30 CASETTES",;
12900 IF P THEN LPRINT CHR$(9) INT(CAS) "C30 CASETTES";
13000 CAS=TIM/60
13100 PRINT INT(CAS) "C60 CASETTES",;
13200 IF P THEN LPRINT CHR$(9) INT(CAS) "C60 CASETTES";
13300 CAS=TIM/90
13400 PRINT INT(CAS) "C90 CASETTES",;
13500 IF P THEN LPRINT CHR$(9) INT(CAS) "C90 CASETTES";
13600 CAS=TIM/120
13700 PRINT INT(CAS) "C120 CASETTES",;
13800 IF P THEN LPRINT CHR$(9) INT(CAS) "C120 CASETTES";
13900 CAS=TIM/180
14000 PRINT INT(CAS) "C180 CASETTES":PRINT
14100 IF P THEN LPRINT CHR$(9) INT(CAS) "C180 CASETTES"
14200 NEXT N
14300 IF P THEN LPRINT CHR$(12);
14400 NEXT M
14500 KEY ON:END
14600 DATA "15/16",.9375,"1-7/8",1.875,"3-4/4",3.75,"7-1/2",7.5,"15",15