home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D12.D64 / complex64_2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  14.2 KB  |  10 lines
  1. 1 REM COMPLEX64/2.1(B)     1990  D.H.F.
  2. 2 REM
  3. 3 I=PEEK(186):OPEN15,(I),15
  4. 4 OPEN2,(I),2,"COMPLEX64.PDEF,S,R":INPUT#15,EN,EM$:IFEN=0GOTO6
  5. 5 CLOSE15:PRINT"[147][158]"EM$:NEW
  6. 6 FORJ=0TO28:GET#2,A$:IFA$=""THENA$=CHR$(0)
  7. 7 POKE2303+J,ASC(A$):NEXT
  8. 8 INPUT#15,EN,EM$:CLOSE2:IFEN<>0GOTO5
  9. 9 CLOSE15:SYS2292
  10.