home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Internet 2001 September / MICD2001_09_NR1.iso / Www / @t / dane / Krok.bas < prev    next >
BASIC Source File  |  2001-07-21  |  348b  |  20 lines
  1. OUT &H378, 0
  2. CLS
  3. LOCATE 2, 2: PRINT "podaj szybkoÿå (1-10)"; :
  4. INPUT a: a = a * 5
  5. LOCATE 3, 2
  6. PRINT "Naciÿnij <Q> aby przerwaå"
  7. licz = 1
  8. petla:
  9. GOSUB p:
  10. FOR i = 1 TO (52 - a) * 100: NEXT i
  11. a$ = INKEY$
  12. IF a$ = "Q" OR a$ = "q" THEN OUT &H378, 0: END
  13. GOTO petla
  14. p:
  15. licz = licz * 2
  16. IF licz = 16 THEN licz = 1
  17. OUT &H378, licz
  18. RETURN
  19.  
  20.