home *** CD-ROM | disk | FTP | other *** search
/ Emulator Universe CD / emulatoruniversecd1998.iso / MSX / ROMs / DISK / DIVSE1.DSK / EGGLAND2.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-10-14  |  256 b   |  9 lines
  1. 10  ONSTOPGOSUB70:STOPON:ONEDITGOTO80
  2. 20  BEEP5:MERGE15,0,0:BEEP5
  3. 30  SPC(PAGE0,1:STRING$"EGGLAND2.008"'(0,0)
  4. 40  FORAOR2'9:MERGEOR(A,0,0,0):NEXTA:MERGEOR(15,7,7,0):MERGEOR(14,4,0,0):MERGEOR(13,2,2,1)
  5. 50  SPC(PAGE0,0:STRING$(0,0)IMP(256,212),1'(0,0),0
  6. 60  POKE&HF677,&HC0:POKE&HF676,1:POKE&HC000,0:RUN"EGGLAND2.007"
  7. 70  RETURN
  8. 80  BEEP0:PRINT"LEES FOUT....":NEW
  9.