image of READY prompt

Wang2200.org

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