Listing of file='609.ACC' on disk='vmedia/701-2738G.wvd.zip'
# Sector 1174, program filename = '609.ACC' 0010 REM '609.ACC' sample program to move special character to a document 0019 REM from program 'DAST.COM'--all the variables need to be commoned throug h out DOCUMENT ACCESS SUBROUTINES. 0020 COM A6$6, B1$1,A1(2,4),A3(4),A9(4),A7(4),B7(4), B2(4),R1$1,U0$3,U0(23),U3 $1,U4$4,U5(10),U1$(256)1, U2$(64)1,V1$(3)82,V4$1,V5(7),V5$(160)1,V6(9),V9 (9) 0030 COM U0, V5, U6, U7, V9, U8, U4, V0, V2, U3(9) 0035 COM V2$(256)1,B7$2,V0$(1000)1,B1$(123)2,B2$(1)1,B3$(1)1,B4$(1)1 0040 REM % The following is required only if you use software selection tool : COM R9, R9$1, I9, I9$54, I9(5), I9$(14)8, I8$3, R9$(99)8 0044 DIM @D$5 0055 PRINT HEX(03);AT(5,11);"Sample program 609.ACC to move special character to a document." 0066 PRINT AT(7,0);"Enter disk address of WP system "; : LINPUT -STR(@D$,,3) : IF @D$=" " THEN 66 : SELECT #0<@D$> 0077 PRINT AT(7,0);"Loading other programs from address ";STR(@D$,,3);" and pr eparing system. Please wait." 0100 LOAD DC T#0, "DAST.DAT" 4000,4050 BEG 200 0200 GOSUB ' 216 (18,"205206207208209079245247248249251252253218219229230233") 0210 IF R9$<>HEX(00) THEN 400 0300 LOAD DC T #0,<R9>R9$() 4050,5500 BEG 310 0310 GOSUB '205 0311 PRINT AT(7,0,80);"This program will create a page with HEX code 7B as the underlined text.";HEX(0A0A0D);"Your document number and library must alr eady be created.";HEX(0A) 0313 LINPUT "Enter document number and library ",@D$ : IF @D$=" " THEN 313 0320 GOSUB '206(@D$," ",1) 0330 IF B1$<> HEX(00) THEN 401 0335 REM % V0$(??) = VARIABLE FOR TEXT INSERT ... NOTE ADD HEX 80 TO UNDERSCO RE 0340 V0$()=HEX(FB) : REM %.code HEX( 7B ) as underlined character 0350 GOSUB ' 245 (1,999) 0360 IF B1$<>HEX(00) THEN 402 0370 GOSUB ' 252(1) 0380 IF B1$ <>HEX(00) THEN 403 0390 GOSUB '207 (1) 0395 IF B1$<> HEX(00) THEN 404 0396 END 0400 HEXPRINT R9$ : STOP "ERROR IN '216" 0401 HEXPRINT B1$ : STOP "ERROR IN '206" 0402 HEXPRINT B1$ : STOP "ERROR IN '245 GOTO PAGE" 0403 HEXPRINT B1$ : STOP "ERROR IN '252" 0404 HEXPRINT B1$ : STOP " ERROR IN GOSUB '207" 9999 REM .SCRATCH T/D10,"609.ACC "-SAVE T/D10,()"609.ACC " : REM .for resaving program. Last changed on 86-8-11