home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk057 / data1.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-03-15  |  1.8 KB  |  42 lines
  1. 0  ' ====> DATA1.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 10,20:PRINT"10 DATA 5,3,4,6,2,1":LOCATE 12,20:PRINT "20 READ NUM"
  20. 19  LOCATE 14,20:PRINT "30 PRINT NUM;":LOCATE 16,20:PRINT "40 GOTO 20"
  21. 20  COLOR C1,C2:LOCATE 18,5:PRINT "Press the ";:COLOR C2,C1:PRINT "space bar";:COLOR C1,C2:PRINT" to begin illustration of the DATA & READ statements."
  22. 21  IF INKEY$<>"" THEN 21
  23. 22  IF INKEY$<>" " THEN 22 ELSE LOCATE 18,1:PRINT SPACE$(79);
  24. 23  LOCATE 10,2:PRINT "Press":LOCATE 11,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 14,2:PRINT "to go":LOCATE 15,1:PRINT"slower."
  25. 24  LOCATE 10,73:PRINT "Press":LOCATE 11,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 14,73:PRINT "to go":LOCATE 15,72:PRINT"faster."
  26. 25  DATA 5,3,4,6,2,1
  27. 26  ON ERROR GOTO 38
  28. 27  READ NUM
  29. 28  LOCATE 9,28:PRINT SPACE$(COUNT*2);CHR$(25)
  30. 29  FOR C=36 TO 45:LOCATE 12,C:PRINT CHR$(26);:FOR P=1 TO PAUSE:NEXT:NEXT:LOCATE 12,50:PRINT "NUM =";NUM:LOCATE 12,36:PRINT SPACE$(10)
  31. 30  LOCATE 13,20:PRINT CHR$(25);:FOR P=1 TO PAUSE:NEXT:LOCATE 13,20:PRINT CHR$(32);
  32. 31  LOCATE 18,COUNT*3+1:PRINT NUM;
  33. 32  COUNT=COUNT+1
  34. 33  LOCATE 15,20:PRINT CHR$(25);:FOR P=1 TO PAUSE:NEXT:LOCATE 15,20:PRINT CHR$(32);
  35. 34  FOR C=19 TO 15 STEP -1:LOCATE 16,C:PRINT CHR$(27);:FOR P=1 TO PAUSE:NEXT:LOCATE 16,C:PRINT CHR$(32);:NEXT
  36. 35  FOR R=16 TO 12 STEP -1:LOCATE R,15:PRINT CHR$(24);:FOR P=1 TO PAUSE:NEXT:LOCATE R,15:PRINT CHR$(32);:NEXT R
  37. 36  FOR C=15 TO 19:LOCATE 12,C:PRINT CHR$(26);:FOR P=1 TO PAUSE:NEXT:LOCATE 12,C:PRINT CHR$(32);:NEXT
  38. 37  GOTO 27
  39. 38  BEEP:LOCATE 12,50:PRINT "Nothing to read!":FOR P=1 TO 10*PAUSE:NEXT
  40. 39  LOCATE 19,1:PRINT "Out of DATA in 20":RESUME 40
  41. 40  ON ERROR GOTO 0:NEW
  42.