3 l=0: l2=0
5 x=0: w=0: a=0
10POKE 17115, 20:TEXT
13? CHR$(7)
15? "Homework Helper"
17? "Main Menu"
23INVERSE
25HTAB 17:VTAB 3:? " I   "
30HTAB 17:VTAB 6:? " II  "
35HTAB 17:VTAB 9:? " III "
40HTAB 17:VTAB 12:? " IV  "
45HTAB 17:VTAB 15:? " V   "
50NORMAL
55HTAB 17:VTAB 4:? "make questions"
60HTAB 17:VTAB 7:? "load questions"
65HTAB 17:VTAB 10:? "print questions"
70HTAB 17:VTAB 13:? "take test"
75HTAB 17:VTAB 16:? "Exit program"
85GET e$
90 x=ASC(e$)
93IF x<129 OR x>133 THEN GOTO 85
95IF x=129 THEN  x=1
100IF x=130 THEN  x=2
105IF x=131 THEN  x=3
110IF x=132 THEN  x=4
115IF x=133 THEN  x=5
120ON x GOTO 130, 500, 800, 1000, 1500
130HOME:INVERSE:? "Question Maker"
132NORMAL
135?:? "   [M]ake questions"
140? "   [E]xit to menu"
143?:? "Enter choice"
145GET a$
150IF a$="m" OR a$="M" THEN 160
155IF a$="E" OR a$="e" THEN 10
157GOTO 145
160DIM q$(10):DIM a1$(10)
162FOR w=3 TO 24:VTAB w:?:NEXT w
165FOR t=1 TO 10
167VTAB 3
170? "Enter question #"; t
175INPUT q$(t)
180?:?
185? "Enter answer #"; t
190INPUT a1$(t)
195FOR c=3 TO 20
200VTAB c:?
205NEXT c
300NEXT t
305VTAB 3:? "You have entered all 10       "
310? "questions and answers."
315? "Would you like to save this   "
320? "file to tape?  [Y]or[N]"
330GET a$
335IF a$="Y" OR a$="y" THEN 350
340IF a$="N" OR a$="n" THEN 10
345GOTO 330
350?:INPUT "Enter file name "; n$
355 d$=CHR$(4)
357? d$; "OPEN "; n$
360? d$; "WRITE "; n$
365FOR t=1 TO 10
370? q$(t)
375? a1$(t)
380NEXT t
385HTAB 1:? d$; "CLOSE "; n$
387?:? "File has been saved to tape."
390FOR p=1 TO 3000:NEXT p
400GOTO 130
500HOME:INVERSE:? "Load Questions"
503NORMAL
505?:? "   [L]oad Questions"
510? "   [V]iew question files"
515? "   [E]xit to main menu"
520?:? "Enter selection."
525GET a$
530IF a$="L" OR a$="l" THEN 570
535IF a$="V" OR a$="v" THEN 550
540IF a$="E" OR a$="e" THEN 10
545REM  
550 d$=CHR$(4)
553VTAB 3
555? d$; "CATALOG"
560?
565 d1$=CHR$(13)+CHR$(4)
570INPUT "Enter file name "; n$
575?:? "One moment ...Loading file"
580? d$; "OPEN "; n$
585? d$; "READ "; n$
600FOR t=1 TO 10
605INPUT q$(t):? CHR$(8)
610INPUT a1$(t):? CHR$(8)
615NEXT t
620HTAB 1:? d$; "CLOSE "; n$
625?:? "File is loaded into memory for"
630? "use with the rest of the    "
635? "system."
640FOR p=1 TO 3000
645GOTO 10
800HOME:INVERSE:? "Print questions / answers"
803NORMAL
805?:? "   Print -"
810? "   [Q]uestions only"
815? "   [A]nswers only"
820? "   [B]oth questions & answers"
825? "   [E]xit to Main Menu"
830?:? "Put paper in printer and -"
832? "Enter selection."
835GET a$
840IF a$="Q" OR a$="q" THEN 865
845IF a$="A" OR a$="a" THEN 905
850IF a$="B" OR a$="b" THEN 940
855IF a$="E" OR a$="e" THEN 10
860GOTO 835
865PR #1
870? "Questions -"
872?:?
875FOR t=1 TO 10
880? t; :? " "; 
885? q$(t)
890?
895NEXT t
900PR #0:GOTO 800
905PR #1
910? "Answers -"
913?:?
915FOR t=1 TO 10
920? t; :? " "; 
925? a1$(t)
930?
935NEXT t
940REM 
945PR #1:? " Test -"; 
947?:?
950FOR t=1 TO 10
955? t; :? " "
960? q$(t)
965?:? a1$(t)
970?
975NEXT t
980PR #0:GOTO 800
1000HOME:INVERSE:? "Take Test"
1004NORMAL
1005?:? "   [T]ake test"
1010? "   [L]ook at score"
1015? "   [E]xit to main menu"
1025?:? "Enter selection."
1030GET a$
1035IF a$="T" OR a$="t" THEN 1060
1040IF a$="L" OR a$="l" THEN 1110
1045IF a$="E" OR a$="e" THEN 10
1050GOTO 1000
1060FOR t=1 TO 10
1063GOSUB 3000
1065VTAB 3:? t:? " "; :? q$(t)
1070?:INPUT "Enter answer-"; e$
1075IF e$=a1$(t) THEN  l=l+1:GOTO 1090
1080IF e$<>a1$(t) THEN ?:? "Sorry, incorrect.The answer is"
1085? a1$(t)
1090?:? "Press any key to conitnue":GET a$
1097NEXT t
1100GOTO 1000
1110VTAB 3:?:?:?:?:?
1115VTAB 3:? "Your Score -"
1120?:? "   # correct - "; l
1125? "   # possible- 10"
1130 l2=l/10*10
1135? "   percentage- "; l2
1140?:? "Press any key to continue.":GET a$
1145GOTO 1000
1500HOME:INVERSE:? "Homework Helper"
1505NORMAL:?:? "By:Joe Reardon"
1510? "November 26, 1985"
2999END
3000FOR a=3 TO 24
3010VTAB a:?
3015NEXT a
3020RETURN
