Reserve Zone 10 : A=1 : For Z=45 To 91 Step 23 : Set Zone A,219,Z To 317,Z+20 : Set Zone A+3,322,Z To 420,Z+20 : Inc A : Next Z : Set Zone 7,322,114 To 420,134 : Set Zone 8,100,114 To 178,134 : Set Zone 9,470,114 To 549,134
Set Zone 10,87,236 To 614,250
0
Z$=Inkey$ : MZ=Mouse Zone : MK=Mouse Key : Paper 7 : Pen 0 : Print At(10,22);YC;At(28,22);YD
If MZ=1 and MK=1 Then Paste Bob 219,45,6 : Paste Bob 219,68,7 : Paste Bob 219,91,9 : Wait Vbl : PO=1
If MZ=2 and MK=1 Then Paste Bob 219,45,5 : Paste Bob 219,68,8 : Paste Bob 219,91,9 : Wait Vbl : PO=2
If MZ=3 and MK=1 Then Paste Bob 219,45,5 : Paste Bob 219,68,7 : Paste Bob 219,91,10 : Wait Vbl : PO=3
If MZ=4 and MK=1 Then Paste Bob 322,45,6 : Paste Bob 322,68,7 : Paste Bob 322,91,11 : Paste Bob 322,114,13 : Wait Vbl : SO=1
If MZ=5 and MK=1 Then Paste Bob 322,45,5 : Paste Bob 322,68,8 : Paste Bob 322,91,11 : Paste Bob 322,114,13 : Wait Vbl : SO=2
If MZ=6 and MK=1 Then Paste Bob 322,45,5 : Paste Bob 322,68,7 : Paste Bob 322,91,12 : Paste Bob 322,114,13 : Wait Vbl : SO=3
If MZ=7 and MK=1 Then Paste Bob 322,45,5 : Paste Bob 322,68,7 : Paste Bob 322,91,11 : Paste Bob 322,114,14 : Wait Vbl : SO=4
If MZ=8 and MK=1 and PO>0 and SO>0 Then Paste Bob 100,114,16 : Wait Vbl : FP=FW : SP=SW : TP=TW : FW=10 : SW=80 : TW=80 : Gosub 220 : FW=FP : SW=SP : TW=TP : Goto 100
If MZ=9 and MK=1 and PO>0 and SO>0 Then Paste Bob 470,114,18 : Wait Vbl : Gosub 220 : Goto 100
If MZ=10 and MK=1 Then Screen Close 1 : Screen Close 0 : Gosub 899 : Paper 7 : Pen 0
If Z$="1" Then Add WI,GT : If WI>52 Then WI=1
If WI<10 Then Print At(12,20);WI;" " Else Print At(12,20);WI
If Z$="2" Then Add WO,GT : If WO>52 Then WO=1
If WO<10 Then Print At(31,20);WO;" " Else Print At(31,20);WO
If Z$="3" Then Add SCR,GT : If SCR>11 Then SCR=1
If SCR<10 Then Print At(49,20);SCR;" " Else Print At(49,20);SCR
If Z$="4" Then Add SX,GT : If SX>12 Then SX=1
If SX<10 Then Print At(73,20);SX;" " Else Print At(73,20);SX
If Z$="5" Then Add YC,16 : Screen Display 0,YC,YD,, : If YC>192 Then YC=112
If Z$="6" Then Add YD,GT : Screen Display 0,YC,YD,, : If YD>99 Then YD=30
If Z$="7" Then Add FW,GT : If FW>999 Then FW=80
If FW<100 Then Print At(16,24);FW;" " Else Print At(16,24);FW
If Z$="8" Then Add SW,GT : If SW>999 Then SW=80
If SW<100 Then Print At(37,24);SW;" " Else Print At(37,24);SW
If Z$="9" Then Add TW,GT : If TW>999 Then TW=80
If TW<100 Then Print At(59,24);TW;" " Else Print At(59,24);TW
If Z$="a" Then GT=1
If Z$="b" Then GT=10
If Z$="c" Then GT=50
If GT<10 Then Print At(72,22);GT;" " Else Print At(72,22);GT
If Z$="0" Then Add FS,GT : If FS>16 Then FS=1
If FS<10 Then Print At(75,24);FS;" " Else Print At(75,24);FS
If Z$="q" Then Reserve Zone : End
Goto 0
1
For Z=0 To 255 : Screen Copy 1,0,Z,320,Z+1 To 0,0,Z : Wait Vbl : Next Z : Return
2
For Z=255 To 0 Step -1 : Screen Copy 1,0,Z,320,Z+1 To 0,0,Z : Wait Vbl : Next Z : Return
3
For Z=0 To 319 : Screen Copy 1,Z,0,Z+1,256 To 0,Z,0 : Wait Vbl : Next Z : Return
4
For Z=319 To 0 Step -1 : Screen Copy 1,Z,0,Z+1,256 To 0,Z,0 : Wait Vbl : Next Z : Return
5
W=256 : For Z=0 To 255 : Screen Copy 1,0,Z,160,Z+1 To 0,0,Z : Screen Copy 1,160,W-1,320,W To 0,160,W-1 : Wait Vbl : Dec W : Next Z : Return
6
W=256 : For Z=0 To 255 : Screen Copy 1,160,Z,320,Z+1 To 0,160,Z : Screen Copy 1,0,W-1,160,W To 0,0,W-1 : Wait Vbl : Dec W : Next Z : Return
7
W=256 : For Z=0 To 255 : Screen Copy 1,0,Z,80,Z+1 To 0,0,Z : Screen Copy 1,80,W-1,160,W To 0,80,W-1 : Screen Copy 1,160,Z,240,Z+1 To 0,160,Z : Screen Copy 1,240,W-1,320,W To 0,240,W-1 : Wait Vbl : Dec W : Next Z : Return
8
W=256 : For Z=0 To 255 : Screen Copy 1,80,Z,160,Z+1 To 0,80,Z : Screen Copy 1,0,W-1,80,W To 0,0,W-1 : Screen Copy 1,240,Z,320,Z+1 To 0,240,Z : Screen Copy 1,160,W-1,240,W To 0,160,W-1 : Wait Vbl : Dec W : Next Z : Return
9
W=256 : For Z=0 To 255 : Screen Copy 1,0,Z,40,Z+1 To 0,0,Z : Screen Copy 1,40,W-1,80,W To 0,40,W-1 : Screen Copy 1,80,Z,120,Z+1 To 0,80,Z : Screen Copy 1,120,W-1,160,W To 0,120,W-1
Screen Copy 1,160,Z,200,Z+1 To 0,160,Z : Screen Copy 1,200,W-1,240,W To 0,200,W-1 : Screen Copy 1,240,Z,280,Z+1 To 0,240,Z : Screen Copy 1,280,W-1,320,W To 0,280,W-1 : Wait Vbl : Dec W : Next Z : Return
10
W=256 : For Z=0 To 255 : Screen Copy 1,40,Z,80,Z+1 To 0,40,Z : Screen Copy 1,0,W-1,40,W To 0,0,W-1 : Screen Copy 1,120,Z,160,Z+1 To 0,120,Z : Screen Copy 1,80,W-1,120,W To 0,80,W-1
Screen Copy 1,200,Z,240,Z+1 To 0,200,Z : Screen Copy 1,160,W-1,200,W To 0,160,W-1 : Screen Copy 1,280,Z,320,Z+1 To 0,280,Z : Screen Copy 1,240,W-1,280,W To 0,240,W-1 : Wait Vbl : Dec W : Next Z : Return
11
W=320 : For Z=0 To 319 : Screen Copy 1,Z,0,Z+1,128 To 0,Z,0 : Screen Copy 1,W-1,128,W,256 To 0,W-1,128 : Wait Vbl : Dec W : Next Z : Return
12
W=320 : For Z=0 To 319 : Screen Copy 1,Z,128,Z+1,256 To 0,Z,128 : Screen Copy 1,W-1,0,W,128 To 0,W-1,0 : Wait Vbl : Dec W : Next Z : Return
13
W=320 : For Z=0 To 319 : Screen Copy 1,Z,0,Z+1,64 To 0,Z,0 : Screen Copy 1,W-1,64,W,128 To 0,W-1,64 : Screen Copy 1,Z,128,Z+1,192 To 0,Z,128 : Screen Copy 1,W-1,192,W,256 To 0,W-1,192 : Wait Vbl : Dec W : Next Z : Return
14
W=320 : For Z=0 To 319 : Screen Copy 1,Z,64,Z+1,128 To 0,Z,64 : Screen Copy 1,W-1,0,W,64 To 0,W-1,0 : Screen Copy 1,Z,192,Z+1,256 To 0,Z,192 : Screen Copy 1,W-1,128,W,192 To 0,W-1,128 : Wait Vbl : Dec W : Next Z : Return
15
W=320 : For Z=0 To 319 : Screen Copy 1,Z,0,Z+1,32 To 0,Z,0 : Screen Copy 1,W-1,32,W,64 To 0,W-1,32 : Screen Copy 1,Z,64,Z+1,96 To 0,Z,64 : Screen Copy 1,W-1,96,W,128 To 0,W-1,96
Screen Copy 1,Z,128,Z+1,160 To 0,Z,128 : Screen Copy 1,W-1,160,W,192 To 0,W-1,160 : Screen Copy 1,Z,192,Z+1,224 To 0,Z,192 : Screen Copy 1,W-1,224,W,256 To 0,W-1,224 : Wait Vbl : Dec W : Next Z : Return
16
W=320 : For Z=0 To 319 : Screen Copy 1,Z,32,Z+1,64 To 0,Z,32 : Screen Copy 1,W-1,0,W,32 To 0,W-1,0 : Screen Copy 1,Z,96,Z+1,128 To 0,Z,96 : Screen Copy 1,W-1,64,W,96 To 0,W-1,64
Screen Copy 1,Z,160,Z+1,192 To 0,Z,160 : Screen Copy 1,W-1,128,W,160 To 0,W-1,128 : Screen Copy 1,Z,224,Z+1,256 To 0,Z,224 : Screen Copy 1,W-1,192,W,224 To 0,W-1,192 : Wait Vbl : Dec W : Next Z : Return
17
W=320 : For Z=0 To 159 : Screen Copy 1,Z,0,Z+1,128 To 0,Z,0 : Screen Copy 1,W-1,128,W,256 To 0,W-1,128 : Wait Vbl : Dec W : Next Z : W=320 : For Z=0 To 159 : Screen Copy 1,Z,128,Z+1,256 To 0,Z,128
Screen Copy 1,W-1,0,W,128 To 0,W-1,0 : Wait Vbl : Dec W : Next Z : Return
18
W=320 : For Z=0 To 159 : Screen Copy 1,Z,128,Z+1,256 To 0,Z,128 : Screen Copy 1,W-1,0,W,128 To 0,W-1,0 : Wait Vbl : Dec W : Next Z
W=320 : For Z=0 To 159 : Screen Copy 1,Z,0,Z+1,128 To 0,Z,0 : Screen Copy 1,W-1,128,W,256 To 0,W-1,128 : Wait Vbl : Dec W : Next Z : Return
19
W=256 : For Z=0 To 127 : Screen Copy 1,0,Z,160,Z+1 To 0,0,Z : Screen Copy 1,160,W-1,320,W To 0,160,W-1 : Wait Vbl : Dec W : Next Z : W=256 : For Z=0 To 127 : Screen Copy 1,160,Z,320,Z+1 To 0,160,Z
Screen Copy 1,0,W-1,160,W To 0,0,W-1 : Wait Vbl : Dec W : Next Z : Return
20
W=256 : For Z=0 To 127 : Screen Copy 1,160,Z,320,Z+1 To 0,160,Z : Screen Copy 1,0,W-1,160,W To 0,0,W-1 : Wait Vbl : Dec W : Next Z
W=256 : For Z=0 To 127 : Screen Copy 1,0,Z,160,Z+1 To 0,0,Z : Screen Copy 1,160,W-1,320,W To 0,160,W-1 : Wait Vbl : Dec W : Next Z : Return
21
W=256 : For Z=0 To 127 : Screen Copy 1,0,Z,160,Z+1 To 0,0,Z : Screen Copy 1,160,W-1,320,W To 0,160,W-1 : Wait Vbl : Dec W : Next Z : W=320 : For Z=0 To 159
Screen Copy 1,Z,128,Z+1,256 To 0,Z,128 : Screen Copy 1,W-1,0,W,128 To 0,W-1,0 : Wait Vbl : Dec W : Next Z : Return
22
W=256 : For Z=0 To 127 : Screen Copy 1,160,Z,320,Z+1 To 0,160,Z : Screen Copy 1,0,W-1,160,W To 0,0,W-1 : Wait Vbl : Dec W : Next Z : W=320 : For Z=0 To 159
Screen Copy 1,Z,0,Z+1,128 To 0,Z,0 : Screen Copy 1,W-1,128,W,256 To 0,W-1,128 : Wait Vbl : Dec W : Next Z : Return
23
W=320 : For Z=0 To 159 : Screen Copy 1,Z,0,Z+1,128 To 0,Z,0 : Screen Copy 1,W-1,128,W,256 To 0,W-1,128 : Wait Vbl : Dec W : Next Z : W=256 : For Z=0 To 127 : Screen Copy 1,160,Z,320,Z+1 To 0,160,Z
Screen Copy 1,0,W-1,160,W To 0,0,W-1 : Wait Vbl : Dec W : Next Z : Return
24
W=320 : For Z=0 To 159 : Screen Copy 1,Z,128,Z+1,256 To 0,Z,128 : Screen Copy 1,W-1,0,W,128 To 0,W-1,0 : Wait Vbl : Dec W : Next Z : W=256 : For Z=0 To 127 : Screen Copy 1,0,Z,160,Z+1 To 0,0,Z
Screen Copy 1,160,W-1,320,W To 0,160,W-1 : Wait Vbl : Dec W : Next Z : Return
25
W=160 : For Z=160 To 319 : Screen Copy 1,Z,0,Z+1,256 To 0,Z,0 : Screen Copy 1,W-1,0,W,256 To 0,W-1,0 : Wait Vbl : Dec W : Next Z : Return
26
W=320 : For Z=0 To 159 : Screen Copy 1,Z,0,Z+1,256 To 0,Z,0 : Screen Copy 1,W-1,0,W,256 To 0,W-1,0 : Wait Vbl : Dec W : Next Z : Return
27
W=128 : For Z=128 To 255 : Screen Copy 1,0,Z,320,Z+1 To 0,0,Z : Screen Copy 1,0,W-1,320,W To 0,0,W-1 : Wait Vbl : Dec W : Next Z : Return
28
W=256 : For Z=0 To 127 : Screen Copy 1,0,Z,320,Z+1 To 0,0,Z : Screen Copy 1,0,W-1,320,W To 0,0,W-1 : Wait Vbl : Dec W : Next Z : Return
29
For V=0 To 39 : For Z=0 To 280 Step 40 : Screen Copy 1,Z+V,0,Z+V+1,256 To 0,Z+V,0 : Next Z : Next V : Return
30
For V=0 To 19 : For Z=0 To 300 Step 20 : Screen Copy 1,Z+V,0,Z+V+1,256 To 0,Z+V,0 : Next Z : Next V : Return
31
W=320 : For Z=0 To 159 : Screen Copy 1,Z,0,Z+1,85 To 0,Z,0 : Screen Copy 1,W-1,0,W,85 To 0,W-1,0 : Screen Copy 1,Z,170,Z+1,256 To 0,Z,170 : Screen Copy 1,W-1,170,W,256 To 0,W-1,170 : Wait Vbl : Dec W : Next Z
W=160 : For Z=160 To 319 : Screen Copy 1,Z,85,Z+1,170 To 0,Z,85 : Screen Copy 1,W-1,85,W,170 To 0,W-1,85 : Wait Vbl : Dec W : Next Z : Return
32
W=256 : For Z=0 To 127 : Screen Copy 1,0,Z,107,Z+1 To 0,0,Z : Screen Copy 1,0,W-1,107,W To 0,0,W-1 : Screen Copy 1,213,Z,320,Z+1 To 0,213,Z : Screen Copy 1,213,W-1,320,W To 0,213,W-1 : Wait Vbl : Dec W : Next Z
W=128 : For Z=128 To 255 : Screen Copy 1,107,Z,213,Z+1 To 0,107,Z : Screen Copy 1,107,W-1,213,W To 0,107,W-1 : Wait Vbl : Dec W : Next Z : Return
33
W=128 : For Z=128 To 255 : Screen Copy 1,160,Z,320,Z+1 To 0,160,Z : Screen Copy 1,0,W-1,160,W To 0,0,W-1 : Wait Vbl : Dec W : Next Z
W=160 : For Z=160 To 319 : Screen Copy 1,Z,0,Z+1,128 To 0,Z,0 : Screen Copy 1,W-1,128,W,256 To 0,W-1,128 : Wait Vbl : Dec W : Next Z : Return
34
W=128 : For Z=128 To 255 : Screen Copy 1,0,Z,160,Z+1 To 0,0,Z : Screen Copy 1,160,W-1,320,W To 0,160,W-1 : Wait Vbl : Dec W : Next Z
W=160 : For Z=160 To 319 : Screen Copy 1,Z,128,Z+1,256 To 0,Z,128 : Screen Copy 1,W-1,0,W,128 To 0,W-1,0 : Wait Vbl : Dec W : Next Z : Return
35
W=160 : For Z=160 To 319 : Screen Copy 1,Z,0,Z+1,128 To 0,Z,0 : Screen Copy 1,W-1,128,W,256 To 0,W-1,128 : Wait Vbl : Dec W : Next Z
W=128 : For Z=128 To 255 : Screen Copy 1,160,Z,320,Z+1 To 0,160,Z : Screen Copy 1,0,W-1,160,W To 0,0,W-1 : Wait Vbl : Dec W : Next Z : Return
36
W=160 : For Z=160 To 319 : Screen Copy 1,Z,128,Z+1,256 To 0,Z,128 : Screen Copy 1,W-1,0,W,128 To 0,W-1,0 : Wait Vbl : Dec W : Next Z
W=128 : For Z=128 To 255 : Screen Copy 1,0,Z,160,Z+1 To 0,0,Z : Screen Copy 1,160,W-1,320,W To 0,160,W-1 : Wait Vbl : Dec W : Next Z : Return
37
W=320 : For Z=0 To 159 : Screen Copy 1,Z,0,Z+1,64 To 0,Z,0 : Screen Copy 1,W-1,64,W,128 To 0,W-1,64 : Screen Copy 1,Z,128,Z+1,192 To 0,Z,128 : Screen Copy 1,W-1,192,W,256 To 0,W-1,192 : Wait Vbl : Dec W : Next Z
W=320 : For Z=0 To 159 : Screen Copy 1,Z,64,Z+1,128 To 0,Z,64 : Screen Copy 1,W-1,0,W,64 To 0,W-1,0 : Screen Copy 1,Z,192,Z+1,256 To 0,Z,192 : Screen Copy 1,W-1,128,W,192 To 0,W-1,128 : Wait Vbl : Dec W : Next Z : Return
38
W=320 : For Z=0 To 159 : Screen Copy 1,Z,32,Z+1,64 To 0,Z,32 : Screen Copy 1,W-1,0,W,32 To 0,W-1,0 : Screen Copy 1,Z,96,Z+1,128 To 0,Z,96 : Screen Copy 1,W-1,64,W,96 To 0,W-1,64
Screen Copy 1,Z,160,Z+1,192 To 0,Z,160 : Screen Copy 1,W-1,128,W,160 To 0,W-1,128 : Screen Copy 1,Z,224,Z+1,256 To 0,Z,224 : Screen Copy 1,W-1,192,W,224 To 0,W-1,192 : Wait Vbl : Dec W : Next Z
W=320 : For Z=0 To 159 : Screen Copy 1,Z,0,Z+1,32 To 0,Z,0 : Screen Copy 1,W-1,32,W,64 To 0,W-1,32 : Screen Copy 1,Z,64,Z+1,96 To 0,Z,64 : Screen Copy 1,W-1,96,W,128 To 0,W-1,96
Screen Copy 1,Z,128,Z+1,160 To 0,Z,128 : Screen Copy 1,W-1,160,W,192 To 0,W-1,160 : Screen Copy 1,Z,192,Z+1,224 To 0,Z,192 : Screen Copy 1,W-1,224,W,256 To 0,W-1,224 : Wait Vbl : Dec W : Next Z : Return
39
W=256 : For Z=0 To 127 : Screen Copy 1,0,Z,80,Z+1 To 0,0,Z : Screen Copy 1,80,W-1,160,W To 0,80,W-1 : Screen Copy 1,160,Z,240,Z+1 To 0,160,Z : Screen Copy 1,240,W-1,320,W To 0,240,W-1 : Wait Vbl : Dec W : Next Z
W=256 : For Z=0 To 127 : Screen Copy 1,80,Z,160,Z+1 To 0,80,Z : Screen Copy 1,0,W-1,80,W To 0,0,W-1 : Screen Copy 1,240,Z,320,Z+1 To 0,240,Z : Screen Copy 1,160,W-1,240,W To 0,160,W-1 : Wait Vbl : Dec W : Next Z : Return
40
W=256 : For Z=0 To 127 : Screen Copy 1,0,Z,40,Z+1 To 0,0,Z : Screen Copy 1,40,W-1,80,W To 0,40,W-1 : Screen Copy 1,80,Z,120,Z+1 To 0,80,Z : Screen Copy 1,120,W-1,160,W To 0,120,W-1
Screen Copy 1,160,Z,200,Z+1 To 0,160,Z : Screen Copy 1,200,W-1,240,W To 0,200,W-1 : Screen Copy 1,240,Z,280,Z+1 To 0,240,Z : Screen Copy 1,280,W-1,320,W To 0,280,W-1 : Wait Vbl : Dec W : Next Z
W=256 : For Z=0 To 127 : Screen Copy 1,40,Z,80,Z+1 To 0,40,Z : Screen Copy 1,0,W-1,40,W To 0,0,W-1 : Screen Copy 1,120,Z,160,Z+1 To 0,120,Z : Screen Copy 1,80,W-1,120,W To 0,80,W-1
Screen Copy 1,200,Z,240,Z+1 To 0,200,Z : Screen Copy 1,160,W-1,200,W To 0,160,W-1 : Screen Copy 1,280,Z,320,Z+1 To 0,280,Z : Screen Copy 1,240,W-1,280,W To 0,240,W-1 : Wait Vbl : Dec W : Next Z : Return
41
W=0 : B=0
102
For Z=0 To 319 Step 64 : Screen Copy 1,Z,W,Z+32,W+32 To 0,Z,W : Wait Vbl : Next Z : Add W,32
For Z=32 To 319 Step 64 : Screen Copy 1,Z,W,Z+32,W+32 To 0,Z,W : Wait Vbl : Next Z : Add W,32
Inc B : If B<4 Then Goto 102
W=0 : B=0
103
For Z=32 To 319 Step 64 : Screen Copy 1,Z,W,Z+32,W+32 To 0,Z,W : Wait Vbl : Next Z : Add W,32
For Z=0 To 319 Step 64 : Screen Copy 1,Z,W,Z+32,W+32 To 0,Z,W : Wait Vbl : Next Z : Add W,32
Inc B : If B<4 Then Goto 103
Return
42
W=0 : B=0
104
For Z=0 To 319 Step 32 : Screen Copy 1,Z,W,Z+16,W+16 To 0,Z,W : Wait Vbl : Next Z : Add W,16
For Z=16 To 319 Step 32 : Screen Copy 1,Z,W,Z+16,W+16 To 0,Z,W : Wait Vbl : Next Z : Add W,16
Inc B : If B<8 Then Goto 104
W=0 : B=0
105
For Z=16 To 319 Step 32 : Screen Copy 1,Z,W,Z+16,W+16 To 0,Z,W : Wait Vbl : Next Z : Add W,16
For Z=0 To 319 Step 32 : Screen Copy 1,Z,W,Z+16,W+16 To 0,Z,W : Wait Vbl : Next Z : Add W,16
Inc B : If B<8 Then Goto 105
Return
43
W=0 : B=0
106
For Z=0 To 319 Step 32 : Screen Copy 1,Z,W,Z+16,W+16 To 0,Z,W : Wait Vbl : Next Z : Add W,16
For Z=16 To 319 Step 32 : Screen Copy 1,Z,W,Z+16,W+16 To 0,Z,W : Wait Vbl : Next Z : Add W,16
Inc B : If B<8 Then Goto 106
W=256 : B=0
107
For Z=0 To 319 Step 32 : Screen Copy 1,Z,W-16,Z+16,W To 0,Z,W-16 : Wait Vbl : Next Z : W=W-16
For Z=16 To 319 Step 32 : Screen Copy 1,Z,W-16,Z+16,W To 0,Z,W-16 : Wait Vbl : Next Z : W=W-16
Inc B : If B<8 Then Goto 107
Return
44
W=256 : B=0
108
For Z=0 To 319 Step 32 : Screen Copy 1,Z,W-16,Z+16,W To 0,Z,W-16 : Wait Vbl : Next Z : W=W-16
For Z=16 To 319 Step 32 : Screen Copy 1,Z,W-16,Z+16,W To 0,Z,W-16 : Wait Vbl : Next Z : W=W-16
Inc B : If B<8 Then Goto 108
W=0 : B=0
109
For Z=0 To 319 Step 32 : Screen Copy 1,Z,W,Z+16,W+16 To 0,Z,W : Wait Vbl : Next Z : Add W,16
For Z=16 To 319 Step 32 : Screen Copy 1,Z,W,Z+16,W+16 To 0,Z,W : Wait Vbl : Next Z : Add W,16
Inc B : If B<8 Then Goto 109
Return
45
W=0 : B=0
110
For Z=0 To 255 Step 64 : Screen Copy 1,W,Z,W+32,Z+32 To 0,W,Z : Wait Vbl : Next Z : Add W,32
For Z=32 To 255 Step 64 : Screen Copy 1,W,Z,W+32,Z+32 To 0,W,Z : Wait Vbl : Next Z : Add W,32
Inc B : If B<5 Then Goto 110
W=0 : B=0
111
For Z=32 To 255 Step 64 : Screen Copy 1,W,Z,W+32,Z+32 To 0,W,Z : Wait Vbl : Next Z : Add W,32
For Z=0 To 255 Step 64 : Screen Copy 1,W,Z,W+32,Z+32 To 0,W,Z : Wait Vbl : Next Z : Add W,32
Inc B : If B<5 Then Goto 111
Return
46
W=0 : B=0
112
For Z=0 To 255 Step 32 : Screen Copy 1,W,Z,W+32,Z+16 To 0,W,Z : Wait Vbl : Next Z : Add W,32
For Z=16 To 255 Step 32 : Screen Copy 1,W,Z,W+32,Z+16 To 0,W,Z : Wait Vbl : Next Z : Add W,32
Inc B : If B<5 Then Goto 112
W=0 : B=0
113
For Z=16 To 255 Step 32 : Screen Copy 1,W,Z,W+32,Z+16 To 0,W,Z : Wait Vbl : Next Z : Add W,32
For Z=0 To 255 Step 32 : Screen Copy 1,W,Z,W+32,Z+16 To 0,W,Z : Wait Vbl : Next Z : Add W,32
Inc B : If B<5 Then Goto 113
Return
47
W=0 : B=0
114
For Z=0 To 255 Step 32 : Screen Copy 1,W,Z,W+32,Z+16 To 0,W,Z : Wait Vbl : Next Z : Add W,32
For Z=16 To 255 Step 32 : Screen Copy 1,W,Z,W+32,Z+16 To 0,W,Z : Wait Vbl : Next Z : Add W,32
Inc B : If B<5 Then Goto 114
W=320 : B=0
115
For Z=0 To 255 Step 32 : Screen Copy 1,W-32,Z,W,Z+16 To 0,W-32,Z : Wait Vbl : Next Z : W=W-32
For Z=16 To 255 Step 32 : Screen Copy 1,W-32,Z,W,Z+16 To 0,W-32,Z : Wait Vbl : Next Z : W=W-32
Inc B : If B<5 Then Goto 115
Return
48
W=320 : B=0
116
For Z=0 To 255 Step 32 : Screen Copy 1,W-32,Z,W,Z+16 To 0,W-32,Z : Wait Vbl : Next Z : W=W-32
For Z=16 To 255 Step 32 : Screen Copy 1,W-32,Z,W,Z+16 To 0,W-32,Z : Wait Vbl : Next Z : W=W-32
Inc B : If B<5 Then Goto 116
W=0 : B=0
117
For Z=0 To 255 Step 32 : Screen Copy 1,W,Z,W+32,Z+16 To 0,W,Z : Wait Vbl : Next Z : Add W,32
For Z=16 To 255 Step 32 : Screen Copy 1,W,Z,W+32,Z+16 To 0,W,Z : Wait Vbl : Next Z : Add W,32
Inc B : If B<5 Then Goto 117
Return
49
Screen Copy 1,0,0,160,128 To 0,0,0 : Wait Vbl : Wait AW : Screen Copy 1,160,128,320,256 To 0,160,128 : Wait Vbl : Wait AW : Screen Copy 1,0,128,160,256 To 0,0,128 : Wait Vbl : Wait AW
Screen Copy 1,160,0,320,128 To 0,160,0 : Wait Vbl : Wait AW : Return
50
Screen Copy 1,160,0,320,128 To 0,160,0 : Wait Vbl : Wait AW : Screen Copy 1,0,128,160,256 To 0,0,128 : Wait Vbl : Wait AW : Screen Copy 1,160,128,320,256 To 0,160,128 : Wait Vbl : Wait AW
Screen Copy 1,0,0,160,128 To 0,0,0 : Wait Vbl : Wait AW : Return
51
Screen Copy 1,0,0,320,64 To 0,0,0 : Wait Vbl : Wait AW : Screen Copy 1,0,128,320,192 To 0,0,128 : Wait Vbl : Wait AW : Screen Copy 1,0,64,320,128 To 0,0,64 : Wait Vbl : Wait AW
Screen Copy 1,0,192,320,256 To 0,0,192 : Wait Vbl : Wait AW : Return
52
Screen Copy 1,0,0,320,64 To 0,0,0 : Wait Vbl : Wait AW : Screen Copy 1,0,64,320,128 To 0,0,64 : Wait Vbl : Wait AW : Screen Copy 1,0,128,320,192 To 0,0,128 : Wait Vbl : Wait AW
Screen Copy 1,0,192,320,256 To 0,0,192 : Wait Vbl : Wait AW : Return
80
Screen Open 2,320,512,PS,Lowres : Curs Off : Screen Hide 2 : Flash Off : Cls 0 : Screen Display 2,YC,YD,320,256 : Screen Offset 2,0,0 : Screen Copy 1 To 2 : Get Palette 1 : Screen Show 2
For Z=1 To 256 Step SX : Screen Offset 2,0,Z : Wait Vbl : Next Z : Cls 0 : Screen 0 : Cls 0 : Screen Close 2 : Return
81
Screen Open 2,320,768,PS,Lowres : Curs Off : Screen Hide 2 : Flash Off : Cls 0 : Screen Display 2,YC,YD,320,256 : Screen Offset 2,0,256 : Screen Copy 1,0,0,320,256 To 2,0,256 : Get Palette 1
Screen Show 2 : For Z=255 To 0 Step -SX : Screen Offset 2,0,Z : Wait Vbl : Next Z : Cls 0 : Screen 0 : Cls 0 : Screen Close 2 : Return
82
Screen Open 2,640,256,PS,Lowres : Curs Off : Screen Hide 2 : Flash Off : Cls 0 : Screen Display 2,YC,YD,320,256 : Screen Offset 2,0,0 : Screen Copy 1 To 2 : Get Palette 1 : Screen Show 2
For Z=1 To 320 Step SX : Screen Offset 2,Z,0 : Wait Vbl : Next Z : Cls 0 : Screen 0 : Cls 0 : Screen Close 2 : Return
83
Screen Open 2,960,256,PS,Lowres : Curs Off : Screen Hide 2 : Flash Off : Cls 0 : Screen Display 2,YC,YD,320,256 : Screen Offset 2,320,0 : Screen Copy 1,0,0,320,256 To 2,320,0 : Get Palette 1 : Screen Show 2
For Z=319 To 0 Step -SX : Screen Offset 2,Z,0 : Wait Vbl : Next Z : Cls 0 : Screen 0 : Cls 0 : Screen Close 2 : Return
84
Screen Open 2,640,128,PS,Lowres : Curs Off : Screen Hide 2 : Flash Off : Cls 0 : Screen Display 2,YC,130+YD,320,128 : Screen Offset 2,0,0 : Screen Open 3,960,128,PS,Lowres : Curs Off : Screen Hide 3 : Flash Off : Cls 0
Reserve As Chip Work 15,L : Spack 0 To 15 : Screen 4 : Print At(13,30);"...Your Picture has been Loaded and Packed - Please Continue." : Return
200
Fade 1 : Wait TW : Return
202
For Z=0 To PS-1 : TS(Z)=Colour(Z) : Colour Z,0 : Next Z : Screen Show 0 : Fade FS,TS(0),TS(1) : Wait FS*15 : Return
204
For Z=0 To PS-1 : TS(Z)=Colour(Z) : Colour Z,0 : Next Z : Screen Show 0 : Fade FS,TS(0),TS(1),TS(2),TS(3) : Wait FS*15 : Return
208
For Z=0 To PS-1 : TS(Z)=Colour(Z) : Colour Z,0 : Next Z : Screen Show 0 : Fade FS,TS(0),TS(1),TS(2),TS(3),TS(4),TS(5),TS(6),TS(7) : Wait FS*15 : Return
216
For Z=0 To PS-1 : TS(Z)=Colour(Z) : Colour Z,0 : Next Z : Screen Show 0 : Fade FS,TS(0),TS(1),TS(2),TS(3),TS(4),TS(5),TS(6),TS(7),TS(8),TS(9),TS(10),TS(11),TS(12),TS(13),TS(14),TS(15) : Wait FS*15 : Return
220
If PO=1 Then Screen Close 4 : Hide On : Cls 0 : Screen Show 0 : Wait FW : Gosub 0+WI
If PO=2 Then Screen Close 4 : Hide On : Wait FW : If PS=>2 and PS<17 Then Gosub 200+PS Else Screen Show 0
If PO=3 Then Screen Close 4 : Hide On : Wait FW : Screen Show 0
Wait SW
If SO=1 Then Screen 1 : Cls 0 : Screen 0 : Gosub 0+WO
Screen Open 4,640,270,8,Hires : Screen Hide 4 : Curs Off : Ink 7 : Flash Off : Cls 0 : Screen Display 4,128,35,640,270 : Paste Bob 82,8,1 : Paste Bob 354,8,2 : Paste Bob 0,236,3 : Paste Bob 300,236,4
Paste Bob 219,45,5 : Paste Bob 219,68,7 : Paste Bob 219,91,9 : Paste Bob 322,45,5 : Paste Bob 322,68,7 : Paste Bob 322,91,11 : Paste Bob 322,114,13 : Paste Bob 100,114,15 : Paste Bob 470,114,17 : Bar 1,153 To 638,219
Get Sprite Palette : Ink 4 : Box 0,152 To 639,220 : Paper 7 : Pen 4 : Print At(1,20);"1) Wipe In:";At(19,20);"2) Wipe Out:";At(39,20);"3) Scroll:";At(57,20);"4) Scroll Speed:";At(1,22);"5) Scr.X:";At(19,22);"6) Scr.Y:"
Pen 3 : Print At(36,22);"a) 1 b) 10 c) 50 Gap Total:" : Pen 4 : Print At(1,24);"7) First Pause:";At(24,24);"8) Pic Pause:";At(45,24);"9) Last Pause:";At(67,24);"0) Fade:" : Pen 5 : Limit Mouse 173,79 To 435,285
Print At(3,26);"Copyright Effex - (c) John White, 1994. Press Ctrl-C or q to Quit." : For Z=0 To 7 : TR(Z)=Colour(Z) : Colour Z,0 : Next Z : Screen Show 4 : Fade 1,TR(0),TR(1),TR(2),TR(3),TR(4),TR(5),TR(6),TR(7) : Wait 15 : Return