Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)
1 REM Jan Bochmann 17.12.85
3 CLS
5 I=39:H1=11:H2=12:C=1:J=14
10 A$=" ":B$=" ":C$="":D$=" ":E$=" "
20 PRINT ""
22 PRINT " "
25 PRINT " Programm Reaktionsspiel "
27 PRINT " "
30 PRINT " H I N D E R N I S R E I T E N "
32 PRINT " "
35 PRINT ""
37 PRINT:PRINT
40 PRINT "Sie muessen mit ihrem Pferd 20 oder 40":PRINT
42 PRINT "Hindernisse ueberwinden. Das Pferd ":PRINT
45 PRINT "laeuft von allein, Sie muessen es aber":PRINT
47 PRINT "vor jedem Hindernis zum Sprung bewegen,":PRINT
50 PRINT "dazu dient die Pfeiltaste "
52 PRINT " "
53 PRINT " ."
55 PRINT " Viel Spass !":PRINT
60 PRINT "Schwierigkeitsstufe ?(1/2)"
65 IF JOYST$(1)=2 THEN Q=1:GOTO 90
70 IF JOYST$(1)=4 THEN Q=2:GOTO 90
80 GOTO 65
90 CLS:PRINT AT(0,0);"Strafpunkte: "
95 PRINT AT(0,14);S
100 IF JOYST$(1)=8 AND M>0 THEN GOSUB 700
110 PRINT AT(H1,15);A$:ON C GOTO 115,200
115 PRINT AT(H2,15);B$:C=C+1
120 PRINT AT(12,I);D$
125 IF Q=2 THEN PRINT AT(12,J);E$
130 IF W>0 THEN W=W+1:IF W=5 THEN 800
140 I=I-1:J=J-1
145 R=R+1:IF R=600 THEN 3000
150 IF H1=11 AND I<18 AND I>14 THEN GOSUB 900
155 IF Q=2 AND H1=11 AND J>14 AND J<18 THEN GOSUB 900
160 M=M+1
165 IF ABS(I-J)<7 THEN GOSUB 2000
170 IF I=0 THEN 500
175 IF J=0 THEN 400
180 GOTO 100
200 PRINT AT(12,15);C$:C=1
210 GOTO 120
400 J=39
405 GOTO 505
500 I=39
505 PRINT AT(12,0);" "
510 GOTO 110
700 H1=10:H2=11:C=3
705 A$=" ":B$=""
710 W=1:M=-8
715 PRINT AT(12,15);" "
720 RETURN
800 H1=11:H2=12:C=1
805 A$=" ":B$=" "
810 W=0
820 PRINT AT(10,15);" "
830 GOTO 140
900 IF I<18 AND I>14 THEN F$=LEFT$(D$,1):ELSE F$=LEFT$(E$,1)
1000 PRINT AT(12,15);""+F$+" "
1010 PRINT AT(11,15);" "
1020 PRINT AT(10,17);""
1030 PRINT AT(9,17);""
1040 BEEP:BEEP:BEEP:BEEP:BEEP:BEEP:S=S+1
1045 PRINT AT(0,14);S
1050 PRINT AT(12,15);""+F$+""
1060 PRINT AT(11,15);""
1070 PRINT AT(10,15);" "
1080 PRINT AT(9,15);" "
1090 PRINT AT(8,17);""
1100 PAUSE 2
1110 PRINT AT(12,15);F$+" "
1120 PRINT AT(11,15);" "
1130 PRINT AT(9,17);""
1140 PRINT AT(8,16);" "
1150 PAUSE 2
1155 PRINT AT(11,15);" "
1160 PRINT AT(12,14);F$+""
1170 PRINT AT(10,17);""
1180 PRINT AT(9,16);" "
1190 PAUSE 2
1200 PRINT AT(12,13);F$+" "
1210 PRINT AT(11,17);"":BEEP:BEEP
1220 PRINT AT(10,16);" "
1230 IF D$=F$+" "THEN I=13:ELSE J=13
1235 PAUSE 2
1240 RETURN
2000 PRINT AT(12,I);" ":PRINT AT(12,J);" "
2010 I=34:J=14
2020 RETURN
3000 CLS:PRINT:PRINT:PRINT:PRINT
3010 IF Q=2 THEN S1=INT(S/2)+1:ELSE S1=INT(S/1.2)+1
3020 ON S1 GOTO 3100,3200,3300,3300,3400,3400,3500,3500,3600,3600,3600
3030 PRINT "Sie erhielten ";S;" (!)Strafpunkte.":PRINT
3040 PRINT "Dafuer wurden Sie disqualifiziert.":PRINT
3050 PRINT "Sie muessen aber noch ihr Pferd zum":PRINT
3060 PRINT "Schlachthof schaffen."
3070 GOTO 4000
3100 PRINT "Sie haben nur ";S;" Strafpunkte er-":PRINT
3110 PRINT "halten. Ihre Reaktionsfaehigkeit ":PRINT
3120 PRINT "wird sich wohl nicht verringern,":PRINT
3130 PRINT "wenn Sie einen ausgeben!"
3140 GOTO 4000
3200 PRINT "Sie haben ";S;"Strafpunkte erhalten.":PRINT
3210 PRINT "Ein recht gutes Ergebnis.":PRINT
3220 GOTO 4000
3300 PRINT "Ihre Strafpunktanzahl ist: ";S:PRINT
3310 PRINT "Ueben Sie weiter,Sie koennen durchaus":PRINT
3320 PRINT "noch hoffen.":PRINT
3330 GOTO 4000
3400 PRINT S;"Strafpunkte. Nicht schlecht, aber":PRINT
3410 PRINT "auch noch nicht gut.":PRINT
3420 GOTO 4000
3500 PRINT "Denken Sie daran: Uebung macht den":PRINT
3510 PRINT "Meister,und verbessern Sie Ihre";S:PRINT
3520 PRINT "Strafpunkte !":PRINT
3530 GOTO 4000
3600 PRINT "Sie haben ;"S ";Strafpunkte bekommen.":PRINT
3610 PRINT "Das sind mindestens ";S-4;"zuviel.":PRINT
3620 GOTO 4000
4000 PRINT:PRINT ""
4010 PRINT
4020 PRINT "Neuer Start ?(J/N)"
4030 IF JOYST$(1)=4 THEN RUN
4040 IF JOYST$(1)=64 THEN END
4050 GOTO 4030