home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib25a.dsk / OCTOBER.1985 / WINDOW.DEMO2.bas < prev    next >
BASIC Source File  |  2023-02-26  |  967b  |  19 lines
  1. 10  REM **********************
  2. 20  REM *    WINDOW.DEMO2    *
  3. 30  REM *    BY PAUL NICK    *
  4. 40  REM * COPYRIGHT (C) 1985 *
  5. 50  REM * BY MICROSPARC, INC *
  6. 60  REM * CONCORD, MA  01742 *
  7. 70  REM **********************
  8. 80  PRINT  CHR$(4);"BLOAD WINDOW.MAGIC": POKE 38398,0: POKE 38399,72: CALL 35816
  9. 90  IF  PEEK(48896) = 76  THEN  POKE 115,0: POKE 116, PEEK(116) -4
  10. 100  REM  REMOVE 'REM' FROM ABOVE LINE FOR PRODOS
  11. 110  REM     THE ABOVE BLOADS WINDOW MAGIC AND CHANGES MEMBOT TO $6000 BEFORE RUNNING IT WITH A CALL.
  12. 120  &  DEF 100,0,96,96,32: &  ON 0: &  VTAB 12: &  HTAB 12: &  PRINT "WAIT ONE MOMENT": &  ON 1
  13. 130  FOR X = 1 TO 1980: &  PRINT X" ";: NEXT 
  14. 140  &  GOTO 0,0: &  ON 0: &  HOME : &  VTAB 12: &  HTAB 12: &  PRINT "BIG WINDOW DEMO": &  ON 1
  15. 150  FOR X = 0 TO 255: &  GOTO X,0: IF X = 40  THEN X = 150
  16. 160  NEXT : &  GOTO 0,0
  17. 170  FOR X = 0 TO 255: &  GOTO 0,X: IF X = 25  THEN X = 150
  18. 180  NEXT : &  GOTO 0,0
  19. 190  FOR X = 1 TO 2000: NEXT : HOME : END