home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 134 / 134.d81 / sweeper.bs (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  444b  |  14 lines
  1. 10 sys36864
  2. 12 poke2048,0
  3. 20 print"[147]"
  4. 40 fori=0to21:poke828+i,8+i:next
  5. 50 ifdv<8ordv>29ordv=8then70
  6. 60 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  7. 70 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  8. 80 close2:open2,i,2:close2:ifstthen100
  9. 90 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then110
  10. 100 next:print"[147]":poke53272,23:poke186,8:end
  11. 110 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  12. 120 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  13. 130 print"run:":poke631,13:poke632,13:poke198,2:end
  14.