image of READY prompt

Wang2200.org

Listing of file='ISS.227S' on disk='vmedia/701-2424C.wvd.zip'

# Sector sector 200, program filename = 'ISS.227S'
0010 REM  ISS.227S, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC.
0077 DIM R9$(16)16,R9$8,R2$1,R,R3,R4,R5,R6,R9
   : DIM R2
7555 DEFFN'227(R9,R9$,R6)
   : LIMITS T#R9,R9$,R2,R3,R5,R
   : IF R=0THEN 7835
   : R2=R2+R6+R5-1
   : IF R2>=R3THEN 7805
   : DATA LOAD BA T#R9,(0)R9$()
   : R4=VAL(STR(R9$(1),3,2),2)
   : IF R4-1=R3THEN STR(R9$(1),3,2)=BIN(R2+1,2)
   : DATA SAVE BA T#R9,(0)R9$()
   : DATA LOAD BA T#R9,(R3)R9$()
   : DATA SAVE BA T#R9,(R2)R9$()
   : GOSUB '229(R9,R9$)
   : STR(R9$(R6),5,2)=BIN(R2,2)
   : DATA SAVE BA T#R9,(R3)R9$()
7775 R2$="0"
   : RETURN
7805 R2$="1"
   : RETURN
7835 R2$="3"
   : RETURN