Listing of file='ADM.READ' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 1519, program filename = 'ADM.READ' 4355 % -- line 4355 -- 4357 DEFFN'218(B9) 4358 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 4360 : ELSE B1$=HEX(08) : RETURN 4360 IF A1(2,B9)=-1THEN B1$=HEX(07) : IF B1$<>HEX(00)THEN RETURN : V4$="A" : GOSUB '220(B0,1,2,1,1) : B1$=R1$ : IF B1$<>HEX(00)THEN RETURN : $UNPACK(F=HEX(A019A0066006A002A001))V1$()TO A6$(),A7$(),A0(),A8$(),A9$() : FOR I=1TO 11 : UNPACK(####)A8$(I)TO B0(I) : ERRORUNPACK(###)A8$(I)TO B0(I) : ERRORUNPACK(##)A8$(I)TO B0(I) : ERRORUNPACK(#)A8$(I)TO B0(I) 4361 NEXT I : RETURN