100 PRINT CHR$(26);
110 PRINT"Please ready printer!":PRINT
120 INPUT"NEED TO CONVERT TO STANDARD HOURS [Y/N] ?",A$
130 PRINT
140 IF A$="Y" OR A$="y" THEN GOSUB 440 ELSE 160
150 PRINT
160 INPUT"Maximum System File Size?  ",S
170 PRINT
180 INPUT"        KILOBYTES XFR'D ?  ",A
190 INPUT"        XFR TIME (HOURS)?  ",B
200 PRINT
210 C=B/A
220 TS3=C*3600:TM3=C*60
230 INPUT"S to Start - K to Kill:    ",K$
240 IF K$="S" OR K$="s" THEN 260 ELSE 250
250 IF K$="K" OR K$="k" THEN END ELSE 260
260 IF K$=CHR$(3) THEN END ELSE 270
270 LPRINT"LISTING HOURS DATA ":LPRINT
280 FOR I=0 TO S STEP 10:LPRINT USING"##### ";I;
290 LPRINT USING"####.##";C*I;
300 LPRINT"  Hours"
310 NEXT I:LPRINT
320 LPRINT"LISTING MINUTES DATA":LPRINT
330 FOR I=0 TO S STEP 10:LPRINT USING"##### ";I;
340 LPRINT USING"####.##";TM3*I;
350 LPRINT"  Minutes"
360 NEXT I:LPRINT
370 LPRINT"LISTING SECONDS DATA":LPRINT
380 FOR I=0 TO S STEP 10:LPRINT USING"##### ";I;
390 LPRINT USING"####.##";TS3*I;
400 LPRINT"  Seconds"
410 NEXT I:LPRINT
420 PRINT"END OF RUN":LPRINT:LPRINT"END OF RUN"
430 END
440 PRINT:INPUT"Hours, Minutes, Seconds ? ",X,Y,Z
450 PRINT
460 STH=X+(Y/60)+(Z/3600)
470 IF Y>60 OR Z>60 THEN 440
480 PRINT:PRINT
490 PRINT"Standard Hours are: ";
500 PRINT USING"###.###";STH
510 PRINT
520 RETURN