Initialze text mode & fix possible roundoff error
This commit is contained in:
parent
b6dc97f1d0
commit
92080780bb
|
@ -13,7 +13,7 @@
|
|||
1113 MD=INT((X/Y-INT(X/Y))*Y+.5):RETURN
|
||||
1114 DIV=INT(X/Y+.5):RETURN
|
||||
1115 LET R=RND(-1)
|
||||
1116 PR#3:PRINT CHR$(17);CHR$(12);
|
||||
1116 TEXT:PR#3:PRINT CHR$(17);CHR$(12);
|
||||
1117 DIM A(590)
|
||||
1120 REM LBL C
|
||||
1130 GOSUB 3410:REM CLS
|
||||
|
@ -119,7 +119,7 @@
|
|||
2020 IF 5=C THEN LET R=I*J:GOTO 2040:REM ENDIF
|
||||
2030 IF 6=C THEN LET R=INT(I/J):REM ENDIF
|
||||
2040 REM LBL ENDIF
|
||||
2050 IF R<>A GOTO 2140:REM WRONG
|
||||
2050 IF ABS(R-A)>1E-6 GOTO 2140:REM WRONG
|
||||
2060 PRINT "RIGHT! ";
|
||||
2070 X=TF:Y=100:GOSUB 1113
|
||||
2075 IF 0>=MD GOTO 2100:REM ENDIF
|
||||
|
|
Loading…
Reference in New Issue