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