home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk057 / variable.bas (.txt) < prev   
Encoding:
GW-BASIC  |  1984-03-15  |  1.4 KB  |  35 lines
  1. 0  ' ====> VARIABLE.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,15:PRINT "Press the ";:COLOR C2,C1:PRINT "space bar";:COLOR C1,C2:PRINT" to begin illustration of variables."
  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
  18. 17  LOCATE 1,9:PRINT "In the algebraic equation"
  19. 18  LOCATE 3,35:COLOR C3,C4:PRINT "Y = X + 19";:COLOR C1,C2:PRINT ","
  20. 19  LOCATE 5,9:COLOR C3,C4:PRINT "Y";:COLOR C1,C2:PRINT " and ";:COLOR C3,C4:PRINT "X";:COLOR C1,C2:PRINT " are variables (because their values can vary), but ";:COLOR C3,C4:PRINT "19";:COLOR C1,C2:PRINT " is a";"constant (its value never changes)."
  21. 20  DATA 66,32,75,12
  22. 21  FOR I=1 TO 4
  23. 22  READ X
  24. 23  LOCATE 8,9:PRINT "If the value of ";:COLOR C3,C4:PRINT "X";:COLOR C1,C2:PRINT " is";:COLOR C3,C4:PRINT X;:COLOR C1,C2:PRINT "...";:ROW=CSRLIN:COL=POS(0)-4:PRINT SPACE$(30):LOCATE 12,35:PRINT "Y =  X + 19"
  25. 24  GOSUB 31
  26. 25  LOCATE 12,38:COLOR C3,C4:PRINT X:GOSUB 31
  27. 26  LOCATE ROW,COL:PRINT ", then the value of ";:COLOR C3,C4:PRINT "Y";:COLOR C1,C2:PRINT " must be ";:COLOR C3,C4:PRINT USING "##";19+X;:COLOR C1,C2:PRINT ".":LOCATE 14,35:PRINT "Y = ";:COLOR C3,C4:PRINT 19+X
  28. 27  GOSUB 31:LOCATE 14,1:PRINT SPACE$(80);
  29. 28  NEXT I
  30. 29  LOCATE 20,9:PRINT "That's it ... Press the appropriate ";:COLOR C3,C4:PRINT "function key";:COLOR C1,C2:PRINT " to continue."
  31. 30  NEW
  32. 31  BEEP:LOCATE 20,26:COLOR C1,C2:PRINT "Press the ";:COLOR C2,C1:PRINT "space bar";:COLOR C1,C2:PRINT" to continue."
  33. 32  IF INKEY$<>"" THEN 32
  34. 33  IF INKEY$<>" " THEN 33 ELSE LOCATE 20,1:PRINT SPACE$(80);:RETURN
  35.