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 >
Wrap
Commodore BASIC
|
2022-10-26
|
15KB
|
10 lines
1 rem complex64/2.1(b) 1990 d.h.f.
2 rem
3 i=peek(186):open15,(i),15
4 open2,(i),2,"complex64.pdef,s,r":input#15,en,em$:ifen=0goto6
5 close15:print"[147][158]"em$:new
6 forj=0to28:get#2,a$:ifa$=""thena$=chr$(0)
7 poke2303+j,asc(a$):next
8 input#15,en,em$:close2:ifen<>0goto5
9 close15:sys2292