home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib28b.dsk / SHOW.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  3KB  |  85 lines
  1. 10  REM **********************
  2. 20  REM * SHOW.DEMO          *
  3. 30  REM * BY STEPHEN LEW     *
  4. 40  REM * COPYRIGHT (C) 1986 *
  5. 50  REM * BY MICROSPARC, INC *
  6. 60  REM * CONCORD, MA  01742 *
  7. 70  REM **********************
  8. 80  IF  PEEK(104) < >64  THEN  POKE 103,1: POKE 104,64: POKE 16384,0: PRINT  CHR$(4)"RUNSHOW.DEMO"
  9. 90  PRINT  CHR$(4)"BLOADCHAR.SET"
  10. 100  PRINT  CHR$(4)"BRUNSHOW"
  11. 110  &  NEW " STANDARD HIRES OUTPUT WINDOWS (SHOW)",1,38,2,23
  12. 120  POKE 32,2: POKE 33,36: POKE 34,3: POKE 35,22: &  HOME 
  13. 130  VTAB 22: PRINT "S.H.O.W." TAB( 14)"WRITTEN BY STEPHEN LEW"
  14. 140  PRINT "COPYRIGHT 1986 BY MICROSPARC, INC."
  15. 150  VTAB 4: HTAB 1: PRINT "WELCOME TO SHOW,"
  16. 160  PRINT : PRINT "A HIRES GRAPHICS-WINDOW PROGRAM."
  17. 170  VTAB 10: PRINT "THIS PROGRAM IS DESIGNED TO ALLOW"
  18. 180  PRINT : PRINT "YOU TO INCORPORATE PROFESSIONAL-"
  19. 190  PRINT : PRINT "LOOKING WINDOWS INTO YOUR PROGRAMS!"
  20. 200  PRINT 
  21. 210  PRINT : GOSUB 840
  22. 220  &  STORE 2,15,3,10
  23. 230  PRINT "FIRST, YOU NEED";
  24. 240  PRINT "TO INITIALIZE"
  25. 250  PRINT "THE SYSTEM WITH"
  26. 260  INVERSE : PRINT "&NEW A$,L,W,T,B": NORMAL 
  27. 270  GOSUB 840
  28. 280  &  RESTORE : &  STORE 19,19,3,10
  29. 290  PRINT "ONCE EVERYTHING IS"
  30. 300  PRINT "INITIALIZED, THE": PRINT "COMMANDS:";
  31. 310  INVERSE : PRINT "&DRAW";: NORMAL : PRINT " AND"
  32. 320  INVERSE : PRINT "&STORE";: NORMAL : PRINT " CAN BE USED"
  33. 330  PRINT "TO OPEN UP A WINDOW";
  34. 340  PRINT "ON THE SCREEN."
  35. 350  GOSUB 840
  36. 360  &  RESTORE : &  STORE 2,10,10,15
  37. 370  PRINT "THESE TWO COMMANDS"
  38. 380  PRINT "ARE ALMOST";
  39. 390  PRINT "THE SAME "
  40. 400  PRINT "EXCEPT...";
  41. 410  GOSUB 850
  42. 420  &  RESTORE : &  STORE 13,18,10,16
  43. 430  INVERSE : PRINT "&STORE";: NORMAL : PRINT " ALLOWS YOU"
  44. 440  PRINT "TO RESTORE THE OLD";
  45. 450  PRINT "WINDOW WITH THE"
  46. 460  PRINT "COMMAND: ";: INVERSE : PRINT "&RESTORE": NORMAL 
  47. 470  PRINT : GOSUB 840
  48. 480  &  RESTORE : &  STORE 2,17,15,22
  49. 490  PRINT "ONE FINAL COMMAND"
  50. 500  INVERSE : PRINT "&HOME";: NORMAL : PRINT " IS USED TO"
  51. 510  PRINT "CLEAR THE HIRES"
  52. 520  PRINT "WINDOW."
  53. 530  PRINT : GOSUB 840
  54. 540  &  RESTORE : &  DRAW 9,21,5,10
  55. 550  PRINT "NOW THAT YOU KNOW THE";
  56. 560  PRINT "COMMANDS, HERE'S WHAT";
  57. 570  PRINT "YOU CAN DO..."
  58. 580  PRINT : GOSUB 840
  59. 590  FOR I = 1 TO 10
  60. 600  &  STORE I +4,5,I +3,I +8: PRINT I
  61. 610  FOR J = 1 TO 500: NEXT 
  62. 620  NEXT 
  63. 630  FOR I = 1 TO 10: &  RESTORE 
  64. 640  FOR J = 1 TO 500: NEXT 
  65. 650  NEXT : &  HOME 
  66. 660  PRINT "LET'S DO IT AGAIN,"
  67. 670  PRINT "ONLY FASTER...."
  68. 680  PRINT : GOSUB 840
  69. 690  FOR I = 1 TO 10
  70. 700  &  STORE I +3,5,I +3,I +8: PRINT I
  71. 710  NEXT : FOR I = 1 TO 10
  72. 720  &  RESTORE : NEXT : &  NEW " COLORS BRUSHES SHAPES PRINTER FILE",1,38,2,22
  73. 730  VTAB 5: PRINT "YOU CAN EVEN SIMULATE PULL DOWN MENUS"
  74. 740  PRINT : GOSUB 840
  75. 750  &  STORE 1,6,1,7: INVERSE : PRINT "RED   ";
  76. 760  NORMAL : VTAB 3: PRINT "BLUE": PRINT "VIOLET": VTAB 5: PRINT "GREEN": PRINT "BLACK": PRINT "WHITE";
  77. 770  FOR J = 1 TO 4000: NEXT 
  78. 780  &  RESTORE 
  79. 790  &  HOME : PRINT "THE POSSIBILITIES ARE ENDLESS!"
  80. 800  PRINT 
  81. 810  PRINT : GOSUB 840
  82. 820  &  DRAW 1,38,2,23
  83. 830  END 
  84. 840  PRINT "PRESS ";: INVERSE : PRINT "RETURN";: NORMAL 
  85. 850  WAIT 49152,128: POKE 49168,0: RETURN