Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 4867 | leency | 1 | |
| 2 | 1 |
||
| 3 | BEGIN |
||
| 4 | NextWord DUP |
||
| 5 | IF |
||
| 6 | 2DUP S" [IF]" COMPARE 0= IF 2DROP 1+ ELSE |
||
| 7 | 2DUP S" [ELSE]" COMPARE 0= IF 2DROP 1- DUP IF 1+ THEN ELSE |
||
| 8 | S" [THEN]" COMPARE 0= IF 1- THEN |
||
| 9 | THEN THEN |
||
| 10 | ELSE 2DROP REFILL AND \ SOURCE TYPE |
||
| 11 | THEN DUP 0= |
||
| 12 | UNTIL DROP ; IMMEDIATE |
||
| 13 | |||
| 14 | |||
| 15 | |||
| 16 | |||
| 17 | |||
| 18 | |||
| 19 | [IF] |
||
| 20 | : \S \ comment to end of file |
||
| 21 | SOURCE-ID FILE-SIZE DROP |
||
| 22 | SOURCE-ID REPOSITION-FILE DROP |
||
| 23 | [COMPILE] \ ; IMMEDIATE |
||
| 24 | [THEN] |
||
| 25 |