Commit | Line | Data |
---|---|---|
47def37e JM |
1 | GOTO MAIN |
2 | ||
3 | REM $INCLUDE: 'readline.in.bas' | |
4 | ||
9d59cdb3 JM |
5 | REM $INCLUDE: 'debug.in.bas' |
6 | ||
b7b1787f | 7 | REM READ(A$) -> R$ |
47def37e JM |
8 | MAL_READ: |
9 | R$=A$ | |
10 | RETURN | |
11 | ||
cc9dbd92 | 12 | REM EVAL(A$, E) -> R$ |
93593012 | 13 | EVAL: |
b7b1787f | 14 | R$=A$ |
93593012 | 15 | RETURN |
47def37e | 16 | |
b7b1787f | 17 | REM PRINT(A$) -> R$ |
47def37e | 18 | MAL_PRINT: |
b7b1787f | 19 | R$=A$ |
47def37e JM |
20 | RETURN |
21 | ||
b7b1787f | 22 | REM REP(A$) -> R$ |
93593012 | 23 | REP: |
b7b1787f | 24 | GOSUB MAL_READ |
93593012 | 25 | A=R:GOSUB EVAL |
cc9dbd92 | 26 | A=R:GOSUB MAL_PRINT |
93593012 | 27 | RETURN |
47def37e | 28 | |
b7b1787f | 29 | REM MAIN program |
47def37e | 30 | MAIN: |
9e8f5211 | 31 | REPL_LOOP: |
60ef223c | 32 | A$="user> ":GOSUB READLINE: REM call input parser |
01975886 | 33 | IF EZ=1 THEN GOTO QUIT |
9e8f5211 | 34 | |
93593012 | 35 | A$=R$:GOSUB REP: REM call REP |
9e8f5211 | 36 | |
b7b1787f | 37 | PRINT R$ |
9e8f5211 | 38 | GOTO REPL_LOOP |
b7b1787f | 39 | |
9e8f5211 | 40 | QUIT: |
9d59cdb3 | 41 | REM GOSUB PR_MEMORY_SUMMARY_SMALL |
115e430d JM |
42 | #cbm END |
43 | #qbasic SYSTEM | |
47def37e | 44 |