home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk057 / data2.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-03-15  |  2.4 KB  |  49 lines
  1. 0  ' ====> DATA2.bas
  2. 1  ON KEY(1) GOSUB 10:KEY (1) ON
  3. 2  ON KEY(2) GOSUB 11:KEY (2) ON
  4. 3  ON KEY(3) GOSUB 12:KEY (3) ON
  5. 4  ON KEY(5) GOSUB 13:KEY (5) ON
  6. 5  ON KEY(6) GOSUB 14:KEY (6) ON
  7. 6  ON KEY(8) GOSUB 15:KEY (8) ON
  8. 7  ON KEY(9) GOSUB 16:KEY (9) ON
  9. 8  ON KEY(10) GOSUB 17:KEY (10) ON
  10. 9  GOTO 18
  11. 10  RUN"backup"
  12. 11  RUN"forward"
  13. 12  RUN"repeat"
  14. 13  PAUSE=PAUSE-(PAUSE<500)*50:RETURN
  15. 14  PAUSE=PAUSE+(PAUSE>0)*50:RETURN
  16. 15  RUN"a0"
  17. 16  RUN"contents"
  18. 17  RUN"index"
  19. 18  PAUSE=100:COLOR C3,C4:LOCATE 8,20:PRINT"10 DATA 32,19,25,16,42,99":LOCATE 10,20:PRINT "20 READ NUM"
  20. 19  LOCATE 12,20:PRINT "30 IF NUM=99 THEN 70":LOCATE 14,20:PRINT "40 COUNT=COUNT+1"
  21. 20  LOCATE 16,20:PRINT "50 SUM=SUM+NUM":LOCATE 18,20:PRINT "60 GOTO 20"
  22. 21  LOCATE 20,20:PRINT "70 PRINT ";CHR$(34);"AVERAGE IS";CHR$(34);";SUM/COUNT"
  23. 22  COLOR C1,C2:LOCATE 22,2:PRINT "Press the ";:COLOR C2,C1:PRINT "space bar";:COLOR C1,C2:PRINT" to begin illustration of DATA, READ & IF THEN statements."
  24. 23  IF INKEY$<>"" THEN 23
  25. 24  IF INKEY$<>" " THEN 24 ELSE LOCATE 22,1:PRINT SPACE$(79);
  26. 25  LOCATE 8,2:PRINT "Press":LOCATE 9,2:PRINT CHR$(218);STRING$(3,196);CHR$(191);CHR$(31);STRING$(5,29);CHR$(179);"F5 ";CHR$(179);CHR$(31);STRING$(5,29);CHR$(192);STRING$(3,196);CHR$(217):LOCATE 12,2:PRINT "to go":LOCATE 13,1:PRINT"slower."
  27. 26  LOCATE 8,73:PRINT "Press":LOCATE 9,73:PRINT CHR$(218);STRING$(3,196);CHR$(191);CHR$(31);STRING$(8,29);CHR$(179);"F6 ";CHR$(179);CHR$(31);STRING$(8,29);CHR$(192);STRING$(3,196);CHR$(217):LOCATE 12,73:PRINT "to go":LOCATE 13,72:PRINT"faster."
  28. 27  DATA 32,19,25,16,42,99
  29. 28  READ NUM
  30. 29  LOCATE 7,28:PRINT SPACE$(COUNT*3);CHR$(25)
  31. 30  FOR C=36 TO 45:LOCATE 10,C:PRINT CHR$(26);:FOR P=1 TO PAUSE:NEXT:NEXT:LOCATE 10,50:PRINT "NUM =";NUM:LOCATE 10,36:PRINT SPACE$(10)
  32. 31  LOCATE 11,20:PRINT CHR$(25);:FOR P=1 TO PAUSE*2:NEXT:LOCATE 11,20:PRINT CHR$(32);
  33. 32  IF NUM=99 THEN 43
  34. 33  LOCATE 12,50:PRINT "NO so drop to line 40.":FOR P=1 TO PAUSE*10:NEXT:LOCATE 12,50:PRINT SPACE$(22)
  35. 34  LOCATE 13,20:PRINT CHR$(25);:FOR P=1 TO PAUSE*2:NEXT:LOCATE 13,20:PRINT CHR$(32);
  36. 35  COUNT=COUNT+1:FOR C=41 TO 45:LOCATE 14,C:PRINT CHR$(26);:FOR P=1 TO PAUSE:NEXT:NEXT:LOCATE 14,50:PRINT "COUNT =";COUNT:LOCATE 14,41:PRINT SPACE$(5)
  37. 36  LOCATE 15,20:PRINT CHR$(25);:FOR P=1 TO 200:NEXT:LOCATE 15,20:PRINT CHR$(32);
  38. 37  SUM=SUM+NUM:FOR C=38 TO 45:LOCATE 16,C:PRINT CHR$(26);:FOR P=1 TO PAUSE:NEXT:NEXT:LOCATE 16,50:PRINT "SUM =";SUM:LOCATE 16,38:PRINT SPACE$(8)
  39. 38  LOCATE 17,20:PRINT CHR$(25);:FOR P=1 TO 200:NEXT:LOCATE 17,20:PRINT CHR$(32);
  40. 39  FOR C=19 TO 15 STEP -1:LOCATE 18,C:PRINT CHR$(27);:FOR P=1 TO PAUSE:NEXT:LOCATE 18,C:PRINT CHR$(32);:NEXT
  41. 40  FOR R=18 TO 10 STEP -1:LOCATE R,15:PRINT CHR$(24);:FOR P=1 TO PAUSE:NEXT:LOCATE R,15:PRINT CHR$(32);:NEXT R
  42. 41  FOR C=15 TO 19:LOCATE 10,C:PRINT CHR$(26);:FOR P=1 TO PAUSE:NEXT:LOCATE 10,C:PRINT CHR$(32);:NEXT
  43. 42  GOTO 28
  44. 43  BEEP:LOCATE 12,50:PRINT "YES so go to line 70."
  45. 44  FOR C=19 TO 15 STEP -1:LOCATE 12,C:PRINT CHR$(27);:FOR P=1 TO PAUSE:NEXT:LOCATE 12,C:PRINT CHR$(32);:NEXT
  46. 45  FOR R=12 TO 20:LOCATE R,15:PRINT CHR$(25);:FOR P=1 TO PAUSE:NEXT:LOCATE R,15:PRINT CHR$(32);:NEXT R
  47. 46  FOR C=15 TO 19:LOCATE 20,C:PRINT CHR$(26);:FOR P=1 TO PAUSE:NEXT:LOCATE 20,C:PRINT CHR$(32);:NEXT
  48. 47  LOCATE 22,1:PRINT "AVERAGE IS";SUM/COUNT:NEW
  49.