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