image of READY prompt

Wang2200.org

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