Listing of file='B327042' on disk='vmedia/bsc_3271_rel_1.14.04.wvd.zip'
# Sector 1202, program filename = 'B327042' 0010 REM .B327042 Set-up for listing 12/08/82 0015 COM B1,B2,B2$(4)5,C1,D$3,D2$3,D4$5,D9,E$(5)80,P(4) : COM C9$(16)16 : COM B1(4),B1$5,B2(4),C1,D,D(4),D$(D0,80)24,D0$(4)1,D1(4) : COM D2$3,D2$(4)3,D3$(4)1,D4$(4)5,D5$3,D5$(4)3,D9(4),E0(4) : COM F$(9,4)2 : COM V0$(1)1,V1$(24)82,K$(10)1 : COM L0,R$(4)10,R0$83,R$18,T 0210 GOSUB '99(0,"Getting REPORT file information") : T=4 : D9=1920 : L0=4 : GOSUB 290 : INIT(00)F$() : FOR A=1TO L0 : P(A)=-1 : B1(A),B2(A)=0 : F$(9,A)=BIN(66,2) : NEXT A : E$()=" " : D=1 : C1=0 : A=1 : $PSTAT="\CC\E9\F3\F4\E9\EE\E7" : LOAD T#0,N$(5) 0290 INIT(20)C9$() : C9$(01)=HEX(202020202020202020200A0B0C0D2020) : C9$(02)=HEX(2020202020152020201920202A202A20) : C9$(03)=HEX(202122232425262728292A2B2C2D2E2F) : C9$(04)=HEX(303132333435363738393A3B3C3D3E3F) : C9$(05)=HEX(404142434445464748494A4B4C4D4E4F) 0360 C9$(06)=HEX(505152535455565758595A5B5C5D5E5F) : C9$(07)=HEX(606162636465666768696A6B6C6D6E6F) : C9$(08)=HEX(707172737475767778797A7B7C7D7E7F) : C9$(09)=HEX(202020202020202020202020FFFFFFFF) : C9$(10)=HEX(202020202020202020202020FFFFFFFF) 0410 C9$(11)=HEX(202020202020202020202020FFFFFFFF) : C9$(12)=HEX(202020202020202020202020FFFFFFFF) : C9$(13)=HEX(202020202020202020202020FFFFFFFF) : C9$(14)=HEX(202020202020202020202020FFFFFFFF) : C9$(15)=HEX(202020202020202020202020FFFFFFFF) 0460 C9$(16)=HEX(202020202020202020202020FFFFFFFF) : RETURN 0570 DEFFN'99(A,A$) : PRINT HEX(03);BOX(5,79);HEX(0A0A0E);TAB(40-LEN(A$)/2);A$ : RETURN