home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / PRO.BYTER.SHK / PRO.BYTER / SCRAMBLED.BASIC.bas < prev    next >
BASIC Source File  |  2000-01-01  |  1KB  |  14 lines
  1. 90  PRINT  CHR$(21): GOTO 300
  2. 100  CLEAR : ON X = 0 TO 39: SPEED= X: XDRAW 0,39 AT X: GOSUB 0,39 AT X: RESUME X
  3. 200  VTAB 21: HTAB 1: CALL  -958: PRINT " THIS PATTERN WAS CREATED BY LINE 100,   USING SCRAMBLED COMMANDS (SEE PAGE 39). YOU CAN RUN 999 TO UNSCRAMBLE THEM.             -------";: VTAB 23: END 
  4. 300  REM <CTRL-J><CTRL-J>SCRAMBLE.BASIC<CTRL-J>
  5. 310  POKE 47190,136: REM  "MAKES 'CLEAR' WORK LIKE 'GR'
  6. 320  POKE 47181,129: REM  "MAKES 'ON' WORK LIKE 'FOR'
  7. 330  POKE 47170,160: REM  "MAKES 'SPEED=' WORK LIKE 'COLOR='
  8. 340  POKE 47150,142: REM  "MAKES 'XDRAW' WORK LIKE 'HLIN'
  9. 350  POKE 47177,143: REM  "MAKES 'GOSUB' WORK LIKE 'VLIN'
  10. 360  POKE 47167,130: REM  "MAKES 'RESUME' WORK LIKE 'NEXT'
  11. 370  GOTO 100: REM THESE POKES HAVE NO EFFECT ON COMMANDS TYPED DIRECTLY FROM THE KEYBOARD.
  12. 998  REM <CTRL-J><CTRL-J>UNSCRAMBLE.BASIC<CTRL-J>
  13. 999  POKE 47190,189: POKE 47181,180: POKE 47170,169: POKE 47150,149: POKE 47177,176: POKE 47167,166
  14. 1000  GR : FOR X = 0 TO 39: COLOR= X: HLIN 0,39 AT X: VLIN 0,39 AT X: NEXT X: HOME : PRINT : PRINT "(SAME PATTERN WITH PROPER COMMANDS)": END