loading_20a_20bbc_20micro_20style_20bitmap
Differences
This shows you the differences between two versions of the page.
Next revision | Previous revision | ||
loading_20a_20bbc_20micro_20style_20bitmap [2018/03/31 13:19] – external edit 127.0.0.1 | loading_20a_20bbc_20micro_20style_20bitmap [2024/01/05 00:22] (current) – external edit 127.0.0.1 | ||
---|---|---|---|
Line 2: | Line 2: | ||
| | ||
- | | + | <code bb4w> |
- | DIM beebmem% &8000 | + | |
- | F%=OPENIN(" | + | DIM beebmem% &8000 |
- | FOR memptr%=3000 TO &7FFF : REM for MODE 0,1,2 (UK) | + | F%=OPENIN(" |
- | beebmem%? | + | FOR memptr%=3000 TO &7FFF : REM for MODE 0,1,2 (UK) |
- | NEXT | + | beebmem%? |
+ | NEXT | ||
- | | + | |
- | : | + | : |
- | | + | DEF PROCbeebmode0 |
- | | + | *REFRESH OFF |
- | | + | CLS |
- | | + | VDU 5 |
- | | + | VDU 30 |
- | | + | memptr%=& |
- | | + | A$=A$+CHR$(19)+CHR$(0)+CHR$(0)+CHR$(0)+CHR$(0)+CHR$(0) |
- | | + | A$=A$+CHR$(19)+CHR$(& |
- | | + | A$=A$+CHR$(18)+CHR$(0)+CHR$(& |
- | | + | A$=A$+CHR$(18)+CHR$(0)+CHR$(& |
- | | + | PRINT ;A$; : |
- | | + | WHILE memptr%< |
- | | + | FOR J%=0 TO 7 |
- | | + | A& |
- | | + | A$=A$+CHR$(A& |
- | | + | NEXT |
- | | + | A$=CHR$(23)+CHR$(255)+A$+CHR$(255) |
- | | + | PRINT ;A$; |
- | | + | memptr%+=8 |
- | | + | A$="" |
- | | + | ENDWHILE |
- | | + | PRINT CHR$(0); |
- | | + | VDU4 |
- | | + | *REFRESH |
- | | + | *REFRESH ON |
- | | + | ENDPROC |
+ | </ |
loading_20a_20bbc_20micro_20style_20bitmap.1522502367.txt.gz · Last modified: 2024/01/05 00:17 (external edit)