1 REM .---------------------------------------------------------------------.
2 REM | PITICO v0.1 (preview build) - Sample: FIRST 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 PRINTLN "[BEGIN]"
20 A = 200
30 X = 0
40 Y = 3
50 Z = 5
60 X = X + 1
70 PRINT X,
80 IF X == Y THEN GOSUB A
90 IF X < Z THEN GOTO 60
100 PRINTLN "[END]"
110 END
200 PRINTLN "GOT HERE FROM LINE 80."
210 Z = Z * 2
220 RETURN
230 PRINTLN "I'M NEVER REACHED!"
