Spelling

Gallery

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
1000 LET W$(1)="APPLE"
1010 LET W$(2)="ORANGE"
1020 LET W$(3)="GRAPE"
1030 LET W$(4)="DOG"
1040 LET W$(5)="CAT"
1050 LET W$(6)="BOOK"
1060 LET W$(7)="RUN"
1070 LET W$(8)="NUMBER"
1080 LET W$(9)="BOWL"
1090 LET W$(10)="RADIO"
1100 LET W$(11)="BEANS"
1110 LET W$(12)="MILK"
1120 LET W$(13)="ONION"
1130 LET W$(14)="CREAM"
1140 LET W$(15)="SAUCE"
1150 LET W$(16)="BREAD"
1160 LET W$(17)="SALAD"
1170 LET W$(18)="BAKE"
1180 LET W$(19)="BUTTER"
1190 LET W$(20)="PEPPER"
1200 LET W$(21)="DINNER"
1210 LET W$(22)="SPOON"
1220 LET W$(23)="GLASS"
1230 LET W$(24)="SAUCER"
1240 LET W$(25)="KNIFE"
1250 LET W$(26)="FORK"
1260 LET W$(27)="PLATE"
1270 LET W$(28)="NAPKIN"
1280 LET W$(29)="CUP"
1290 LET W$(30)="SUGAR"
1300 LET W$(31)="SHELL"
1310 LET W$(32)="PILL"
1320 LET W$(33)="TURKEY"
1330 LET W$(34)="CAKE"
1340 LET W$(35)="POLICE"
1350 LET W$(36)="STEAK"
1360 LET W$(37)="SOUP"
1370 LET W$(38)="ROLLS"
1380 LET W$(39)="OCEAN"
1390 LET W$(40)="SHIP"
1400 LET W$(41)="KAYAK"
1410 LET W$(42)="PADDLE"
1420 LET W$(43)="CANOE"
1430 LET W$(44)="FISH"
1440 LET W$(45)="NETS"
1450 LET W$(46)="RAFT"
1460 LET W$(47)="COTTON"
1470 LET W$(48)="TONGUE"
1480 LET W$(49)="TOOTH"
1490 LET W$(50)="TOOLS"
1500 LET W$(51)="DOCTOR"
1510 LET W$(52)="NURSE"
1520 LET W$(53)="OFFICE"
1530 LET W$(54)="SCALES"
1540 LET W$(55)="HURT"
1550 LET W$(56)="SHIRT"
1560 LET W$(57)="PANTS"
1570 LET W$(58)="BOOTS"
1580 LET W$(59)="JACKET"
1590 LET W$(60)="SOCKS"
1600 LET W$(61)="GLOVES"
1610 LET W$(62)="RIBBON"
1620 LET W$(63)="MITTEN"
1630 LET W$(64)="PURSE"
1640 LET W$(65)="SKIRT"
1650 LET W$(66)="SHOES"
1660 LET W$(67)="LION"
1670 LET W$(68)="PANDA"
1680 LET W$(69)="BEAR"
1690 LET W$(70)="MONKEY"
1700 LET W$(71)="DEER"
1710 LET W$(72)="CAMEL"
1720 LET W$(73)="ZEBRA"
1730 LET W$(74)="TRAIN"
1740 LET W$(75)="PAINT"
1750 LET W$(76)="BRUSH"
1760 LET W$(77)="PENCIL"
1770 LET W$(78)="CRAYON"
1780 LET W$(79)="PAPER"
1790 LET W$(80)="DRAW"
1800 LET W$(81)="SMOCK"
1810 LET W$(82)="DRUMS"
1820 LET W$(83)="GUITAR"
1830 LET W$(84)="HORN"
1840 LET W$(85)="STREET"
1850 LET W$(86)="TRUCK"
1860 LET W$(87)="BARBER"
1870 LET W$(88)="BENCH"
1880 LET W$(89)="STATUE"
1890 LET W$(90)="POLICE"
1900 LET W$(91)="PUMP"
1910 LET W$(92)="PICNIC"
1920 LET W$(93)="FOREST"
1930 LET W$(94)="POND"
1940 LET W$(95)="ANGEL"
1950 LET W$(96)="CANDLE"
1960 LET W$(97)="CHALK"
1970 LET W$(98)="STRING"
1980 LET W$(99)="ERASER"
1990 LET W$(100)="COOKIE"
2000 RETURN 
2010 STOP 
2020 SAVE "1017%1"
2030 RUN