home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 201 / 201.d81 / h (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  418b  |  11 lines
  1. 10 poke53269,0:poke54290,0:poke54283,0:poke54276,0
  2. 40000 poke53280,0:poke53281,0:poke53265,27:dv=peek(186):q$=chr$(34):print"[147][144]";
  3. 40010 a$="hello connect":r$=chr$(13)+"r[213]"+chr$(13):q$=chr$(34)
  4. 40020 close2:open2,dv,2,a$:get#2,b$:close2:ifst=0then40050
  5. 40030 open15,dv,15,"i0":input#15,en:close15
  6. 40035 poke53280,14:poke53281,6:print"[147][154]"
  7. 40040 poke44,8:poke8*256,0:poke55,0:poke56,160:clr:new
  8. 40050 print"load"q$a$q$","dv""
  9. 40055 forx=1to4:poke630+x,asc(mid$(r$,x)):next:poke198,4:goto40040
  10. 60000 dv=peek(186):n$="h":open15,dv,15,"s0:"+n$:close15:saven$,dv:end
  11.