home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib34a.dsk / JULY.1988 / HSF.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  25 lines

  1. 10  REM ***********************
  2. 20  REM * HSF.DEMO            *
  3. 30  REM * BY CHRIS MEYER      *
  4. 40  REM * COPYRIGHT(C) 1988   *
  5. 50  REM * MICROSPARC, INC.    *
  6. 60  REM * CONCORD, MA 01742   *
  7. 70  REM ***********************
  8. 80  TEXT : HOME : PRINT  CHR$(21): INVERSE : HTAB 15: PRINT " SURROUND ": PRINT : PRINT : NORMAL : PRINT "SURROUND IS A GAME IN WHICH TWO PLAYERS": PRINT "RIDE CARS AROUND LEAVING TRAILS OF OIL": PRINT "BEHIND THEM. NO CAR CAN TOUCH THE OIL"
  9. 90  PRINT "AND IF HE DOES, HE LOSES. THE OIL IS": PRINT "REPRESENTED BY THE WHITE DOTS ON THE": PRINT "SCREEN. THE CONTROLS ARE AS FOLLOWS:": PRINT : PRINT : PRINT : PRINT "LEFT CAR            RIGHT CAR"
  10. 100  PRINT "--------            ---------": PRINT "X - DOWN            . - DOWN": PRINT "A - LEFT            K - LEFT": PRINT "W - UP              O - UP": PRINT "D - RIGHT           ; - RIGHT": REM 8 DASHES;12 SPACES;9 DASHES;12, 12, 14 AND 11 SPACES
  11. 110  VTAB 22: PRINT "PRESS RETURN TO CONTINUE": VTAB 23: PRINT "OR 'Q' TO QUIT";: GET A$: IF A$ = "Q"  OR A$ = "q"  THEN  HOME : END 
  12. 120  POKE  -16368,0: HOME 
  13. 130  PRINT : PRINT  CHR$(4)"BRUNHSF":X1 = 50:Y1 = 50:X2 = 220:Y2 = 110: HGR : HCOLOR= 3: HPLOT 0,0 TO 279,0 TO 279,159 TO 0,159 TO 0,0:M1 = 1:M2 = 0:M3 =  -1:M4 = 0
  14. 140  HPLOT X1,Y1:X =  PEEK( -16336): HPLOT X2,Y2:X =  PEEK( -16336):X =  PEEK( -16384): IF X = 196  THEN M1 = 1:M2 = 0
  15. 150  IF X = 215  THEN M2 =  -1:M1 = 0
  16. 160  IF X = 193  THEN M2 = 0:M1 =  -1
  17. 170  IF X = 216  THEN M2 = 1:M1 = 0
  18. 180  IF X = 207  THEN M3 = 0:M4 =  -1
  19. 190  IF X = 187  THEN M3 = 1:M4 = 0
  20. 200  IF X = 203  THEN M3 =  -1:M4 = 0
  21. 210  IF X = 174  THEN M3 = 0:M4 = 1
  22. 220 X1 = X1 +M1:Y1 = Y1 +M2:X2 = X2 +M3:Y2 = Y2 +M4: & X1,Y1,A%: IF A%  THEN 250
  23. 230  & X2,Y2,A%: IF   NOT A%  THEN 140
  24. 240  VTAB 22: PRINT "PLAYER ON THE LEFT WINS.": POKE  -16368,0: VTAB 23: PRINT "PRESS RETURN TO CONTINUE";: GET A$: POKE  -16384,128: POKE  -16368,0: RUN 
  25. 250  VTAB 22: PRINT "PLAYER ON THE RIGHT WINS.": POKE  -16368,0: VTAB 23: PRINT "PRESS RETURN TO CONTINUE";: GET A$: POKE  -16384,128: POKE  -16368,0: RUN