home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 January / 64er_Magazin_93-01_1993_Markt__Technik_de.d64 / disk-view (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  410b  |  18 lines
  1. 10 print"[147]auf der diskette sind folgende files:"
  2. 20 print"track     sektor"
  3. 30 open2,8,15:open1,8,2,"#"
  4. 40 t=18:s=1
  5. 50 print#2,"u1 2 0";t;s
  6. 60 get#1,t$,s$
  7. 70 for j = 1 to 8
  8. 80 t=asc(t$+chr$(0)):s=asc(s$+chr$(0))
  9. 90 get#1,f$:ft=asc(f$+chr$(0))
  10. 100 if (ft=130) or (ft=194) then 130
  11. 110 for i = 1 to 31:get#1,w$:next
  12. 120 goto160
  13. 130 get#1,a$,b$:printasc(a$+chr$(0)),asc(b$+chr$(0)),
  14. 140 for i = 1 to 16:get#1,a$:print a$;:next:print
  15. 150 for i = 19 to 31:get#1,w$:next
  16. 160 next:ift<>0then50
  17. 170 close1:close2
  18.