image of READY prompt

Wang2200.org

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

# Sector 207, program filename = 'ISS.228S'
0010 REM  ISS.228S, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC.
0078 DIM R9$(16)16,R9$8,R2$1,R1,R3,R9
7395 DEFFN'228(R9,R9$,R1)
   : LIMITS T#R9,R9$,R3,R3,R3,R3
   : ON R3+3GOTO 7525,7525,7425,7510,7510
7425 R2$="0"
   : DATA LOAD BA T#R9,(0)R9$()
   : R3=VAL(STR(R9$(),5,2),2)-VAL(STR(R9$(),3,2),2)
   : IF R3<ABS(R1)+2THEN 7495
   : IF R1<0THEN R3=-R1+2
   : DATA SAVE DC OPEN T#R9,(R3),R9$
   : RETURN
7495 R2$="1"
   : RETURN
7510 R2$="2"
   : RETURN
7525 R2$="3"
   : RETURN