Rem Enter Or Edit A Drill

1010 TITLE$="ENTER OR EDIT":GOSUB500

!IFH$<>""THENPRINT"THE CURRENT TITLE IS: ";H$ 1020 PRINTTABC5)"TITLE FOR THE EXERCISE! ";:GOSUB350:A$=IN* 1030 IFA$< >""THENH$=A* 1040 F0RI=1T0MX 1050 GOSUB500

1060 PRINTTABC5)"PRESS ENTER TO KEEP THE SAME KEYWORD" 1070 PRINTTABC5)"OR RESPONSE":PRINT:PRINT

1080 A$= IFA$(I,1)<>""THENPRINT"PRESENT KEYWORD IS: ";A$CI,1>

1090 PRINT"ENTER KEYWORD FOR DRILL OR END: ";:GOSUB350:A*=IN* :PRINT

1100 IFA$<>""THENAR(Ij1)=A$ 1110 IFA$CI»1)="END"THEN1160

1120 A$="":IFA$C1» 2)<>""THENPRINT"PRESENT RESPONSE ISs MSft«CI»2) 1130 PRINT"ENTER CORRECT RESPONSE: ";:GOSUB350:A$=IN$:PRINT 1140 IFA*<> ""THENA$a, 2)=A$ 1150 NEXTI

11E0 IFA$(I, 1) = "END"THENI = I-1 1170 N=l:RETURN

0 0

Post a comment