Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)
0!RVB BASIC-MIX2
1 A1$="KLEINCOMPUTER robotron KC85/1 & KC87"
2 A2$="SPIELE":A9=2
4 A3$="R+SLALOM"
6 A4$="SLALOM-ABFAHRTSLAUF"
8 A5$="EIN GESCHICKLICHKEITSSPIEL"
10! AUTOR:SCHROETER
18 BORDER A9:INK 8:PAPER 1:WINDOW:CLS
90 GOSUB 100:GOTO 1000
100 PRINT AT(2,2);A1$:PRINT AT(4,2);"",STRING$(34,""),""
102 PRINT AT(5,2);"":PRINT AT(5,37);""
104 PRINT AT(6,2);"",STRING$(34,""),""
106 PRINT AT(5,3);A2$:PRINT INK 3;AT(5,29);A3$
108 INK A9:PRINT AT(8,2);STRING$(36,"")
110 FOR I=9 TO 13:PRINT AT(I,2);"":PRINT AT(I,37);"":NEXT I
112 PRINT AT(14,2);STRING$(36,"")
114 INK 8:PRINT AT(10,36-LEN(A4$));A4$:PRINT AT(12,36-LEN(A5$));A5$
116 INK 3:PRINT AT(18,2);"VEB ROBOTRON-MESSELEKTRONIK"
118 PRINT AT(20,2);">OTTO SCHOEN< DRESDEN":INK 8
120 PRINT INK 4;AT(22,31);">ENTER<"
122 T$=INKEY$:IF T$=""THEN 122
124 IF T$=CHR$(13)THEN RETURN:ELSE 122
1000 WINDOW:BORDER 8:PAPER 8:INK 8:CLS:DIM B(3,4),F(3,4):R=1
1005 WINDOW 0,23,5,39:PRINT STRING$(23,CHR$(10)):INK 2:PAPER 1
1010 PRINT AT(4,0);"":PRINT AT(6,0);""
1015 PRINT AT(5,0);" ":INK 8:PAPER 8
1020 PRINT INK 2;AT(7,1);" ":PRINT INK 2;AT(8,1);" "
1025 PRINT INK 5;AT(1,0);"RUNDE":PRINT INK 2;AT(2,2);"1"
1030 S$=" ":PRINT INK 5;S$
1035 PRINT INK 5;" START START":PRINT INK 5;S$
1040 V=18:P=0:O=32:N=71:Z=0:M=0:F=0
1045 I=0:Z=Z+1:IF Z=101 THEN 1315
1050 I=I+1:IF F>0 THEN 1075
1055 U=V+(PEEK(36)=8 AND V>7)-(PEEK(36)=9 AND V<36)
1060 IF PEEK(-4840+U)<>32 THEN F=1:GOTO 1145
1065 IF F=-1 THEN 1180
1070 PRINT AT(6,V);" ":POKE-4920+V,O:POKE-5944+V,N
1075 IF F<>4 THEN 1090
1080 PRINT:BEEP:FOR J=0 TO 3:FOR K=0 TO 4:POKE-5042+U+J*40+K,B(J,K)
1085 POKE-6066+U+J*40+K,F(J,K):NEXT K:NEXT J:F=5
1090 IF F<>3 THEN 1120
1095 PRINT:BEEP
1100 PRINT INK 1;AT(4,U-2);"":PRINT INK 1;AT(5,U-2);" "
1105 PRINT INK 1;AT(6,U-2);"":F=4
1110 BEEP:IF P>50 THEN P=P-50:ELSE P=0
1115 PRINT INK 3,PAPER 1;AT(5,1);RIGHT$(" "+MID$(STR$(P),2),3)
1120 IF F<>2 THEN 1140
1125 PRINT:BEEP
1130 PRINT INK 1;AT(5,U-2);" ":PRINT INK 1;AT(6,U-2);" "
1135 PRINT AT(7,U-2);" ":F=3
1140 IF F<>1 THEN 1180
1145 O=PEEK(-4760+V):N=PEEK(-5784+V):IF R=3 THEN BEEP:GOTO 1315
1150 IF PEEK(-4920+V)=196 THEN PRINT AT(5,V);" ":PRINT AT(6,V);" "
1155 BEEP:FOR J=0 TO 3:FOR K=0 TO 4:B(J,K)=PEEK(-4882+U+J*40+K)
1160 F(J,K)=PEEK(-5906+U+J*40+K):NEXT K:NEXT J:F=2
1165 PRINT:PRINT INK 1;AT(5,U-2);" "
1170 PRINT INK 1;AT(6,U-1);"":PRINT INK 1;AT(7,U-1);""
1175 PRINT INK 1;AT(8,U);""
1180 IF F>0 THEN 1200
1185 O=PEEK(-4880+U):N=PEEK(-5904+U):PRINT
1190 PRINT INK 5;AT(5,U);"":PRINT INK 5;AT(6,U);CHR$(34):V=U
1195 IF F=-1 THEN F=0
1200 IF F=5 THEN F=-1
1205 IF G=0 THEN Y=INT(10*RND(1))*2+8
1210 IF G=0 AND P>390 THEN W=INT(4*RND(1))*2+3:ELSE IF G=0 THEN W=0
1215 IF G=0 AND Y+W>28 THEN W=0
1220 IF G=0 AND RND(1)<P/500 AND I<14 THEN G=1
1225 IF G=1 OR G=2 THEN PRINT INK 3;AT(23,Y);""
1230 IF(G=1 OR G=2)AND P>390 THEN PRINT INK 3;AT(23,Y+W);""
1235 IF G=1 OR G=2 THEN G=G+1
1240 IF G=4 THEN PRINT INK 2;AT(23,Y);""
1245 IF G=4 AND P>390 THEN PRINT INK 2;AT(23,Y+W);""
1250 IF G=4 THEN G=0
1255 IF G=3 THEN G=4
1260 IF I<>17 THEN 1050
1265 J=P
1270 IF V=X+1 OR(V=X+2 AND P<310)THEN P=P+10
1275 IF P>M THEN M=P
1280 IF(J<>P OR P=0)AND R<>3 THEN 1290
1285 PRINT INK 1;" ";STRING$(31,"");
1290 X=INT(15*RND(1)+8)
1295 PRINT INK 3,PAPER 1;AT(5,1);RIGHT$(" "+MID$(STR$(P),2),3)
1300 PRINT INK 6;AT(22,X);" ":PRINT INK 6;AT(22,X+2-(P<300));""
1305 PRINT INK 1;AT(23,X);" ":PRINT INK 1;AT(23,X+2-(P<300));""
1310 GOTO 1045
1315 CLS
1320 PRINT INK 5;AT(5,18);"":PRINT INK 5;AT(6,18);CHR$(34)
1325 PRINT STRING$(20,CHR$(10)):PRINT INK 5;S$
1330 PRINT INK 5;" ZIEL ZIEL":PRINT INK 5;S$;
1335 FOR I=1 TO 20:PRINT AT(5,18);" ":PRINT AT(6,18);" ":PRINT
1340 PRINT INK 5;AT(5,18);"":PRINT INK 5;AT(6,18);CHR$(34):PAUSE 1:NEXT I
1345 IF R=3 THEN 1570
1350 PRINT INK 5;AT(10,6);"IN DER QUALIFIKATIONSRUNDE"
1355 PRINT INK 5;AT(12,6);"WURDEN",M,"PUNKTE ERREICHT"
1360 PAUSE 30:IF M>490 THEN 1415
1365 PRINT INK 2;AT(16,6);"SIE MUESSEN NOCH TRAINIEREN"
1370 PRINT INK 2;AT(18,6);"UM DIE ZWISCHENRUNDE ZU ERREICHEN"
1375 PRINT INK 5;AT(22,32);">ENTER<":A$=INKEY$
1380 A$=INKEY$:IF A$<>CHR$(13)THEN 1380
1385 WINDOW:CLS:PRINT INK 5;AT(10,6);"STARTEN SIE NOCH EINMAL ?"
1390 A$=INKEY$
1395 A$=INKEY$:IF A$=""THEN 1395
1400 IF A$<>"N"THEN CLEAR:GOTO 1000
1405 BORDER 1:PAPER 1:INK 3:CLS:PRINT AT(10,6);"AUF WIEDERSEHEN!"
1410 PAUSE 50:CLS:END
1415 PRINT INK 2;AT(16,6);"SIE ERREICHEN DIE ZWISCHENRUNDE"
1420 F=INT((M-500)/10)+2
1425 PRINT INK 2;AT(18,6);"MIT FEHLERGUTSCHRIFT",F:PAUSE 50:CLS
1430 PRINT INK 2;AT(2,2);"2":R=2
1435 PRINT INK 2,PAPER 1;AT(5,1);RIGHT$(" "+MID$(STR$(F),2),3)
1440 WINDOW 0,23,20,20:PRINT STRING$(22,CHR$(10))
1445 V=19:Z=0:U=20:I=0:GOTO 1455
1450 U=V+(PEEK(36)=8 AND V>17)-(PEEK(36)=9 AND V<23)
1455 IF U=20 AND V=21 THEN U=19
1460 IF U=20 AND V=19 THEN U=21
1465 IF U<>V THEN PRINT AT(4,V);" ":PRINT AT(5,V);" "
1470 IF U<>V THEN PRINT INK 5;AT(4,U);"":PRINT INK 5;AT(5,U);CHR$(34):V=U
1475 O=PEEK(-4860):IF(O=143 OR O=159)AND V>19 THEN 1510
1480 IF(O=190 OR O=192)AND V<21 THEN 1510
1485 IF I<>0 THEN I=I-1:PRINT:GOTO 1450
1490 I=INT(5*RND(1)+3):Z=Z+1
1495 IF Z/2=INT(Z/2)THEN A$="":B$="":N=6:ELSE A$="":B$="":N=3
1500 PRINT INK N;AT(21,20);A$:PRINT INK 1;AT(22,20);B$
1505 PRINT:GOTO 1450
1510 F=F-1:PRINT INK 2,PAPER 1;AT(5,1);RIGHT$(" "+MID$(STR$(F),2),3)
1515 BEEP:IF F<>0 AND Z<200 THEN 1485
1520 WINDOW 0,23,5,39:CLS:PRINT INK 5;AT(10,6);"IN DER ZWISCHENRUNDE WURDEN"
1525 PRINT INK 5;AT(12,5);Z,"FAEHNCHEN GUELTIG PASSIERT":PAUSE 30
1530 IF Z>99 THEN 1550
1535 PRINT INK 2;AT(16,6);"DAMIT ERREICHEN SIE LEIDER DIE"
1540 PRINT INK 2;AT(18,6);"FINALRUNDE NOCH NICHT"
1545 GOTO 1375
1550 M1=M:Z1=Z:PRINT INK 2;AT(16,6);"SIE SIND IN DER FINALRUNDE!"
1555 F1=F:PRINT INK 2;AT(18,6);"DER ERSTE FEHLER BEENDET DEN LAUF"
1560 PRINT INK 3,PAPER 1;AT(5,1);" 0":PRINT INK 2;AT(2,2);"3":R=3
1565 PAUSE 50:CLS:PRINT STRING$(23,CHR$(10)):GOTO 1030
1570 PRINT INK 5;AT(10,6);"IN DER FINALRUNDE HABEN SIE"
1575 PRINT INK 5;AT(12,6);"SICH",P,"PUNKTE GESICHERT":PAUSE 50
1580 WINDOW:BORDER 5:PAPER 2:CLS:WINDOW 1,22,1,38:PAPER 5:CLS:INK 8
1585 PRINT AT(4,12);"GESAMT-WERTUNG":PRINT INK 3;AT(5,12);STRING$(14,"")
1590 PRINT AT(9,8);"RUNDE 1 :",M1,"PUNKTE"
1595 Z=(Z1-100+F1)*5:PRINT AT(11,8);"RUNDE 2 :",Z,"PUNKTE"
1600 P=P*2:PRINT AT(13,8);"RUNDE 3 :",P,"PUNKTE"
1605 Z1=M1+Z+P:PRINT INK 2;AT(17,8);"GESAMT :",Z1,"PUNKTE"
1610 PAUSE 100:END
9000!ENDE SLALOM