home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #12 / Commodore_Disk_User_Vol.4_12_1991_-.d64 / complex64_2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  15KB  |  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.