home *** CD-ROM | disk | FTP | other *** search
/ Maclife ROM / LIFE_ROM_2-1993-11-05.ISO.7z / LIFE_ROM_2-1993-11-05.ISO / M-CHALLENGE / ORGO / iW(BRAIN) / iW(BRAIN).rsrc / BITD_1071.bin (.txt) < prev    next >
AmigaBASIC Source Code  |  1993-06-30  |  412b  |  6 lines
  1.                                                                                                                                                  n                                                                                                              <0x7e>FIELD/
  2. 2*>GOTOFIELDGOTOFIELD*<0x48>'<0x48><0x48>''XORFIELDGOTOFIELDGOTO>*MOD
  3. 42393XOR'INKEY$<0x48>INKEY$'<0x48>LINEWEND<0x48>AREAGOTO<0x7e>'INKEY$MID$INKEY$<0x8f,0x00>8'<0x4c>XORAREA<0x48>FIELD'<0x48>AREACVLCVLFIELD'<0x48>n<0x48>'FIELDCVLCVL<0x48>'<0x48>*I'<0x7f>
  4. <0x7e>
  5. <0xd37725>'LET>AREA<0x48>AREAMID$GOTOINKEY$LETGOTOnCVLlnCVLFIELDGOTONOTGOTOAREAMID$GOTOAREAAREA>MID$'<0x7e>
  6. <0xd37744>NOTNOT>AREA<0x48>NOTGOTOCVLGOTOGOTOFIXGOTO<0x7c>NOT8'nELSEGOTOFIELDFIELDCVLGOTO<0x48><0x48>>NOT