10 REM PINBL.ECB
   15 REM ...PINBALL VER. 1 ...by Mark S. Pilger
   20 REM ...From MECC H5R3011 1-12-78
   30 PRINT "&K": REM ...Revised 3-6-81  R.E.H.
   40 PRINT TAB(15);"##################"
   50 PRINT TAB(15);"###            ###"
   60 PRINT TAB(15);"###            ###"
   70 PRINT TAB(15);"###   P  I  N  ###"
   80 PRINT TAB(15);"###            ###"
   90 PRINT TAB(15);"###   B A L L  ###"
  100 PRINT TAB(15);"###            ###"
  110 PRINT TAB(15);"###            ###"
  120 PRINT TAB(15);"##################": PRINT
  130 GOSUB 660
  140 LET A=1: REM ...FOR A=1 TO C
  150 PRINT "BALL (";A;")"
  160 LET B=B+1
  170 LET D=D+1
  180 LET E=E+F
  190 PRINT E;
  200 LET F=INT(RND(0)*10)+1
  210 LET G=INT(RND(0)*25)+1
  220 IF D=17 THEN 290
  230 IF G=6 OR G=13 THEN 250
  240 GOTO 170
  250 PRINT "*** BONUS ***"
  260 LET F=F+500
  270 LET H=H+1
  280 GOTO 170
  290 LET D=0
  300 PRINT : PRINT "WHICH FLIPPER ";
  310 INPUT (1,0)" ---=>",J
  320 LET I=INT(RND(0)*3)+1
  330 IF J<1 OR J>3 THEN 420
  340 IF J=I THEN 360
  350 GOTO 380
  360 LET D=0
  370 GOTO 170
  380 PRINT "*** DRAIN ***"
  390 IF B=C THEN 440
  400 LET A=A+1: IF A<C+1 THEN 150: REM ...NEXT A
  410 LET A=1
  420 PRINT : PRINT "WHICH FLIPPER (INPUT 1 THROUGH 5)";
  430 GOTO 310
  440 LET A=0,C=0
  450 LET H=C
  460 IF C=1 THEN 480
  470 GOTO 500
  480 PRINT " 1 BONUS BAL"
  490 GOTO 140
  500 PRINT C;" BONUS BALLS"
  510 IF C=0 THEN 530
  520 GOTO 140
  530 IF E>=2500 THEN 580
  540 PRINT "WELL YOU DIDN'T WIN A GAME BUT YOU WERE"
  550 LET K=2500-E
  560 PRINT "ONLY ";K;" POINTS AWAY."
  570 GOTO 600
  580 PRINT "HOW LUCKY CAN YOU GET!!&J"
  590 PRINT TAB(15);"<*>  Y O U    W O N  <*>&J"
  600 PRINT "WOULD YOU LIKE TO PLAY AGAIN ---=>";
  610 INPUT (1,0)A$
  620 IF A$(1,1)="Y" THEN 640
  630 GOTO 770
  640 LET C=3
  650 GOTO 140
  660 PRINT "THIS IS THE GAME OF PINBALL. THE OBJECT"
  670 PRINT "IS TO GET OVER 2500 POINTS BY THE END OF THE"
  680 PRINT "GAME. YOU CAN KEEP THE BALL IN PLAY BY HITTING"
  690 PRINT "IT WITH THE FLIPPERS. WHENEVER I PRINT"
  700 PRINT "'WHICH FLIPPER?' YOU RESPOND BY TYPING IN A 1 OR "
  710 PRINT "A 2. DO YOU UNDERSTAND ---=>";
  720 INPUT (1,0)B$: LET B$=B$+"Y": PRINT
  730 IF B$(1,1)="Y" THEN 750
  740 PRINT "SO WHAT.    HERE WE GO."
  750 LET C=3
  760 RETURN
  770 PRINT TAB(15);"<+>  Pinball table closed  <+>"
  780 END