Star Micronics NX-1000 User Manual page 107

■ Mi......... M U M 1 / 1(1 U O T O
W l A p u p
Ion ' i f
I I ' M A l l ; 1 . 1
M U ' I I'M*-.' P Y
- 1
M l " I I i i I M K N 2 9 3 0
* ■ • I i " A i r i . I d i P R I N T
j H * n r o i
i n p i m
M •« H r i A N D F I
i r M ) * - . . n i E N F O $ - F I $
4 * o • I rN " H " # l . F O $ , 4 0
»*♦*••• I I I I U # 1 , 4 0 AS A$
. . . . I i n A 9 - H D 9 + S T R I N G S ( 4 8 - L E N ( H D $ ) , 0 ) . - P U T
) h .it iiiifillh i C L O S E
1 4 2 0
I « i l
|M I 1 1 : 7 . 1 : P R I N T " D O W N L O A D T O P R I N T E R ? ( D I P S W I T C H 2 - 1 M U S T B E O F F ) "
h
I D A
1 - 1 1
j l . I. , l ' X i P Y
- 0 - 1
■ I I i I H E N E N D
H ' . . . . . . . A l l : 1 1 , 1 . - P R I N T " P R I N T C H A R A C T E R S E T ? "
. ..... I II . l ' X - 1 2 . P Y - 1
I I I I T H E N E N D
f m i | 1 1 . A l l : ; P R I N T " W H I C H M O N I T O R A R E Y O U U S I N G ? "
I
1 3 , 1
. H i n - l l ! l l $ - " C O L O R " : S O $ " " M O N O C R O " : P X - 1 6 : P Y - 1 . - G O S U B 3 0 2 0 : P B - S
................Illtl n o o : LPRI NT E S ; " 3 " ; CHRS( 5 0 ) ;
► . . . . . I i ( C - 3 3 T O 1 2 6 : L P R I N T C H R $ ( C C ) ; " " ; : N E X T C C
m i l I I ' l l I N T S T R I N G $ ( 1 0 , 1 0 ) : P R I N T S T R I N G S ( 5 , 1 0 ) : E N D
M i l l *
I n I I i - - - - - S U B R O U T I N E S
! S e l e c t o r
M i l l I , n r A T E P X . P Y . - P R I N T "
0 * 0 M M A T M P X + l . P Y : P R I N T "
l O N i i M N O T S T H E N 3 0 6 0 E L S E 3 0 7 0
. . . . . . . . . . . A T E P X . P Y . - P R I N T
I t i ' i i i r S T H E N 3 0 0 0 E L S E 3 0 9 0
i i l N O I . n r A T E P X . P Y . - P R I N T "
| $ - | N P U T S ( 1 ) : I F I $ < > C H R $ ( 1 3 ) T H E N S - N O T S . - G O T O 3 0 5 0
♦ m « i .
* i » n r r t i R N
m i
I n p u t c h e c k --------------------------------------------------------------------------- ----------------------------------
* . . . . . I ( 1 ) : S K - A S C ( I $ ) : F K - V A L ( I $ )
NPUTS
* . . . . M K > 6 A N D S K < 1 4 T H E N S T - S K - 6 . - G O T O 3 2 1 0
. . . . . . I K - 0 O R F K - 5 T H E N 3 1 2 0
■ * K K 3-0 T H E N Y - Y + l
i i
MOD
m i
* . M I ' K 3-1 T H E N Y - Y - l
MOD
* I ' I I I ' K > 6 T H E N X - X - l
i i
* . . . . . . . I K < 4 T H E N X - X + l
T H E N Y - W I E L S E I F Y < 1 T H E N
n y>WI
m m i
. . . . . X > H I T H E N X - H I E L S E I F X < 1 T H E N
" i n i i r : r U R N
C l e a r a l l
M » H N - l T O 1 6 : L O C A T E N + 2 . 3 . - P R I N T S P C ( 2 4 ) : N E X T N
mhi
♦ * 1 0 mH T O H I : F O R Y - l T O W l : D T ( X , Y ) - 0 : N E X T Y . X
X - l
M i l M i - 2 : Y - l . - R E T U R N
s X - l
S t o r e c h a r a c t e r
i i m i r i , - o
* . . . . . I l l : : I T H E N A ( C C ) - 0 E L S E A ( C C ) - 1 2 8
N » H I I N I . U T H E N Z A - 1 5 : Z B - 2 E L S E Z A - 8 : Z B - 1
. . . . . . . . I Y - l T O W l : W T - 1 2 8 : P ( C C . Y ) - 0 : Q ( C C , Y ) « 0
m i l n u t X - l T O Z A S T E P Z B
I F N L Q T H E N Q( C C . Y ) - Q ( C C . Y ) + W T * ( D T ( X + l , Y ) A N D 1 )
P( C C , Y ) - P ( C C , Y ) + W T * ( D T ( X , Y ) A N D 1 )
W T - . r i * W T
N E X T X
1 1*11
C C
t u r n I I - l - ' l . i P ( . Y ) + Q (
i'll N K X T Y
1
. . . 1 1 N . - O I H E N A ( C C ) — 1
i l * l i l i r a '
. . . . . . - i i I F C C - 1 2 7 T H E N C C - 3 3
I ' l l
H l n " I I i n U S O : G O T O 1 5 1 0
h i
O u t p u t t o
* 1 • " mu i . - 1 1 T O 1 2 6 : M - C C - 3 1
M i l l M A im - I T H E N B $ - S T R I N G $ ( 4 0 . 0 ) : G O T O 3 4 0 0 E L S E B $ - C H R $ ( 1 ) + C H R S ( A ( C C ) )
2 1 0 0
— -— -------------------------------------------------------------------------------------------------------------
i P R I N T " S A V E T O F I L E ? "
: S $ - " Y e s " : S l $ - " N o "
0
" O u t p u t f i l e n a m e [ " ; F I $ ; " ]
" " T H E N
2 4 5 0
1
: S $ - " Y e s " : S l $ - " N o "
0
: S O S - " Y e s " : S l $ - " N o "
- - - - - - — — - - - - - - - - - - - - - - - - - - - - - - -
r o u t i n e -----------------------------------------------------------------------------------------------------
" ; S 0 $
" ; S 1 $
. - L O C A T E P X + l . P Y : P R I N T "
" : L O C A T E P X + l . P Y : P R I N T
d o t s -------------------------------------------------------------------------------------------------------
d a t a -------------------------------------------------------------------------------------------
C C
, Y )
D i s k e t t e -----------------------------------------------------------------------------------------------
: G O S U B
3 0 2 0
" ;
# 1 . 1 .
: G O S U B
3 0 2 0
: G O S U B 3 0 2 0
- - - - - - « _ - - - - - - - - - - - - - - - - - - - - -
Y - l
X - l
" : L O C A T E P X . P Y
. - L O C A T E P X . P Y
97