home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #12 / Commodore_Disk_User_Vol.4_12_1991_-.d64 / complex64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  634b  |  17 lines
  1. 1 rem *********************************
  2. 2 rem **                             **
  3. 3 rem **    complex64 / main prog    **
  4. 4 rem **    =====================    **
  5. 5 rem **                             **
  6. 6 rem **    1990            d.h.f    **
  7. 7 rem **                             **
  8. 8 rem *********************************
  9. 9 poke53280,0:poke53281,0
  10. 10 i=peek(186):print"[158][147]"chr$(9)chr$(14)chr$(8):open15,(i),15
  11. 11 open2,(i),2,"complex64.pdef,s,r":input#15,en,em$:close15:ifen=0goto16
  12. 12 ifen=62goto14
  13. 13 print"[147]"em$:new
  14. 14 print"[144][147]load"chr$(34)"complex64/pdef"chr$(34)","i;chr$(13)"run"
  15. 15 poke198,2:poke631,13:poke632,13:end
  16. 16 print"[144][147]load"chr$(34)"complex64/2"chr$(34)","i;chr$(13)"run":goto15
  17.