()

Prgm


Lbl begin

setGraph("axes","off")

If getType(listy)≠"NONE" Then

 For ab,1,100

 RplcPic logomys

 EndFor

EndIf


Local x,y,key

0key

11x

21y


If getType(listy)="NONE" Then

 1pos

 6dd

 7ddd

 0matches

 0redp

 0redpa

 0bluep

 0bluepa

 0rsu

 0rsuu

 12clho

 60clmi

 0weel

 0wheeel

 "n274"listy

 "booky1"picture

 "January"month

 1day

 1000year

 0hour

 0minutes

 1monthh

 0but1

 0but2

 0but3

 0but4

 0but5

 0but6

 0but7

 0but8

 0but9

 0but10

 0power

 0powship

 logo()

 Pause 

EndIf


ClrDraw

RplcPic #picture

StoPic ing

RplcPic cursor,x,y


Lbl start

Loop

getKey()key


©The moving of the cursor

If key=338 and x>10 Then

 RplcPic ing

 x-10x

 RplcPic cursor,x,y

ElseIf key=340 and y<140 Then

 RplcPic ing

 y+10y

 RplcPic cursor,x,y

ElseIf key=344 and x<60 Then

 RplcPic ing

 x+10x

 RplcPic cursor,x,y

ElseIf key=337 and y>10 Then

 RplcPic ing

 y-10y

 RplcPic cursor,x,y

©Menu

ElseIf key=264 Then

 RplcPic menu,41

 RplcPic cursy,46,5

 0key

 1hit

 46xxx


 Loop

  getKey()key

  If key=344 and hit≠3 Then

   hit+1hit

   XorPic cursy,xxx,5

   xxx+10xxx

   XorPic cursy,xxx,5

  ElseIf key=338 and hit≠1 Then

   hit-1hit

   XorPic cursy,xxx,5

   xxx-10xxx

   XorPic cursy,xxx,5

  ElseIf key=344 and hit=3 Then

   1hit

   XorPic cursy,xxx,5

   46xxx

   XorPic cursy,xxx,5

  ElseIf key=338 and hit=1 Then

   3hit

   XorPic cursy,xxx,5

   66xxx

   XorPic cursy,xxx,5

  ElseIf key=264 Then

   RplcPic #picture

   RplcPic cursor,x,y

   Goto start

  ElseIf key=13 or key=268 Then

   If hit=1 Then

    RplcPic #picture

    RplcPic cursor,x,y

    Goto start

   ElseIf hit=2 Then

    DelVar listy

    Goto begin

   ElseIf hit=3 Then

    DispHome

    Stop

   EndIf

  EndIf

 EndLoop


EndIf


©the hopping to differrent pics


If key=268 Then

 If y≤#listy[5] and y≥#listy[3] and x≤#listy[4] and x≥#listy[2] Then

  If #listy[6]≠"switch" and #listy[6]≠"switcha" and #listy[6]≠"zwitch" and #listy[6]≠"zwitcha" and #listy[6]≠"zwitcho" and #listy[6]≠"gotoo" Then

  #listy[6]picture

  string(n)&#listy[7]listy

 Else

  If #listy[6]="switch" Then

   #listy[7]listz

   Goto sone

  ElseIf #listy[6]="switcha" Then

   #listy[7]listz

   Goto sonea

  ElseIf #listy[6]="zwitch" Then

   #listy[7]listz

   Goto magico 

  ElseIf #listy[6]="zwitcha" Then

   #listy[7]listz

   Goto magica

  ElseIf #listy[6]="zwitcho" Then

   #listy[7]listz

   Goto magicb

  ElseIf #listy[6]="gotoo" Then

   #listy[7]listz

   Goto #listz

  EndIf

 EndIf

 RplcPic #picture

 StoPic ing

 RplcPic cursor,x,y

 Goto start

EndIf


If #listy[1]>1 Then

 If y≤#listy[11] and y≥#listy[9] and x≤#listy[10] and x≥#listy[8] Then

  If #listy[12]≠"switch" and #listy[12]≠"switcha" and #listy[12]≠"zwitch" and #listy[12]≠"zwitcha" and #listy[12]≠"zwitcho" and #listy[12]≠"gotoo" Then

  #listy[12]picture

  string(n)&#listy[13]listy

  Else

   If #listy[12]="switch" Then

    #listy[13]listz

    Goto sone

   ElseIf #listy[12]="switcha" Then

    #listy[13]listz

    Goto sonea

   ElseIf #listy[12]="zwitch" Then

    #listy[13]listz

    Goto magico

   ElseIf #listy[12]="zwitcha" Then

    #listy[13]listz

    Goto magica

   ElseIf #listy[12]="zwitcho" Then

    #listy[13]listz

    Goto magicb

   ElseIf #listy[12]="gotoo" Then

    #listy[13]listz

    Goto #listz

   EndIf

  EndIf

  RplcPic #picture

  StoPic ing

  RplcPic cursor,x,y

  Goto start

 EndIf

EndIf


If #listy[1]>2 Then

 If y≤#listy[17] and y≥#listy[15] and x≤#listy[16] and x≥#listy[14] Then

  If #listy[18]≠"switch" and #listy[18]≠"switcha" and #listy[18]≠"zwitch" and #listy[18]≠"zwitcha" and #listy[18]≠"zwitcho" and #listy[18]≠"gotoo" Then

  #listy[18]picture

  string(n)&#listy[19]listy

 Else

  If #listy[18]="switch" Then

   #listy[19]listz

   Goto sone

  ElseIf #listy[18]="switcha" Then

   #listy[19]listz

   Goto sonea

  ElseIf #listy[18]="zwitch" Then

   #listy[19]listz

   Goto magico

  ElseIf #listy[18]="zwitcha" Then

   #listy[19]listz

   Goto magica

  ElseIf #listy[18]="zwitcho" Then

   #listy[19]listz

   Goto magicb

  ElseIf #listy[18]="gotoo" Then

   #listy[19]listz

   Goto #listz

  EndIf

  EndIf

  RplcPic #picture

  StoPic ing

  RplcPic cursor,x,y

  Goto start

 EndIf

EndIf


If #listy[1]>3 Then

 If y≤#listy[23] and y≥#listy[21] and x≤#listy[22] and x≥#listy[20] Then

  If #listy[24]≠"switch" and #listy[24]≠"switcha" and #listy[24]≠"zwitch" and #listy[24]≠"zwitcha" and #listy[24]≠"zwitcho" and #listy[24]≠"gotoo" Then


  #listy[24]picture

  string(n)&#listy[25]listy

 Else

  If #listy[24]="switch" Then

   #listy[25]listz

   Goto sone

  ElseIf #listy[24]="switcha" Then

   #listy[25]listz

   Goto sonea

  ElseIf #listy[24]="zwitch" Then

   #listy[25]listz

   Goto magico

  ElseIf #listy[24]="zwitcha" Then

   #listy[25]listz

   Goto magica

  ElseIf #listy[24]="zwitcho" Then

   #listy[25]listz

   Goto magicb

  ElseIf #listy[24]="gotoo" Then

   #listy[25]listz

   Goto #listz

  EndIf

  EndIf

  RplcPic #picture

  StoPic ing

  RplcPic cursor,x,y

  Goto start

 EndIf

EndIf


If #listy[1]>4 Then

 If y≤#listy[29] and y≥#listy[27] and x≤#listy[28] and x≥#listy[26] Then

  If #listy[30]≠"switch" and #listy[30]≠"switcha" and #listy[30]≠"zwitch" and #listy[30]≠"zwitcha" and #listy[30]≠"zwitcho" and #listy[30]≠"gotoo" Then

   #listy[30]picture

   string(n)&#listy[31]listy

  Else

   If #listy[30]="switch" Then

    #listy[31]listz

    Goto sone

   ElseIf #listy[30]="switcha" Then

    #listy[31]listz

    Goto sonea

   ElseIf #listy[30]="zwitch" Then

    #listy[31]listz

    Goto magico

   ElseIf #listy[30]="zwitcha" Then

    #listy[31]listz

    Goto magica

   ElseIf #listy[30]="zwitcho" Then

    #listy[31]listz

    Goto magicb

   ElseIf #listy[30]="gotoo" Then

    #listy[31]listz

   Goto #listz

   EndIf

  EndIf

  RplcPic #picture

  StoPic ing

  RplcPic cursor,x,y

 EndIf

EndIf


If #listy[1]>5 Then

 If y≤#listy[35] and y≥#listy[33] and x≤#listy[34] and x≥#listy[32] Then

  If #listy[36]≠"switch" and #listy[36]≠"switcha" and #listy[36]≠"zwitch" and #listy[36]≠"zwitcha" and #listy[36]≠"zwitcho" and #listy[36]≠"gotoo" Then

   #listy[36]picture

   string(n)&#listy[37]listy

  Else

   If #listy[36]="switch" Then

    #listy[37]listz

    Goto sone

   ElseIf #listy[36]="switcha" Then

    #listy[37]listz

    Goto sonea

   ElseIf #listy[36]="zwitch" Then

    #listy[37]listz

    Goto magico

   ElseIf #listy[36]="zwitcha" Then

    #listy[37]listz

    Goto magica

   ElseIf #listy[36]="zwitcho" Then

    #listy[37]listz

    Goto magicb

   ElseIf #listy[36]="gotoo" Then

    #listy[37]listz

    Goto #listz

   EndIf

  EndIf

  RplcPic #picture

  StoPic ing

  RplcPic cursor,x,y

  Goto start

 EndIf

EndIf


If #listy[1]>6 Then

 If y≤#listy[41] and y≥#listy[39] and x≤#listy[40] and x≥#listy[38] Then

  If #listy[42]≠"switch" and #listy[42]≠"switcha" and #listy[42]≠"zwitch" and #listy[42]≠"zwitcha" and #listy[42]≠"zwitcho" and #listy[42]≠"gotoo" Then

   #listy[42]picture

   string(n)&#listy[43]listy

  Else

   If #listy[42]="switch" Then

    #listy[43]listz

    Goto sone

   ElseIf #listy[42]="switcha" Then

    #listy[43]listz

    Goto sonea

   ElseIf #listy[42]="zwitch" Then

    #listy[43]listz

    Goto magico

   ElseIf #listy[42]="zwitcha" Then

    #listy[43]listz

    Goto magica

   ElseIf #listy[42]="zwitcho" Then

    #listy[43]listz

    Goto magicb

   ElseIf #listy[42]="gotoo" Then

    #listy[43]listz

    Goto #listz

   EndIf

  EndIf

  RplcPic #picture

  StoPic ing

  RplcPic cursor,x,y

  Goto start

 EndIf

EndIf



EndIf

EndLoop


©marker switches

Lbl sone


If #listz[1]=1 Then

 If #listz=listfive or #listz=listfiva Then

  0listfiva[1]

  0listfive[1]

 ElseIf #listz=listseve or #listz=listseva or #listz=listsevb or #listz=listsevc Then

  0listseva[1]

  0listsevb[1]

  0listsevc[1]

  0listseve[1]

 ElseIf #listz=listthra or #listz=listthr Then

  0listthr[1]

  0listthra[1]

 EndIf

 0#listz[1]

 #listz[2]picture

 RplcPic #picture

 StoPic ing

 RplcPic cursor,x,y

 Goto start

ElseIf #listz[1]=0 Then

 If #listz=listfive or #listz=listfiva Then

  1listfiva[1]

  1listfive[1]

 ElseIf #listz=listseve or #listz=listseva or #listz=listsevb or #listz=listsevc Then

  1listseva[1]

  1listsevb[1]

  1listsevc[1]

  1listseve[1]

 ElseIf #listz=listthra or #listz=listthr Then

  1listthr[1]

  1listthra[1]

 EndIf

 1#listz[1]

 #listz[3]picture

 RplcPic #picture

 StoPic ing

 RplcPic cursor,x,y

 Goto start

EndIf

Lbl sonea


If #listz[1]=1 Then

 #listz[3]picture

 #listz[4]listy

 RplcPic #picture

 StoPic ing

 RplcPic cursor,x,y

 Goto start

ElseIf #listz[1]=0 Then

 #listz[4]listy

 #listz[2]picture

 RplcPic #picture

 StoPic ing

 RplcPic cursor,x,y

 Goto start

EndIf


Lbl magico

#listz[1]listzz

If #listzz[1]=0 Then

 #listz[2]picture

 #listz[3]listy

 RplcPic #picture

 StoPic ing

 RplcPic cursor,x,y

 Goto start

ElseIf #listzz[1]=1 Then

 #listz[4]picture

 #listz[5]listy

 RplcPic #picture

 StoPic ing

 RplcPic cursor,x,y

 Goto start

EndIf


Lbl magica

#listz[1]listzz

1#listzz[1]

#listz[2]picture

#listz[3]listy

RplcPic #picture

StoPic ing

RplcPic cursor,x,y

Goto start


Lbl magicb

#listz[1]listzz

0#listzz[1]

#listz[2]picture

#listz[3]listy

RplcPic #picture

StoPic ing

RplcPic cursor,x,y

Goto start


Lbl letter

Dialog

Title "Letter"

Text "Catherine,"

Text ""

Text "I've left for you a message of utmost"

Text "importance in our fore-chamber besides"

Text "the dock."

Text "Enter the number of Marker Switches"

Text "on this island into the imager to retrieve"

Text "the message."

Text "Yours,"

Text ""

Text "Atrus"

EndDlog

Goto start


Lbl rocketsw

"n163"listy

"img163"picture

RplcPic #picture

PxlText string(power),35,35


If power≤59 and list8[1]=0 and list9[1]=0 Then

 powerpowship

 PxlText string(powship),35,85

ElseIf power>59 Then

 1list8[1]

 1list9[1]

 0powship

EndIf

PxlText string(powship),35,85

 If but1=1 Then

  RplcPic button1,18,119

 EndIf

 If but2=1 Then

  RplcPic button1,18,136

 EndIf

 If but3=1 Then

  RplcPic button1,29,119

 EndIf

 If but4=1 Then

  RplcPic button1,29,136

 EndIf

 If but5=1 Then

  RplcPic button1,40,119

 EndIf

 If but6=1 Then

  RplcPic button1,40,136

 EndIf

 If but7=1 Then

  RplcPic button1,51,119

 EndIf

 If but8=1 Then

  RplcPic button1,51,136

 EndIf

 If but9=1 Then

  RplcPic button1,62,119

 EndIf

 If but10=1 Then

  RplcPic button1,62,136

 EndIf

StoPic ing

RplcPic cursor,x,y

Goto start


Lbl rocketss


If string(x)&string(y)="11111" or string(x)&string(y)="11121" or string(x)&string(y)="21121" or string(x)&string(y)="21111" Then

 If but1=1 Then

  power-10power

  0but1

 Else

  power+10power

  1but1

 EndIf

 Goto rocketsw

ElseIf string(x)&string(y)="11131" or string(x)&string(y)="11141" or string(x)&string(y)="21141" or string(x)&string(y)="21131" Then

 If but2=1 Then

  power-1power

  0but2

 Else

  power+1power

  1but2

 EndIf

 Goto rocketsw

ElseIf string(x)&string(y)="31111" or string(x)&string(y)="31121" Then

 If but3=1 Then

  power-7power

  0but3 

 Else

  power+7power

  1but3

 EndIf

 Goto rocketsw

ElseIf string(x)&string(y)="31131" Then

 If but4=1 Then

  power-2power

  0but4

 Else

  power+2power

  1but4

 EndIf

 Goto rocketsw

ElseIf string(x)&string(y)="41111" or string(x)&string(y)="41121" Then

 If but5=1 Then

  power-8power

  0but5

 Else

  power+8power

  1but5

 EndIf

 Goto rocketsw

ElseIf string(x)&string(y)="41131" Then

 If but6=1 Then

  power-22power

  0but6

 Else

  power+22power

  1but6

 EndIf

 Goto rocketsw

ElseIf string(x)&string(y)="51111" or string(x)&string(y)="51121" Then

 If but7=1 Then

  power-16power

  0but7

 Else

  power+16power

  1but7

 EndIf

 Goto rocketsw

ElseIf string(x)&string(y)="51131" Then

 If but8=1 Then

  power-19power

  0but8

 Else

  power+19power

  1but8

 EndIf

 Goto rocketsw

ElseIf string(x)&string(y)="61111" or string(x)&string(y)="61121" Then

 If but9=1 Then

  power-5power

  0but9

 Else

  power+5power

  1but9

 EndIf

 Goto rocketsw

ElseIf string(x)&string(y)="61131" Then

 If but10=1 Then

  power-9power

  0but10

 Else

  power+9power

  1but10

 EndIf

 Goto rocketsw

EndIf

Goto rocketsw


Lbl themap

RplcPic mappy

RplcPic icn1,19,80

If listthr[1]=1 Then

 RplcPic icn2,35,84

EndIf

If listone[1]=1 Then

 RplcPic icn3,57,71

EndIf

If listsix[1]=1 Then

 RplcPic icn4,20,50

EndIf

If listseve[1]=1 Then

 RplcPic icn5,39,45

EndIf

If listtwo[1]=1 Then

 RplcPic icn6,50,105

EndIf

If listfour[1]=1 Then

 RplcPic icn7,0,106

EndIf

If listfive[1]=1 Then

 RplcPic icn8,26,60

EndIf


StoPic mapzy

"mapzy"picture

"n262"listy

RplcPic #picture

If getType(xx)="NONE" Then

 30xx

 158yy

 1pos

EndIf

PxlLine 30,111,xx,yy

StoPic ing

PxlText "Tower Rotation",60,35

RplcPic cursor,x,y

Goto start


Lbl themapp

RplcPic mapzy

pos+1pos

If pos=1 Then

 30xx

 158yy

ElseIf pos=2 Then

 76xx

 115yy

ElseIf pos=3 Then

 76xx

 80yy

ElseIf pos=4 Then

 76xx

 0yy

ElseIf pos=5 Then

 30xx

 0yy

ElseIf pos=6 Then

 10xx

 0yy

ElseIf pos=7 Then

 0xx

 120yy

ElseIf pos=8 Then

 1pos

 30xx

 158yy

EndIf

Goto themap


Lbl board

If pos=2 and listtwo[1]=1 Then

 "img264"picture

 "n201"listy

 RplcPic #picture

 StoPic ing

 RplcPic cursor,x,y

 Goto start

ElseIf pos=3 and listone[1]=1 Then

 "img262"picture

 "n201"listy

 RplcPic #picture

 StoPic ing

 RplcPic cursor,x,y

 Goto start

ElseIf pos=4 and listseve[1]=1 Then

 "img263"picture

 "n201"listy

 RplcPic #picture

 StoPic ing

 RplcPic cursor,x,y

 Goto start

ElseIf pos=7 and listfour[1]=1 Then

 "img265"picture

 "n201"listy

 RplcPic #picture

 StoPic ing

 RplcPic cursor,x,y

 Goto start

Else

 "img270"picture

 "n201"listy

 RplcPic #picture

 StoPic ing

 RplcPic cursor,x,y

 Goto start

EndIf


Lbl window

If pos=2 and listtwo[1]=1 Then

 "img268"picture

 "n193"listy

 RplcPic #picture

 StoPic ing

 RplcPic cursor,x,y

 Goto start

ElseIf pos=3 and listone[1]=1 Then

 "img193"picture

 "n193"listy

 RplcPic #picture

 StoPic ing

 RplcPic cursor,x,y

 Goto start

ElseIf pos=4 and listseve[1]=1 Then

 "img267"picture

 "n193"listy

 RplcPic #picture

 StoPic ing

 RplcPic cursor,x,y

 Goto start

ElseIf pos=7 and listfour[1]=1 Then

 "img266"picture

 "n193"listy

 RplcPic #picture

 StoPic ing

 RplcPic cursor,x,y

 Goto start

Else

 "img269"picture

 "n193"listy

 RplcPic #picture

 StoPic ing

 RplcPic cursor,x,y

 Goto start

EndIf


Lbl texty

Dialog

Title "SETTINGS-DIMENSIONAL IMAGER"

Text "       SETTINGS-DIMENSIONAL IMAGER"

Text ""

Text "                                 Ű"

Text "Topographical Extrusion Test……………40"

Text "Water–Turbulent Pool………………………67"

Text "Marker Switch Diagram……………………47"

Text "……………………………………………………………"

Text "……………………………………………………………"

Text "……………………………………………………………"

Text "……………………………………………………………"

EndDlog

Goto start


Lbl codedock


RplcPic #picture

PxlText string(dd),40,59

PxlText string(ddd),40,75

0key

Loop

 getKey()key

 If key=269 Then

  If dd<9 Then

   dd+1dd

  ElseIf dd=9 Then

   0dd

  EndIf

  Goto codedock

 ElseIf key=270 Then

  If dd>0 Then

   dd-1dd

  ElseIf dd=0 Then

   9dd

  EndIf

  Goto codedock

 ElseIf key=271 Then

  If ddd<9 Then

   ddd+1ddd

  ElseIf ddd=9 Then

   0ddd

  EndIf

  Goto codedock

 ElseIf key=272 Then

  If ddd>0 Then

   ddd-1ddd

  ElseIf ddd=0 Then

   9ddd

  EndIf

  Goto codedock

 ElseIf key=13 Then

  "img222"picture

  "n222"listy

  RplcPic #picture

  StoPic ing

  RplcPic cursor,x,y

  Goto start

 EndIf

EndLoop


Lbl pool

If dd=6 and ddd=7 Then

 "img217"picture

 "n217"listy

 RplcPic #picture

 StoPic ing

 RplcPic cursor,x,y

 Goto start

Else

 "img221"picture

 "n217"listy

 RplcPic #picture

 StoPic ing

 RplcPic cursor,x,y

 Goto start

EndIf


Lbl poolo

If dd=4 and ddd=0 and picture="img221" Then

 "img226"picture

 "n217"listy

ElseIf dd=4 and ddd=7 and picture="img221" Then

 "img225"picture

 "n217"listy

ElseIf dd=6 and ddd=7 and picture="img221" Then

 "img217"picture

 "n217"listy

ElseIf dd=0 and ddd=8 Then

 "img221"picture

 "n217"listy

 Dialog

 Title "Message"

 Text "Catherine, my love. I have to leave quickly."

 Text "Something terrible has happened. It's hard"

 Text "for me to believe. Most of my books have"

 Text "been destroyed. Catherine, it's one of our"

 Text "sons! I suspect Achenar, but I shouldn't leap"

 Text "to conclusions. I'll find him and Sirrus as"

 Text "well. Oh, I should have known better than to"

 Text "have left my library unchecked for so long!"

 EndDlog

 Dialog

 Title "Message"

 Text "Well, I have removed the remaining unda-"

 Text "maged books from the library and placed"

 Text "them in their places of protection. You"

 Text "shouldn't have to use the books until I return,"

 Text "but... if you've forgotten the acces keys, re-"

 Text "member the tower rotation. Oh, and don't"

 Text "worry Catherine, everything will be fine."

 Text "I'll see you shortly. Oh, and erase this mes-"

 Text "sage after you viewed it, just to be safe."

 EndDlog

ElseIf picture≠"img221" Then

 "img221"picture

 "n217"listy

EndIf


RplcPic #picture

StoPic ing

RplcPic cursor,x,y

Goto start


Lbl timema

PxlText month,69,0

PxlText string(day),69,60

PxlText string(year),69,80

PxlText string(hour)&":"&string(minutes),69,120


Dialog

DropDown "Month",{"January","Febuary","March","April","May","June","July","August","September","October","November","December"},month

DropDown "Day",{"1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29","30"},day

Request "Year",year

DropDown "Hour",{"1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24"},hour

DropDown "Minutes",{"1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29","30","31","32","33","34","35","36","37","38","39","40","41","42","43","44","45","46","47","48","49","50","51","52","53","54","55","56","57","58","59"},minutes

EndDlog

expr(year)year

If month=1 Then

 "January"month

ElseIf month=2 Then

 "February"month

ElseIf month=3 Then

 "March"month

ElseIf month=4 Then

 "April"month

ElseIf month=5 Then

 "May"month

ElseIf month=6 Then

 "June"month

ElseIf month=7 Then

 "July"month

ElseIf month=8 Then

 "August"month

ElseIf month=9 Then

 "September"month

ElseIf month=10 Then

 "October"month

ElseIf month=11 Then

 "November"month

ElseIf month=12 Then

 "December"month

EndIf


RplcPic #picture

PxlText month,69,0

PxlText string(day),69,60

PxlText string(year),69,80

PxlText string(hour)&":"&string(minutes),69,120




If picture="img175" Then

 For aaaa,1,6,1

  For aaaaa,1,6,1

   RplcPic icio4,15,10

  EndFor

  For aaaaa,1,6,1

   RplcPic icio5,15,10

  EndFor

 EndFor

ElseIf picture="img179" Then

 For aaaa,1,6,1

  For aaaaa,1,6,1

   RplcPic ici4,15,10

  EndFor

  For aaaaa,1,6,1

   RplcPic ici5,15,10

  EndFor

 EndFor

EndIf

Lbl abcde

If month="October" and day=11 and year=1984 and hour=10 and minutes=4 Then

 If picture="img179" Then

  RplcPic ici1,15,10

 ElseIf picture="img175" Then

  RplcPic icio1,15,10

 EndIf

ElseIf month="January" and day=17 and year=1207 and hour=5 and minutes=46 Then

 If picture="img179" Then

  RplcPic ici2,15,10

 ElseIf picture="img175" Then

  RplcPic icio2,15,10

 EndIf

ElseIf month="November" and day=23 and year=9791 and hour=6 and minutes=57 Then

 If picture="img179" Then

  RplcPic ici3,15,10

 ElseIf picture="img175" Then

  RplcPic icio3,15,10

 EndIf

EndIf

StoPic ing

RplcPic cursor,x,y

Goto start


Lbl timemac

"img175"picture

"n175"listy

RplcPic #picture

Goto abcde


Lbl timemach

"img179"picture

"n179"listy

RplcPic #picture

Goto abcde


Lbl rocketdo

If powship=59 Then

 Dialog

 Title "Myst 89"

 Text "Normally this door is supposed to go open,"

 Text "but because this will never be the full"

 Text "game, just a demo, it won't. But don't"

 Text "worry, you can explore the rest of this"

 Text "island."

 Text ""

 Text "Stefan Bauwens"

 Text "Author of Myst 89"

 EndDlog

 Goto start

Else

 Goto start

EndIf


Lbl codebox


Request "3-Digit-Code",codee

If codee="724" Then

 "img271"picture

 "n271"listy

 RplcPic #picture

 StoPic ing

 RplcPic cursor,x,y

 Goto start

Else

 Goto start

EndIf


Lbl match

1matches

If matches=1 Then

 RplcPic #picture

 RplcPic match

 StoPic ing

 RplcPic cursor,x,y

EndIf

Goto start


Lbl stoof

If weel=1 Then

 RplcPic img272

 RplcPic fira,70,60

 StoPic ing

 RplcPic cursor,x,y

ElseIf weel=0 Then

 "img169"picture

 "n169"listy

 RplcPic #picture

 StoPic ing

 RplcPic cursor,x,y

EndIf


If matches=1 Then

 RplcPic #picture

 RplcPic match

 StoPic ing

 RplcPic cursor,x,y

EndIf

"n169"listy

If wheeel=1 Then

 RplcPic ing

 RplcPic fira,70,60

 StoPic ing

 RplcPic cursor,x,y

EndIf


Goto start


Lbl firee

If matches=1 Then

 0matches

 1wheeel

 RplcPic #picture

 RplcPic fira,70,60

 StoPic ing

 RplcPic cursor,x,y

EndIf

Goto start


Lbl wheel

If wheeel=1 and weel=0 Then

 RplcPic img272

 RplcPic fira,70,60

 StoPic ing

 RplcPic cursor,x,y

 1weel

 Goto start

EndIf

If wheeel=1 and weel=1 Then

 RplcPic img169

 StoPic ing

 RplcPic cursor,x,y

 0weel

 0wheeel

EndIf

Goto start


Lbl treee

If weel=1 Then

 "img273"picture

Else

 "img87"picture

EndIf

"n87"listy

RplcPic #picture

StoPic ing

RplcPic cursor,x,y

Goto start


Lbl thetre

If weel=1 Then

 Dialog

 Title "Myst 89"

 Text "Since Myst 89 is a demo this lift"

 Text "will never work. But don't worry,"

 Text "this isn't the only thing you can"

 Text "discover."

 Text ""

 Text "Stefan Bauwens,"

 Text "Author of Myst 89"

 EndDlog

EndIf

Goto start


©Clock

Lbl clhour


If rsu=0 Then

 RplcPic ing

 RplcPic wheel3,49,41

 StoPic ing

 RplcPic cursor,x,y

 1rsu

Else

 RplcPic ing

 RplcPic wheel1,49,41

 StoPic ing

 RplcPic cursor,x,y

 0rsu

EndIf


If clho<12 Then

 clho+1clho

ElseIf clho=12 Then

 1clho

EndIf

Goto start


Lbl clminu


If rsuu=0 Then

 RplcPic ing

 RplcPic wheel4,53,74

 StoPic ing

 RplcPic cursor,x,y

 1rsuu

Else

 RplcPic ing

 RplcPic wheel2,53,74

 StoPic ing

 RplcPic cursor,x,y

 0rsuu

EndIf


If clmi<60 Then

 clmi+5clmi

ElseIf clmi=60 Then

 5clmi

EndIf

Goto start


Lbl clock

0rsu

0rsuu

"img80"picture

"n80"listy

RplcPic #picture


If clho=1 Then

 PxlLine 12,86,8,88

ElseIf clho=2 Then

 PxlLine 12,86,9,90

ElseIf clho=3 Then

 PxlLine 12,86,12,90

ElseIf clho=4 Then

 PxlLine 12,86,14,90

ElseIf clho=5 Then

 PxlLine 12,86,16,89

ElseIf clho=6 Then

 PxlLine 12,86,17,86

ElseIf clho=7 Then

 PxlLine 12,86,16,84

ElseIf clho=8 Then

 PxlLine 12,86,14,83

ElseIf clho=9 Then

 PxlLine 12,86,12,82

ElseIf clho=10 Then

 PxlLine 12,86,11,83

ElseIf clho=11 Then

 PxlLine 12,86,8,84

ElseIf clho=12 Then

 PxlLine 12,86,8,86

EndIf


If clmi=5 Then

 PxlLine 12,86,6,89

ElseIf clmi=10 Then

 PxlLine 12,86,6,95

ElseIf clmi=15 Then

 PxlLine 12,86,12,95

ElseIf clmi=20 Then

 PxlLine 12,86,16,95

ElseIf clmi=25 Then

 PxlLine 12,86,18,90

ElseIf clmi=30 Then

 PxlLine 12,86,20,86

ElseIf clmi=35 Then

 PxlLine 12,86,18,83

ElseIf clmi=40 Then

 PxlLine 12,86,15,80

ElseIf clmi=45 Then

 PxlLine 12,86,12,76

ElseIf clmi=50 Then

 PxlLine 12,86,8,80

ElseIf clmi=55 Then

 PxlLine 12,86,5,83

ElseIf clmi=60 Then

 PxlLine 12,86,3,86

EndIf


StoPic ing

RplcPic cursor,x,y

Goto start


Lbl clenter

If clho=2 and clmi=40 Then

 Dialog

 Title "Myst 89"

 Text "You entered the correct time, but"

 Text "Myst 89 is a demo, so nothing will"

 Text "happen now. Don't worry though,"

 Text "This isn't the only thing you can"

 Text "discover."

 Text ""

 Text "Stefan Bauwens,"

 Text "Author of Myst 89"

 EndDlog

 0rsu

 0rsuu

EndIf

Goto start


Lbl stovee

"img227"picture

"n227"listy

RplcPic #picture

StoPic ing

RplcPic cursor,x,y


Dialog

Title "Myst 89"

Text "Since Myst 89 is a demo this puzzle"

Text "will never work. But don't worry,"

Text "this isn't the only thing you can"

Text "discover."

Text ""

Text "Stefan Bauwens,"

Text "Author of Myst 89"

EndDlog

Goto start


Lbl journal

Dialog

Title "Myst 89"

Text "Because this calculator doesn't"

Text "have infinite amount of free space"

Text "you can read the books at:"

Text "http://tinyurl.com/mystjournals/"

Text "Here you have to click on 'RealMyst'"

Text "and you can read the journals."

Text ""

Text "NOTE: The books of 'Rime' are only"

Text "in 'RealMyst', so reading them"

Text "won't have any benefit here."

EndDlog

Goto start


©pages

Lbl blue

If bluepa=0 Then

 1bluep

 0redp

 "img230a"picture

 RplcPic #picture

 RplcPic page

 StoPic ing

 RplcPic cursor,x,y

EndIf

Goto start


Lbl red

If redpa=0 Then

 1redp

 0bluep

 "img123a"picture

 RplcPic #picture

 RplcPic page2

 StoPic ing

 RplcPic cursor,x,y

EndIf

Goto start


©brother books

Lbl bluebo

If bluep=1 or bluepa=1 Then

 0bluep

 1bluepa

 Dialog

 Title "Myst 89"

 Text "ZZZZZ...Sirrus? ZZZ...Is that you?"

 Text "Who are you? ZZZZ...see you ZZZZ.."

 Text "Achenar ZZZZZZ...to help me ZZ..."

 Text "to bring ZZZ...blue pages to ZZZZZ"

 Text "forever and ever ZZZ...blue pages"

 Text "ZZZZ...I must have the blue pages"

 Text "ZZ...Bring them to me,please."

 Text "ZZZZZZZZZZZZZZZZZZZZZ..."

 EndDlog

Else

 Text "ZZZZZZZZZZZZZ..."

EndIf

RplcPic #picture

StoPic ing

RplcPic cursor,x,y

Goto start


Lbl redbo

If redp=1 or redpa=1 Then

 1redpa

 0redp

 Dialog

 Title "Myst 89"

 Text "ZZZ...Who are you ZZZZZ...You must"

 Text "help me, please ZZZ..Bring me the"

 Text "red page ZZZZ...I can't ZZZZZ..."

 Text "I can't see you ZZZZZZ...hear me"

 Text "ZZZZZ...I need a red page, you must"

 Text "bring me a red page ZZZ...Please"

 Text "bring ZZZZZ...beg of you, bring"

 Text "the page ZZZ...Help me ZZZZZ..."

 Text "I am Sirrus ZZZZ...Given up long"

 Text "ago ZZZZZ...There is one thing I"

 Text "need to be rescued ZZZ..You must.."

 EndDlog

Else

 Text "ZZZZZZZZZZZZZ..."

EndIf

RplcPic #picture

StoPic ing

RplcPic cursor,x,y

Goto start


©Check if pages or gone or not

Lbl bluu

If bluepa=1 or bluep=1 Then

 "img230a"picture

Else

 "img230"picture

EndIf

"n230"listy

RplcPic #picture

If bluep=1 Then

 RplcPic page

EndIf


StoPic ing

RplcPic cursor,x,y

Goto start


Lbl redd

If redpa=1 or redp=1 Then

 "img123a"picture

Else

 "img123"picture

EndIf

"n123"listy

RplcPic #picture


If redp=1 Then

 RplcPic page

EndIf

StoPic ing

RplcPic cursor,x,y

Goto start


Lbl mystbo

0xxxx

For ab,1,77

 PxlHorz xxxx

 xxxx+1xxxx

EndFor

"img1"picture

"n1"listy

RplcPic #picture

StoPic ing

RplcPic cursor,x,y

Goto start


EndPrgm