home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib19a.dsk / APRIL.1984 / SPIN.BALL.bas < prev    next >
BASIC Source File  |  2023-02-26  |  3KB  |  44 lines
  1. 1  REM   **********************
  2. 2  REM   *     SPIN BALL      *
  3. 3  REM   *  BY JENNY SCHMIDT  *
  4. 4  REM   * COPYRIGHT (C) 1984 *
  5. 5  REM   * BY MICROSPARC, INC *
  6. 6  REM   * LINCOLN, MA. 01773 *
  7. 7  REM   **********************
  8. 9 D$ =  CHR$(4)
  9. 10  IF  PEEK(104) < >128  THEN  POKE 103,1: POKE 104,128: POKE 32768,0: PRINT D$"RUN SPIN.BALL"
  10. 20  PRINT D$"BLOAD SHAPE1.OBJ,A$80A"
  11. 30  PRINT D$"BLOAD SPIN.OBJ,A$C37"
  12. 40  PRINT D$"BLOAD SPIN.SHAPES,A$6000"
  13. 50  DIM XI(18),YI(18)
  14. 60  TEXT : HOME : VTAB 22: PRINT "** COPYRIGHT 1984 BY MICROSPARC, INC. **"
  15. 70  DATA  1,1,1,1,1,0,0,-1,-1,-1,-1,0,0,1,1,1,1,1
  16. 80  DATA  0,0,0,1,1,1,1,1,0,0,-1,-1,-1,-1,-1,0,0,0
  17. 90  DATA  L,L,A,B," ",N,I,P,S
  18. 100  FOR W = 1 TO 18: READ XI(W): NEXT W: FOR W = 1 TO 18: READ YI(W): NEXT W
  19. 110 S = 25
  20. 120  FOR W = 1 TO 9
  21. 130  READ A$
  22. 140 I = 1
  23. 150 X = 1:Y = 10
  24. 160  IF  PEEK( -16384) >127  THEN  POKE  -16368,0: PRINT : GOTO 330
  25. 170  HTAB X: VTAB Y: PRINT " "
  26. 180 X = X +XI(I):Y = Y +YI(I):I = I +1: IF I >18  THEN I = 1
  27. 190  IF X = S  THEN Y = 10: HTAB X: VTAB Y: PRINT A$;: GOTO 210
  28. 200  HTAB X: VTAB Y: PRINT A$;: GOTO 160
  29. 210 S = S -1: NEXT W
  30. 220  VTAB 13: HTAB 20: PRINT "BY": VTAB 15: HTAB 15: PRINT "JENNY SCHMIDT"
  31. 230  PRINT : TEXT : INPUT "DO YOU NEED INSTRUCTIONS? ";A$: IF  LEFT$(A$,1) = "N"  THEN 330
  32. 240  HOME 
  33. 250  PRINT "SPIN BALL IS A FAST PACED TWO PLAYER    GAME. THE OBJECT IS TO HIT THE BALLS    THAT FLY ACROSS THE SCREEN. YOU RECEIVE THE ACCUMULATED POINTS WHEN YOUR        OPPONENT MISSES."
  34. 260  PRINT : PRINT "POINTS ARE ACCUMULATED WHEN ANY OF THE  BALLS HIT THE SPINNER IN THE CENTER OF  THE SCREEN OR ONE OF THE FOUR           TRANSPORTERS. ONE HUNDRED POINTS ARE    AWARDED FOR HITTING THE SPINNER AND 25  FOR HITTING A TRANSPORTER."
  35. 270  PRINT : PRINT "THE SPINNER WILL SEND THE BALL OFF IN A RANDOM DIRECTION AND PATH. FOUR PATHS   ARE AVAILABLE: LOOP-THE-LOOP, STRAIGHT, SINE WAVE, OR STAGGER. THE TRANSPORTERS WILL MOVE THE BALL FROM ONE TRANSPORTER SIGHT TO ANOTHER.
  36. 280  PRINT : INPUT "HIT THE RETURN KEY FOR MORE";A$: HOME 
  37. 290  PRINT "GAME PADDLE 0 CONTROLS THE LEFT PLAYER  AND PADDLE 1 CONTROLS THE RIGHT PLAYER."
  38. 300  PRINT : PRINT "THE ARROW AT THE BOTTOM OF THE SCREEN ISTHE TIMER. THE GAME IS OVER WHEN THE    ARROW MOVES PAST ZERO. THE GAME MAY BE  RESTARTED BY PRESSING ANY KEY OTHER THAN'ESC'. THE ESCAPE KEY WILL END THE GAME AND RETURN TO APPLESOFT."
  39. 310  PRINT : INPUT "HIT THE RETURN KEY TO BEGIN";A$
  40. 320  POKE  -16368,0
  41. 330  HOME 
  42. 340  CALL 3127
  43. 350  TEXT : HOME : PRINT : VTAB 12: PRINT "DO YOU WANT TO PLAY AGAIN? (Y/N) ";: GET B$: PRINT B$: IF B$ = "Y"  THEN 320
  44. 360  HOME : END