A revision on my earlier code
It does not work, but what do you want for 10 minutes
Dim $H,$W,$CH,$,$P,$O,$R,$C,$F
;Set Box size
$H = 100
$W = 40
;Pin Characters
$CH = CHR(233),CHR(234),CHR(174),CHR(175),CHR(239)
;Set # of Pins, H*W - 5 for collection Tray
$ = Srnd(@MSECS)
While $P <= 100
$P = Rnd($H * ($W - 5))
Loop
;set up screen
CLS
$ = SetOption("ASCII","ON")
$ = SetConsole("Maximize")
;Set Location of Pins
While $ < $P
$O = Rnd(4)
$R = Rnd($W)
$C = Rnd($H-5)
At($R,$C) $CH[$O]
$ + $ + 1
LOOP
;Set Plunger Force
AT($H+2) "Enter Force [1-99]:"
Gets = $F
;Write functions to handle ball movement and control.
_________________________
Today is the tomorrow you worried about yesterday.
