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