Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß) 10 DOKE 983,11504:CLEAR 256,14450:DOKE 760,-4239:DOKE 762,98:POKE-4152,32 15 GOSUB 1240:POKE 14990,0:GOSUB 1300:GOSUB 1400 20! 25!***************************** 30!* * 35!* MASCHINENUNTERPROGRAMME * 40!* * 45!***************************** 50! 55!*** TREFFER *** 60! 65 DATA 245,197,213,229,42,248,2,62,208,6,16,14,18,22,200,21,32,253 70 DATA 13,32,248,119,60,16,242,54,32,33,113,239,34,248,2,58 75 DATA 243,2,61,50,243,2,225,209,193,241,201 80 FOR X=550 TO 594:READ F:POKE X,F:NEXT X 85! 90!*** AUSWERTUNG *** 95! 100 DATA 245,197,213,229,58,57,59,254,8,40,53,0,254,1,40,6,0,254,2,32,56,0 105 DATA 42,248,2,58,250,2,254,98,32,14,0,17,1,0,25,62,111,190,204,38,2 110 DATA 24,16,0,254,100,32,14,0,17,255,255,25,62,111,190,204,38,2,24,14,0 115 DATA 58,253,2,254,154,204,38,2,0,0,0,0,0 120 DATA 58,253,2,17,100,0,42,246,2,254,111,32,7,0 125 DATA 205,38,2,24,25,0,254,38,32,3,0,25,25,254,36,32,2,0,25,254,203 130 DATA 32,4,0,25,25,25,34,246,2,225,209,193,241,201 135 FOR X=600 TO 725:READ F:POKE X,F:NEXT X 140! 145!*** HAUPTPROGAMM LEVEL 1 *** 150! 155 DATA 229,197,213,42,248,2,62,32,119,205,188,62,205,208,62,205,152,58 160 DATA 205,88,2,205,171,59,209,193,225,201 165 FOR X=726 TO 753:READ F:POKE X,F:NEXT 170! 175!*** SPRUNG *** 180! 185 DATA 42,248,2,17,215,255,25,62,72,190,40,18,0,62,32,190,40,9,0,205,144 190 DATA 61,62,0,50,178,58,254,0,200,62,100,119,34,248,2,62,6,50,178,58,201 195 FOR X=0 TO 41:READ F:POKE X+15550,F:NEXT X 200 DATA 42,248,2,17,215,255,25,62,72,190,40,30,0,62,32,190 205 DATA 40,24,0,205,144,61,62,36,190,40,15,0,62,38,190,40 210 DATA 9,0,62,0,50,178,58,254,0,200,62,100,119,34,248,2,62 215 DATA 7,50,178,58,201 220 FOR X=0 TO 53:READ F:POKE X+15600,F:NEXT X 225 DATA 42,248,2,17,39,0,25,62,72,190,40,18,0,62,32,190 230 DATA 40,9,0,205,144,61,62,0,50,178,58,254,0,200,62,100,119,34 235 DATA 248,2,62,8,50,178,58,254,8,201 240 FOR X=0 TO 43:READ F:POKE X+15660,F:NEXT X 245 DATA 42,248,2,17,39,0,25,62,72,190,40,18,0,62,32,190 250 DATA 40,9,0,205,144,61,62,0,50,178,58,254,0,200,62,100,119,34 255 DATA 248,2,62,0,50,178,58,254,0,201 260 FOR X=0 TO 43:READ F:POKE X+15710,F:NEXT X 265! 270!*** SPRUNG INHALT *** 275! 280 DATA 126,50,253,2,201 285 FOR X=0 TO 4:READ F:POKE X+15760,F:NEXT X 290! 295!*** HAUPTPROGRAMM LEVEL 2 *** 300! 305 DATA 229,197,213,42,248,2,62,32,119,205,179,61,205,152,58,205,88,2 310 DATA 209,193,225,201 315 FOR X=0 TO 21:READ F:POKE X+15770,F:NEXT 320! 325!*** RO/LEI LEVEL 2 *** 330! 335 DATA 245,197,213,229,33,88,239,6,4,17,40,0,126,25,119,17,176,255 340 DATA 25,16,244,33,225,238,1,13,0,17,224,238,237,176,33,197,238,6,4 345 DATA 17,40,0,126,25,119,17,176,255,25,16,244,33,76,238,1,19,0,17,77,238 350 DATA 237,184,33,18,238,6,8,17,40,0,126,25,119,17,176,255,25,16,244,33,251 355 DATA 236,1,10,0,17,250,236,237,176,33,143,239,17,216,255,6,4,54,72,25 360 DATA 16,251,33,215,238,6,4,54,72,25,16,251,33,149,237,6,4,54,72,25,16 365 DATA 251,33,82,238,6,4,54,72,25,16,251,205,188,62,225,209,193,241,201 370 FOR X=0 TO 138:READ F:POKE X+15795,F:NEXT X 375 DATA 197,213,14,24,17,32,236,205,5,0,205,124,56,209,193,201 380 FOR X=0 TO 15:READ F:POKE X+15950,F:NEXT X 385! 390!*** LEITER OBEN *** 395! 400 DATA 213,229,33,11,237,17,216,255,54,72,25,54,72,25,54,72 405 DATA 225,209,201 410 FOR X=0 TO 18:READ F:POKE X+16060,F:NEXT X 415! 420!*** RO/LEI LEVEL 1 *** 425! 430 DATA 197,213,229,62,111,17,216,255,33,144,239,6,4,190,40,3,0,54,32,25,16 435 DATA 249,33,114,239,1,38,0,17,113,239,237,176,17,216,255,33,144,239,6,4 440 DATA 190,40,3,0,54,72,25,16,249,58,111,239,50,151,239,58,71,239,50,111 445 DATA 239,58,31,239,50,71,239,58,247,238,50,31,239 450 DATA 33,213,238,62,111,6,4,190,40,3,0,54,32,25,16,249 455 DATA 33,246,238,1,39,0,17,247,238,237,184,17,216,255,33,213,238,6,4,190 460 DATA 40,3,0,54,72,25,16,249,58,168,238,50,208,238,58 465 DATA 128,238,50,168,238,58,88,238 470 DATA 50,128,238,58,48,238,50,88,238,33,76,238,62,111,6,4,190,40,3,0,54,32 475 DATA 25,16,249,33,49,238 480 DATA 1,39,0,17,48,238,237,176,33,76,238,17,216,255,6,4,190,40,3,0,54,72 485 DATA 25,16,249,58,47,238,50,87,238,58,7,238,50,47,238,58,223,237,50,7,238 490 DATA 58,183,237,50,223,237,33,152,237,62,111,6,4,190,40,3,0,54,32,25,16 495 DATA 249,33,182,237,1,39,0,17,183,237,237,184,33,152,237,17,216,255,6,4 500 DATA 190,40,3,0,54,72,25,16,249,58,104,237,50,144,237 505 DATA 58,64,237,50,104,237,58,24,237,50,64,237 510 DATA 58,240,236,50,24,237,33,241,236 515 DATA 1,22,0,17,240,236,237,176,225,209,193,201 520 FOR X=0 TO 292:READ F:POKE X+16080,F:NEXT X 525! 530!*** SOUND *** 535! 540 DATA 9,116,2,93,2,72,4,116,3,72,3,44,3,44,3,62,3,93,4 545 DATA 8,116,2,93,2,72,4,72,4,62,2,93,2,28,4,44,6 550 DATA 10,116,2,93,2,72,2,62,4,116,6,62,2,72,2,62,2,44,4,93,6 555 DATA 10,116,5,116,5,116,3,116,7,72,5,93,3,93,5,116,5,116,3,116,10 560 DATA 50,72,3,129,1,129,4,72,4,104,3,104,1,104,8,82,3,72,1,53,4,82,4,72,2 565 DATA 36,2,72,4,0,4,82,3,72,1,53,4,53,4,36,2,72,2,53,4,53,4,82,3,72,2 570 DATA 53,4,53,4,36,2,72,2,53,4,53,4,72,3,82,1,104,2,28,2,36,2,53,2 575 DATA 36,4,53,4,72,6,0,2,72,3,82,2,104,2,28,2,36,2,53,2,14,4,82,4,72,8 580! 585!*** HAUPTPROGRAMM *** 590! 595 CLEAR:DEF FN AS(E)=INT(ABS(SIN((PEEK(31)/10)*PI)*3))+1 600 DOKE 755,5:DOKE 758,0:DOKE 29,0:POKE 31,0 605 LL=LL+1:U=M:DOKE 760,-4239:DOKE 762,98:GOSUB 1240:OUT 136,0 610 IF LL>1 AND DEEK(758)>1000 THEN DOKE 755,DEEK(755)+1 615 IF LL>1 THEN DOKE 758,DEEK(758)+1000 620 ON LL GOTO 630,690,630,690,745 625! 630!*** LEVEL 1 *** 635! 640 GOSUB 800:POKE-4239,98:RESTORE 550:GOSUB 1225 645 Q=1:GOSUB 1210:U=M:DOKE 30,0 650 POKE 15276,FN AS(E) 655 IF RND(1)<.04 THEN POKE-4859,111 660 POKE 15161,JOYST$(1):CALL 726 665 M=PEEK(755):IF U>M THEN BEEP:GOSUB 1175 670 U=M:F=DEEK(760):IF F>-4975 AND F<-4971 THEN GOTO 680 675 IF PEEK(30)>0 AND PEEK(31)>30 THEN R$="TIME":GOTO 1250:ELSE GOTO 650 680 GOSUB 1210:RESTORE 560:GOSUB 1225:PAUSE 20:GOTO 605 685! 690!*** LEVEL 2 *** 695! 700 GOSUB 925:POKE-4239,98 705 RESTORE 550:GOSUB 1225:Q=2:GOSUB 1210:U=M:DOKE 30,0 710 IF RND(1)<.14 THEN POKE-4861,111 715 POKE 15161,JOYST$(1):CALL 15770:POKE 765,32 720 M=PEEK(755):IF U>M THEN BEEP:GOSUB 1175 725 U=M:F=DEEK(760):IF F>-4975 AND F<-4971 THEN GOTO 735 730 IF PEEK(30)>0 AND PEEK(31)>30 THEN R$="TIME":GOTO 1250:ELSE GOTO 710 735 GOSUB 1210:RESTORE 560:GOSUB 1225:PAUSE 20:GOTO 605 740! 745!*** LEVEL 3 *** 750! 755 GOSUB 1050:POKE-4239,98:POKE 14990,0:RESTORE 550:GOSUB 1225:Q=3:U=M 760 GOSUB 1210:DOKE 30,0 765 IF RND(1)<.08 THEN POKE-4976,111:ELSE IF RND(1)<.1 THEN POKE-4983,111 770 IF RND(1)<.12 THEN POKE-4996,111 775 POKE 15161,JOYST$(1):CALL 14900 780 M=PEEK(755):IF U>M THEN BEEP:GOSUB 1175 785 U=M:F=DEEK(760):IF F>-4974 AND F<-4970 THEN GOSUB 1210:GOSUB 1375:GOTO 795 790 IF PEEK(30)>1 THEN R$="TIME":GOSUB 1250:ELSE GOTO 765 795 RESTORE 560:GOSUB 1225:PAUSE 20:WINDOW 9,14,9,27:CLS:GOTO 1270 800!*** GRAFIK LEVEL 1*** 805 PRINT AT(23,0);STRING$(40,"") 810 PRINT AT(22,0);" H" 815 PRINT AT(21,0);" H" 820 PRINT AT(20,0);" H $" 825 PRINT AT(19,0);STRING$(32,""),"H" 830 PRINT AT(18,5);"H o o" 835 PRINT AT(17,5);"H" 840 PRINT AT(16,1);"&& H" 845 PRINT AT(15,1);"HHHHH" 850 PRINT AT(14,20);"o o H" 855 PRINT AT(13,28);"H" 860 PRINT AT(12,12);"&& $H $$" 865 PRINT AT(11,0);STRING$(28,""),"H" 870 PRINT AT(10,8);"H oo" 875 PRINT AT(9,8);"H" 880 PRINT AT(8,5);"$$ H" 885 PRINT AT(7,1);"H",STRING$(28,"") 890 PRINT AT(6,5);"oo H " 895 PRINT AT(5,27);"H " 900 PRINT AT(4,2);"&& H" 905 PRINT AT(3,32);"" 910 PRINT AT(2,32);"" 915 PRINT AT(1,32);"" 920 RETURN 925!*** GRAFIK LEVEL 2 *** 930 PRINT AT(23,0);"",STRING$(23,"") 935 PRINT AT(22,0);" H" 940 PRINT AT(21,0);" H" 945 PRINT AT(20,0);" H $" 950 PRINT AT(19,0);" HHHH" 955 PRINT AT(18,7);"H o o oo" 960 PRINT AT(17,7);"H" 965 PRINT AT(16,7);"H && && &" 970 PRINT AT(15,2);"HHHHH " 975 PRINT AT(14,8);" o o H" 980 PRINT AT(13,8);" H" 985 PRINT AT(12,7);"$ && H &" 990 PRINT AT(11,0);" H" 995 PRINT AT(10,5);"H" 1000 PRINT AT(9,5);"H" 1005 PRINT AT(8,2);"& H &" 1010 PRINT AT(7,2);"H ",STRING$(26,"") 1015 PRINT AT(6,12);"oo o H " 1020 PRINT AT(5,27);"H " 1025 PRINT AT(4,8);"& H" 1030 PRINT AT(3,31);"" 1035 PRINT AT(2,31);"" 1040 PRINT AT(1,31);"" 1045 RETURN 1050!*** GRAFIK LEVEL 3 *** 1055 PRINT AT(23,0);STRING$(40,"") 1060 PRINT AT(22,0);" H H H" 1065 PRINT AT(21,0);" H H H" 1070 PRINT AT(20,0);" H H & & H" 1075 PRINT AT(19,0);"H H H" 1080 PRINT AT(18,0);" H H H H" 1085 PRINT AT(17,0);" H H H H" 1090 PRINT AT(16,0);" & & & H H $ $ H H" 1095 PRINT AT(15,0);" H HH H" 1100 PRINT AT(14,0);" H H H H" 1105 PRINT AT(13,0);" H H H H" 1110 PRINT AT(12,0);"$H & H H H" 1115 PRINT AT(11,0);"H H H H" 1120 PRINT AT(10,0);" H H H H" 1125 PRINT AT(9,0);" H H H" 1130 PRINT AT(8,0);" H H H" 1135 PRINT AT(7,0);" H * * H & " 1140 PRINT AT(6,0);" H H " 1145 PRINT AT(5,23);"H H &" 1150 PRINT AT(4,3);"& $ $ H" 1155 PRINT AT(3,32);"" 1160 PRINT AT(2,32);"" 1165 PRINT AT(1,4);" " 1170 RETURN 1175!*** KOPF *** 1180 TB=DEEK(30):M=PEEK(755):BZ=G-J:IF Q<>3 THEN PRINT AT(22,1);" " 1185 PRINT AT(0,0);"LEVEL",Q,"LADS",M 1190 PRINT AT(0,15);"SCORE",DEEK(758):PRINT AT(0,27);"TIME" 1195 N=M:IF M>0 THEN PRINT AT(3,10);"GET READY !" 1200 IF M<1 THEN R$="LADS":GOTO 1250 1205 PAUSE 9:PRINT AT(3,10);" ":DOKE 30,TB:RETURN 1210 PRINT AT(0,0);"LEVEL",Q,"LADS",PEEK(755),"SCORE",DEEK(758) 1215 PRINT AT(0,27);"TIME 00:00:00":PAUSE 10:RETURN 1220!*** SOUND *** 1225 OUT 136,128:READ K:IF K=50 AND Q<>3 THEN K=15 1230 FOR I=1 TO K:READ T,P:IF T=0 THEN 1235:ELSE OUT 128,7:OUT 128,T+100 1235 PAUSE P:NEXT:OUT 128,3:OUT 136,0:DOKE 30,TB:RETURN 1240!*** LOESCHEN *** 1245 FOR X=0 TO 23:PRINT AT(X,0);STRING$(40," "):NEXT X:PAUSE 20:RETURN 1250!*** ENDE *** 1255 RESTORE 555:GOSUB 1225 1260 PAUSE 25:GOSUB 1240 1265 PRINT AT(5,14);R$," OUT !":PAUSE 15 1270 PRINT AT(10,13);"GAMES OVER !":CLEAR 1275 PRINT AT(13,10);"NEW GAMES ? (Y)/N" 1280 T$=INKEY$ 1285 IF T$=CHR$(13)OR T$="Y"THEN GOTO 585 1290 IF T$="N"THEN RESTORE 540:GOSUB 1225:WINDOW:CLS:END:ELSE GOTO 1280 1295 END 1300!*** TITEL *** 1305 OUT 136,4:PAUSE 5 1310 PRINT AT(16,1);"PER LEVEL..1000 POINTS LEVEL3 2.00min" 1315 PRINT AT(15,1);"&...........200 POINTS LEVEL2 1.30min" 1320 PRINT AT(14,1);"$...........100 POINTS LEVEL1 1.30min" 1325 PRINT AT(13,1);"*.................JUMP " 1330 PRINT AT(12,1);" o.....DEADLY PERIL TIME PER LEVEL" 1335 PRINT AT(8,4);"Written by O.Quasdorff (C)1986" 1340 PRINT AT(5,5);"**** ***** **** **** ** *" 1345 PRINT AT(4,5);"* * * * * * * * *" 1350 PRINT AT(3,5);"* * * * ** * ** **** **" 1355 PRINT AT(2,5);"* *** ** * ** * ** * *" 1360 PRINT AT(1,5);"* * *" 1365 PRINT AT(0,5);"* * *" 1370 RETURN 1375!*** GEWONNEN *** 1380 FOR J=1 TO 10:FOR Y=1 TO 3:FOR X=32 TO 36:PRINT AT(Y,X);CHR$(RND(1)*40+208) 1385 NEXT X,Y,J:FOR X=1 TO 3:PRINT AT(X,32);STRING$(5," "):NEXT 1390 PRINT AT(3,26);" bd":PAUSE 10:RETURN 1400!*** SCH-UP *** 1410 IF PEEK(-4783)<>81 THEN PRINT AT(15,15);"Plagiat !!":PAUSE 2:CALL*C000 1420 IF PEEK(15500)<>42 THEN PRINT AT(15,15);"RAUBKOPIE !!":PAUSE 2:CALL*C000 1430 RETURN 65533 PROGRAMM:O.QUASD OR FF / ING.-SCHULE EISLEBEN