image of READY prompt

Wang2200.org

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