Commodore VIC-1525 - Appendix; Hard Copy off the Screen

APPENDIX
B
Hard
Copy
off 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.
6mm
REM SCREEN COPV
68010 SI
**CHR*
(15): BS*=CHR*
<
8 >
:
F0$=CHR*
(16)
60828
RV*=CHR$a8>
:
R0$-CHR*a46>
:
QT*=CHR*(34>
60039
MF*=CHR*
a
45
>
=
VP~PEEK
<
648
> #256
60040
0PEN4 ,
4
=
PR I
NT#4
Smm
FORCL*0TO22
:
QF*0
:
RS$«MF*
=
FORRO=0TO21
6WS0
SC«PEEK<VR+22#CL+R0>
60070
IFSC=34THENQF=<1~QF
Sm&B I FSCO
1 62THENS0 1
1
e
60090
GF=1-QF
:
IFQF=1THENRS$==RS*+RV*+QT$
:
GOTO60170
60100
flS*=flS*+QT*+R0*
;
GOTO60170 GOTO60130
60
110 1 FQF«
1 AND <
SC>»
1
28
)
THENSOSO
128
=
GOTO60
1 30
60 1
20
1
FSC>= 1 2STHENSC=SC~ 1
28
=
RF=
1
:
RS*=RS*+RV*
60130
IFSC<320RSC>95THENRS=*SC+64
:
GOTG60160
60140
IFSC>31RNDSC<64THENRS=SC
:
GOTO60160
60
1
50
IFSC>63RNDSC<96THENRS=SC+32
:
GOTO60
i 60
60
1
60
RS*»RS*+CHR*
C
AS
'>
68170
IFRF*1THENRS**RS*+R0*
:
RF*0
60180 NEXTRO
60
1
90
I
FQF»0THENPR
I
NT#4
, S
I *P0$
"
20
" RS*
;
GOTO602 1
60200
PR
I
NT#4
.-
S I
$+P0*+
"20"
+RS$+QT*
602 1
NEMTCL
:
PR
I NT#4
,
S
I
$ :
CL0SE4
:
RETURN
B.l
This
program is made for the CURSOR
UP
mode.
If
you
wish
to write the
program
in
the
CURSOR
DOWN mode,
you
must
change
MF$=CHR$(145)
to
MF$=CHR$(18)
in
line
60030.
This
program
is also
made for
VIC-20. If you
wish
to use
this program
to
Commodore
64,
you should
change line
60050.
60050
FORCL*0TO24
•
QF'^B
'
RS**MF$
:
FQRRO0TO39
Note)This
program can't print the characters
following the reverse
quote.
32.