home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / apit / alphabet.bas < prev    next >
BASIC Source File  |  1989-03-06  |  7KB  |  238 lines
  1. 10 'SAVE "ALPHABET.BAS"
  2. 20 DEFINT A-Z
  3. 30 DIM ALPH$(26,9)
  4. 40 '
  5. 50 FOR I=1 TO 26
  6. 60    FOR J = 1 TO 7
  7. 70      READ ALPH$(I,J)
  8. 80    NEXT J
  9. 90 NEXT I
  10. 100 FOR I=1 TO 26
  11. 110   READ ALPH$(I,8)
  12. 120 NEXT I
  13. 130 FOR I=1 TO 26
  14. 140    READ ALPH$(I,9)
  15. 150 NEXT I
  16. 160 'FOR I=1 TO 26
  17. 170 '   FOR J=1 TO 9
  18. 180 '    PRINT ALPH$(I,J)
  19. 190 '   NEXT J
  20. 200 'NEXT I
  21. 210 CLS
  22. 220 RA$=RIGHT$(TIME$,2):RA=VAL(RA$):IF RA=0 THEN RA=100
  23. 230 RANDOMIZE RA
  24. 240 RALPH$="ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ"
  25. 250 SALPH$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  26. 260 WHILE GOOD < 26
  27. 270 R=INT(RND*100):IF R=0 THEN 270
  28. 280 LALPH$=MID$(RALPH$,R,1)
  29. 290 ALNUM=INSTR(SALPH$,LALPH$)
  30. 300 CLS
  31. 310 FOR I = 1 TO 7
  32. 320     J=I+10
  33. 330     LOCATE J,30:PRINT ALPH$(ALNUM,I)
  34. 340 NEXT I
  35. 350 LOCATE 24,30:PRINT "PRESS LETTER ON KEYBOARD";
  36. 360 K$=INKEY$:IF K$="" THEN 360
  37. 370 IF K$=ALPH$(ALNUM,8) OR K$=ALPH$(ALNUM,9) THEN GOOD=GOOD+1:GOSUB 2360:GOODFLAG=1:ELSE BAD=BAD+1:BAD$=BAD$+ALPH$(ALNUM,8):GOSUB 2370
  38. 380 IF GOODFLAG=1 AND LEN(BAD$)>1 THEN SLIP=INSTR(RALPH$,ALPH$(ALNUM,8)):MID$(RALPH$,SLIP,1)=LEFT$(BAD$,1):LENBAD=LEN(BAD$)-1:BAD$=RIGHT$(BAD$,LENBAD):IF BAD$<=" " THEN BAD$=""
  39. 390 TRYS=TRYS+1:GOODFLAG=0
  40. 400 IF GOOD=26 THEN LOCATE 5,20:COLOR 0,7:PRINT "YOU GOT "GOOD" CORRECT AND "BAD" INCORRECT":COLOR 7,0
  41. 410 PERCENTAGE=(GOOD/TRYS)*100:IF PERCENTAGE <= 50 AND TRYS>10 THEN CLS:COLOR 0,7:LOCATE 12,20:PRINT "YOU HAVE LESS THAN HALF RIGHT SO FAR":LOCATE 13,20:PRINT "DO YOU STILL WANT TO PLAY (Y OR N)":COLOR 7,0:GOSUB 2300
  42. 420 FOR W=1 TO 500:NEXT W:DEF SEG=0:POKE 1050,PEEK(1052):DEF SEG:
  43. 430 WEND
  44. 440 LOCATE 1,1:PRINT "PLAY AGAIN?(Y,N)"
  45. 450 K$=INKEY$:IF K$="" THEN 450
  46. 460 IF K$="Y" OR K$="y" THEN RUN "ALPHA.BAS" ELSE SYSTEM
  47. 470 DATA "      AAAAAA"
  48. 480 DATA "     AAA  AAA"
  49. 490 DATA "    AAA    AAA"
  50. 500 DATA "   AAAAAAAAAAAA"
  51. 510 DATA "  AAA        AAA"
  52. 520 DATA " AAA          AAA"
  53. 530 DATA " AAA          AAA"
  54. 540 DATA " BBBBBBBB"
  55. 550 DATA " BBB     BB"
  56. 560 DATA " BBB    B"
  57. 570 DATA " BBBBBBB"
  58. 580 DATA " BBB    B"
  59. 590 DATA " BBB     BB"
  60. 600 DATA " BBBBBBBB"
  61. 610 DATA "      CCCCCCC"
  62. 620 DATA "    CCC     CCC
  63. 630 DATA "   CCC "
  64. 640 DATA "   CCC"
  65. 650 DATA "   CCC"
  66. 660 DATA "    CCC     CCC"
  67. 670 DATA "      CCCCCCC"
  68. 680 DATA " DDDDDDDD"
  69. 690 DATA " DDD   DDD"
  70. 700 DATA " DDD    DDD"
  71. 710 DATA " DDD     DDD"
  72. 720 DATA " DDD    DDD"
  73. 730 DATA " DDD   DDD"
  74. 740 DATA " DDDDDDDD"
  75. 750 DATA " EEEEEEEEEEE"
  76. 760 DATA " EEE"
  77. 770 DATA " EEE"
  78. 780 DATA " EEEEEE"
  79. 790 DATA " EEE"
  80. 800 DATA " EEE"
  81. 810 DATA " EEEEEEEEEEE"
  82. 820 DATA " FFFFFFFFFFF"
  83. 830 DATA " FFF"
  84. 840 DATA " FFF"
  85. 850 DATA " FFFFFF"
  86. 860 DATA " FFF"
  87. 870 DATA " FFF"
  88. 880 DATA " FFF"
  89. 890 DATA "      GGGGGGG"
  90. 900 DATA "    GGG     GGG"
  91. 910 DATA "   GGG "
  92. 920 DATA "   GGG"
  93. 930 DATA "   GGG    GGGGGG"
  94. 940 DATA "    GGG      GG"
  95. 950 DATA "      GGGGGGG"
  96. 960 DATA " HHH   HHH"
  97. 970 DATA " HHH   HHH"
  98. 980 DATA " HHH   HHH"
  99. 990 DATA " HHHHHHHHH"
  100. 1000 DATA " HHH   HHH"
  101. 1010 DATA " HHH   HHH"
  102. 1020 DATA " HHH   HHH"
  103. 1030 DATA "    III   "
  104. 1040 DATA "    III"
  105. 1050 DATA "    III"
  106. 1060 DATA "    III"
  107. 1070 DATA "    III"
  108. 1080 DATA "    III"
  109. 1090 DATA "    III   "
  110. 1100 DATA "     JJJ   "
  111. 1110 DATA "     JJJ "
  112. 1120 DATA "     JJJ "
  113. 1130 DATA "     JJJ"
  114. 1140 DATA " JJ  JJJ"
  115. 1150 DATA " JJ  JJJ"
  116. 1160 DATA " JJJJJJ
  117. 1170 DATA " KKK   KKKK"
  118. 1180 DATA " KKK   KK"
  119. 1190 DATA " KKK  KK"
  120. 1200 DATA " KKKKK"
  121. 1210 DATA " KKK  KK"
  122. 1220 DATA " KKK   KK"
  123. 1230 DATA " KKK   KKKKK"
  124. 1240 DATA " LLL"
  125. 1250 DATA " LLL"
  126. 1260 DATA " LLL"
  127. 1270 DATA " LLL"
  128. 1280 DATA " LLL"
  129. 1290 DATA " LLL"
  130. 1300 DATA " LLLLLLLLL"
  131. 1310 DATA " MM     MM"
  132. 1320 DATA " MMM   MMM"
  133. 1330 DATA " MM  M  MM"
  134. 1340 DATA " MM     MM"
  135. 1350 DATA " MM     MM"
  136. 1360 DATA " MM     MM"
  137. 1370 DATA " MMM   MMM"
  138. 1380 DATA " NN    NNN"
  139. 1390 DATA " NNN    NN"
  140. 1400 DATA " NN N   NN"
  141. 1410 DATA " NN  N  NN"
  142. 1420 DATA " NN   N NN"
  143. 1430 DATA " NN    NNN"
  144. 1440 DATA " NNN    NN"
  145. 1450 DATA "      OOOOOOO"
  146. 1460 DATA "    OOO     OOO"
  147. 1470 DATA "   OOO       OOO"
  148. 1480 DATA "   OOO       OOO"
  149. 1490 DATA "   OOO       OOO"
  150. 1500 DATA "    OOO     OOO"
  151. 1510 DATA "      OOOOOOO"
  152. 1520 DATA " PPPPPPP"
  153. 1530 DATA " PPP   PP"
  154. 1540 DATA " PPP   PP"
  155. 1550 DATA " PPP  PP"
  156. 1560 DATA " PPPPPP"
  157. 1570 DATA " PPP"
  158. 1580 DATA " PPP"
  159. 1590 DATA "      QQQQQQQ"
  160. 1600 DATA "    QQQ     QQQ"
  161. 1610 DATA "   QQQ       QQQ"
  162. 1620 DATA "   QQQ  Q    QQQ"
  163. 1630 DATA "   QQQ   QQ  QQQ"
  164. 1640 DATA "    QQQ    QQQQ"
  165. 1650 DATA "      QQQQQQQ QQ"
  166. 1660 DATA " RRRRRRR"
  167. 1670 DATA " RRR   RR"
  168. 1680 DATA " RRR  RR"
  169. 1690 DATA " RRRRR"
  170. 1700 DATA " RRR  RR"
  171. 1710 DATA " RRR   RR"
  172. 1720 DATA " RRR   RR"
  173. 1730 DATA "   SSSS"
  174. 1740 DATA " SSS   SS"
  175. 1750 DATA " SSS"
  176. 1760 DATA "   SSSS"
  177. 1770 DATA "      SSS"
  178. 1780 DATA " SS   SSS"
  179. 1790 DATA "   SSSS"
  180. 1800 DATA " TTTTTTTTT"
  181. 1810 DATA "    TTT"
  182. 1820 DATA "    TTT"
  183. 1830 DATA "    TTT"
  184. 1840 DATA "    TTT"
  185. 1850 DATA "    TTT"
  186. 1860 DATA "    TTT   "
  187. 1870 DATA " UUU   UUU"
  188. 1880 DATA " UUU   UUU"
  189. 1890 DATA " UUU   UUU"
  190. 1900 DATA " UUU   UUU"
  191. 1910 DATA " UUU   UUU"
  192. 1920 DATA " UUU   UUU"
  193. 1930 DATA " UUUUUUUUU"
  194. 1940 DATA " VV     VV"
  195. 1950 DATA " VVV   VVV"
  196. 1960 DATA " VVV   VVV"
  197. 1970 DATA "  VVV VVV "
  198. 1980 DATA "   VV VV  "
  199. 1990 DATA "    VVV   "
  200. 2000 DATA "     V
  201. 2010 DATA " WW     WW"
  202. 2020 DATA " WW  W  WW"
  203. 2030 DATA " WW  W  WW"
  204. 2040 DATA " WW WWW WW"
  205. 2050 DATA " WWWW WWWW"
  206. 2060 DATA " WWW   WWW"
  207. 2070 DATA " WW     WW"
  208. 2080 DATA " XX     XX"
  209. 2090 DATA "  XX   XX"
  210. 2100 DATA "   XX XX "
  211. 2110 DATA "    XXX"
  212. 2120 DATA "   XX XX"
  213. 2130 DATA "  XX   XX"
  214. 2140 DATA " XX     XX"
  215. 2150 DATA " YY     YY"
  216. 2160 DATA "  YY   YY"
  217. 2170 DATA "   YY YY"
  218. 2180 DATA "    YYY"
  219. 2190 DATA "    YYY"
  220. 2200 DATA "    YYY"
  221. 2210 DATA "    YYY"
  222. 2220 DATA "  ZZZZZZZZ"
  223. 2230 DATA "       ZZ "
  224. 2240 DATA "      ZZ  "
  225. 2250 DATA "     ZZ   "
  226. 2260 DATA "    ZZ    "
  227. 2270 DATA "   ZZ "
  228. 2280 DATA "  ZZZZZZZZ"
  229. 2290 DATA "A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z"
  230. 2300 DEF SEG=0:POKE 1050,PEEK(1052):DEF SEG
  231. 2310 K$=INKEY$:IF K$="" THEN 2310
  232. 2320 IF K$="N" OR K$="n" THEN PRINT "PROGRAM ENDING IN"COUNT" TRYS":FOR Z=1 TO 1000:NEXT Z:SYSTEM
  233. 2330 RETURN
  234. 2340 'MUSIC
  235. 2350 SOUND 800,4:SOUND 32767,1
  236. 2360 SOUND 1000,2:SOUND 1180,3:RETURN
  237. 2370 SOUND 30,10:RETURN
  238.