image of READY prompt

Wang2200.org

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