Source Code
1 REM "SPELLING"
10 DIM W$(100,6)
15 DIM I$(1,6)
20 GOSUB 1000
25 DIM S$(1,6)
30 LET T=0
35 LET C=0
65 LET N=INT (RND*101)
67 IF N=0 THEN GOTO 65
68 IF W$(N)=S$(1) THEN GOTO 65
69 LET S$(1)=W$(N)
70 PRINT "SPELL ",W$(N)
80 PAUSE 100
90 CLS
100 INPUT I$(1)
110 IF W$(N)<>I$(1) THEN GOTO 120
111 LET T=T+1
112 LET C=C+1
113 IF T<>10 THEN GOTO 65
114 PRINT "NUMBER RIGHT ";C
115 LET T=0
116 LET C=0
117 PAUSE 300
118 CLS
119 GOTO 65
120 PRINT "WRONG ";W$(N)
130 PAUSE 100
133 LET T=T+1
135 IF T=10 THEN GOTO 114
140 CLS
150 GOTO 70
\n1000 LET W$(1)="APPLE"
\n1010 LET W$(2)="ORANGE"
\n1020 LET W$(3)="GRAPE"
\n1030 LET W$(4)="DOG"
\n1040 LET W$(5)="CAT"
\n1050 LET W$(6)="BOOK"
\n1060 LET W$(7)="RUN"
\n1070 LET W$(8)="NUMBER"
\n1080 LET W$(9)="BOWL"
\n1090 LET W$(10)="RADIO"
\n1100 LET W$(11)="BEANS"
\n1110 LET W$(12)="MILK"
\n1120 LET W$(13)="ONION"
\n1130 LET W$(14)="CREAM"
\n1140 LET W$(15)="SAUCE"
\n1150 LET W$(16)="BREAD"
\n1160 LET W$(17)="SALAD"
\n1170 LET W$(18)="BAKE"
\n1180 LET W$(19)="BUTTER"
\n1190 LET W$(20)="PEPPER"
\n1200 LET W$(21)="DINNER"
\n1210 LET W$(22)="SPOON"
\n1220 LET W$(23)="GLASS"
\n1230 LET W$(24)="SAUCER"
\n1240 LET W$(25)="KNIFE"
\n1250 LET W$(26)="FORK"
\n1260 LET W$(27)="PLATE"
\n1270 LET W$(28)="NAPKIN"
\n1280 LET W$(29)="CUP"
\n1290 LET W$(30)="SUGAR"
\n1300 LET W$(31)="SHELL"
\n1310 LET W$(32)="PILL"
\n1320 LET W$(33)="TURKEY"
\n1330 LET W$(34)="CAKE"
\n1340 LET W$(35)="POLICE"
\n1350 LET W$(36)="STEAK"
\n1360 LET W$(37)="SOUP"
\n1370 LET W$(38)="ROLLS"
\n1380 LET W$(39)="OCEAN"
\n1390 LET W$(40)="SHIP"
\n1400 LET W$(41)="KAYAK"
\n1410 LET W$(42)="PADDLE"
\n1420 LET W$(43)="CANOE"
\n1430 LET W$(44)="FISH"
\n1440 LET W$(45)="NETS"
\n1450 LET W$(46)="RAFT"
\n1460 LET W$(47)="COTTON"
\n1470 LET W$(48)="TONGUE"
\n1480 LET W$(49)="TOOTH"
\n1490 LET W$(50)="TOOLS"
\n1500 LET W$(51)="DOCTOR"
\n1510 LET W$(52)="NURSE"
\n1520 LET W$(53)="OFFICE"
\n1530 LET W$(54)="SCALES"
\n1540 LET W$(55)="HURT"
\n1550 LET W$(56)="SHIRT"
\n1560 LET W$(57)="PANTS"
\n1570 LET W$(58)="BOOTS"
\n1580 LET W$(59)="JACKET"
\n1590 LET W$(60)="SOCKS"
\n1600 LET W$(61)="GLOVES"
\n1610 LET W$(62)="RIBBON"
\n1620 LET W$(63)="MITTEN"
\n1630 LET W$(64)="PURSE"
\n1640 LET W$(65)="SKIRT"
\n1650 LET W$(66)="SHOES"
\n1660 LET W$(67)="LION"
\n1670 LET W$(68)="PANDA"
\n1680 LET W$(69)="BEAR"
\n1690 LET W$(70)="MONKEY"
\n1700 LET W$(71)="DEER"
\n1710 LET W$(72)="CAMEL"
\n1720 LET W$(73)="ZEBRA"
\n1730 LET W$(74)="TRAIN"
\n1740 LET W$(75)="PAINT"
\n1750 LET W$(76)="BRUSH"
\n1760 LET W$(77)="PENCIL"
\n1770 LET W$(78)="CRAYON"
\n1780 LET W$(79)="PAPER"
\n1790 LET W$(80)="DRAW"
\n1800 LET W$(81)="SMOCK"
\n1810 LET W$(82)="DRUMS"
\n1820 LET W$(83)="GUITAR"
\n1830 LET W$(84)="HORN"
\n1840 LET W$(85)="STREET"
\n1850 LET W$(86)="TRUCK"
\n1860 LET W$(87)="BARBER"
\n1870 LET W$(88)="BENCH"
\n1880 LET W$(89)="STATUE"
\n1890 LET W$(90)="POLICE"
\n1900 LET W$(91)="PUMP"
\n1910 LET W$(92)="PICNIC"
\n1920 LET W$(93)="FOREST"
\n1930 LET W$(94)="POND"
\n1940 LET W$(95)="ANGEL"
\n1950 LET W$(96)="CANDLE"
\n1960 LET W$(97)="CHALK"
\n1970 LET W$(98)="STRING"
\n1980 LET W$(99)="ERASER"
\n1990 LET W$(100)="COOKIE"
\n2000 RETURN
\n2010 STOP
\n2020 SAVE "1017%1"
\n2030 RUN
