image of READY prompt

Wang2200.org

Listing of file='ADM.WRIT' on disk='vmedia/701-2739G.wvd.zip'

# Sector 881, 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