Henrietta's Book of Spells: HenBookS.B

  0
  10 BORDER 0: PAPER 0: INK 0: CLEAR 65367: RANDOMIZE USR 23872: RANDOMIZE USR 15619: REM : LOAD "scr"CODE 
  11 PAUSE 0: BORDER 5: PAPER 5: CLS 
  20 PLOT  55,128: DRAW 145,0: DRAW 0,-57: DRAW -145,0: DRAW 0,57
  25 PLOT  201,127: DRAW 0,-57: PLOT  56,70: DRAW 145,0
  30 PRINT  BRIGHT 1;AT 6,7;"   HENRIETTA'S    ";AT 7,7;"  BOOK of SPELLS  "
  40 PRINT AT 8,7;"                  "
  50 PRINT AT 9,7;" 1: 7-10 years    "
  60 PRINT AT 10,7;" 2: 11-14+ years  "
  70 PRINT AT 11,7;" 3: Editor        "
  80 PRINT AT 12,7;"                  "
  90 PRINT  BRIGHT 1;AT 15,7;" Select 1, 2 or 3 "
  100 LET i$=INKEY$: IF INKEY$="" THEN  GO TO 100
  110 IF i$="1" THEN  PRINT  BRIGHT 1; OVER 1;AT 9,7;"                  ": PRINT AT 15,7,,: BEEP .1 TO ,0: RANDOMIZE USR 15619: REM : LOAD "Spells1"
  120 IF i$="2" THEN  PRINT  BRIGHT 1; OVER 1;AT 10,7;"                  ": PRINT AT 15,7,,: BEEP .1 TO ,1: RANDOMIZE USR 15619: REM : LOAD "Spells2"
  130 IF i$="3" THEN  PRINT  BRIGHT 1; OVER 1;AT 11,7;"                  ": PRINT AT 15,7,,: BEEP .1 TO ,2: RANDOMIZE USR 15619: REM : LOAD "Editor"
  140 GO TO 100
  18688