home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk057 / ifthen.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-03-15  |  2.0 KB  |  44 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.