home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / gwbasic / spiele / tankwars.bas < prev    next >
Encoding:
BASIC Source File  |  1991-05-15  |  618 b   |  24 lines
  1. 5 KEY OFF
  2. 10 SCREEN 2:SCREEN 1
  3. 20 PRINT"Enter angle: (0 to 90)
  4. 30 INPUT A
  5. 40 PRINT:PRINT:PRINT"Enter power: (0 to 100)
  6. 50 INPUT B
  7. 55 B=B/4
  8. 56 PRINT:PRINT:PRINT"Enter wind (to right): (-100 to 100)"
  9. 57 INPUT W
  10. 58 W=W/20
  11. 60 SCREEN 2:SCREEN 1
  12. 70 FOR C=1 TO 5 STEP .5:CIRCLE (319,195),C,1,,,5/5:NEXT C
  13. 80 FOR C=1 TO 5:LINE (0,195+C)-(320,195+C),2:NEXT C
  14. 90 X=319:Y=195:FY=0-((A/90)*B):FX=0-(((90-A)/90)*B)
  15. 100 LINE (X,Y)-(X,Y)
  16. 110 X=X+FX:Y=Y+FY
  17. 120 FY=FY+1:FX=FX+W
  18. 130 LINE -(X,Y)
  19. 140 IF X<1 THEN BEEP:END
  20. 150 IF X>320 THEN BEEP:END
  21. 160 IF Y<1 THEN BEEP:END
  22. 170 IF Y>195 THEN BEEP:END
  23. 180 GOTO 110
  24.