home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Set of Apple II Hard Drive Images
/
eric.hdv
/
TEST
/
LORESMON.BAS
< prev
next >
Wrap
BASIC Source File
|
2020-08-13
|
239b
|
6 lines
10 PRINT CHR$(4)"BLOAD LORES.MAP,A$2000"
20 PRINT CHR$(4)"BLOAD LORESMON.OBJ,A$6000"
30 HOME : GR : POKE 12 *4096 +5 *16 +2,0
40 FOR X = 0 TO 39: POKE 1616 +X,0: POKE 1744 +X,0: POKE 1872 +X,0: POKE 2000 +X,0
45 NEXT
50 CALL 24576