1 IFPEEK(50307)=120THENPOKE50257,16
4 V=53248:S=54272:S2=S+7:L=5:PRINT"[147]"
6 POKEV+32,0:POKEV+33,0:POKEV+34,7:POKEV+35,7:POKEV+21,0:POKEV+24,29
8 CS=58640:AS=14336:GOSUB10010
10 DIMP(7,2):POKE650,128
17 FORT=1TO5:READP$(T):NEXT:P$(0)="":GOSUB10005:GOSUB10000
18 FORT=0TO4000:NEXT
20 GOSUB9000:GOSUB6300:GOSUB4900:SP=1
30 FORT=0TO5:P(T,SP)=0:NEXT:FORI=1TOL:P(I+6-L,SP)=I:NEXT
40 FORT=0TO5:P(T,0)=0:P(T,2)=0:NEXT:FORT=0TO2:P(7,T)=8:NEXT
50 C(0)=7:C(1)=7-L:C(2)=7
400 DATA"[169][223]","[169]@@[223]","[169]@@@@[223]","[169]@@@@@@[223]","[169]@@@@@@@@[223]"
2000 PRINT"[147][159]";:FORT=0TO10:PRINTTAB(RND(1)*39)".":NEXT:PRINT"[155]";
2010 PRINT"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@";
2011 PRINT"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]";
2013 PRINT"[146]         ENTFERNUNG DES KOMETEN"
2015 PRINT"        [156]                [156]                ":POKE253,63
2020 POKE254,0:POKEV+12,116:POKEV+14,228:POKEV+27,0
2030 POKEV+13,191:POKEV+15,191
2040 POKEV+28,192:POKE2046,254:POKE2047,254:POKEV+38,9:POKEV+45,5:POKEV+46,5
2045 POKEV+23,0:POKEV+29,6:POKEV+16,0:POKEV+40,7:POKEV+41,7
2050 PRINT"[155]";
2060 FORT=0TO6:PRINTTAB(15)P$(P(T,1)):NEXT
2070 POKEV+1,0:POKEV+21,193:POKEV+39,12:Y=72:Y2=170:Y1=170:X=130:F=0
2075 POKES,100:POKES+1,170:POKES+5,16*8:POKES+6,240:POKE251,100:POKE252,2
2077 POKES+24,15:POKES+4,49:POKE2040,250
2080 FORT=0TO200:POKEV+1,30+T/2:SYSAS+100:Y=Y+T/200:POKEV,Y:NEXT
2100 POKE198,0
2105 J=PEEK(56320):GETA$
2110 IF((JAND8)=0ORA$="/")ANDSP<2THEN2700
2120 IF((JAND4)=0ORA$=".")ANDSP>0THEN2800
2130 IF(JAND2)=0ORA$="Z"THEN2600
2140 SYSAS+100:IFPEEK(1944)=160THEN2105
2150 GOTO7000
2500 SYSAS+79:X=X-1:IFPEEK(1944)<>160THEN7000
2510 GETA$:IF(PEEK(56320)AND2)=0ORA$="Z"THEN2620
2520 IFX>130THEN2500
2530 IFF>0THENC(SP)=C(SP)+1
2540 GOTO2100
2600 IFF=0THEN2620
2610 C(SP)=C(SP)-1
2620 SYSAS+91:X=X+1:IFPEEK(1944)<>160THEN7000
2630 GETA$:IF((PEEK(56320))AND1)=0ORA$="A"THEN2500
2640 IFX<140+(C(SP))*8THEN2620
2650 IFF=0THEN2670
2655 IFF>=P(C(SP)+1,SP)THEN4000
2660 P(C(SP),SP)=F:POKE214,13+C(SP):POKE211,1+14*SP:SYSCS:PRINTP$(F):F=0
2665 POKEV+21,193:IFSP<>1ANDC(SP)=7-LTHEN3000
2666 GOTO2690
2670 IFC(SP)=7THEN2690
2675 F=P(C(SP),SP):POKE214,13+C(SP):POKE211,1+14*SP:SYSCS
2680 ONFGOSUB2695,2696,2697,2698,2699:POKE2041,BL:POKE2042,BL
2681 POKEV+16,INT(SP/2)+INT(Y1/256)*2+INT(Y2/256)*4
2682 POKEV+2,Y1AND255:POKEV+4,Y2AND255
2683 POKEV+3,X+14:POKEV+5,X+14
2685 POKEV+21,199:PRINT"          "
2690 GETA$:IF(PEEK(56320)AND1)=0ORA$="A"THEN2500
2693 SYSAS+100:FORT=0TO10:NEXT:IFPEEK(1944)=160THEN2690
2694 GOTO7000
2695 BL=240:Y1=Y-12:Y2=Y1:RETURN
2696 BL=241:Y1=Y-12:Y2=Y1:RETURN
2697 BL=242:Y1=Y-12:Y2=Y1:RETURN
2698 BL=242:Y1=Y-20:Y2=Y1+16:RETURN
2699 BL=242:Y1=Y-28:Y2=Y1+32:RETURN
2700 FORT=0TO111
2710 SYSAS+44:Y=Y+1:FORI=0TO7:NEXT:IFPEEK(1944)<>160THEN7000
2720 NEXT:SP=SP+1:GOTO2100
2800 FORT=0TO111
2810 SYSAS:Y=Y-1:FORI=0TO7:NEXT:IFPEEK(1944)<>160THEN7000
2820 NEXT:SP=SP-1:GOTO2100
3000 PRINT"[158][158]       SIE HABEN DIE PYRAMIDE VOR"
3010 PRINT"        DER ZERSTOERUNG GERETTET."
3020 PRINT"    FUER IHRE LEISTUNG ERHALTEN SIE"
3030 PU=0:POKEAS+176,1:POKE2,1:HH=PEEK(253)-(PEEK(254)=0)*256:SE=10^(L-2)
3040 FORT=1TOHH:PU=PU+SE:SYSAS+100:PRINT"          ";
3050 PRINTRIGHT$("       "+STR$(PU),7)" PUNKTE.":NEXT:POKEAS+176,60
3060 FORT=0TO1000:NEXT:GOSUB8000:GOSUB8500:GOTO4120
4000 FORT=0TO1:W=V+T*2
4010 POKEW+6,PEEK(W+2):POKEW+7,PEEK(W+3):POKE2043+T,PEEK(2041+T):NEXT
4020 POKEV+42,7:POKEV+43,7:POKEV+29,30
4030 POKEV+16,((PEEK(V+16)AND6)*4)ORPEEK(V+16):POKEV+27,255
4040 POKEV+21,223:POKEV+40,0:POKEV+41,0
4050 FORT=PEEK(V+3)TO210:FORI=3TO9STEP2:POKEV+I,T:NEXT
4055 POKES2+1,10:POKES2+5,6*16+3:POKES2+6,160+6:POKES2+4,129
4060 POKE2041,T-100:POKE2042,T-100:SYSAS+100:NEXT
4070 POKES2+4,128:POKES+4,48
4100 PRINT"[158][158]       SIE HABEN EINEN TEIL DER"
4110 PRINT"          PYRAMIDE ZERSTOERT ."
4120 GETA$:IF(PEEK(56320)AND16)ANDA$<>" "THEN4120
4130 GOTO20
4900 GOSUB5000
4910 ON6-LGOSUB6000,6100,6200
4920 GETA$:IFA$<>"[133]"THEN4950
4930 L=L+1:IFL>5THENL=3
4940 GOTO4910
4950 IF(PEEK(56320)AND16)ANDA$<>" "THEN4920
4960 GOTO6300
5000 POKE53280,6:POKE53281,0
5010 PRINT"[147]"SPC(13)"[158][164][164][164][164][164][164][164][164][164][164][164][164][164]
5020 [153][166]12)"STEP@@PYRAMIDON@@(null)
5030 PRINT
5040 PRINT"   SIE, EIN GENIALER ASTRONOM, HABEN
5050 [153]
5060 [153]"   EINEN KOMETEN ENTDECKT, DER NACH
5070 PRINT
5080 PRINT"    IHREN BERECHNUNGEN GENAU IN DIE
5100 [153][166]11)"EINSCHLAGEN WIRD.
5110 PRINT
5120 PRINTSPC(6)"DRUECKEN SIE DEN FEUERKNOPF,
5130 [153]
5140 [153]"  UM MIT IHREM RAUMSCHIFF DIE PYRAMIDE
5150 PRINT
5160 PRINT"   AN EINEN ANDEREN ORT ZU STELLEN!
5170 [153]
5180 [153][166]6)"DOCH SEIEN SIE VORSICHTIG!":[142]
6000 [143]
6010 [153]""
6020 [153][166]8)"LISTSTEP
6030 PRINTSPC(7)"[169]@@[223]
6040 [153][166]6)"STEP@@@@(null)
6050 PRINT" [158](F1)[155][169]@@@@@@[223][146]   [159]CHEOPS - PYRAMIDE "
6060 PRINT"    [155][169]@@@@@@@@[223]
6070 [142]
6100 [143]
6110 [153]"          "
6120 [153]"        LISTSTEP(null)WAIT    "
6130 [153]"       STEP@@(null)WAIT    "
6140 [153]" SYS(F1)LIST STEP@@@@(null)WAIT   OPENCHEPHREN - PYRAMIDE
6150 PRINT"[155]     [169]@@@@@@[223][146] "
6170 RETURN
6200 REM
6210 PRINT"          "
6220 PRINT"                 "
6230 PRINT"        [155][169][223][146]    "
6240 PRINT" [158](F1)[155]  [169]@@[223][146]   [159]MYKERINOS - PYRAMIDE
6250 [153]"LIST      STEP@@@@(null)WAIT   "
6270 [142]
6300 [143]
6310 [153]"LIST";:[151]V[170]17,11:[151]16383,0:[151]V[170]21,0
6320 [129]T[178]0[164]23:[153]"STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)";:[130]
6330 [153]"STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)STEP(null)(null)CMDSAVESTEP":[151]V[170]32,0:[151]V[170]33,2
6340 [151]V[170]17,27
6350 [129]I[178]0[164]3:[129]T[178]0[164]24:[151]S[170]T,0:[130]T,I
6360 [151]V[170]17,11:[151]V[170]33,0:[153]"LOAD":[151]V[170]17,27:[151]2,200:[151]198,0
6370 [142]
7000 [141]8000:[141]8500
7010 [153]"SYSSYS     SIE HABEN ES NICHT GESCHAFFT"
7020 [153]"        DIE PYRAMIDE ZU RETTEN."
7030 [137]4120
8000 [153]"STOP                                        ";
8005 [153]"                                        "
8010 [151]253,63:[151]254,0:[142]
8500 [129]T[178]0[164]11:[158]AS[170]100:[129]I[178]0[164]20:[130]I,T
8600 [129]T[178][194](V[170]1)[164]0[169][171]1:[158]AS[170]79:[129]I[178]0[164]20:[130]I,T
8610 [129]T[178]0[164]2:[151]V[170]2[172]T,155:[151]V[170]1[170]2[172]T,0:[130]:[151]V[170]21,198:[151]S[170]4,32
8615 [129]T[178]0[164]1000:[130]:[151]S[170]6,252
8620 [151]S[170]4,129:[151]S[170]5,255:[151]V[170]23,7:[151]V[170]29,7:[151]V[170]40,9:[151]V[170]41,7
8630 [151]2041,245:[151]2042,246:[151]V[170]16,0:[129]T[178]0[164]3000:[130]
8640 [129]T[178]0[164]180:[158]AS[170]91:[130]
8645 [153]"";:[129]T[178]0[164]4:[153]"            ":[130]
8650 [151]V[170]40,7:[151]V[170]41,2:[129]T[178]0[164]64:[151]2041,T:[151]2042,T[170]1
8660 [151]V[170]17,11[170][187](1)[172]31:[151]V[170]32,T:[151]V[170]33,T:[130]:[151]V[170]17,27
8670 [151]S[170]4,128:[151]V[170]21,192
8700 [153]"LIST@@@@@@@@@@@@@@@NEWWAITFREUSRUSRTAB(TAB(USRUSRFRENEW@@@@@@@@@@@@@@@";
8710 [153]"@@@@@@@@@@@@@@@@TAB(USRUSRFREFREUSRUSRTAB(@@@@@@@@@@@@@@@@"
8720 [151]V[170]40,9:[151]V[170]41,9:[151]V[170]23,0:[151]V[170]29,6:[151]V[170]2,135:[151]V[170]4,180
8730 [151]2041,239:[151]2042,239:[151]V[170]3,210:[151]V[170]5,210:[151]V[170]27,7:[151]V[170]21,198
8999 [142]
9000 [151]V[170]17,11:[151]V[170]21,0
9010 [151]648,124:[153]"LOADFOR";:[129]T[178]0[164]332:[153]"WWW";:[130]:[153]"CMDSAVEW":[151]648,4
9015 [151]V[170]24,240:[151]V[170]22,216
9020 [151]56576,150:[151]V[170]17,59:[141]9500
9040 [151]V[170]17,11:[153]"LOAD":[151]56576,151:[151]V[170]24,29:[151]V[170]17,27:[142]
9500 [129]T[178]0[164]24:[151]S[170]T,0:[130]:[151]S[170]24,79:[151]S[170]23,6[170]240:[151]198,0
9505 [151]S[170]5,224:[151]S[170]6,240:[151]S[170]12,25:[151]S[170]13,0:[151]S[170]20,0
9510 [129]ID[178]1[164]4:[145]ID[141]9900,9920,9940,9960:[151]S[170]4,32
9520 [151]S,L1:[151]S[170]1,H1:[151]S[170]7,L2:[151]S[170]8,H2
9525 [129]G[178]0[164]3:[151]S[170]14,L3:[151]S[170]15,H3
9530 [151]S[170]19,31:[141]9980
9540 [129]T[178]0[164]510:[130]:[151]S[170]14,L4:[151]S[170]15,H4
9550 [151]S[170]19,25:[141]9985
9560 [129]T[178]0[164]300:[130]T:[161]A$:[139]A$[178]""[167][130]G,ID:[137]9510
9570 [142]
9900 L1[178]90:H1[178]4:L2[178]20:H2[178]26:L3[178]178:H3[178]20:L4[178]137:H4[178]19:[142]
9920 L1[178]207:H1[178]5:L2[178]103:H2[178]17:L3[178]160:H3[178]27:L4[178]20:H4[178]26:[142]
9940 L1[178]133:H1[178]6:L2[178]137:H2[178]19:L3[178]3:H3[178]31:L4[178]69:H4[178]29:[142]
9960 L1[178]27:H1[178]4:L2[178]59:H2[178]23:L3[178]178:H3[178]20:L4[178]137:H4[178]19:[142]
9980 [151]S[170]4,33
9982 [151]S[170]11,32
9985 [151]S[170]18,32:[151]S[170]18,33:[151]S[170]11,33:[142]
10000 A$[178]"       MIT DANK AN THOMAS LEHMANN":[137]10020
10005 A$[178]"    EIN PROGRAMM VON  MARKUS KOETTER":[137]10020
10010 A$[178]"          INPUT 64 PRAESENTIERT"
10020 [151]646,11:[153]A$:[129]T[178]0[164]200:[130]
10030 [151]646,12:[153]A$:[129]T[178]0[164]200:[130]
10040 [151]646,15:[153]A$:[129]T[178]0[164]200:[130]
10050 [151]646,1:[153]A$:[129]T[178]0[164]200:[130]
10060 [151]646,7:[153]A$:[142]