Listing of file='PAG.SUB' on disk='vmedia/731-0071G.wvd.zip'
# Sector 1572, program filename = 'PAG.SUB' 4337 % --line 4337 -- 4338 IF B9=INT(B9)AND B9<5AND B9>0THEN 4339 : B1$=HEX(08) : RETURN 4339 IF A1(1,B9)=B9THEN 4340 : B1$=HEX(08) : RETURN 4340 IF A1(2,B9)<>-1THEN B1$=HEX(00) : ELSE B1$=HEX(07) : RETURN 4342 ON A1(1,B9)GOTO 4343,4344,4345,4346 : B1$=HEX(08) : RETURN 4343 B1$()=V1$() : RETURN 4344 B2$()=V1$() : RETURN 4345 B3$()=V1$() : RETURN 4346 B4$()=V1$() : RETURN 4348 ON A1(1,B9)GOTO 4349,4350,4351,4352 : B1$=HEX(08) : RETURN 4349 V1$()=B1$() : RETURN 4350 V1$()=B2$() : RETURN 4351 V1$()=B3$() : RETURN 4352 V1$()=B4$() : RETURN