home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / commodor / latintut (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-05-20  |  2.5 KB  |  87 lines
  1. 0 POKE53280,1:POKE53281,1:POKE53272,21:PRINT"[152]"
  2. 1 REM VOCABULARY BY EVERETT LUMPKIN,R.R.1,MODOC INDIANA 47358:JAN 12,1980
  3. 2 REM CAN BE USED FOR ANY LANGUAGE:WORDS STORED AT STATEMENT 1000-
  4. 3 REM STATEMENT 60 CONTAINS THE NUMBER OF WORDS
  5. 10 CLR:PRINT"[147]HELLO THERE!"
  6. 11 PRINT"I AM YOUR FRIENDLY NEIGHBORHOOD           "
  7. 13 PRINT"COMMODORE 64 COMPUTER, AND I AM GOING":PRINT
  8. 15 PRINT"TO HELP YOU REVIEW SOME COMMON LATIN":PRINT
  9. 17 PRINT"WORDS THAT YOU NEED TO KNOW.":PRINT
  10. 20 PRINT"BEFORE WE CONTINUE, WHAT IS YOUR":PRINT
  11. 22 PRINT"NAME";:INPUT NAME$
  12. 50 REM THIS PROGRAM CAN BE SET UP TO REVIEW A PARTIAL LIST OF THE TOTAL LIST
  13. 52 REM GOTO 370 FOR ROUTINE TO DO THIS
  14. 54 REM OTHERWISE SET UP NO OF DATA TO BE READ IN STATEMENT 60
  15. 60 LET HIGH=23:LET LOW=1
  16. 70 DIM A$(HIGH+1),B$(HIGH),D$(HIGH)
  17. 80 FOR I=1 TO HIGH
  18. 90 READ A$(I),B$(I)
  19. 100 NEXT I
  20. 110 PRINT ""
  21. 120 PRINT"[147]OK "NAME$:PRINT"THESE ARE THE WORDS YOU ARE GOING TO    REVIEW."
  22. 130 FOR I=LOW TO HIGH STEP 2
  23. 140 PRINTA$(I)TAB(20)A$(I+1)
  24. 150 NEXT I
  25. 160 PRINT:PRINT"I WILL GIVE YOU THE ENGLISH MEANING"
  26. 165 PRINT"AND YOU WILL GIVE ME THE LATIN WORD"
  27. 167 PRINT"OF THE SAME MEANING.  BE SURE TO SPELL"
  28. 170 PRINT"THE LATIN WORDS CORRECTLY.  THE WORDS"
  29. 172 PRINT"THAT YOU MISS WILL BE GIVEN AGAIN"
  30. 174 PRINT"UNTILL YOU GET THEM CORRECT."
  31. 176 PRINT"TOUCH ANY KEY TO BEGIN THE REVIEW."
  32. 178 GET T$:IF T$=""GOTO178
  33. 190 LET Z=INT((HIGH+1-LOW)*RND(1)+LOW)
  34. 200 LET Y=Y+1
  35. 210 IF Y>300 GOTO 530
  36. 220 IF B$(Z)="ALREADY USED"GOTO190
  37. 230 PRINT"[147]"
  38. 240 PRINT B$(Z)
  39. 250 PRINT""
  40. 260 INPUT C$
  41. 270 IF C$=A$(Z) GOTO 450
  42. 280 PRINT""
  43. 290 PRINT"SORRY "NAME$
  44. 295 PRINT"THE CORRECT LATIN WORD IS "A$(Z)
  45. 300 PRINT "TRY ANOTHER ONE."
  46. 310 FOR R=1 TO 2000
  47. 320 LET R=R+1
  48. 330 NEXT R
  49. 340 LET D$(S+1)=A$(Z)
  50. 350 LET S=S+1
  51. 360 GOTO190
  52. 370 PRINT ""
  53. 380 PRINT "WHAT WOULD YOU LIKE THE HIGH NUMBER TO  BE?"
  54. 390 INPUT HIGH
  55. 400 PRINT ""
  56. 410 PRINT "WHAT WOULD YOU LIKE THE LOW NUMBER TO   BE?"
  57. 420 INPUT LOW
  58. 430 PRINT "[147]"
  59. 440 GOTO70
  60. 450 PRINT ""
  61. 460 PRINT "GOOD JOB!"
  62. 470 FOR W=1 TO 50
  63. 480 LET W=W+1
  64. 490 NEXT W
  65. 500 PRINT ""
  66. 510 LET B$(Z)="ALREADY USED"
  67. 520 GOTO190
  68. 530 PRINT ""
  69. 540 IF S=0 GOTO 610
  70. 550 PRINT "YOU MISSED THESE WORDS AFTER THE FIRST  TRY.  STUDY HARD."
  71. 560 PRINT ""
  72. 570 FOR I=1 TO S
  73. 580 PRINT D$(I)"    ",
  74. 590 NEXT I
  75. 600 PRINT
  76. 700 END
  77. 995 REM DATA FORMAT*******
  78. 996 REM LATIN WORD,ENGLISH MEANING,LATINWORD,ENGLISH ECT...
  79. 997 REM NUMBER OF WORDS IN STATEMENT 60
  80. 998 REM ************
  81. 1000 DATA ANTIQUA,OLD,ET,AND,CASA,HOUSE,DUCO,"LEAD, BRING OR CARRY"
  82. 1010 DATA PRIMO,AT FIRST,VIDEO,SEE,CUM,WITH,MISERUS,UNHAPPY OR POOR
  83. 1020 DATA MORBUS,DISEASE OR ILLNESS,PERICULUM,DANGER OR PERIL,DIENDE,THEN OR NEXT
  84. 1030 DATA PECUNIA,MONEY,PUGNO,FIGHT,CAELUM,SKY,INIMICUS,UNFRIENDLY,BENE,WELL
  85. 1040 DATA LAURA,LAUREL TREE,NECO,KILL,CARMEN,SONG,FENESTRA,WINDOW,IMPIGRA,LAZY
  86. 1050 DATA CAPUT,HEAD,AURIUS,GOLD,NECO,KILL
  87.