home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Floppy Magazine 1988 #6
/
Floppy_Magazine_88-6_1988_Megasystems_Oy_fi_Side_A.d64
/
apu
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
313b
|
8 lines
0 input"anna tiedoston nimi:";tn$:input"prg, seq (p/s)??";f$
1 print"[147]":open2,8,2,"0:"+tn$+","+f$+",r"
2 get#2,a$:ifst<>0thenclose2:end
3 as=asc(a$+"@"):a=val(mid$(str$(as),1,1))+48:b=val(mid$(str$(as),2,1))+48
4 c=val(mid$(str$(as),3,1))+48:d=val(mid$(str$(as),4,1))+48
5 poke1024,as:poke1026,a:poke1027,b:poke1028,c:poke1029,d
6 print"[154]";mid$(a$+"@",1,1):poke198,0:wait198,1:goto2