image of READY prompt

Wang2200.org

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

# Sector 645, program filename = 'ISS.205S'
0010 REM  ISS.205S, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC.
0084 DIM W3$3,W2$2,Q$1,R,R1
8875 DEFFN'205(R,W3$,R1)
   : Q$=" "
   : MAT SEARCH"310320330350360370B10B20B30B50B60B70D10D11D12D13D14D15D20D21D2
     2D23D24D25D30D31D32D33D34D35D50D51D52D53D54D55D60D61D62D63D64D65D70D71D72
     D73D74D75",=STR(W3$,,3)TO W2$STEP 3
   : IF R1<>0AND R1<>1OR R<0OR R>15THEN Q$="X"
   : IF W2$=HEX(0000)THEN Q$="I"
8915 IF R1=0OR Q$<>" "THEN RETURN
   : SELECT #R<W3$>
   : RETURN