home *** CD-ROM | disk | FTP | other *** search
/ The CIA World Factbook 1992 / k3bimage.iso / sel / 04 / 0063 / data1.bas < prev    next >
Encoding:
BASIC Source File  |  1991-12-02  |  2.4 KB  |  44 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. PRINT "Nothing to read!":FOR P=1 TO 10*PAUSE:NEXT
  43. 39 LOCATE 19,1:PRINT "Out of DATA in 20":RESUME 40
  44. 40 ON ERROR GOTO 0:N