home *** CD-ROM | disk | FTP | other *** search
/ The CIA World Factbook 1992 / k3bimage.iso / sel / 04 / 0063 / ifthen.bas < prev    next >
Encoding:
BASIC Source File  |  1991-12-02  |  2.8 KB  |  45 lines
  1. 0 ' ====> IFTHEN.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 14,20:PRINT "10 I=I+1":LOCATE 16,20:PRINT "20 SUM=SUM+I"
  20. 19 LOCATE 18,20:PRINT "30 IF I<10 THEN 10":LOCATE 20,20:PRINT "40 PRINT ";CHR$(34);"SUM OF THE NUMBERS FROM 1 TO 10 IS";CHR$(34);";SUM"
  21. 20 COLOR C1,C2:LOCATE 22,10:PRINT "Press the ";:COLOR C2,C1:PRINT "space bar";:COLOR C1,C2:PRINT " to begin illustration of the IF THEN statement."
  22. 21 IF INKEY$<>"" THEN 21
  23. 22 IF INKEY$<>" " THEN 22 ELSE LOCATE 22,1:PRINT SPACE$(79);
  24. 23 LOCATE 14,2:PRINT "Press":LOCATE 15,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 18,2:PRINT "to go":LOCATE 19,1:PRINT"slower."
  25. 24 LOCATE 14,73:PRINT "Press":LOCATE 15,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 18,73:PRINT "to go":LOCATE 19,72:PRINT"faster."
  26. 25 I=0
  27. 26 I=I+1
  28. 27 FOR C=33 TO 45:LOCATE 14,C:PRINT CHR$(26);:FOR P=1 TO PAUSE:NEXT:NEXT:LOCATE 14,50:PRINT "I =";I:LOCATE 14,33:PRINT SPACE$(13)
  29. 28 LOCATE 15,20:PRINT CHR$(25);:FOR P=1 TO PAUSE:NEXT:LOCATE 15,20:PRINT CHR$(32);
  30. 29 SUM=SUM+I
  31. 30 FOR C=37 TO 45:LOCATE 16,C:PRINT CHR$(26);:FOR P=1 TO PAUSE:NEXT:NEXT:LOCATE 16,50:PRINT "SUM =";SUM:LOCATE 16,37:PRINT SPACE$(9)
  32. 31 LOCATE 17,20:PRINT CHR$(25);:FOR P=1 TO PAUSE:NEXT:LOCATE 17,20:PRINT CHR$(32);
  33. 32 IF I=10 THEN 39
  34. 33 LOCATE 18,50:PRINT "YES so go to line 10.":FOR P=1 TO PAUSE*10:NEXT:LOCATE 18,50:PRINT SPACE$(21)
  35. 34 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
  36. 35 FOR R=18 TO 14 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 14,C:PRINT CHR$(26);:FOR P=1 TO PAUSE:NEXT:LOCATE 14,C:PRINT CHR$(32);:NEXT
  38. 37 GOTO 26
  39. 38 LOCATE 14,40:PRINT SPACE$(6);:FOR C=40 TO 45:LOCATE 14,C:PRINT CHR$(32);CHR$(29);CHR$(26);:FOR P=1 TO 100:NEXT:NEXT:LOCATE 14,50:PRINT "I =";I
  40. 39 BEEP:LOCATE 18,50:PRINT "NO so drop to line 40.":FOR P=1 TO PAUSE*10:NEXT P
  41. 40 LOCATE 19,20:PRINT CHR$(25);:FOR P=1 TO PAUSE*2.5:NEXT:LOCATE 19,20:PRINT CHR$(32);
  42. 41 LOCATE 22,1:PRINT "SUM OF THE NUMBERS FROM 1 TO 10 IS";SUM
  43. 42 NEW
  44. FOR P=1 TO PAUSE*2.5:NEXT:LOCATE 19,20:PRINT CHR$(32);
  45. 41 LOCATE 22,1:PRINT "SUM OF