1000 A=1000:GOTO 20:REM ** SLIDER **
1010 MH=HO:MV=VE
1020 REM titelbild
1030 DIM BS$(14),FE(14,20)
1040 LH=28
1050 FOR I=0 TO 2*MH+1:PRINT"#";:NEXT I
1060 SR$="##"
1070 FOR I=1 TO MH-3
1080 SR$=SR$+" "
1090 NEXT I
1100 SR$=SR$+"##"
1110 FOR I=2 TO MV-3
1120 PRINT SR$;
1130 NEXT I
1140 FOR I=0 TO 2*HO+1:PRINT"#";:NEXT I
1150 HO=0:VE=INT((MV+1-16)/2):GOSUB 110
1160 PRINT"##     SSS  L   III  DD   EEE  RR"
1170 PRINT"##    S     L    I   D D  E    R R"
1180 PRINT"##    S     L    I   D D  E    R R"
1190 PRINT"##     SS   L    I   D D  EEE  RR"
1200 PRINT"##       S  L    I   D D  E    R R"
1210 PRINT"##       S  L    I   D D  E    R R"
1220 PRINT"##    SSS   LLL III  DD   EEE  R R"
1230 VE=VE+9:HO=0:GOSUB 110
1240 PRINT"##       (I) : INSTRUCTIONS"
1250 PRINT
1260 PRINT"##       (G) : GAME"
1270 PRINT
1280 PRINT"##       (L) : LEVEL"
1290 YY$="(P) by Gaisipower. Converted from +4 by "
1300 YY$=YY$+"Christian and Olaf  ----  "
1310 PO=1:LE=LEN(YY$):BS=20
1320 READ A,B:IF A>0 THEN 1320
1330 READ A,B:IF A>0 THEN 1330
1340 READ SP,SD
1350 IF (SD<0) AND (SP<0) THEN RESTORE:GOTO 1320
1360 GOSUB 200
1370 IF IN=76 THEN 1540
1380 IF IN=73 THEN 1770
1390 IF IN=71 THEN 2010
1400 IF BS+PO>LE THEN 1420
1410 XX$=MID$(YY$,PO,BS):GOTO 1450
1420 XX$=RIGHT$(YY$,LE-PO+1)
1430 IF BS+PO-LE-1<=0 THEN 1450
1440 XX$=XX$+LEFT$(YY$,BS+PO-LE-1)
1450 PO=PO+1:IF PO>LE THEN PO=1
1460 HO=10:VE=MV-4:GOSUB 110
1470 PRINT XX$
1480 SV=8:GOSUB 400:GOTO 1340
1490 PRINT SR$
1500 PRINT:IF MV>28 THEN PRINT
1510 GOSUB 450
1520 RETURN
1530 REM level
1540 HO=6:VE=MV-4:GOSUB 110
1550 SR=LH:GOSUB 300
1560 LV=1:ZZ=0
1570 PRINT"Please enter Level (1-";SR$;") ";
1580 HO=30+LEN(SR$)
1590 GOSUB 210
1600 IF IN=13 THEN 2020
1610 IF (IN=127) OR (IN=28) THEN 1700
1620 IF (IN<48) OR (IN>57) THEN 1590
1630 IF (ZZ=0) AND (IN=48) THEN 1590
1640 IF ZZ=0 THEN LT=IN-48:GOTO 1660
1650 LT=10*LV+IN-48
1660 IF LT>LH THEN 1590
1670 ZZ=ZZ+1:PRINT IN$;
1680 LV=LT:HO=HO+1
1690 GOTO 1590
1700 IF ZZ=0 THEN 1590
1710 LV=INT(0.1*LV):ZZ=ZZ-1
1720 IF ZZ=0 THEN LV=1
1730 HO=HO-1:GOSUB 110
1740 PRINT" ";:GOSUB 110
1750 GOTO 1590
1760 REM instructions
1770 GOSUB 100
1780 SD=5:GOSUB 450
1790 HO=0:VE=3
1800 GOSUB 110
1810 SR$="     Slider is a game for everybody"
1820 SD=10:GOSUB 1490
1830 SR$="  Who wants to prove his intelligence"
1840 SD=10:GOSUB 1490
1850 SR$="        You have to push barrels"
1860 SD=10:GOSUB 1490
1870 SR$="          on the marked fields"
1880 SD=10:GOSUB 1490
1890 SR=LH:GOSUB 300
1900 SR$="         in "+SR$+" different levels"
1910 SD=10:GOSUB 1490
1920 SR$="      and the time is against you"
1930 SD=10:GOSUB 1490
1940 SR$="          Press G to give up."
1950 SD=10:GOSUB 1490
1960 SR$="      Use the cursor-keys to play."
1970 SD=20:GOSUB 1490:PRINT
1980 SR$="          G O O D    L U C K !"
1990 SD=100:GOSUB 1490
2000 REM game
2010 LV=1
2020 MM=7
2030 GOSUB 100
2040 IF LV>LH THEN 2230
2050 IF LV>5 THEN 2080
2060 ON LV GOSUB 10010,10210,10410,10610,10810
2070 GOTO 3010
2080 IF LV>10 THEN 2110
2090 ON LV-5 GOSUB 11010,11210,11410,11610,11810
2100 GOTO 3010
2110 IF LV>15 THEN 2140
2120 ON LV-10 GOSUB 12010,12210,12410,12610,12810
2130 GOTO 3010
2140 IF LV>20 THEN 2170
2150 ON LV-15 GOSUB 13010,13210,13410,13610,13810
2160 GOTO 3010
2170 IF LV>25 THEN 2200
2180 ON LV-20 GOSUB 14010,14210,14410,14610,14810
2190 GOTO 3010
2200 IF LV>LH THEN 2230
2210 ON LV-25 GOSUB 15010,15210,15410
2220 GOTO 3010
2230 GOTO 5010:REM zum Schlussbild
3000 REM bild- und feldaufbau
3010 MA=32:MI=INT(TM/60):SE=TM-(MI*60)
3020 T1=0
3030 FOR I=1 TO 14
3040 IF BS$(I)="" THEN 3180
3050 FOR J=1 TO LEN(BS$(I))
3060 FE$=MID$(BS$(I),J,1)
3070 IF FE$<>"o" THEN 3140
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("O")
3120 BS$(I)=H1$+"O"+H2$
3130 GOTO 3150
3140 FE(I,J)=ASC(FE$)
3150 NEXT J
3160 HO=10:VE=5+I:GOSUB 110
3170 PRINT BS$(I)
3180 NEXT I
3190 REM aufbau anzeigen
3200 L$="                                  "
3210 SR$=L$:HO=0:VE=0:GOSUB 110:GOSUB 150
3220 SR=LV:GOSUB 300
3230 LV$=SR$
3240 SR=MM:GOSUB 300
3250 LV$="  Level: "+RIGHT$("0"+LV$,2)+" "
3260 LV$=LV$+"  Bild: "+BL$
3270 SR$=LV$+"   Men: "+SR$+"  "
3280 VE=1:GOSUB 110:GOSUB 150
3290 VE=2:GOSUB 110:SR$=L$:GOSUB 150
3300 HO=0:VE=21:GOSUB 110
3310 GOSUB 150
3320 VE=23:GOSUB 110:GOSUB 150
3330 MO=0:PU=0
3340 REM schleife (beginn)
3350 REM 
3360 HO=0:VE=22:GOSUB 110
3370 SR=MO:GOSUB 300
3380 MO$=SR$
3390 SR=PU:GOSUB 300
3400 MO$="Moves "+RIGHT$("00"+MO$,3)
3410 MO$=MO$+"  Pushes "+RIGHT$("00"+SR$,3)
3420 SR=MI:GOSUB 300:MI$=SR$
3430 SR=SE:GOSUB 300:SE$=SR$
3440 SR$=MO$+"   Time "+RIGHT$("00"+MI$,2)+":"
3450 SR$=SR$+RIGHT$("00"+SE$,2)
3460 GOSUB 150
3470 REM tastaturabfrage
3480 SD=10:GOSUB 450
3490 IF (IN<>0) AND ((SD=0) OR (SD=10)) THEN SD=5
3500 TX=1-SD/10:T1=T1+TX:IF T1>1 THEN T1=T1-1:SE=SE-1
3510 IF SE<0 THEN SE=59:MI=MI-1
3520 IF MI<0 THEN 4260
3530 IF IN<>0 THEN 3550
3540 GOTO 3360
3550 IF IN=28 THEN XI=0:DJ=-1:GOTO 3620
3560 IF IN=29 THEN XI=0:DJ=1:GOTO 3620
3570 IF IN=30 THEN XI=1:DJ=0:GOTO 3620
3580 IF IN=31 THEN XI=-1:DJ=0:GOTO 3620
3590 IF IN=71 THEN 4010:REM give up
3600 GOTO 3360
3610 REM bewegung
3620 WE=FE(VM+XI,HM+DJ)
3630 IF (WE=32) OR (WE=42) THEN MO=MO+1:SP=39:GOTO 3770
3640 IF WE=35 THEN 3540:REM zur abfrage
3650 W1=FE(VM+2*XI,HM+2*DJ)
3660 IF (W1<>32) AND (W1<>42) THEN 3540:REM abfrage
3670 W2=WE:PU=PU+1:SP=15
3680 IF (WE=79) OR (WE=111) THEN 3730:REM tonne weg 
3690 AE=AE+1:W2=WE-128:WE=42
3700 FE(VM+XI,HM+DJ)=42
3710 GOTO 3740
3720 REM tonne verschieben
3730 FE(VM+XI,HM+DJ)=32
3740 IF W1=42 THEN FE(VM+2*XI,HM+2*DJ)=128+W2:AE=AE-1
3750 IF W1=32 THEN FE(VM+2*XI,HM+2*DJ)=W2
3760 REM maennchen laeuft
3770 MN=WE:FE(VM+XI,HM+DJ)=ASC("X")
3780 IF MA<>42 THEN MA=32
3790 FE(VM,HM)=MA:MA=MN
3800 REM auf bildschirm
3810 VE=VM+5:HO=HM+9:GOSUB 110
3820 PRINT CHR$(FE(VM,HM))
3830 VE=VM+XI+5:HO=HM+DJ+9:GOSUB 110
3840 PRINT"X"
3850 VE=VM+2*XI+5:HO=HM+2*DJ+9:GOSUB 110
3860 FE=FE(VE-5,HO-9)
3870 IF FE>128 THEN FE=FE-128
3880 PRINT CHR$(FE)
3890 HM=HM+DJ:VM=VM+XI
3900 SD=1:SV=14:GOSUB 400
3910 IF AE>0 THEN 3360
3920 REM level completed
3930 HO=10:VE=12:GOSUB 110
3940 SR$="Congratulation":GOSUB 150
3950 RESTORE
3960 READ SP,SD:IF (SP<0) AND (SD<0) THEN 3980
3970 SV=8:GOSUB 400:GOTO 3960
3980 LV=LV+1
3990 GOTO 2030
4000 REM give up
4010 HO=13:VE=12:GOSUB 110
4020 SR$="Give up":GOSUB 150
4030 FOR X=5 TO 1 STEP -1
4040 SP=69+X:SD=6:SV=8:GOSUB 400
4050 NEXT X
4060 FOR X=1 TO 100:NEXT X
4070 MM=MM-1
4080 IF MM>0 THEN 2030
4090 RESTORE
4100 READ A,B:IF A>0 THEN 4100
4110 READ SP,SD:IF SP<0 THEN 4130
4120 SV=8:GOSUB 400:GOTO 4110
4130 GOSUB 100
4140 HO=0:VE=12:GOSUB 110
4150 PRINT"             That was it!!!"
4160 SD=30:GOSUB 450
4170 HO=0:VE=12:GOSUB 110
4180 PRINT"          I hope you had fun."
4190 SD=30:GOSUB 450
4200 HO=0:VE=12:GOSUB 110
4210 PRINT"       Go on and try it again!!!"
4220 SD=60:GOSUB 450
4230 GOTO 1000
4240 REM ende
4250 REM time over
4260 HO=10:VE=12:GOSUB 110
4270 SR$="the Time is out"
4280 GOSUB 150
4290 GOTO 4030
5000 REM ende
5010 PRINT:PRINT:PRINT
5020 PRINT"             CONGRATULATION"
5030 PRINT:PRINT:PRINT:PRINT
5040 PRINT"       YOU'VE COMPLETED ALL LEVELS"
5050 PRINT:PRINT"             YOU HAVE WON :"
5060 PRINT:PRINT"            A BARREL OF BEER"
5070 PRINT:PRINT:PRINT:PRINT
5080 PRINT"PLEASE WON'T BY DRUNKEN AFTER DRINKING !"
5090 SD=100:GOSUB 450:GOTO 950
10000 REM bild 1
10010 AE=6:HM=13:VM=10:TM=390:BL$="001"
10020 BS$(1)="     #####"
10030 BS$(2)="     #   #"
10040 BS$(3)="     #O  #"
10050 BS$(4)="   ###  O##"
10060 BS$(5)="   #  O O #"
10070 BS$(6)=" ### # ## #"
10080 BS$(7)=" #   # ## #   ######"
10090 BS$(8)=" # O  O   #####  **#"
10100 BS$(9)=" #####           **#"
10110 BS$(10)="     # ### #X##  **#"
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)=" #**  # O  O  #"
10260 BS$(5)=" #**  #O####  #"
10270 BS$(6)=" #**   OX ##  #"
10280 BS$(7)=" #**  # #  O ##"
10290 BS$(8)=" ###### ##O O #"
10300 BS$(9)="   #  O   O O #"
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)="          #     X#"
10450 BS$(4)="          # O#O ##"
10460 BS$(5)="          # O  O#"
10470 BS$(6)="          ##O O #"
10480 BS$(7)=" ########## O # ###"
10490 BS$(8)=" #****   ## O  O  #"
10500 BS$(9)=" #***      O  O   #"
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)="#    #  O  O  ****#"
10650 BS$(4)="# OOO#O  O #  ****#"
10660 BS$(5)="#  O     O #  ****#"
10670 BS$(6)="# OO #O O O#  ****#"
10680 BS$(7)="#  O #     ########"
10690 BS$(8)="## #########"
10700 BS$(9)="#    #    ##"
10710 BS$(10)="#      O  ##"
10720 BS$(11)="#  OO#OO  X#"
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)="          # #O##  #"
10850 BS$(4)="          #    O  #"
10860 BS$(5)="  ######### ###   #"
10870 BS$(6)="  #****  ## O  O###"
10880 BS$(7)="  #****    O OO ##"
10890 BS$(8)="  #****  ##O  O X#"
10900 BS$(9)="  #########  O  ##"
10910 BS$(10)="          # O O  #"
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)="   #**  # ##X##"
11050 BS$(4)="   #**  ###   #"
11060 BS$(5)="   #**     OO #"
11070 BS$(6)="   #**  # # O #"
11080 BS$(7)="   #**### # O #"
11090 BS$(8)="   #### O #O  #"
11100 BS$(9)="      #  O# O #"
11110 BS$(10)="      # O  O  #"
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)="  ## # X## OO #"
11250 BS$(4)="  #     O     #"
11260 BS$(5)="  #  O  ###   #"
11270 BS$(6)="  ### #####O###"
11280 BS$(7)="  # O  ### **#"
11290 BS$(8)="  # O O O ***#"
11300 BS$(9)="  #    ###***#"
11310 BS$(10)="  # OO # #***#"
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)="      # OOO ##"
11500 BS$(9)="  #####  O O #####"
11510 BS$(10)=" ##   #O O   #   #"
11520 BS$(11)=" #X O  O    O  O #"
11530 BS$(12)=" ###### OO O #####"
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)=" # #  O O O O#  #"
11660 BS$(5)=" # #   OXO   ## ##"
11670 BS$(6)=" # # #O O O###***#"
11680 BS$(7)=" # #   O O  ##***#"
11690 BS$(8)=" # ###OOO O ##***#"
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)="#  O #O #  #  *** #"
11860 BS$(5)="# # O#XO## # #*#* #"
11870 BS$(6)="#  # #O  #    * * #"
11880 BS$(7)="# O    O # # #*#* #"
11890 BS$(8)="#   ##  ##O O * * #"
11900 BS$(9)="# O #   #  #O#*#* #"
11910 BS$(10)="## O  O   O  O*** #"
11920 BS$(11)=" #O ######    ##  #"
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)="   ######   # O  #"
12050 BS$(4)="   #    # O XO   #"
12060 BS$(5)="   #  O  # # O  ##"
12070 BS$(6)="   ###O  O ## ###"
12080 BS$(7)="     #   ## OO#"
12090 BS$(8)="     ###O##   #"
12100 BS$(9)="     #***O O  ##"
12110 BS$(10)="     #*o* #    #"
12120 BS$(11)="     #**# #O O #"
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)="  #  O  ##### #  #"
12310 BS$(10)="  # # O  O  # O  #"
12320 BS$(11)="  # XO  O   #   ##"
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)="     # #*    X #"
12450 BS$(4)=" ##### ##**# ####"
12460 BS$(5)="##  # **###     ###"
12470 BS$(6)="# O #***   O #  O #"
12480 BS$(7)="#    ** ##  ## ## #"
12490 BS$(8)="####O##O# O #   # #"
12500 BS$(9)="  ## #    #O OO # #"
12510 BS$(10)="  #  O # #  # O## #"
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)="##### O#O #  ##"
12650 BS$(4)="#** #  #  #   #"
12660 BS$(5)="#** # O#O #  O####"
12670 BS$(6)="#*  #     #O  #  #"
12680 BS$(7)="#**   O#  # O    #"
12690 BS$(8)="#**X#  #O #O  #  #"
12700 BS$(9)="#** # O#     O#  #"
12710 BS$(10)="#** #  #NO#O  #  ##"
12720 BS$(11)="#** # O#  #  O#O  #"
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)="  #  O#  #***  #"
12860 BS$(5)="  # O #OO ***  #"
12870 BS$(6)="  #  O#   *** *#"
12880 BS$(7)="  #   # O########"
12890 BS$(8)="  ##O       O O #"
12900 BS$(9)="  ##  #  OO #   #"
12910 BS$(10)="   ######  ##OOX#"
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)="##*****  O## # #O #"
13050 BS$(4)="#******#  O  #    #"
13060 BS$(5)="#******#  #  # #  #"
13070 BS$(6)="######### O  O O  #"
13080 BS$(7)="  #     #O##O ##O##"
13090 BS$(8)=" ##   O    # O    #"
13100 BS$(9)=" #  ## ### #  ##O #"
13110 BS$(10)=" # O OO     O  O  #"
13120 BS$(11)=" # O    O##O ######"
13130 BS$(12)=" #######  X ##"
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)="# O  #########"
13250 BS$(4)="## # #       ######"
13260 BS$(5)="## #   O#O#X  #   #"
13270 BS$(6)="#  #      O #   O #"
13280 BS$(7)="#  ### ######### ##"
13290 BS$(8)="#  ## **o***** # ##"
13300 BS$(9)="## ## o*o**o*o # ##"
13310 BS$(10)="# O########## ##O #"
13320 BS$(11)="#  O   O  O    O  #"
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)="#####  #     O O #"
13450 BS$(4)="#   ##### O## # ##"
13460 BS$(5)="# O ##   # ## O  #"
13470 BS$(6)="# O  XOO # ##OOO #"
13480 BS$(7)="## ###   # ##    #"
13490 BS$(8)="## #   ### #####O#"
13500 BS$(9)="## #     O  #****#"
13510 BS$(10)="#  ### ## O #****##"
13520 BS$(11)="# O   O #   #**O* #"
13530 BS$(12)="#  ## O #  ##**** #"
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)="      # O O   ##"
13650 BS$(4)="   ####  O O O ###"
13660 BS$(5)="   # O O   OO    #"
13670 BS$(6)="   #  #  O   O O #"
13680 BS$(7)="   ## ##### ######"
13690 BS$(8)="    #   #*** #"
13700 BS$(9)="    #  O ****#"
13710 BS$(10)="    # O #****#"
13720 BS$(11)="    ## O#****#"
13730 BS$(12)="     ##X######"
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)="   #    ##  #X   #"
13850 BS$(4)="   # OO # O ###O #"
13860 BS$(5)="   ## O #O  # O  #"
13870 BS$(6)="   ##        O   #"
13880 BS$(7)="   #  ####### ####"
13890 BS$(8)="   # O#    O****##"
13900 BS$(9)="   #   OO#  *****#"
13910 BS$(10)="   #  # O ## #***#"
13920 BS$(11)="   #  # O  O #**##"
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)="    #    O  ****#"
14050 BS$(4)="  ###   # # **#*#"
14060 BS$(5)="  # OO #  # ****#"
14070 BS$(6)="  #    # O# **#*#"
14080 BS$(7)="  ##O###O  ###  #"
14090 BS$(8)="   #  #  O O    #"
14100 BS$(9)="   #    O O  #O #"
14110 BS$(10)="   # O## O ##  ##"
14120 BS$(11)="   ## #### # X##"
14130 BS$(12)="    #   #  O ##"
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)="     ####### X#"
14250 BS$(4)="     #     O  #"
14260 BS$(5)="     #   O## O#"
14270 BS$(6)="     ## #***# #"
14280 BS$(7)="      #OO***  ##"
14290 BS$(8)="      # #* *#  #"
14300 BS$(9)="      #   # #O #"
14310 BS$(10)="      #O  O    #"
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)="   #    ## O O   X#"
14450 BS$(4)="   # ## ##O#O O O##"
14460 BS$(5)=" ### ******#  OO ##"
14470 BS$(6)=" #   ******#  #   #"
14480 BS$(7)=" # # ******#O  O  #"
14490 BS$(8)=" # # ****** OO# O #"
14500 BS$(9)=" #  O### ###O  O ##"
14510 BS$(10)=" ###   O O  O  O #"
14520 BS$(11)="   #   O O  O  O #"
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)="    #   #   O    #"
14660 BS$(5)=" #### #OO ## ##  #"
14670 BS$(6)="##      # #  ## ###"
14680 BS$(7)="#  ### O#O  O  O  #"
14690 BS$(8)="#***    # ##  #   #"
14700 BS$(9)="#***#    X # ### ##"
14710 BS$(10)="#***#  ###  O  O  #"
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)="  #***###  O  #"
14850 BS$(4)="  #****## O  O###"
14860 BS$(5)="  ##****##   O  #"
14870 BS$(6)="  ###*** ## O O #"
14880 BS$(7)="  # ##    #  O  #"
14890 BS$(8)="  #  ## # ### ####"
14900 BS$(9)="  # O # #O  O    #"
14910 BS$(10)="  #  O X O    O  #"
14920 BS$(11)="  #   # O OO O ###"
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)="  #** ##### O  # #"
15060 BS$(5)="  #**     O   O# #"
15070 BS$(6)="  #**  ## ##   # #"
15080 BS$(7)="  #** ## O #O O# #"
15090 BS$(8)="  #** #     O  # #"
15100 BS$(9)="  #** #  O ###O  #"
15110 BS$(10)="  #** # O O  O ###"
15120 BS$(11)="  ### ## # O    #"
15130 BS$(12)="    #    #X## O #"
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)="##  O      O #####"
15260 BS$(5)="#   ## ##   ##***#"
15270 BS$(6)="# #OO O OO#O##***#"
15280 BS$(7)="# #   X   #   ***#"
15290 BS$(8)="#  O# ###OO   ***#"
15300 BS$(9)="# O  OO  O ##****#"
15310 BS$(10)="###O       #######"
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)="#  O O # #######"
15450 BS$(4)="#   O  # #o*o*o#"
15460 BS$(5)="## O O ###*o*o*#"
15470 BS$(6)=" #O O  #  o*o*o#"
15480 BS$(7)=" #XO O    *o*o##"
15490 BS$(8)=" #O O  #  o*o*o#"
15500 BS$(9)="## O O ###*o*o*#"
15510 BS$(10)="#   O  # #o*o*o#"
15520 BS$(11)="#  O O # #######"
15530 BS$(12)="#####  #"
15540 BS$(13)="    ####"
15550 BS$(14)=""
15560 RETURN
25000 REM Musikdatenfeld
25010 DATA 72,2,69,1,67,2,64,1,65,2,69,1,65,2,62,1
25020 DATA 64,2,60,1,62,2,59,1,60,2,-1,-1
25030 DATA 57,6,57,6,57,3,57,9,60,6,59,3,59,6,57,3,57,6
25040 DATA 56,3,57,6,-1,-1
25050 DATA 60,2,62,2,64,2,65,2,62,2,64,2,60,2,67,4
25060 DATA 72,4,71,4,72,4,74,2,67,2,69,2,71,2,72,2
25070 DATA 69,2,71,2,67,2,74,4,79,4,77,4,79,4,76,4
25080 DATA 81,2,79,2,77,2,76,2,79,2,77,2,81,2,79,2
25090 DATA 77,2,76,2,74,2,72,2,76,2,74,2,77,2,76,2
25100 DATA 74,2,72,2,71,2,69,2,72,2,71,2,74,2,72,2
25110 DATA 71,2,69,2,67,2,66,2,69,2,67,2,71,2,69,2
25120 DATA 62,2,72,1,71,1,72,2,74,4,71,2,69,2,67,2
25130 DATA 66,2,64,2,67,2,66,2,69,2,67,2,71,2,69,2
25140 DATA 72,2,71,2,71,1,72,1,74,2,79,2,71,1,72,1
25150 DATA 71,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