home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STRAIGHT / STRAIGHT2.MSA / BASIC_P_Q_POKE.LST < prev    next >
Encoding:
File List  |  1996-09-17  |  335 b   |  19 lines
  1. PRINT " POKE Beispiel"  ! 1/92
  2. '
  3. PRINT
  4. PRINT " Hier passiert nicht viel: POKE schreibt ein Byte an eine Adresse im Speicher."
  5. clx(flg%)
  6. DELAY 3
  7. PRINT
  8. PRINT
  9. LIST ""
  10. REPEAT
  11. UNTIL MOUSEK OR LEN(INKEY$)
  12. PROCEDURE clx(flg%)
  13.   IF flg%=0
  14.     POKE BASEPAGE+7443,ASC("H")
  15.   ELSE
  16.     POKE BASEPAGE+7443,ASC("E")
  17.   ENDIF
  18. RETURN
  19.