Listing of file='ISS.200S' on disk='vmedia/701-2423D.wvd.zip'
# Sector 636, 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