image of READY prompt

Wang2200.org

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