Table of Contents
Advertisement
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=
:
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 $
:
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.
Advertisement
Table of Contents
