home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / USCX / GAMES-10.ZIP / SPELLER.BAS < prev    next >
BASIC Source File  |  1982-11-21  |  3KB  |  104 lines
  1. 10 CLS
  2. 20 A$=STRING$(80,205)
  3. 30 PRINT A$
  4. 40 PRINT TAB(28)"5006-A.BAS     SPELLER-1"
  5. 50 COLOR 23,0,0
  6. 60 PRINT :PRINT :PRINT TAB(38)"IPCO"
  7. 70 COLOR 7,0,0
  8. 80 PRINT :PRINT :PRINT TAB(29)"INTERNATIONAL PC OWNERS"
  9. 90 PRINT :PRINT :PRINT TAB(17)"p.o. box 10426, pittsburgh, pennsylvania 15234"
  10. 100 PRINT A$
  11. 110 PRINT :PRINT :PRINT :PRINT :PRINT
  12. 120 PRINT TAB(28)"PRESS ANY KEY TO CONTINUE"
  13. 130 A$=INKEY$:IF A$="" THEN 130
  14. 140 CLS
  15. 1000 REM *** SPELLING PROGRAM ****
  16. 1010 REM *** PROGRAM WRITTEN BY RAYMOND H. SCHILLING ***
  17. 1020 REM                        6065 REDFORD ROAD N.W.
  18. 1030 REM                        NORTH CANTON, OHIO 44720
  19. 1040 REM                        (216) 494-3289
  20. 1050 REM *** DATE WRITTEN 03/01/82 ***
  21. 1060 REM ************************************************************************
  22. 1070 REM ---- THIS PROGRAM ALLOWS YOU TO ENTER A LIST OF SPELLING WORDS
  23. 1080 REM      AND THEN DISPLAYS EACH WORD FOR 2 SECONDS
  24. 1090 REM      AND THEN THE STUDENT MUST TYPE THE WORD CORRECTLY ----
  25. 1100 REM ---- THE PROGRAM KEEPS TRACK OF THE NUMBER OF WORDS ANSWERED CORRECTLY
  26. 1110 REM      AND REPEATS THE WORDS MISSED FOR THE STUDENT TO REDO ----
  27. 1120 REM ************************************************************************
  28. 1130 CLS
  29. 1140 KEY OFF
  30. 1150 DIM WORDS$(100)
  31. 1160 LET I=1
  32. 1170 PRINT "ENTER YOUR LIST OF SPELLING WORDS -- ONE WORD AFTER EACH QUESTION MARK"
  33. 1180 PRINT "ENTER THE WORD 'done' WHEN YOU HAVE FINISHED ENTERING ALL YOUR SPELLING WORDS"
  34. 1190 PRINT
  35. 1200 INPUT WORDS$(I)
  36. 1210 IF WORDS$(I)="DONE" THEN 1250
  37. 1220 IF WORDS$(I)="done" THEN 1250
  38. 1230 I=I+1
  39. 1240 GOTO 1200
  40. 1250 CLS
  41. 1260 PRINT
  42. 1270 PRINT "HIT ANY KEY WHEN YOU ARE READY TO BEGIN."
  43. 1280 A$=INKEY$
  44. 1290 IF A$="" THEN 1280
  45. 1300 I=I-1
  46. 1310 J=0:K=0
  47. 1320 CLS
  48. 1330 J=J+1
  49. 1340 TIME$="00:00:00"
  50. 1350 WHILE TIME$<"00:00:02"
  51. 1360 COLOR 15,0
  52. 1370 LOCATE 10,(39-LEN(WORDS$(J))/2)
  53. 1380 PRINT WORDS$(J)
  54. 1390 WEND
  55. 1400 CLS
  56. 1410 LOCATE 11,31
  57. 1420 FOR M=1 TO 18:PRINT CHR$(223);:NEXT M
  58. 1430 LOCATE 11,30:PRINT CHR$(221):LOCATE 11,50:PRINT CHR$(221)
  59. 1440 LOCATE 12,30:PRINT CHR$(221):LOCATE 12,50:PRINT CHR$(221)
  60. 1450 LOCATE 14,30:PRINT CHR$(221):LOCATE 14,50:PRINT CHR$(221)
  61. 1460 LOCATE 15,30:PRINT CHR$(221):LOCATE 15,50:PRINT CHR$(221)
  62. 1470 LOCATE 15,31
  63. 1480 FOR M=1 TO 18:PRINT CHR$(220);:NEXT M
  64. 1490 COLOR 15,0
  65. 1500 LOCATE 13,31
  66. 1510 INPUT R$
  67. 1520 COLOR 7,0
  68. 1530 IF R$=WORDS$(J) THEN C=C+1:GOTO 1560
  69. 1540 K=K+1
  70. 1550 LET WRONG$(K)=WORDS$(J)
  71. 1560 IF J<>I THEN 1320
  72. 1570 CLS
  73. 1580 BEEP:BEEP:BEEP
  74. 1590 PRINT "YOU SPELLED ";C;" WORDS CORRECTLY OUT OF A LIST OF ";I;" WORDS."
  75. 1600 PRINT
  76. 1610 IF C=I THEN 1790
  77. 1620 PRINT "HERE ARE THE WORDS YOU MISSED."
  78. 1630 PRINT "TYPE THE WORD CORRECTLY AFTER THE QUESTION MARK!"
  79. 1640 PRINT
  80. 1650 LET J=0
  81. 1660 LET J=J+1
  82. 1670 PRINT WRONG$(J)
  83. 1680 PRINT
  84. 1690 INPUT R$
  85. 1700 IF R$=WRONG$(J) THEN 1720
  86. 1710 PRINT "WRONG! TRY AGAIN.":GOTO 1680
  87. 1720 BEEP
  88. 1730 PRINT "GOOD! THAT'S CORRECT."
  89. 1740 PRINT
  90. 1750 IF K=J THEN 1810
  91. 1760 PRINT "HERE'S THE NEXT WORD."
  92. 1770 PRINT
  93. 1780 GOTO 1660
  94. 1790 PRINT
  95. 1800 BEEP:PRINT "CONGRATULATIONS! YOU SPELLED THEM ALL CORRECTLY"
  96. 1810 PRINT
  97. 1820 BEEP
  98. 1830 PRINT "THAT'S ALL FOR NOW!"
  99. 1840 KEY ON
  100. PRINT "CONGRATULATIONS! YOU SPELLED THEM ALL CORRECTLY"
  101. 1810 PRINT
  102. 1820 BEEP
  103. 1830 PRINT "THAT'S ALL FOR NOW!"
  104. 184