Commodore MPS-801 - 1. Appendix A:; Hard Copy of the Screen

APPENDIX B Hard Copy of the Screen
The following sample program can be used to get a hard printed copy of a
program
you have on your screen. The Program is made to be used as a
sub-routine. That means
that when you use it, you must have a "GOSUB
60000" in your program where appropriate.
60000 REM SCREEN COpy
60010 SI$=CHR'(15):BSS=CHR'(8):PO$=CHR$(16)
60020 RV$=CHR'(18):RO'=CHR$(146):QT$=CHR'(34)
60030 MF'=CHR$(145):VR=PEEK(648)*256
60040 OPEN4J4:PRINT#4
60050
FORCL=0T022:QF=0:AS$=MF$:FORRO=0T021
60060 SC=PEEK(VR+22*CL+RO)
60070 IFSC=34THENQF=1-QF
60080 IFSC()162THEN60110
60090
QF=1-QF:IFQF=lTHENAS$=AS$+RV$+QT$:GOT060170,
60100 AS$=AS$+QTS+ROS:GOT060170:GOT060130
60110 IFQF=lANDCSC)=128)THENSC=SC-128:GOT060130
60120IFSC)=128THENSC=SC-128:RF=1:ASS=AS$+RV$
60130 IFSC(320RSC)95THENAS=SC+64:GOT060160
60140
IFSC)31ANDSC(64THENAS=SC:GOT060160
60150 IFSC)63ANDSC(96THENAS=SC+32:GOT060160
60160 AS$=AS'+CHRS(AS)
60170 IFRF=lTHENAS$=AS'+RO':RF=0
60180
t'~EXTRO
61319(1 IFQF=0THENPRINT#4.1 SISPOS"20
I1
ASS: GOT060210
60200 PRUH#4, SI$j POS.; "2t~I.; ASS.; cns
60210 NEXTCL:CLOSE4:RETURN
B.I
This program is made for the CURSOR UP mode. If you wish to write the
program
in the CURSOR OOWN mode,you must change MF$=CHR${l45)
to MFS=CHRS(l8) in line 60030.
This program is also made for VIC-~O. If you wish to use this program (0
Commodore 64. yOU should change line 60050.
60050 FORCL=0T024:QF=0:AS$=MFS:FORRO=0T039
Note)This program can't print the characters following the reverse quote.
39.