Sharp PC1360 |
Javascriptprogramm
Dokumentation
Programmspeicher-Image laden
| 010 | "S" CLS : WAIT 0 |
| 020 | CLEAR : PRINT "***** SUPERHIRN *****": INPUT "N(orm.) / P(rof.) ? ";X$ |
| 030 | IF X$="P" LET Y=1: GOSUB "PROF" |
| 040 | IF X$="N" GOSUB "NORM" |
| 050 | PRINT "": PRINT " *** BUSY ***" |
| 060 | Z=0 |
| 070 | FOR P=1 TO 4+Y: LET A(P)=RND (6+2*Y): NEXT P |
| 080 | IF A=BOR A=COR A=DOR A=E LET A=RND (6+2*Y): GOTO 80 |
| 090 | IF B=AOR B=COR B=DOR B=E LET B=RND (6+2*Y): GOTO 90 |
| 100 | IF C=AOR C=BOR C=DOR C=E LET C=RND (6+2*Y): GOTO 100 |
| 110 | IF D=AOR D=BOR D=COR D=E LET D=RND (6+2*Y): GOTO 110 |
| 120 | IF E=AOR E=BOR E=COR E=D LET E=RND (6+2*Y): GOTO 120 |
| 130 | Z=Z+1: W=0: S=0 |
| 140 | CLS |
| 150 | FOR P=6 TO 9+Y: PRINT "Farbe ";STR$ (P-5): INPUT A$(P): NEXT P |
| 160 | CLS : PRINT "": PRINT " *** BUSY ***" |
| 170 | FOR P=11 TO 14+Y: V$=LEFT$ (A$(P-5),2) |
| 180 | IF V$="BR" LET A(P)=1: GOTO 270 |
| 190 | IF V$="RO" LET A(P)=2: GOTO 270 |
| 200 | IF V$="OR" LET A(P)=3: GOTO 270 |
| 210 | IF V$="GE" LET A(P)=4: GOTO 270 |
| 220 | IF V$="GR" LET A(P)=5: GOTO 270 |
| 230 | IF V$="BL" LET A(P)=6: GOTO 270 |
| 240 | IF V$="SC" LET A(P)=7: GOTO 270 |
| 250 | IF V$="WE" LET A(P)=8: GOTO 270 |
| 260 | CLS : PAUSE "Eingabefehler !": GOTO 140 |
| 270 | NEXT P |
| 280 | FOR Q=1 TO 4+Y: FOR R=11 TO 14+Y |
| 290 | IF A(Q)=A(R) LET W=W+1 |
| 300 | NEXT R |
| 310 | IF A(Q)=A(Q+10) LET S=S+1: W=W-1 |
| 320 | NEXT Q |
| 330 | IF S=4+Y PAUSE "Erraten im ";Z;" Versuch !": GOTO 60 |
| 340 | CLS : PRINT STR$ S;" Schwarze !": WAIT : PRINT STR$ W;" Weisse !": WAIT 0: GOTO 130 |
| 350 | "PROF"PRINT "*** PROFESSIONAL ***": PRINT "5-er-Kombination": PRINT "ohne Doppelte" |
| 360 | WAIT : PRINT "mit 8 Farben :": PAUSE "Schwarz (SC)": PAUSE "Weiss (WE)" |
| 370 | PAUSE "Braun (BR)": PAUSE "Rot (RO)": PAUSE "Orange (OR)": PAUSE "Gelb (GE)" |
| 380 | PAUSE "Gruen (GR)": PAUSE "Blau (BL)": WAIT 0: CLS : RETURN |
| 390 | "NORM"PRINT "**** NORMAL ****": PRINT "4-er-Kombination": PRINT "ohne Doppelte" |
| 400 | WAIT : PRINT "mit 6 Farben :": GOTO 370 |
| 410 | END |
Javascriptprogramm
Dokumentation
Programmspeicher-Image laden
|
|
Falls diese Seite ohne Navigationsleiste angezeigt wird, aktivieren Sie Javascript oder klicken Sie hier!