Drop coins in columns. Get five coins in one column to start the flow.
Appears on
Gallery
Source Code
1 REM "COIN DROP"
2 GO SUB 3000: BORDER 5: PAPER 6: INK 1
3 LET ow=0
4 LET a$="\a\b": LET b$="\c\d"
10 GO SUB 2500
15 CLS
35 FOR n=0 TO 21: DIM i$(26): PRINT PAPER 6;AT n,3;i$: DIM j$(2): PRINT PAPER 5;AT n,0;j$;AT n,30;j$: NEXT n
40 FOR n=0 TO 192 STEP 32
45 CIRCLE 32+n,77,2: BEEP .05,10: CIRCLE 32+n,109,2: BEEP .05,20: CIRCLE 32+n,141,2: BEEP .05,30
50 NEXT n
55 FOR n=0 TO 160 STEP 32
60 CIRCLE 48+n,93,2: BEEP .05,40: CIRCLE 48+n,125,2: BEEP .05,20
65 NEXT n
70 PAUSE 100
72 DEF FN t()=INT ((65536*PEEK 23674+256*PEEK 23673+PEEK 23672)/50)
74 LET t1=FN t()
75 FOR n=0 TO 21
80 PRINT INK 4;AT n,2;"\f";AT n,29;"\e"
85 IF n>12 THEN PRINT INK 2;AT n,3;"\e\f \e\f \e\f \e\f \e\f \e\f \e\f": REM GRAPHICS EF
90 NEXT n
95 PLOT INK 3;24,159: DRAW INK 3;207,0
100 LET w=0: LET l=0
110 PAUSE 100
120 GO TO 1000
130 PRINT AT x,y;" ";AT x+1,y;" "
135 IF INKEY$="a" AND l>40 THEN LET nw=w-l: GO TO 2000
140 LET k=2*COS (PI*(INT (RND*2)))
150 LET x=x+2
151 IF m=2 AND y<23 AND INKEY$="p" THEN LET y=y+2: GO TO 160
152 IF m=3 AND y>7 AND INKEY$="q" THEN LET y=y-2: GO TO 160
154 IF k>0 AND y=27 THEN LET y=y-k: GO TO 160
155 IF k>0 AND y<26 THEN LET y=y+k
157 IF k<0 AND y=3 THEN LET y=y-k: GO TO 160
158 IF k<0 AND y>4 THEN LET y=y+k
160 PRINT INK 1;AT x,y;a$;AT x+1,y;b$
165 BEEP .05,20
166 FOR n=1 TO 100: NEXT n
170 LET m=m+1
180 IF m=6 THEN GO TO 500
190 GO TO 130
500 IF y=5 THEN LET g=a: LET a=a+1: GO TO 530
505 IF y=9 THEN LET g=b: LET b=b+1: GO TO 530
510 IF y=13 THEN LET g=c: LET c=c+1: GO TO 530
515 IF y=17 THEN LET g=0: GO TO 530
520 IF y=21 THEN LET g=e: LET e=e+1: GO TO 530
525 IF y=25 THEN LET g=f: LET f=f+1
530 IF g=4 THEN GO TO 600
540 FOR n=0 TO 3-g: PRINT INK 1;AT 12+2*n,y;" ";AT 13+2*n,y;" ";AT 14+2*n,y;a$;AT 15+2*n,y;b$
550 PAUSE 20
560 NEXT n
565 IF y=17 THEN PRINT AT 20,17;" ";AT 21,17;" ": BEEP 1,0
568 IF cr<=0 THEN GO TO 2000
570 PRINT INK 2; FLASH 1;AT 1,20;" Press L "
575 IF INKEY$="l" THEN PRINT INK 2; FLASH 1;AT 1,27;"M": GO TO 1100
576 LET t=FN t(): IF t>t1+240 THEN GO TO 1990
578 IF INKEY$="a" AND l>40 THEN LET nw=w-l: GO TO 2000
580 GO TO 575
600 BEEP 1,40
604 FOR n=0 TO 4
606 LET w=w+10: LET nw=w-l: LET cr=nw+60
608 PRINT AT 12+2*n,y;" ";AT 13+2*n,y;" ": BEEP .1,30: PAUSE 20
610 PRINT AT 0,15;" "
612 PRINT BRIGHT 1; FLASH 1;AT 0,15;cr
615 NEXT n
618 IF cr<=0 THEN GO TO 2000
620 IF y=5 THEN LET a=0
621 IF y=9 THEN LET b=0
622 IF y=13 THEN LET c=0
624 IF y=21 THEN LET e=0
625 IF y=25 THEN LET f=0
630 PRINT INK 2; FLASH 1;AT 1,20;" Press L "
635 IF INKEY$="l" THEN PRINT INK 2; FLASH 1;AT 1,27;"M": GO TO 1100
638 IF INKEY$="a" AND l>40 THEN GO TO 2000
640 GO TO 635
1000 LET a=INT (RND*3): FOR n=1 TO a: IF a<>0 THEN PRINT INK 1;AT 23-2*n,5;b$;AT 22-2*n,5;a$: BEEP .05,0: NEXT n
1010 LET b=INT (RND*3): FOR n=1 TO b: IF b<>0 THEN PRINT INK 1;AT 23-2*n,9;b$;AT 22-2*n,9;a$: BEEP .05,10: NEXT n
1020 LET c=INT (RND*5): FOR n=1 TO c: IF c<>0 THEN PRINT INK 1;AT 23-2*n,13;b$;AT 22-2*n,13;a$: BEEP .05,20: NEXT n
1040 LET e=INT (RND*5): FOR n=1 TO e: IF e<>0 THEN PRINT INK 1;AT 23-2*n,21;b$;AT 22-2*n,21;a$: BEEP .05,30: NEXT n
1050 LET f=INT (RND*3): FOR n=1 TO f: IF f<>0 THEN PRINT INK 1;AT 23-2*n,25;b$;AT 22-2*n,25;a$: BEEP .05,40: NEXT n
1060 PRINT INK 2; FLASH 1;AT 1,20;" Press L "
1065 IF INKEY$="l" THEN PRINT INK 2; FLASH 1;AT 1,27;"M": GO TO 1100
1068 IF INKEY$="a" AND l>40 THEN GO TO 2000
1070 GO TO 1065
1100 LET l=l+10: LET nw=w-l: LET cr=nw+60
1101 PRINT AT 0,15;" "
1102 PRINT BRIGHT 1; FLASH 1;AT 0,15;cr
1104 PRINT INK 1;AT 0,3;a$;AT 1,3;b$: PAUSE 6
1105 FOR n=3 TO 27
1110 PRINT AT 0,n;" ";AT 1,n;" "
1115 IF n=27 AND cr<=0 THEN GO TO 2000
1120 IF n=27 THEN GO TO 1060
1130 PRINT INK 1;AT 0,n+1;a$;AT 1,n+1;b$
1140 PAUSE 6
1150 IF INKEY$="m" AND INT (n/2)<>INT ((n-1)/2) THEN LET y=n+1: PRINT AT 1,20;" ": GO TO 1200
1160 NEXT n
1200 LET x=0: LET m=0
1210 PRINT AT x,y;" ";AT x+1,y;" "
1212 PRINT AT 0,15;" "
1215 PRINT BRIGHT 1; FLASH 1;AT 0,15;cr
1220 LET x=x+2: LET m=m+1
1230 PRINT INK 1;AT x,y;a$;AT x+1,y;b$
1240 BEEP .05,20: FOR n=1 TO 50: NEXT n
1250 IF INT ((y+1)/4)=INT ((y+3)/4) THEN GO TO 1300
1260 IF m=2 THEN GO TO 1300
1270 GO TO 1210
1300 PRINT AT x,y;" ";AT x+1,y;" "
1310 PLOT INK 3;24,159: DRAW INK 3;207,0
1320 GO TO 135
1990 PRINT AT 0,15;" ";AT 1,20;" "
1992 PRINT INK 1; FLASH 1;AT 1,8;" ARCADE CLOSING "
1994 FOR n=0 TO 400: NEXT n
2000 PRINT AT 0,15;" ";AT 1,20;" "
2002 LET ow=ow+nw
2003 IF ow>=0 AND INT ((ow-10)/100)=INT (ow/100) THEN PRINT INK 7; PAPER 1; FLASH 1;AT 1,4;" WINNINGS SO FAR #";AT 1,22;ow/100;"0 "
2004 IF ow>=0 AND INT ((ow-10)/100)<>INT (ow/100) THEN PRINT INK 7; PAPER 1; FLASH 1;;AT 1,4;" WINNINGS SO FAR #";AT 1,22;ow/100;".0 "
2006 IF ow<0 AND INT ((ow-10)/100)=INT (ow/100) THEN PRINT INK 7; PAPER 1; FLASH 1;AT 1,7;" LOSS SO FAR #";AT 1,21;-ow/100;"0 "
2007 IF ow<0 AND INT ((ow-10)/100)<>INT (ow/100) THEN PRINT INK 7; PAPER 1; FLASH 1;AT 1,7;" LOSS SO FAR #";AT 1,21;-ow/100;" .0 "
2009 FOR n=0 TO 8
2010 DIM i$(26)
2020 PRINT PAPER 2; BRIGHT 1;AT 13+n,3;i$
2030 NEXT n
2040 PRINT INK 7; PAPER 2;AT 14,4;"You have just spent "; FLASH 1; BRIGHT 1;AT 14,24;l;"p"
2050 PRINT INK 7; PAPER 2;AT 16,7;"and have won "; FLASH 1; BRIGHT 1;AT 16,20;w;"p"
2060 IF nw>=0 THEN PRINT INK 7; PAPER 2;AT 18,5;"Your net gain is "; INK 7; PAPER 0; FLASH 1; BRIGHT 1;AT 18,22;nw;"p"
2070 IF nw<0 THEN PRINT INK 7; PAPER 2;AT 18,5;"Your net loss is "; INK 7; PAPER 0; FLASH 1; BRIGHT 1;AT 18,22;-nw;"p"
2080 PRINT INK 7; PAPER 1; FLASH 1; BRIGHT 1;AT 20,4;" Press P to play again "
2082 IF t>t1+240 AND INKEY$="p" THEN LET t1=FN t(): LET ow=0: GO TO 2100
2085 IF INKEY$="p" THEN GO TO 2100
2090 GO TO 2040
2100 PRINT AT 1,3;" "
2105 FOR n=0 TO 8
2110 DIM i$(26)
2120 PRINT PAPER 6;AT 13+n,3;i$
2130 NEXT n
2140 GO TO 75
2500 DIM i$(704): PRINT AT 0,0;i$
2520 PLOT 26,144: DRAW 0,-32,11*PI/10: BEEP .05,10
2523 PAUSE 30
2524 PLOT 32,112: DRAW 12,32: BEEP .05,10: DRAW 12,-32: BEEP .05,10: PLOT 35,120: DRAW 18,0: BEEP .05,10
2526 PLOT 80,136: DRAW -8,-8,3*PI/2: BEEP .05,10: PLOT 64,120: DRAW 8,8,3*PI/2: BEEP .05,10
2527 PAUSE 30
2528 PLOT 88,112: DRAW 0,32: BEEP .05,10: PLOT 104,112: DRAW 0,32: BEEP .05,10: PLOT 88,128: DRAW 16,0: BEEP .05,10
2529 PAUSE 30
2530 PLOT 116,128: DRAW 8,0: BEEP .05,10
2531 PAUSE 30
2532 PLOT 136,112: DRAW 0,32: BEEP .05,10: DRAW 16,0: BEEP .05,10: PLOT 136,128: DRAW 10,0: BEEP .05,10
2533 PAUSE 30
2534 PLOT 176,112: DRAW -16,0: BEEP .05,10: DRAW 0,32: BEEP .05,10
2535 PAUSE 30
2536 PLOT 194,144: DRAW 0,-32,5*PI/6: BEEP .05,10: DRAW 0,32,5*PI/6: BEEP .05,10
2537 PAUSE 30
2538 PLOT 214,144: DRAW 8,-32: BEEP .05,10: DRAW 8,16: BEEP .05,10: DRAW 8,-16: BEEP .05,10: DRAW 8,23: BEEP .05,10
2540 FOR n=13 TO 21
2545 PRINT INK 2;AT n,3;"\e\f \e\f \e\f \e\f \e\f \e\f \e\f"
2550 PRINT INK 4;AT n,2;"\f";AT n,29;"\e"
2555 NEXT n
2558 LET q=5
2560 FOR n=0 TO 3: PRINT INK 1;AT 12+2*n,q;" ";AT 13+2*n,q;" ";AT 14+2*n,q;a$;AT 15+2*n,q;b$: BEEP .05,q: NEXT n
2561 FOR n=0 TO 2: PRINT INK 1;AT 12+2*n,q;" ";AT 13+2*n,q;" ";AT 14+2*n,q;a$;AT 15+2*n,q;b$: BEEP .05,q: NEXT n
2562 FOR n=0 TO 1: PRINT INK 1;AT 12+2*n,q;" ";AT 13+2*n,q;" ";AT 14+2*n,q;a$;AT 15+2*n,q;b$: BEEP .05,q: NEXT n
2563 PRINT INK 1;AT 14,q;a$;AT 15,q;b$: BEEP .05,q
2565 LET q=q+4: IF q<29 THEN GO TO 2560
2570 IF q=29 THEN PRINT FLASH 1; BRIGHT 1; INK 1;AT 10,2;" PRESS<I> FOR INSTRUCTIONS "
2575 IF INKEY$="i" THEN GO TO 2600
2580 GO TO 2570
2600 CLS
2610 PRINT INVERSE 1;AT 1,10;" CASH-FLOW "
2615 PRINT AT 3,2;"Get five coins in one column to start the flow."
2620 PRINT AT 6,3;"You have six 10p pieces to play with, plus any winnings"
2622 FOR n=0 TO 400: NEXT n
2625 PRINT INK 6; PAPER 2;AT 10,1;" CONTROLS "
2630 PRINT AT 10,13;"L inserts coin";AT 11,13;"M lets it fall"
2635 PRINT AT 13,3;"P and Q nudge the coin to right or left (once only)"
2640 PRINT AT 17,2;"<A> enables you to abandon a game with your winnings after spending 50p"
2642 FOR n=0 TO 400: NEXT n
2644 DIM i$(160): PRINT PAPER 6;AT 3,0;i$
2646 PRINT INK 1; FLASH 1;AT 5,2;" ARCADE CLOSES IN 4 MINUTES "
2648 FOR n=0 TO 400: NEXT n
2650 PRINT AT 5,2;" "; INK 3; FLASH 1;AT 5,7;" PRESS Z TO PLAY "
2660 IF INKEY$="z" THEN RETURN
2670 GO TO 2660
3000 RESTORE : LET n=0
3010 LET u=PEEK 23675+256*PEEK 23676
3020 READ j: IF j=.5 THEN RETURN
3030 POKE u+n,j: LET n=n+1: GO TO 3020
3040 DATA 7,31,63,112,119,228,239,231,224,248,252,14,230,247,247,247,231,224,231,97,112,63,31,7,247,247,231,198,14,252,248,224
3050 DATA 127,127,127,127,127,127,127,127,254,254,254,254,254,254,254,254,.5
9999 SAVE "COIN DROP" LINE 1