https://www.cocopedia.com/wiki/index.php?title=GERMAN&feed=atom&action=history
GERMAN - Revision history
2024-03-28T17:04:32Z
Revision history for this page on the wiki
MediaWiki 1.41.0
https://www.cocopedia.com/wiki/index.php?title=GERMAN&diff=7440&oldid=prev
Polluks: Category
2015-09-10T21:58:39Z
<p>Category</p>
<table style="background-color: #fff; color: #202122;" data-mw="interface">
<col class="diff-marker" />
<col class="diff-content" />
<col class="diff-marker" />
<col class="diff-content" />
<tr class="diff-title" lang="en">
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Older revision</td>
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Revision as of 21:58, 10 September 2015</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l62">Line 62:</td>
<td colspan="2" class="diff-lineno">Line 62:</td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> 1070 DATA "DER SCHUH","THE SHOE","DER ABEND","THE EVENING"</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> 1070 DATA "DER SCHUH","THE SHOE","DER ABEND","THE EVENING"</div></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> 1100 DATA -1,-1</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> 1100 DATA -1,-1</div></td></tr>
<tr><td colspan="2" class="diff-side-deleted"></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"></ins></div></td></tr>
<tr><td colspan="2" class="diff-side-deleted"></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;">[[Category:BASIC]]</ins></div></td></tr>
</table>
Polluks
https://www.cocopedia.com/wiki/index.php?title=GERMAN&diff=5336&oldid=prev
Luis46coco: Created page with " 100 CLEAR 500: 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,"GERMAN DRILL ABORTED": STOP 130 L=L+1 140 READ ..."
2013-03-25T03:30:28Z
<p>Created page with " 100 CLEAR 500: 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,"GERMAN DRILL ABORTED": STOP 130 L=L+1 140 READ ..."</p>
<p><b>New page</b></p><div> 100 CLEAR 500: CLS: DIM T$(50,2), N(5)<br />
110 L=0<br />
120 IF L<50 THEN 130<br />
125 PRINT@64,"TOO MANY TABLE ENTRIES,"<br />
127 PRINT@96,"GERMAN DRILL ABORTED": STOP<br />
130 L=L+1<br />
140 READ T$(L,1), T$(L,2)<br />
150 IF (T$(L,1)="-1") OR (T$(L,2)="-1") THEN L=L-1: GOTO170<br />
160 GOTO120<br />
170 R=0: T=0<br />
180 CLS: PRINT@7,"GERMAN NOUN DRILL"<br />
190 PRINT@64,"SELECT ONE OF THE FOLLOWING:"<br />
200 PRINT@96,"1. TRANSLATE FROM GERMAN-TO"<br />
210 PRINT@131,"ENGLISH"<br />
220 PRINT@160,"2. TRANSLATE FROM ENGLISH-TO-"<br />
230 PRINT@195,"GERMAN"<br />
240 PRINT@224,"WHICH ONE";: INPUT A$<br />
250 IF A$="1" OR A$="2" THEN A=VAL(A$): GOTO290<br />
260 PRINT@448,"INVALID SELECTION--TRY AGAIN"<br />
270 FOR I=1 TO 300: NEXT I<br />
280 PRINT@234,"": GOTO240<br />
290 IF A$="1" THEN B=2: N$="GERMAN-TO-ENGLISH"<br />
300 IF A$="2" THEN B=1: N$="ENGLISH-TO-GERMAN"<br />
310 CLS: PRINT@7,N$<br />
320 FOR I=0 TO 5<br />
330 N(I)=RND(L)<br />
340 IF N(I)=0 THEN 330<br />
350 J=0 <br />
360 IF (N(I)=N(J)) AND (I<>J) THEN 330<br />
370 IF J<(I-1) THEN J=J+1: GOTO360<br />
380 NEXT I<br />
390 I=RND(5)<br />
400 IF I<1 THEN 390<br />
410 PRINT@64,T$(N(0),A)<br />
420 N(I)=N(0): N(0)=I<br />
430 PRINT@128,"CHOOSE ONE OF THE FOLLOWING:"<br />
440 J=128<br />
450 FOR I=1 TO 5<br />
460 J=J+32: B$=STR$(I)<br />
470 PRINT@J,MID$(B$,2,1)+". "+T$(N(I),B)<br />
480 NEXT I<br />
490 PRINT@320,"WHICH ONE";: INPUT B$<br />
500 IF (B$>"0") AND (B$<"6") THEN 520<br />
510 PRINT@329,"": GOTO490<br />
520 T=T+1<br />
530 IF VAL(B$) <> N(0) THEN 560<br />
540 R=R+1<br />
550 PRINT@384,R;"OUT OF";T;"CORRECT!": GOTO580<br />
560 PRINT@384,"NO! THE CORRECT ANSWER IS";N(0)<br />
580 PRINT@416,"ENTER R FOR RESTART, OR JUST"<br />
590 PRINT@448,"<ENTER> FOR SAME";: INPUT B$<br />
600 IF NOT (B$="R" OR B$="") THEN PRINT@465,": GOTO590<br />
610 IF B$="R" THEN GOTO170<br />
620 GOTO310<br />
1000 DATA "DER APFEL","THE APPLE","DIE TUR","THE DOOR"<br />
1010 DATA "DER MENSCHEN","THE PERSON","DER KUCHEN","THE CAKE"<br />
1020 DATA "DER SCHLUSSEL","THE KEY","DER MANN","THE MAN","DER HUT","THE HAT"<br />
1030 DATA "DAS BILD","THE PICTURE","DAS MADCHEN","THE GIRL"<br />
1040 DATA "DAS AUGE","THE EYE","DAS OHR","THE EAR","DIE FRUCHT","THE FRUIT"<br />
1050 DATA "DAS LICHT","THE LIGHT","DAS WASSER","THE WATER"<br />
1060 DATA "DIE SCHULERIN","THE STUDENT","DER MALER","THE ARTIST"<br />
1070 DATA "DER SCHUH","THE SHOE","DER ABEND","THE EVENING"<br />
1100 DATA -1,-1</div>
Luis46coco