home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 51 / Commodore_Disc_51_19xx_-_de.d64 / cp-info (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  313 b   |  10 lines
  1. 10 printchr$(147):if peek(772)=124then30
  2. 20 printchr$(19)"run "chr$(34)"cp-load.128":poke842,19:poke843,13
  3. 21 f$="ed i*"+chr$(13):fori=1to6
  4. 22 poke843+i,asc(mid$(f$,i,1)):next:poke208,8:end
  5. 30 printchr$(19)"load "chr$(34)"cp-load.64"chr$(34)",8"
  6. 40 rn$="run":print""
  7. 50 printchr$(145)rn$chr$(19);
  8. 60 f$=chr$(13)+chr$(13)+"ed i*"+chr$(13)
  9. 70 for i=1to8:poke630+i,asc(mid$(f$,i,1)):next:poke198,8:end
  10.