Extended Basic Graphics Reverse

Scott Gunn

16 Westwood Drive

Fort Madison, Iowa 52627

230 play "t" + str$(n) + ";" + str$( int((n -10))

260 IF abs(x - a) < 6 then 270 else 340 270 pcls 280 pmode 4, 1

: SCREEN 1, 1 290 FOR M-l TO 30 300 PLAY "T255;g" 310 CIRCLE (A, 80), M*2 320 NEXT M

: pmode 3, 1 : screen 1, 0 330 goto 360 340 next l 350 goto 390 360 next e 370 print "you won"

380 play "T10; d; f; e; a; C; f; b; C" 390 rem end of game 400 print "you popped" d "balloons" 410 print "game over" 420 end

Was this article helpful?

0 0

Post a comment