image of READY prompt

Wang2200.org

Listing of file='609FC020' on disk='vmedia/731-0071G.wvd.zip'

# Sector 183, program filename = '609FC020'
0010 REM '609FC020' - SETUP DOCUMENT ADMIN"-237-07/25/86
0015 DIM C9$(11)4
   : $UNPACK(F=HEX(A019A0066006A002A001))C0$()TO A6$(),A7$(),A0(),A8$(),A9$()
   : A7$(10)=R2$
   : A7$(12)=D4$
   : $PACK(F=HEX(A019A0066006A002A001))V1$()FROMA6$(),A7$(),A0(),A8$(),A9$()
   : GOSUB '221(A1,1,2,1,1)
   : $PACK(F=HEX(A019A005A009))U1$()FROMA6$(),STR(D4$,1,5),HEX(000000000000003
     130)
0039 GOSUB '235(A1,U1$())
   : STR(D2$(),14,25)=A6$(1)
   : $TRAN(STR(D2$(),14,25),D3$())
   : STR(D2$(),40,20)=A6$(2)
   : $TRAN(STR(D2$(),40,20),D3$())
   : STR(D2$(),61,20)=A6$(3)
   : $TRAN(STR(D2$(),61,20),D3$())
   : STR(D2$(),82,20)=A6$(4)
   : $TRAN(STR(D2$(),82,20),D3$())
   : STR(D2$(),8,5)=A7$(1)
0174 IF C4$<>" "THEN STR(D2$(),8,5)=C4$
   : FOR I=2TO 13
   : IF A7$(I)="000000"THEN A7$(I)=" "
   : NEXT I
   : OR (A7$(3),80)
   : STR(D2$(),112,2)=A7$(3)
   : STR(D2$(),115,2)=STR(A7$(3),3)
   : OR (A7$(2),80)
   : STR(D2$(),103,2)=A7$(2)
   : STR(D2$(),106,2)=STR(A7$(2),3,2)
   : STR(D2$(),109,2)=STR(A7$(2),5,2)
   : OR (A7$(4),80)
   : STR(D2$(),118,4)=A7$(4)
0300 STR(D2$(),123,2)=STR(A7$(4),5,2)
   : OR (A7$(6),80)
   : STR(D2$(),142,2)=A7$(6)
   : STR(D2$(),145,2)=STR(A7$(6),3,2)
   : OR (A7$(5),80)
   : STR(D2$(),133,2)=A7$(5)
   : STR(D2$(),136,2)=STR(A7$(5),3,2)
   : STR(D2$(),139,2)=STR(A7$(5),5,2)
   : OR (A7$(7),80)
   : STR(D2$(),148,4)=A7$(7)
   : STR(D2$(),153,2)=STR(A7$(7),5,2)
0450 OR (A7$(9),80)
   : STR(D2$(),172,2)=A7$(9)
   : STR(D2$(),175,2)=STR(A7$(9),3,2)
   : OR (A7$(8),80)
   : STR(D2$(),163,2)=A7$(8)
   : STR(D2$(),166,2)=STR(A7$(8),3,2)
   : STR(D2$(),169,2)=STR(A7$(8),5,2)
   : STR(D2$(),187,2),STR(D2$(),190,2)="00"
   : STR(D2$(),178,2)=STR(R2$,1,2)
   : STR(D2$(),181,2)=STR(R2$,3,2)
0580 STR(D2$(),184,2)=STR(R2$,5,2)
   : STR(D2$(),193,5)=D4$
   : OR (A7$(13),80)
   : STR(D2$(),203,4)=A7$(13)
   : STR(D2$(),208,2)=STR(A7$(13),5,2)
   : CONVERT A0(1)TO C$,(######)
   : GOSUB 1070
   : OR (C$,80)
   : STR(D2$(),126,6)=C$
   : CONVERT A0(2)TO C$,(######)
   : GOSUB 1070
   : OR (C$,80)
   : STR(D2$(),156,6)=C$
   : CONVERT A0(3)-7TO C$,(###)
   : GOSUB 1070
   : OR (C$,80)
0800 STR(D2$(),199,3)=C$
   : CONVERT A0(4)TO C$,(#####)
   : GOSUB 1070
   : OR (C$,80)
   : STR(D2$(),211,5)=C$
   : CONVERT A0(5)TO C$,(######)
   : GOSUB 1070
   : OR (C$,80)
   : STR(D2$(),217,6)=C$
   : HEXUNPACKA8$()TO C9$()
   : C9$(11)="0"
   : HEXUNPACKSTR(A8$(11),,1)TO STR(C9$(11),2)
   : $TRAN(C9$()," A")R
0960 $PACK(F=HEX(A003A003A004A003A003A002A002A002A001A002A003))B2$FROMC9$(1),C
     9$(2),C9$(3),C9$(4),C9$(5),C9$(6),C9$(7),C9$(8),C9$(9),C9$(10),C9$(11)
   : $TRAN(B2$,"A ")R
   : HEXPACKSTR(D2$(),227,14)FROMSTR(B2$,,28)
   : ROTATE(STR(D2$(),227,14),4)
   : STR(D2$(),241,4)=HEX(AACA1704)
   : B2$=" "
1050 A5$()="609FC030609FG080"
   : LOAD T<2>A5$()
1070 IF STR(C$,1,1)>"0"THEN RETURN
   : IF POS(C$>"0")=0THEN C$=" "
   : ELSE STR(C$,1,POS(C$>"0")-1)=" "
   : RETURN