Rem Input A Drill From Tape

2510 TITLE$="INPUT A DRILL":GOSUB500

2520 PRINTTABC5)"ENTER THE TITLE OF THE DRILL YOU WANT" 2530 FRINTTABC5)"AND THE PROGRAM WILL SEARCH FOR IT" 2540 PRINTTAB(5)"IF YOU JUST WANT THE NEXT DRILL ON TAPE" 2550 PRINTTAB(5)"THEN JUST PRESS ENTER" 2560 PRINT:PRINTTABC5)"TITLE: "?:GOSUB350:A*=IN$

iPRINT:PRINTTAB(S)"A TAPE READ CAN BE ABORTED BY PRESSING" :PRINTTAB(5)"'Q' WHILE SKIPPING A FILE":GOSUB700:GOSUB700 2570 GOSUB560:GOSUB500

2580 INPUT#-1,H*,N:PRINT"TITLE: ";H$5" QUESTIONS: ";N O, 2590 IF (A$ <> "") THEN I FA* < > H*THEN w . GOSUB440:IFFLAG=0THEN2580ELSERETURN

2600 PRINT"FILE ";H*;" FOUND"

s PRINT3896,USINGF4$51,N:NEXTI 2G20 RETURN

0 0

Post a comment