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 >
Commodore BASIC  |  2023-02-26  |  313b  |  8 lines
  1. 0 input"anna tiedoston nimi:";tn$:input"prg, seq (p/s)??";f$
  2. 1 print"[147]":open2,8,2,"0:"+tn$+","+f$+",r"
  3. 2 get#2,a$:ifst<>0thenclose2:end
  4. 3 as=asc(a$+"@"):a=val(mid$(str$(as),1,1))+48:b=val(mid$(str$(as),2,1))+48
  5. 4 c=val(mid$(str$(as),3,1))+48:d=val(mid$(str$(as),4,1))+48
  6. 5 poke1024,as:poke1026,a:poke1027,b:poke1028,c:poke1029,d
  7. 6 print"[154]";mid$(a$+"@",1,1):poke198,0:wait198,1:goto2
  8.