Listing of file='ISS.200S' on disk='vmedia/701-2424C.wvd.zip'
# Sector 141, program filename = 'ISS.200S' 0010 REM ISS.200S, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC. 0076 DIM Q$(2)64,Q6$64,Q5$64,U,Q4,Q5,Q6,Q7,Q8,Q9 6814 DEFFN'200(Q$(1),Q$(2),U,Q4,Q5$,Q5) : Q6=Q9 : SELECT PRINT 005 : IF Q5$<>" "THEN PRINT AT(1,0);Q5$;TAB(80) 6842 KEYIN Q5$,6842,6842 6850 Q7=U-(Q4+2)*(INT(ABS(Q5)/2)-1) : IF U+Q4=0AND Q5<2THEN Q7=19 : IF U+Q4=0AND Q5>1THEN Q7=64 : PRINT AT(2,0);TAB(80);AT(2,0); : IF Q5>-1AND Q5<3THEN 6894 : STR(Q6$,Q7+1)=" " : LINPUT STR(Q6$,1,Q7) : GOTO 6902 6894 Q6$=" " : LINPUT ?STR(Q6$,1,Q7) 6902 IF Q5>=2THEN 6994 : IF Q5=0AND Q6$=" "THEN 6978 : IF Q$()=" "THEN 6938 : CONVERT Q$(1)TO Q7 : CONVERT Q$(2)TO Q8 6938 IF LEN(Q6$)<>NUM(STR(Q6$,1,LEN(Q6$)))THEN 7022 : CONVERT Q6$TO Q9 : IF U+Q4=0THEN 6966 : IF ABS(Q9)>=10^ABS(U)OR INT(Q9*10^Q4)<>Q9*10^Q4THEN 7022 6966 IF Q$()=" "THEN 6978 : IF Q9<Q7OR Q9>Q8THEN 7022 6978 PRINT AT(1,0);TAB(80);TAB(80);TAB(80) : RETURN 6994 IF Q$()=" "THEN 6978 : IF Q4=0AND Q$(1)<=Q6$AND Q$(2)>=Q6$THEN 6978 : IF Q4=0THEN 7010 : MAT SEARCHSTR(Q$(),,(INT((LEN(Q$())-1)/U)+1)*U),=STR(Q6$,,U)TO Q5$STEP U : Q9=INT((VAL(Q5$,2)-1)/U)+1 : IF Q9>0THEN 6978 7010 GOSUB 7050 : GOTO 6850 7022 IF Q$()=" "THEN 7010 : Q5$=ALL("d") : STR(Q5$,U+1,1)="." : PRINT AT(3,0);TAB(80);AT(3,0);HEX(07);"RE-ENTER ";Q7;"<= X <=";Q8;"(";S TR(Q5$,1,U+Q4+1);")" : Q9=Q6 : GOTO 6850 7050 DEFFN'255 : PRINT HEX(07);AT(3,0);"RE-ENTER";TAB(80) : RETURN