10  COM G$[3],H$[72],I$[28],J$[36],K$[7],L$[6],M$[8]
12  COM N$[20],O$[72],P$[56],Q$[72],S$[72],T$[56]
14  COM U$[72],W$[72],X$[56],Y$[72]
16  COM M[30],C[31],S[32],P[32]
18  COM S1,S2,S3,S4,S5,S6,T1,T2,T3,T4,T5,T6,T7
20  COM P1,P2,P3,P4,P5,P6,P7,P8,P9,R1,R2,R3,R4,R5,R6,R7,R8,R9
22  COM A1,A2,A3,A9,K1,K2,K3,K4,K5,K6,K7,K8
23  FILES *
24  ASSIGN "$CWDEM",1,Z
25  IF Z#3 THEN 30
26  PRINT "**"'7" SORRY, CWF IS NOT CURRENTLY AVAILABLE ON THIS SYSTEM **"
27  GOTO 9999
30  DIM Z$[72],D$[10]
32  D$="0123456789"
35  Z$="                                                                        "
43  C1=1
45  E=0
48  REM*071674,JK
50  C$=H$[9,9]
60  GOSUB 1000
70  GOTO I OF 100,120,140,150,160,170,180
90  CHAIN "$CWHP1",100
100  MAT C=ZER[31]
105  IF E>0 THEN 140
110  GOTO 90
120  O$=Z$
122  P$=Z$[C1,56]
124  Q$=Z$
126  S$=Z$
128  T$=Z$[C1,56]
130  U$=Z$
132  W$=Z$
134  Y$=Z$
136  X$=Z$[C1,56]
137  IF E>2 THEN 150
138  GOTO 90
140  MAT S=ZER[32]
142  IF E>1 THEN 120
145  GOTO 90
150  MAT P=ZER[32]
155  GOTO 90
160  E=1
165  GOTO 100
170  E=2
175  GOTO 100
180  E=3
185  GOTO 100
1000  I=0
1002  FOR M4=C1 TO LEN(C$)
1004  A$=C$[M4,M4]
1006  FOR M5=C1 TO 10
1008  IF A$=D$[M5,M5] THEN 1018
1010  NEXT M5
1012  I=-C1
1015  RETURN 
1018  IF I>99999. THEN 1025
1020  I=I*10+M5-C1
1022  NEXT M4
1025  RETURN 
9998  CHAIN "$CWHPT"
9999  END 
