Auf los geht's los! - Listing

Dokumentation ansehen
Programmspeicher-Image laden

Anmerkung: Die PRINT-Anweisung in Zeile 70 enthält 24 Leerzeichen!

10	"A":CLEAR :DIM O$(0)*24,R$(0)*24
20	CLS :WAIT 0:PRINT "************************":PRINT "** Auf Los gehts los **"
30	PRINT "************************":INPUT "Oberbegriff : ";O$(0)
40	INPUT "Ratewort : ";R$(0):L=LEN R$(0)
45	DIM L$(0)*L,M$(L)*1,S$(L)*1
50	CLS :FOR I=1 TO L:L$(0)=L$(0)+"*":M$(I)=MID$ (R$(0),I,1):S$(I)="*":NEXT I
60	PRINT O$(0):PRINT ""
70	PRINT "                        ":CURSOR 0,2:PRINT L$(0)
80	V$=INKEY$ :IF V$="" THEN 80
85	Z=Z+1:L$(0)=""
90	FOR I=1 TO L:IF V$=M$(I) LET H=1:L$(0)=L$(0)+V$:S$(I)=V$:GOTO 110
100	L$(0)=L$(0)+S$(I)
110	NEXT I
115	IF L$(0)=R$(0) THEN 140
120	IF H BEEP 1,8,200:H=0:V$="":GOTO 70
130	BEEP 1,222,100:V$="":GOTO 70
140	BEEP 3,39,200:BEEP 1,100,350
150	CLS :PRINT R$(0):PRINT "Erraten im ";Z;" Versuch"
160	END

Dokumentation ansehen
Programmspeicher-Image laden