'===========================================================================
' Subject: EMULATES TYPING BLUNDERS          Date: Year of 1994           
' Author:  The ABC Programmer                Code: QB, QBasic, PDS        
' Keys:    EMULATE,TYPING,BLUNDERS         Packet: TEXT.ABC
'===========================================================================
'==================================================
'  BLUNDERS.BAS by William Yu  (1994)
'  Emulates a simple typing blunder and corrects
'  the spelling.
'  This works for single letters.
'==================================================

DEFINT A-Z

CONST False = 0
CONST True = NOT False

CLS
Text$ = "^yYou ^nknow this is a ^nbad reput^eation for this ^Sschool don^;'t you^>?"
WholeWord$ = "|These This program |is was written for |bluder blunders."
LOCATE , , 1
I = 0: X = 1
Blunder = False

DO
  I = I + 1
  IF Blunder THEN
    I = I - 1
    X = X - 1
    T! = TIMER
    DO WHILE TIMER - T! <= .1
    LOOP
    LOCATE , X: PRINT " ";
    LOCATE , X
    T! = TIMER
    DO WHILE TIMER - T! <= .1
    LOOP
    Blunder = False
    I = I + 2
  END IF
  LOCATE , X
  IF MID$(Text$, I, 1) = "^" THEN
    PRINT MID$(Text$, I + 1, 1);
    Blunder = True
    X = X + 1
  ELSE
    PRINT MID$(Text$, I, 1);
    Blunder = False
    X = X + 1
  END IF
  T! = TIMER
  DO WHILE TIMER - T! <= .07
  LOOP
LOOP UNTIL I = LEN(Text$)