qbasic代码

table:
pinc=nprint+pinc
PRINT USING" #.###";z(i);
PRINT USING" ###.##"; tsat(i); : PRINT USING" #.####^^^"; hfg(i), q(i);
PRINT USING" ###.###";qsum;
PRINT USING" #.#####"; bigx(i),mach(i)
looper:
NEXT i
END
SUB sattemp(p,t0,ts) STATIC
SHARED epps2
ts=t0 :ncount=0
GOTO tloop
tcont3:
PRINT"max. iteration count criteria (100), exceeded"
PRINT" continue with relaxed convergance criteria?"
INPUT" enter new value(negative #=stop)";epps2
IF epps2 <=0! THEN STOP
ncount = 0
tloop:
ncount= ncount+1
GOTO poode
tcont2:
tsnew=ts-(p0-p) /p0prime
IF ABS((tsnew-ts)/ts)<epps2 THEN GOTO tcont1
IF ncount>100 THEN GOTO tcont3
ts=tsnew
GOTO tloop