1000 REM *** LISTING 2: PM-HELFER DEMO ***
1010 HPOS=1536:VPOS=1540:LAENGE=1552:PMCOL=704
1020 PMHEIN=1560:PMHAUS=1536:SHPSET=1566
1030 RAMTOP=PEEK(106)-16
1040 POKE 106,RAMTOP:GRAPHICS 3+16
1050 GOSUB 30000
1060 POKE LAENGE,16
1070 A=USR(PMHEIN,RAMTOP)
1080 SHP1=(RAMTOP+1)*256
2000 REM * LADEN DES SHAPES UND BEWEGUNG
2020 RESTORE 9100:FOR I=0 TO 15:READ D:POKE SHP1+I,D:NEXT I
2030 POKE PMCOL,12:POKE PMCOL+1,186:POKE PMCOL+2,134:POKE PMCOL+3,46
2040 A=USR(SHPSET,SHP1,SHP1,SHP1,SHP1)
2050 POKE VPOS,120:POKE HPOS+1,120
2060 FOR I=16 TO 232:H=255-I
2070 POKE HPOS,I:POKE VPOS+1,I
2080 POKE HPOS+2,I:POKE VPOS+2,I
2090 POKE HPOS+3,H:POKE VPOS+3,H
2100 NEXT I:GOTO 2060
9000 REM * SHAPE
9100 DATA 0,24,60,60,126,90,255,231,255,255,90,102,60,60,24,0
30000 REM * MASCHINEN-UNTERPROGRAMM LADEN
30010 S=0:RESTORE 30100
30020 FOR A=1560 TO 1789:READ D:POKE A,D:S=S+D:NEXT A
30030 IF S<>24772 THEN ? "DATEN-FEHLER!":STOP 
30090 RETURN 
30100 DATA 76,33,6,76,111,6,76,233,6,104
30105 DATA 104,104,141,17,6,216,169
30110 DATA 0,162,3,157,0,6,157,4,6,157,18,6
30115 DATA 157,0,208,202,16,241,24
30120 DATA 173,17,6,105,3,133,205,169,0,133
30125 DATA 204,162,5,160,0,145,204
30130 DATA 200,208,251,230,205,202,208,244
30135 DATA 162,6,160,140,169,7,32
30140 DATA 92,228,173,17,6,141,7,212,169,62,141
30145 DATA 47,2,169,3,141,29
30150 DATA 208,96,104,169,0,141,29,208,162,4
30155 DATA 157,13,208,202,16,250
30160 DATA 169,34,141,47,2,162,228,160,98,169
30165 DATA 7,32,92,228,96,216,173
30170 DATA 17,6,24,105,7,133,205,169,3,141,22,6
30175 DATA 173,22,6,10,170,189
30180 DATA 8,6,133,206,189,9,6,133,207,174,22,6
30185 DATA 189,0,6,157,0,208
30190 DATA 189,18,6,221,4,6,240,37,133,204,160
30195 DATA 0,169,0,145,204,200
30200 DATA 204,16,6,208,248,189,4,6,133,204,160
30205 DATA 0,177,206,145,204
30210 DATA 200,204,16,6,208,246,189,4,6,157,18
30215 DATA 6,198,205,206,22,6
30220 DATA 16,180,76,98,228,160,0,104,170,240
30225 DATA 14,104,153,9,6,104,153
30230 DATA 8,6,200,200,202,76,237,6,96
