home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib40b.dsk / GR.WINDOW.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  35 lines
  1. 1  REM  *
  2. 2  REM  * GR.WINDOW.DEMO
  3. 3  REM  * BY WILLIAM HUTTON
  4. 4  REM  * COPYRIGHT (C) 1991
  5. 5  REM  * MINDCRAFT PUBL. CORP.
  6. 6  REM  * CONCORD, MA 01742
  7. 7  REM  *
  8. 10  TEXT : HOME : VTAB 8: HTAB 11: PRINT "GRAPHIC WINDOW DEMO": PRINT : HTAB 12: PRINT "BY WILLIAM HUTTON": PRINT : HTAB 2: PRINT "(C) 1991 BY MINDCRAFT PUBLISHING CORP."
  9. 20  PRINT  CHR$(4);"BLOAD GRAPHIC.WINDOW": HIMEM: 36863
  10. 30  HGR2 : FOR I = 1 TO 50
  11. 40 X1 =  INT( RND(1) *279) +1:Y1 =  INT( RND(1) *191) +1
  12. 50 X2 =  INT( RND(1) *279) +1:Y2 =  INT( RND(1) *191) +1
  13. 60 C =  INT( RND(1) *7) +1
  14. 70  IF C = 4  THEN C = 3
  15. 80  HCOLOR= C
  16. 90  HPLOT X1,Y1 TO X2,Y2
  17. 100  NEXT 
  18. 110  CALL 36864,35,2,0,100,"WINDOW NUMBER ONE/THIS IS A DEMONSTRATION OF HOW/TEXT CAN BE PLACED ON THE/HI-RES SCREEN//PRESS ANY KEY TO CONTINUE."
  19. 120  POKE  -16368,0: GET A$
  20. 130  CALL 36965: REM  CLOSE WINDOW
  21. 140  FOR T = 1 TO 1500: NEXT T
  22. 150 R = 21:L = 10:T = 40:B = 100:A$ = "WINDOW 2/WHAT DID/YOU THINK/OF THAT?"
  23. 160  CALL 36864,R,L,T,B,A$
  24. 170  FOR T = 1 TO 3000: NEXT T
  25. 180  CALL 36965: REM  CLOSE IT
  26. 190  FOR T = 1 TO 1500: NEXT T
  27. 200 R = 38:L = 1:T = 10:B = 80
  28. 210 TT$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ/!#$%&'():*?><,.+;@\_[]^/0123456789"
  29. 220 TT$ = TT$ +"/abcdefghijklmnopqrstuvwxyz"
  30. 230 TT$ = "WINDOW NUMBER THREE/" +TT$
  31. 240  CALL 36864,R,L,T,B,TT$ +"//PRESS ANY KEY TO CONTINUE."
  32. 250  POKE  -16368,0: GET A$
  33. 260  CALL 36965
  34. 270  FOR I = 1 TO 1500: NEXT I
  35. 280  TEXT : HOME : END