home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 93 / 093.d81 / affine (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  320b  |  12 lines
  1. 100 remember: loadstar is not public domain!
  2. 110 rem (c) 1991
  3. 120 on tr goto 160,170,180
  4. 130 poke 45,111:poke 46,119:poke 16384,.:poke 56,128:clr
  5. 140 dv=peek(186):ifdv<8thendv=8
  6. 150 a$="reader 8000":goto190
  7. 160 a$="aff help":goto190
  8. 170 a$="affine.ml":goto190
  9. 180 a$="affine code":poke 44,64
  10. 190 tr=tr+1:load a$,dv,1
  11. 10000 open15,8,15,"s0:affine":close15:save"affine",8:end
  12.