home *** CD-ROM | disk | FTP | other *** search
/ The CIA World Factbook 1992 / k3bimage.iso / sel / 04 / 0057 / instr.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1991-12-02  |  3.9 KB  |  86 lines
  1. 10  '==========================================================
  2. 20  '**                 ADDING DECIMALS                      **
  3. 30  '**            By STAN GREENE  - 03/05/85                **
  4. 40  '**                    INSTR/BAS                         **
  5. 50  '**     Copyright 1984 - MICROCOMPUTER WORKSHOPS         **
  6. 60  '==========================================================
  7. 70   DEFSTR A-B,F-I:DEFINT C,E,L,N-P,W-Z
  8. 80   X= VAL(MID$(TIME$,7,2)): RANDOMIZE X
  9. 90   COMMON GN,CJ,CBS,JC
  10. 100   IF CBS < 32 THEN CHAIN "CBS.BAS"
  11. 110   DEF FNROW(X23)=INT((X23/64+1)): DEF FNCOL(X23)=INT((X23-(INT(X23/64)*64))+1)
  12. 120   F1="Press <ENTER> to continue.":DEF FNF1="Sorry, "+GN+".  "+I+" is not correct.":GOTO 190
  13. 130  GOSUB 850
  14. 140  I=INKEY$:IF I= "" OR I= "%" OR I= CHR$(13) THEN 140 ELSE LOCATE ,,0:RETURN
  15. 150  GOSUB 850:LOCATE 23,5:PRINT "Press ";:COLOR CJ,7:PRINT"space bar";:COLOR 7,CJ:PRINT " to continue.";
  16. 160  I=INKEY$:IF I <> CHR$(32) THEN 160 ELSE RETURN
  17. 170  '***** INKEY$ ROUTINE FOR ADDITION ANSWERS
  18. 180  '***** BEGIN A PROBLEM
  19. 190  CLS:LOCATE 2,14:PRINT "INSTRUCTIONS"
  20. 200  LOCATE 8,1: PRINT GN;",";
  21. 210  LOCATE 11,1:PRINT "After you read these instructions, be":PRINT:PRINT"sure you practice the line-up stage.":GOSUB 150
  22. 220  FOR SG=1 TO 800:NEXT
  23. 230   CLS:PRINT TAB(9)"ADDITION INSTRUCTIONS"
  24. 240   LOCATE 3,17:PRINT "162";
  25. 250   LOCATE 4,20:PRINT ".84";
  26. 260   LOCATE 5,15:PRINT "+   4.32";
  27. 270   LOCATE 6,15:PRINT STRING$(9,223);
  28. 280   LOCATE 7,20:PRINT ". ";CHR$(219);
  29. 290   LOCATE 12,1:PRINT "After you have lined up the numbers, the";
  30. 300   LOCATE 14,1:PRINT "problem will look like the one above.";:GOSUB 150
  31. 310   LOCATE 23,5:PRINT STRING$(28,32);
  32. 320   LOCATE 12,1:PRINT "Just before you start adding, you can    ";
  33. 330   LOCATE 14,1:PRINT "put zeroes in the right places by        ";
  34. 340   LOCATE 16,1:PRINT "pressing Z.
  35. 350   LOCATE 20,10:PRINT "Press ";:COLOR CJ,7:PRINT"Z";:COLOR 7,CJ:PRINT", ";GN;".";
  36. 360   GOSUB 850
  37. 370   I=INKEY$: IF I="" THEN 370 ELSE IF I <> "Z" THEN 370
  38. 380   LOCATE 3,20: PRINT ".00";: GOSUB 830: LOCATE 15,12: PRINT "Very nice, ";GN;"!";:GOSUB 150
  39. 390   LOCATE 12,1:PRINT"The white square -- called the cursor --";
  40. 400   LOCATE 14,1:PRINT"shows where you must put the answer.";
  41. 410   LOCATE 15,12:PRINT STRING$(25,32);
  42. 420   LOCATE 17,1:PRINT"If it appears at the bottom, you must";
  43. 430   LOCATE 19,1:PRINT"add the column.";:GOSUB 150
  44. 440   GOSUB 840:LOCATE 12,1:PRINT "Here the sum of the column is 6. You";
  45. 450   LOCATE 14,1:PRINT"must now press 6 to add the column.
  46. 460   LOCATE 17,12:PRINT"Press ";:COLOR CJ,7:PRINT"6";:COLOR 7,CJ:PRINT ", ";GN;".";
  47. 470  GOSUB 850
  48. 480   I=INKEY$: IF I="" THEN 480 ELSE IF I <> "6" THEN 480
  49. 490   LOCATE 2,21:PRINT CHR$(219);:LOCATE 7,22:PRINT"6";
  50. 500   GOSUB 830:LOCATE 17,12:PRINT"Well done, ";GN;"!";:GOSUB 150
  51. 510   LOCATE 12,1:PRINT"Notice that the cursor is now on top of";
  52. 520   LOCATE 14,1:PRINT"the next column. Now you must enter the";
  53. 530   LOCATE 16,1:PRINT"carry.";:LOCATE 17,12:PRINT STRING$(25,32);:GOSUB 150
  54. 540   GOSUB 840:LOCATE 12,1:PRINT "The carry here is 0. You must now press";
  55. 550   LOCATE 14,1:PRINT"the ";:COLOR CJ,7:PRINT"0";:COLOR 7,CJ:PRINT" key.";
  56. 560   LOCATE 17,12:PRINT"Press ";:COLOR CJ,7:PRINT"0";:COLOR 7,CJ:PRINT ", ";GN;".";
  57. 570  GOSUB 850
  58. 580   I=INKEY$: IF I="" THEN 580 ELSE IF I <> "0" THEN 580
  59. 590   LOCATE 2,21:PRINT"0";:LOCATE 7,21:PRINT CHR$(219);
  60. 600   GOSUB 830:LOCATE 12,1:PRINT"Nicely done, ";GN;"!";
  61. 610   LOCATE 14,1:PRINT"Now add the next column.":GOTO 630
  62. 620   LOCATE 12,1:PRINT"Now add the column, ";GN;"."
  63. 630   GOSUB 850
  64. 640   I=INKEY$: IF I="" THEN 640
  65. 650   IF I = "1" THEN I="":GOTO 670
  66. 660   LOCATE 14,1:PRINT STRING$(25,32);:LOCATE 12,1,0:PRINT "The sum here is 11, ";GN;".";:GOSUB 150:LOCATE 23,5:PRINT STRING$(28,32);:GOTO 620
  67. 670   LOCATE 7,21:PRINT "1";:LOCATE 2,19:PRINT CHR$(219);:GOSUB 840
  68. 680   LOCATE 12,1:PRINT"Very well done. Now enter the carry!":GOTO 700
  69. 690   LOCATE 12,1:PRINT"Now enter the carry, ";GN;".";
  70. 700   GOSUB 850
  71. 710   I=INKEY$: IF I="" THEN 710
  72. 720   IF I = "1" THEN I="":GOTO 740
  73. 730   LOCATE 12,1:PRINT "The carry is 1.                     ";:GOSUB 150:LOCATE 23,5:PRINT STRING$(28,32);:GOTO 690
  74. 740  LOCATE 2,19:PRINT"1";:LOCATE 7,19:PRINT CHR$(219);:LOCATE 12,1:PRINT STRING$(39,32);:LOCATE 12,1:PRINT"Excellent, ";GN;"!";:LOCATE 14,1:PRINT"I think you understand how to do this!":GOSUB 150
  75. 750   CLS:LOCATE 3,1:PRINT"After you finish a problem, I will tell";:LOCATE 5,1:PRINT"you what mistakes you made.";
  76. 760   LOCATE 10,1:PRINT"After you finish a set of problems, I";:LOCATE 12,1:PRINT"will give you a list of all the errors";:LOCATE 14,1:PRINT"you made.";:GOSUB 150
  77. 770   CLS:LOCATE 3,1:PRINT"Don't forget to practice the lining-up";:LOCATE 5,1:PRINT"stage, ";GN;".";:LOCATE 10,1:PRINT"Press a key to return to the menu."
  78. 780   I=INKEY$:IF I ="" THEN 780
  79. 790   CLS:LOCATE 12,10:PRINT "Please wait, ";GN;".";
  80. 800   CHAIN "add.bas"
  81. 820  STOP
  82. 830   FOR X=12 TO 20:LOCATE X,1:PRINT STRING$(40,32);:NEXT X:RETURN
  83. 840   FOR X=12 TO 20:LOCATE X,1:PRINT STRING$(40,32);:NEXT X:LOCATE 23,5:PRINT STRING$(28,32);:RETURN
  84. 850  DEF SEG=0: POKE 1050,PEEK(1052): DEF SEG=64: POKE 23,96: DEF SEG: RETURN
  85. 860   DEF SEG: SCREEN 0: CJ=0:COLOR 7,CJ,CJ: CLS: WIDTH 80: RETURN
  86.