home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 143 / 143side1.d64 / ls briefs (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-01-01  |  399 b   |  11 lines
  1. 63000 dv=peek(186):ifdv<8thendv=8
  2. 63010 delay=116:poke53280,0:poke53281,0:poke1023,dv
  3. 63130 a$="briefs 143"
  4. 63230 fori=dvtodv:close2:open2,i,2:close2:ifstthen63250
  5. 63240 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then63260
  6. 63250 next:print""a$" not found!":poke186,8:end
  7. 63260 q$=chr$(34):poke646,peek(53281):print"";
  8. 63270 print"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
  9. 63280 print"r[213]:";:poke631,13:poke632,145:poke633,145:poke634,145
  10. 63290 poke635,145:poke636,13:poke198,6
  11.