home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / gwbasic / misbasic / redefkey.bas < prev    next >
Encoding:
BASIC Source File  |  1988-09-26  |  839 b   |  16 lines
  1. 230 CLS:KEY ON :WIDTH 80:K=0:DIM K$(5):FOR Z=1 TO 5:READ K$(Z):NEXT:GOSUB 300
  2. 240 WD$=""
  3. 250 B$=A$:A$=INKEY$:IF A$="" AND B$="" THEN 250 ELSE IF A$>"" THEN WD$=WD$+A$:GOTO 250
  4. 260 WD$=LEFT$(WD$,6):P=INSTR(K$(K),WD$):IF (P-1)/5=INT(P-1)/5 THEN 270
  5. 270 IF WD$="NEXT  " THEN GOSUB 300:GOTO 240
  6. 280 IF WD$="EXIT  "THEN 370
  7. 290 LOCATE 12,1:PRINT "THIS IS ";WD$:GOTO 240
  8. 300 K=K+1:IF K>5 THEN K=1
  9. 310 FOR Z=1 TO 10:KEY Z,MID$(K$(K),(Z-1)*6+1,6):NEXT:RETURN
  10. 320 DATA "LIST  RUN   SAVE  LOAD  EDIT  PRINT INPUT SYSTEMEXIT  NEXT  "
  11. 330 DATA "BLACK BLUE  GREEN CYAN  RED   MAGENTBROWN WHITE EXIT  NEXT  "
  12. 340 DATA "SQUARECIRCLERECT. TRIAGLPOLYGNHEXAGNFLIP  ROTATEEXIT  NEXT  "
  13. 350 DATA "ZOOMINZOOMOT  LEFTRIGHT GO    STOP  FASTERSLOWEREXIT  NEXT  "
  14. 360 DATA "HIDE  JUMP  SWIM  LOOK  FOND  SHOOT INVENTTALK  EXIT  NEXT  "
  15. 370 CLS:END
  16.