The
Past
Master
Club
ZX81
ZX81
| 10 |
REM 
| ||
|---|---|---|---|
| 20 | PRINT "ENTER 200 REM; THEN GOTO 11" | ||
| 30 | STOP | ||
| 40 | INPUT N | ||
| 50 | FAST | ||
| 60 | LET D=PEEK16396+256*PEEK16371-2 | ||
| 70 | FOR I=1 T0 N | ||
| 80 | POKE16515, INT((D+I)/256) | ||
| 90 | POKE16514, D+I-256*PEEK16515 | ||
| 100 | RAND USR 16516 | ||
| 110 | POKE D+I,27 | ||
| 120 | NEXT I | ||
| 130 | POKE D-1, INT((N+2)/256) | ||
| 140 | POKE D-2, N+2-256*PEEK(D-1) | ||
| 150 | STOP | ||
|
USEFUL: SPARE MEMORY
LET N=PEEK16836+256*PEEK16837 - PEEK16412 -256*PEEK15413 | |||
| DESCRIPTION OF MACHINE CODE IN REM LINE 10 | |||
| 16514 | 1 | | SPARE MEMORY | |
| 16515 | 2 | | SPARE MEMORY | |
| 16516 |
E, , RND
| LET HL=16514 | |
| 16519 |
LN, . , 
| CALL 1559 | |
| 16522 | TAN | RETURN | |
| NOW YOU CAN INSERT YOUR NEW PROGRAM REQUIRING YOUR LARGE 'REM' | |||
| 1. | DELETE ALL LINES EXCEPT 200 | ||
| 2. | POKE16510, 0 - DOESN'T EDIT | ||
| 3. | POKE16515, 118 | HIDES REM | ||
| 4. | POKE16514, 118 | HIDES REM [too large] | ||