home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 83 / 64er_Magazin_Sonderheft_83_19xx_Markt__Technik_de_Side_A.d64 / subdir.1581 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  652b  |  22 lines
  1. 5 rem subdirectory/benutzerbereich einrichten floppy 1581
  2. 10 print"[147]"
  3. 20 poke19,64:input"[204]aufwerksnummer:";dv:poke21,0:print
  4. 30 poke19,64:input"[196]iskettenname  :";dn$:poke19,0:print
  5. 32 poke19,64:input"[201][196]-[203]ennung     :";id$:poke19,0:print
  6. 40 print"3,5-[218]oll-[196]isk einlegen, dann <[210][197][212][213][210][206]>!"
  7. 50 gett$:ift$<>chr$(13)then50
  8. 60 open1,dv,15,"n:"+dn$+","+id$:close1
  9. 70 poke19,64:input"[213]nterzeichnisname:";uv$:poke19,0:print
  10. 72 poke19,64:input"[193]nfangsspur      :";ap:poke19,0:print
  11. 75 poke19,64:input"[193]nfangssektor    :";as:poke19,0:print
  12. 80 poke19,64:input"[215]ieviele [211]ektoren:";gs:poke19,0:print
  13. 82 hi=int(gs/256):lo=gs-hi*256
  14. 90 open1,dv,15
  15. 100 print#1,"/0:"+uv$+","+chr$(ap)+chr$(as)+chr$(lo)+chr$(hi)+",c"
  16. 110 close1
  17. 120 open1,dv,15
  18. 130 print#1,"/0:"+uv$
  19. 150 print#1,"new:":close1
  20. 160 open1,dv,15
  21. 170 print#1,"/":close1
  22.