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