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