140 CLEAR1000:DIMA(100):CLS 150 INPUT"NAME OF FILE:";F$ 160 TF$=RIGHT$(F$,1) 170 INPUT"Do you wish to , , or :";ZZ$ 180 IFLEFT$(ZZ$,1)="R"THEN560 190 IFLEFT$(ZZ$,1)="W"THEN220 200 IFLEFT$(ZZ$,1)="E"THEN1720 210 PRINT"Try a listed option":PRINT@64,"";:GOTO170 220 GOSUB1540:N=LOF(1):CLOSE 230 PRINT"You have";N;" records stored on disk" 240 GOSUB1570 250 N=N+1 260 CLS:PRINT"Item #:";N 270 IFTF$="C"THEN340 280 IF(TF$="M")OR(TF$="A")OR(TF$="F")THEN460 310 PRINT:PRINT"Another item (Y or N):?":GOSUB2070 320 IFYN$="Y"THEN250 330 GOSUB2680 340 ' 350 LINEINPUT"TEXT:";B$ 360 INPUT"Letter of correct answer:";C$ 370 INPUT"Chapter number (if not applicable, type 0):";D 380 PRINT:PRINT"Is item okay for storage (Y or N):":GOSUB2070 390 IFYN$="N"THEN260 400 GOSUB1540:GOSUB1550 410 LSETT$=B$ 420 LSETL$=C$:LSETCN$=MKI$(D) 430 PUT1,N 440 CLOSE 450 GOTO310 460 ' 470 LINEINPUT"TEXT:";B$ 480 INPUT"Correct answer:";A$ 490 PRINT:PRINT"Is item okay for storage (Y or N):":GOSUB2070 500 IFYN$="N"THEN260 510 GOSUB1540:GOSUB1560 520 LSETT$=B$:LSETAN$=A$ 530 PUT1,N 540 CLOSE 550 GOTO310 560 ' 570 CLS:PRINT"Please enter the type of read wanted" 580 INPUT", , or :";TR$ 590 IFLEFT$(TR$,2)="DU"THEN630 600 IFLEFT$(TR$,2)="LD"THEN850 610 IFLEFT$(TR$,2)="LP"THEN1070 620 PRINT"Please choose a listed option":PRINT@64,"";:GOTO580 630 CLS:PRINTF$ 640 GOSUB1540:N=LOF(1):CLOSE 650 IFTF$="C"THEN750 660 FORI=1TON 670 PRINTI;") "; 680 GOSUB1540:GOSUB1560:GET1,I:CLOSE 690 GOSUB1580 700 PRINT"ANS: ";AN$ 710 IFI/5=INT(I/5)THENINPUT"Press ENTER";Z$:CLS 720 NEXTI 730 PRINT:INPUT"End of File--Press ENTER to continue";Z$ 740 GOSUB2680 750 FORI=1TON 760 PRINTI;") "; 770 GOSUB1540:GOSUB1550:GET1,I:CLOSE 780 GOSUB1580 800 PRINT"Answer--";L$,"Chapter #";D 810 IFI/2=INT(I/2)THENINPUT"Press ENTER";Z$:CLS 820 NEXTI 830 PRINT:INPUT"End of File--Press ENTER to continue";Z$ 840 GOSUB2680 850 ' 860 GOSUB1640 870 LPRINTF$ 880 GOSUB1540:N=LOF(1):CLOSE 890 IFTF$="C"THEN980 900 FORI=1TON 910 LPRINTI;") "; 920 GOSUB1540:GOSUB1560:GET1,I:CLOSE 930 GOSUB1610 940 LPRINTTAB(55)"Answer: ";AN$ 950 IFI/30=INT(I/30)THENLPRINTCHR$(12):LPRINTF$:LPRINT" " 960 NEXTI 970 GOSUB2680 980 FORI=1TON 990 LPRINTI;") "; 1000 GOSUB1540:GOSUB1550:GET1,I:CLOSE 1010 D=CVI(CN$) 1020 GOSUB1610 1030 LPRINT"Answer--";L$,"Chapter #--";D:LPRINT" " 1040 IFI/8=INT(I/8)THENLPRINTCHR$(12):LPRINTF$ 1050 NEXTI 1060 GOTO2680 1070 ' 1080 CLS:INPUT"How many test items do you need:";NN 1090 FORI=1TONN 1100 PRINT"Input record #:";I; 1110 INPUTA(I) 1120 NEXTI 1130 GOSUB1640 1140 CLS:PRINT"Is this part of a larger test (Y or N):":GOSUB2070 1150 IFYN$="Y"INPUT"What is the part number:";D8 1160 INPUT"Is there a separate answer sheet (Y or N):";AS$ 1170 IFYN$="Y"THENLPRINT"PART";D8;") "; 1180 IFTF$="C"THEN1200 1190 GOTO1370 1200 ' 1210 IFLEFT$(A$,1)<>"Y"THEN1250 1220 LPRINT"On the answer sheet circle the letter of the" 1230 LPRINTTAB(8)"coorect answer for each." 1240 GOTO1270 1250 LPRINT"Insert in the parentheses the letter of the" 1255 LPRINTTAB(8)"correct answer for each." 1260 LPRINT" " 1270 FORI=1TONN 1290 LPRINTI;") "; 1300 GOSUB1540:GOSUB1550:GET1,A(I):CLOSE 1310 GOSUB1610 1320 IFLEFT$(AS$,1)<>"Y"LPRINTTAB(50)I;") ( )" 1330 IFI/8=INT(I/8)LPRINTCHR$(12):GOTO1350 1340 LPRINT" " 1350 NEXTI 1360 GOSUB2680 1370 ' 1380 IFLEFT$(AS$,1)<>"Y"THEN1420 1390 LPRINT"On the answer sheet place the proper answer for each" 1400 LPRINTTAB(8)"question in the proper blank." 1410 GOTO1440 1420 LPRINT"Place in the parentheses the proper answer for" 1430 LPRINTTAB(8)"each question." 1440 LPRINT" " 1450 FORI=1TONN 1460 LPRINTI;") "; 1470 GOSUB1540:GOSUB1560:GET1,A(I):CLOSE 1480 GOSUB1610 1490 IFLEFT$(AS$,1)<>"Y"THENLPRINTTAB(60)I;") ( )":GOTO1510 1500 LPRINT" " 1510 PK=PEEK(16425):IFPK>60THENLPRINTCHR$(12) 1520 NEXTI 1530 GOTO2680 1540 OPEN"R",1,F$:RETURN 1550 FIELD1,2AS CN$,1ASL$,253AST$:RETURN 1560 FIELD1,200AST$,20ASAN$:RETURN 1570 FORWT=1TO1200:NEXTWT:RETURN 1580 LS=INSTR(T$," ") 1590 IFLS<>0THENM$=LEFT$(T$,LS)ELSEM$=T$ 1600 PRINTM$:RETURN 1610 LS=INSTR(T$," ") 1620 IFLS<>0THENM$=LEFT$(T$,LS)ELSEM$=T$ 1630 LPRINTM$:RETURN 1640 ' 1650 CLS:PRINT"Press any key when printer is ready" 1660 IFINKEY$=""THEN1660 1680 POKE16425,1 1690 CLS:PRINT"Position paper at top of page" 1700 INPUT"Press ENTER when ready";ZM$ 1710 RETURN 1720 ' 1730 INPUT"Item number:";V:M$="" 1740 IFTF$="C"THEN1760 1750 GOSUB1540:GOSUB1560:GET1,V:CLOSE:GOTO2170 1760 GOSUB1540:GOSUB1550:GET1,V 1770 D=CVI(CN$):CLOSE 1780 PRINTT$ 1790 PRINT"Ans--";L$,"Chapt #--";D 1800 PRINT"Is item okay (Y or N):":GOSUB2070 1810 IFYN$="Y"THEN2490 1820 PRINT"Indicate the type of edit wanted" 1830 INPUT", , or :";E$ 1840 IFLEFT$(E$,1)="T"THEN1960 1850 IFLEFT$(E$,1)="I"THENPRINT"Do others first":PRINT 1860 PRINT"Indicate or make the correction" 1870 PRINT"Ans--";L$;:INPUT" OK";OK$ 1880 IFOK$<>"OK"LSETL$=OK$ 1890 PRINT"Chapt #--";D;:INPUT" OK";OK$ 1900 IFOK$<>"OK"THEND=VAL(OK$):LSETCN$=MKI$(D) 1910 GOSUB1540 1920 IFTF$="C"THENGOSUB1550ELSEGOSUB1560 1930 PUT1,V:CLOSE 1940 IFLEFT$(E$,1)<>"I"THEN2490 1950 ' 1960 PRINT"Text correction:":INPUT" or :";FR$ 1970 IFLEFT$(FR$,1)="F"THEN2120 1980 LINEINPUT"Text:";B$ 1990 PRINT:PRINT"Okay for storage (Y or N):":GOSUB2070 2000 IFYN$="Y"THEN2040 2010 PRINT"Another try (Y or N):":GOSUB2070 2020 IFYN$="Y"THEN1980 2030 GOTO2490 2040 GOSUB1540:GOSUB1550 2050 LSETT$=B$:PUT1,V:CLOSE 2060 GOTO2490 2070 ' 2080 YN$=INKEY$:IFYN$=""THEN2080 2090 IF(YN$<>"Y")AND(YN$<>"N")THEN2080 2100 RETURN 2110 ' 2120 LS=INSTR(T$," "):GOSUB2320 2130 GOSUB1540:GOSUB1550 2140 LSETT$=M$:PUT1,V 2150 CLOSE 2160 GOTO2490 2170 ' 2180 PRINTT$ 2190 PRINTAN$ 2200 INPUT"Is answer okay:";YN$ 2210 IFLEFT$(YN$,1)="Y"THEN2240 2220 INPUT"New answer:";A$ 2230 GOSUB1540:GOSUB1560:LSETAN$=A$:PUT1,V:CLOSE 2240 PRINT"Is text okay (Y or N):":GOSUB2070 2250 IFYN$="Y"THEN2300 2260 LS=INSTR(T$," "):GOSUB2320 2270 GOSUB1540:GOSUB1560 2280 LSETT$=M$:PUT1,V 2290 CLOSE 2300 GOTO2490 2310 LS=INSTR(T$," ") 2320 FORII=1TOLS 2330 A$=MID$(T$,II,1) 2340 IF(I$="@")OR(I$="X")THEN2440 2350 IFII=1THENPRINT"*"; 2360 I$=INKEY$ 2370 IFI$=""THEN2360 2380 IFI$=" "THEN2440 2390 IFI$="C"GOSUB2530:GOTO2440 2400 IFI$="@"THEN2440 2410 IFI$="I"THENGOSUB2600:GOTO2440 2420 IFI$="D"THENGOSUB2570:GOTO2470 2430 IFI$=";"THEN2480 2440 M$=M$+A$ 2450 PRINTA$; 2460 IF(I$="X")AND(II=LS-1)THENGOSUB2600 2470 NEXTII 2480 RETURN 2490 CLOSE:PRINT:PRINT"Do you want to edit any more (Y or N):":GOSUB2070:M$="":I$="" 2500 IFYN$="N"THEN2690 2510 M$="":I$="":CLS:GOTO1720 2530 ' 2540 A$=INKEY$ 2550 IFA$=""THEN2540 2560 RETURN 2570 ' 2580 A$="" 2590 RETURN 2600 ' 2610 Q$=INKEY$ 2620 IFQ$=""THEN2610 2630 IFQ$="@"THEN2670 2640 PRINTQ$; 2650 M$=M$+Q$ 2660 GOTO2610 2670 RETURN 2680 ' 2690 CLS:PRINT"Do you wish further work on this file (Y or N):":GOSUB2070 2700 IFYN$="Y"THEN160 2710 RUN"MENU:0" Ž STURN-TOå\Õ\'Fˆ Oh 4O Ü]Oho§