home *** CD-ROM | disk | FTP | other *** search
/ The CIA World Factbook 1992 / k3bimage.iso / sel / 04 / 0063 / data2.bas < prev    next >
Encoding:
BASIC Source File  |  1991-12-02  |  3.3 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.  20,C:PRINT CHR$(26);:FOR P=1 TO PAUSE:NEXT:LOCATE 20,C:P