home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk057 / let.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-03-15  |  4.8 KB  |  76 lines
  1. 0  ' ====> LET.bas
  2. 1  ON KEY(1) GOSUB 8:KEY (1) ON
  3. 2  ON KEY(2) GOSUB 9:KEY (2) ON
  4. 3  ON KEY(3) GOSUB 10:KEY (3) ON
  5. 4  ON KEY(8) GOSUB 11:KEY (8) ON
  6. 5  ON KEY(9) GOSUB 12:KEY (9) ON
  7. 6  ON KEY(10) GOSUB 13:KEY (10) ON
  8. 7  GOTO 14
  9. 8  RUN"backup"
  10. 9  RUN"forward"
  11. 10  RUN"repeat"
  12. 11  RUN"a0"
  13. 12  RUN"contents"
  14. 13  RUN"index"
  15. 14  LOCATE 23,3:PRINT "Press the ";:COLOR C2,C1:PRINT "space bar";:COLOR C1,C2:PRINT" to begin illustration of the LET and PRINT statements."
  16. 15  IF INKEY$<>"" THEN 15
  17. 16  IF INKEY$<>" " THEN 16 ELSE FOR I=1 TO 23:LOCATE I,1:PRINT SPACE$(80);:NEXT:LOCATE 1,62:COLOR C1,C2:PRINT "Variables":LOCATE 2,60:PRINT "Value     Name"
  18. 17  GOSUB 70:PRINT "If you were to type PRINT NUM1 and press return ..."
  19. 18  LOCATE 3,1:PRINT "YOU":TYPE$="PRINT NUM1":LOCATE 3,15:GOSUB 69
  20. 19  GOSUB 70:PRINT "The computer would search its memory for a variable named NUM1."
  21. 20  GOSUB 71
  22. 21  GOSUB 70:PRINT "Since it isn't found, the computer reserves a portion of memory for"
  23. 22  COLOR C3,C4:PRINT "NUM1";:COLOR C1,C2:PRINT ".  Its value is now ";:COLOR C3,C4:PRINT "0";:COLOR C1,C2:PRINT " because it is a new variable."
  24. 23  LOCATE 3,60:LOCATE 3,60:GOSUB 74:LOCATE 4,61:COLOR C3,C4:PRINT "0":LOCATE 4,70:PRINT "NUM1"
  25. 24  GOSUB 71
  26. 25  LOCATE 4,1:COLOR C3,C4:PRINT "COMPUTER";TAB(15);0:LOCATE 5,15:PRINT "OK"
  27. 26  GOSUB 70:PRINT "Because ";:COLOR C3,C4:PRINT "NUM1";:COLOR C1,C2:PRINT " is equal to ";:COLOR C3,C4:PRINT "0";:COLOR C1,C2:PRINT ", the computer prints ";:COLOR C3,C4:PRINT "0";:COLOR C1,C2:PRINT " and then tells you"
  28. 27  PRINT "it is ready to do something else with the ";:COLOR C3,C4:PRINT "OK";:COLOR C1,C2:PRINT "."
  29. 28  GOSUB 71
  30. 29  GOSUB 70:PRINT "If you now typed LET NUM1=73 and pressed return ..."
  31. 30  LOCATE 6,1:PRINT "YOU":TYPE$="LET NUM1=73":LOCATE 6,15:GOSUB 69
  32. 31  GOSUB 70:PRINT "The variable named ";:COLOR C3,C4:PRINT "NUM1";:COLOR C1,C2:PRINT " would be assigned the value ";:COLOR C3,C4:PRINT "73";:COLOR C1,C2:PRINT "."
  33. 32  LOCATE 4,61:COLOR C3,C4:PRINT "73":GOSUB 71
  34. 33  GOSUB 70:PRINT "And again, the computer would respond with ";:COLOR C3,C4:PRINT "OK";:COLOR C1,C2:PRINT "."
  35. 34  LOCATE 7,1:COLOR C3,C4:PRINT "COMPUTER";TAB(15);"OK":GOSUB 71
  36. 35  GOSUB 70:PRINT "If you were to again type PRINT NUM1 and press return ..."
  37. 36  LOCATE 8,1:PRINT "YOU":TYPE$="PRINT NUM1":LOCATE 8,15:GOSUB 69
  38. 37  GOSUB 70:PRINT "The computer would find that the variable named ";:COLOR C3,C4:PRINT "NUM1";:COLOR C1,C2:PRINT " has a value of ";:COLOR C3,C4:PRINT "73";:COLOR C1,C2:PRINT ".":GOSUB 71
  39. 38  GOSUB 70:PRINT "Because the variable named ";:COLOR C3,C4:PRINT "NUM1";:COLOR C1,C2:PRINT " has a value of ";:COLOR C3,C4:PRINT "73";
  40. 39  COLOR C1,C2:PRINT ", the computer";" would print ";:COLOR C3,C4:PRINT "73";:COLOR C1,C2:PRINT " and respond with ";:COLOR C3,C4:PRINT "OK";:COLOR C1,C2:PRINT "."
  41. 40  LOCATE 9,1:COLOR C3,C4:PRINT "COMPUTER";TAB(15);73:LOCATE 10,15:PRINT "OK":GOSUB 71
  42. 41  GOSUB 70:PRINT "If you now typed LET NUM2=67 and pressed return ..."
  43. 42  LOCATE 11,1:PRINT "YOU":TYPE$="LET NUM2=67":LOCATE 11,15:GOSUB 69
  44. 43  GOSUB 70:PRINT "The computer would reserve space for the variable named ";:COLOR C3,C4:PRINT "NUM2";:COLOR C1,C2:PRINT ", and";"assign it the value ";:COLOR C3,C4:PRINT "67";:COLOR C1,C2:PRINT "."
  45. 44  LOCATE 6,60:LOCATE 6,60:GOSUB 74:LOCATE 7,61:COLOR C3,C4:PRINT "67":LOCATE 7,70:PRINT "NUM2"
  46. 45  GOSUB 71
  47. 46  GOSUB 70:PRINT "Once again, the computer would respond with ";:COLOR C3,C4:PRINT "OK";:COLOR C1,C2:PRINT "."
  48. 47  LOCATE 12,1:COLOR C3,C4:PRINT "COMPUTER";TAB(15);"OK":GOSUB 71
  49. 48  GOSUB 70:PRINT "If you now typed AVERAGE=(NUM1+NUM2)/2 and pressed return ..."
  50. 49  LOCATE 13,1:PRINT "YOU":TYPE$="AVERAGE=(NUM1+NUM2)/2":LOCATE 13,15:GOSUB 69
  51. 50  LOCATE 1,30:PRINT "AVERAGE=(NUM1+NUM2)/2"
  52. 51  GOSUB 70:PRINT "The computer would find the value of ";:COLOR C3,C4:PRINT "NUM1";:COLOR C1,C2:PRINT " to be ";:COLOR C3,C4:PRINT "73";:COLOR C1,C2:PRINT ".":GOSUB 71
  53. 52  LOCATE 1,39:COLOR C3,C4:PRINT " 73 "
  54. 53  GOSUB 70:PRINT "It would also find the value of ";:COLOR C3,C4:PRINT "NUM2";:COLOR C1,C2:PRINT " to be ";:COLOR C3,C4:PRINT "67";:COLOR C1,C2:PRINT ".":GOSUB 71
  55. 54  LOCATE 1,44:COLOR C3,C4:PRINT " 67 "
  56. 55  GOSUB 70:PRINT "The computer does what is in the parentheses ";CHR$(34);:COLOR C3,C4:PRINT "( )";:COLOR C1,C2:PRINT CHR$(34);" first.":GOSUB 71
  57. 56  GOSUB 70:LOCATE 1,38:COLOR C3,C4:PRINT " 140 ";:COLOR C1,C2:PRINT "/ 2      ":GOSUB 71
  58. 57  LOCATE 1,38:COLOR C3,C4:PRINT " 70       "
  59. 58  GOSUB 70:PRINT "The computer would reserve space for the variable named ";:COLOR C3,C4:PRINT "AVERAGE";:COLOR C1,C2:PRINT ", and";"assign it the value ";:COLOR C3,C4:PRINT "70";:COLOR C1,C2:PRINT "."
  60. 59  LOCATE 9,60:GOSUB 74:LOCATE 10,61:COLOR C3,C4:PRINT "70":LOCATE 10,70:PRINT "AVERAGE":GOSUB 71
  61. 60  LOCATE 1,30:PRINT SPACE$(20):LOCATE 14,1:COLOR C3,C4:PRINT "COMPUTER";TAB(15);"OK"
  62. 61  GOSUB 70:PRINT "And then let you know it is ready to continue with the ";:COLOR C3,C4:PRINT "OK";:COLOR C1,C2:PRINT ".":GOSUB 71
  63. 62  GOSUB 70:PRINT "If you were now to type PRINT AVERAGE and press return ..."
  64. 63  LOCATE 15,1:PRINT "YOU":TYPE$="PRINT AVERAGE":LOCATE 15,15:GOSUB 69
  65. 64  GOSUB 70:PRINT "The computer finds the value for the variable ";:COLOR C3,C4:PRINT "AVERAGE";:COLOR C1,C2:PRINT " to be ";:COLOR C3,C4:PRINT "70";:COLOR C1,C2:PRINT ".":GOSUB 71
  66. 65  LOCATE 16,1:COLOR C3,C4:PRINT "COMPUTER";TAB(15);70:LOCATE 17,15:PRINT "OK"
  67. 66  GOSUB 70:PRINT "The computer now prints ";:COLOR C3,C4:PRINT "70";:COLOR C1,C2:PRINT " and responds with the ";:COLOR C3,C4:PRINT "OK";:COLOR C1,C2:PRINT ".":GOSUB 71
  68. 67  GOSUB 70:PRINT "And that's it.  Press the appropriate ";:COLOR C3,C4:PRINT "function key";:COLOR C1,C2:PRINT " to continue."
  69. 68  NEW
  70. 69  FOR I=1 TO LEN(TYPE$):PRINT MID$(TYPE$,I,1);:FOR P=1 TO 1000:NEXT:NEXT:RETURN
  71. 70  FOR I=19 TO 21:LOCATE I,1:PRINT SPACE$(80);:NEXT:LOCATE 19,9:COLOR C1,C2:RETURN
  72. 71  BEEP:LOCATE 23,24:COLOR C1,C2:PRINT "Press the ";:COLOR C2,C1:PRINT "space bar";:COLOR C1,C2:PRINT" to continue."
  73. 72  IF INKEY$<>"" THEN 72
  74. 73  IF INKEY$<>" " THEN 73 ELSE LOCATE 23,1:PRINT SPACE$(80);:RETURN
  75. 74  PRINT CHR$(218);STRING$(3,196);CHR$(191);CHR$(31);STRING$(5,29);CHR$(179);"   ";CHR$(179);CHR$(31);STRING$(5,29);CHR$(192);STRING$(3,196);CHR$(217):RETURN
  76.