2bc0 33cf 0000 B ... BOHRTURM        
wie [1952f7d60e3410fedec852b02f7a05cd]
Diese Variante benutzt die PEEK(4) zur Eingabe.

Sie sind auf einer defekten
Bohrplattform und muessen ueber
die Loecher im Plattformboden
springen.

Steuerung: ␣ - Springen

10 WINDOW:CLS:SC=100:N$="Oeli":A$=""
20 PRINT AT(24,0);STRING$(16," "):PRINT AT(25,0);STRING$(16," ")
30 B$="            ":D$=" ":E$="  ":D$=STRING$(10,D$)
40 E$=STRING$(10,E$):R=1:DIM V(20)
50 FOR I=26 TO 29 STEP 2
60 PRINT AT(I,0);MID$(D$,R,32):PRINT AT(I+1,0);MID$(E$,R,32):R=R+1:NEXT
70 PRINT AT(I,0);MID$(D$,R,32)
80 WINDOW 16,31,0,31:BEEP
90 PRINT "";STRING$(25,""):PRINT A$:PRINT B$
100 FOR I=19 TO 26:PRINT AT(I,3);"":PRINT AT(I,12);"":PRINT AT(I,22);""
110 NEXT:PRINT AT(I,12);""
120 PRINT AT(21,27);"  "
130 PRINT AT(22,27);""
140 PRINT AT(23,27);"  
150 BEEP
160 WINDOW 0,14,0,31:CLS
170 PRINT "     ";STRING$(19,CHR$(158))
180 PRINT "     > B O H R T U R M <":PRINT "     ";STRING$(19,"")
190 WINDOW 5,14,0,31
200 PRINT " Sie  sind auf  einer  defekten  Bohrplattform und muessen ueber";
210 PRINT " die  Loecher im Plattformboden  springen.
220 PRINT " Dazu druecken Sie eine Taste."
230 PRINT:PRINT "    Spielgeschwindigkeit":PRINT
240 PRINT "      schnell/langsam":PRINT AT(14,0);" ":BEEP
250 PRINT AT(13,6);"S":PRINT AT(13,14);"L":PAUSE 2:BEEP
260 I$=INKEY$
270 IF I$="S"THEN 300
280 IF I$="L"THEN 310:PAUSE 2:BEEP:GOTO 240
290 PRINT AT(13,6);"s":PRINT AT(13,14);"l":PAUSE 2:BEEP:GOTO 250
300 T=1:P=2:GOTO 320
310 T=30:P=1
320 CLS:BEEP 3:WINDOW 0,18,0,31:PRINT AT(0,0);" ":E=17*32-5119
330 B=INT(RND(1)*12+8):C=INT(RND(1)*12+8):A=3
340 PRINT AT(17,B);CHR$(158):PRINT AT(17,C);CHR$(158)
350 PRINT AT(15,A-1);" ":PRINT AT(16,A-1);"",CHR$(157)
360 IF A=B OR A=C THEN 460
370 IF A>23 THEN 650
380 A=A+1:S=S+P:FOR I=1 TO T:NEXT
390 IF PEEK(4)<>0 THEN GOSUB 410
400 GOTO 350
410 IF A>20 THEN RETURN
420 PRINT AT(16,A-1);""
430 PRINT AT(14,A);"":PRINT AT(15,A-1);" ",CHR$(156):A=A+1:BEEP
440 PRINT AT(14,A-1);" ":PRINT AT(15,A-1);" ",CHR$(156):A=A+1
450 PRINT AT(14,A-1);" ":RETURN
460 BEEP:PRINT AT(15,A);" ":PRINT AT(16,A);"":WINDOW:PRINT AT(0,0);" "
470 IF A=C THEN B=C
480 V(0)=137:V(1)=158
490 FOR V=2 TO 14
500 V(V)=PEEK(E+B-1+32*(V-1))
510 IF V<13 THEN PRINT AT(15+V,B);"":PRINT AT(16+V,B);CHR$(157)
520 POKE E+B-1+(V-3)*32,V(V-2):NEXT
530 BEEP 3:WINDOW 5,13,0,31
540 PRINT AT(17,0);A$
550 PRINT "       Score";S:PRINT "  High-Score";
560 IF SC<S THEN GOSUB 690:PRINT S;"by ";:INPUT N$:BEEP:SC=S:GOTO 580
570 IF SC>=S THEN PRINT SC;"by ";LEFT$(N$,10):BEEP
580 PRINT:PRINT "Geschwindigkeit veraendern ?":PRINT
590 PRINT AT(10,8);"Enter = nein":PRINT AT(10,0);" "
600 U$=INKEY$
610 IF U$=CHR$(13)THEN 630
620 IF U$="J"THEN 640 ELSE 590
630 S=0:GOTO 320
640 S=0:GOTO 160
650 PRINT AT(15,A);" ":PRINT AT(16,A);""
660 PRINT AT(17,0);A$
670 S=S+P*5:BEEP
680 GOTO 330
690 DATA 14,7,14,12,10,8,12,5
700 RESTORE 690:FOR I=1 TO 8
710 READ P:BEEP:NEXT
720 RETURN