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