home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib42b.dsk / QS.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  3KB  |  87 lines
  1. 10  REM  **********************
  2. 12  REM  *   QUICKSHOW DEMO   *
  3. 14  REM  *    by Doug Denby   *
  4. 16  REM  * Copyright (C) 1992 *
  5. 18  REM  *   MindCraft Publ.  *
  6. 20  REM  * Lincoln, MA  01773 *
  7. 30  REM  **********************
  8. 40  TEXT : HOME 
  9. 50  GOTO 70
  10. 60  DRAW 100 AT X,Y: CALL 768: RETURN 
  11. 70 D$ =  CHR$(4)
  12. 80  PRINT D$;"BLOAD WESTERN.FONT,A$4000"
  13. 90  POKE 232,0: POKE 233,64
  14. 100  PRINT D$;"BLOAD QUICKSHOW,A768"
  15. 110  HGR : HCOLOR= 3: ROT= 0: SCALE= 1: POKE  -16302,0
  16. 120 X = 0:Y = 0
  17. 130  SCALE= 1: HCOLOR= 3
  18. 140 S$ = "This demonstrates the speed with"
  19. 150 Y = 30: GOSUB 60
  20. 160 S$ = "which shape fonts can easily be"
  21. 170 Y = 45: GOSUB 60
  22. 180 S$ = "placed on the screen."
  23. 190 Y = 60: GOSUB 60
  24. 200  HPLOT 23,120 TO 150,120
  25. 210  HPLOT  TO 150,105
  26. 220  HPLOT  TO 60,105
  27. 230  HPLOT 105,105 TO 105,95
  28. 240  HPLOT  TO 76,95
  29. 250  HPLOT  TO 60,105
  30. 260  HPLOT  TO 30,110
  31. 270  HPLOT  TO 23,120
  32. 280  HPLOT 35,120 TO 37,124 TO 43,128 TO 49,124 TO 51,120
  33. 290  HPLOT 120,120 TO 122,124 TO 128,128 TO 134,124 TO 136,120
  34. 300  HPLOT 165,100 TO 190,85
  35. 310  CALL 62923:X = 10 + PEEK(224) + PEEK(225) *256
  36. 320 Y =  PEEK(226)
  37. 330 S$ = "Pickup": GOSUB 60
  38. 340 Y = Y +20:S$ = "a COPY!": GOSUB 60
  39. 350 S$ = "QuickShow":X = 0:Y = 135: HCOLOR= 2: GOSUB 60
  40. 360  CALL 62923:X =  PEEK(224) + PEEK(225) *256:Y =  PEEK(226)
  41. 370 S$ = "is a machine-code": HCOLOR= 3: GOSUB 60
  42. 380 Y = Y +15:X = 0:S$ = "utility that is totally relocatable,": GOSUB 60
  43. 390 S$ = "easily used with Applesoft BASIC,":Y = Y +15: GOSUB 60
  44. 400 S$ = "only 136 bytes, and from ":Y = Y +15: GOSUB 60
  45. 410  CALL 62923:X =  PEEK(224) + PEEK(225): HCOLOR= 5:S$ = "NIBBLE!": GOSUB 60
  46. 420 S$ = "QuickShow Demo"
  47. 430  SCALE= 2:X = 0
  48. 440 Y = 0
  49. 450  FOR C = 0 TO 7
  50. 460  HCOLOR= C
  51. 470  GOSUB 60
  52. 480  IF  PEEK( -16384) >127  THEN 590
  53. 490  FOR I = 1 TO 50: NEXT I
  54. 500  NEXT C
  55. 510 Y = 1
  56. 520  FOR C = 0 TO 7
  57. 530  HCOLOR= C
  58. 540  IF  PEEK( -16384) >127  THEN 590
  59. 550  FOR I = 1 TO 50: NEXT I
  60. 560  GOSUB 60
  61. 570  NEXT C
  62. 580  IF  PEEK( -16384) <128  THEN 110
  63. 590  POKE  -16368,0: REM  CLR KEYS
  64. 600  CALL 62450
  65. 610  SCALE= 1: HCOLOR= 3
  66. 620 Y = 20:S$ = "Want to see it again?"
  67. 630  GOSUB 60
  68. 640 S$ = "Press `Y' or `N'. ":Y = Y +20: GOSUB 60
  69. 650  CALL 62923:X =  PEEK(224) + PEEK(225) *256
  70. 660 S$ = "_"
  71. 670  REM  LOOK FOR RESPONSE
  72. 680  HCOLOR= 3
  73. 690  GOSUB 60
  74. 700  FOR C = 0 TO 60
  75. 710  IF  PEEK( -16384) >127  THEN 780
  76. 720  NEXT C
  77. 730  HCOLOR= 0: GOSUB 60
  78. 740  FOR C = 0 TO 60
  79. 750  IF  PEEK( -16384) >127  THEN 780
  80. 760  NEXT C
  81. 770  GOTO 670
  82. 780 A$ =  CHR$( PEEK( -16384) -128)
  83. 790  POKE  -16368,0
  84. 800  IF A$ = "Y"  OR A$ = "y"  THEN 110
  85. 810  IF A$ = "N"  OR A$ = "n"  THEN 830
  86. 820  GOTO 670
  87. 830  TEXT : HOME