Logo
C 64
Das lustige Programm
2/85, S. 156-158,160

500 Mark für das lustigste Programm

Der Gewinner des Programmierwettbewerbs »Das lustigste Programm« steht fest. Die »Notlandung« von Rainer Schleeweiß hat eine gelungene Pointe, die auch nach wiederholtem Anschauen immer wieder zum Lachen reizt. Die Wirkung wird jedoch nicht nur durch die Idee alleine hervorgerufen, sondern auch durch die gelungene grafische Umsetzung.

Rainer Schleeweiß, der Autor der »Notlandung«

Ein »lustiges Programm« zu schreiben ist nicht so einfach. Wie bei Witzen im allgemeinen wird der Lacherfolg nicht alleine durch den Inhalt erreicht, sondern vor allem durch die richtige Plazierung der Pointe und nicht zuletzt durch den Erzähler.

Die Notlandung ist ein »programmierter Gag«, eine Art Zeichentrickfilm, kein Witz, den man erzählen könnte. Der Titel des Programms könnte auch treffender nicht sein, und er hat nichts mit materiellem Schaden zu tun, sondern mehr mit einer menschlichen Schwäche. Doch mehr wird nicht verraten. Wir mußten einige REM-Zeilen des sonst gut dokumentierten Programms entfernen, um Ihnen nicht schon bei der Eingabe oder beim Studieren des Programmlistings einen Teil des Spaßes vorwegzunehmen. Wir hoffen, daß auch Sie mit unserer Wahl einverstanden sind und genauso lachen wie wir.

(gk)
| 
100 rem ************************
110 rem *                      *
120 rem *     'notlandung'     *
130 rem ************************
140 rem
150 rem *sprite-register auf 0 setzen*
160 forx=53248to53263:pokex,0:nextx
170 gosub2020:rem ***titel***
180 poke53265,peek(53265)and239:rem bildschirm wegblenden
190 gosub2280:rem ***landschaft***
200 v=53248:s=54272
210 rem *** sonne ***
220 fori8=12736to12798:readq8:pokei8,q8:next
230 poke2047,199:rem zeiger
240 pokev+21,128:rem spr.einsch.
250 pokev+27,128:rem hintergr.priorit.
260 pokev+46,8  :rem farbe
270 pokev+14,72:rem x-pos.
280 pokev+15,98:rem y-pos.
290 forbr=1to350:nextbr
300 poke53265,peek(53265)or16:rem bildschirm zuruecksetzen
310 rem **  landung**
320 fori=12288to12350:readq:pokei,q:next
330 fori6=12608to12670:readq6:pokei6,q6:nexti6
340 fori7=12672to12734:readq7:pokei7,q7:nexti7
350 poke2040,192:rem zeiger setzen
360 pokev+21,129:rem sprite einschalten
370 pokev+29,1:rem in x-richt.vergr.
380 pokev+39,8:rem sprite-farbe
390 pokev+28,1:rem farbmodus setzen
400 pokev+37,1:rem 1.farbe
410 pokev+38,3:rem 2.farbe
420 pokev,150:rem sprite x-pos.
430 forl=stos+24:pokel,0:nextl
440 fork=7to24:readx:pokes+k,x:nextk
450 pokes+11,65:pokes+18,65
460 pokes+5,9:pokes+6,2
470 fori=35to157
480 pokes+5,0
490 pokes+1,6 :rem tonhoehe
500 pokes,177:rem nied.frequenz
510 pokes+4,65 :rem rechteck
520 pokes+4,32 :rem rechteck ausloesen
530 pokev+1,i:rem sprite y-pos.
540 poke12294,5:poke12295,81:poke12296,84:rem rotor-dreh-effekt m.zeile 230
550 for br=1to5 :nextbr
560 poke12294,21:poke12295,85:poke12296,85
570 nexti
580 rem ***rotor laeuft nach***
590 pokev,150:pokev+1,157
600 pokes+1,4:pokes,177
610 fori=1to15
620 pokes+5,0:pokes+4,65:pokes+4,32
630 poke12294,5:poke12295,81:poke12296,84
640 for br=1to65:nextbr
650 poke12294,21:poke12295,85:poke12296,85
660 nexti
670 pokes+24,22
680 pokes,220:pokes+5,0 :pokes+6,180
690 fori1=12352to12414:readq1:pokei1,q1:next
700 fori2=12416to12478:readq2:pokei2,q2:next
710 pokev+21,131
720 pokev+40,0
730 pokev+3,157
740 p=193
750 fori=165to219step3
760 pokev+2,i
770 poke2041,p:pokes+1,r:pokes+4,65:pokes+4,64
780 p=p+1:ifp>194thenp=193
790 ifi=219then810
800 forbr=1to50:nextbr
810 nexti
820 fori1=12352to12414:readq1:pokei1,q1:next
830 poke2041,193
840 pokev+21,131:rem spr.1,3 einsch.
850 pokev+40,0
860 pokev+3,157:rem y-pos.
870 pokev+2,219:rem x-pos.
880 forbr=1to150:nextbr
890 fori3=12480to12542:readq3:pokei3,q3:next
900 poke2043,195
910 pokev+21,139:rem spr.1,3,4 einsch.
920 pokev+42,7
930 pokev+7,168:rem y-pos.
940 pokev+6,238:rem x-pos.
950 poke2045,197
960 pokev+21,171
970 pokev+44,7
980 pokev+11,180:rem y-pos.
990 pokev+10,249:rem x-pos.
1000 p=197
1010 pokes+6,200:pokes+5,0
1020 fori=1to80
1030 pokes,9:pokes+1,i:pokes+4,129
1040 poke2045,p
1050 p=p+1:ifp>198thenp=197
1060 forbr=1to10:nextbr
1070 nexti:pokes+4,0
1080 fory=12480to12542:pokey,0:nexty
1090 pokev+21,peek(v+21)and255-40:
1100 rem ***mann nach links***
1110 pokes,220:pokes+5,0:pokes+6,180
1120 fori1=12352to12414:readq1:pokei1,q1:next
1130 fori2=12416to12478:readq2:pokei2,q2:next
1140 pokev+21,131
1150 pokev+40,0
1160 pokev+3,157
1170 p=193
1180 fori=219to165 step-3
1190 pokev+2,i
1200 poke2041,p:pokes+1,r:pokes+4,65:pokes+4,64
1210 p=p+1:ifp>194thenp=193
1220 forbr=1to50:nextbr
1230 nexti
1240 poke2040,192:rem zeiger setzen
1250 pokev+21,129:rem spr.1 einsch.
1260 forbr=1to800:nextbr
1270 rem *rotor beginnt zu drehen*
1280 pokev,150:pokev+1,157
1290 pokes+1,4:pokes,177:pokes+24,31:pokes+6,2
1300 fori=1to15
1310 pokes+5,0:pokes+4,65:pokes+4,32
1320 poke 12294,5:poke12295,81:poke12296,84
1330 forbr=1to50:next br
1340 poke 12294,21:poke12295,85:poke12296,85
1350 nexti
1360 rem ***helikopter-start***
1370 pokes+1,6:pokes,177
1380 fori=157to52 step-1
1390 pokes+5,0:pokes+4,65:pokes+4,32
1400 pokev,307-i :rem x-pos.
1410 pokev+1,i:rem y-pos.
1420 poke12294,5:poke12295,81:poke12296,84:rem rotor-dreh-effekt m.zeile 1040
1430 poke12294,21:poke12295,85:poke12296,85
1440 nexti
1450 rem ***rechte x-pos.***
1460 pokes+1,6:pokes,177
1470 fory=50to80
1480 ify<65then1500
1490 pokes+24,96-y:rem motor leiser
1500 pokes+5,0:pokes+4,65:pokes+4,32
1510 pokev+16,1
1520 pokev+0,y-50:rem x-pos.
1530 pokev+1,101-y:rem y-pos.
1540 poke12294,5:poke12295,81:poke12296,84:rem rotor-dreheffekt m.zeile 1120
1550 poke12294,21:poke12295,85:poke12296,85
1560 nexty
1570 pokev+16,0:pokev+0,0
1580 rem *** end-zeichen 1.teil ***
1590 fori=12288to12350:readq:pokei,q:nexti
1600 fori1=12352to12414:readq1:pokei1,q1:nexti1
1610 fori2=12416to12478:readq2:pokei2,q2:nexti2
1620 rem *** sonne nach unten ***
1630 fori=stos+24:pokei,0:next
1640 pokes+24,10:pokes+5,10:pokes+6,100:pokes+3,100:pokes+2,100
1650 fori=72to39step-1
1660 read hf,lf,dr
1670 pokes+1,hf:pokes,lf
1680 pokes+4,65
1690 pokev+14,i:pokev+15,170-i
1700 forbr=1todr:nextbr
1710 pokes+4,33
1720 nexti
1730 fori=stos+24:pokei,0:next
1740 rem *sprite-register auf 0 setzen*
1750 forx=53248to53263:pokex,0:nextx
1760 rem
1770 rem *** end-zeichen 2.teil ***          mit zeilen 1141,1142,1143
1780 rem
1790 fori3=12480to12542:readq3:pokei3,q3:nexti3
1800 fori4=12544to12606:readq4:pokei4,q4:nexti4
1810 fori5=12608to12670:readq5:pokei5,q5:nexti5
1820 fori6=12672to12734:readq6:pokei6,q6:nexti6
1830 pokev+28,0:rem mehrfarbmod.auf 0
1840 pokev+39,1
1850 pokev+0,150
1860 pokev+1,110
1870 pokev+29,1
1880 forj=0to6
1890 pokev+21,1
1900 poke2040,192+j
1910 forbr=1to30:nextbr
1920 nextj
1930 forbr=1to1000:nextbr
1940 fork=6to0 step-1
1950 poke2040,192+k
1960 forbr=1to30:nextbr
1970 nextk
1980 pokev+21,0
1990 forbr=1to400:nextbr
2000 goto1880
2010 end
2020 print"{clr}":rem ***titel***
2030 poke53280,2 :poke53281,6
2040 forbr=1to800:nextbr
2050 s=54272
2060 fori=stos+24:pokei,0:nexti
2070 pokes+24,10:pokes+5,12*16+0:pokes+6,15*16+10
2080 fora=0to39
2090 pokes+1,a+15:pokes,226:pokes+4,33
2100 poke1024+a+40*16,64
2110 poke55296+a+40*16,7
2120 nexta
2130 fori=0to65
2140 pokes+1,65-i:pokes,226:pokes+4,129
2150 ifi>24then2180
2160 poke1024+10+40*i,66
2170 poke55296+10+40*i,1
2180 nexti
2190 pokes+4,0
2200 forbr=1to500:nextbr
2210 print"{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{cyn}'notlandung'"
2220 forbr=1to700:nextbr
2230 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{gry3}   von r.schleeweiss"
2240 forbr=1to500:nextbr
2250 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{orng}    musik von hardy"
2260 forbr=1to2000:nextbr
2270 return
2280 print"{clr}":rem ***landschaft***
2290 poke53280,2:poke53281,14
2300 print"{down}{down}{down}{down}{down}{down}{brn}{rvon}{SHIFT-POUND}{CBM-*}"
2310 print"{rvon} {blk}{CBM-*}{brn} {CBM-*}"
2320 print"{blk}{rvon}    {brn}{CBM-*}"
2330 print"{blk}{rvon}     {brn}  {CBM-*}"
2340 print"{blk}{rvon}  {brn}  {blk}  {CBM-*}{brn} {CBM-*}"
2350 print"{rvon} {blk}    {brn}    {CBM-*}"
2360 print"{rvon}  {blk}      {brn}    {CBM-*}";
2370 print"{rvof}{blu}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}";
2380 print"{blu}{CBM-T}{CBM-T} {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T} {CBM-T}{CBM-T}";
2390 print"{gry2}{rvon}{SHIFT-POUND}            {CBM-*}{rvof}";
2400 print"{blu}  {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T} {CBM-T}{CBM-T}{CBM-T}"
2410 print"  {CBM-T}{CBM-T}{CBM-T}{CBM-T} {CBM-T}{CBM-T}{CBM-T} {gry2}{rvon}{SHIFT-POUND}              {CBM-*}{rvof}{blu}   {CBM-T}{CBM-T}{CBM-T} {CBM-T}{CBM-T}{CBM-T}{CBM-T}"
2420 print" {CBM-T}{CBM-T}{CBM-T}{CBM-T}   {CBM-T}  {gry3}OPOPOPOPOPOPOPOP{blu}{CBM-T}{CBM-T}   {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
2430 print"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}   {CBM-T}{CBM-T}{CBM-T} {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T} {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}   {CBM-T}{CBM-T}{CBM-T}{CBM-T}  {CBM-T}{CBM-T}{CBM-T}";
2440 print:print"   {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}     {CBM-T}{CBM-T}{CBM-T}{CBM-T}   {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}  {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
2450 print:print"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{$a0}   {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}      {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
2460 return
2470 data 0,62,0,0,255,192,3,255,224,7,255,240
2480 data 15,255,248,31,255,252,31,255,252,63,255,252
2490 data 63,255,254,63,255,254,63,255,254,63,255,254
2500 data 63,255,254,31,255,252,31,255,252,31,255,252
2510 data 15,255,248,7,255,240,3,255,224
2520 data 1,255,192,0,62,0,0,0,0,0,0,0,21,85,85
2530 data0,4,0,0,12,0,64,63,0,64,255,0,255,250,0
2540 data255,242,128,64,242,192,64,240,192,0,63,192
2550 data0,63,0,0,12,0,0,4,16,1,85,64,0,,,,,,,,,,,,,,
2560 data 0,0,0,0,0,0,0,0,0,0,0,0,2,0,128
2570 data 0,68,0
2580 data ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
2590 data 0,0,0,0,0,0,0,0,0,0,0,0,0,130,0
2600 data 0,0,0,1,17,0
2610 data ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
2620 data 12,2,0,4,0,0,192,16,2,0,6,0,0,64,0,5,14,31
2630 data 0,0,0,0,0,0,0,0,0,0,0,0
2640 data 0,12,0,0,14,0,0,8,0,0,31,192,0,40,0,0,72,0
2650 data 0,136,0,0,8,0,0,24,0,0,36,0
2660 data 0,66,128,0,33,0,,,,,,,,,,,,,,,,0,0,0
2670 data0,0,0,0,0,0,0,0,0,0,12,0,0,14,0
2680 data0,8,0,0,28,0,0,42,0,0,25,0,0,24,128,0,8,0
2690 data0,8,0,0,8,0,0,8,0,0,12,0,0,0,0,0,0,0
2700 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
2710 data 0,0,0,0,12,0,0,14,0,0,8,0,0,24,0,0,44,0
2720 data 0,78,0,0,134,0,0,7,128,0,4,0,0,8,0,0,8,0
2730 data 0,12,0,,,,,,,,,,,,,,,,146,0,0
2740 data 0,32,0 ,0,4,0,0,1,0,0,0,0,0,0,64,0,0,0
2750 data 0,0,0,0,0,16,0,0,0,0,0,0,0,0,4,0,0,0
2760 data0,0,0,0,0,2,,,,,,,,,,,,,,,,,,,0,0,0
2770 data0,0,0 ,0,0,0 , 0,0,0, 0,24,0, 0,56,0
2780 data0,8,0, 0,28,0, 0,26,0, 0,25,0,0,24,128, 0,24,0
2790 data0,8,0, 0,8,0, 0,8,0, 0,24,0, ,,,,,,,,,,,,,,, 0,0,0
2800 data0,0,0, 0,0,0, 0,0,0, 0,24,0, 0,56,0
2810 data0,8,0, 1,255,192, 0,8,0, 0,8,0, 0,8,0, 0,8,0, 0,12,0
2820 data0,18,0, 0,161,0, 0,66,0, ,,,,,,,,,,,,,,
2830 data,,,,,,,,,,,,,,,,,,,,,,,,,,, ,42,
2840 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
2850 data,,,,,,,,,,,,,,,,,,,,,,,,,42,,,42,
2860 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
2870 data,,,,,,,,,,,,,,,,,,,,,,,,,221,128,,221,128
2880 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
2890 data13,10,250,9,196,500,14,162,100,13,10,100
2900 data12,78,100,13,10,250,9,196,500,14,162,100,13,10,100
2910 data12,78,100,13,10,250,14,162,100,16,109,100
2920 data17,103,100,16,109,250,14,162,125,19,137,750
2930 data21,237,250,21,237,125,17,103,250,14,162,500
2940 data19,137,250,19,137,125,16,109,250,13,10,500
2950 data13,10,125,14,162,125,16,109,250,14,162,125
2960 data13,10,125,14,162,250,13,10,125,12,78,125,13,10,750
2970 data,,,,,,,,,,,,,,,,,,,,,,,
2980 data1,213,128,1,157,64,1,213,128
2990 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,    ,,,,,,,,,,,,,,,,,,,,
3000 data7,162,224,4,50,144,7,42,144,4,38,144,7,162,224
3010 data,,,,,,,,,,,,,,,,,,,,,,,,,,,    ,,,,,,,,,,,,,,,,,
3020 data31,65,120,16,97,68,16,81,68,30,73,68,16,69,68,16,67,68,31,65,120
3030 data,,,,,,,,,,,,,,,,,,,,,,,,    ,,,,,,,,,,,,,,
3040 data126,65,62,64,65,33,64,97,33,64,81,33,124,73,33
3050 data64,69,33,64,67,33,64,65,33,126,65,62
3060 data,,,,,,,,,,,,,,,,,,,,
3070 reada$:printa$:poke198,0:wait198,1:goto3070
 100 REM ************************ 
 110 REM *                      * 
 120 REM *     'NOTLANDUNG'     * 
 130 REM ************************ 
 140 REM 
 150 REM *SPRITE-REGISTER AUF 0 SETZEN* 
 160 FOR X=53248 TO53263:POKE X,0:NEXT X 
 170 GOSUB 2020:REM ***TITEL*** 
 180 POKE 53265,PEEK (53265)AND 239:REM BILDSCHIRM WEGBLENDEN 
 190 GOSUB 2280:REM ***LANDSCHAFT*** 
 200 V=53248:S=54272 
 210 REM *** SONNE *** 
 220 FOR I8=12736 TO12798:READ Q8:POKE I8,Q8:NEXT 
 230 POKE 2047,199:REM ZEIGER 
 240 POKE V+21,128:REM SPR.EINSCH. 
 250 POKE V+27,128:REM HINTERGR.PRIORIT. 
 260 POKE V+46,8  :REM FARBE 
 270 POKE V+14,72:REM X-POS. 
 280 POKE V+15,98:REM Y-POS. 
 290 FOR BR=1 TO350:NEXT BR 
 300 POKE 53265,PEEK (53265)OR 16:REM BILDSCHIRM ZURUECKSETZEN 
 310 REM **  LANDUNG** 
 320 FOR I=12288 TO12350:READ Q:POKE I,Q:NEXT 
 330 FOR I6=12608 TO12670:READ Q6:POKE I6,Q6:NEXT I6 
 340 FOR I7=12672 TO12734:READ Q7:POKE I7,Q7:NEXT I7 
 350 POKE 2040,192:REM ZEIGER SETZEN 
 360 POKE V+21,129:REM SPRITE EINSCHALTEN 
 370 POKE V+29,1:REM IN X-RICHT.VERGR. 
 380 POKE V+39,8:REM SPRITE-FARBE 
 390 POKE V+28,1:REM FARBMODUS SETZEN 
 400 POKE V+37,1:REM 1.FARBE 
 410 POKE V+38,3:REM 2.FARBE 
 420 POKE V,150:REM SPRITE X-POS. 
 430 FOR L=S TOS+24:POKE L,0:NEXT L 
 440 FOR K=7 TO24:READ X:POKE S+K,X:NEXT K 
 450 POKE S+11,65:POKE S+18,65 
 460 POKE S+5,9:POKE S+6,2 
 470 FOR I=35 TO157 
 480 POKE S+5,0 
 490 POKE S+1,6 :REM TONHOEHE 
 500 POKE S,177:REM NIED.FREQUENZ 
 510 POKE S+4,65 :REM RECHTECK 
 520 POKE S+4,32 :REM RECHTECK AUSLOESEN 
 530 POKE V+1,I:REM SPRITE Y-POS. 
 540 POKE 12294,5:POKE 12295,81:POKE 12296,84:REM ROTOR-DREH-EFFEKT M.ZEILE 230 
 550 FOR BR=1 TO5 :NEXT BR 
 560 POKE 12294,21:POKE 12295,85:POKE 12296,85 
 570 NEXT I 
 580 REM ***ROTOR LAEUFT NACH*** 
 590 POKE V,150:POKE V+1,157 
 600 POKE S+1,4:POKE S,177 
 610 FOR I=1 TO15 
 620 POKE S+5,0:POKE S+4,65:POKE S+4,32 
 630 POKE 12294,5:POKE 12295,81:POKE 12296,84 
 640 FOR BR=1 TO65:NEXT BR 
 650 POKE 12294,21:POKE 12295,85:POKE 12296,85 
 660 NEXT I 
 670 POKE S+24,22 
 680 POKE S,220:POKE S+5,0 :POKE S+6,180 
 690 FOR I1=12352 TO12414:READ Q1:POKE I1,Q1:NEXT 
 700 FOR I2=12416 TO12478:READ Q2:POKE I2,Q2:NEXT 
 710 POKE V+21,131 
 720 POKE V+40,0 
 730 POKE V+3,157 
 740 P=193 
 750 FOR I=165 TO219STEP 3 
 760 POKE V+2,I 
 770 POKE 2041,P:POKE S+1,R:POKE S+4,65:POKE S+4,64 
 780 P=P+1:IF P>194 THENP=193 
 790 IF I=219 THEN810 
 800 FOR BR=1 TO50:NEXT BR 
 810 NEXT I 
 820 FOR I1=12352 TO12414:READ Q1:POKE I1,Q1:NEXT 
 830 POKE 2041,193 
 840 POKE V+21,131:REM SPR.1,3 EINSCH. 
 850 POKE V+40,0 
 860 POKE V+3,157:REM Y-POS. 
 870 POKE V+2,219:REM X-POS. 
 880 FOR BR=1 TO150:NEXT BR 
 890 FOR I3=12480 TO12542:READ Q3:POKE I3,Q3:NEXT 
 900 POKE 2043,195 
 910 POKE V+21,139:REM SPR.1,3,4 EINSCH. 
 920 POKE V+42,7 
 930 POKE V+7,168:REM Y-POS. 
 940 POKE V+6,238:REM X-POS. 
 950 POKE 2045,197 
 960 POKE V+21,171 
 970 POKE V+44,7 
 980 POKE V+11,180:REM Y-POS. 
 990 POKE V+10,249:REM X-POS. 
 1000 P=197 
 1010 POKE S+6,200:POKE S+5,0 
 1020 FOR I=1 TO80 
 1030 POKE S,9:POKE S+1,I:POKE S+4,129 
 1040 POKE 2045,P 
 1050 P=P+1:IF P>198 THENP=197 
 1060 FOR BR=1 TO10:NEXT BR 
 1070 NEXT I:POKE S+4,0 
 1080 FOR Y=12480 TO12542:POKE Y,0:NEXT Y 
 1090 POKE V+21,PEEK (V+21)AND 255-40: 
 1100 REM ***MANN NACH LINKS*** 
 1110 POKE S,220:POKE S+5,0:POKE S+6,180 
 1120 FOR I1=12352 TO12414:READ Q1:POKE I1,Q1:NEXT 
 1130 FOR I2=12416 TO12478:READ Q2:POKE I2,Q2:NEXT 
 1140 POKE V+21,131 
 1150 POKE V+40,0 
 1160 POKE V+3,157 
 1170 P=193 
 1180 FOR I=219 TO165 STEP -3 
 1190 POKE V+2,I 
 1200 POKE 2041,P:POKE S+1,R:POKE S+4,65:POKE S+4,64 
 1210 P=P+1:IF P>194 THENP=193 
 1220 FOR BR=1 TO50:NEXT BR 
 1230 NEXT I 
 1240 POKE 2040,192:REM ZEIGER SETZEN 
 1250 POKE V+21,129:REM SPR.1 EINSCH. 
 1260 FOR BR=1 TO800:NEXT BR 
 1270 REM *ROTOR BEGINNT ZU DREHEN* 
 1280 POKE V,150:POKE V+1,157 
 1290 POKE S+1,4:POKE S,177:POKE S+24,31:POKE S+6,2 
 1300 FOR I=1 TO15 
 1310 POKE S+5,0:POKE S+4,65:POKE S+4,32 
 1320 POKE 12294,5:POKE 12295,81:POKE 12296,84 
 1330 FOR BR=1 TO50:NEXT BR 
 1340 POKE 12294,21:POKE 12295,85:POKE 12296,85 
 1350 NEXT I 
 1360 REM ***HELIKOPTER-START*** 
 1370 POKE S+1,6:POKE S,177 
 1380 FOR I=157 TO52 STEP -1 
 1390 POKE S+5,0:POKE S+4,65:POKE S+4,32 
 1400 POKE V,307-I :REM X-POS. 
 1410 POKE V+1,I:REM Y-POS. 
 1420 POKE 12294,5:POKE 12295,81:POKE 12296,84:REM ROTOR-DREH-EFFEKT M.ZEILE 1040 
 1430 POKE 12294,21:POKE 12295,85:POKE 12296,85 
 1440 NEXT I 
 1450 REM ***RECHTE X-POS.*** 
 1460 POKE S+1,6:POKE S,177 
 1470 FOR Y=50 TO80 
 1480 IF Y<65 THEN1500 
 1490 POKE S+24,96-Y:REM MOTOR LEISER 
 1500 POKE S+5,0:POKE S+4,65:POKE S+4,32 
 1510 POKE V+16,1 
 1520 POKE V+0,Y-50:REM X-POS. 
 1530 POKE V+1,101-Y:REM Y-POS. 
 1540 POKE 12294,5:POKE 12295,81:POKE 12296,84:REM ROTOR-DREHEFFEKT M.ZEILE 1120 
 1550 POKE 12294,21:POKE 12295,85:POKE 12296,85 
 1560 NEXT Y 
 1570 POKE V+16,0:POKE V+0,0 
 1580 REM *** END-ZEICHEN 1.TEIL *** 
 1590 FOR I=12288 TO12350:READ Q:POKE I,Q:NEXT I 
 1600 FOR I1=12352 TO12414:READ Q1:POKE I1,Q1:NEXT I1 
 1610 FOR I2=12416 TO12478:READ Q2:POKE I2,Q2:NEXT I2 
 1620 REM *** SONNE NACH UNTEN *** 
 1630 FOR I=S TOS+24:POKE I,0:NEXT 
 1640 POKE S+24,10:POKE S+5,10:POKE S+6,100:POKE S+3,100:POKE S+2,100 
 1650 FOR I=72 TO39STEP -1 
 1660 READ HF,LF,DR 
 1670 POKE S+1,HF:POKE S,LF 
 1680 POKE S+4,65 
 1690 POKE V+14,I:POKE V+15,170-I 
 1700 FOR BR=1 TODR:NEXT BR 
 1710 POKE S+4,33 
 1720 NEXT I 
 1730 FOR I=S TOS+24:POKE I,0:NEXT 
 1740 REM *SPRITE-REGISTER AUF 0 SETZEN* 
 1750 FOR X=53248 TO53263:POKE X,0:NEXT X 
 1760 REM 
 1770 REM *** END-ZEICHEN 2.TEIL ***          MIT ZEILEN 1141,1142,1143 
 1780 REM 
 1790 FOR I3=12480 TO12542:READ Q3:POKE I3,Q3:NEXT I3 
 1800 FOR I4=12544 TO12606:READ Q4:POKE I4,Q4:NEXT I4 
 1810 FOR I5=12608 TO12670:READ Q5:POKE I5,Q5:NEXT I5 
 1820 FOR I6=12672 TO12734:READ Q6:POKE I6,Q6:NEXT I6 
 1830 POKE V+28,0:REM MEHRFARBMOD.AUF 0 
 1840 POKE V+39,1 
 1850 POKE V+0,150 
 1860 POKE V+1,110 
 1870 POKE V+29,1 
 1880 FOR J=0 TO6 
 1890 POKE V+21,1 
 1900 POKE 2040,192+J 
 1910 FOR BR=1 TO30:NEXT BR 
 1920 NEXT J 
 1930 FOR BR=1 TO1000:NEXT BR 
 1940 FOR K=6 TO0 STEP -1 
 1950 POKE 2040,192+K 
 1960 FOR BR=1 TO30:NEXT BR 
 1970 NEXT K 
 1980 POKE V+21,0 
 1990 FOR BR=1 TO400:NEXT BR 
 2000 GOTO 1880 
 2010 END 
 2020 PRINT"{CLR}":REM ***TITEL*** 
 2030 POKE 53280,2 :POKE 53281,6 
 2040 FOR BR=1 TO800:NEXT BR 
 2050 S=54272 
 2060 FOR I=S TOS+24:POKE I,0:NEXT I 
 2070 POKE S+24,10:POKE S+5,12*16+0:POKE S+6,15*16+10 
 2080 FOR A=0 TO39 
 2090 POKE S+1,A+15:POKE S,226:POKE S+4,33 
 2100 POKE 1024+A+40*16,64 
 2110 POKE 55296+A+40*16,7 
 2120 NEXT A 
 2130 FOR I=0 TO65 
 2140 POKE S+1,65-I:POKE S,226:POKE S+4,129 
 2150 IF I>24 THEN2180 
 2160 POKE 1024+10+40*I,66 
 2170 POKE 55296+10+40*I,1 
 2180 NEXT I 
 2190 POKE S+4,0 
 2200 FOR BR=1 TO500:NEXT BR 
 2210 PRINT"{7DOWN,18RIGHT,CYAN}'NOTLANDUNG'" 
 2220 FOR BR=1 TO700:NEXT BR 
 2230 PRINT"{10DOWN,15RIGHT,GREY3,3SPACE}VON R.SCHLEEWEISS" 
 2240 FOR BR=1 TO500:NEXT BR 
 2250 PRINT"{DOWN,15RIGHT,ORANGE,4SPACE}MUSIK VON HARDY" 
 2260 FOR BR=1 TO2000:NEXT BR 
 2270 RETURN 
 2280 PRINT"{CLR}":REM ***LANDSCHAFT*** 
 2290 POKE 53280,2:POKE 53281,14 
 2300 PRINT"{6DOWN,BROWN,RVSON}£*" 
 2310 PRINT"{RVSON,SPACE,BLACK}*{BROWN,SPACE}*" 
 2320 PRINT"{BLACK,RVSON,4SPACE,BROWN}*" 
 2330 PRINT"{BLACK,RVSON,5SPACE,BROWN,2SPACE}*" 
 2340 PRINT"{BLACK,RVSON,2SPACE,BROWN,2SPACE,BLACK,2SPACE}*{BROWN,SPACE}*" 
 2350 PRINT"{RVSON,SPACE,BLACK,4SPACE,BROWN,4SPACE}*" 
 2360 PRINT"{RVSON,2SPACE,BLACK,6SPACE,BROWN,4SPACE}*"; 
 2370 PRINT"{RVOFF,BLUE}TTTTTTTTTTTTTTTTTTTTTTTTTTT"; 
 2380 PRINT"{BLUE}TT TTTTTT TT"; 
 2390 PRINT"{GREY2,RVSON}£{12SPACE}*{RVOFF}"; 
 2400 PRINT"{BLUE,2SPACE}TTTTTTT TTT" 
 2410 PRINT"{2SPACE}TTTT TTT{SPACE,GREY2,RVSON}£{14SPACE}*{RVOFF,BLUE,3SPACE}TTT TTTT" 
 2420 PRINT" TTTT{3SPACE}T{2SPACE,GREY3}OPOPOPOPOPOPOPOP{BLUE}TT{SPACE,2SPACE}TTTTT" 
 2430 PRINT"TTTTTTT{3SPACE}TTT TTTTT TTTTTTTT{3SPACE}TTTT{2SPACE}TTT"; 
 2440 PRINT:PRINT"{3SPACE}TTTTTTT{5SPACE}TTTT{3SPACE}TTTTTTTTT{2SPACE}TTTTT" 
 2450 PRINT:PRINT"TTTTTT{SHIFT-SPACE,3SPACE}TTTTTTTT{6SPACE}TTTTTTTTTTTTT" 
 2460 RETURN 
 2470 DATA 0,62,0,0,255,192,3,255,224,7,255,240 
 2480 DATA 15,255,248,31,255,252,31,255,252,63,255,252 
 2490 DATA 63,255,254,63,255,254,63,255,254,63,255,254 
 2500 DATA 63,255,254,31,255,252,31,255,252,31,255,252 
 2510 DATA 15,255,248,7,255,240,3,255,224 
 2520 DATA 1,255,192,0,62,0,0,0,0,0,0,0,21,85,85 
 2530 DATA 0,4,0,0,12,0,64,63,0,64,255,0,255,250,0 
 2540 DATA 255,242,128,64,242,192,64,240,192,0,63,192 
 2550 DATA 0,63,0,0,12,0,0,4,16,1,85,64,0,,,,,,,,,,,,,, 
 2560 DATA 0,0,0,0,0,0,0,0,0,0,0,0,2,0,128 
 2570 DATA 0,68,0 
 2580 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
 2590 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,130,0 
 2600 DATA 0,0,0,1,17,0 
 2610 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
 2620 DATA 12,2,0,4,0,0,192,16,2,0,6,0,0,64,0,5,14,31 
 2630 DATA 0,0,0,0,0,0,0,0,0,0,0,0 
 2640 DATA 0,12,0,0,14,0,0,8,0,0,31,192,0,40,0,0,72,0 
 2650 DATA 0,136,0,0,8,0,0,24,0,0,36,0 
 2660 DATA 0,66,128,0,33,0,,,,,,,,,,,,,,,,0,0,0 
 2670 DATA 0,0,0,0,0,0,0,0,0,0,12,0,0,14,0 
 2680 DATA 0,8,0,0,28,0,0,42,0,0,25,0,0,24,128,0,8,0 
 2690 DATA 0,8,0,0,8,0,0,8,0,0,12,0,0,0,0,0,0,0 
 2700 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
 2710 DATA 0,0,0,0,12,0,0,14,0,0,8,0,0,24,0,0,44,0 
 2720 DATA 0,78,0,0,134,0,0,7,128,0,4,0,0,8,0,0,8,0 
 2730 DATA 0,12,0,,,,,,,,,,,,,,,,146,0,0 
 2740 DATA 0,32,0 ,0,4,0,0,1,0,0,0,0,0,0,64,0,0,0 
 2750 DATA 0,0,0,0,0,16,0,0,0,0,0,0,0,0,4,0,0,0 
 2760 DATA 0,0,0,0,0,2,,,,,,,,,,,,,,,,,,,0,0,0 
 2770 DATA 0,0,0 ,0,0,0 , 0,0,0, 0,24,0, 0,56,0 
 2780 DATA 0,8,0, 0,28,0, 0,26,0, 0,25,0,0,24,128, 0,24,0 
 2790 DATA 0,8,0, 0,8,0, 0,8,0, 0,24,0, ,,,,,,,,,,,,,,, 0,0,0 
 2800 DATA 0,0,0, 0,0,0, 0,0,0, 0,24,0, 0,56,0 
 2810 DATA 0,8,0, 1,255,192, 0,8,0, 0,8,0, 0,8,0, 0,8,0, 0,12,0 
 2820 DATA 0,18,0, 0,161,0, 0,66,0, ,,,,,,,,,,,,,, 
 2830 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,, ,42, 
 2840 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
 2850 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,42,,,42, 
 2860 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
 2870 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,221,128,,221,128 
 2880 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
 2890 DATA 13,10,250,9,196,500,14,162,100,13,10,100 
 2900 DATA 12,78,100,13,10,250,9,196,500,14,162,100,13,10,100 
 2910 DATA 12,78,100,13,10,250,14,162,100,16,109,100 
 2920 DATA 17,103,100,16,109,250,14,162,125,19,137,750 
 2930 DATA 21,237,250,21,237,125,17,103,250,14,162,500 
 2940 DATA 19,137,250,19,137,125,16,109,250,13,10,500 
 2950 DATA 13,10,125,14,162,125,16,109,250,14,162,125 
 2960 DATA 13,10,125,14,162,250,13,10,125,12,78,125,13,10,750 
 2970 DATA ,,,,,,,,,,,,,,,,,,,,,,, 
 2980 DATA 1,213,128,1,157,64,1,213,128 
 2990 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,    ,,,,,,,,,,,,,,,,,,,, 
 3000 DATA 7,162,224,4,50,144,7,42,144,4,38,144,7,162,224 
 3010 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,    ,,,,,,,,,,,,,,,,, 
 3020 DATA 31,65,120,16,97,68,16,81,68,30,73,68,16,69,68,16,67,68,31,65,120 
 3030 DATA ,,,,,,,,,,,,,,,,,,,,,,,,    ,,,,,,,,,,,,,, 
 3040 DATA 126,65,62,64,65,33,64,97,33,64,81,33,124,73,33 
 3050 DATA 64,69,33,64,67,33,64,65,33,126,65,62 
 3060 DATA ,,,,,,,,,,,,,,,,,,,, 
 3070 READ A$:PRINTA$:POKE 198,0:WAIT 198,1:GOTO 3070
»Notlandung«, das lustige Programm
PDF Diesen Artikel als PDF herunterladen
Mastodon Diesen Artikel auf Mastodon teilen
← Vorheriger ArtikelNächster Artikel →