10 ' Jack in the Box - DEMO II 20 ' (C) 1991 Sean McManus - 24th September 30 ' 40 ON BREAK GOSUB 120:MODE 0:SYMBOL 255,48,254,22,60,116,210,254,16:PEN 13:LOCATE 20,25:PAPER 0:PRINT CHR$(255);:INK 13,23 50 x=320:y=300:BORDER 0:INK 0,0:INK 8,20:LOCATE 1,9:PEN 8:PAPER 0:PRINT"Please":PRINT" Wait":FOR g=1 TO 5:INK g,0:NEXT:PLOT 50,100,8:DRAWR 50,0:DRAWR 0,10:DRAWR -20,70:DRAWR -10,0:DRAWR -20,-70:DRAWR 0,-10:FOR g=1 TO 6:PLOT 74,130+g*6:DRAWR 4,0 60 NEXT:PLOT 105,162:DRAWR -30,-42,14:DRAWR -30,42,15:INK 15,20,0:INK 14,0,20:SPEED INK 15,15:FOR loop=5 TO 1 STEP -1:x=320:y=440-loop*50:a=loop*14:PLOT 270,100,loop:DRAW 270+50*SIN(280+a),100+50*COS(280+a):PLOT 380,100,loop 70 DRAW 380+50*SIN(90-a),100+50*COS(90-a):PLOT x,y:DRAWR -5,-5:DRAWR -20,-50:DRAWR 5,-5:DRAWR 51,0:DRAWR 5,5:DRAWR -20,50:DRAWR -5,5:DEG:FOR g=0 TO 2:FOR h=1 TO 360 STEP 40:PLOT x+5*SIN(h)+5,y+5*COS(h)-g*20:DRAW x+8*SIN(h)+5,y+8*COS(h)-g*20:NEXT h,g 80 PLOT x+30,y-60:FOR g=90 TO 270 STEP 5:DRAW x+35*SIN(g)+5,y+25*COS(g)-90:NEXT:DRAW x-22,y-60:PLOT x-15,y-120:DRAWR 40,0:FOR g=1 TO 2:PLOT x-45+g*20,y-140:DRAWR 10,20:DRAWR 10,-20:NEXT:DRAWR 10,20:DRAWR 10,-20:DRAWR -60,0 90 PLOT x-30,y-140:DRAWR -10,10:DRAWR -50,30:DRAWR -20,-15:DRAWR 70,-30:DRAWR 10,-10:DRAWR -10,-50:DRAWR 10,-10:DRAWR 70,0:DRAWR 10,10:DRAWR -10,50:DRAWR 10,10:DRAWR 70,30:DRAWR -20,15:DRAWR -70,-40 100 FOR g=1 TO 360 STEP 16:PLOT x+10*SIN(g)+120,y-100+10*COS(g):PLOT x+10*SIN(g)-110,y-100+10*COS(g):NEXT g,loop:FOR g=1 TO 100 STEP 2:PLOT 0,g:DRAW 270,g,0:DRAWR 110,0,7:DRAWR 150,0,0:NEXT:INK 7,24:WINDOW #1,1,6,1,25:PAPER 0:CLS #1:LOCATE 1,22:PEN 10 110 PRINT"Press":PRINT"Any Key":WHILE 1:INK 10,6:CALL &BB06:INK 10,0:FOR g=5 TO 1 STEP -1:INK g,26:FOR h=1 TO 120-g*15:NEXT h:INK g,0:NEXT:INK 1,26:CALL &BB06:FOR g=1 TO 5:INK g,26:FOR h=1 TO 80:NEXT h:INK g,0:NEXT:WEND 120 CALL &BC02:CALL &BB06:MODE 2:PEN 1:LIST