home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 14 / 014.d81 / xdos.type (.txt) < prev   
Commodore BASIC  |  2022-08-26  |  174b  |  11 lines
  1. 10 rem xdos:type
  2. 20 fori=1to10
  3. 30 ifar$(i)=""goto100
  4. 40 open1,8,2,ar$(i)
  5. 50 ifar$(2)<>""thenprintar$(i):print
  6. 60 ifst<>0thenprint"?error":goto90
  7. 70 get#1,a$:if64andstgoto90
  8. 80 printa$;:goto70
  9. 90 close1:print:next
  10. 100 close1:end
  11.