home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / WORD-TEST (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.5 KB  |  111 lines

  1. 10 REM  WORD TEST
  2. 20 POKE53280,0:POKE53281,0:PRINTCHR$(5)
  3. 30 GOSUB 10000
  4. 50 REM SET UP MATRIX, B MATRIX FOR ERRORS IN RESPONSES
  5. 60 DIM A$(100,2):DIM B(100)
  6. 70 DV=RND(-TI): REM ESTABLISH RANDOM
  7. 100 R=0:  REM MENU
  8. 110 PRINT"[147]ENTER THE OPTION YOU PREFER (BY NUMBER)"
  9. 120 PRINT"1.  ENTER NEW WORDS":PRINT"2.  REVIEW EXISTING WORDS (IN ORDER)"
  10. 130 PRINT"3.  RANDOM REVIEW":PRINT"4.  TAKE TEST":PRINT"5.  SAVE VOCABULARY"
  11. 140 PRINT"6.  RETRIEVE VOCABULARY":PRINT"7.  EDIT LIST":PRINT"8.  STOP"
  12. 150 INPUT R:IF R<1 OR R>8 THEN GOTO 150
  13. 160 ON R GOTO 1000,2000,3000,4000,5000,6000,7000,8000
  14. 1000 REM NEW WORDS TO LIST
  15. 1010 PRINT"[147]ADDING NEW WORDS TO LIST"
  16. 1020 FORX=1 TO 20
  17. 1030 INPUT "ENTER WORD";A$(X,1)
  18. 1040 IF A$(X,1)=""THENLIMIT=X-1:GOTO 100
  19. 1050 INPUT "TRANSLATION";A$(X,2)
  20. 1060 NEXT
  21. 1070 GOTO 100
  22. 2000 REM REVIEW IN ORDER
  23. 2010 PRINT "[147] REVIEW OF WORDS IN ORDER"
  24. 2020 FORX=1 TO LIMIT
  25. 2030 PRINT "WHAT IS THE TRANSLATION FOR ";A$(X,1);
  26. 2040 PRINT:INPUT R$:IF R$=A$(X,2) GOTO 2070
  27. 2050 PRINT "MY ANSWER IS ";A$(X,2)
  28. 2060 FOR T=1TO 2000:NEXT
  29. 2070 NEXT X
  30. 2080 GOTO 100
  31. 3000 REM RANDOM WORDS
  32. 3010 PRINT "[147] RANDOM REVIEW OF WORDS  "
  33. 3020 FORC=1TO20
  34. 3030 X = INT (RND(1)*(LIMIT))+1
  35. 3040 PRINT "WHAT IS THE TRANSLATION FOR ";A$(X,1);
  36. 3050 PRINT:INPUT R$:IF R$=A$(X,2) GOTO 3080
  37. 3060 PRINT "MY ANSWER IS ";A$(X,2)
  38. 3070 FOR T=1TO 2000:NEXT
  39. 3080 NEXT C
  40. 3090 GOTO 100
  41. 4000 REM TEST
  42. 4010 PRINT "[147] TEST OF WORD MATCHING ":FOR T=1TO4000:NEXT
  43. 4020 E=0:FOR C=1TO20
  44. 4030 X = INT (RND(1)*(LIMIT))+1
  45. 4040 PRINT "[147]WHAT IS THE TRANSLATION FOR ";A$(X,1)
  46. 4050 PRINT:INPUT R$:IF R$=A$(X,2) GOTO 4080
  47. 4060 PRINT"MY ANSWER IS DIFFERENT";:E=E+1:B(X)=B(X)+1
  48. 4070 FOR T=1TO 2000:NEXTT
  49. 4080 POKE 53280,1:POKE53280,0:NEXT C
  50. 4090 PRINT "YOU MADE ";E;" ERRORS."
  51. 4100 FOR T=1 TO 3500:NEXT T
  52. 4110 PRINT"TO REVIEW ERRORS, PRESS THE 'F 1' KEY.  PRESS ANY OTHER KEY TO ";
  53. 4120 PRINT"RETURN TO THE MAIN PROGRAM"
  54. 4130 GET R$:IF R$=""GOTO 4130
  55. 4140 IF R$<>"[133]" GOTO 100
  56. 4150 PRINT "[147]REVIEW ERRORS"
  57. 4160 FOR X=1TO100:IF B(X)<1THEN NEXT X
  58. 4170 PRINT A$(X,1);"  IS THE SAME AS [160]";A$(X,2):FOR T=1TO4000:NEXT T
  59. 4210 IF X=100 GOTO 100: NEXT X
  60. 4220 GOTO 100
  61. 5000 REM SAVE FILE OF WORDS
  62. 5010 INPUT "NAME OF FILE ";I$
  63. 5020 OPEN 1,8,2,"0:" + I$+ ",S,W"
  64. 5025 PRINT#1,LIMIT,CHR$(13):REM STORES #OF ITEMS AS FIRST ELEMENT IN FILE
  65. 5030 FOR X=1 TO LIMIT
  66. 5040 PRINT#1,A$(X,1);CHR$(13);A$(X,2);CHR$(13)
  67. 5050 NEXT X
  68. 5090 CLOSE 1
  69. 5100 PRINT "FILE ";I$;" SAVED"
  70. 5110 FOR X=1TO3000:NEXT
  71. 5120 GOTO 100
  72. 6000 REM RETRIEVE A FILE OF WORDS
  73. 6005 I$="":A$="":REM TO ZERO OUT FROM PREVIOUS USES
  74. 6010 INPUT "NAME OF FILE ";I$
  75. 6015 IF I$=""THEN GOTO 6010
  76. 6020 OPEN 1,8,2,I$:REM OPENS FILE BY NAME
  77. 6030 INPUT#1,LNGTH:REM RETRIEVE FILE LENGTH
  78. 6040 FOR X=1 TO LNGTH
  79. 6050 INPUT#1,A$((X+LIMIT),1)
  80. 6060 INPUT#1,A$((X+LIMIT),2)
  81. 6070 NEXT
  82. 6080 CLOSE 1:LIMIT=LIMIT+LNGTH
  83. 6090 GOTO 100
  84. 7000 REM TO EDIT A FILE IN MEMORY
  85. 7100 FOR X=1 TO LIMIT
  86. 7110 PRINT "ITEM 1    ITEM 2"
  87. 7120 PRINT A$(X,1),A$(X,2)
  88. 7130 PRINT "ARE THESE CORRECT (Y OR N)?
  89. 7140 [133] R$:[139] R$[178]"Y" [167] 7180
  90. 7150 [139] R$[179][177]"N" [167] [137] 7120
  91. 7160 [133] "ENTER CORRECTED ITEM 1";C$:A$(X,1)[178]C$
  92. 7170 [133] "ENTER CORRECTED ITEM 2";C$:A$(X,2)[178]C$
  93. 7180 [130] X
  94. 7190 [137] 100
  95. 8000 [160] 1: [144]
  96. 9999 [159]15,8,15:[132]15,A$,B$,C$,D$:[153]A$,B$,C$,D$:[160] 15,8,15:[144]
  97. 10000 [143] INSTRUCTIONS
  98. 10010 [153]"THIS PROGRAM LETS YOU CREATE FILES OF   'PAIRS' OF WORDS OR ";
  99. 10015 [153] "PHRASES ";
  100. 10020 [153]"AND REVIEWS OR TESTS YOU ON YOUR ABILITY TO MATCH UPONE WITH ";
  101. 10030 [153]"THE OTHER. THE PROGRAM IS MENU-DRIVEN, AND NEEDS FEW DIRECTIONS."
  102. 10040 [153]"A FEW THINGS ARE NOT SELF EXPLANATORY --THERE IS A MAXIMUM LIMIT";
  103. 10050 [153]" OF 20 'PAIRS'  PER FILE; TO MAKE A FILE SMALLER YOU    NEED ";
  104. 10060 [153]"ONLY 'RETURN' WHEN THE PROGRAM ASKSFOR THE FIRST ITEM IN A 'PAIR'."
  105. 10070 [153]"TO PRACTICE WITH MORE THAN 20 WORDS, YOUCAN RETREIVE MORE THAN ";
  106. 10080 [153]"ONE FILE AT A    TIME -- THE PROGRAM CAN TAKE UP TO 100  'PAIRS' ";
  107. 10090 [153]"AND BY MODIFYING LINE 60 IT CAN BE MADE TO ACCEPT MORE."
  108. 10100 [153]"THE PROGRAM WILL BEGIN WHEN YOU PRESS THE ANY KEY"
  109. 10110 [161] R$:[139]R$[178]""[167]10110
  110. 10120 [142]
  111.