Kitchen Chaos

Source Code

    1 LET hi=1500
    2 REM  U S E 'Z' and 'X' T O M O V E  P A N.
    5 DIM v(3,48): DIM z(3)
   10 DIM p(3): LET p(1)=3: LET p(2)=6: LET p(3)=7
   15 DIM i(3): DIM z(3)
   17 DIM s(3)
   20 DIM d(3): DIM e(3)
   25 FOR f=1 TO 3: LET d(f)=8: LET e(f)=3: NEXT f
   30 RESTORE 1000
   40 GO SUB 1000
   55 RESTORE 700
   60 FOR g=1 TO 3: FOR f=1 TO 48
   61 READ v(g,f): NEXT f: NEXT g
   90 LET li=3
   95 LET sc=0
  100 REM variables
  110 LET h=1: LET h1=h
  115 FOR f=1 TO 3: LET z(f)=1: NEXT f
  120 LET c=0
  121 LET y=8
  122 LET x=3
  125 LET s(1)=1
  126 LET i(1)=1
  130 FOR f=2 TO 3: LET s(f)=INT (RND*60+40): NEXT f
  150 GO SUB 900
  170 LET le=13: GO SUB 3010
  190 GO TO 500
  500 REM loop
  501 LET c=c+1
  510 FOR n=1 TO 3
  511 IF c=s(n) THEN LET i(n)=1
  513 IF NOT i(n) THEN GO TO 537
  515 LET y=v(n,z(n)): LET x=v(n,z(n)+1): LET z(n)=z(n)+2
  520 PRINT INK p(n);AT y-1,x;CHR$ (146+2*n);AT y,x;CHR$ (147+2*n)
  523 PRINT AT d(n)-1,e(n);" ";AT d(n),e(n);" ": LET d(n)=y: LET e(n)=x
  531 IF y=17 AND ATTR (y+1,x)<>7 THEN FOR f=1 TO 10: PRINT INK RND*7;AT y+1,x;"\m\n";AT y,x;"  ";AT y-1,x;"  ": BEEP .001,50: NEXT f: GO TO 600
  535 IF z(n)=49 THEN LET z(n)=1: GO SUB 800: PRINT INK 4;AT 9,28;"  ";AT 10,28;"  ";AT 11,28;"\m\n": BEEP .1,-7: BEEP .01,20: PRINT AT 11,28;"  "
  538 IF INKEY$="" THEN GO TO 557
  539 PRINT INK 4;AT 18,h;"    "
  540 IF INKEY$="x" AND h<21 THEN LET h=h+10: BEEP .05,0
  545 IF INKEY$="z" AND h>1 THEN LET h=h-10: BEEP .05,-10
  557 PRINT INK 7;AT 18,h;"\a\b\c\d"
  560 NEXT n
  590 GO TO 500
  600 REM endgame
  610 LET li=li-1: PRINT AT 20,26;li: IF li=0 THEN GO TO 660
  615 FOR f=1 TO 3: LET z(f)=1: LET i(f)=0: NEXT f
  620 FOR f=1 TO 10: BEEP .01,f: NEXT f
  630 FOR f=60 TO 10 STEP -5: BEEP .01,f: NEXT f
  650 GO TO 100
  660 REM The End
  663 IF sc>hi THEN LET hi=sc
  665 FOR f=1 TO 3: LET z(f)=1: LET i(f)=0: NEXT f
  670 GO SUB 3000
  680 PAPER 0: BORDER 0: INK 7: CLS 
  690 FOR f=1 TO 3: PRINT : NEXT f
  692 PRINT "         K I T C H E N"
  693 PRINT 
  694 PRINT "           C H A O S"
  695 PRINT : PRINT TAB 8; INK 2; BRIGHT 1;"YOUR SCORE: ";SC
  696 PRINT INK 6;AT 16,5;"\e";AT 17,5;"\f"; INK 7;AT 16,24;"\i";AT 17,24;"\j"
  697 PRINT INK 6; PAPER 1; FLASH 1;AT 21,6;"PRESS SPACE TO PLAY"
  698 IF INKEY$=" " THEN BEEP .2,5: GO TO 90
  699 GO TO 698
  700 REM Data
  705 REM for flight
  706 REM __________
  710 DATA 8,3,9,3,11,3,13,3,15,3,17,3,15,4,13,5,11,6,10,8,11,10,13,11,15,12,17,13,15,14,13,16,12,18,13,20,15,22,17,23,15,24,13,25,11,27,10,29
  720 DATA 8,3,9,3,11,3,13,3,15,3,17,3,15,4,13,5,11,6,10,8,11,10,13,11,15,12,17,13,15,14,13,16,12,18,13,20,15,22,17,23,15,24,13,25,11,27,10,29
  730 DATA 8,3,9,3,11,3,13,3,15,3,17,3,15,4,13,5,11,6,10,8,11,10,13,11,15,12,17,13,15,14,13,16,12,18,13,20,15,22,17,23,15,24,13,25,11,27,10,29
  800 REM score
  810 LET sc=sc+(100*n): PRINT INK 7; BRIGHT 1;AT 20,11;sc
  820 IF n>1 THEN LET c=0: LET i(n)=0: LET s(n)=INT (RND*10)+1
  830 RETURN 
  900 REM screen
  908 PRINT INK 5;AT 7,12;"\s \s \s";AT 8,12;"\t \t \t"
  910 PAPER 0: BORDER 0: INK 4: CLS 
  920 PLOT 0,175: DRAW 60,0: DRAW 0,-48: DRAW -60,0: DRAW 0,48
  925 PLOT 8,168: DRAW 44,0: DRAW 0,-32: DRAW -44,0: DRAW 0,32
  927 PLOT 30,168: DRAW 0,-32
  928 PLOT 65,127: DRAW 70,0: DRAW 0,3: DRAW -70,0: DRAW 0,-3
  929 PLOT 61,175: DRAW 188,0
  930 PRINT AT 3,3;"o";AT 3,4;"o"
  935 PRINT INK 2; BRIGHT 1;AT 0,17;"\k"; INK 6;AT 1,17;"\l"
  940 FOR f=19 TO 21: PRINT INK 1;AT f,0;"\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::": NEXT f
  950 PRINT INK 7;AT 7,27;"\..\..\..\..\..";AT 8,27;"\..\..\::\::\::": FOR f=9 TO 13: PRINT INK 7;AT f,31;"\::": NEXT f: FOR f=14 TO 18: PRINT INK 7;AT f,27;"\::\::\::\::\::": NEXT f
  953 PRINT INK 3;AT 14,26;"\ ."
  955 PRINT INK 6;AT 13,27;"\a"; INK 5;AT 13,28;"\b\c\d"
  960 PRINT INK 7;AT 20,5;"SCORE:";sc
  970 PRINT INK 7;AT 20,20;"LIVES:";li
  973 CIRCLE INK 5;190,140,10: CIRCLE INK 5;190,140,12: INK 7: PLOT 190,140: DRAW 5,5: PLOT 190,140: DRAW -5,7
  975 PRINT INK 5;AT 4,9;"\o";AT 5,9;"\p"; INK 2;AT 4,10;"\q";AT 5,10;"\r"; INK 7;AT 4,11;"\o";AT 5,11;"\p"; INK 3;AT 4,12;"\q\q\o";AT 5,12;"\r\r\p"
  976 PRINT INK 7;AT 5,15;"\u"
  983 PLOT 210,165: DRAW 40,0: DRAW 1,-20: DRAW -3,-10: DRAW 3,-3: DRAW -37,0: DRAW -3,3: DRAW 1,20: DRAW -1,10
  985 PRINT INK 6;AT 2,28;"HI:"; INK 2;AT 3,27;hi
  990 RETURN 
 1000 REM udg
 1010 FOR g=USR "a" TO USR "u"+7: READ a: POKE g,a: NEXT g: RETURN 
 1020 DATA 0,128,255,254,255,128,0,a,a,63,255,45,255,7,3,1,0,255,a,a,a,a,128,255,0,255,250,244,232,a,24,240
 1030 DATA 24,60,124,a,108,111,a,124,112,124,122,58,a,28,34,99
 1040 DATA 0,54,127,255,231,215,74,195,231,255,254,116,36,66,195,0
 1050 DATA 252,244,a,122,74,202,234,122,29,125,61,a,a,a,a,127
 1060 DATA 24,a,60,36,60,36,60,126,251,253,a,a,a,a,122,60
 1070 DATA 8,0,26,25,8,35,51,1,0,134,106,96,74,24,32,0
 1080 DATA 254,130,146,186,146,162,170,178,162,186,146,186,162,186,130,124
 1090 DATA 254,a,a,a,a,a,a,a,a,a,a,a,a,a,a,124
 1100 DATA 24,36,24,a,a,a,a,a,a,52,122,a,a,a,52,24
 1110 DATA 60,36,a,24,36,60,a,a
 3000 REM tune
 3005 LET le=32
 3010 RESTORE 3000
 3020 FOR f=1 TO le: READ note: READ pause
 3030 BEEP .1*pause,note: PAUSE pause
 3035 BEEP .01,note
 3040 NEXT f
 3045 FOR f=60 TO 1 STEP -3: BEEP .01,f: NEXT f
 3050 RETURN 
 3060 DATA 8,2,5,2,8,4,8,2,5,2,8,4,10,2,8,2,6,2,5,2,3,2,5,2,6,2,5,1,6,1,8,2,1,2,1,1,1,1,1,2,1,1,3,1,5,1,6,1,8,4,8,2,3,2,3,2,6,2,5,2,3,2,1,8
 9000 PRINT #3;"\a\b\c\dabcd\ee\ff\gg\h \ii\jj\kk\ll\mm\nn\oo\pp\qq\rr\ss\tt\uu"
 9010 FOR n=144 TO 164: PRINT #3;CHR$ n,CHR$ (n-79): NEXT n
 9998 STOP 
 9999 SAVE "Kitchen" LINE 1