home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / Plus4 / FILE-TRANSLATOR < prev    next >
Text File  |  2019-04-13  |  405b  |  18 lines
  1. 60100 directory:input" filename ";n$
  2. 60110 open1,8,8,n$
  3. 60120 printchr$(147)
  4. 60130 print
  5. 60140 print
  6. 60150 get#1,x$:x=asc(x$)
  7. 60160 ifx>47andx<58thenf=1
  8. 60170 iff=1thenprintx$;
  9. 60180 ifx=200thenprint"close1":goto60220
  10. 60190 ifx<>13goto60150
  11. 60200 ifst=0thenprint"poke151,1:goto60120"
  12. 60210 ifst<>0thenprint"close 1"
  13. 60220 printchr$(19)
  14. 60230 poke239,3
  15. 60240 fori=1319to1321:pokei,13:next
  16. 60250 end
  17. ready.
  18.