Listing of file='FCST140A' on disk='vmedia/701-2661A.wvd.zip'
# Sector 646, program filename = 'FCST140A'
0010 REM FCST140A, RELEASE 2.0, (02/14/80) THIS PROGRAM IS A COPYRIGHT PRODUCT
OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0170 DIM M0$(83)3
: GOTO 4000
4000 SELECT @PARTS0$
: STR(M$(),16,8)=M5$
: COM CLEAR N2$
: MAT REDIM M$(83)3
: LOAD T"KFAM3507"10,4199
4200 Q=1
: LOAD T"KFAMOPEN"199,199BEG 4220
4220 SELECT @PARTS0$
: M0$()=M$()
: N1$=S$(1)
: P1$=M$(1)
: N2=1
: P2$=M$(2)
: N3$=S$(3)
: P3$=M$(3)
: O3$="Y"
: O6$="C"
: N4=1
: P4$=M$(4)
: O4$="Y"
: N5$=STR(M$(),16,7)&"B"
: P5$=M$(5)
: MAT REDIM M$(4)62
9998 DEFFN'29"Q$=";HEX(22);"FCST140A";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D
)