home *** CD-ROM | disk | FTP | other *** search
/ The CIA World Factbook 1992 / k3bimage.iso / sel / 04 / 0063 / let.bas < prev    next >
Encoding:
BASIC Source File  |  1991-12-02  |  6.1 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. );CHR$(191);CHR$(31);STRING$(5,29);CHR$(1