home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 November / 64er_Magazin_91-11_1991_Markt__Technik_de_Side_A.d64 / diskschreib. (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  546 b   |  21 lines
  1. 1 print"[147][158]          diskschreibschuetzer        [134]":poke53280,0:poke53281,0
  2. 2 print    "         von erika schulz"
  3. 3 print"[152]    disksichern oder entsichern???"
  4. 4 print  " >s< sichern   oder  >e< entsichern":print"[158][169]>q< quit[223]"
  5. 5 print"           [154]taste druecken[134]"
  6. 6 get a$:if a$=""then 6
  7. 7 if a$="s" then a$="[203]" :goto 11
  8. 8 if a$="e" then a$="a":goto 11
  9. 9 if a$="q" then goto 20
  10. 10 goto 6
  11. 11 open 1,8,15,"i"
  12. 12 open 2,8,2,"#"
  13. 13 print#1,"m-w"chr$(1)chr$(1)chr$(1)chr$(65)
  14. 14 print#1,"u1 2 0 18 0"
  15. 15 print#1,"b-p 2 2"
  16. 16 print#2,a$;
  17. 17 print#1,"u2 2 0 18 0"
  18. 18 print#1,"i"
  19. 19 close2:close1:print"o.k.":wait198,1:run
  20. 20 end
  21.