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