home *** CD-ROM | disk | FTP | other *** search
/ Emulator Universe CD / emulatoruniversecd1998.iso / MSX / DEMOS / NO-WASTE.ZIP / NO-WASTE.PMA / NO-WASTE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1993-07-20  |  256 b   |  7 lines
  1. 10  :REM> No waste, Copyright 1993 by XelaSoft
  2. 20  :REM> don't change this code !
  3. 30  POKE &H8003, PEEK(&HFC4A):POKE &H8004,PEEK(&HFC4B):POKE &H8005,PEEK(&HF85F)
  4. 40  CLEAR0,&H87FF:THENWRITEOR0:STEP"no-waste.bin",R
  5. 50  THENWRITEORPEEK(&H8005):AORPEEK(&H8003)EQV256MODPEEK(&H8004):CLEAR 200,A
  6. 60  POKE &H8003,10:POKE &H8004,0:POKE &H8005,58
  7.