home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mail Madness! 35
/
Mail_Madness_35_2002_-_Side_B.d64
/
el
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
296b
|
15 lines
0 rem ;
1 rem ; el cheapo assembler
2 rem ; v1.4
3 rem ; s. l. judd 11/99
4 rem ;
10 a=a+1:x=peek(186)
20 if a=1 then poke 820,0:poke 821,128:load"ajam2-$8000",x,1
30 if a=2 then load"cheap.o",x,1
32 :
34 rem lower top of basic to $7fff
35 poke 55,255:poke 56,127:clr
39 :
40 poke 38401,1:rem swap bank
50 sys 38400