Spell

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10122 – 10175.

Gallery

Spell

Source Code

  10 REM %S%P%E%L%L
  20 DIM A$(10,10)
  30 DIM B$(1,10)
  40 PRINT "LIST 10 WORDS"
  50 FOR N=1 TO 10
  60 INPUT A$(N,1 TO 10)
  70 NEXT N
  75 CLS 
  80 PRINT "PRESS ""R"" WHEN YOU ARE READY"
  90 IF INKEY$="" THEN GOTO 90
 100 IF INKEY$<>"R" THEN GOTO 90
 140 LET S=0
 150 FOR N=1 TO 10
 155 CLS 
 160 PRINT A$(N,1 TO 10)
 170 PAUSE 100
 180 CLS 
 190 INPUT B$(1,1 TO 10)
 200 IF B$(1,1 TO 10)=A$(N,1 TO 10) THEN GOTO 250
 210 LET S=S-1
 220 PRINT "WRONG"
 230 PAUSE 100
 235 CLS 
 240 GOTO 160
 250 PRINT "CORRECT"
 260 LET S=S+1
 270 PAUSE 100
 280 CLS 
 290 NEXT N
 300 IF S=10 THEN GOTO 330
 305 PRINT "SCORE= ";S,,"SAME WORDS? (Y/N)"
 306 IF INKEY$="Y" THEN GOTO 150
 310 LET S=0
 320 GOTO 20
 330 PRINT "ALL CORRECT"
 335 GOSUB 400
 340 PAUSE 200
 350 CLEAR 
 355 CLS 
 360 GOTO 20
 400 FOR U=1 TO 25
 410 PLOT INT (RND*64),INT (RND*44)
 420 NEXT U
 430 FOR M=1 TO 15
 440 PRINT AT 11,10;"%R%A%H";
 450 PRINT AT 11,10;"RAH"
 460 NEXT M
 470 RETURN 
 480 SAVE "1015%8"
 490 RUN 

People

No people associated with this content.

Scroll to Top