home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 25 / 64er_Magazin_Sonderheft_25_19xx_Markt__Technik_de.d64 / switch u-o.bas (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  303 b   |  11 lines
  1. 0 rem
  2. 136 open1,8,15,"ui"
  3. 232 rem *** spurschaltprogramme ***
  4. 236 print#1,"m-w"chr$(6)chr$(0)chr$(2)chr$(1)chr$(0)
  5. 238 print#1,"m-w"chr$(0)chr$(0)chr$(1)chr$(128)
  6. 240 print#1,"m-r"chr$(0)chr$(0)chr$(1):get#1,a$:ifasc(a$+chr$(0))>127then240
  7. 244 print#1,"m-w"chr$(6)chr$(0)chr$(2)chr$(36)chr$(0)
  8. 246 print#1,"m-w"chr$(0)chr$(0)chr$(1)chr$(176)
  9. 248 print#1,"m-r"chr$(0)chr$(0)chr$(1):get#1,a$:ifasc(a$+chr$(0))>127then248
  10. 250 close1:end
  11.