image of READY prompt

Wang2200.org

Listing of file='SUB-003A' on disk='vmedia/701-2047D.wvd.zip'

# Sector 422, program filename = 'SUB-003A'
0010 REM SUB-003A,00-00(11/08/76),12003A - COPYRIGHT WANG LABS. INC., 1976
0050 GOSUB '99
9440 DEFFN'227(R9,R9$,R1)
   : GOSUB '229(R9,R9$)
   : IF R2$=HEX(00)THEN 9640
   : LIMITS T#R9,R9$,R2,R3,R0
   : DATA LOAD BA T#R9,(0,R4)R9$()
   : AND (STR(R9$(1),3,1),7F)
   : R4=VAL(STR(R9$(1),3,1))*256+VAL(STR(R9$(1),4,1))
   : IF R4-1<>R3THEN 9625
9500 IF R2+R0+R1-1>=R3THEN 9610
   : R2,R4=R2+R1+R0-1
   : DATA LOAD BA T#R9,(R3,R3)R9$()
   : DATA SAVE BA T#R9,(R4,R3)R9$()
   : GOSUB '229(R9,R9$)
   : R4=R2
   : BIN(STR(R9$(R6),5,1))=INT(R4/256)
   : BIN(STR(R9$(R6),6,1))=R4-INT(R4/256)*256
9550 DATA SAVE BA T#R9,(R3,R3)R9$()
   : DATA LOAD BA T#R9,(0,R3)R9$()
   : BIN(STR(R9$(1),3,1))=INT((R4+1)/256)
   : BIN(STR(R9$(1),4,1))=R4+1-INT((R4+1)/256)*256
   : DATA SAVE BA T#R9,(0,R3)R9$()
   : R2$="0"
   : RETURN
9610 R2$="1"
   : RETURN
9625 R2$="2"
   : RETURN
9640 R2$="3"
   : RETURN