1 REM .---------------------------------------------------------------------.
2 REM | PITICO v0.1 (preview build) - Sample: RELATIONAL OPERATORS 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 INPUT "Value of X (positive): ", X
20 IF X < 0 THEN END
30 INPUT "Value of Y (positive): ", Y
40 IF Y < 0 THEN END
50 GOSUB 100
60 GOTO 10
100 IF X = Y THEN PRINTLN "X = Y" ELSE IF X > Y THEN PRINTLN "X > Y" ELSE IF X < Y THEN PRINTLN "X < Y"
110 IF X <> Y THEN PRINTLN "X <> Y"
120 RETURN
