image of READY prompt

Wang2200.org

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

# Sector 416, program filename = 'SUB-002A'
0010 REM SUB-002A,00-00(02/18/76),12003A - COPYRIGHT WANG LABS. INC., 1976
0050 GOSUB '99
9300 DEFFN'228(R9,R9$,R1)
   : GOSUB '229(R9,R9$)
   : ON VAL(R2$)-15GOTO 9625,9640
   : R2$="0"
   : DATA LOAD BA T#R9,(0,R3)R9$()
   : AND (STR(R9$(1),3,1),7F)
   : R2=VAL(STR(R9$(1),3,1))*256+VAL(STR(R9$(1),4,1))
   : AND (STR(R9$(1),5,1),7F)
9360 R3=VAL(STR(R9$(1),5,1))*256+VAL(STR(R9$(1),6,1))
   : IF R3-R2<R1+2THEN 9610
   : DATA SAVE DC OPEN T#R9,(R3-R2),R9$
   : RETURN
9610 R2$="1"
   : RETURN
9625 R2$="2"
   : RETURN
9640 R2$="3"
   : RETURN