home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib42a.dsk / APRIL.1992 / LPPC.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  3KB  |  116 lines
  1. 10  REM ************************
  2. 20  REM *       LPPC Demo      *
  3. 30  REM *      by Tom Peng     *
  4. 40  REM *  Copyright (C) 1992  *
  5. 50  REM * MindCraft Publ. Corp.*
  6. 60  REM *  Lincoln, MA  01773  *
  7. 70  REM ************************
  8. 80  REM 
  9. 90  TEXT : HOME 
  10. 100  PRINT  CHR$(4);"pr#0": PRINT  CHR$(17)
  11. 110  PRINT  CHR$(17)
  12. 120 A$ = "LPPC DEMONSTRATION": GOSUB 1030
  13. 130  NORMAL : PRINT 
  14. 140  PRINT : INVERSE 
  15. 150  PRINT "LOADING LPPC PATCH TO APPLESOFT ..."
  16. 160  PRINT : NORMAL 
  17. 170  ONERR  GOTO 1050
  18. 180  PRINT  CHR$(4);"-lppc"
  19. 190  POKE 49168,0: INVERSE 
  20. 200  PRINT : PRINT "PRESS ANY KEY TO START DEMO.";: GET A$
  21. 210  POKE 216,0: NORMAL 
  22. 220  HOME 
  23. 230 A$ = "Long Peek, Poke, and Call Demostration": GOSUB 1030
  24. 240 A$ = "by Tom Peng": GOSUB 1030
  25. 250 A$ = "Copyright (C) 1992, MindCraft Publ.": GOSUB 1030
  26. 260  FOR Q = 1 TO 40: PRINT "_";: NEXT 
  27. 270  PRINT : PRINT : PRINT 
  28. 280  PRINT "Select your choice by press the number:"
  29. 290  PRINT 
  30. 300  FOR Q = 1 TO 5: READ A$(Q): NEXT 
  31. 310  DATA   "1. TEXT RAINBOW","2. BACKGROUND RAINBOW","3. BORDER RAINBOW","4. THE GS SCALE","5. END OF DEMONSTRATION"
  32. 320  FOR Q = 1 TO 5: HTAB 10: PRINT A$(Q): NEXT 
  33. 330  VTAB 16: HTAB 1: PRINT "Input: ";
  34. 340  GET A$
  35. 350  IF  VAL(A$) >5  OR  VAL(A$) <1  THEN 330
  36. 360  ON  VAL(A$) GOTO 390,520,650,780,370
  37. 370  HOME : VTAB 12:A$ = "Thank you for using this demo!": GOSUB 1030
  38. 380  END 
  39. 390  REM  Text Rainbow
  40. 400  VTAB 10: HTAB 10: INVERSE : PRINT A$(1): NORMAL 
  41. 410  &  PEEK225,730,A%
  42. 420  FOR Q = 0 TO 15
  43. 430  &  POKE 225,730,Q
  44. 440  &  CALL 225,128,1,1,0
  45. 450  &  CALL 225,148,1,1,0
  46. 460  NEXT Q
  47. 470  &  POKE 225,730,A%
  48. 480  &  CALL 225,128,1,1,0
  49. 490  &  CALL 225,148,1,1,0
  50. 500  VTAB 10: HTAB 10: PRINT A$(1)
  51. 510  GOTO 330
  52. 520  REM  Background Rainbow
  53. 530  VTAB 11: HTAB 10: INVERSE : PRINT A$(2): NORMAL 
  54. 540  &  PEEK225,731,A%
  55. 550  FOR Q = 0 TO 15
  56. 560  &  POKE 225,731,Q
  57. 570  &  CALL 225,128,1,1,0
  58. 580  &  CALL 225,148,1,1,0
  59. 590  NEXT Q
  60. 600  &  POKE 225,731,A%
  61. 610  &  CALL 225,128,1,1,0
  62. 620  &  CALL 225,148,1,1,0
  63. 630  VTAB 11: HTAB 10: PRINT A$(2)
  64. 640  GOTO 330
  65. 650  REM  Border Rainbow
  66. 660  VTAB 12: HTAB 10: INVERSE : PRINT A$(3): NORMAL 
  67. 670  &  PEEK225,732,A%
  68. 680  FOR Q = 0 TO 15
  69. 690  &  POKE 225,732,Q
  70. 700  &  CALL 225,128,1,1,0
  71. 710  &  CALL 225,148,1,1,0
  72. 720  NEXT Q
  73. 730  &  POKE 225,732,A%
  74. 740  &  CALL 225,128,1,1,0
  75. 750  &  CALL 225,148,1,1,0
  76. 760  VTAB 12: HTAB 10: PRINT A$(3)
  77. 770  GOTO 330
  78. 780  REM  The GS scale
  79. 790  VTAB 13: HTAB 10: INVERSE : PRINT A$(4): NORMAL 
  80. 800  &  PEEK225,734,A%
  81. 810  &  POKE 225,734,6
  82. 820  &  CALL 225,128,1,1,0
  83. 830  &  CALL 225,148,1,1,0
  84. 840  &  PEEK225,735,B%
  85. 850  FOR Q = 0 TO 14
  86. 860  &  POKE 225,735,Q
  87. 870  &  CALL 225,128,1,1,0
  88. 880  &  CALL 225,148,1,1,0
  89. 890  PRINT  CHR$(7);
  90. 900  NEXT 
  91. 910  FOR Q = 13 TO 0  STEP  -1
  92. 920  &  POKE 225,735,Q
  93. 930  &  CALL 225,128,1,1,0
  94. 940  &  CALL 225,148,1,1,0
  95. 950  PRINT  CHR$(7);
  96. 960  NEXT 
  97. 970  &  POKE 225,734,A%
  98. 980  &  POKE 225,735,B%
  99. 990  &  CALL 225,128,1,1,0
  100. 1000  &  CALL 225,148,1,1,0
  101. 1010  VTAB 13: HTAB 10: PRINT A$(4)
  102. 1020  GOTO 330
  103. 1030  POKE 36,((40 - LEN(A$))/2): PRINT A$
  104. 1040  RETURN 
  105. 1050  REM  LPPC not found!!!
  106. 1060  PRINT  CHR$(7);
  107. 1070  PRINT "The file LPPC cannot be found in the"
  108. 1080  PRINT "directory."
  109. 1090  PRINT 
  110. 1100  PRINT "A>bort  R>etry?"
  111. 1110  PRINT "-->";
  112. 1120  POKE 49168,0
  113. 1130  GET A$
  114. 1140  IF A$ = "A"  OR A$ = "a"  THEN  POKE 216,0: GOTO 370
  115. 1150  IF A$ = "R"  OR A$ = "r"  THEN  PRINT : PRINT : GOTO 180
  116. 1160  GOTO 1130