Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 165 | savelij | 1 | |
| 2 | ; LAST UPDATE: 13.01.2024 savelij |
||
| 3 | |||
| 4 | include macros.a80 |
||
| 5 | include basic_tokens.a80 |
||
| 6 | |||
| 7 | ORG 0x0100 - 0x11 |
||
| 8 | SUM_HOB "npl B", BASIC_FULL, BASIC_FULL, 1 |
||
| 9 | |||
| 10 | BASIC_START DW 0x100,BASIC_END-STROKA1 + 1 |
||
| 11 | STROKA1 DB __CLEAR,__VAL,"\"24575\":" ;CLEAR VAL "ADDRESS": |
||
| 12 | DB __LOAD,"\"\"",__CODE,__VAL,"\"33024\":" |
||
| 13 | DB __RANDOMIZE,__USR,__VAL,"\"33024\"" ;RANDOMIZE USR VAL "ADDRESS" |
||
| 14 | |||
| 15 | BASIC_END DB 0x0D,0x80,0xAA |
||
| 16 | DW 1 ; |
||
| 17 | |||
| 18 | BASIC_FULL EQU BASIC_END - BASIC_START + 1 |
||
| 19 | |||
| 20 | DUPL LOW (-$) |