Werbung
'' -PROGRAMMBEISPIELE
PROGRAMMLISTING
1@:"A":. CLS + USING :
- WAIT: @: CURSOR 4:
PRINT "GEDAECHTNISTE
ST": CLEAR
20:DIM G$(6)*1,N$(10)#1
1V$(3)*3,X8(3)"6,26(
|
3)#3, ¥$(3)#6
~"3@:FOR
I=1
TO 9:N${I)=
"STR$
L: NEXT. Ti aa Bh See
j="g".
~5@:FOR
I=1
TO
6
.
6@:J=
RND
26: Jed+64
- 7O:G$(I)=
CHRS
(d):
:
NEXT' T
8@:FOR
I=1
TO. 3: -
90:Y$(I)="
"
! 1@8:FOR
Jz
TO Saks RND
9
110: ¥$(T)= ¥$(I)4N8(K)
|
"NEXT J
120:L2:-RND 9: J=(I-1) #241 ¢
15@:CURSOR
25: WAIT 300:
GOSUB 500:
WAIT @
160:FOR I=1 TO 3
17@:CLS
:
="3X$(I):xX$(1)=
LEFT$
(X$(I) ,6}
23): NEXT I.
200:CURSOR
1: GOSUB 590:
CURSOR 253 GOSUB 520
21@:N=@
220:FOR I=1 TO 3
230:IF A$(I)=Z$(I) LET N
_
_N=N+1
240:IF A$(I+3)=V$(I)
LET
N=N+14
INPUT "ANTWORT
~~ 250:
260:
265:
_
270:
380:
@:BEEP
1:
ar
-SCHLECHT":
320:
--': ITTELMAESSIG":
330:
34@:
BIG
NEXT
E o
o---
-
--
N=N+1
re gl
or eee
WAIT
1590
ae
CLS_: ON
N GoTo
400;
aa 320, 330, ae , 359,
aati)
PRINT *
IDIOT":
GOTO 3728
PRINT
*
GOTO
370
BEEP
2: PRINT
"
M
GOTO
370
SHEE Ts
BEEP
2: PRINT
"
OK":
GOTO
370
BEEP' 3: - PRINT -#eenx
HHRHCUTERRR
ERR Y
GOTO
379
O:BEEP 4:'. PRINT 18 eRe
*INTELLIGENT##4####
;
GOTO 372
a 380:
390:
395:
:BEEP 2: PRINT A$(1);
ASC) st
wre
he
5);"
510:
520:
— M&RR&ER" SX$(1)3
"USING;"—
«;
508
525:
530:
6eQ:
HHARCENTAL
SRRER RR BRT
SWSS"" BEEP tr
"CURSOR 25: INPUT "NE
UES SPIEL
(J/N)";w$
IF WS="N"
THEN 600
IF Wh="J"
THEN
19
WAIT @: GOTO 270
"5A$(2) 5 A$(
"5 4$(3) 5A$(6)
RETURN
BEEP 1: PRINT USING
USING "
ERLE"; K$(2);
"5X$(2)
USING : RETURN
END
Werbung
