mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-09-19 16:53:26 +01:00
33 lines
1.1 KiB
QBasic
33 lines
1.1 KiB
QBasic
|
10 CLS:PRINT TAB(12);"## MOPS ##":B$="Fehler !"
|
|||
|
|
20 PRINT TAB(4);"frei nach Carl Reinhard 1850"
|
|||
|
|
30 PRINT:DIM A(8),B(8),C$(8),D$(2),E$(2),F$(2)
|
|||
|
|
40 D$(0)="der": D$(1)="das": D$(2)="die"
|
|||
|
|
50 E$(0)="dem": E$(1)="dem": E$(2)="der"
|
|||
|
|
60 F$(0)="den": F$(1)="das": F$(2)="die"
|
|||
|
|
70 FOR I=0 TO 8
|
|||
|
|
80 INPUT"Wort mit Artikel : ",A$
|
|||
|
|
90 IF MID$(A$,4,1)<>" " THEN PRINT B$:GOTO 80
|
|||
|
|
100 IF LEFT$(A$,3)="der" THEN A(I)=0:GOTO 140
|
|||
|
|
110 IF LEFT$(A$,3)="das" THEN A(I)=1:GOTO 140
|
|||
|
|
120 IF LEFT$(A$,3)="die" THEN A(I)=2:GOTO 140
|
|||
|
|
130 PRINT B$:GOTO 80
|
|||
|
|
140 C$(I)=MID$(A$,4)
|
|||
|
|
150 NEXT:CLS
|
|||
|
|
160 CLS
|
|||
|
|
170 FOR I=0 TO 8
|
|||
|
|
180 X=INT(8*RND(1)+.5)
|
|||
|
|
190 C=0:IF I=0 THEN B(I)=X
|
|||
|
|
200 FOR J=0 TO I-1
|
|||
|
|
210 IF B(J)=X THEN C=1:J=I
|
|||
|
|
220 NEXT:IF C=1 GOTO 180
|
|||
|
|
230 B(I)=X
|
|||
|
|
240 NEXT
|
|||
|
|
250 PRINT"Wenn ";D$(A(B(0)));C$(B(0));" mit ";E$(A(B(1)));C$(B(1))
|
|||
|
|
260 PRINT" <20>ber ";F$(A(B(2)));C$(B(2));" springt"
|
|||
|
|
270 PRINT"und ";D$(A(B(3)));C$(B(3));" in ";E$(A(B(4)));C$(B(4))
|
|||
|
|
280 PRINT" ";F$(A(B(5)));C$(B(5));" verschlingt"
|
|||
|
|
290 PRINT"dann ";D$(A(B(6)));C$(B(6));" aus ";E$(A(B(7)));C$(B(7))
|
|||
|
|
300 PRINT" als ";C$(B(8));" erklingt"
|
|||
|
|
310 PRINT:PRINT
|
|||
|
|
320 INPUT"[ENTER]",A:GOTO 160
|
|||
|
|
|