home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1986 January / 1986-01.d64 / highlighter (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  534b  |  12 lines
  1. 10 print"[147]"chr$(14)chr$(8):poke36879,25:print"rem highlighter
  2. 12 [133]"program";n$:[139]n$[178]""[167][153]"ononononon":[137]12
  3. 14 q$[178][199](34):[153]"loadload    "n$"load"q$n$q$",8
  4. 16 print"63994s=p[197](s)+p[197](s+1)*256
  5. 18 [153]"63995ifpval(s+4)=143tleft$t=s+4:go(NULL)63997
  6. 20 print"63996on-(s<>.)g[207]63994:g[207]63999
  7. 22 [153]"63997t=t+1:ifpval(t)=.tleft$re(NULL)
  8. 24 print"63998on-(p[197](t)=32)g[207]63997:p[207]t+1*(t>s+5),18:re[212]
  9. 26 [153]"63999?"q$"load"q$";:p(NULL)p,19:f(NULL)i=1to6:p(NULL)p+i,13:?63993+i:nval:p(NULL)p+i,31:p(NULL)198,8
  10. 28 print"?"q$"hilight"q$":p=631:s=p[197](43)+p[197](44)*256:g[207]63995
  11. 30 [151]631,19:[129]i[178]1[164]8:[151]631[170]i,13:[130]:[151]198,9
  12.