home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib24b.dsk / TRANSLATOR.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  25 lines
  1. 10  REM  ************************
  2. 20  REM  *   TRANSLATOR.DEMO    *
  3. 30  REM  *    BY BOB DEVINE     *
  4. 40  REM  *  COPYRIGHT (C) 1985  *
  5. 50  REM  *  BY MICROSPARC, INC  *
  6. 60  REM  *  CONCORD, MA. 01742  *
  7. 70  REM  ************************
  8. 80 S% = 0:T% = 0:B% = 0:R% = 0:L% = 0: REM  SETUP VARIABLES
  9. 90  POKE 1013,76: POKE 1014,7: POKE 1015,143: REM  SET AMPERJUMP TO $8F07
  10. 100  PRINT  CHR$(4)"BLOAD BLOCK.ROUTINES"
  11. 110  PRINT  CHR$(4)"BLOAD GW.TRANSLATOR"
  12. 120  HIMEM: 35328: CALL 37799: REM  PROTECT AND SETUP YTABLE. HIMEM MAY BE 36478 UNDER DOS 3.3
  13. 130  HGR : HCOLOR= 3: FOR X = 1 TO 13: HPLOT X,1 TO X,14: NEXT X
  14. 140  & SCAN142,0,15,1,0: REM  CREATE SHAPE #142
  15. 150  HGR : REM  CLEAR THE SCREEN
  16. 160 S% = 142:T% = 0:B% = 15:R% = 1:L% = 0: REM  SET VARIABLE VALUES
  17. 170  & DRAUS,T,B,R,L: REM  DRAW THE SHAPE
  18. 180 R% = R% +1: REM  PUT AN EMPTY BYTE AHEAD
  19. 190  FOR X = 1 TO 35: FOR Y = 1 TO 7: & SFTRT,B,R,L: NEXT Y: & MOVR: NEXT X: REM  MOVE IT RIGHT
  20. 200  FOR X = 1 TO 140: & SFTDT,B,R,L: & INCD: NEXT X: REM  MOVE IT DOWN
  21. 210  & MOVL: REM  PUT EMPTY BYTE AHEAD
  22. 220  FOR X = 1 TO 35: FOR Y = 1 TO 7: & SFTLT,B,R,L: NEXT Y: & MOVL: NEXT X: REM  MOVE IT LEFT
  23. 230  FOR X = 1 TO 140: & SFTUT,B,R,L: & INCU: NEXT X: REM  MOVE IT UP
  24. 240  IF  PEEK( -16384) <128  THEN 190
  25. 250  POKE  -16368,0: TEXT : HOME : END