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],A$[72],B$[56]
32  D$="0123456789"
35  Z$="                                                                        "
40  S=72
41  N=29
42  T=26
43  C1=1
48  REM*741105,938W
50  IF LEN(H$)>6 THEN 100
55  O$=Z$
60  GOSUB 500
70  P$[C1,28]=B$[C1,28]
90  CHAIN "$CWHP1",100
100  H$=H$[9,LEN(H$)]
102  C$=H$[1,1]
103  GOSUB 1000
105  GOTO I+2 OF 90,300,110,150,190,220,250
110  IF LEN(H$)>C1 THEN 135
115  Q$=Z$
120  GOSUB 550
125  P$[N,56]=B$[N,56]
130  GOTO 90
135  C$=H$[3,3]
138  GOSUB 600
140  Q$=A$
142  GOSUB 615
145  GOTO 125
150  IF LEN(H$)>C1 THEN 170
152  S$=Z$
155  GOSUB 500
160  T$[C1,28]=B$[C1,28]
165  GOTO 90
170  C$=H$[3,3]
172  GOSUB 600
175  S$=A$
180  GOSUB 650
185  GOTO 160
190  IF LEN(H$)>C1 THEN 200
192  U$=Z$
193  GOSUB 550
195  T$[N,56]=B$[N,56]
197  GOTO 90
200  C$=H$[3,3]
202  GOSUB 600
205  U$=A$
210  GOSUB 615
215  GOTO 195
220  IF LEN(H$)>C1 THEN 230
222  W$=Z$
223  GOSUB 500
225  X$[C1,28]=B$[C1,28]
228  GOTO 90
230  C$=H$[3,3]
233  GOSUB 600
235  W$=A$
240  GOSUB 650
245  GOTO 225
250  IF LEN(H$)>C1 THEN 260
252  Y$=Z$
253  GOSUB 550
255  X$[N,56]=B$[N,56]
258  GOTO 90
260  C$=H$[3,3]
262  GOSUB 600
265  Y$=A$
270  GOSUB 615
275  GOTO 255
300  IF LEN(H$)<2 THEN 55
305  C$=H$[3,3]
310  GOSUB 600
315  O$=A$
320  GOSUB 650
325  GOTO 70
500  B$[C1,T]=Z$[C1,T]
510  B$[27,27]='13
520  B$[28,28]='5
530  RETURN 
550  B$[N,N+T]=Z$[C1,T]
560  B$[55,55]='13
570  B$[56,56]='5
580  RETURN 
600  FOR A=C1 TO S
605  A$[A,A]=C$
610  NEXT A
612  RETURN 
615  FOR A=C1 TO T
620  B$[A+28,A+28]=C$
625  NEXT A
626  B$[55,55]='13
627  B$[56,56]='5
630  RETURN 
650  FOR A=C1 TO T
655  B$[A,A]=C$
660  NEXT A
665  B$[27,27]='13
670  B$[28,28]='5
675  RETURN 
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 
