home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2004-03_2004_CSW_Side_B.d64 / wcopydoc (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  5KB  |  10 lines
  1. 10 f=abs(peek(65533)=255)
  2. 12 mo=191
  3. 14 ba=8192
  4. 20 iff=0thenpl=peek(43):ph=peek(44)
  5. 30 iff=1thenpl=peek(45):ph=peek(46):(NULL)0
  6. 42 pa=ph*256+pl+mo+2
  7. 44 ph=int(pa/256):pl=pa-ph*256
  8. 46 poke 250,pl:poke251,ph
  9. 50 sys (pa+6)
  10.