home *** CD-ROM | disk | FTP | other *** search
- 10 REM WORD TEST
- 20 POKE53280,0:POKE53281,0:PRINTCHR$(5)
- 30 GOSUB 10000
- 50 REM SET UP MATRIX, B MATRIX FOR ERRORS IN RESPONSES
- 60 DIM A$(100,2):DIM B(100)
- 70 DV=RND(-TI): REM ESTABLISH RANDOM
- 100 R=0: REM MENU
- 110 PRINT"[147]ENTER THE OPTION YOU PREFER (BY NUMBER)"
- 120 PRINT"1. ENTER NEW WORDS":PRINT"2. REVIEW EXISTING WORDS (IN ORDER)"
- 130 PRINT"3. RANDOM REVIEW":PRINT"4. TAKE TEST":PRINT"5. SAVE VOCABULARY"
- 140 PRINT"6. RETRIEVE VOCABULARY":PRINT"7. EDIT LIST":PRINT"8. STOP"
- 150 INPUT R:IF R<1 OR R>8 THEN GOTO 150
- 160 ON R GOTO 1000,2000,3000,4000,5000,6000,7000,8000
- 1000 REM NEW WORDS TO LIST
- 1010 PRINT"[147]ADDING NEW WORDS TO LIST"
- 1020 FORX=1 TO 20
- 1030 INPUT "ENTER WORD";A$(X,1)
- 1040 IF A$(X,1)=""THENLIMIT=X-1:GOTO 100
- 1050 INPUT "TRANSLATION";A$(X,2)
- 1060 NEXT
- 1070 GOTO 100
- 2000 REM REVIEW IN ORDER
- 2010 PRINT "[147] REVIEW OF WORDS IN ORDER"
- 2020 FORX=1 TO LIMIT
- 2030 PRINT "WHAT IS THE TRANSLATION FOR ";A$(X,1);
- 2040 PRINT:INPUT R$:IF R$=A$(X,2) GOTO 2070
- 2050 PRINT "MY ANSWER IS ";A$(X,2)
- 2060 FOR T=1TO 2000:NEXT
- 2070 NEXT X
- 2080 GOTO 100
- 3000 REM RANDOM WORDS
- 3010 PRINT "[147] RANDOM REVIEW OF WORDS "
- 3020 FORC=1TO20
- 3030 X = INT (RND(1)*(LIMIT))+1
- 3040 PRINT "WHAT IS THE TRANSLATION FOR ";A$(X,1);
- 3050 PRINT:INPUT R$:IF R$=A$(X,2) GOTO 3080
- 3060 PRINT "MY ANSWER IS ";A$(X,2)
- 3070 FOR T=1TO 2000:NEXT
- 3080 NEXT C
- 3090 GOTO 100
- 4000 REM TEST
- 4010 PRINT "[147] TEST OF WORD MATCHING ":FOR T=1TO4000:NEXT
- 4020 E=0:FOR C=1TO20
- 4030 X = INT (RND(1)*(LIMIT))+1
- 4040 PRINT "[147]WHAT IS THE TRANSLATION FOR ";A$(X,1)
- 4050 PRINT:INPUT R$:IF R$=A$(X,2) GOTO 4080
- 4060 PRINT"MY ANSWER IS DIFFERENT";:E=E+1:B(X)=B(X)+1
- 4070 FOR T=1TO 2000:NEXTT
- 4080 POKE 53280,1:POKE53280,0:NEXT C
- 4090 PRINT "YOU MADE ";E;" ERRORS."
- 4100 FOR T=1 TO 3500:NEXT T
- 4110 PRINT"TO REVIEW ERRORS, PRESS THE 'F 1' KEY. PRESS ANY OTHER KEY TO ";
- 4120 PRINT"RETURN TO THE MAIN PROGRAM"
- 4130 GET R$:IF R$=""GOTO 4130
- 4140 IF R$<>"[133]" GOTO 100
- 4150 PRINT "[147]REVIEW ERRORS"
- 4160 FOR X=1TO100:IF B(X)<1THEN NEXT X
- 4170 PRINT A$(X,1);" IS THE SAME AS [160]";A$(X,2):FOR T=1TO4000:NEXT T
- 4210 IF X=100 GOTO 100: NEXT X
- 4220 GOTO 100
- 5000 REM SAVE FILE OF WORDS
- 5010 INPUT "NAME OF FILE ";I$
- 5020 OPEN 1,8,2,"0:" + I$+ ",S,W"
- 5025 PRINT#1,LIMIT,CHR$(13):REM STORES #OF ITEMS AS FIRST ELEMENT IN FILE
- 5030 FOR X=1 TO LIMIT
- 5040 PRINT#1,A$(X,1);CHR$(13);A$(X,2);CHR$(13)
- 5050 NEXT X
- 5090 CLOSE 1
- 5100 PRINT "FILE ";I$;" SAVED"
- 5110 FOR X=1TO3000:NEXT
- 5120 GOTO 100
- 6000 REM RETRIEVE A FILE OF WORDS
- 6005 I$="":A$="":REM TO ZERO OUT FROM PREVIOUS USES
- 6010 INPUT "NAME OF FILE ";I$
- 6015 IF I$=""THEN GOTO 6010
- 6020 OPEN 1,8,2,I$:REM OPENS FILE BY NAME
- 6030 INPUT#1,LNGTH:REM RETRIEVE FILE LENGTH
- 6040 FOR X=1 TO LNGTH
- 6050 INPUT#1,A$((X+LIMIT),1)
- 6060 INPUT#1,A$((X+LIMIT),2)
- 6070 NEXT
- 6080 CLOSE 1:LIMIT=LIMIT+LNGTH
- 6090 GOTO 100
- 7000 REM TO EDIT A FILE IN MEMORY
- 7100 FOR X=1 TO LIMIT
- 7110 PRINT "ITEM 1 ITEM 2"
- 7120 PRINT A$(X,1),A$(X,2)
- 7130 PRINT "ARE THESE CORRECT (Y OR N)?
- 7140 [133] R$:[139] R$[178]"Y" [167] 7180
- 7150 [139] R$[179][177]"N" [167] [137] 7120
- 7160 [133] "ENTER CORRECTED ITEM 1";C$:A$(X,1)[178]C$
- 7170 [133] "ENTER CORRECTED ITEM 2";C$:A$(X,2)[178]C$
- 7180 [130] X
- 7190 [137] 100
- 8000 [160] 1: [144]
- 9999 [159]15,8,15:[132]15,A$,B$,C$,D$:[153]A$,B$,C$,D$:[160] 15,8,15:[144]
- 10000 [143] INSTRUCTIONS
- 10010 [153]"THIS PROGRAM LETS YOU CREATE FILES OF 'PAIRS' OF WORDS OR ";
- 10015 [153] "PHRASES ";
- 10020 [153]"AND REVIEWS OR TESTS YOU ON YOUR ABILITY TO MATCH UPONE WITH ";
- 10030 [153]"THE OTHER. THE PROGRAM IS MENU-DRIVEN, AND NEEDS FEW DIRECTIONS."
- 10040 [153]"A FEW THINGS ARE NOT SELF EXPLANATORY --THERE IS A MAXIMUM LIMIT";
- 10050 [153]" OF 20 'PAIRS' PER FILE; TO MAKE A FILE SMALLER YOU NEED ";
- 10060 [153]"ONLY 'RETURN' WHEN THE PROGRAM ASKSFOR THE FIRST ITEM IN A 'PAIR'."
- 10070 [153]"TO PRACTICE WITH MORE THAN 20 WORDS, YOUCAN RETREIVE MORE THAN ";
- 10080 [153]"ONE FILE AT A TIME -- THE PROGRAM CAN TAKE UP TO 100 'PAIRS' ";
- 10090 [153]"AND BY MODIFYING LINE 60 IT CAN BE MADE TO ACCEPT MORE."
- 10100 [153]"THE PROGRAM WILL BEGIN WHEN YOU PRESS THE ANY KEY"
- 10110 [161] R$:[139]R$[178]""[167]10110
- 10120 [142]
-