home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D12.D64 / complex64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  634 b   |  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.