Anadex DP-9000 Operator's Manual page 80

PROGRAM NO. 1
870 LPR I NT "; 036" ;CHRS( 127) ;"0 ;0540pO; 203'pOO ;229CLpO; 419'" ;CHR$( 94 );:"'AO ;468:AFHP' 6" ;CH
Rf(29)
880 LPR I NThL 4 ":LPRI'NTCHRS (28) ; II ;03'5D"; CHRf ( 127) ; "DDO ;053 11 ;CHRS('95l;·· '0 ;205 ";CHRS
( 126) ; "CO ;225ABL pO ;421 pOO ;464CDX "O;638HIJJLH6";" , . '
890' ,LPRINT";036
II
;CHR$ (127) ;"0 ;052" ;CHR$ (127 );'''0 ;20'6pOO ;222AFX' 0;422xGO;459ABLP'0'; 638 9
bbb.bg6";CHRS(29)
. 900,' LPR I NT liE": LPRI NTCHR$ (28) ;1I;035D "; CHRS (127) ; "DDO ;051" ;CHR$ ( 127) ;
II
0 ;208" ;CHR$·( 94) ;"
CO;219CDX'0;424'";CHR$(92);"Ct;454AGFHpO;638C@AA@C@@@@bfJJrb6~;.
'.,
~
,.' '
·910 LPR INT";03'6" ;CHR$ ( 127) ;" 0;049H n; CHR$ ( 124); "hO;209 pOO ;216CLpO ;427H" ;'CHR$( 94 -) ; "GCA
AAAABBBBDD'D DHHHHPPPP , "x pO ;638x I xyI x@@@@NQQQQN6" ; CHRS'(29)
930. LPRINT"S 3" :LPRINT CHR$ (28);" ;035D" ;CHR$( 127); "DDO;211" ;CHR$(l24); "COLp'O;428xO;
638xDLpDx@@@'@NDDDDN6;212
,It
;CHRf ( '124) ;" 0 ;638" ;CHRS (92) ; II bb ",;CHRS ( 126) ;
II
bb@@@@''';CHR$ (95
);"DDDDD6";
940 RE"
950'LPR I NT
II;
638" ;CHRS(95 ) ;'" AOOA
It;
CHRS (95);
II
(!f!@IGHI,IHG6;638GHHGDH@@@@DddddC6" ;
960 RE" ' .
970LPRIMT";638cdf@dc@@@@QRRRRa6;63IbRRRSbtt@@xIIIlx61638IXhhHI'@@@xDDDDx~;638p""p@
@@@";CH~S(94)"bb";CHR$(94)1"Rb6;638fVHDrq@@@@OGQOAA6;63aGHHHHG6;638Bcbb~G6";CHRi(29);
980 A$=STRIHG$(7,CHRt<127»
990 RE"
'1000' BS=STRING$(7 ,CHR$(95»
1010 CS=STRING$(128,"D")
", '''1020 D$ = S'TR I MG$ (198,1' A")
1030 ES=STRINGS(20,"@")
1040 GS=STRING'$( 7,1I@")
1050 P$=A$+E$
1060 LPRI N'T"S' 80":LPRINT CHR$ (28) ;
as
;035D" ;CHR$( 127) ;uDD'6 ;036 ".;CHR$ (127) ; 110 ;290000000
OO;614GGGGCGG";E$;A$;Et;"GGGCCGG6";CHR$(29);
1070 REfit
1080 LPRINT "A 70 PRODUCTION OVE,RTI"E BREAI<POIN:T";CHRS(95) ;CHRi(9'5) ;CHR$(95)
1090 -RE"
1100 LPRI NT CHR$ (28) ;
II
;614" ;AS ;ES ;A$; E$
;A~;
"0;633 11 ;
D$;
"0;261l9@DAA,A@IAAAA@I''';GS;G$ ;A$
; itO ; 035 DII ; CHR
$ (
127 ) ; I'DD6"; . ' . .' , ' , ,
1110 RE"
1120 LPRI
NT"
;036 u; CHR$ (127) ; "0; 101GGGGGGGO; 272' PHDBAO ;290
'*;A$;
110 ;58700000000 ;614" ;A$;
STR'ING$( 12,"@");CHR$(1'27) ;G$;A";E$;A$;U6
t1
;CHR$(29);
1130 RE"
1140 -LPRIMT"L' 60" :LPR INT CHR$ (28) ;
II
;035D II ;CHR$ (127·)'; "DDI' ;D$
;D$
;DS;
II
0; 101'" ;AS;STRINGS
(170,"@");"'RKC"i CHR $(9S);IIOI@@I@@";At;"O;587 n ;A$;E$;AS;It@@I@@@@@@@@@";CHR$(12'7);"I@@
'@lt~;A$;E$~A$;EStG$;£$;I'AAAAAAA6";
1150 RE"
11'60'LPRI NT
n·
;036"
;CHRS'(127)
;'''0
;07 4CCCCCCC"; STRINC$(20 ,"1") ;A$ ;"0 ;290" ;A$; "0"; 533G,GGGGG
Cit; STRI MG$ (47
,1I@1t)
;AS ;E$;A$ ;,E$ ;,A$;E$ ;Af ;E$ ;·..·GGGGGGG"; E$ ;A$;
It
6
II
;CHR$ (29) ;
1170RE" . , -
1.180 ,LPR I NT liE 50
II
:LPRINT CHR$ (28) ;
It;
035D
U
;CHR$ (12,7)
;"iDD'~;
STRI N&S'( 3-5
t ..
,·U}
;A$ ;E$;A:$; "0
;290" ;AS; E$; ,. GCGC&GC"; E$ ;A$;"O ;533";A$ ;ES ;C$; E$ ;AS'; E$ ;AS; E$ ;A'$; E$ ; A'S ; E$;AS; E$';A$ ;E$;
II
AAAAAAA";ES;B$;"6";
1190 RE"
1200LPRI NTuO ;533 11 ,;A$;E$;G$;ES ;A$; E$ ;.A$ ;E$;A$ ;E$ ;A$ ;E$ ;A$ ;Et ;A$ ;ES ;AS ;E~;AS;
1210 LPR I NT,"O ;290" ;A$;
E$
;A$;
£$
;A$; "0;036
u,
;CHRt ('1271 ;'STR INC'S (37,"@" ) ;A$
;E$
;A~;E~
;"A$;"
,6";CHR$(29); ,
l:220LPRINT
"s
'40"
-1,230LPRINTCHR$(28) ;'
1240 RE"
A-6