home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk057 / k1.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-03-15  |  7.6 KB  |  168 lines
  1. 0  ' ====> K1.bas
  2. 1  LOCATE 1:PRINT STRING$(80,219)
  3. 2  LOCATE 2:PRINT STRING$(2,219)+TOPKEY1$+TOPKEY1$+CHR$(219)+TOPKEY1$+TOPKEY1$
  4. 3  LOCATE 3:PRINT STRING$(2,219)+MIDKEY1$+MIDKEY1$+CHR$(219)+MIDKEY1$+MIDKEY1$
  5. 4  LOCATE 4:PRINT STRING$(2,219)+MIDKEY1$+MIDKEY1$+CHR$(219)+MIDKEY1$+MIDKEY1$
  6. 5  LOCATE 5:PRINT STRING$(2,219)+BOTKEY1$+BOTKEY1$+CHR$(219)+BOTKEY1$+BOTKEY1$
  7. 6  LOCATE 6:PRINT STRING$(2,219)+TOPKEY1$+TOPKEY1$+CHR$(219)+TOPKEY3$+TOPKEY1$
  8. 7  LOCATE 7:PRINT STRING$(2,219)+MIDKEY1$+MIDKEY1$+CHR$(219)+MIDKEY3$+MIDKEY1$
  9. 8  LOCATE 8:PRINT STRING$(2,219)+MIDKEY1$+MIDKEY1$+CHR$(219)+MIDKEY3$+MIDKEY1$
  10. 9  LOCATE 9:PRINT STRING$(2,219)+BOTKEY1$+BOTKEY1$+CHR$(219)+BOTKEY3$+BOTKEY1$
  11. 10  LOCATE 10:PRINT STRING$(2,219)+TOPKEY1$+TOPKEY1$+CHR$(219)+TOPKEY4$+TOPKEY1$
  12. 11  LOCATE 11:PRINT STRING$(2,219)+MIDKEY1$+MIDKEY1$+CHR$(219)+MIDKEY4$+MIDKEY1$
  13. 12  LOCATE 12:PRINT STRING$(2,219)+MIDKEY1$+MIDKEY1$+CHR$(219)+MIDKEY4$+MIDKEY1$
  14. 13  LOCATE 13:PRINT STRING$(2,219)+BOTKEY1$+BOTKEY1$+CHR$(219)+BOTKEY4$+BOTKEY1$
  15. 14  LOCATE 14:PRINT STRING$(2,219)+TOPKEY1$+TOPKEY1$+CHR$(219)+TOPKEY2$+TOPKEY1$
  16. 15  LOCATE 15:PRINT STRING$(2,219)+MIDKEY1$+MIDKEY1$+CHR$(219)+MIDKEY2$+MIDKEY1$
  17. 16  LOCATE 16:PRINT STRING$(2,219)+MIDKEY1$+MIDKEY1$+CHR$(219)+MIDKEY2$+MIDKEY1$
  18. 17  LOCATE 17:PRINT STRING$(2,219)+BOTKEY1$+BOTKEY1$+CHR$(219)+BOTKEY2$+BOTKEY1$
  19. 18  LOCATE 18:PRINT STRING$(2,219)+TOPKEY1$+TOPKEY1$+CHR$(219)+TOPKEY5$+CHR$(218)+STRING$(44,196)
  20. 19  LOCATE 19:PRINT STRING$(2,219)+MIDKEY1$+MIDKEY1$+CHR$(219)+MIDKEY5$+CHR$(179)
  21. 20  LOCATE 20:PRINT STRING$(2,219)+MIDKEY1$+MIDKEY1$+CHR$(219)+MIDKEY5$+CHR$(179)
  22. 21  LOCATE 21:PRINT STRING$(2,219)+BOTKEY1$+BOTKEY1$+CHR$(219)+BOTKEY5$+CHR$(192)+STRING$(44,196)
  23. 22  LOCATE 22:PRINT STRING$(80,219)
  24. 23  GOSUB 54
  25. 24  GOSUB 62
  26. 25  GOSUB 70
  27. 26  GOSUB 78      
  28. 27  GOSUB 87
  29. 28  GOSUB 96
  30. 29  GOSUB 105
  31. 30  GOSUB 114
  32. 31  GOSUB 123
  33. 32  GOSUB 132
  34. 33  GOSUB 141
  35. 34  GOSUB 150
  36. 35  TITLE$="Pick a key, any key!"
  37. 36  TEXT$="As a review, choose one of the keys you learned about. Try and remember its use. Then to see if you are correct, press it. When you are finished, press the space bar."
  38. 37  GOSUB 159
  39. 38  A$=INKEY$:DEF SEG=&H40:A=PEEK(&H17)
  40. 39  IF (A AND &H2) THEN GOSUB 78:GOTO 35
  41. 40  IF (A AND &H4) THEN GOSUB 87:GOTO 35
  42. 41  IF (A AND &H8) THEN GOSUB 96:GOTO 35
  43. 42  IF A$="" THEN 38
  44. 43  IF A$=" " THEN CLS:CHAIN"k2",,ALL
  45. 44  IF A$=CHR$(27) THEN GOSUB 62:GOTO 35
  46. 45  IF A$=CHR$(9) THEN GOSUB 70:GOTO 35
  47. 46  IF LEN(A$)<2 THEN 38 ELSE A$=RIGHT$(A$,1)
  48. 47  IF A$=CHR$(59) THEN GOSUB 105:GOTO 35
  49. 48  IF A$=CHR$(60) THEN GOSUB 114:GOTO 35
  50. 49  IF A$=CHR$(61) THEN GOSUB 123:GOTO 35
  51. 50  IF A$=CHR$(66) THEN GOSUB 132:GOTO 35
  52. 51  IF A$=CHR$(67) THEN GOSUB 141:GOTO 35
  53. 52  IF A$=CHR$(68) THEN GOSUB 150:GOTO 35
  54. 53  GOTO 38
  55. 54  ' ====> space bar
  56. 55  TITLE$="The space bar"
  57. 56  TEXT$="Once again, locate the space bar. It is used a reference point for the other keys."
  58. 57  GOSUB 159
  59. 58  C5=C3:C6=C4:GOSUB 60
  60. 59  A$=INKEY$:IF A$<>" " THEN 59 ELSE C5=C1:C6=C2
  61. 60  COLOR C5,C6:LOCATE 18,36:PRINT CHR$(218)+STRING$(44,196):LOCATE 19,36:PRINT CHR$(179):LOCATE 20,36:PRINT CHR$(179):LOCATE 21,36:PRINT CHR$(192)+STRING$(44,196)
  62. 61  LOCATE 19,76:PRINT "space":LOCATE 20,77:PRINT "bar":RETURN
  63. 62  ' ====> esc key
  64. 63  TITLE$="The Esc (escape) key"
  65. 64  TEXT$="The escape key erases the entire line the cursor is on. This is much faster than backspacing or deleting the line."
  66. 65  GOSUB 159
  67. 66  C5=C3:C6=C4:GOSUB 68
  68. 67  A$=INKEY$:IF A$<>CHR$(27) THEN 67 ELSE C5=C1:C6=C2
  69. 68  COLOR C5,C6:LOCATE 2,20:PRINT TOPKEY1$:LOCATE 3,20:PRINT MIDKEY1$:LOCATE 4,20:PRINT MIDKEY1$:LOCATE 5,20:PRINT BOTKEY1$
  70. 69  LOCATE 3,22:PRINT "Esc":COLOR C1,C2:RETURN
  71. 70  ' ====> tab key
  72. 71  TITLE$="The tab key"
  73. 72  TEXT$="The key with two arrows on it is the tab key. It works the same as the tab key on typewriter. Tab stops are set at every eight spaces."
  74. 73  GOSUB 159
  75. 74  C5=C3:C6=C4:GOSUB 76
  76. 75  A$=INKEY$:IF A$<>CHR$(9) THEN 75 ELSE C5=C1:C6=C2
  77. 76  COLOR C5,C6:LOCATE 6,20:PRINT TOPKEY3$:LOCATE 7,20:PRINT MIDKEY3$:LOCATE 8,20:PRINT MIDKEY3$:LOCATE 9,20:PRINT BOTKEY3$
  78. 77  LOCATE 7,23:PRINT CHR$(179)+CHR$(17)+STRING$(2,196):LOCATE 8,23:PRINT STRING$(2,196)+CHR$(16)+CHR$(179):COLOR C1,C2:RETURN
  79. 78  ' ====> left shift key
  80. 79  TITLE$="The shift key"
  81. 80  TEXT$="There is a shift key on the left side of the keyboard as well. You can use either shift key, the computer doesn't care. Remember, the shift key must be held down while the second key is pressed."
  82. 81  GOSUB 159
  83. 82  C5=C3:C6=C4:GOSUB 85
  84. 83  DEF SEG=&H40
  85. 84  IF (PEEK(&H17) AND &H2)=0 THEN 84 ELSE C5=C1:C6=C2
  86. 85  COLOR C5,C6:LOCATE 14,20:PRINT TOPKEY2$:LOCATE 15,20:PRINT MIDKEY2$:LOCATE 16,20:PRINT MIDKEY2$:LOCATE 17,20:PRINT BOTKEY2$
  87. 86  LOCATE 15,23:PRINT "/\":LOCATE 16,23:PRINT "CLS'":COLOR C1,C2:RETURN
  88. 87  ' ====> ctrl key
  89. 88  TITLE$="The Ctrl (control) key"
  90. 89  TEXT$="The Ctrl key is a special type of shift key. It too must be held down while the second key is pressed."
  91. 90  GOSUB 159
  92. 91  C5=C3:C6=C4:GOSUB 94
  93. 92  DEF SEG=&H40
  94. 93  IF (PEEK(&H17) AND &H4)=0 THEN 93 ELSE C5=C1:C6=C2
  95. 94  COLOR C5,C6:LOCATE 10,20:PRINT TOPKEY4$:LOCATE 11,20:PRINT MIDKEY4$:LOCATE 12,20:PRINT MIDKEY4$:LOCATE 13,20:PRINT BOTKEY4$
  96. 95  LOCATE 11,25:PRINT "Ctrl":COLOR C1,C2:RETURN
  97. 96  ' ====> Alt key
  98. 97  TITLE$="The Alt (alternate) key"
  99. 98  TEXT$="Like the Ctrl key, the Alt key is a special type of shift key. In BASIC it can be used to type special words with only two keystrokes. For example, if you press the Alt key and the C key together, the word COLOR will be displayed."
  100. 99  GOSUB 159
  101. 100  C5=C3:C6=C4:GOSUB 103
  102. 101  DEF SEG=&H40
  103. 102  IF (PEEK(&H17) AND &H8)=0 THEN 102 ELSE C5=C1:C6=C2
  104. 103  COLOR C5,C6:LOCATE 18,20:PRINT TOPKEY5$:LOCATE 19,20:PRINT MIDKEY5$:LOCATE 20,20:PRINT MIDKEY5$:LOCATE 21,20:PRINT BOTKEY5$
  105. 104  LOCATE 19,26:PRINT "Alt":COLOR C1,C2:RETURN
  106. 105  ' ====> function keys
  107. 106  TITLE$="The function keys"
  108. 107  TEXT$="The function keys are programmable keys. This means you can tell the computer what each one is supposed to do. The BASIC Prof has told the computer to backup one page whenever you press function key 1 (F1)."
  109. 108  GOSUB 159
  110. 109  C5=C3:C6=C4:GOSUB 112
  111. 110  A$=INKEY$:IF LEN(A$)=2 THEN IF ASC(RIGHT$(A$,1))=59 THEN C5=C1:C6=C2:GOTO 112
  112. 111  GOTO 110
  113. 112  COLOR C5,C6:LOCATE 2,3:PRINT TOPKEY1$:LOCATE 3,3:PRINT MIDKEY1$:LOCATE 4,3:PRINT MIDKEY1$:LOCATE 5,3:PRINT BOTKEY1$
  114. 113  LOCATE 3,5:PRINT "F1":COLOR C1,C2:RETURN
  115. 114  ' ====> function key 2
  116. 115  TITLE$="Function key 2 (F2)"
  117. 116  TEXT$="Hopefully, you will nearly wear out function key 2. You press F2 when you are ready to move on to the next page of the BASIC Prof."
  118. 117  GOSUB 159
  119. 118  C5=C3:C6=C4:GOSUB 121
  120. 119  A$=INKEY$:IF LEN(A$)=2 THEN IF ASC(RIGHT$(A$,1))=60 THEN C5=C1:C6=C2:GOTO 121
  121. 120  GOTO 119
  122. 121  COLOR C5,C6:LOCATE 2,11:PRINT TOPKEY1$:LOCATE 3,11:PRINT MIDKEY1$:LOCATE 4,11:PRINT MIDKEY1$:LOCATE 5,11:PRINT BOTKEY1$
  123. 122  LOCATE 3,13:PRINT "F2":COLOR C1,C2:RETURN
  124. 123  ' ====> function key 3
  125. 124  TITLE$="Function key 3 (F3)"
  126. 125  TEXT$="When you press F3, the current page will be re-printed on the screen. This is usefull if the instructions scroll off the screen when you try something out."
  127. 126  GOSUB 159
  128. 127  C5=C3:C6=C4:GOSUB 130
  129. 128  A$=INKEY$:IF LEN(A$)=2 THEN IF ASC(RIGHT$(A$,1))=61 THEN C5=C1:C6=C2:GOTO 130
  130. 129  GOTO 128
  131. 130  COLOR C5,C6:LOCATE 6,3:PRINT TOPKEY1$:LOCATE 7,3:PRINT MIDKEY1$:LOCATE 8,3:PRINT MIDKEY1$:LOCATE 9,3:PRINT BOTKEY1$
  132. 131  LOCATE 7,5:PRINT "F3":COLOR C1,C2:RETURN
  133. 132  ' ====> function key 8
  134. 133  TITLE$="Function key 8 (F8)"
  135. 134  TEXT$="Function key 8 allows you to go back to the lesson menu and choose which ever lesson you want. You then also have the option of aborting the BASIC Prof."
  136. 135  GOSUB 159
  137. 136  C5=C3:C6=C4:GOSUB 139
  138. 137  A$=INKEY$:IF LEN(A$)=2 THEN IF ASC(RIGHT$(A$,1))=66 THEN C5=C1:C6=C2:GOTO 139
  139. 138  GOTO 137
  140. 139  COLOR C5,C6:LOCATE 14,11:PRINT TOPKEY1$:LOCATE 15,11:PRINT MIDKEY1$:LOCATE 16,11:PRINT MIDKEY1$:LOCATE 17,11:PRINT BOTKEY1$
  141. 140  LOCATE 15,13:PRINT "F8":COLOR C1,C2:RETURN
  142. 141  ' ====> function key 9
  143. 142  TITLE$="Function key 9 (F9)"
  144. 143  TEXT$="When you press function key 9, the BASIC Prof. will show you a table of contents. You then will be able to choose a specific page to turn to, or return to the page you were at.
  145. 144  GOSUB 159
  146. 145  C5=C3:C6=C4:GOSUB 148
  147. 146  A$=INKEY$:IF LEN(A$)=2 THEN IF ASC(RIGHT$(A$,1))=67 THEN C5=C1:C6=C2:GOTO 148
  148. 147  GOTO 146
  149. 148  COLOR C5,C6:LOCATE 18,3:PRINT TOPKEY1$:LOCATE 19,3:PRINT MIDKEY1$:LOCATE 20,3:PRINT MIDKEY1$:LOCATE 21,3:PRINT BOTKEY1$
  150. 149  LOCATE 19,5:PRINT "F9":COLOR C1,C2:RETURN
  151. 150  ' ====> function key 10
  152. 151  TITLE$="Function key 10 (F10)"
  153. 152  TEXT$="When you press function key 10, the BASIC Prof. will show you an alphabetical index. You then will be able to choose a specific page to turn to, or return to the page you were at.
  154. 153  GOSUB 159
  155. 154  C5=C3:C6=C4:GOSUB 157
  156. 155  A$=INKEY$:IF LEN(A$)=2 THEN IF ASC(RIGHT$(A$,1))=68 THEN C5=C1:C6=C2:GOTO 157
  157. 156  GOTO 155
  158. 157  COLOR C5,C6:LOCATE 18,11:PRINT TOPKEY1$:LOCATE 19,11:PRINT MIDKEY1$:LOCATE 20,11:PRINT MIDKEY1$:LOCATE 21,11:PRINT BOTKEY1$
  159. 158  LOCATE 19,13:PRINT "F10":COLOR C1,C2:RETURN
  160. 159  ' ====> write text
  161. 160  IF INKEY$<>"" THEN 160 ELSE PRESSED.KEY=0
  162. 161  FOR R=2 TO 17:LOCATE R,42:PRINT SPACE$(38):NEXT
  163. 162  LOCATE 3,INT(62-(LEN(TITLE$))/2):PRINT TITLE$:R=4
  164. 163  R=R+1:IF 37>=LEN(TEXT$) THEN LOCATE R,43:PRINT TEXT$:LOCATE R+2,55:PRINT "Press it now.":RETURN
  165. 164  P=38:WHILE MID$(TEXT$,P,1)<>" ":P=P-1:WEND
  166. 165  LOCATE R,43:PRINT LEFT$(TEXT$,P-1):TEXT$=RIGHT$(TEXT$,LEN(TEXT$)-P)
  167. 166  GOTO 163
  168.