1000 A=1000:GOTO20:REM ** SLIDER **
1010 MH=HO:MV=VE
1020 REM TITELBILD
1030 DIMBS$(14),FE(14,20)
1040 LH=28
1050 FORI=0 TO2*MH+1:PRINT"#";:NEXTI
1060 SR$="##"
1070 FORI=1 TOMH-3
1080 SR$=SR$+" "
1090 NEXTI
1100 SR$=SR$+"##"
1110 FORI=2 TOMV-3
1120 PRINTSR$;
1130 NEXTI
1140 FORI=O TO2*HO+1:PRINT"#";:NEXTI
1150 HO=0:VE=INT((MV+1-16)/2):GOSUB110
1160 PRINT"##     [211][211][211]  [204]   [201][201][201]  [196][196]   [197][197][197]  [210][210]"
1170 PRINT"##    [211]     [204]    [201]   [196] [196]  [197]    [210] [210]"
1180 PRINT"##    [211]     [204]    [201]   [196] [196]  [197]    [210] [210]"
1190 PRINT"##     [211][211]   [204]    [201]   [196] [196]  [197][197][197]  [210][210]"
1200 PRINT"##       [211]  [204]    [201]   [196] [196]  [197]    [210] [210]"
1210 PRINT"##       [211]  [204]    [201]   [196] [196]  [197]    [210] [210]"
1220 PRINT"##    [211][211][211]   [204][204][204] [201][201][201]  [196][196]   [197][197][197]  [210] [210]"
1230 VE=VE+9:HO=0:GOSUB110
1240 PRINT"##       ([201]) : [201][206][211][212][210][213][195][212][201][207][206][211]"
1250 PRINT
1260 PRINT"##       ([199]) : [199][193][205][197]"
1270 PRINT
1280 PRINT"##       ([204]) : [204][197][214][197][204]"
1290 YY$="([208]) BY [199]AISIPOWER. [195]ONVERTED FROM +4 BY "
1300 YY$=YY$+"[195]HRISTIAN AND [207]LAF  ----  "
1310 PO=1:LE=LEN(YY$):BS=20
1320 READA,B:IFA>0 THEN1320
1330 READA,B:IFA>0 THEN1330
1340 READSP,SD
1350 IF(SD<0)AND(SP<0) THENRESTORE:GOTO1320
1360 GOSUB200
1370 IFIN=76 THEN1540
1380 IFIN=73 THEN1770
1390 IFIN=71 THEN2010
1400 IFBS+PO>LE THEN1420
1410 XX$=MID$(YY$,PO,BS):GOTO1450
1420 XX$=RIGHT$(YY$,LE-PO+1)
1430 IFBS+PO-LE-1<=0 THEN1450
1440 XX$=XX$+LEFT$(YY$,BS+PO-LE-1)
1450 PO=PO+1:IFPO>LE THENPO=1
1460 HO=10:VE=MV-4:GOSUB110
1470 PRINTXX$
1480 SV=8:GOSUB400:GOTO1340
1490 PRINTSR$
1500 PRINT:IFMV>28 THENPRINT
1510 GOSUB450
1520 RETURN
1530 REM LEVEL
1540 HO=6:VE=MV-4:GOSUB110
1550 SR=LH:GOSUB300
1560 LV=1:ZZ=0
1570 PRINT"[208]LEASE ENTER [204]EVEL (1-";SR$;") ";
1580 HO=30+LEN(SR$)
1590 GOSUB210
1600 IFIN=13 THEN2020
1610 IF(IN=127)OR(IN=28) THEN1700
1620 IF(IN<48)OR(IN>57) THEN1590
1630 IF(ZZ=0)AND(IN=48) THEN1590
1640 IFZZ=0 THENLT=IN-48:GOTO1660
1650 LT=10*LV+IN-48
1660 IFLT>LH THEN1590
1670 ZZ=ZZ+1:PRINTIN$;
1680 LV=LT:HO=HO+1
1690 GOTO1590
1700 IFZZ=0 THEN1590
1710 LV=INT(.1*LV):ZZ=ZZ-1
1720 IFZZ=0 THENLV=1
1730 HO=HO-1:GOSUB110
1740 PRINT" ";:GOSUB110
1750 GOTO1590
1760 REM INSTRUCTIONS
1770 GOSUB100
1780 SD=5:GOSUB450
1790 HO=0:VE=3
1800 GOSUB110
1810 SR$="     [211]LIDER IS A GAME FOR EVERYBODY"
1820 SD=10:GOSUB1490
1830 SR$="  [215]HO WANTS TO PROVE HIS INTELLIGENCE"
1840 SD=10:GOSUB1490
1850 SR$="        [217]OU HAVE TO PUSH BARRELS"
1860 SD=10:GOSUB1490
1870 SR$="          ON THE MARKED FIELDS"
1880 SD=10:GOSUB1490
1890 SR=LH:GOSUB300
1900 SR$="         IN "+SR$+" DIFFERENT LEVELS"
1910 SD=10:GOSUB1490
1920 SR$="      AND THE TIME IS AGAINST YOU"
1930 SD=10:GOSUB1490
1940 SR$="          [208]RESS [199] TO GIVE UP."
1950 SD=10:GOSUB1490
1960 SR$="      [213]SE THE CURSOR-KEYS TO PLAY."
1970 SD=20:GOSUB1490:PRINT
1980 SR$="          [199] [207] [207] [196]    [204] [213] [195] [203] !"
1990 SD=100:GOSUB1490
2000 REM GAME
2010 LV=1
2020 MM=7
2030 GOSUB100
2040 IFLV>LH THEN2230
2050 IFLV>5 THEN2080
2060 ONLV GOSUB10010,10210,10410,10610,10810
2070 GOTO3010
2080 IFLV>10 THEN2110
2090 ONLV-5 GOSUB11010,11210,11410,11610,11810
2100 GOTO3010
2110 IFLV>15 THEN2140
2120 ONLV-10 GOSUB12010,12210,12410,12610,12810
2130 GOTO3010
2140 IFLV>20 THEN2170
2150 ONLV-15 GOSUB13010,13210,13410,13610,13810
2160 GOTO3010
2170 IFLV>25 THEN2200
2180 ONLV-20 GOSUB14010,14210,14410,14610,14810
2190 GOTO3010
2200 IFLV>LH THEN2230
2210 ONLV-25 GOSUB15010,15210,15410
2220 GOTO3010
2230 GOTO5010:REM ZUM SCHLUSSBILD
3000 REM BILD- UND FELDAUFBAU
3010 MA=32:MI=INT(TM/60):SE=TM-(MI*60)
3020 T1=0
3030 FORI=1 TO14
3040 IFBS$(I)="" THEN3180
3050 FORJ=1 TOLEN(BS$(I))
3060 FE$=MID$(BS$(I),J,1)
3070 IFFE$<>"O" THEN3140
3080 H1$=LEFT$(BS$(I),J-1)
3090 H2$=RIGHT$(BS$(I),LEN(BS$(I))-J)
3100 AE=AE-1
3110 FE(I,J)=128+ASC("[207]")
3120 BS$(I)=H1$+"[207]"+H2$
3130 GOTO3150
3140 FE(I,J)=ASC(FE$)
3150 NEXTJ
3160 HO=10:VE=5+I:GOSUB110
3170 PRINTBS$(I)
3180 NEXTI
3190 REM AUFBAU ANZEIGEN
3200 L$="                                  "
3210 SR$=L$:HO=0:VE=0:GOSUB110:GOSUB150
3220 SR=LV:GOSUB300
3230 LV$=SR$
3240 SR=MM:GOSUB300
3250 LV$="  [204]EVEL: "+RIGHT$("0"+LV$,2)+" "
3260 LV$=LV$+"  [194]ILD: "+BL$
3270 SR$=LV$+"   [205]EN: "+SR$+"  "
3280 VE=1:GOSUB110:GOSUB150
3290 VE=2:GOSUB110:SR$=L$:GOSUB150
3300 HO=0:VE=21:GOSUB110
3310 GOSUB150
3320 VE=23:GOSUB110:GOSUB150
3330 MO=0:PU=0
3340 REM SCHLEIFE (BEGINN)
3350 REM 
3360 HO=0:VE=22:GOSUB110
3370 SR=MO:GOSUB300
3380 MO$=SR$
3390 SR=PU:GOSUB300
3400 MO$="[205]OVES "+RIGHT$("00"+MO$,3)
3410 MO$=MO$+"  [208]USHES "+RIGHT$("00"+SR$,3)
3420 SR=MI:GOSUB300:MI$=SR$
3430 SR=SE:GOSUB300:SE$=SR$
3440 SR$=MO$+"   [212]IME "+RIGHT$("00"+MI$,2)+":"
3450 SR$=SR$+RIGHT$("00"+SE$,2)
3460 GOSUB150
3470 REM TASTATURABFRAGE
3480 SD=10:GOSUB450
3490 IF(IN<>0)AND((SD=0)OR(SD=10)) THENSD=5
3500 TX=1-SD/10:T1=T1+TX:IFT1>1 THENT1=T1-1:SE=SE-1
3510 IFSE<0 THENSE=59:MI=MI-1
3520 IFMI<0 THEN4260
3530 IFIN<>0 THEN3550
3540 GOTO3360
3550 IFIN=28 THENXI=0:DJ=-1:GOTO3620
3560 IFIN=29 THENXI=0:DJ=1:GOTO3620
3570 IFIN=30 THENXI=1:DJ=0:GOTO3620
3580 IFIN=31 THENXI=-1:DJ=0:GOTO3620
3590 IFIN=71 THEN4010:REM GIVE UP
3600 GOTO3360
3610 REM BEWEGUNG
3620 WE=FE(VM+XI,HM+DJ)
3630 IF(WE=32)OR(WE=42) THENMO=MO+1:SP=39:GOTO3770
3640 IFWE=35 THEN3540:REM ZUR ABFRAGE
3650 W1=FE(VM+2*XI,HM+2*DJ)
3660 IF(W1<>32)AND(W1<>42) THEN3540:REM ABFRAGE
3670 W2=WE:PU=PU+1:SP=15
3680 IF(WE=79)OR(WE=111) THEN3730:REM TONNE WEG 
3690 AE=AE+1:W2=WE-128:WE=42
3700 FE(VM+XI,HM+DJ)=42
3710 GOTO3740
3720 REM TONNE VERSCHIEBEN
3730 FE(VM+XI,HM+DJ)=32
3740 IFW1=42 THENFE(VM+2*XI,HM+2*DJ)=128+W2:AE=AE-1
3750 IFW1=32 THENFE(VM+2*XI,HM+2*DJ)=W2
3760 REM MAENNCHEN LAEUFT
3770 MN=WE:FE(VM+XI,HM+DJ)=ASC("[216]")
3780 IFMA<>42 THENMA=32
3790 FE(VM,HM)=MA:MA=MN
3800 REM AUF BILDSCHIRM
3810 VE=VM+5:HO=HM+9:GOSUB110
3820 PRINTCHR$(FE(VM,HM))
3830 VE=VM+XI+5:HO=HM+DJ+9:GOSUB110
3840 PRINT"[216]"
3850 VE=VM+2*XI+5:HO=HM+2*DJ+9:GOSUB110
3860 FE=FE(VE-5,HO-9)
3870 IFFE>128 THENFE=FE-128
3880 PRINTCHR$(FE)
3890 HM=HM+DJ:VM=VM+XI
3900 SD=1:SV=14:GOSUB400
3910 IFAE>0 THEN3360
3920 REM LEVEL COMPLETED
3930 HO=10:VE=12:GOSUB110
3940 SR$="[195]ONGRATULATION":GOSUB150
3950 RESTORE
3960 READSP,SD:IF(SP<0)AND(SD<0) THEN3980
3970 SV=8:GOSUB400:GOTO3960
3980 LV=LV+1
3990 GOTO2030
4000 REM GIVE UP
4010 HO=13:VE=12:GOSUB110
4020 SR$="[199]IVE UP":GOSUB150
4030 FORX=5 TO1 STEP-1
4040 SP=69+X:SD=6:SV=8:GOSUB400
4050 NEXTX
4060 FORX=1 TO100:NEXTX
4070 MM=MM-1
4080 IFMM>0 THEN2030
4090 RESTORE
4100 READA,B:IFA>0 THEN4100
4110 READSP,SD:IFSP<0 THEN4130
4120 SV=8:GOSUB400:GOTO4110
4130 GOSUB100
4140 HO=0:VE=12:GOSUB110
4150 PRINT"             [212]HAT WAS IT!!!"
4160 SD=30:GOSUB450
4170 HO=0:VE=12:GOSUB110
4180 PRINT"          [201] HOPE YOU HAD FUN."
4190 SD=30:GOSUB450
4200 HO=0:VE=12:GOSUB110
4210 PRINT"       [199]O ON AND TRY IT AGAIN!!!"
4220 SD=60:GOSUB450
4230 GOTO1000
4240 REM ENDE
4250 REM TIME OVER
4260 HO=10:VE=12:GOSUB110
4270 SR$="THE TIME IS OUT"
4280 GOSUB150
4290 GOTO4030
5000 REM ENDE
5010 PRINT:PRINT:PRINT
5020 PRINT"             [195][207][206][199][210][193][212][213][204][193][212][201][207][206]"
5030 PRINT:PRINT:PRINT:PRINT
5040 PRINT"       [217][207][213]'[214][197] [195][207][205][208][204][197][212][197][196] [193][204][204] [204][197][214][197][204][211]"
5050 PRINT:PRINT"             [217][207][213] [200][193][214][197] [215][207][206] :"
5060 PRINT:PRINT"            [193] [194][193][210][210][197][204] [207][198] [194][197][197][210]"
5070 PRINT:PRINT:PRINT:PRINT
5080 PRINT"[208][204][197][193][211][197] [215][207][206]'[212] [194][217] [196][210][213][206][203][197][206] [193][198][212][197][210] [196][210][201][206][203][201][206][199] !"
5090 SD=100:GOSUB450:GOTO950
10000 REM BILD 1
10010 AE=6:HM=13:VM=10:TM=390:BL$="001"
10020 BS$(1)="     #####"
10030 BS$(2)="     #   #"
10040 BS$(3)="     #[207]  #"
10050 BS$(4)="   ###  [207]##"
10060 BS$(5)="   #  [207] [207] #"
10070 BS$(6)=" ### # ## #"
10080 BS$(7)=" #   # ## #   ######"
10090 BS$(8)=" # [207]  [207]   #####  **#"
10100 BS$(9)=" #####           **#"
10110 BS$(10)="     # ### #[216]##  **#"
10120 BS$(11)="     #     #########"
10130 BS$(12)="     #######"
10140 BS$(13)=""
10150 BS$(14)=""
10160 RETURN
10200 REM BILD 2
10210 AE=10:HM=9:VM=6:TM=420:BL$="002"
10220 BS$(1)=""
10230 BS$(2)=" ############"
10240 BS$(3)=" #**  #     ###"
10250 BS$(4)=" #**  # [207]  [207]  #"
10260 BS$(5)=" #**  #[207]####  #"
10270 BS$(6)=" #**   [207][216] ##  #"
10280 BS$(7)=" #**  # #  [207] ##"
10290 BS$(8)=" ###### ##[207] [207] #"
10300 BS$(9)="   #  [207]   [207] [207] #"
10310 BS$(10)="   #     #    #"
10320 BS$(11)="   ############"
10330 BS$(12)=""
10340 BS$(13)=""
10350 BS$(14)=""
10360 RETURN
10400 REM BILD 3
10410 AE=11:HM=17:VM=3:TM=390:BL$="003"
10420 BS$(1)=""
10430 BS$(2)="          ########"
10440 BS$(3)="          #     [216]#"
10450 BS$(4)="          # [207]#[207] ##"
10460 BS$(5)="          # [207]  [207]#"
10470 BS$(6)="          ##[207] [207] #"
10480 BS$(7)=" ########## [207] # ###"
10490 BS$(8)=" #****   ## [207]  [207]  #"
10500 BS$(9)=" #***      [207]  [207]   #"
10510 BS$(10)=" #****   ##########"
10520 BS$(11)=" #########"
10530 BS$(12)=""
10540 BS$(13)=""
10550 BS$(14)=""
10560 RETURN
10600 REM BILD 4
10610 AE=20:HM=11:VM=11:TM=510:BL$="004"
10620 BS$(1)="           ########"
10630 BS$(2)="############  ****#"
10640 BS$(3)="#    #  [207]  [207]  ****#"
10650 BS$(4)="# [207][207][207]#[207]  [207] #  ****#"
10660 BS$(5)="#  [207]     [207] #  ****#"
10670 BS$(6)="# [207][207] #[207] [207] [207]#  ****#"
10680 BS$(7)="#  [207] #     ########"
10690 BS$(8)="## #########"
10700 BS$(9)="#    #    ##"
10710 BS$(10)="#      [207]  ##"
10720 BS$(11)="#  [207][207]#[207][207]  [216]#"
10730 BS$(12)="#    #    ##"
10740 BS$(13)="############"
10750 BS$(14)=""
10760 RETURN
10800 REM BILD 5
10810 AE=12:HM=17:VM=8:TM=495:BL$="005"
10820 BS$(1)="          #####"
10830 BS$(2)="          #   #####"
10840 BS$(3)="          # #[207]##  #"
10850 BS$(4)="          #    [207]  #"
10860 BS$(5)="  ######### ###   #"
10870 BS$(6)="  #****  ## [207]  [207]###"
10880 BS$(7)="  #****    [207] [207][207] ##"
10890 BS$(8)="  #****  ##[207]  [207] [216]#"
10900 BS$(9)="  #########  [207]  ##"
10910 BS$(10)="          # [207] [207]  #"
10920 BS$(11)="          ### ## #"
10930 BS$(12)="            #    #"
10940 BS$(13)="            ######"
10950 BS$(14)=""
10960 RETURN
11000 REM BILD 6
11010 AE=10:HM=13:VM=3:TM=390:BL$="006"
11020 BS$(1)=""
11030 BS$(2)="   ######  ###"
11040 BS$(3)="   #**  # ##[216]##"
11050 BS$(4)="   #**  ###   #"
11060 BS$(5)="   #**     [207][207] #"
11070 BS$(6)="   #**  # # [207] #"
11080 BS$(7)="   #**### # [207] #"
11090 BS$(8)="   #### [207] #[207]  #"
11100 BS$(9)="      #  [207]# [207] #"
11110 BS$(10)="      # [207]  [207]  #"
11120 BS$(11)="      #  ##   #"
11130 BS$(12)="      #########"
11140 BS$(13)=""
11150 BS$(14)=""
11160 RETURN
11200 REM BILD 7
11210 AE=11:HM=8:VM=3:TM=420:BL$="007"
11220 BS$(1)="         #####"
11230 BS$(2)="   #######   ##"
11240 BS$(3)="  ## # [216]## [207][207] #"
11250 BS$(4)="  #     [207]     #"
11260 BS$(5)="  #  [207]  ###   #"
11270 BS$(6)="  ### #####[207]###"
11280 BS$(7)="  # [207]  ### **#"
11290 BS$(8)="  # [207] [207] [207] ***#"
11300 BS$(9)="  #    ###***#"
11310 BS$(10)="  # [207][207] # #***#"
11320 BS$(11)="  #  ### #####"
11330 BS$(12)="  ####"
11340 BS$(13)=""
11350 BS$(14)=""
11360 RETURN
11400 REM BILD 8
11410 AE=14:VM=11:HM=3:TM=450:BL$="008"
11420 BS$(1)="           #######"
11430 BS$(2)="           #  ***#"
11440 BS$(3)="       #####  ***#"
11450 BS$(4)="       #      * *#"
11460 BS$(5)="       #  ##  ***#"
11470 BS$(6)="       ## ##  ***#"
11480 BS$(7)="      ### ########"
11490 BS$(8)="      # [207][207][207] ##"
11500 BS$(9)="  #####  [207] [207] #####"
11510 BS$(10)=" ##   #[207] [207]   #   #"
11520 BS$(11)=" #[216] [207]  [207]    [207]  [207] #"
11530 BS$(12)=" ###### [207][207] [207] #####"
11540 BS$(13)="      #      #"
11550 BS$(14)="      ########"
11560 RETURN
11600 REM BILD 9
11610 AE=15:VM=5:HM=9:TM=570:BL$="009"
11620 BS$(1)=" ################"
11630 BS$(2)=" #              #"
11640 BS$(3)=" # # ######     #"
11650 BS$(4)=" # #  [207] [207] [207] [207]#  #"
11660 BS$(5)=" # #   [207][216][207]   ## ##"
11670 BS$(6)=" # # #[207] [207] [207]###***#"
11680 BS$(7)=" # #   [207] [207]  ##***#"
11690 BS$(8)=" # ###[207][207][207] [207] ##***#"
11700 BS$(9)=" #     # ## ##***#"
11710 BS$(10)=" #####   ## ##***#"
11720 BS$(11)="     #####     ###"
11730 BS$(12)="         #     #"
11740 BS$(13)="         #######"
11750 BS$(14)=""
11760 RETURN
11800 REM BILD 10
11810 AE=16:VM=5:HM=7:TM=540:BL$="010"
11820 BS$(1)="   #########"
11830 BS$(2)="  ##   ##  ######"
11840 BS$(3)="###     #  #    ###"
11850 BS$(4)="#  [207] #[207] #  #  *** #"
11860 BS$(5)="# # [207]#[216][207]## # #*#* #"
11870 BS$(6)="#  # #[207]  #    * * #"
11880 BS$(7)="# [207]    [207] # # #*#* #"
11890 BS$(8)="#   ##  ##[207] [207] * * #"
11900 BS$(9)="# [207] #   #  #[207]#*#* #"
11910 BS$(10)="## [207]  [207]   [207]  [207]*** #"
11920 BS$(11)=" #[207] ######    ##  #"
11930 BS$(12)=" #  #    ##########"
11940 BS$(13)=" ####"
11950 BS$(14)=""
11960 RETURN
12000 REM BILD 11
12010 AE=15:VM=4:HM=13:TM=570:BL$="011"
12020 BS$(1)="            ######"
12030 BS$(2)="        #####    #"
12040 BS$(3)="   ######   # [207]  #"
12050 BS$(4)="   #    # [207] [216][207]   #"
12060 BS$(5)="   #  [207]  # # [207]  ##"
12070 BS$(6)="   ###[207]  [207] ## ###"
12080 BS$(7)="     #   ## [207][207]#"
12090 BS$(8)="     ###[207]##   #"
12100 BS$(9)="     #***[207] [207]  ##"
12110 BS$(10)="     #*O* #    #"
12120 BS$(11)="     #**# #[207] [207] #"
12130 BS$(12)="     #**##  ####"
12140 BS$(13)="     #*****##"
12150 BS$(14)="     #######"
12160 RETURN
12200 REM BILD 12
12210 AE=6:VM=11:HM=5:TM=420:BL$="012"
12220 BS$(1)="     ##########"
12230 BS$(2)="     #**  #   #"
12240 BS$(3)="     #**      #"
12250 BS$(4)="     #**  #  ####"
12260 BS$(5)="    #######  #  ##"
12270 BS$(6)="    #            #"
12280 BS$(7)="    #  #  ##  #  #"
12290 BS$(8)="  #### ##  #### ##"
12300 BS$(9)="  #  [207]  ##### #  #"
12310 BS$(10)="  # # [207]  [207]  # [207]  #"
12320 BS$(11)="  # [216][207]  [207]   #   ##"
12330 BS$(12)="  #### ## #######"
12340 BS$(13)="     #    #"
12350 BS$(14)="     ######"
12360 RETURN
12400 REM BILD 13
12410 AE=11:VM=3:HM=14:TM=570:BL$="013"
12420 BS$(1)="     ###########"
12430 BS$(2)="     #  *  #   #"
12440 BS$(3)="     # #*    [216] #"
12450 BS$(4)=" ##### ##**# ####"
12460 BS$(5)="##  # **###     ###"
12470 BS$(6)="# [207] #***   [207] #  [207] #"
12480 BS$(7)="#    ** ##  ## ## #"
12490 BS$(8)="####[207]##[207]# [207] #   # #"
12500 BS$(9)="  ## #    #[207] [207][207] # #"
12510 BS$(10)="  #  [207] # #  # [207]## #"
12520 BS$(11)="  #               #"
12530 BS$(12)="  #  ###########  #"
12540 BS$(13)="  ####         ####"
12550 BS$(14)=""
12560 RETURN
12600 REM BILD 14
12610 AE=18:VM=8:HM=4:TM=1035:BL$="014"
12620 BS$(1)="    #######"
12630 BS$(2)="    #  #  ####"
12640 BS$(3)="##### [207]#[207] #  ##"
12650 BS$(4)="#** #  #  #   #"
12660 BS$(5)="#** # [207]#[207] #  [207]####"
12670 BS$(6)="#*  #     #[207]  #  #"
12680 BS$(7)="#**   [207]#  # [207]    #"
12690 BS$(8)="#**[216]#  #[207] #[207]  #  #"
12700 BS$(9)="#** # [207]#     [207]#  #"
12710 BS$(10)="#** #  #[207][207]#[207]  #  ##"
12720 BS$(11)="#** # [207]#  #  [207]#[207]  #"
12730 BS$(12)="#** #  #  #   #   #"
12740 BS$(13)="##* ####  #####   #"
12750 BS$(14)=" ####  ####   #####"
12760 RETURN
12800 REM BILD 15
12810 AE=13:VM=10:HM=16:TM=540:BL$="015"
12820 BS$(1)="   #######"
12830 BS$(2)="   #  #  #####"
12840 BS$(3)="  ##  #  #***###"
12850 BS$(4)="  #  [207]#  #***  #"
12860 BS$(5)="  # [207] #[207][207] ***  #"
12870 BS$(6)="  #  [207]#   *** *#"
12880 BS$(7)="  #   # [207]########"
12890 BS$(8)="  ##[207]       [207] [207] #"
12900 BS$(9)="  ##  #  [207][207] #   #"
12910 BS$(10)="   ######  ##[207][207][216]#"
12920 BS$(11)="       #       ##"
12930 BS$(12)="       #########"
12940 BS$(13)=""
12950 BS$(14)=""
12960 RETURN
13000 REM BILD 16
13010 AE=20:VM=12:HM=11:TM=900:BL$="016"
13020 BS$(1)=" #################"
13030 BS$(2)=" #***   #    #   ##"
13040 BS$(3)="##*****  [207]## # #[207] #"
13050 BS$(4)="#******#  [207]  #    #"
13060 BS$(5)="#******#  #  # #  #"
13070 BS$(6)="######### [207]  [207] [207]  #"
13080 BS$(7)="  #     #[207]##[207] ##[207]##"
13090 BS$(8)=" ##   [207]    # [207]    #"
13100 BS$(9)=" #  ## ### #  ##[207] #"
13110 BS$(10)=" # [207] [207][207]     [207]  [207]  #"
13120 BS$(11)=" # [207]    [207]##[207] ######"
13130 BS$(12)=" #######  [216] ##"
13140 BS$(13)="       ######"
13150 BS$(14)=""
13160 RETURN
13200 REM BILD 17
13210 AE=16:VM=5:HM=12:TM=555:BL$="017"
13220 BS$(1)="#####"
13230 BS$(2)="#   ##"
13240 BS$(3)="# [207]  #########"
13250 BS$(4)="## # #       ######"
13260 BS$(5)="## #   [207]#[207]#[216]  #   #"
13270 BS$(6)="#  #      [207] #   [207] #"
13280 BS$(7)="#  ### ######### ##"
13290 BS$(8)="#  ## **O***** # ##"
13300 BS$(9)="## ## O*O**O*O # ##"
13310 BS$(10)="# [207]########## ##[207] #"
13320 BS$(11)="#  [207]   [207]  [207]    [207]  #"
13330 BS$(12)="#  #   #   #   #  #"
13340 BS$(13)="###################"
13350 BS$(14)=""
13360 RETURN
13400 REM BILD 18
13410 AE=18:VM=6:HM=6:TM=1050:BL$="018"
13420 BS$(1)="       ###########"
13430 BS$(2)="       #   #     #"
13440 BS$(3)="#####  #     [207] [207] #"
13450 BS$(4)="#   ##### [207]## # ##"
13460 BS$(5)="# [207] ##   # ## [207]  #"
13470 BS$(6)="# [207]  [216][207][207] # ##[207][207][207] #"
13480 BS$(7)="## ###   # ##    #"
13490 BS$(8)="## #   ### #####[207]#"
13500 BS$(9)="## #     [207]  #****#"
13510 BS$(10)="#  ### ## [207] #****##"
13520 BS$(11)="# [207]   [207] #   #**[207]* #"
13530 BS$(12)="#  ## [207] #  ##**** #"
13540 BS$(13)="#####   ######***##"
13550 BS$(14)="    #####    #####"
13560 RETURN
13600 REM BILD 19
13610 AE=15:VM=12:HM=8:TM=525:BL$="019"
13620 BS$(1)="           ####"
13630 BS$(2)="      ######  ##"
13640 BS$(3)="      # [207] [207]   ##"
13650 BS$(4)="   ####  [207] [207] [207] ###"
13660 BS$(5)="   # [207] [207]   [207][207]    #"
13670 BS$(6)="   #  #  [207]   [207] [207] #"
13680 BS$(7)="   ## ##### ######"
13690 BS$(8)="    #   #*** #"
13700 BS$(9)="    #  [207] ****#"
13710 BS$(10)="    # [207] #****#"
13720 BS$(11)="    ## [207]#****#"
13730 BS$(12)="     ##[216]######"
13740 BS$(13)="      ###"
13750 BS$(14)=""
13760 RETURN
13800 REM BILD 20
13810 AE=15:VM=3:HM=14:TM=915:BL$="020"
13820 BS$(1)=""
13830 BS$(2)="   ###############"
13840 BS$(3)="   #    ##  #[216]   #"
13850 BS$(4)="   # [207][207] # [207] ###[207] #"
13860 BS$(5)="   ## [207] #[207]  # [207]  #"
13870 BS$(6)="   ##        [207]   #"
13880 BS$(7)="   #  ####### ####"
13890 BS$(8)="   # [207]#    [207]****##"
13900 BS$(9)="   #   [207][207]#  *****#"
13910 BS$(10)="   #  # [207] ## #***#"
13920 BS$(11)="   #  # [207]  [207] #**##"
13930 BS$(12)="   ####      #*###"
13940 BS$(13)="   ###############"
13950 BS$(14)=""
13960 RETURN
14000 REM BILD 21
14010 AE=14:VM=11:HM=14:TM=690:BL$="021"
14020 BS$(1)="          ####"
14030 BS$(2)="    #######  ####"
14040 BS$(3)="    #    [207]  ****#"
14050 BS$(4)="  ###   # # **#*#"
14060 BS$(5)="  # [207][207] #  # ****#"
14070 BS$(6)="  #    # [207]# **#*#"
14080 BS$(7)="  ##[207]###[207]  ###  #"
14090 BS$(8)="   #  #  [207] [207]    #"
14100 BS$(9)="   #    [207] [207]  #[207] #"
14110 BS$(10)="   # [207]## [207] ##  ##"
14120 BS$(11)="   ## #### # [216]##"
14130 BS$(12)="    #   #  [207] ##"
14140 BS$(13)="    ###     ##"
14150 BS$(14)="      #######"
14160 RETURN
14200 REM BILD 22
14210 AE=8:HM=14:VM=3:TM=540:BL$="022"
14220 BS$(1)=""
14230 BS$(2)="           ####"
14240 BS$(3)="     ####### [216]#"
14250 BS$(4)="     #     [207]  #"
14260 BS$(5)="     #   [207]## [207]#"
14270 BS$(6)="     ## #***# #"
14280 BS$(7)="      #[207][207]***  ##"
14290 BS$(8)="      # #* *#  #"
14300 BS$(9)="      #   # #[207] #"
14310 BS$(10)="      #[207]  [207]    #"
14320 BS$(11)="      #  #######"
14330 BS$(12)="      ####"
14340 BS$(13)=""
14350 BS$(14)=""
14360 RETURN
14400 REM BILD 23
14410 AE=24:VM=3:HM=18:TM=630:BL$="023"
14420 BS$(1)="      ########"
14430 BS$(2)="   ####      ######"
14440 BS$(3)="   #    ## [207] [207]   [216]#"
14450 BS$(4)="   # ## ##[207]#[207] [207] [207]##"
14460 BS$(5)=" ### ******#  [207][207] ##"
14470 BS$(6)=" #   ******#  #   #"
14480 BS$(7)=" # # ******#[207]  [207]  #"
14490 BS$(8)=" # # ****** [207][207]# [207] #"
14500 BS$(9)=" #  [207]### ###[207]  [207] ##"
14510 BS$(10)=" ###   [207] [207]  [207]  [207] #"
14520 BS$(11)="   #   [207] [207]  [207]  [207] #"
14530 BS$(12)="   ######   ######"
14540 BS$(13)="        #####"
14550 BS$(14)=""
14560 RETURN
14600 REM BILD 24
14610 AE=9:VM=9:HM=10:TM=510:BL$="024"
14620 BS$(1)=""
14630 BS$(2)="        #######"
14640 BS$(3)="    #####  #  ####"
14650 BS$(4)="    #   #   [207]    #"
14660 BS$(5)=" #### #[207][207] ## ##  #"
14670 BS$(6)="##      # #  ## ###"
14680 BS$(7)="#  ### [207]#[207]  [207]  [207]  #"
14690 BS$(8)="#***    # ##  #   #"
14700 BS$(9)="#***#    [216] # ### ##"
14710 BS$(10)="#***#  ###  [207]  [207]  #"
14720 BS$(11)="######## ##   #   #"
14730 BS$(12)="          #########"
14740 BS$(13)=""
14750 BS$(14)=""
14760 RETURN
14800 REM BILD 25
14810 AE=17:VM=10:HM=8:TM=990:BL$="025"
14820 BS$(1)="  ##### ####"
14830 BS$(2)="  #***# #  ####"
14840 BS$(3)="  #***###  [207]  #"
14850 BS$(4)="  #****## [207]  [207]###"
14860 BS$(5)="  ##****##   [207]  #"
14870 BS$(6)="  ###*** ## [207] [207] #"
14880 BS$(7)="  # ##    #  [207]  #"
14890 BS$(8)="  #  ## # ### ####"
14900 BS$(9)="  # [207] # #[207]  [207]    #"
14910 BS$(10)="  #  [207] [216] [207]    [207]  #"
14920 BS$(11)="  #   # [207] [207][207] [207] ###"
14930 BS$(12)="  #  ######  ###"
14940 BS$(13)="  # ##    ####"
14950 BS$(14)="  ###"
14960 RETURN
15000 REM BILD 26
15010 AE=14:VM=12:HM=11:TM=660:BL$="026"
15020 BS$(1)="            ######"
15030 BS$(2)="            #    #"
15040 BS$(3)="  #####   ### ## #"
15050 BS$(4)="  #** ##### [207]  # #"
15060 BS$(5)="  #**     [207]   [207]# #"
15070 BS$(6)="  #**  ## ##   # #"
15080 BS$(7)="  #** ## [207] #[207] [207]# #"
15090 BS$(8)="  #** #     [207]  # #"
15100 BS$(9)="  #** #  [207] ###[207]  #"
15110 BS$(10)="  #** # [207] [207]  [207] ###"
15120 BS$(11)="  ### ## # [207]    #"
15130 BS$(12)="    #    #[216]## [207] #"
15140 BS$(13)="    #########  ##"
15150 BS$(14)="            ####"
15160 RETURN
15200 REM BILD 27
15210 AE=16:VM=7:HM=7:TM=690:BL$="027"
15220 BS$(1)=""
15230 BS$(2)="         ####"
15240 BS$(3)=" #########  ##"
15250 BS$(4)="##  [207]      [207] #####"
15260 BS$(5)="#   ## ##   ##***#"
15270 BS$(6)="# #[207][207] [207] [207][207]#[207]##***#"
15280 BS$(7)="# #   [216]   #   ***#"
15290 BS$(8)="#  [207]# ###[207][207]   ***#"
15300 BS$(9)="# [207]  [207][207]  [207] ##****#"
15310 BS$(10)="###[207]       #######"
15320 BS$(11)="  #  #######"
15330 BS$(12)="  ####"
15340 BS$(13)=""
15350 BS$(14)=""
15360 RETURN
15400 REM BILD 28
15410 AE=34:VM=7:HM=3:TM=480:BL$="028"
15420 BS$(1)="    ####"
15430 BS$(2)="#####  #"
15440 BS$(3)="#  [207] [207] # #######"
15450 BS$(4)="#   [207]  # #O*O*O#"
15460 BS$(5)="## [207] [207] ###*O*O*#"
15470 BS$(6)=" #[207] [207]  #  O*O*O#"
15480 BS$(7)=" #[216][207] [207]    *O*O##"
15490 BS$(8)=" #[207] [207]  #  O*O*O#"
15500 BS$(9)="## [207] [207] ###*O*O*#"
15510 BS$(10)="#   [207]  # #O*O*O#"
15520 BS$(11)="#  [207] [207] # #######"
15530 BS$(12)="#####  #"
15540 BS$(13)="    ####"
15550 BS$(14)=""
15560 RETURN
25000 REM MUSIKDATENFELD
25010 DATA72,2,69,1,67,2,64,1,65,2,69,1,65,2,62,1
25020 DATA64,2,60,1,62,2,59,1,60,2,-1,-1
25030 DATA57,6,57,6,57,3,57,9,60,6,59,3,59,6,57,3,57,6
25040 DATA56,3,57,6,-1,-1
25050 DATA60,2,62,2,64,2,65,2,62,2,64,2,60,2,67,4
25060 DATA72,4,71,4,72,4,74,2,67,2,69,2,71,2,72,2
25070 DATA69,2,71,2,67,2,74,4,79,4,77,4,79,4,76,4
25080 DATA81,2,79,2,77,2,76,2,79,2,77,2,81,2,79,2
25090 DATA77,2,76,2,74,2,72,2,76,2,74,2,77,2,76,2
25100 DATA74,2,72,2,71,2,69,2,72,2,71,2,74,2,72,2
25110 DATA71,2,69,2,67,2,66,2,69,2,67,2,71,2,69,2
25120 DATA62,2,72,1,71,1,72,2,74,4,71,2,69,2,67,2
25130 DATA66,2,64,2,67,2,66,2,69,2,67,2,71,2,69,2
25140 DATA72,2,71,2,71,1,72,1,74,2,79,2,71,1,72,1
25150 DATA71,2,69,2,67,2,67,8,67,8,-1,-1
30000 REM ******************************
30010 REM OLAF KRAUSE (COMPUTERPOST) &
30020 REM CHRISTIAN SCHAEFFNER ANNO 1990
30030 REM H.-HEINE-STR.13/ZIMMER 32
30040 REM O-9200 FREIBERG
30050 REM CPC 464 & +4/C16 
30060 REM TEST AUF CPC 464
30070 REM ******************************
30080 REM ERWEITERUNG AUF 28 BILDER
30090 REM EINGEBUNDEN VON:
30100 REM MARIO LEUBNER
30110 REM CHEMNITZTALSTRASSE 25
30120 REM O-9114 MARKERSDORF
30130 REM AUF KC85/4 MIT FLOPPY-DISK
30140 REM 01.12.1990
30150 REM ******************************
30160 REM ERSTAUSSTRAHLUNG: DEUTSCHLANDSENDER KULTUR
30170 REM-SPEZIAL 901128