home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 03 Demos and Info / CEE1B.BIN / ascii-to-basic (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-02-12  |  314 b   |  10 lines
  1. 59801 INPUT"[147]SEQ. FILE NAME";B$:OPEN3,8,3,"0:"+B$+",S,R"
  2. 59802 PRINT"[147]":POKE152,1:IFSTTHEN59809
  3. 59803 GET#3,A$:IFASC(A$)=10THEN59803
  4. 59804 SA$=SA$+A$
  5. 59805 IFA$=CHR$(13)THENPRINTSA$"";:SA$="":GOTO59807
  6. 59806 GOTO59802
  7. 59807 FORL=1TO9:POKE630+L,ASC(MID$(A$+"G[207]59802"+A$,L,1)):NEXT:POKE198,9:END
  8. 59809 PRINT:FORA=59801TO59810:PRINTA:NEXT:CLOSE3:PRINT:PRINT"CONVERSION DONE"
  9. 59810 PRINTCHR$(19):FORB=631TO640:POKEB,13:NEXT:POKE198,10:END
  10.