Sitenotice: 11/29/2018: The wiki is back. It turns out, some anti-virus product on my web server had an issue with the latest version of PHP. My server techs have resolved this issue, and things should be working again. During the investigation, I did restore to a backup from September. There is a chance that any changes done since then were lost, but I do not recall any edits. --OS-9 Al

8/30/2016: Massive re-work is being done on the InfoBox Templates. Read that page to keep up with the plan for that, and adding better keyword tags (categories) to all the pages. --OS-9 Al (talk) 15:28, 31 August 2016 (CDT)

VOCAB

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to navigation Jump to search
100 CLEAR: CLS: DIM T$(50,2), N(5)
110 L=0
120 IF L<50 THEN 130
125 PRINT@64,"TOO MANY TABLE ENTRIES,"
127 PRINT@96,"VOCABULARY DRILL ABORTED": STOP
130 L=L+1
140 READ T$(L,1), T$(L,2)
150 IF (T$(L,1)="-1") OR (T$(L,2)="-1") THEN L=L-1: GOTO170
160 GOTO120
170 R=0: T=0
180 CLS: PRINT@7,"VOCABULARY DRILL"
190 PRINT@64,"SELECT ONE OF THE FOLLOWING:"
200 PRINT@96,"1. FIND WORD FROM MEANING"
220 PRINT@160,"2. FIND MEANING FROM WORD"
240 PRINT@224,"WHICH ONE",: INPUT A$
250 IF A$="1" OR A$="2" THEN A=VAL(A$): GOTO290
260 PRINT@448,"INVALID SELECTION--TRY AGAIN"
270 FOR I=1 TO 300: NEXT I
280 PRINT@234,"": GOTO240
290 IF A$="1" THEN B=2: N$="WORD FROM MEANING"
300 IF A$="2" THEN B=1: N$="MEANING FROM WORD"
310 CLS: PRINT@7,N$
320 FOR 1-0 TO S
330 N(I)=RND(L)
340 IF N(I)=0 THEN 330
330 J=0
360 IF (N(I)=N(J)) AND (I<>J) THEN 330
370 IF J<(I-1) THEN J=J+1: GOTO360
380 NEXT I
390 I=RND(5)
400 IF I<1 THEN 390
410 PRINT@64,T$(N(0),A)
420 N(I)=N(0): N(0)=I
430 PRINT@128,"CHOOSE ONE OF THE FOLLOWING:"
440 J=128
450 FOR I=1 TO 5
460 J=J+32: B$=STR$(I)
470 PRINT@J,MID$(8$,2,1)+". "+T$(N(I),B)
480 NEXT I
490 PRINT@320,"WHICH ONE";: INPUT B$
500 IF (B$>"0") AND (B$<"6") THEN 520
510 PRINT@329,"": GOTO490
520 T=T+1
530 IFVAL(B$)<> N(O) THEN 560
540 R=R+1
550 PRINT@384,R;"OUT OF";T;"CORRECT!": GOTO580
560 PRINT@384,"NO! THE CORRECT ANSWER IS";N(0)
580 PRINT@416,"ENTER R FOR RESTART, OR JUST"
590 PRINT@448,"<ENTER> FOR SAME";: INPUT B$
600 IF NOT (B$="R" OR B$="") THEN PRINT@465,"": GOTO590
610 IF B$="R" THEN GOTO170
620 GOTO310
1000 DATA "ERUDITE","LEARNED","FACILE","DONE WITH EASE"
1010 DATA "PREEMPTIVE","IN PREFERENCE TO"
1020 DATA "SCURRILOUS","ABUSIVE","GALLERY","LONG COVERED AREA"
1030 DATA "GALLEY","SEA-GOING VESSEL"
1040 DATA "UNANIMOUS","IN COMPLETE ACCORD"
1050 DATA "EQUANIMITY","COMPOSURE UNDER STRAIN"
1060 DATA "REMISSION","ABATEMENT OR DIMINUTION"
1070 DATA "REMINISCENT","AWAKENING MEMORIES"
1080 DATA "AMBIENCE","MOOD OR TONE"
1090 DATA 'CUMULATIVE"."GROWING 8Y ACCUMULATION"
1100 DATA "SCUD","MOVE QUICKLY OR HURRIDLY"
1110 DATA "FONT","TYPE STYLE"
1120 DATA "BAS-RELIEF","SCULPTURE WITH FIGURES"
1130 DATA "ALLUSION","CASUAL REFERENCE"
1140 DATA "ILLUSION","SOMETHING THAT DECEIVES"
1150 DATA "ANTIDISESTABLISHMENTARIANISM","A LONG WORD"
5000 DATA -1,-1