home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / prt / prnpgd.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  24 lines
  1. 10 CLS:PRINT:PRINT"You must have the current version of":PRINT"PRINT.CO as a file in your M100 before
  2. 20 PRINT"you continue.  If you do not, press":PRINT"SHIFT-BREAK, otherwise press ENTER to
  3. 30 PRINT"continue.";:LINEINPUTR$
  4. 40 CLS:PRINT:PRINT"This program will patch a page number":PRINT"routine into PRN100.  After it runs the
  5. 45 PRINT"new SAVE address for PRINT.CO will be
  6. 50 PRINT:PRINTTAB(11)"59838,62959,60503":PRINT:LINEINPUT"Press ENTER to continue";R$
  7. 60 CLS:PRINT"The program will number pages, starting":PRINT"with page 2.  If you continue
  8. 70 PRINT"to work with the same document after a":PRINT"printout, you will have to reset the
  9. 80 PRINT"the START @ PAGE number, even though it":PRINT"may appear correct, since it is used as
  10. 90 PRINT"the counter.  Press ENTER to begin";:LINEINPUTR$
  11. 100 CLEAR256,59838:LOADM"PRINT"
  12. 110 FORX=59838TO59899
  13. 120 READA:POKEX,A
  14. 130 NEXTX
  15. 140 FORX=61709TO61711
  16. 150 READA:POKEX,A
  17. 160 NEXTX
  18. 170 SAVEM"PRINT",59838,62959,60503
  19. 180 END
  20. 200 DATA 205,94,241,245,229
  21. 210 DATA 58,255,239,254,1,202,235,233,33,247,233,126,35,205,63,109,254,32,194,206,233,58,255,239,198,48,205,63
  22. 220 DATA 109,62,13,205,63,109,205,63,109,205,63,109,58,255,239,60,50,255,239,225,241,195,16,241,80,97,103,101,32
  23. 230 DATA 195,190,233
  24.