Listing of file='ADM.WRIT' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 1523, program filename = 'ADM.WRIT' 4368 % -- line 4368 -- 4369 DEFFN'219(B9) : DIM A8$(11)2,A6$(4)25,A7$(13)6,A0(5),B0(11),A9$(7)1 : B1$=HEX(00) : IF B9=INT(B9)AND B9<5AND B9>0AND A1(1,B9)=B9THEN 4373 : ELSE B1$=HEX(08) : RETURN 4373 IF A1(2,B9)=-1THEN B1$=HEX(07) : IF B1$<>HEX(00)THEN RETURN 4374 IF MAX(B0())+MIN(B0())=4040THEN MAT B0=ZER : V1$()=ALL(00) : PRINTUSING TO V1$(),"###A###A#######A###A##AA##AA##AA#AAA#AAA##AAA",B0(1) ,B0(2),B0(3)*1000+B0(4),B0(5),B0(6),B0(7),B0(8),B0(9),B0(10),B0(11) : $TRAN(V1$(),"0 ")R : HEXPACKA8$()FROMSTR(V1$(),3,44) : ERRORB1$=HEX(B5) 4375 IF B1$<>HEX(00)THEN RETURN : $PACK(F=HEX(A019A0066006A002A001))V1$()FROMA6$(),A7$(),A0(),A8$(),A9$() : V4$="A" : GOSUB '221(B0,1,2,1,1) : B1$=R1$ : IF B1$<>HEX(00)THEN RETURN 4380 $PACK(F=HEX(A019A005A007A002))U1$()FROMA6$(),A7$(12),HEX(00000000000000), "10" : GOSUB '235(B0,U1$()) : B1$=R1$ : RETURN