home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 January / 1988-01.d64 / metascroll (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  189b  |  11 lines
  1. 10 a=a+1
  2. 20 poke 157,128
  3. 30 if a=1 then load "metabasic",8,1
  4. 40 a$="sys36864"+chr$(13)
  5. 50 a=len(a$):if a>10 or a<1 then stop
  6. 60 poke 198,a
  7. 70 for i=1 to a
  8. 80 poke 630+i,asc(mid$(a$,i))
  9. 90 next i
  10. 100 load "scrolledit",8
  11.