DSM: Training reading, memory and spelling


Arie Dirkzwager (aried@xs4all.nl)
Thu, 07 Dec 2000 10:41:53 +0000


At 17:22 6-12-00 -0800, Sturgill, Pat wrote:
>Hey There, Dear Colleagues,
>
>I am doing research into the need for some type of on-going assessment,
>K-12, to insure students are adequately prepared, in terms or spelling,
>reading, and writing skills, for successively higher grade levels. Does
>anyone out there have any ideas on this? I appreciate your help.

         Try the attached Q_Basic program and let me know how you like it.
Arie

DECLARE FUNCTION number$ (j!)
'Diktee programma voor Talla
DECLARE FUNCTION exist! (name$)
DECLARE FUNCTION presenteer! (opgave$)
begin:
IF exist("znd.txt") THEN
        OPEN "znd.txt" FOR INPUT AS #5
        INPUT #5, ndiktee
        CLOSE #5
ELSE
        ndiktee = 0
END IF

PRINT "Which exercise do you want to do?"
FOR i = 1 TO ndiktee
        OPEN "zd" + number$(i) + ".txt" FOR INPUT AS #5
        INPUT #5, eerste$
        PRINT i; ": "; eerste$
        CLOSE #5
NEXT i
PRINT i; ": Input new exercise."
DO
        PRINT "Type a number between 1 and "; ndiktee + 1;
        INPUT dikteenr
LOOP UNTIL (dikteenr <= ndiktee + 1)
IF dikteenr = i THEN
        OPEN "zd" + number$(i) + ".txt" FOR OUTPUT AS #5
        PRINT "Type the sentences, ENTER to stop."
        DO
                INPUT opgave$
                PRINT #5, opgave$
        LOOP UNTIL opgave$ = ""
        CLOSE #5
        OPEN "znd.txt" FOR OUTPUT AS #5
        PRINT #5, ndiktee + 1
        CLOSE #5
ELSE
        OPEN "zd" + number$(dikteenr) + ".txt" FOR INPUT AS #5
        DO
                INPUT #5, opgave$
                IF opgave$ <> "" THEN x = presenteer(opgave$)
        LOOP UNTIL opgave$ = ""
        CLOSE #5
END IF
INPUT "'s' to stop"; t$
IF t$ = "s" THEN STOP
GOTO begin
END

FUNCTION exist (name$)
  OPEN name$ FOR APPEND AS #7
  exist = (LOF(7) > 0)
  CLOSE #7
END FUNCTION

FUNCTION number$ (j)
  IF j > 999 THEN
    PRINT "Number should be less than 999."
  ELSE
    IF j < 10 THEN
      number$ = CHR$(j + ASC("0"))
    ELSE
      number$ = number$(INT(j / 10)) + CHR$(j MOD 10 + ASC("0"))
    END IF
  END IF
END FUNCTION

FUNCTION presenteer (opgave$)
CLS
PRINT "Type as quickly as possible:"
PRINT
PRINT
PRINT
delete$ = CHR$(13)
Esc$ = CHR$(27)
bt = TIMER
PRINT opgave$
nf = 0
antwoord$ = ""
DO
        t$ = ""
        DO
                t$ = INKEY$
        LOOP UNTIL t$ <> ""
        IF LEN(antwoord$) = 0 THEN CLS
        antwoord$ = antwoord$ + t$
        PRINT t$;
LOOP UNTIL LEN(opgave$) = LEN(antwoord$)
PRINT
ht = TIMER
weer:
i = 1
DO
        g$ = MID$(opgave$, i, 1)
        a$ = MID$(antwoord$, i, 1)
        IF g$ = a$ THEN
                i = i + 1
                PRINT " ";
        ELSE
                PRINT "^"
                nf = nf + 1
        END IF
LOOP UNTIL g$ <> a$ OR i = LEN(opgave$) + 1
IF i <> LEN(opgave$) + 1 THEN
        FOR j = 1 TO i
                PRINT " ";
        NEXT j
        PRINT "Wrong, type the right letter or key 'ENTER' to erase the wrong letter."
        PRINT "key 'Esc' to show the example again."
        t$ = ""
        DO
                t$ = INKEY$
        LOOP UNTIL t$ <> ""
        IF t$ = Esc$ THEN
                CLS
                PRINT opgave$
                PRINT antwoord$
                GOTO weer
        END IF
        IF t$ = delete$ THEN
                antwoord$ = MID$(antwoord$, 1, i - 1) + MID$(antwoord$, i + 1)
        ELSE
                antwoord$ = MID$(antwoord$, 1, i - 1) + t$ + MID$(antwoord$, i)
        END IF
        CLS
        PRINT antwoord$
        GOTO weer
END IF
et = TIMER
PRINT
PRINT "Right within "; (et - bt); " seconds."
PRINT nf / 2; " errors."
PRINT 60 * (ht - bt) / LEN(opgave$); " keystrokes per minute."
PRINT "Key 'ENTER' for next exercise, ";
INPUT "'s' to stop"; t$
IF t$ = "s" THEN STOP
presenteer = nf
END FUNCTION

BetterSystems,
Prof.Dr.A.Dirkzwager,
Educational Instrumentation Technology,
Computers in Education.
Huizerweg 62,
1402 AE Bussum,
The Netherlands.
voice: x31-35-6981676
E-mail: mailto:aried@xs4all.nl
web site featuring educational testing methods:
http://www.xs4all.nl/~aried/home.htm
{========================================================================}
When reading the works of an important thinker, look first for the
apparent absurdities in the text and ask yourself how a sensible person
could have written them." T. S. Kuhn, The Essential Tension (1977).
============================================================================
Accept that some days you are the statue, and some days you are the bird.



This archive was generated by hypermail 2.0b3 on Thu Mar 29 2001 - 11:10:03 EST