1 REM .---------------------------------------------------------------------.
2 REM | PITICO v0.1 (preview build) - Sample: PREC TEST                     |
3 REM | Since the current version does not support loading code from files, |
4 REM | you can do the following to run this code in PITICO:                |
5 REM | 1. Copy everything from this file to the clipboard;                 |
6 REM | 2. Reset the interpreter's memory (CLEAR statement);                |
7 REM | 3. Paste the clipboard contents inside PITICO;                      |
8 REM | 4. Call RUN statement.                                              |
9 REM '---------------------------------------------------------------------'
10 P=0
20 Q=15
30 INPUT "X? ", X
40 INPUT "Y? ", Y
50 PREC P
60 PRINT "PREC: "
70 PREC
80 INC P
90 PRINT "X=", X, ", Y=", Y,
100 IF P<Q GOTO 50
110 PREC P
120 PRINT "PREC: "
130 PREC
140 DEC P
150 PRINT "X=", X, ", Y=", Y,
160 IF P<0 END ELSE GOTO 110
