C64 Handbuch


<<zurück (Seite 152) vor>>
 

Page 152
background image
144
ANHANG J
PROGRAMME,
DIE SIE AUSPROBIEREN SOLLTEN
Wir haben hier für Sie einige Programme aufgelistet, die Sie auf Ihrem
Commodore 64 zur Übung eingeben können. Sie zeigen Ihnen
Unterhaltendes aber auch Nützliches.
100 PRINT"{CLEAR}{DOWN}{REVERSE ON}{RIGHT*6}{SPACE*7}KODEKNACKER{SPACE*10}"
110 INPUT"{DOWN}SPIELANLEITUNG (J/N)";Z$:IFASC(Z$)=78THEN170
120 PRINT"{DOWN}DU MUSST DAS GEHEIME KODE-WORT FINDEN!"
130 PRINT"{DOWN}ES BESTEHT AUS 5 BUCHSTABEN."
140 PRINT"{DOWN}NACH JEDEM VERSUCH ERFAEHRST DU,"
150 PRINT"{DOWN}WIEVIELE BUCHSTABEN SCHON STIMMEN."
160 PRINT"{DOWN}EIN TIP: NICHT EINFACH WILD RUMRATEN!"
170 DATA CJFOF,LBUCF,UBOOF,XJFTF,CMVNF
180 DATA WBUFS,LBUFS,MFEFS,QGFSE,TUBMN
190 DATA TUSPI,MFISF,TUPGG,OVQQF,MFJOF
200 DATA MJTUF,LBOOF,SJOOF,TVQQF,MJFCF
210 DATA SFJTF,NFJTF,HBSCF,GBSCF,MJFCF
220 DATA CVOHF,MVOHF,KVOHF,CBOHF,MBOHF
230 DATA IFUCF,LFUUF,SBUUF,NFJTF,UBTUF
240 DATA EBOLF,QBSLB,UJTDI,TUVIM,IBBSF
250 DATA TQJFM,TQVSU,TQPSU,LBNQG,XFUUF
260 DATA CVDIF,CJSLF,QFTQF,IBGFS,GFSOF
270 N=50
280 DIMN$(N),Z(5),Y(5)
290 FORJ=1TON:READN$(J):NEXTJ
300 T=TI
310 T=T/1000:IFT>=1THEN310
320 Z=RND(-T)
330 G=0:N$=N$(RND(1)*N+1)
340 PRINT"{DOWN}{REVERSE ON}KNACK MEINEN GEHEIM-KODE!":IFR>0THEN380
350 PRINT"{DOWN}ES IST EIN SINNVOLLES 5-BUCHSTABENWORT."
360 PRINT"{DOWN}DU DARFST RATEN, UND ICH SAGE DIR,"
370 PRINT"{DOWN}WIEVIELE BUCHSTABEN STIMMEN."
380 G=G+1:INPUT" DEIN VERSUCH ";Z$
390 IF LEN(Z$)<>5 THENPRINT"{REVERSE ON}5 BUCHSTABEN!":GOTO380
400 V=0:M=0:H=0
410 FORJ=1TO5
420 Z=ASC(MID$(Z$,J,1)):Y=ASC(MID$(N$,J,1))-1:IFY=64THENY=90
430 IFZ<65ORZ>90THENPRINT" {REVERSE ON}UNGUELTIGER KODE!":GOTO380
440 IFZ=65ORZ=69ORZ=73ORZ=79ORZ=85ORZ=89THENV=V+1
450 IFZ=YTHENM=M+1
460 Z(J)=Z:Y(J)=Y:NEXTJ
470 IFM=5THEN580
480 IFV=0ORV=5THENPRINT"{REVERSE ON}WAS SOLL DER QUATSCH?":GOTO380
490 FORJ=1TO5:Y=Y(J)
500 FORK=1TO5:IFY=Z(K)THENH=H+1:Z(K)=0:GOTO520
510 NEXTK
520 NEXTJ
530 PRINT"{UP}{RIGHT*22}";H;"TREFFER"
540 IFG<30THEN380
550 PRINT" {REVERSE ON}GIB'S AUF ! DER KODE HEISST '";
560 FORJ=1TO5:PRINTCHR$(Y(J));:NEXTJ
570 PRINT"'":GOTO590
580 PRINT" DU HAST ES IN"G"VERSUCHEN GESCHAFFT!"
590 INPUT"{REVERSE ON}EIN NEUER KODE";Z$
600 R=1:IFASC(Z$)<>78THEN330

<<zurück (Seite 152) vor>>