Screen Open 7,640,249,4,Hires : Screen Hide 7 : Curs Off : Paper 0 : Pen 1 : Flash Off : Cls : Screen Display 7,128,40,640,249 : Colour Back $29F : Paste Bob 0,233,1 : Paste Bob 96,233,2 : Paste Bob 258,235,5 : Paste Bob 400,235,6
Paste Bob 192,233,7 : Get Sprite Palette : Reserve Zone 3 : Set Zone 1,0,233 To 95,255 : Set Zone 2,96,233 To 191,255 : Set Zone 3,192,233 To 247,255 : Limit Mouse 128,275 To 251,275 : X$="DF0:Instructions" : A$="" : XC=0 : XD=1
XE=0 : XG=0 : XH=0 : XI=1 : XM=0 : Dim XF(900) : Open In 1,X$ : XA=Lof(1) : Close 1 : Erase 15 : Reserve As Chip Work 15,XA : XB=Start(15) : Bload X$,XB
3
Z$=Chr$(Peek(XB+XE)) : If XE=XA Then Goto 5
If Z$=Chr$(10) Then Locate 0,XD : Print A$; : A$="" : XF(XG)=XE-XC : XC=0 : Add XE,1 : Add XG,1 : Add XD,1 : If XD=29 Then Goto 5 Else Goto 3
A$=A$+Z$ : If XC<80 Then Add XC,1 : Add XE,1 : Goto 3
4
Z$=Chr$(Peek(XB+XE)) : If XE=XA Then Goto 5
If Z$=Chr$(10) Then Locate 0,XD : Print A$; : A$="" : XC=0 : Add XE,1 : Add XD,1 : If XD=XI Then Goto 5 Else Goto 4
A$=A$+Z$ : If XC<80 Then Add XC,1 : Add XE,1 : Goto 4
5
W$=Inkey$ : XJ=Mouse Zone : XK=Mouse Key : XL=Scancode : If XM=0 Then Screen Show 7 : XM=1
If XL=77 and XE<XA and XG<900 or XJ=2 and XK=1 and XE<XA and XG<900 Then Paste Bob 0,233,1 : Paste Bob 96,233,4 : Wait Vbl : Gosub 7 : Goto 3
If XL=76 and XG=>29 or XJ=1 and XK=1 and XG=>29 Then Paste Bob 96,233,2 : Paste Bob 0,233,3 : Wait Vbl : Gosub 6 : Goto 4
If XL=16 or XJ=3 and XK=1 Then Reserve Zone : Screen Close 7 : Return
Goto 5
6
Screen Copy 7,0,0,639,224 To 7,0,8 : Wait Vbl : Locate 0,0 : Cline : XH=1 : If XG=>29 Then XG=XG-1 : If XG=28 Then XE=XF(XG-28) : XI=2 : XD=1 : Else XE=XF(XG-29) : XI=1 : XD=0
Return
7
Screen Copy 7,0,8,639,232 To 7,0,0 : Wait Vbl : Locate 0,28 : Cline : XD=28 : If XG=>28 and XH=1 Then XE=XF(XG)
