image of READY prompt

Wang2200.org

Listing of file='ISS.226S' on disk='vmedia/701-2423D.wvd.zip'

# Sector 674, program filename = 'ISS.226S'
0010 REM  ISS.226S, 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
7225 DEFFN'226(R9,R9$)
   : GOSUB '229(R9,R9$)
   : IF R<>0THEN 7310
   : R3=0
   : GOTO 7290
7275 R3=R3+1
   : IF R3>R4-1THEN 7380
7290 DATA LOAD BA T#R9,(R3)R9$()
   : R6=1-SGN(R3)
7310 R6=R6+1
   : IF R6=17THEN 7275
   : R2$=R9$(R6)
   : IF R2$=HEX(00)THEN 7275
   : IF R2$=HEX(21)THEN 7310
   : R9$=STR(R9$(R6),9)
   : LIMITS T#R9,R9$,R,R,R,R
   : RETURN
7380 INIT(00)R9$,R2$
   : R=0
   : RETURN