90 DIM RH(18),CH(18) 100 CALL CLEAR :: CALL SCREEN(2) :: CALL MAGNIFY(3) :: GOSUB 105 :: GOSUB 10000 :: GOTO 305 105 CALL COLOR(1,16,1,3,8,1,4,8,1,5,12,1,6,7,1,9,4,1) 110 CALL CHAR(40,"00000103030207030707070707030707C0E0F8F8E0E0E0E0F0F0F0F0F0307000") 120 CALL CHAR(44,"0607030303020703070707070703070030F0E0E0E0E0E0E0F0F0F0F0F0307070") 130 CALL CHAR(88,"03071F1F070707070F0F0F0F0F0C0E00000080C0C040E0C0E0E0E0E0E0C0E0E0") 140 CALL CHAR(92,"0C0F0707070707070F0F0F0F0F0C0E0E60E0C0C0C040E0C0E0E0E0E0E0C0E000") 150 CALL CHAR(58,"FF00000000000000804020100804020101020408102040803C18183C3C3C2424") 160 CALL CHAR(96,"80FF808080FF808001FF010101FF0101002071DB8E040000") 170 CALL CHAR(100,"00000101030303030707070707030707C0E0F8F8E0E0E0E0F0F0F0F0F0607000") 180 CALL CHAR(104,"01030F0F0303030307070707070307008080C0C0E0E0E0E0F0F0F0F0F0607070") 190 TO1$="00070C1B376F5B5D5F5F6F371B8C472000E030D8ECF6DABAFAFAF6ECD830E007" 200 TO2$="00000000000000FFFF000000000000E000000000000000FFFF00000000010204" 210 CALL CHAR(108,TO1$,112,TO2$) 220 KO1$="03070D0F060203030303070F8F472310C0E0B0F030B8F8F8F8F8F0F0F0E0C00F" 230 KO2$="03070D0F0C1D1F1F1F1F0F0F0F0703F0C0E0B0F06040C0C0C0C0E0F0F1E2C408" 240 CALL CHAR(116,KO1$,120,KO2$) 250 MO1$="03070F1D3F3F7E7CF87C3E3F1F0F0600C0E0F0B8FCFCFE7E3F7EFCFCF8F06060" 260 MO2$="03070F1D3F3F7F7FFF7F3F3F1F0F0606C0E0F0B8FCFCFEFEFFFEFCFCF8F06000" 270 CALL CHAR(124,MO1$,128,MO2$) 271 CALL CHAR(132,"00000000102040FF402010000000000000000000000F1CF81C0F000000000000") 272 CALL CHAR(136,"000000001F1F070F0F0C0D0C0F0C0F0F00000000F8F8E0F0F030F030B030F0F0") 273 CALL CHAR(140,"00000103070E1C0F0F0C0D0C0F0C0F0F40E040A00000A0F0F030F030B030F0F0") 280 CALL CHAR(64,"030F1D3E7F6FFFFDC0F0B8FC76FEEFFFFFDE777F3B1F0F03FFEF7EFADC78F0C0") 290 CALL CHAR(68,"FFBFFFEFFF7FFEFF000000C3FF3C0000") 291 CALL CHAR(80,"01010303070F1931757F7F3E3F1F0701004040C0E0F098CC8EFEFE7CFCF8E080") 292 CALL CHAR(84,"01010303070F1933717F7E3C391F0701004040C0E0F0988CAEFE7E3C9CF8E080") 293 CALL CHAR(36,"00051E3F776FFDFB9FDF7F7F3F1F070000E078BCDEDEFFFFFFFFFEFEFCF8E000") 294 CALL CHAR(33,"00000F30C0300F000000FF000000FF000000F00C030CF000",75,"00C3FFFFFFFF3C00") 295 CALL CHAR(62,"0000000CF80C0000",76,"001C7EFFFFFF7E1C") 300 CALL CHAR(72,"002C7AFFDAEF7F2220EAFFBDFFF7DF8C00C0F4EFBB7FFEAC") 303 RETURN 305 SK=1 :: SALT=0 :: GUBB=3 310 ON SK GOSUB 4800,4810,4820,4830,4835 315 CALL MEL(1) 320 GR=RADG :: GRA=URADG :: GC=COLG :: GCO=UCOLG 330 CALL SPRITE(#1,88,16,GRA,GCO) 340 CALL STYR(Y,X,SALT) :: FOR I=1 TO ANTH :: IF RH(I)0 THEN 410 ELSE 410 390 IF GL1=96 AND GL2=97 THEN 410 ELSE Y=0 :: GOTO 410 400 CALL GCHAR(GR+1,GC,GL1) :: CALL GCHAR(GR+1,GC+1,GL2) :: IF GL1=96 AND GL2=97 THEN 410 ELSE Y=0 :: GOTO 410 410 CALL FLYTT(Y,X,GRA,GCO,GR,GC) 420 CALL GCHAR(GR+1,GC,GL1) :: IF GL1=32 OR GL1=96 OR GL1=97 OR GL1=58 THEN 430 ELSE CALL HCHAR(GR+1,GC,32) :: CALL HCHAR(GR+2,GC,GL1) :: GOTO 440 430 CALL GCHAR(GR+1,GC+1,GL2) :: IF GL2=32 OR GL2=96 OR GL2=97 OR GL2=58 THEN 340 ELSE CALL HCHAR(GR+1,GC+1,32) :: CALL HCHAR(GR+2,GC+1,GL2) 440 FOR I=1 TO ANTH :: IF RH(I)=GR+1 AND CH(I)<=GC AND CH(I)+LAN>=GC+1 THEN 450 445 NEXT I 446 GOTO 340 450 FOR K=1 TO LAN :: CALL GCHAR(RH(I)+1,CH(I)+K-1,KP(K)) :: IF KP(K)=58 THEN 340 455 NEXT K 457 PO=PO+200 :: DISPLAY AT(1,16):PO 460 CALL HCHAR(RH(I)+1,CH(I),58,LAN) 470 RH(I)=RH(I)+2 480 CALL GCHAR(RH(I)+1,CH(I),HA) :: IF HA<>32 THEN 500 485 CALL HCHAR(RH(I),CH(I),32,LAN) 487 RH(I)=RH(I)+1 490 FOR T=1 TO LAN :: CALL HCHAR(RH(I),CH(I)+T-1,KP(T)) :: NEXT T :: GOTO 480 500 IF HA=58 THEN CALL MEL(0) :: GOTO 340 505 PO=PO+300 :: DISPLAY AT(1,16):PO 510 IF RH(I)>=HOJ THEN 340 520 FOR T=I TO ANTH :: IF RH(I)+1=RH(T)AND CH(I)=CH(T)THEN 540 530 NEXT T 540 FOR K=1 TO LAN :: CALL GCHAR(RH(T),CH(T)+K-1,KR(K)) :: NEXT K 545 CALL HCHAR(RH(I),CH(I),32,LAN) :: RH(I)=RH(I)+1 550 FOR K=1 TO LAN :: CALL HCHAR(RH(I),CH(I)+K-1,KP(K)) :: NEXT K 560 I=T :: FOR K=1 TO LAN :: KP(K)=KR(K) :: NEXT K 570 GOTO 460 3000 CALL CHAR(40,"00060703030203237F7F0707677F7F000030F0E0E0A0E060F0F2FFFFF0F0F838") 3010 CALL CHAR(44,"060703030002030207277F7F07070F0E30F0E0E000A0E022FFFFF0F0F3FFFF00") 3015 RESTORE 3500 3020 FOR I=1 TO 3 :: CALL PATTERN(#1,40) :: READ L,F1,F2 :: CALL SOUND(L,F1,4,F2,6) 3030 CALL PATTERN(#1,44) :: CALL SOUND(L,F1,4,F2,6) :: NEXT I 3035 CALL MOTION(#1,30,0) 3040 CALL PATTERN(#1,40) :: CALL POSITION(#1,Y,X) :: IF Y>193 THEN 3048 ELSE CALL PATTERN(#1,44) :: GOTO 3040 3048 CALL MOTION(#1,0,0) :: GUBB=GUBB-1 :: IF GUBB=0 THEN 3060 3050 DISPLAY AT(1,2):RPT$("=",GUBB) :: FOR I=2 TO ANT+1 :: CALL POSITION(#I,Y,X) :: CALL LOCATE(#I,Y,1) :: NEXT I 3055 CALL CHAR(40,"00000103030207030707070707030707C0E0F8F8E0E0E0E0F0F0F0F0F0307000") 3056 CALL CHAR(44,"0607030303020703070707070703070030F0E0E0E0E0E0E0F0F0F0F0F0307070") 3057 GOTO 315 3060 RESTORE 3500 :: FOR I=1 TO 17 :: READ L,F1,F2 :: CALL SOUND(L,F1,4,F2,6) :: CALL KEY(0,K,S) :: IF S THEN 3070 3065 NEXT I :: GOTO 3060 3070 CALL CLEAR :: CALL DELSPRITE(ALL) :: GOTO 305 3500 DATA 600,330,165,300,370,165,900,392,165,600,440,110,300,494,110,900,523,110 3510 DATA 600,494,123,300,659,123,900,659,123,600,587,185,600,523,185,600,494,185 3520 DATA 600,440,185,600,392,196,600,370,196,600,330,196,1000,311,123 4000 REM ny skarm 4010 CALL CHAR(40,"0607030302131A1B1F0F07070303070730F0E0E0A0F42CECFCF8F0F0E0607070") 4020 CALL CHAR(44,"06070303020302030F1F3F372703070730F0E0E0A0E02060F8FCFEF6F2607070") 4030 FOR I=1 TO 6 :: CALL PATTERN(#1,40) :: CALL SOUND(100,330,5,659,7) :: CALL PATTERN(#1,44) :: CALL SOUND(300,440,3,880,5) :: NEXT I 4040 SK=SK+1 :: GUBB=GUBB+1 4050 CALL CHAR(40,"00000103030207030707070707030707C0E0F8F8E0E0E0E0F0F0F0F0F0307000") 4060 CALL CHAR(44,"0607030303020703070707070703070030F0E0E0E0E0E0E0F0F0F0F0F0307070") 4070 CALL DELSPRITE(ALL) :: CALL CLEAR :: GOTO 310 4800 RESTORE 4008 :: GOTO 5002 4810 RESTORE 5110 :: GOTO 5002 4820 RESTORE 5210 :: GOTO 5002 4830 RESTORE 5300 :: GOTO 5002 4835 CALL CHARSET :: CALL CLEAR :: CALL SCREEN(12) :: PRINT "YOU COMPLETED ALL":" BURGER TASKS, YOU ARE NOW":" A BURGER MEISTER!" 4836 CALL MEL(1) 4837 CALL MEL(0) :: GOTO 4837 5002 FOR I=1 TO 24 :: READ RAD$ :: DISPLAY AT(I,1):RAD$ :: NEXT I 5004 READ ANT :: FOR I=2 TO ANT+1 :: READ M1(I),M2(I),R,HA,COL :: CALL SPRITE(#I,M1(I),COL,R,1,0,HA) :: NEXT I 5005 READ ANTH,LAN :: FOR I=1 TO ANTH :: READ RH(I),CH(I) :: NEXT I 5006 DISPLAY AT(1,2):RPT$("=",GUBB) :: READ HOJ 5007 READ RADG,COLG,URADG,UCOLG :: RETURN 5008 DATA " "," "," "," @DDDDDA",":`a:::::::::`a: @DDDDDA" 5010 DATA " `a `a :::::::::`a"," `a `a `a" 5020 DATA " `a HIIIIIJ `a `a","::::::::::::`a EEEEEEE `a"," :::`a:::::::: `a" 5030 DATA " `a `a"," EEEEEEE `a `a",":`a:::::::::`a:`a HIIIIIJ `a" 5040 DATA " `a `a :::::::::: `a"," `a `a `a" 5050 DATA " `a BDDDDDC `a `a","::::::::::::`a BDDDDDC `a"," ::::::::::::::::"," "," "," "," " 5055 DATA " ; < ; <" 5060 DATA " ::::::: :::::::" 5070 DATA 4,108,112,17,3,4,116,120,49,-4,7,124,128,81,4,16,120,116,113,3,7 5080 DATA 8,7,4,7,8,7,12,7,16,7,5,21,9,21,13,21,17,21 5090 DATA 20,11,15,81,113 5100 REM skarm 2 5110 DATA " "," "," @DDDDA @DDDDA"," @DDDDA :::::::`a::::::::" 5120 DATA " ::::::::`a `a"," `a `a"," `a `a"," HIIIIJ `a `a EEEEEE" 5130 DATA " ::::::::`a `a::::::::"," `a `a"," `a `a" 5140 DATA " EEEEEE `aHIIIIJ `a bbbbbb","`a::::::::::::::::`a:::::::","`a `a" 5150 DATA "`a `a","`aBDDDDC BDDDDC `a BDDDDC","::::::::: :::::::::::::::::" 5160 DATA "","","","",""," ; < ; < ; <"," :::::: :::::: ::::::" 5170 DATA 5,116,120,17,-4,7,108,112,49,4,4,124,128,81,-5,16,132,132,97,-6,9,136,140,113,3,8 5180 DATA 11,6,4,5,8,5,12,5,16,5,3,14,12,14,16,14,3,24,8,24,12,24,16,24 5190 DATA 20,2,21,9,161 5200 REM skarm 3 5210 DATA "",""," @DDDDDDA @DDDDDDA"," ::::::::::::`a::::::::::::"," `a"," EEEEEEEE `a bbbbbbbb" 5220 DATA " ::::::::::::`a::::::::::::"," `a"," bbbbbbbb `a HIIIIIIJ" 5230 DATA " ::::::::::::`a::::::::::::"," `a"," HIIIIIIJ `a EEEEEEEE" 5240 DATA " ::::::::::::`a::::::::::::"," `a"," BDDDDDDC `a BDDDDDDC" 5250 DATA " ::::::::::::::::::::::::::","","","","","",""," ; < ; <"," :::::::: ::::::::" 5260 DATA 5,80,84,9,3,15,36,36,33,-4,9,136,140,57,2,8,132,132,81,-3,9,108,112,105,4,4 5270 DATA 10,8,3,5,6,5,9,5,12,5,15,5,3,21,6,21,9,21,12,21,15,21 5280 DATA 19,2,16,9,121 5290 REM SKARM 4 5300 DATA "",""," @DDA @DDA @DDA",":`a::::::`a::::::`a::::::`a:"," `a `a `a `a" 5310 DATA " `a HIIJ `a !#!# `a L>L> `a",":`a::::::`a::::::`a::::::`a:" 5320 DATA " `a `a `a `a"," `a bbbb `a L>L> `a !#!# `a",":`a::::::`a::::::`a::::::`a:" 5330 DATA " `a `a `a `a"," `a L>L> `a HIIJ `a KKKK `a",":`a::::::`a::::::`a::::::`a:" 5340 DATA " `a `a `a `a"," `a BDDC `a BDDC `a BDDC `a","::::::::::::::::::::::::::::" 5350 DATA "","","","","",""," ; < ; < ; <"," :::: :::: ::::" 5360 DATA 5,36,36,9,-5,9,80,84,33,6,16,136,140,57,-4,8,124,128,81,4,16,116,120,105,-6,7 5370 DATA 15,4,3,7,6,7,9,7,12,7,15,7,3,15,6,15,9,15,12,15,15,15,3,23,6,23,9,23,12,23,15,23 5380 DATA 19,2,4,9,25 10000 RESTORE 12000 :: FOR I=1 TO 14 :: READ RAD$ :: DISPLAY AT(I,3):RAD$ :: NEXT I 10010 CALL SPRITE(#1,40,16,145,121,0,-5) 10020 CALL HCHAR(21,1,58,32) :: CALL MEL(1) 10030 CALL MEL(0) :: CALL COLOR(5,8,1) :: CALL PATTERN(#1,44) 10040 CALL MEL(0) :: CALL COLOR(5,12,1) :: CALL PATTERN(#1,40) :: CALL KEY(0,K,S) :: IF S THEN 10050 ELSE 10030 10050 CALL DELSPRITE(ALL) :: CALL CLEAR :: RETURN 12000 DATA "","","@DDDDDDDDDDDDDDDDDDDDDDDA","HIIIIIIIIIIIIIIIIIIIIIIIJ" 12010 DATA "E@DAEDEDEDDAE@DAE@DDEDDAE","bDbDbDbDbDbDbDbDbDbbbDbDb","HDDCIDIDIDDCIDIIIDIIIDDCJ" 12020 DATA "KDDAKDKDKDDAKDKKKDDKKDDAK","!D#D!D#D!D#D!D#D!D#!#D!D#","bBDCbBDCbDbDbBDDbBDDbDbDb" 12030 DATA "KKKKKKKKKKKKKKKDKKKKKKKKK","EEEEEEEEEEEEEEBCEEEEEEEEE","L>L>L>L>L>L>L>L>L>L>L>L>L" 12040 DATA "BDDDDDDDDDDDDDDDDDDDDDDDC" 30000 SUB MON(ANT,M1(),M2()) 30005 M=M+1 :: IF M=2 THEN M=0 :: GOTO 30030 30010 FOR L=2 TO ANT+1 :: CALL PATTERN(#L,M1(L)) :: NEXT L 30020 SUBEXIT 30030 FOR L=2 TO ANT+1 :: CALL PATTERN(#L,M2(L)) :: NEXT L 30040 SUBEND 30050 SUB STYR(Y,X,SALT) :: X=0 :: Y=0 30060 CALL KEY(0,K,S) :: IF S=0 THEN SUBEXIT 30065 IF SALT=1 AND K<>104 THEN SALT=0 :: CALL PATTERN(#1,40) 30066 IF K=104 THEN SALT=1 :: CALL PATTERN(#1,136) :: SUBEXIT 30070 IF K=101 THEN Y=-1 :: SUBEXIT 30080 IF K=120 THEN Y=1 :: SUBEXIT 30090 IF K=115 THEN X=-1 :: SUBEXIT 30100 IF K=100 THEN X=1 :: SUBEXIT 30110 CALL SOUND(-1,1760,5) :: SUBEND 30120 SUB KRS(C) :: CALL COINC(ALL,C) :: SUBEND 30130 SUB FLYTT(Y,X,GRA,GCO,GR,GC) :: GRA=GRA+Y*8 :: GCO=GCO+X*8 :: GR=GR+Y :: GC=GC+X :: CALL LOCATE(#1,GRA,GCO) 30140 GU=GU+4 :: IF Y<>0 THEN GB=100 ELSE IF X=-1 THEN GB=40 ELSE IF X=1 THEN GB=88 ELSE GU=0 :: SUBEXIT 30150 CALL PATTERN(#1,GB+(GU-4)) :: IF GU>=8 THEN GU=0 30160 SUBEND 30170 SUB MEL(M) 30180 IF M THEN 30190 ELSE 30200 30190 RESTORE 30210 :: SUBEXIT 30200 READ F1,F2,F3 :: IF F1=1 THEN 30190 ELSE CALL SOUND(-2000,F1,3,F2,9,F3,9) :: SUBEXIT 30210 DATA 262,349,440,277,349,440,294,349,440,277,349,440,262,349,440,277,349,440,294,349,440,277,349,440 30220 DATA 294,392,494,311,392,494,330,392,494,311,392,494,294,392,494,311,392,494,330,392,494,311,392,494 30230 DATA 330,440,523,349,440,523,370,440,523,349,440,523,330,440,523,349,440,523,370,440,523,349,440,523 30240 DATA 262,659,784,277,659,784,294,659,784,277,659,784,262,659,784,277,659,784,294,659,784,277,659,784 30250 DATA 220,523,659,233,523,659,247,523,659,233,523,659,220,523,659,233,523,659,247,523,659,233,523,659,1,1,1 30260 SUBEND