Q-BERTUS tGOSUBS ZU DEN UNTERPR.  ""49152 E0:0:7: 0:0:0: V1200:1000: 1100L:1400x: 1300:0170 2HAUPTROUTINE 7 CODE= <#10 +(90ZCODE>64@) Ab10 +(412 (BALL=0SCHLANGE=0 ƥ<.05|L*PYRAMIDE)) F<(300,*BALL) +(450*SCHLANGE) K 502 dFIGURENSTEUERUNG i.001wn,502 nVCO1,CO2; I(CO1+1,CO2+1);" "; CO1+1,CO2;" " xCO1=CO1-(3 (CODE=L(1)CODE=L(2))) +(3 (CODE=L(3)CODE=L(4))) CO2=CO2+(2 (CODE=L(1)CODE=L(4))) -(2 (CODE=L(2)CODE=L(3))) -CO1>19CO1<1 750 6I(CO1+1,CO2+1)=0 750 E10 +(190 I(CO1+1,CO2+1)19BA1=1: BA2=15:BALL=0: 650 TIO=(*PYRAMIDE)+1 ^0BA2CO2IO>4 400:380| hIO=(*10 )+1 rEBA2=BA2+(2IO5) -(2IO>5) |&BA1=CO1BA2=CO2 750 [I(BA1+1,BA2+1); 9 ;BA1,BA2;""; BA1+1,BA2;"": REAGIEREN DES BALLES =BA2=BA2+(2BA2CO2) M(*PYRAMIDE)>5 KOR1=BA1: KOR2=BA2:700  NEUER BALL AUF FELD 5BA1=1:BA2=15: BALL=1: SCHLANGENBEWEGUNG VSL1,SL2; I(SL1+1,SL2+1);" "; SL1+1,SL2;" " &SL1=CO1SL2=CO2 750 TEST=SL1+RICHTUNG JTEST<1TEST>19 RICHTUNG=-RICHTUNG: 5600  SL1=TEST MO=(*10 )+1 JPIO1=I(SL1+1,SL2+3): PIO2=I(SL1+1,SL2-1) ;PIO1=0 SL2=SL2-2:5600 ;PIO2=0 SL2=SL2+2:5600 &FSL2=SL2+(2MO<5) -(2MO5) 0&SL1=CO1SL2=CO2 750 :^SL1,SL2; I(SL1+1,SL2+1);7 ;"";SL1+1,SL2;"" D SCHLANGE JA/NEIN PYRAMIDE<6 p(*PYRAMIDE)>4 SCHLANGE=1: SL1=19:SL2=11 : 570::  FELDER ZURUECKSETZEN 3I(KOR1+1,KOR2+1)=1  нI(KOR1+1,KOR2+1) =I(KOR1+1,KOR2+1)-1: I(KOR1+1,KOR2+1) =ANZAHL-1 FELDER=FELDER-1 KOR1-1,KOR2; 1;8; I(KOR1+1,KOR2+1);" "; KOR1,KOR2-1;" "; KOR1+1,KOR2-1;" "; KOR1+2,KOR2;" "  VON PYRAMIDE GEFALLEN 7F=60<-20-3: .01z# =,F:F LIVES=LIVES-1 wCO1<20CO1>0 I(CO1+1,CO2+1); CO1,CO2;" "; CO1+1,CO2;" " CO1=19:CO2=3 SCHLANGE=0  qBALL=1 I(BA1+1,BA2+1);BA1,BA2; " ";BA1+1,BA2;" ": BALL=0 LIVES=0900 "1;2,27;LIVES 170:502  NAECHSTE STUFE *8F=-10 60<2: .015zu\,F:F 4PYRAMIDE=PYRAMIDE+1 >4SCORE=SCORE +100d*PYRAMIDE HPYRAMIDE/5 =(PYRAMIDE/5) LIVES=LIVES+1: F=-10 10 .2~L: .01z# =,F:.02{# =,F-10 : F R 1100L \CO1=19:CO2=3 f7FELDER=0:BALL=0: SCHLANGE=0 pxANZAHL<5 PYRAMIDE/3 =(PYRAMIDE/3) ANZAHL=ANZAHL+1 z)1300:170: 502 SPIELENDE 7F=60<-30-1: .01z# =,F:F C930:F=111  : A,B:A/2,B: F 2,0,1.75`,0,.25~,0,2,0, 1.75`,3,.25~,2,1.75`,2,.2 5~,0,1.75`,0,.25~,-1,1,0  0  20  INITIALISIEREN DSCORE=0:HISCORE=0: LIVES=3:FELDER=0 fCO1=19:CO2=3: BA1=1 :BA2=15: SL1=1 :SL2=15 ANZAHL=2:BALL=0 RICHTUNG=3 SCHLANGE=0 $PYRAMIDE=1 ) L(4) . LPYRAMIDENFELDER=1 VI(22,32 ) `A1=16:B1=2: F=17: A=A1:B=B1: G=1F: I(B,A)=1:A=A+4: G: A1=A1-2:B1=B1+3: F j t GRAPHIKZEICHEN+CODE  1200 1F=49000h49011s: A:F,A:F Ώ 001,000,027,033!,000,192,017,000,064@,237,176,201 %F="E""P"+7: A:F,A:F  079O,063?,120x,115s,243,240,240,249,200,240,008,244,100d,031,001,023,120x,060<,030,031,013 ,025,025,029,228,008,016,224,128,128,128,192,000,007,031,060<,0491,115s,103g,111o,000,224,248,252,252,254,254,254,111o,127,127,063?,063?,031,007,000,254,254,254,252,252,248,224,000,000,007,123{,063?,015,062>,124|,000,000,224,248,252,028,014,030,252,031,063?,120x,240,225,240,127,063?,248,192,000,126~,255,007,255,254  PYRAMIDENAUFBAU 49000h (f0,0;1; "HI-SCORE:";HISCORE; 0,21;"SCORE:";SCORE 2f2,0;1; "PYRAMIDE:";PYRAMIDE; 2,21;"LIVES:";LIVES < xPROGRAMMANLEITUNG +"RECHTS-OBEN:";L$: L(1)=L$ +"LINKS-OBEN:";L$: L(2)=L$ +"LINKS-UNTEN:";L$: L(3)=L$ +"RECHTS-UNTEN:";L$: L(4)=L$  CODE @I?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? 1 91199 19 1 91 911991199 19 19 1 91 91 9119911991199 19 19 19 1 91 91 91 91199119911991199 19 19 19 19 1 91 91 91 91 911991199119911991199 19 19 19 19 19 1 91 91 91 91 91 9119911991199119911991199 19 19 19 19 19 19 1 91 91 91 91 91 91 919191919191919