Catch the dropped eggs in your frying pan.
Content
Image Gallery
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