home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / educatin / drill.arc / DRILL.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-05-20  |  1.2 KB  |  33 lines
  1. 100 REM * DRILL.BAS * MAIN MENU PGM * CODEWORKS MAGAZINE 3838 SOUTH
  2. 110 REM * WARNER ST. TACOMA, WA 98409 206-475-2219 VOICE AND
  3. 120 REM * 206-475-2356 300/1200 BAUD MODEM
  4. 130 REM * WRITTEN FOR CODEWORKS BY BOB HENKEL, SPANAWAY, WASHINGTON
  5. 140 CLS:'USE YOUR PARTICULAR CLEAR SCREEN COMMAND HERE
  6. 150 'CLEAR 1000:'USE ONLY IF YOU NEED TO CLEAR STRING SPACE
  7. 160 PRINT STRING$(22,45);" The CodeWorks ";STRING$(23,45)
  8. 170 PRINT"      I N S T R U C T O R' S   D R I L L   P R O G R A M"
  9. 180 PRINT"           a collection of exercises by Bob Henkel"
  10. 190 PRINT STRING$(60,45)
  11. 200 PRINT
  12. 210 PRINT TAB(10)"1-Addition";TAB(30)"6-Mental Addition
  13. 220 PRINT TAB(10)"2-Subtraction";TAB(30)"7-Mental Addition/Subtraction
  14. 230 PRINT TAB(10)"3-Multiplication";TAB(30)"8-Update Spelling Files
  15. 240 PRINT TAB(10)"4-Division";TAB(30)"9-End Session
  16. 250 PRINT TAB(10)"5-Spelling
  17. 260 PRINT
  18. 270 LINE INPUT"Enter the number of your choice ";X$
  19. 280 X=VAL(X$)
  20. 290 IF X<1 OR X>9 THEN 270
  21. 300 ON X GOTO 310,320,330,340,350,360,370,380,390
  22. 310 RUN"ADD.BAS
  23. 320 RUN"SUB.BAS
  24. 330 RUN"MULT.BAS
  25. 340 RUN"DIV.BAS
  26. 350 RUN"SPELL.BAS
  27. 360 RUN"MADA.BAS
  28. 370 RUN"MADAS.BAS
  29. 380 RUN"UPDATE.BAS
  30. 390 CLS
  31. 400 PRINT"End of Session."
  32. 410 END
  33.