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 D$[10],C$[2],B$[72],F$[56]
32  D$="0123456789"
35  E$='5
40  S=72
42  T=28
43  C1=1
48  REM*740904,JK
50  H$=H$[10,LEN(H$)]
60  FOR A=1 TO LEN(H$)
63  IF H$[A,A]="/" THEN 70
65  NEXT A
70  C$=H$[1,A-1]
75  GOSUB 1000
78  J=I
80  IF LEN(H$)>A THEN 140
90  GOTO 120
110  GOSUB 2000
115  IF E#-C1 THEN 130
120  C[J+C1]=100
125  GOTO 9000
130  C[J+C1]=A-1
135  GOTO 9000
140  C$=H$[A+2,LEN(H$)]
145  GOSUB 1000
150  GOTO I+C1 OF 240,160,180,190,200,220
155  GOTO 120
160  B$=Q$
165  F$=P$
170  GOTO 110
180  B$=S$
185  F$=T$
188  GOTO 110
190  B$=U$
195  F$=T$
198  GOTO 110
200  B$=W$
205  F$=X$
210  GOTO 110
220  B$=Y$
225  F$=X$
230  GOTO 110
240  B$=O$
245  F$=P$
250  GOTO 110
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 
2000  E=0
2005  FOR A=C1 TO S
2010  IF B$[A,A]=E$ THEN 2060
2020  NEXT A
2030  FOR A=C1 TO T
2040  IF F$[A,A]=E$ THEN 2065
2045  NEXT A
2050  E=-C1
2060  RETURN 
2065  A=A+S
2070  RETURN 
9000  CHAIN "$CWHP1",100
9998  CHAIN "$CWHPT"
9999  END 
