home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Go64!
/
Go64_1999-04_1999_CSW_Side_A.d64
/
el
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
384b
|
15 lines
0 rem ;
1 rem ; el cheapo assembler
2 rem ; v1.0
3 rem ; s. l. judd 2/99
4 rem ;
10 a=a+1:x=peek(186)
20 if a=1 then poke 820,0:poke 821,132:load"ajam$8400",x,1
30 if a=2 then load"cheap.o",x,1
32 :
34 rem lower top of basic to $83ff
35 poke 55,255:poke 56,131:clr
39 :
40 poke 38401,1:rem swap bank
50 sys 38400