100  REM  WORD I DISPLAY
110  LOMEM= 36870
120  TEXT : HOME 
140 B = 64:N = 18:X = 0
150  IF  PEEK (64448) <  > 224 OR  PEEK (65296) = 175 THEN 200
160 GS = 1:QT% =  PEEK (49186):QB% =  PEEK (49204):QS% =  PEEK (49206)
170 C = 16 *  INT (QB% / 16): POKE 49204,C:QB% = QB% - C
180  POKE 49186,240: IF QS% > 127 THEN  POKE 49206,QS% - 128: GOTO 200
190 QS% = 0
200  PRINT  CHR$ (4)"BLOAD WORDI DISP BIN"
210  PRINT  CHR$ (4)"BLOAD SUPER QUEST <INTRO.> TEXT,A$3C00"
220 ZZ =  PEEK (49168)
230  POKE 250,60: CALL 816: CALL 768
240  FOR TT = 0 TO 444
250  IF  PEEK (49152) < 128 THEN  NEXT TT
255 ZZ =  PEEK (49168): TEXT : HOME : VTAB 10: PRINT "MACHINES WITH A CAPS LOCK KEY SHOULD ": PRINT "HAVE CAPS LOCK SET TO 'ON'.": PRINT : PRINT "      PRESS A KEY TO CONTINUE: ";: GET Q$: PRINT 
260 ZZ =  PEEK (49168): TEXT : HOME : VTAB 10: PRINT "INTRODUCTION? (Y/N) ";: GET Q$: PRINT Q$: IF Q$ = "N" THEN X = N
270  POKE 250,B + X * 4: CALL 768
280  IF X = N THEN  PRINT  CHR$ (4)"OPENG": PRINT  CHR$ (4)"WRITEG": PRINT QT%: PRINT QB%: PRINT QS%: PRINT  CHR$ (4)"CLOSE": FOR TT = 0 TO 333: NEXT TT: PRINT  CHR$ (4)"RUN SQX.5"
290  CALL 800
300 K =  PEEK (250)
310  IF K = 8 THEN X = X - (X > 0): GOTO 270
320 X = X + (X < N): GOTO 270