home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 178 / 178.d81 / kwor (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1999-01-01  |  150 b   |  9 lines
  1. 10 su=39936
  2. 20 lu=su+3
  3. 30 ag=su+6
  4. 100 syssu,i%,w$
  5. 200 syslu,"???"
  6. 210 printi%:stop
  7. 60000 n$="kwor":dv=peek(186):ifdv<8thenstop
  8. 60001 open15,dv,15,"s0:"+n$:close15:save"0:"+n$,dv
  9.