Home » Archimedes archive » Archimedes World » AW-1996-06-Disc 2.adf » !Tables_Tables » !Tables/Pt1/intro

!Tables/Pt1/intro

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Archimedes World » AW-1996-06-Disc 2.adf » !Tables_Tables
Filename: !Tables/Pt1/intro
Read OK:
File size: 74A2 bytes
Load address: 0000
Exec address: 0000
File contents
    0REMOSCLIADFS::HardDisc4.$.CURR_NEW.DEMOPROG.!Tables.Pt1.intro
    1LIBRARY "<TableA$Dir>.Pt1.Library"
    2*FX225,1
    3*FX229,0
    4*FX220,17
    5*KEY1 PROCdt|M
    6*KEY5 PROCstats|M
    7ONERROR:OSCLI"FX229,1":ONERROR OFF:PROCdt|M
    8*KEY9 MOUSERECTANGLE 0,0,1278,960:REPEAT:MOUSEX,Y,Z:P.TAB(0,0)X,Y:UNTIL FALSE
    9*KEY3 length$=STR$~262144:from$=STR$~back_data%:file$="bgdata2":OSCLI"SAVE "+file$+" "+from$+" +"+length$
   10DIM input_disk_name% 256,mouse% 16
   11DIM pdrect% 16,pdrect2% 16,pdtrans% 16,pdplot% 8,ctrans% 256,paltab% 256
   12DIM input% 16,output% 16,scale% 16
   13DIM but%(40,4),but$(40)
   14DIM area%(10,4)
   15DIM points%(2,10)
   16DIM string% 128
   17DIM tables%(12,5)
   18DIM tables$(12),ta$(12)
   19DIM mov_tab%(5,5)
   20DIM firstn%(12)
   21DIM secondn%(12)
   22DIM rnd_picker1%(12)
   23DIM rnd_picker2%(12)
   24DIM rnd_number1%(12)
   25DIM rnd_number2%(12)
   26DIM presented%(12)
   27DIM x_answer%(12)
   28DIM count_down%(6)
   29DIM entry_areas%(5,4)
   30DIM ds%(32,2)
   31DIM corr%(30,3)
   32DIM scale% 16
   33DIM input% 16
   34DIM output% 16
   35DIM cbox%(7,2)
   36DIM cbox_type%(6,8)
   37DIM temp%(6)
   38DIM pipes%(20,2)
   39DIM tmatrix% 256
   40vga%=V%
   41
   42
   43PROCpull_variables
   44PROCinitialise_sprite_area
   45addrs$=STR$~m_code1%
   46OSCLI"LOAD <TableA$Dir>.Pt1.GenCode "+addrs$
   47PROCfind_screens
   48PROCpull_gen_code_var
   49PROCpull_pac_code_var
   50sa1%=sprite_area1%
   51number_of%=10
   52timer_on%=1
   53style%=1
   54order%=2
   55VOICES 1
   56PROCpalette2
   57
   58VDU19,1,24,0,0,0
   59IF P%=1 AND (Q%=1 OR Q%=20 OR Q%=40):PROCintro
   60IF Q%=1 PROCpolice
   61IF Q%=1 Q%=2
   62IF Q%=2 CHAIN"<TableA$Dir>.pt1.LINK"
   63IF Q%=7 PROCcar_intro
   64IF Q%=7 Q%=8
   65IF Q%=8 CHAIN"<TableA$Dir>.pt1.LINK"
   66IF Q%=20 PROCintro2
   67IF Q%=20 Q%=21
   68IF Q%=21 CHAIN"<TableA$Dir>.pt1.LINK"
   69IF Q%=40 PROCintro3
   70IF Q%=40 Q%=41
   71IF Q%=41 CHAIN"<TableA$Dir>.pt1.LINK"
   72IF Q%=42 PROCintro4
   73IF Q%=42 Q%=43
   74IF Q%=43 CHAIN"<TableA$Dir>.pt1.LINK"
   75IF Q%=60 PROCtake_off
   76IF Q%=60 Q%=61
   77IF Q%=61 CHAIN"<TableA$Dir>.pt1.LINK"
   78STOP
   79DEFPROCdraw_file(file$)
   80file%=sprite_area2%
   81OSCLI"LOAD <TableA$Dir>."+file$+" "+STR$~file%
   82SYS "OS_File",5,"<TableA$Dir>."+file$ TO ,,,,filelen%,type%
   83la$=STR$~file%
   84OSCLI"LOAD "+file$+" "+la$
   85MOVE 100,100:PLOT1,400,400
   86!(tmatrix%+0)=1<<16
   87!(tmatrix%+4)=0
   88!(tmatrix%+8)=0
   89!(tmatrix%+12)=1<<16
   90!(tmatrix%+16)=256*400
   91!(tmatrix%+20)=256*200
   92SYS"DrawFile_Render",0,file%,filelen%,tmatrix%,0,0
   93ENDPROC
   94DEFPROCtake_off
   95PROCload_sprites("takeoff")
   96PROCmerge_sprites("buttons")
   97*fx112,1
   98COLOUR 131:CLS
   99IF TRUE THEN
  100IFV%=0 VDU24,0;960;1278;1022;18,0,131,16,26
  101PROCtext_box(700,580,540,250,2,"The 'Table Aliens' have","kidnapped two Special","Group members!")
  102PROCpause(100)
  103PROCtext_box(700,300,540,250,2,"They have been taken","to an alien base,","hidden on Mars.")
  104xx%=64:yy%=88
  105VDU24,xx%;yy%;xx%+602;yy%+780;18,0,131,16,26
  106PROCplot_sprite_back(xx%+100,yy%+260,1,1,1,1,"mars")
  107PROCspace(900,100,0,0)
  108VDU24,700;0;1278;956;18,0,131,16,26
  109PROCpause(100)
  110PROCtext_box(700,400,440,250,2,"Your mission is","to rescue these","people.")
  111PROCspace(900,100,0,0)
  112*fx112,2
  113VDU24,0;0;1278;960;18,0,131,16,26
  114PROCplot_sprite_back(xx%,yy%,1,1,1,1,"back")
  115PROCplot_sprite_masked(xx%,yy%,1,1,1,1,"land")
  116PROCtext_box(800,400,440,250,2,"This will be your","hardest mission","yet.")
  117fade$="fade"
  118PROCfade(0,960,4,0,1,1)
  119*FX112,1
  120PROCspace(900,100,0,0)
  121*FX112,2
  122PROCcachesound("fire!",1)
  123an_x%=xx%+280:an_y%=-200
  124sel_sprite$="rocket"
  125PROCstart_anim("blank")
  126flame%=1
  127COLOUR 9,255,255,0
  128PROCpause(20)
  129SOUND 1,&17F,1,1
  130PROCpalette2
  131VDU 19,1,24,0,0,0
  132PROCpause(100)
  133COLOUR 9,255,255,0
  134PROCpause(20)
  135SOUND 1,&17F,1,1
  136PROCpalette2
  137VDU 19,1,24,0,0,0
  138PROCpause(100)
  139PROCcachesound("saturn5",1)
  140FORf%=0 TO 150
  141PROCst_pause
  142an_y%=an_y%+4
  143IF FNnosound=TRUE:SOUND 1,&17F,1,1
  144IFf%>60 an_y%=an_y%+4
  145IFf%>100 an_y%=an_y%+4
  146SYS"OS_SpriteOp",&13C,sa1%,"rocket",0
  147!(scale%+0)=1
  148!(scale%+4)=1
  149!(scale%+8)=1
  150!(scale%+12)=1
  151SYS"OS_SpriteOp",&134,sa1%,"fire"+STR$(flame%),0,0,8,scale%,0
  152SYS"OS_SpriteOp",&13C,sa1%,0,1
  153IFV%=1 VDU 23,17,7,6,8;16;0;
  154flame%=flame%+1
  155IF flame%=7 flame%=1
  156PROCanim("blank")
  157IFan_y%<200 PROCplot_sprite_masked(xx%,yy%,1,1,1,1,"land")
  158PROCmove_block(screen_two%,320,120,screen_one%,320,120,48,180)
  159PROCen_pause(10)
  160NEXT
  161*fx112,1
  162PROCspace(900,100,0,0)
  163ENDIF
  164*fx112,2
  165COLOUR 131:CLS
  166xx%=64:yy%=88
  167VDU24,xx%;yy%;xx%+702;yy%+780;18,0,131,16,26
  168PROCplot_sprite_back(xx%+160,yy%+260,1,1,1,1,"mars")
  169fade$="fade"
  170PROCfade(0,960,4,0,1,1)
  171*FX112,1
  172PROCtext_box(700,400,440,250,2,"You will need to","find the the","alien base.")
  173PROCspace(900,100,0,0)
  174GCOL0,0
  175FORf%=xx%+260 TO xx%+332 STEP 12
  176MOVE f%,yy%+360:PLOT 1,0,72
  177PROCpause(30)
  178NEXT
  179FORff%=yy%+360 TO yy%+432 STEP 12
  180MOVE xx%+260,ff%:PLOT1,72,0
  181PROCpause(30)
  182NEXT
  183ENDPROC
  184DEFPROCintro3
  185PROCload_sprites("compu")
  186PROCmerge_sprites("numbers")
  187PROCmerge_sprites("buttons")
  188IFP%=0 PROCbrief_intro
  189*fx112,2
  190COLOUR 131:CLS
  191IFV%=0 VDU24,0;960;1278;1022;18,0,131,16,26
  192xx%=64:yy%=88
  193PROCplot_sprite_back(xx%,yy%,1,1,1,1,"screen")
  194PROCplot_sprite_masked(xx%+64,yy%+134,1,1,1,1,"man7")
  195PROCplot_sprite_masked(xx%+64+142,yy%+134+176,1,1,1,1,"righta")
  196PROCplot_sprite_masked(xx%+64+0,yy%+134+172,1,1,1,1,"lefta")
  197PROCplot_sprite(xx%+64+120,yy%+134+320,1,1,1,1,"badge")
  198*fx112,1
  199fade$="fade"
  200PROCfade(0,960,4,0,1,1)
  201GCOL0,3
  202PROCcachesound("computer1",1)
  203FORf%=644 TO 756 STEP 8:
  204IF FNnosound=TRUE:SOUND 1,&17F,1,1
  205PLOT 4,360,f%:PLOT 5,508,f%
  206PROCpause(4)
  207NEXT
  208FORf%=360 TO 508 STEP 8:
  209IF FNnosound=TRUE:SOUND 1,&17F,1,1
  210PLOT 4,f%,644:PLOT 5,f%,756
  211PROCpause(4)
  212NEXT
  213PROCplot_sprite(360,636,1,1,1,1,"screena")
  214PROCpause(100)
  215PROCtext_box(800,680,440,250,2,"The aliens have","fired mines at the","Earth.")
  216PROCpause(100)
  217PROCtext_box(800,400,440,250,2,"You must try to","destroy them","before they land.")
  218PROCspace(900,100,0,0)
  219ENDPROC
  220DEFPROCintro4
  221PROCload_sprites("compu")
  222PROCmerge_sprites("numbers")
  223PROCmerge_sprites("buttons")
  224*fx112,2
  225COLOUR 131:CLS
  226IFV%=0 VDU24,0;960;1278;1022;18,0,131,16,26
  227PROCtext_box(800,680,440,250,2,"Emergency! More","mines have been","fired.")
  228xx%=64:yy%=88
  229PROCplot_sprite_back(xx%,yy%,1,1,1,1,"screen")
  230PROCplot_sprite_masked(xx%+64,yy%+134,1,1,1,1,"man7")
  231PROCplot_sprite_masked(xx%+64+142,yy%+134+176,1,1,1,1,"righta")
  232PROCplot_sprite_masked(xx%+64+0,yy%+134+172,1,1,1,1,"lefta")
  233PROCplot_sprite(xx%+64+120,yy%+134+320,1,1,1,1,"badge")
  234*fx112,1
  235fade$="fade"
  236PROCfade(0,960,4,0,1,1)
  237PROCpause(100)
  238PROCtext_box(800,400,440,250,2,"You will need to","find out where","they are landing.")
  239PROCspace(900,100,0,0)
  240VDU24,780;0;1278;956;18,0,131,16,26
  241PROCtext_box(800,450,440,240,2,"You may not be","in time to stop","them landing.")
  242PROCspace(900,100,0,0)
  243ENDPROC
  244DEFPROCintro2
  245PROCload_sprites("pt2start")
  246PROCmerge_sprites("numbers")
  247PROCmerge_sprites("buttons")
  248PROCbrief_intro
  249*fx112,2
  250COLOUR 131:CLS
  251IFV%=0 VDU24,0;960;1278;1022;18,0,131,16,26
  252PROCtext_box(800,680,440,250,2,"While you sleep,","strange things","are happening!")
  253xx%=64:yy%=88
  254PROCplot_sprite_back(xx%,yy%,1,1,1,1,"screen")
  255*fx112,1
  256fade$="fade"
  257PROCfade(0,960,4,0,1,1)
  258PROCcachesound("wind",1)
  259PROCspace(900,100,0,0)
  260*fx112,2
  261FORpp%=25 TO -50 STEP -3
  262IFpp%>-1:p%=pp%
  263SOUND 1,&17F,1,1
  264PROCplot_sprite(xx%+92,yy%+552,1,1,1,1,"wind1")
  265C%=screen_one%:B%=screen_two%:CALLsave_screen%
  266PROCpause(p%)
  267PROCplot_sprite_back(xx%,yy%,1,1,1,1,"screen")
  268C%=screen_one%:B%=screen_two%:CALLsave_screen%
  269PROCpause(p%)
  270NEXT
  271FORf%=30 TO 20 STEP-2
  272PROCpause(f%)
  273IF FNnosound=TRUE:SOUND 1,&17F,1,1
  274PROCpause(f%)
  275NEXT
  276PROCpause(30)
  277PROCcachesound("invading2",1)
  278tog%=1
  279FORpp%=xx%+92+276 TO xx%+92 STEP -4
  280PROCst_pause
  281VDU24,xx%+92;yy%+552;xx%+92+272;yy%+552+176;18,0,131,16
  282PROCplot_sprite(pp%,yy%+552,1,1,1,1,"table6")
  283PROCplot_sprite_masked(xx%+92,yy%+552,1,1,1,1,"wind3")
  284C%=screen_one%:B%=screen_two%:CALLsave_screen%
  285IF FNnosound=TRUE:SOUND 1,&17F,1,1
  286tog%=tog%+1
  287PROCen_pause(10)
  288NEXT
  289*fx112,1
  290VDU26
  291PROCspace(900,100,1,0)
  292VDU24,xx%;yy%;xx%+1278;yy%+776;18,0,131,16,26
  293PROCpause(200)
  294FORf%=-200 TO 200 STEP 4
  295PROCst_pause
  296SOUND 1,&17F,1,1
  297PROCplot_sprite(f%,600,1,1,1,1,"eye4")
  298PROCplot_sprite(f%+142,600,1,1,1,1,"eye4")
  299tog%=tog%+1
  300PROCen_pause(2)
  301NEXT
  302PROCcachesound("growl2",1)
  303PROCplot_sprite(200,600,1,1,1,1,"eye4")
  304PROCplot_sprite(200+142,600,1,1,1,1,"eye4")
  305PROCpause(100)
  306PROCplot_sprite(200,600,1,1,1,1,"eye5")
  307PROCplot_sprite(200+142,600,1,1,1,1,"eye5")
  308PROCpause(100)
  309PROCplot_sprite(200,600,1,1,1,1,"eye4")
  310PROCplot_sprite(200+142,600,1,1,1,1,"eye4")
  311PROCpause(100)
  312PROCplot_sprite(200,600,1,1,1,1,"eye6")
  313PROCplot_sprite(200+142,600,1,1,1,1,"eye6")
  314PROCpause(100)
  315PROCplot_sprite(200,600,1,1,1,1,"eye4")
  316PROCplot_sprite(200+142,600,1,1,1,1,"eye4")
  317PROCpause(100)
  318PROCplot_sprite(200,600,1,1,1,1,"eye6")
  319PROCplot_sprite(200+142,600,1,1,1,1,"eye6")
  320PROCpause(100)
  321PROCplot_sprite(200,600,1,1,1,1,"eye7")
  322PROCplot_sprite(200+142,600,1,1,1,1,"eye7")
  323PROCpause(100)
  324FORf%=204 TO 300 STEP 4
  325PROCst_pause
  326PROCplot_sprite(f%,600,1,1,1,1,"eye7")
  327PROCplot_sprite(f%+142,600,1,1,1,1,"eye7")
  328tog%=tog%+1
  329PROCen_pause(2)
  330NEXT
  331PROCplot_sprite(300,600,1,1,1,1,"eye8")
  332PROCplot_sprite(300+142,600,1,1,1,1,"eye8")
  333SOUND 1,&17F,1,1
  334PROCpause(100)
  335PROCcachesound("aaarh2",1)
  336SOUND 1,&17F,1,1
  337PROCpause(100)
  338*fx112,2
  339COLOUR 131:CLS
  340PROCtext_box(340,400,600,250,2,"When you wake up,","you are somewhere","very strange.")
  341*fx112,1
  342fade$="fade"
  343PROCfade(0,960,4,0,1,1)
  344PROCspace(900,100,0,0)
  345*fx112,2
  346COLOUR 131:CLS
  347IFV%=0 VDU24,0;960;1278;1022;18,0,131,16,26
  348xx%=64:yy%=88
  349PROCplot_sprite_back(xx%,yy%,1,1,1,1,"screen3")
  350*fx112,1
  351fade$="fade"
  352PROCfade(0,960,4,0,1,1)
  353PROCpause(60)
  354PROCcachesound("inside_ufo",1)
  355PROCtext_box(800,450,440,190,2,"You are inside an","alien space craft!","")
  356PROCspace(900,100,1,0)
  357ENDPROC
  358DEFPROCbrief_intro
  359*FX112,1
  360COLOUR 131:CLS
  361PROCcachesound("invading2",1)
  362IFV%=0 VDU24,0;960;1278;1022;18,0,131,16,26
  363GCOL0,7:FORf%=1 TO 2000:PLOT69,RND(1280),RND(950):NEXT
  364B%=screen_one%:C%=screen_two%:CALLsave_screen%
  365PROCtext_box(100,600,1080,170,2,"A special group has been set up","to deal with the Table Aliens.","")
  366PROCspace(900,100,1,0)
  367PROCtext_box(100,400,700,170,2,"You are a new member","of this special group.","")
  368IFQ%<>40 PROCplot_sprite(920,330,1,1,1,1,"man7")  ELSE PROCplot_sprite(920,330,1,1,1,1,"man77")
  369PROCspace(900,100,1,0)
  370ENDPROC
  371DEFPROCpolice
  372PROCload_sprites("compu")
  373PROCmerge_sprites("buttons")
  374*FX112,1
  375PROCplates2
  376IFV%=0 VDU24,0;960;1278;1022;18,0,131,16,26
  377*FX112,2
  378PROCplates2
  379IFV%=0 VDU24,0;960;1278;1022;18,0,131,16,26
  380VDU24,0;0;1278;400;18,0,128,16,26
  381*fx112,1
  382PROCtext_box(790,680,460,250,2,"A special group has","been set up to deal","with the aliens.")
  383B%=screen_one%:C%=screen_two%:CALLsave_screen%
  384xx%=64:yy%=88
  385PROCcachesound("computer1",1)
  386PROCplot_sprite_back(xx%,yy%,1,1,1,1,"screen")
  387PROCplot_sprite_masked(xx%+64,yy%+134,1,1,1,1,"man7")
  388PROCplot_sprite_masked(xx%+64+142,yy%+134+176,1,1,1,1,"righta")
  389PROCplot_sprite_masked(xx%+64+0,yy%+134+172,1,1,1,1,"lefta")
  390PROCplot_sprite(xx%+64+120,yy%+134+320,1,1,1,1,"badge")
  391*fx112,2
  392PROCplot_sprite_back(xx%,yy%,1,1,1,1,"screen")
  393PROCplot_sprite_masked(xx%+64,yy%+134,1,1,1,1,"man7")
  394PROCplot_sprite_masked(xx%+64+10,yy%+134+184,1,1,1,1,"man5")
  395PROCplot_sprite(xx%+64+120,yy%+134+320,1,1,1,1,"badge")
  396PROCplot_sprite(358,636,1,1,1,1,"screena")
  397IF Q%=1 PROCplot_sprite(358,636,1,1,1,1,"screenb")
  398*fx112,1
  399PROCspace(900,80,0,0)
  400VDU 24,358;636;504;756;18,0,5
  401FORf%=642 TO 754 STEP 8
  402IF FNnosound=TRUE:SOUND 1,&17F,1,1
  403PLOT 4,360,f%:PLOT 5,508,f%
  404PROCpause(4)
  405NEXT
  406FORf%=360 TO 508 STEP 8
  407IF FNnosound=TRUE:SOUND 1,&17F,1,1
  408PLOT 4,f%,642:PLOT 5,f%,754
  409PROCpause(4)
  410NEXT
  411PROCpause(100)
  412PROCplot_sprite(358,636,1,1,1,1,"screena")
  413PROCpause(300)
  414IFQ%=1 THEN
  415GCOL0,3
  416FORf%=644 TO 756 STEP 8
  417IF FNnosound=TRUE:SOUND 1,&17F,1,1
  418PLOT 4,360,f%:PLOT 5,508,f%
  419PROCpause(4)
  420NEXT
  421FORf%=360 TO 508 STEP 8
  422IF FNnosound=TRUE:SOUND 1,&17F,1,1
  423PLOT 4,f%,644:PLOT 5,f%,756
  424PROCpause(4)
  425NEXT
  426PROCplot_sprite(358,636,1,1,1,1,"screenb")
  427PROCpause(100)
  428ENDIF
  429C%=screen_one%:B%=screen_two%:CALLsave_screen%
  430PROCpause(200)
  431*fx112,2
  432PROCplot_sprite_back(xx%,yy%,1,1,1,1,"screen")
  433PROCplot_sprite(358,636,1,1,1,1,"screena")
  434IF Q%=1 PROCplot_sprite(358,636,1,1,1,1,"screenb")
  435PROCplot_sprite_masked(xx%+64,yy%+134,1,1,1,1,"man7")
  436PROCplot_sprite_masked(xx%+64+0,yy%+134+172,1,1,1,1,"lefta")
  437PROCplot_sprite_masked(xx%+64+142,yy%+134+250,1,1,1,1,"hand")
  438PROCplot_sprite(xx%+64+120,yy%+134+320,1,1,1,1,"badge")
  439C%=screen_one%:B%=screen_two%:CALLsave_screen%
  440*fx112,1
  441PROCpause(100)
  442PROCplot_sprite_masked(xx%+64+44,yy%+134+400,1,1,1,1,"head2")
  443PROCpause(100)
  444PROCplot_sprite_masked(xx%+64+44,yy%+134+400,1,1,1,1,"head3")
  445PROCpause(100)
  446PROCplot_sprite_masked(xx%+64+44,yy%+134+400,1,1,1,1,"head4")
  447*fx112,1
  448PROCtext_box(790,400,460,250,2,"They are all","strong, brave and","very clever.")
  449B%=screen_one%:C%=screen_two%:CALLsave_screen%
  450PROCspace(900,80,0,0)
  451*fx112,2
  452PROCplates2
  453IFV%=0 VDU24,0;960;1278;1022;18,0,131,16,26
  454PROCplot_sprite_back(xx%,yy%,1,1,1,1,"screen")
  455PROCplot_sprite(358,636,1,1,1,1,"screena")
  456IF Q%=1 PROCplot_sprite(358,636,1,1,1,1,"screenb")
  457PROCplot_sprite_masked(xx%+64,yy%+134,1,1,1,1,"man7")
  458PROCplot_sprite_masked(xx%+64+0,yy%+134+172,1,1,1,1,"lefta")
  459PROCplot_sprite_masked(xx%+64+142,yy%+134+250,1,1,1,1,"hand")
  460PROCplot_sprite_masked(xx%+64+44,yy%+134+400,1,1,1,1,"head4")
  461PROCplot_sprite(xx%+64+120,yy%+134+320,1,1,1,1,"badge")
  462PROCplot_sprite_masked(xx%+64+300,yy%+134,1,1,1,1,"man7")
  463PROCplot_sprite_masked(xx%+64+0+300,yy%+134+172,1,1,1,1,"lefta")
  464PROCplot_sprite_masked(xx%+64+142+300,yy%+134+250,1,1,1,1,"hand")
  465IFQ%=1 THEN
  466PROCtext_box(790,680,460,250,2,"You are training to","be a member of","this team.")
  467ENDIF
  468IFQ%=20 THEN
  469PROCplot_sprite(xx%+64+120+300,yy%+134+320,1,1,1,1,"badge")
  470PROCtext_box(800,680,440,250,2,"You are the latest","member to join the","team.")
  471ENDIF
  472fade$="fade"
  473PROCfade(0,960,4,0,1,1)
  474*fx112,1
  475IFQ%=1 THEN
  476PROCpause(130)
  477PROCtext_box(790,400,460,250,2,"You must gain 60","points out of 100","to pass this test.")
  478PROCspace(900,80,0,0)
  479VDU 24,780;0;1278;956;
  480PROCplates2
  481VDU26
  482PROCtext_box(790,480,460,250,2,"The first part of the","test is to fill in an","alien code grid.")
  483PROCspace(900,80,0,0)
  484ENDIF
  485IFQ%=20 THEN
  486PROCspace(800,600,0,0)
  487PROCtext_box(790,560,460,90,2,"Good luck!","","")
  488PROCspace(900,80,0,0)
  489ENDIF
  490ENDPROC
  491DEFPROCplates
  492FORpf%=0 TO 1280 STEP 256
  493FORpy%=0 TO 961 STEP 192
  494PROCplot_sprite(pf%,py%,1,1,1,1,"tin1")
  495NEXT:NEXT
  496ENDPROC
  497DEFPROCplates2
  498FORpf%=0 TO 1280 STEP 128
  499FORpy%=0 TO 960 STEP 96
  500PROCplot_sprite(pf%,py%,1,1,1,1,"plate")
  501NEXT:NEXT
  502ENDPROC
  503DEFPROCintro
  504PROCload_sprites("intro23")
  505PROCmerge_sprites("buttons")
  506*FX112,1
  507CLS
  508IFV%=0 VDU24,0;960;1278;1022;18,0,131,16,26
  509PROCplates
  510*FX112,2
  511CLS
  512IFV%=0 VDU24,0;960;1278;1022;18,0,131,16,26
  513VDU24,0;0;1278;400;18,0,128,16,26
  514*fx112,1
  515*FX112,2
  516GCOL0,131:CLG
  517GCOL0,7
  518IF TRUE THEN
  519COLOUR 7,64,64,0
  520FORf%=1 TO 8000
  521a%=RND(8)
  522IFa%=1 GCOL0,8
  523IFa%=2 GCOL0,0
  524IFa%>2 GCOL0,7
  525PLOT69,RND(1280),RND(960)
  526NEXT
  527PROCplot_sprite_masked(470,400,1,1,1,1,"galaxy")
  528an_x%=470
  529bytes%=32
  530*fx112,1
  531PROCcachesound("invading2",1)
  532SOUND 1,&17F,1,1
  533FORfa%= 64 TO 460 STEP 8
  534PROCst_pause
  535IF FNnosound=TRUE:SOUND 1,&17F,1,1
  536bytes%=bytes%+4
  537PROCmove_block(screen_two%,640-fa%,480-fa%,screen_one%,640-fa%,480-fa%,bytes%,bytes%)
  538IFfa%=344 THEN
  539PROCtext_box(180,20,760,90,1,"They came from another galaxy.",b$,c$)
  540COLOUR 7,255,255,0
  541PROCspace(970,40,1,0)
  542IF FNnosound=TRUE:SOUND 1,&17F,1,1
  543ENDIF
  544IFfa%<344 COLOUR 7,fa%/2,fa%/2,0
  545PROCen_pause(10)
  546NEXT
  547C%=screen_one%:B%=screen_two%:CALLsave_screen%
  548SOUND 1,&17F,1,1
  549PROCpause(100)
  550SOUND 1,&17F,1,1
  551*FX112,2
  552PROCplot_sprite(0,0,1,1,1,1,"sky2")
  553fade$="fade"
  554PROCfade(0,960,4,0,1,1)
  555SOUND 1,&17F,1,1
  556an_x%=-100
  557an_y%=620
  558pam%=4
  559sel_sprite$="craft3"
  560PROCcachesound("wind",1)
  561blank$="blank"
  562PROCstart_anim(blank$)
  563SOUND 1,&17F,1,1
  564FORan_x%=-100 TO 340 STEP8
  565PROCst_pause
  566SOUND 1,&17F,1,1
  567PROCanim(blank$)
  568C%=screen_one%:B%=screen_two%:CALLsave_screen%
  569IF (an_x% MOD 50)=0 pam%=pam%+2
  570PROCen_pause(pam%)
  571NEXT
  572FORan_x%=340 TO 400 STEP4
  573PROCst_pause
  574SOUND 1,&17F,1,1
  575PROCanim(blank$)
  576C%=screen_one%:B%=screen_two%:CALLsave_screen%
  577IF (an_x% MOD 50)=0 pam%=pam%+2
  578PROCen_pause(pam%)
  579NEXT
  580an_x%=-100
  581an_y%=500
  582pam%=4
  583sel_sprite$="craft3"
  584blank$="blank"
  585PROCstart_anim(blank$)
  586SOUND 1,&17F,1,1
  587FORan_x%=-100 TO 160 STEP8
  588PROCst_pause
  589SOUND 1,&17F,1,1
  590PROCanim(blank$)
  591C%=screen_one%:B%=screen_two%:CALLsave_screen%
  592IF (an_x% MOD 50)=0 pam%=pam%+3
  593PROCen_pause(pam%)
  594NEXT
  595FORan_x%=160 TO 200 STEP4
  596PROCst_pause
  597SOUND 1,&17F,1,1
  598PROCanim(blank$)
  599C%=screen_one%:B%=screen_two%:CALLsave_screen%
  600IF (an_x% MOD 50)=0 pam%=pam%+3
  601PROCen_pause(pam%)
  602NEXT
  603an_x%=-100
  604an_y%=500
  605pam%=4
  606sel_sprite$="craft2"
  607blank$="blank"
  608PROCstart_anim(blank$)
  609SOUND 1,&17F,1,1
  610FORan_x%=1280 TO 1000 STEP-8
  611PROCst_pause
  612SOUND 1,&17F,1,1
  613PROCanim(blank$)
  614C%=screen_one%:B%=screen_two%:CALLsave_screen%
  615IF (an_x% MOD 50)=0 pam%=pam%+3
  616PROCen_pause(pam%)
  617NEXT
  618FORan_x%=1000 TO 900 STEP-4
  619PROCst_pause
  620PROCanim(blank$)
  621C%=screen_one%:B%=screen_two%:CALLsave_screen%
  622IF (an_x% MOD 50)=0 pam%=pam%+3
  623PROCen_pause(pam%)
  624NEXT
  625an_x%=-300
  626an_y%=100
  627pam%=4
  628sel_sprite$="craft"
  629blank$="blank"
  630PROCstart_anim(blank$)
  631SOUND 1,&17F,1,1
  632FORan_x%=-300 TO 60 STEP4
  633PROCst_pause
  634SOUND 1,&17F,1,1
  635PROCanim(blank$)
  636C%=screen_one%:B%=screen_two%:CALLsave_screen%
  637IF (an_x% MOD 50)=0 pam%=pam%+2
  638PROCen_pause(pam%)
  639NEXT
  640*fx112,1
  641PROCtext_box(100,800,1080,90,1,"They came to invade the earth!","","")
  642PROCcachesound("invading2",1)
  643PROCspace(900,80,1,0)
  644C%=screen_one%:B%=screen_two%:CALLsave_screen%
  645PROCtext_box(200,760,880,160,2,"Their messages were always","sent in times table code.","")
  646PROCspace(900,80,0,0)
  647PROCpause(20)
  648PROCcachesound("scifi3",1)
  649an_x%=300
  650an_y%=300
  651sel_sprite$="massage2"
  652blank$="blank"
  653PROCstart_anim(blank$)
  654FORan_x%=300 TO 800 STEP4
  655an_y%=an_y%+1
  656IF FNnosound=TRUE:SOUND 1,&17F,1,1
  657PROCst_pause
  658PROCanim(blank$)
  659PROCen_pause(6)
  660NEXT
  661PROCend_anim(blank$)
  662an_x%=800
  663an_y%=400
  664sel_sprite$="massage1"
  665blank$="blank"
  666PROCcachesound("laser_door",1)
  667PROCstart_anim(blank$)
  668FORan_x%=800 TO 300 STEP-4
  669an_y%=an_y%-1
  670IF FNnosound=TRUE:SOUND 1,&17F,1,1
  671PROCst_pause
  672PROCanim(blank$)
  673PROCen_pause(6)
  674NEXT
  675PROCend_anim(blank$)
  676ENDIF
  677*FX112,2
  678PROCplates
  679VDU24,256;192;1280-256;960-384;18,0,128,16,26
  680IFV%=0 VDU24,0;960;1278;1022;18,0,131,16,26
  681PROCload_sprites("tablealien")
  682PROCmerge_sprites("buttons")
  683PROCtext_box(100,760,1080,90,2,"They looked like tables.","","")
  684PROCplot_sprite(500,300,1,1,1,1,"table1")
  685fade$="fade"
  686PROCfade(0,960,4,0,1,1)
  687*FX112,1
  688PROCspace(900,80,0,0)
  689PROCtable_alien(500,300,1)
  690PROCspace(900,80,0,0)
  691PROCtext_box(100,640,1080,90,2,"They were called the 'Table Aliens'.","","")
  692PROCspace(900,40,0,0)
  693ENDPROC
  694DEFPROCtable_alien(x%,y%,t%)
  695PROCplot_sprite(x%,y%,1,1,1,1,"table1")
  696PROCpause(150)
  697PROCplot_sprite(x%-80,y%,1,1,1,1,"leg1")
  698PROCflip_hor("leg1")
  699PROCplot_sprite(x%+188,y%,1,1,1,1,"leg1")
  700PROCpause(40)
  701PROCplot_sprite(x%-80,y%,1,1,1,1,"leg2")
  702PROCflip_hor("leg2")
  703PROCplot_sprite(x%+188,y%,1,1,1,1,"leg2")
  704PROCpause(40)
  705PROCplot_sprite(x%-80,y%,1,1,1,1,"leg3")
  706PROCflip_hor("leg3")
  707PROCplot_sprite(x%+188,y%,1,1,1,1,"leg3")
  708PROCpause(40)
  709PROCplot_sprite(x%-80,y%,1,1,1,1,"leg4")
  710PROCflip_hor("leg4")
  711PROCplot_sprite(x%+188,y%,1,1,1,1,"leg4")
  712PROCpause(40)
  713PROCplot_sprite(x%,y%+80,1,1,1,1,"table2")
  714PROCpause(40)
  715PROCplot_sprite(x%+20,y%+168,1,1,1,1,"eye")
  716PROCpause(20)
  717PROCplot_sprite(x%+20,y%+168,1,1,1,1,"eye2")
  718PROCpause(40)
  719PROCplot_sprite(x%,y%+80,1,1,1,1,"table3")
  720PROCpause(40)
  721PROCplot_sprite(x%+20,y%+168,1,1,1,1,"eye")
  722PROCplot_sprite(x%+162,y%+168,1,1,1,1,"eye")
  723PROCpause(20)
  724PROCplot_sprite(x%+20,y%+170,1,1,1,1,"eye2")
  725PROCplot_sprite(x%+162,y%+170,1,1,1,1,"eye2")
  726PROCpause(40)
  727PROCplot_sprite(x%,y%+80,1,1,1,1,"table4")
  728PROCpause(50)
  729PROCplot_sprite(x%,y%+80,1,1,1,1,"table5")
  730PROCpause(50)
  731PROCplot_sprite(x%,y%+80,1,1,1,1,"table6")
  732PROCpause(50)
  733IF t%=1 PROCplot_sprite(x%,y%+80,1,1,1,1,"table7")
  734IF t%=2 PROCplot_sprite(x%,y%+80,1,1,1,1,"table8")
  735PROCpause(40)
  736PROCplot_sprite(x%+20,y%+168,1,1,1,1,"eye")
  737PROCplot_sprite(x%+162,y%+168,1,1,1,1,"eye")
  738PROCpause(20)
  739PROCplot_sprite(x%+20,y%+168,1,1,1,1,"eye2")
  740PROCplot_sprite(x%+162,y%+168,1,1,1,1,"eye2")
  741PROCpause(40)
  742IFV%=0 VDU24,0;960;1278;1022;18,0,131,16,26
  743ENDPROC
  744DEFPROCflip_hor(a$)
  745SYS"OS_SpriteOp",&12F,sprite_area1%,a$
  746ENDPROC
  747DEFPROCtext_box(st_x%,st_y%,length%,height%,just_type%,a$,b$,c$)
  748PROCbox(st_x%,st_y%,length%,height%)
  749f_width1%=FNfont_string_w(a$)
  750f_width2%=FNfont_string_w(b$)
  751f_width3%=FNfont_string_w(c$)
  752f_height%=70
  753lines%=3:IFc$="":lines%=2:IFb$="":lines%=1
  754xpos1%=st_x%+((length%-(f_width1%/400))/2)
  755xpos2%=st_x%+((length%-(f_width2%/400))/2)
  756xpos3%=st_x%+((length%-(f_width3%/400))/2)
  757IFjust_type%=2 THEN
  758IFxpos1%<xpos2% xpos2%=xpos1% ELSE xpos1%=xpos2%
  759IFxpos2%<xpos3% xpos3%=xpos2% ELSE xpos2%=xpos3%
  760IFxpos3%<xpos1% xpos1%=xpos3% ELSE xpos3%=xpos1%
  761ENDIF
  762ypos1%=(st_y%-(f_height%/6)*4)+(height%-(lines%*f_height%))/2+(lines%*f_height%)
  763ypos2%=ypos1%-f_height%
  764ypos3%=ypos2%-f_height%
  765PROCpri(xpos1%,ypos1%,a$)
  766IFlines%>1 PROCpri(xpos2%,ypos2%,b$)
  767IFlines%>2 PROCpri(xpos3%,ypos3%,c$)
  768ENDPROC
  769DEFPROCpri(x%,y%,a$)
  770SYS"Font_FindFont",,"TABLOID.Medium",320,360,0,0 TO han%
  771SYS"Font_SetFontColours",0,0,1,2
  772VDU0,0,0,0,0,0,0,0
  773SYS"Font_Paint",,a$,16,x%,y%
  774SYS"Font_LoseFont",han%
  775ENDPROC
  776DEFFNfont_string_w(string$)
  777$string%=string$
  778SYS"Font_FindFont",,"TABLOID.Medium",320,360,0,0 TO han%
  779SYS"Font_StringWidth",0,string%,600000,480000,-1,80 TO r0,r1,f_width%
  780SYS"Font_LoseFont",han%
  781=f_width%
  782DEFFNfont_string_h(string$)
  783$string%=string$
  784SYS"Font_FindFont",,"TABLOID.Medium",320,360,0,0 TO han%
  785SYS"Font_StringWidth",0,string%,600000,480000,-1,80 TO r0,r1,r2,f_height
  786SYS"Font_LoseFont",han%
  787=f_height%
  788DEFPROCstart_anim(blank$)
  789SYS"OS_SpriteOp",&118,sprite_area1%,sel_sprite$ TO r0,r1,r2
  790width%=(!(r2+16)+1)*16:height%=(!(r2+20)+1)*(4*(vga%+1))
  791SYS"OS_SpriteOp",&110,sprite_area1%,blank$,0,an_x%,an_y%,an_x%+width%,an_y%+height%
  792PROCplot_sprite_masked(an_x%,an_y%,1,1,1,1,sel_sprite$)
  793an_xx%=an_x%:an_yy%=an_y%
  794ENDPROC
  795DEFPROCanim(blank$)
  796PROCplot_sprite_masked(an_xx%,an_yy%,1,1,1,1+vga%,blank$)
  797SYS"OS_SpriteOp",&110,sprite_area1%,blank$,0,an_x%,an_y%,an_x%+width%,an_y%+height%
  798PROCplot_sprite_masked(an_x%,an_y%,1,1,1,1,sel_sprite$)
  799an_xx%=an_x%:an_yy%=an_y%
  800ENDPROC
  801DEFPROCend_anim(blank$)
  802PROCplot_sprite_masked(an_xx%,an_yy%,1,1,1,1+vga%,blank$)
  803ENDPROC
  804DEFPROCpri2(x%,y%,a$)
  805SYS"Font_FindFont",,"TABLOID.Medium",320,360,0,0 TO han%
  806SYS"Font_SetFontColours",0,3,2,-2
  807VDU0,0,0,0,0,0,0,0
  808SYS"Font_Paint",,a$,16,x%,y%
  809SYS"Font_LoseFont",han%
  810ENDPROC
  811DEFPROCbox(bx%,by%,bxx%,byy%)
  812bxx%=bx%+bxx%:byy%=by%+byy%
  813VDU24,bx%;by%;bxx%;byy%;18,0,130,16
  814VDU24,bx%+4;by%+4;bxx%-4;byy%-4;18,0,129,16
  815VDU24,bx%+8;by%+8;bxx%-8;byy%-8;18,0,128,16,26
  816GCOL0,3:MOVE bx%+4,by%:PLOT5,bxx%,by%:PLOT5,bxx%,byy%-4
  817MOVE bx%+4,by%+2:PLOT5,bxx%-2,by%+2:PLOT5,bxx%-2,byy%-4
  818GCOL0,2:MOVE bx%+8,by%+4:PLOT5,bxx%-4,by%+4:PLOT5,bxx%-4,byy%-8
  819MOVE bx%+8,by%+6:PLOT5,bxx%-6,by%+6:PLOT5,bxx%-6,byy%-8
  820ENDPROC
  821DEFPROCbox2(bx%,by%,bxx%,byy%)
  822bxx%=bx%+bxx%:byy%=by%+byy%
  823VDU24,bx%-4;by%-4;bxx%+4;byy%+4;18,0,131,16
  824VDU24,bx%;by%;bxx%;byy%;18,0,128,16,26
  825ENDPROC
  826DEFPROCset_up_count_down(tx%,ty%,digits%,amount%,timer%)
  827PROCbox2(tx%,ty%,48*digits%,72)
  828count_down%(timer%)=TIME+amount%
  829ENDPROC
  830DEFFNprint_timer(tx%,ty%,digits%,timer%)
  831timer%=(count_down%(timer%)-TIME)/100
  832IFtimer%<0 timer%=0000:count_down%(timer%)=0
  833t$=STR$(timer%)
  834PROCplot_numbers(tx%+24,ty%+8,digits%,t$)
  835=t$
  836DEFPROCplot_numbers2(x%,y%,digits%,a$)
  837FORpn%=1 TO LEN(a$)
  838PROCplot_sprite((x%-36)+(pn%*36),y%,1,1,1,1,MID$(a$,pn%,1))
  839NEXT
  840ENDPROC
  841DEFPROCplot_numbers(x%,y%,digits%,a$)
  842IFLEN(a$)<digits% THEN
  843REPEAT
  844a$="d"+a$
  845UNTILLEN(a$)=digits%
  846ENDIF
  847FORpn%=1 TO LEN(a$)
  848PROCplot_sprite((x%-36)+(pn%*36),y%,1,1,1,1,MID$(a$,pn%,1))
  849NEXT
  850ENDPROC
  851DEFPROCset_pos_buttons(bx%,by%)
  852FORbf%=1TO total_but%
  853but%(bf%,0)=but%(bf%,0)+bx%
  854but%(bf%,1)=but%(bf%,1)+by%
  855NEXT
  856ENDPROC
  857DEFPROCdefine_buttons(set%)
  858IFset%=1:total_but%=1:RESTORE864
  859IFset%=2:total_but%=4:RESTORE865
  860FORbut_number%=1TOtotal_but%
  861READbut%(but_number%,0),but%(but_number%,1),but%(but_number%,2),but%(but_number%,3),but%(but_number%,4),but$(but_number%)
  862NEXT
  863ENDPROC
  864DATA 100,100,200,40,2,Go on
  865DATA 820,100,200,60,2,value up,820,40,200,60,2,value down,1060,65,200,60,2,Correct!,20,65,200,60,2,Next box
  866DEFPROCset_new_buttons
  867FORbut_n%=1TOtotal_but%
  868IFbut%(but_n%,4)=0 OR but%(but_n%,4)=3:colour%=0
  869IFbut%(but_n%,4)=1 :colour%=1
  870IFbut%(but_n%,4)=2 :colour%=3
  871IF colour%>0:PROCbut_surround(but%(but_n%,0),but%(but_n%,1),but%(but_n%,2),but%(but_n%,3),colour%)
  872IF colour%>0:PROCbut_centre(but%(but_n%,0),but%(but_n%,1),but%(but_n%,2),but%(but_n%,3),128,colour%,but$(but_n%))
  873VDU26
  874NEXT
  875ENDPROC
  876DEFPROCbut_surround(bx%,by%,bxx%,byy%,col%)
  877GCOL0,col%
  878MOVEbx%,by%:PLOT1,bxx%,0:PLOT1,0,(byy%+4):PLOT1,-2,0:PLOT1,0,-(byy%+4):PLOT0,2,(byy%+4):PLOT1,-bxx%,0:PLOT1,0,-(byy%+4):PLOT1,2,0:PLOT1,0,(byy%+4)
  879IFvga%=1 MOVEbx%,by%-2:PLOT1,bxx%,0:PLOT1,0,(byy%+8):PLOT1,-bxx%,0:PLOT1,0,-(byy%+8)
  880ENDPROC
  881DEFPROCbut_centre(bx%,by%,bxx%,byy%,bcol%,col%,text$)
  882GCOL0,bcol%:GCOL0,col%
  883IFV%=1 correct%=2 ELSE correct%=0
  884VDU24,bx%+4;by%+4-correct%;bx%+bxx%-4;by%+byy%+correct%;16,26,5
  885left_margin%=(bxx%-(LEN(text$)*16))/2
  886MOVEbx%+left_margin%,by%+36:PRINTtext$
  887VDU4
  888ENDPROC
  889DEFPROCcheck_buttons(an_num%)
  890selected%=0
  891MOUSEmx%,my%,mc%
  892cb%=INKEY(1)
  893IFcb%=16 cb%=0:PROCprinter
  894IFcb%=19 cb%=0:PROCscreen_save(0)
  895FORbut_n%=1 TO total_but%
  896IFbut%(but_n%,4)<2:NEXT:ENDPROC
  897IFmx%<but%(but_n%,0) OR mx%>(but%(but_n%,0)+but%(but_n%,2)) OR my%<but%(but_n%,1) OR my%>(but%(but_n%,1)+but%(but_n%,3))THEN
  898IFPOINT(but%(but_n%,0)+6,but%(but_n%,1)+8)=4 AND but%(but_n%,4)<3:PROCbut_centre(but%(but_n%,0),but%(but_n%,1),but%(but_n%,2),but%(but_n%,3),128,3,but$(but_n%))
  899ELSE
  900IFPOINT(but%(but_n%,0)+6,but%(but_n%,1)+4)=0 AND but%(but_n%,4)<3:PROCbut_centre(but%(but_n%,0),but%(but_n%,1),but%(but_n%,2),but%(but_n%,3),132,3,but$(but_n%))
  901IFmc%=4:selected%=but_n%
  902ENDIF
  903IFan_num%>0:PROCsp_anim(an_num%)
  904NEXT
  905ENDPROC
  906DEFPROCsp_anim(an_num%)
  907IFan_num%=1 THEN
  908IFan_t%+30<TIME AND alter%=1 THEN
  909IFsections%=1 THEN
  910PROCboa2(1100,764,48,56)
  911ENDIF
  912alter%=2
  913ENDIF
  914IFan_t%+50<TIME THEN
  915IFsections%=1 THEN
  916PROCboa(1100,764,48,56)
  917ENDIF
  918alter%=1
  919an_t%=TIME
  920ENDIF
  921ENDIF
  922IFan_num%=2 THEN
  923IFsections%=1 THEN
  924PROCboa(1100,764,48,56)
  925ENDIF
  926IFsound_t%+100<TIME:SOUND1,-6,&1000,20:sound_t%=TIME
  927ENDIF
  928ENDPROC
  929DEFPROCcheck_an_num
  930RESTORE5071
  931go_an%=0
  932FORcan%=1TO an_num%
  933FORcann%=1TO3:READanx%(cann%),any%(cann%),anxx%(cann%),anyy%(cann%),an_type%(cann%):NEXT
  934NEXT
  935IFmx%<anxx%(1) AND mx%>anx%(1) AND my%<anyy%(1) AND my%>any%(1):go_an%=an_type%(1)
  936IFmx%<anxx%(2) AND mx%>anx%(2) AND my%<anyy%(2) AND my%>any%(2):go_an%=an_type%(2)
  937IFmx%<anxx%(3) AND mx%>anx%(3) AND my%<anyy%(3) AND my%>any%(3):go_an%=an_type%(3)
  938IFgo_an%=1 PROCbounce_ball
  939IFgo_an%=2 PROCsweep
  940IFgo_an%>0 PROCset_new_buttons
  941ENDPROC
  942DEFPROCpalette2
  943IFV%=0 VDU24,0;960;1278;1022;18,0,131,16,26
  944VDU19,1,24,136,136,136
  945LOCALp%,r%,g%,b%
  946RESTORE+5
  947FORp%=0TO15
  948READr%,g%,b%:COLOURp%,r%,g%,b%
  949NEXT
  950ENDPROC
  951DATA 255,255,255,187,187,187,136,136,136,0,0,0
  952DATA 0,0,175,0,0,255,0,204,255,255,255,0
  953DATA 204,204,0,221,0,0,136,17,0,0,153,0
  954DATA 0,187,34,0,255,0,255,221,170,182,82,0
  955DEFPROCintiger_icns
  956FORf%=0 TO 12
  957IF(U% AND (1<<f%))=(1<<f%) firstn%(f%)=1 ELSE firstn%(f%)=0
  958NEXT
  959FORf%=0 TO 12
  960IF(W% AND (1<<f%))=(1<<f%) secondn%(f%)=1 ELSE secondn%(f%)=0
  961NEXT
  962IF(W% AND (1<<13))=(1<<13) mixedn%=1 ELSE mixedn%=0
  963ENDPROC
  964DEFPROCset_table_one
  965PROCintiger_icns
  966PROCclear_rnd1
  967PROCclear_rnd2
  968FORfind%=1 TO number_of%
  969repeat_error%=0
  970REPEAT
  971repeat_error%=repeat_error%+1
  972REPEAT
  973rnd%=(RND(13)-1)
  974UNTIL firstn%(rnd%)=1
  975UNTIL rnd_picker1%(rnd%)=0 OR repeat_error%=10
  976rnd_picker1%(rnd%)=1
  977rnd_number1%(find%)=rnd%
  978repeat_error%=0
  979REPEAT
  980repeat_error%=repeat_error%+1
  981REPEAT
  982rnd%=(RND(13)-1)
  983UNTIL secondn%(rnd%)=1
  984UNTIL rnd_picker2%(rnd%)=0 OR repeat_error%=10
  985rnd_picker2%(rnd%)=1
  986rnd_number2%(find%)=rnd%
  987NEXT
  988FORfind%=1 TO number_of%
  989IFmixedn%=1 AND RND(100)>50 THEN
  990a%=rnd_number1%(find%):rnd_number1%(find%)=rnd_number2%(find%)
  991rnd_number2%(find%)=rnd_number1%(find%)
  992ENDIF
  993tables%(find%,1)=rnd_number1%(find%)
  994tables%(find%,2)=rnd_number2%(find%)
  995tables%(find%,3)=rnd_number1%(find%)*rnd_number2%(find%)
  996NEXT
  997firn%=0
  998secn%=0
  999FORf%=1TO12
 1000IFsecondn%(f%)=1:secn%+=1
 1001NEXT
 1002FORf%=1TO12
 1003IFfirstn%(f%)=1:firn%+=1
 1004NEXT
 1005IFfirn%<secn% THEN first_or_second%=1 ELSE first_or_second%=2
 1006ENDPROC
 1007DEFPROCclear_rnd1
 1008FORf%=0TO12
 1009rnd_picker1%(f%)=0
 1010NEXT
 1011ENDPROC
 1012DEFPROCclear_rnd2
 1013FORf%=0TO12
 1014rnd_picker2%(f%)=0
 1015NEXT
 1016ENDPROC
 1017DEFPROCrotate_numbers(x%,y%,digits%,b$)
 1018FORrline%=1TO LEN(b$)
 1019rnum%=ASC(MID$(b$,rline%,1))
 1020IFrnum%>48 AND rnum%<58 THEN
 1021rbase%=48
 1022REPEAT
 1023PROCst_pause
 1024c$=LEFT$(b$,rline%)
 1025MID$(c$,rline%,1)=CHR$(rbase%)
 1026PROCplot_numbers2(x%,y%,digits%,c$)
 1027rbase%=rbase%+1
 1028PROCen_pause(8)
 1029UNTILrbase%=rnum%
 1030ENDIF
 1031c$=LEFT$(b$,rline%)
 1032PROCplot_numbers2(x%,y%,digits%,c$)
 1033NEXT
 1034ENDPROC
 1035DEFPROCplot_numbers2(x%,y%,digits%,a$)
 1036FORpn%=1 TO LEN(a$)
 1037PROCplot_sprite((x%-38)+(pn%*38),y%,1,1,1,1,MID$(a$,pn%,1))
 1038NEXT
 1039ENDPROC
 1040DEFPROCplot_numbers(x%,y%,digits%,a$)
 1041IFLEN(a$)<digits% THEN
 1042REPEAT
 1043a$="d"+a$
 1044UNTILLEN(a$)=digits%
 1045ENDIF
 1046FORpn%=1 TO LEN(a$)
 1047PROCplot_sprite((x%-38)+(pn%*38),y%,1,1,1,1,MID$(a$,pn%,1))
 1048NEXT
 1049ENDPROC
 1050DEFPROCmove_block(from_screen%,from_x%,from_y%,to_screen%,to_x%,to_y%,bytes_across%,scans_up%)
 1051IFbytes_across% MOD 4<>0 STOP
 1052A%=from_screen%+FNcalc(from_x%,from_y%)
 1053B%=to_screen%+FNcalc(to_x%,to_y%)
 1054C%=bytes_across%
 1055D%=(scans_up%*(V%+1))-1
 1056CALL move_block%
 1057ENDPROC
 1058DEFFNcalc(x%,y%)
 1059top_lines%=0:IF vga%=0 top_lines%=320*16
 1060=top_lines%+(x%/4)+((956-y%)*80)*(vga%+1)
 1061DEFPROCplot_sprite_back(x%,y%,xm%,ym%,xd%,yd%,name$)
 1062SYS"OS_SpriteOp",&128,sprite_area1%,name$ TO r0,r1,r2,A%,B%,r5,r6
 1063VDU24,x%-8;y%-8;x%+8+(A%*2);y%+8+(B%*4);18,0,131,16,26
 1064!(scale%+0)=xm%
 1065!(scale%+4)=ym%*(vga%+1)
 1066!(scale%+8)=xd%
 1067!(scale%+12)=yd%
 1068SYS"OS_SpriteOp",&134,sa1%,name$,x%,y%,0,scale%,0
 1069ENDPROC
 1070DEFPROCmove_block(from_screen%,from_x%,from_y%,to_screen%,to_x%,to_y%,bytes_across%,scans_up%)
 1071IFbytes_across% MOD 4<>0 STOP
 1072A%=from_screen%+FNcalc(from_x%,from_y%)
 1073B%=to_screen%+FNcalc(to_x%,to_y%)
 1074C%=bytes_across%
 1075D%=(scans_up%*(V%+1))-1
 1076CALL move_block%
 1077ENDPROC
 1078DEFFNcalc(x%,y%)
 1079top_lines%=0:IF vga%=0 top_lines%=320*16
 1080=top_lines%+(x%/4)+((956-y%)*80)*(vga%+1)
 1081DEFPROCpull_pac_code_var
 1082main%=!(m_code2%+&0)
 1083set_quicksand%=!(m_code2%+&4)
 1084splodge%=!(m_code2%+&8)
 1085scroll_all%=!(m_code2%+&C)
 1086ENDPROC
 1087DEFPROCsound_effect
 1088IFan_num%=1 THEN
 1089IF FNnosound=TRUE:SOUND 1,&17F,1,1
 1090ENDIF
 1091ENDPROC
;�ADFS::HardDisc4.$.CURR_NEW.DEMOPROG.!Tables.Pt1.intro
!ț "<TableA$Dir>.Pt1.Library"
*FX225,1
*FX229,0

*FX220,17
*KEY1 PROCdt|M
*KEY5 PROCstats|M
�:�"FX229,1":� �:�dt|M
Q*KEY9 MOUSERECTANGLE 0,0,1278,960:REPEAT:MOUSEX,Y,Z:P.TAB(0,0)X,Y:UNTIL FALSE
	m*KEY3 length$=STR$~262144:from$=STR$~back_data%:file$="bgdata2":OSCLI"SAVE "+file$+" "+from$+" +"+length$

$� input_disk_name% 256,mouse% 16
J� pdrect% 16,pdrect2% 16,pdtrans% 16,pdplot% 8,ctrans% 256,paltab% 256
$� input% 16,output% 16,scale% 16

� but%(40,4),but$(40)
� area%(10,4)
� points%(2,10)
� string% 128
� tables%(12,5)
� tables$(12),ta$(12)
� mov_tab%(5,5)
� firstn%(12)
� secondn%(12)
� rnd_picker1%(12)
� rnd_picker2%(12)
� rnd_number1%(12)
� rnd_number2%(12)
� presented%(12)
� x_answer%(12)
� count_down%(6)
� entry_areas%(5,4)
� ds%(32,2)
� corr%(30,3)
 � scale% 16
!� input% 16
"� output% 16
#� cbox%(7,2)
$� cbox_type%(6,8)
%� temp%(6)
&� pipes%(20,2)
'� tmatrix% 256
(vga%=V%
)
*
+�pull_variables
,�initialise_sprite_area
-addrs$=�~m_code1%
.,�"LOAD <TableA$Dir>.Pt1.GenCode "+addrs$
/�find_screens
0�pull_gen_code_var
1�pull_pac_code_var
2sa1%=sprite_area1%
3number_of%=10
4timer_on%=1
5style%=1
6order%=2
7Ƞ 1
8
�palette2
9
:�19,1,24,0,0,0
;*� P%=1 � (Q%=1 � Q%=20 � Q%=40):�intro
<� Q%=1 �police
=� Q%=1 Q%=2
>#� Q%=2 �"<TableA$Dir>.pt1.LINK"
?� Q%=7 �car_intro
@� Q%=7 Q%=8
A#� Q%=8 �"<TableA$Dir>.pt1.LINK"
B� Q%=20 �intro2
C� Q%=20 Q%=21
D$� Q%=21 �"<TableA$Dir>.pt1.LINK"
E� Q%=40 �intro3
F� Q%=40 Q%=41
G$� Q%=41 �"<TableA$Dir>.pt1.LINK"
H� Q%=42 �intro4
I� Q%=42 Q%=43
J$� Q%=43 �"<TableA$Dir>.pt1.LINK"
K� Q%=60 �take_off
L� Q%=60 Q%=61
M$� Q%=61 �"<TableA$Dir>.pt1.LINK"
N�
O��draw_file(file$)
Pfile%=sprite_area2%
Q+�"LOAD <TableA$Dir>."+file$+" "+�~file%
R=ș "OS_File",5,"<TableA$Dir>."+file$ � ,,,,filelen%,type%
Sla$=�~file%
T�"LOAD "+file$+" "+la$
U� 100,100:�1,400,400
V!(tmatrix%+0)=1<<16
W!(tmatrix%+4)=0
X!(tmatrix%+8)=0
Y!(tmatrix%+12)=1<<16
Z!(tmatrix%+16)=256*400
[!(tmatrix%+20)=256*200
\5ș"DrawFile_Render",0,file%,filelen%,tmatrix%,0,0
]�
^��take_off
_�load_sprites("takeoff")
`�merge_sprites("buttons")
a*fx112,1
b� 131:�
c	� � �
d,�V%=0 �24,0;960;1278;1022;18,0,131,16,26
ec�text_box(700,580,540,250,2,"The 'Table Aliens' have","kidnapped two Special","Group members!")
f�pause(100)
g]�text_box(700,300,540,250,2,"They have been taken","to an alien base,","hidden on Mars.")
hxx%=64:yy%=88
i.�24,xx%;yy%;xx%+602;yy%+780;18,0,131,16,26
j5�plot_sprite_back(xx%+100,yy%+260,1,1,1,1,"mars")
k�space(900,100,0,0)
l%�24,700;0;1278;956;18,0,131,16,26
m�pause(100)
nN�text_box(700,400,440,250,2,"Your mission is","to rescue these","people.")
o�space(900,100,0,0)
p*fx112,2
q#�24,0;0;1278;960;18,0,131,16,26
r-�plot_sprite_back(xx%,yy%,1,1,1,1,"back")
s/�plot_sprite_masked(xx%,yy%,1,1,1,1,"land")
tM�text_box(800,400,440,250,2,"This will be your","hardest mission","yet.")
ufade$="fade"
v�fade(0,960,4,0,1,1)
w*FX112,1
x�space(900,100,0,0)
y*FX112,2
z�cachesound("fire!",1)
{an_x%=xx%+280:an_y%=-200
|sel_sprite$="rocket"
}�start_anim("blank")
~flame%=1
� 9,255,255,0
��pause(20)
�� 1,&17F,1,1
�
�palette2
�� 19,1,24,0,0,0
��pause(100)
�� 9,255,255,0
��pause(20)
�� 1,&17F,1,1
�
�palette2
�� 19,1,24,0,0,0
��pause(100)
��cachesound("saturn5",1)
��f%=0 � 150
�
�st_pause
�an_y%=an_y%+4
�� �nosound=�:� 1,&17F,1,1
��f%>60 an_y%=an_y%+4
��f%>100 an_y%=an_y%+4
�(ș"OS_SpriteOp",&13C,sa1%,"rocket",0
�!(scale%+0)=1
�!(scale%+4)=1
�!(scale%+8)=1
�!(scale%+12)=1
�=ș"OS_SpriteOp",&134,sa1%,"fire"+�(flame%),0,0,8,scale%,0
�!ș"OS_SpriteOp",&13C,sa1%,0,1
��V%=1 � 23,17,7,6,8;16;0;
�flame%=flame%+1
�� flame%=7 flame%=1
��anim("blank")
�:�an_y%<200 �plot_sprite_masked(xx%,yy%,1,1,1,1,"land")
�?�move_block(screen_two%,320,120,screen_one%,320,120,48,180)
��en_pause(10)
��
�*fx112,1
��space(900,100,0,0)
��
�*fx112,2
�� 131:�
�xx%=64:yy%=88
�.�24,xx%;yy%;xx%+702;yy%+780;18,0,131,16,26
�5�plot_sprite_back(xx%+160,yy%+260,1,1,1,1,"mars")
�fade$="fade"
��fade(0,960,4,0,1,1)
�*FX112,1
�P�text_box(700,400,440,250,2,"You will need to","find the the","alien base.")
��space(900,100,0,0)
��0,0
��f%=xx%+260 � xx%+332 � 12
�� f%,yy%+360:� 1,0,72
��pause(30)
��
��ff%=yy%+360 � yy%+432 � 12
�� xx%+260,ff%:�1,72,0
��pause(30)
��
��
���intro3
��load_sprites("compu")
��merge_sprites("numbers")
��merge_sprites("buttons")
��P%=0 �brief_intro
�*fx112,2
�� 131:�
�,�V%=0 �24,0;960;1278;1022;18,0,131,16,26
�xx%=64:yy%=88
�/�plot_sprite_back(xx%,yy%,1,1,1,1,"screen")
�6�plot_sprite_masked(xx%+64,yy%+134,1,1,1,1,"man7")
�@�plot_sprite_masked(xx%+64+142,yy%+134+176,1,1,1,1,"righta")
�=�plot_sprite_masked(xx%+64+0,yy%+134+172,1,1,1,1,"lefta")
�8�plot_sprite(xx%+64+120,yy%+134+320,1,1,1,1,"badge")
�*fx112,1
�fade$="fade"
��fade(0,960,4,0,1,1)
��0,3
��cachesound("computer1",1)
��f%=644 � 756 � 8:
�� �nosound=�:� 1,&17F,1,1
�� 4,360,f%:� 5,508,f%
�
�pause(4)
��
��f%=360 � 508 � 8:
�� �nosound=�:� 1,&17F,1,1
�� 4,f%,644:� 5,f%,756
�
�pause(4)
��
�+�plot_sprite(360,636,1,1,1,1,"screena")
��pause(100)
�P�text_box(800,680,440,250,2,"The aliens have","fired mines at the","Earth.")
��pause(100)
�U�text_box(800,400,440,250,2,"You must try to","destroy them","before they land.")
��space(900,100,0,0)
��
���intro4
��load_sprites("compu")
��merge_sprites("numbers")
��merge_sprites("buttons")
�*fx112,2
�� 131:�
�,�V%=0 �24,0;960;1278;1022;18,0,131,16,26
�M�text_box(800,680,440,250,2,"Emergency! More","mines have been","fired.")
�xx%=64:yy%=88
�/�plot_sprite_back(xx%,yy%,1,1,1,1,"screen")
�6�plot_sprite_masked(xx%+64,yy%+134,1,1,1,1,"man7")
�@�plot_sprite_masked(xx%+64+142,yy%+134+176,1,1,1,1,"righta")
�=�plot_sprite_masked(xx%+64+0,yy%+134+172,1,1,1,1,"lefta")
�8�plot_sprite(xx%+64+120,yy%+134+320,1,1,1,1,"badge")
�*fx112,1
�fade$="fade"
��fade(0,960,4,0,1,1)
��pause(100)
�X�text_box(800,400,440,250,2,"You will need to","find out where","they are landing.")
��space(900,100,0,0)
�%�24,780;0;1278;956;18,0,131,16,26
�S�text_box(800,450,440,240,2,"You may not be","in time to stop","them landing.")
��space(900,100,0,0)
��
���intro2
��load_sprites("pt2start")
��merge_sprites("numbers")
��merge_sprites("buttons")
��brief_intro
�*fx112,2
�� 131:�
�,�V%=0 �24,0;960;1278;1022;18,0,131,16,26
�U�text_box(800,680,440,250,2,"While you sleep,","strange things","are happening!")
�xx%=64:yy%=88
�/�plot_sprite_back(xx%,yy%,1,1,1,1,"screen")
�*fx112,1
fade$="fade"
�fade(0,960,4,0,1,1)
�cachesound("wind",1)
�space(900,100,0,0)
*fx112,2
�pp%=25 � -50 � -3
�pp%>-1:p%=pp%
� 1,&17F,1,1
0�plot_sprite(xx%+92,yy%+552,1,1,1,1,"wind1")
	/C%=screen_one%:B%=screen_two%:�save_screen%

�pause(p%)
/�plot_sprite_back(xx%,yy%,1,1,1,1,"screen")
/C%=screen_one%:B%=screen_two%:�save_screen%

�pause(p%)
�
�f%=30 � 20 �-2
�pause(f%)
� �nosound=�:� 1,&17F,1,1
�pause(f%)
�
�pause(30)
�cachesound("invading2",1)

tog%=1
!�pp%=xx%+92+276 � xx%+92 � -4

�st_pause
9�24,xx%+92;yy%+552;xx%+92+272;yy%+552+176;18,0,131,16
.�plot_sprite(pp%,yy%+552,1,1,1,1,"table6")
7�plot_sprite_masked(xx%+92,yy%+552,1,1,1,1,"wind3")
/C%=screen_one%:B%=screen_two%:�save_screen%
� �nosound=�:� 1,&17F,1,1
tog%=tog%+1
�en_pause(10)
 �
!*fx112,1
"�26
#�space(900,100,1,0)
$/�24,xx%;yy%;xx%+1278;yy%+776;18,0,131,16,26
%�pause(200)
&�f%=-200 � 200 � 4
'
�st_pause
(� 1,&17F,1,1
)'�plot_sprite(f%,600,1,1,1,1,"eye4")
*+�plot_sprite(f%+142,600,1,1,1,1,"eye4")
+tog%=tog%+1
,�en_pause(2)
-�
.�cachesound("growl2",1)
/(�plot_sprite(200,600,1,1,1,1,"eye4")
0,�plot_sprite(200+142,600,1,1,1,1,"eye4")
1�pause(100)
2(�plot_sprite(200,600,1,1,1,1,"eye5")
3,�plot_sprite(200+142,600,1,1,1,1,"eye5")
4�pause(100)
5(�plot_sprite(200,600,1,1,1,1,"eye4")
6,�plot_sprite(200+142,600,1,1,1,1,"eye4")
7�pause(100)
8(�plot_sprite(200,600,1,1,1,1,"eye6")
9,�plot_sprite(200+142,600,1,1,1,1,"eye6")
:�pause(100)
;(�plot_sprite(200,600,1,1,1,1,"eye4")
<,�plot_sprite(200+142,600,1,1,1,1,"eye4")
=�pause(100)
>(�plot_sprite(200,600,1,1,1,1,"eye6")
?,�plot_sprite(200+142,600,1,1,1,1,"eye6")
@�pause(100)
A(�plot_sprite(200,600,1,1,1,1,"eye7")
B,�plot_sprite(200+142,600,1,1,1,1,"eye7")
C�pause(100)
D�f%=204 � 300 � 4
E
�st_pause
F'�plot_sprite(f%,600,1,1,1,1,"eye7")
G+�plot_sprite(f%+142,600,1,1,1,1,"eye7")
Htog%=tog%+1
I�en_pause(2)
J�
K(�plot_sprite(300,600,1,1,1,1,"eye8")
L,�plot_sprite(300+142,600,1,1,1,1,"eye8")
M� 1,&17F,1,1
N�pause(100)
O�cachesound("aaarh2",1)
P� 1,&17F,1,1
Q�pause(100)
R*fx112,2
S� 131:�
TX�text_box(340,400,600,250,2,"When you wake up,","you are somewhere","very strange.")
U*fx112,1
Vfade$="fade"
W�fade(0,960,4,0,1,1)
X�space(900,100,0,0)
Y*fx112,2
Z� 131:�
[,�V%=0 �24,0;960;1278;1022;18,0,131,16,26
\xx%=64:yy%=88
]0�plot_sprite_back(xx%,yy%,1,1,1,1,"screen3")
^*fx112,1
_fade$="fade"
`�fade(0,960,4,0,1,1)
a�pause(60)
b�cachesound("inside_ufo",1)
cL�text_box(800,450,440,190,2,"You are inside an","alien space craft!","")
d�space(900,100,1,0)
e�
f��brief_intro
g*FX112,1
h� 131:�
i�cachesound("invading2",1)
j,�V%=0 �24,0;960;1278;1022;18,0,131,16,26
k*�0,7:�f%=1 � 2000:�69,�(1280),�(950):�
l/B%=screen_one%:C%=screen_two%:�save_screen%
mg�text_box(100,600,1080,170,2,"A special group has been set up","to deal with the Table Aliens.","")
n�space(900,100,1,0)
oS�text_box(100,400,700,170,2,"You are a new member","of this special group.","")
pY�Q%<>40 �plot_sprite(920,330,1,1,1,1,"man7")  � �plot_sprite(920,330,1,1,1,1,"man77")
q�space(900,100,1,0)
r�
s��police
t�load_sprites("compu")
u�merge_sprites("buttons")
v*FX112,1
w�plates2
x,�V%=0 �24,0;960;1278;1022;18,0,131,16,26
y*FX112,2
z�plates2
{,�V%=0 �24,0;960;1278;1022;18,0,131,16,26
|#�24,0;0;1278;400;18,0,128,16,26
}*fx112,1
~_�text_box(790,680,460,250,2,"A special group has","been set up to deal","with the aliens.")
/B%=screen_one%:C%=screen_two%:�save_screen%
�xx%=64:yy%=88
��cachesound("computer1",1)
�/�plot_sprite_back(xx%,yy%,1,1,1,1,"screen")
�6�plot_sprite_masked(xx%+64,yy%+134,1,1,1,1,"man7")
�@�plot_sprite_masked(xx%+64+142,yy%+134+176,1,1,1,1,"righta")
�=�plot_sprite_masked(xx%+64+0,yy%+134+172,1,1,1,1,"lefta")
�8�plot_sprite(xx%+64+120,yy%+134+320,1,1,1,1,"badge")
�*fx112,2
�/�plot_sprite_back(xx%,yy%,1,1,1,1,"screen")
�6�plot_sprite_masked(xx%+64,yy%+134,1,1,1,1,"man7")
�=�plot_sprite_masked(xx%+64+10,yy%+134+184,1,1,1,1,"man5")
�8�plot_sprite(xx%+64+120,yy%+134+320,1,1,1,1,"badge")
�+�plot_sprite(358,636,1,1,1,1,"screena")
�2� Q%=1 �plot_sprite(358,636,1,1,1,1,"screenb")
�*fx112,1
��space(900,80,0,0)
�� 24,358;636;504;756;18,0,5
��f%=642 � 754 � 8
�� �nosound=�:� 1,&17F,1,1
�� 4,360,f%:� 5,508,f%
�
�pause(4)
��
��f%=360 � 508 � 8
�� �nosound=�:� 1,&17F,1,1
�� 4,f%,642:� 5,f%,754
�
�pause(4)
��
��pause(100)
�+�plot_sprite(358,636,1,1,1,1,"screena")
��pause(300)
��Q%=1 �
��0,3
��f%=644 � 756 � 8
�� �nosound=�:� 1,&17F,1,1
�� 4,360,f%:� 5,508,f%
�
�pause(4)
��
��f%=360 � 508 � 8
�� �nosound=�:� 1,&17F,1,1
�� 4,f%,644:� 5,f%,756
�
�pause(4)
��
�+�plot_sprite(358,636,1,1,1,1,"screenb")
��pause(100)
��
�/C%=screen_one%:B%=screen_two%:�save_screen%
��pause(200)
�*fx112,2
�/�plot_sprite_back(xx%,yy%,1,1,1,1,"screen")
�+�plot_sprite(358,636,1,1,1,1,"screena")
�2� Q%=1 �plot_sprite(358,636,1,1,1,1,"screenb")
�6�plot_sprite_masked(xx%+64,yy%+134,1,1,1,1,"man7")
�=�plot_sprite_masked(xx%+64+0,yy%+134+172,1,1,1,1,"lefta")
�>�plot_sprite_masked(xx%+64+142,yy%+134+250,1,1,1,1,"hand")
�8�plot_sprite(xx%+64+120,yy%+134+320,1,1,1,1,"badge")
�/C%=screen_one%:B%=screen_two%:�save_screen%
�*fx112,1
��pause(100)
�>�plot_sprite_masked(xx%+64+44,yy%+134+400,1,1,1,1,"head2")
��pause(100)
�>�plot_sprite_masked(xx%+64+44,yy%+134+400,1,1,1,1,"head3")
��pause(100)
�>�plot_sprite_masked(xx%+64+44,yy%+134+400,1,1,1,1,"head4")
�*fx112,1
�R�text_box(790,400,460,250,2,"They are all","strong, brave and","very clever.")
�/B%=screen_one%:C%=screen_two%:�save_screen%
��space(900,80,0,0)
�*fx112,2
��plates2
�,�V%=0 �24,0;960;1278;1022;18,0,131,16,26
�/�plot_sprite_back(xx%,yy%,1,1,1,1,"screen")
�+�plot_sprite(358,636,1,1,1,1,"screena")
�2� Q%=1 �plot_sprite(358,636,1,1,1,1,"screenb")
�6�plot_sprite_masked(xx%+64,yy%+134,1,1,1,1,"man7")
�=�plot_sprite_masked(xx%+64+0,yy%+134+172,1,1,1,1,"lefta")
�>�plot_sprite_masked(xx%+64+142,yy%+134+250,1,1,1,1,"hand")
�>�plot_sprite_masked(xx%+64+44,yy%+134+400,1,1,1,1,"head4")
�8�plot_sprite(xx%+64+120,yy%+134+320,1,1,1,1,"badge")
�:�plot_sprite_masked(xx%+64+300,yy%+134,1,1,1,1,"man7")
�A�plot_sprite_masked(xx%+64+0+300,yy%+134+172,1,1,1,1,"lefta")
�B�plot_sprite_masked(xx%+64+142+300,yy%+134+250,1,1,1,1,"hand")
��Q%=1 �
�T�text_box(790,680,460,250,2,"You are training to","be a member of","this team.")
��
��Q%=20 �
�<�plot_sprite(xx%+64+120+300,yy%+134+320,1,1,1,1,"badge")
�R�text_box(800,680,440,250,2,"You are the latest","member to join the","team.")
��
�fade$="fade"
��fade(0,960,4,0,1,1)
�*fx112,1
��Q%=1 �
��pause(130)
�\�text_box(790,400,460,250,2,"You must gain 60","points out of 100","to pass this test.")
��space(900,80,0,0)
�� 24,780;0;1278;956;
��plates2
��26
�c�text_box(790,480,460,250,2,"The first part of the","test is to fill in an","alien code grid.")
��space(900,80,0,0)
��
��Q%=20 �
��space(800,600,0,0)
�2�text_box(790,560,460,90,2,"Good luck!","","")
��space(900,80,0,0)
��
��
���plates
��pf%=0 � 1280 � 256
��py%=0 � 961 � 192
�(�plot_sprite(pf%,py%,1,1,1,1,"tin1")
��:�
��
�
��plates2
��pf%=0 � 1280 � 128
��py%=0 � 960 � 96
�)�plot_sprite(pf%,py%,1,1,1,1,"plate")
��:�
��
���intro
��load_sprites("intro23")
��merge_sprites("buttons")
�*FX112,1
��
�,�V%=0 �24,0;960;1278;1022;18,0,131,16,26
��plates
�*FX112,2
��
,�V%=0 �24,0;960;1278;1022;18,0,131,16,26
#�24,0;0;1278;400;18,0,128,16,26
*fx112,1
*FX112,2
�0,131:�
�0,7
	� � �
� 7,64,64,0
�f%=1 � 8000
	a%=�(8)

�a%=1 �0,8
�a%=2 �0,0
�a%>2 �0,7

�69,�(1280),�(960)
�
1�plot_sprite_masked(470,400,1,1,1,1,"galaxy")

an_x%=470

bytes%=32
*fx112,1
�cachesound("invading2",1)
� 1,&17F,1,1
�fa%= 64 � 460 � 8

�st_pause
� �nosound=�:� 1,&17F,1,1
bytes%=bytes%+4
V�move_block(screen_two%,640-fa%,480-fa%,screen_one%,640-fa%,480-fa%,bytes%,bytes%)
�fa%=344 �
E�text_box(180,20,760,90,1,"They came from another galaxy.",b$,c$)
� 7,255,255,0
�space(970,40,1,0)
� �nosound=�:� 1,&17F,1,1
�
 �fa%<344 � 7,fa%/2,fa%/2,0
!�en_pause(10)
"�
#/C%=screen_one%:B%=screen_two%:�save_screen%
$� 1,&17F,1,1
%�pause(100)
&� 1,&17F,1,1
'*FX112,2
($�plot_sprite(0,0,1,1,1,1,"sky2")
)fade$="fade"
*�fade(0,960,4,0,1,1)
+� 1,&17F,1,1
,an_x%=-100
-
an_y%=620
.
pam%=4
/sel_sprite$="craft3"
0�cachesound("wind",1)
1blank$="blank"
2�start_anim(blank$)
3� 1,&17F,1,1
4�an_x%=-100 � 340 �8
5
�st_pause
6� 1,&17F,1,1
7�anim(blank$)
8/C%=screen_one%:B%=screen_two%:�save_screen%
9 � (an_x% � 50)=0 pam%=pam%+2
:�en_pause(pam%)
;�
<�an_x%=340 � 400 �4
=
�st_pause
>� 1,&17F,1,1
?�anim(blank$)
@/C%=screen_one%:B%=screen_two%:�save_screen%
A � (an_x% � 50)=0 pam%=pam%+2
B�en_pause(pam%)
C�
Dan_x%=-100
E
an_y%=500
F
pam%=4
Gsel_sprite$="craft3"
Hblank$="blank"
I�start_anim(blank$)
J� 1,&17F,1,1
K�an_x%=-100 � 160 �8
L
�st_pause
M� 1,&17F,1,1
N�anim(blank$)
O/C%=screen_one%:B%=screen_two%:�save_screen%
P � (an_x% � 50)=0 pam%=pam%+3
Q�en_pause(pam%)
R�
S�an_x%=160 � 200 �4
T
�st_pause
U� 1,&17F,1,1
V�anim(blank$)
W/C%=screen_one%:B%=screen_two%:�save_screen%
X � (an_x% � 50)=0 pam%=pam%+3
Y�en_pause(pam%)
Z�
[an_x%=-100
\
an_y%=500
]
pam%=4
^sel_sprite$="craft2"
_blank$="blank"
`�start_anim(blank$)
a� 1,&17F,1,1
b�an_x%=1280 � 1000 �-8
c
�st_pause
d� 1,&17F,1,1
e�anim(blank$)
f/C%=screen_one%:B%=screen_two%:�save_screen%
g � (an_x% � 50)=0 pam%=pam%+3
h�en_pause(pam%)
i�
j�an_x%=1000 � 900 �-4
k
�st_pause
l�anim(blank$)
m/C%=screen_one%:B%=screen_two%:�save_screen%
n � (an_x% � 50)=0 pam%=pam%+3
o�en_pause(pam%)
p�
qan_x%=-300
r
an_y%=100
s
pam%=4
tsel_sprite$="craft"
ublank$="blank"
v�start_anim(blank$)
w� 1,&17F,1,1
x�an_x%=-300 � 60 �4
y
�st_pause
z� 1,&17F,1,1
{�anim(blank$)
|/C%=screen_one%:B%=screen_two%:�save_screen%
} � (an_x% � 50)=0 pam%=pam%+2
~�en_pause(pam%)
�
�*fx112,1
�G�text_box(100,800,1080,90,1,"They came to invade the earth!","","")
��cachesound("invading2",1)
��space(900,80,1,0)
�/C%=screen_one%:B%=screen_two%:�save_screen%
�\�text_box(200,760,880,160,2,"Their messages were always","sent in times table code.","")
��space(900,80,0,0)
��pause(20)
��cachesound("scifi3",1)
�
an_x%=300
�
an_y%=300
�sel_sprite$="massage2"
�blank$="blank"
��start_anim(blank$)
��an_x%=300 � 800 �4
�an_y%=an_y%+1
�� �nosound=�:� 1,&17F,1,1
�
�st_pause
��anim(blank$)
��en_pause(6)
��
��end_anim(blank$)
�
an_x%=800
�
an_y%=400
�sel_sprite$="massage1"
�blank$="blank"
��cachesound("laser_door",1)
��start_anim(blank$)
��an_x%=800 � 300 �-4
�an_y%=an_y%-1
�� �nosound=�:� 1,&17F,1,1
�
�st_pause
��anim(blank$)
��en_pause(6)
��
��end_anim(blank$)
��
�*FX112,2
��plates
�/�24,256;192;1280-256;960-384;18,0,128,16,26
�,�V%=0 �24,0;960;1278;1022;18,0,131,16,26
��load_sprites("tablealien")
��merge_sprites("buttons")
�A�text_box(100,760,1080,90,2,"They looked like tables.","","")
�*�plot_sprite(500,300,1,1,1,1,"table1")
�fade$="fade"
��fade(0,960,4,0,1,1)
�*FX112,1
��space(900,80,0,0)
��table_alien(500,300,1)
��space(900,80,0,0)
�M�text_box(100,640,1080,90,2,"They were called the 'Table Aliens'.","","")
��space(900,40,0,0)
��
���table_alien(x%,y%,t%)
�(�plot_sprite(x%,y%,1,1,1,1,"table1")
��pause(150)
�)�plot_sprite(x%-80,y%,1,1,1,1,"leg1")
��flip_hor("leg1")
�*�plot_sprite(x%+188,y%,1,1,1,1,"leg1")
��pause(40)
�)�plot_sprite(x%-80,y%,1,1,1,1,"leg2")
��flip_hor("leg2")
�*�plot_sprite(x%+188,y%,1,1,1,1,"leg2")
��pause(40)
�)�plot_sprite(x%-80,y%,1,1,1,1,"leg3")
��flip_hor("leg3")
�*�plot_sprite(x%+188,y%,1,1,1,1,"leg3")
��pause(40)
�)�plot_sprite(x%-80,y%,1,1,1,1,"leg4")
��flip_hor("leg4")
�*�plot_sprite(x%+188,y%,1,1,1,1,"leg4")
��pause(40)
�+�plot_sprite(x%,y%+80,1,1,1,1,"table2")
��pause(40)
�,�plot_sprite(x%+20,y%+168,1,1,1,1,"eye")
��pause(20)
�-�plot_sprite(x%+20,y%+168,1,1,1,1,"eye2")
��pause(40)
�+�plot_sprite(x%,y%+80,1,1,1,1,"table3")
��pause(40)
�,�plot_sprite(x%+20,y%+168,1,1,1,1,"eye")
�-�plot_sprite(x%+162,y%+168,1,1,1,1,"eye")
��pause(20)
�-�plot_sprite(x%+20,y%+170,1,1,1,1,"eye2")
�.�plot_sprite(x%+162,y%+170,1,1,1,1,"eye2")
��pause(40)
�+�plot_sprite(x%,y%+80,1,1,1,1,"table4")
��pause(50)
�+�plot_sprite(x%,y%+80,1,1,1,1,"table5")
��pause(50)
�+�plot_sprite(x%,y%+80,1,1,1,1,"table6")
��pause(50)
�2� t%=1 �plot_sprite(x%,y%+80,1,1,1,1,"table7")
�2� t%=2 �plot_sprite(x%,y%+80,1,1,1,1,"table8")
��pause(40)
�,�plot_sprite(x%+20,y%+168,1,1,1,1,"eye")
�-�plot_sprite(x%+162,y%+168,1,1,1,1,"eye")
��pause(20)
�-�plot_sprite(x%+20,y%+168,1,1,1,1,"eye2")
�.�plot_sprite(x%+162,y%+168,1,1,1,1,"eye2")
��pause(40)
�,�V%=0 �24,0;960;1278;1022;18,0,131,16,26
��
���flip_hor(a$)
�)ș"OS_SpriteOp",&12F,sprite_area1%,a$
��
�?��text_box(st_x%,st_y%,length%,height%,just_type%,a$,b$,c$)
�%�box(st_x%,st_y%,length%,height%)
� f_width1%=�font_string_w(a$)
� f_width2%=�font_string_w(b$)
� f_width3%=�font_string_w(c$)
�f_height%=70
�,lines%=3:�c$="":lines%=2:�b$="":lines%=1
�.xpos1%=st_x%+((length%-(f_width1%/400))/2)
�.xpos2%=st_x%+((length%-(f_width2%/400))/2)
�.xpos3%=st_x%+((length%-(f_width3%/400))/2)
��just_type%=2 �
�0�xpos1%<xpos2% xpos2%=xpos1% � xpos1%=xpos2%
�0�xpos2%<xpos3% xpos3%=xpos2% � xpos2%=xpos3%
�0�xpos3%<xpos1% xpos1%=xpos3% � xpos3%=xpos1%
��
�Typos1%=(st_y%-(f_height%/6)*4)+(height%-(lines%*f_height%))/2+(lines%*f_height%)
�ypos2%=ypos1%-f_height%
�ypos3%=ypos2%-f_height%
��pri(xpos1%,ypos1%,a$)
�$�lines%>1 �pri(xpos2%,ypos2%,b$)
�$�lines%>2 �pri(xpos3%,ypos3%,c$)
�
��pri(x%,y%,a$)
:ș"Font_FindFont",,"TABLOID.Medium",320,360,0,0 � han%
#ș"Font_SetFontColours",0,0,1,2
�0,0,0,0,0,0,0,0
ș"Font_Paint",,a$,16,x%,y%
ș"Font_LoseFont",han%
�
ݤfont_string_w(string$)
	$string%=string$

:ș"Font_FindFont",,"TABLOID.Medium",320,360,0,0 � han%
Gș"Font_StringWidth",0,string%,600000,480000,-1,80 � r0,r1,f_width%
ș"Font_LoseFont",han%


=f_width%
ݤfont_string_h(string$)
$string%=string$
:ș"Font_FindFont",,"TABLOID.Medium",320,360,0,0 � han%
Jș"Font_StringWidth",0,string%,600000,480000,-1,80 � r0,r1,r2,f_height
ș"Font_LoseFont",han%
=f_height%
��start_anim(blank$)
=ș"OS_SpriteOp",&118,sprite_area1%,sel_sprite$ � r0,r1,r2
<width%=(!(r2+16)+1)*16:height%=(!(r2+20)+1)*(4*(vga%+1))
Vș"OS_SpriteOp",&110,sprite_area1%,blank$,0,an_x%,an_y%,an_x%+width%,an_y%+height%
8�plot_sprite_masked(an_x%,an_y%,1,1,1,1,sel_sprite$)
an_xx%=an_x%:an_yy%=an_y%
�
��anim(blank$)
:�plot_sprite_masked(an_xx%,an_yy%,1,1,1,1+vga%,blank$)
Vș"OS_SpriteOp",&110,sprite_area1%,blank$,0,an_x%,an_y%,an_x%+width%,an_y%+height%
8�plot_sprite_masked(an_x%,an_y%,1,1,1,1,sel_sprite$)
an_xx%=an_x%:an_yy%=an_y%
 �
!��end_anim(blank$)
":�plot_sprite_masked(an_xx%,an_yy%,1,1,1,1+vga%,blank$)
#�
$��pri2(x%,y%,a$)
%:ș"Font_FindFont",,"TABLOID.Medium",320,360,0,0 � han%
&$ș"Font_SetFontColours",0,3,2,-2
'�0,0,0,0,0,0,0,0
(ș"Font_Paint",,a$,16,x%,y%
)ș"Font_LoseFont",han%
*�
+��box(bx%,by%,bxx%,byy%)
,bxx%=bx%+bxx%:byy%=by%+byy%
-%�24,bx%;by%;bxx%;byy%;18,0,130,16
.-�24,bx%+4;by%+4;bxx%-4;byy%-4;18,0,129,16
/0�24,bx%+8;by%+8;bxx%-8;byy%-8;18,0,128,16,26
0/�0,3:� bx%+4,by%:�5,bxx%,by%:�5,bxx%,byy%-4
12� bx%+4,by%+2:�5,bxx%-2,by%+2:�5,bxx%-2,byy%-4
27�0,2:� bx%+8,by%+4:�5,bxx%-4,by%+4:�5,bxx%-4,byy%-8
32� bx%+8,by%+6:�5,bxx%-6,by%+6:�5,bxx%-6,byy%-8
4�
5��box2(bx%,by%,bxx%,byy%)
6bxx%=bx%+bxx%:byy%=by%+byy%
7-�24,bx%-4;by%-4;bxx%+4;byy%+4;18,0,131,16
8(�24,bx%;by%;bxx%;byy%;18,0,128,16,26
9�
:7��set_up_count_down(tx%,ty%,digits%,amount%,timer%)
; �box2(tx%,ty%,48*digits%,72)
<!count_down%(timer%)=�+amount%
=�
>)ݤprint_timer(tx%,ty%,digits%,timer%)
?&timer%=(count_down%(timer%)-�)/100
@/�timer%<0 timer%=0000:count_down%(timer%)=0
At$=�(timer%)
B*�plot_numbers(tx%+24,ty%+8,digits%,t$)
C=t$
D%��plot_numbers2(x%,y%,digits%,a$)
E�pn%=1 � �(a$)
F8�plot_sprite((x%-36)+(pn%*36),y%,1,1,1,1,�a$,pn%,1))
G�
H�
I$��plot_numbers(x%,y%,digits%,a$)
J�(a$)<digits% �
K�
L
a$="d"+a$
M��(a$)=digits%
N�
O�pn%=1 � �(a$)
P8�plot_sprite((x%-36)+(pn%*36),y%,1,1,1,1,�a$,pn%,1))
Q�
R�
S��set_pos_buttons(bx%,by%)
T�bf%=1� total_but%
Ubut%(bf%,0)=but%(bf%,0)+bx%
Vbut%(bf%,1)=but%(bf%,1)+by%
W�
X�
Y��define_buttons(set%)
Z�set%=1:total_but%=1:��D`C
[�set%=2:total_but%=4:��DaC
\�but_number%=1�total_but%
]z�but%(but_number%,0),but%(but_number%,1),but%(but_number%,2),but%(but_number%,3),but%(but_number%,4),but$(but_number%)
^�
_�
`� 100,100,200,40,2,Go on
al� 820,100,200,60,2,value up,820,40,200,60,2,value down,1060,65,200,60,2,Correct!,20,65,200,60,2,Next box
b��set_new_buttons
c�but_n%=1�total_but%
d2�but%(but_n%,4)=0 � but%(but_n%,4)=3:colour%=0
e �but%(but_n%,4)=1 :colour%=1
f �but%(but_n%,4)=2 :colour%=3
gb� colour%>0:�but_surround(but%(but_n%,0),but%(but_n%,1),but%(but_n%,2),but%(but_n%,3),colour%)
hq� colour%>0:�but_centre(but%(but_n%,0),but%(but_n%,1),but%(but_n%,2),but%(but_n%,3),128,colour%,but$(but_n%))
i�26
j�
k�
l*��but_surround(bx%,by%,bxx%,byy%,col%)
m�0,col%
nx�bx%,by%:�1,bxx%,0:�1,0,(byy%+4):�1,-2,0:�1,0,-(byy%+4):�0,2,(byy%+4):�1,-bxx%,0:�1,0,-(byy%+4):�1,2,0:�1,0,(byy%+4)
oH�vga%=1 �bx%,by%-2:�1,bxx%,0:�1,0,(byy%+8):�1,-bxx%,0:�1,0,-(byy%+8)
p�
q4��but_centre(bx%,by%,bxx%,byy%,bcol%,col%,text$)
r�0,bcol%:�0,col%
s!�V%=1 correct%=2 � correct%=0
tA�24,bx%+4;by%+4-correct%;bx%+bxx%-4;by%+byy%+correct%;16,26,5
u'left_margin%=(bxx%-(�(text$)*16))/2
v#�bx%+left_margin%,by%+36:�text$
w�4
x�
y��check_buttons(an_num%)
zselected%=0
{ȗmx%,my%,mc%
|cb%=�(1)
}�cb%=16 cb%=0:�printer
~!�cb%=19 cb%=0:�screen_save(0)
�but_n%=1 � total_but%
��but%(but_n%,4)<2:�:�
�y�mx%<but%(but_n%,0) � mx%>(but%(but_n%,0)+but%(but_n%,2)) � my%<but%(but_n%,1) � my%>(but%(but_n%,1)+but%(but_n%,3))�
���but%(but_n%,0)+6,but%(but_n%,1)+8)=4 � but%(but_n%,4)<3:�but_centre(but%(but_n%,0),but%(but_n%,1),but%(but_n%,2),but%(but_n%,3),128,3,but$(but_n%))
��
���but%(but_n%,0)+6,but%(but_n%,1)+4)=0 � but%(but_n%,4)<3:�but_centre(but%(but_n%,0),but%(but_n%,1),but%(but_n%,2),but%(but_n%,3),132,3,but$(but_n%))
��mc%=4:selected%=but_n%
��
� �an_num%>0:�sp_anim(an_num%)
��
��
���sp_anim(an_num%)
��an_num%=1 �
��an_t%+30<� � alter%=1 �
��sections%=1 �
��boa2(1100,764,48,56)
��
�alter%=2
��
��an_t%+50<� �
��sections%=1 �
��boa(1100,764,48,56)
��
�alter%=1
�an_t%=�
��
��
��an_num%=2 �
��sections%=1 �
��boa(1100,764,48,56)
��
�-�sound_t%+100<�:�1,-6,&1000,20:sound_t%=�
��
��
���check_an_num
�	��dOS
�go_an%=0
��can%=1� an_num%
�S�cann%=1�3:�anx%(cann%),any%(cann%),anxx%(cann%),anyy%(cann%),an_type%(cann%):�
��
�O�mx%<anxx%(1) � mx%>anx%(1) � my%<anyy%(1) � my%>any%(1):go_an%=an_type%(1)
�O�mx%<anxx%(2) � mx%>anx%(2) � my%<anyy%(2) � my%>any%(2):go_an%=an_type%(2)
�O�mx%<anxx%(3) � mx%>anx%(3) � my%<anyy%(3) � my%>any%(3):go_an%=an_type%(3)
��go_an%=1 �bounce_ball
��go_an%=2 �sweep
��go_an%>0 �set_new_buttons
��
���palette2
�,�V%=0 �24,0;960;1278;1022;18,0,131,16,26
��19,1,24,136,136,136
��p%,r%,g%,b%
��+5
��p%=0�15
��r%,g%,b%:�p%,r%,g%,b%
��
��
�/� 255,255,255,187,187,187,136,136,136,0,0,0
�)� 0,0,175,0,0,255,0,204,255,255,255,0
�(� 204,204,0,221,0,0,136,17,0,0,153,0
�+� 0,187,34,0,255,0,255,221,170,182,82,0
���intiger_icns
��f%=0 � 12
�9�(U% � (1<<f%))=(1<<f%) firstn%(f%)=1 � firstn%(f%)=0
��
��f%=0 � 12
�;�(W% � (1<<f%))=(1<<f%) secondn%(f%)=1 � secondn%(f%)=0
��
�1�(W% � (1<<13))=(1<<13) mixedn%=1 � mixedn%=0
��
���set_table_one
��intiger_icns
��clear_rnd1
��clear_rnd2
��find%=1 � number_of%
�repeat_error%=0
��
�!repeat_error%=repeat_error%+1
��
�rnd%=(�(13)-1)
�� firstn%(rnd%)=1
�-� rnd_picker1%(rnd%)=0 � repeat_error%=10
�rnd_picker1%(rnd%)=1
�rnd_number1%(find%)=rnd%
�repeat_error%=0
��
�!repeat_error%=repeat_error%+1
��
�rnd%=(�(13)-1)
�� secondn%(rnd%)=1
�-� rnd_picker2%(rnd%)=0 � repeat_error%=10
�rnd_picker2%(rnd%)=1
�rnd_number2%(find%)=rnd%
��
��find%=1 � number_of%
��mixedn%=1 � �(100)>50 �
�Ba%=rnd_number1%(find%):rnd_number1%(find%)=rnd_number2%(find%)
�+rnd_number2%(find%)=rnd_number1%(find%)
��
�(tables%(find%,1)=rnd_number1%(find%)
�(tables%(find%,2)=rnd_number2%(find%)
�<tables%(find%,3)=rnd_number1%(find%)*rnd_number2%(find%)
��
�firn%=0
�secn%=0
��f%=1�12
��secondn%(f%)=1:secn%+=1
��
��f%=1�12
��firstn%(f%)=1:firn%+=1
��
�:�firn%<secn% � first_or_second%=1 � first_or_second%=2
��
���clear_rnd1
��f%=0�12
�rnd_picker1%(f%)=0
��
��
���clear_rnd2
��f%=0�12
�rnd_picker2%(f%)=0
��
��
�&��rotate_numbers(x%,y%,digits%,b$)
��rline%=1� �(b$)
�rnum%=�(�b$,rline%,1))
��rnum%>48 � rnum%<58 �
�
rbase%=48
��
�
�st_pause
c$=�b$,rline%)
�c$,rline%,1)=�(rbase%)
$�plot_numbers2(x%,y%,digits%,c$)
rbase%=rbase%+1
�en_pause(8)
�rbase%=rnum%
�
c$=�b$,rline%)
$�plot_numbers2(x%,y%,digits%,c$)
	�

�
%��plot_numbers2(x%,y%,digits%,a$)
�pn%=1 � �(a$)

8�plot_sprite((x%-38)+(pn%*38),y%,1,1,1,1,�a$,pn%,1))
�
�
$��plot_numbers(x%,y%,digits%,a$)
�(a$)<digits% �
�

a$="d"+a$
��(a$)=digits%
�
�pn%=1 � �(a$)
8�plot_sprite((x%-38)+(pn%*38),y%,1,1,1,1,�a$,pn%,1))
�
�
]��move_block(from_screen%,from_x%,from_y%,to_screen%,to_x%,to_y%,bytes_across%,scans_up%)
�bytes_across% � 4<>0 �
*A%=from_screen%+�calc(from_x%,from_y%)
$B%=to_screen%+�calc(to_x%,to_y%)
C%=bytes_across%
D%=(scans_up%*(V%+1))-1
 � move_block%
!�
"ݤcalc(x%,y%)
#+top_lines%=0:� vga%=0 top_lines%=320*16
$-=top_lines%+(x%/4)+((956-y%)*80)*(vga%+1)
%3��plot_sprite_back(x%,y%,xm%,ym%,xd%,yd%,name$)
&Cș"OS_SpriteOp",&128,sprite_area1%,name$ � r0,r1,r2,A%,B%,r5,r6
'8�24,x%-8;y%-8;x%+8+(A%*2);y%+8+(B%*4);18,0,131,16,26
(!(scale%+0)=xm%
)!(scale%+4)=ym%*(vga%+1)
*!(scale%+8)=xd%
+!(scale%+12)=yd%
,4ș"OS_SpriteOp",&134,sa1%,name$,x%,y%,0,scale%,0
-�
.]��move_block(from_screen%,from_x%,from_y%,to_screen%,to_x%,to_y%,bytes_across%,scans_up%)
/�bytes_across% � 4<>0 �
0*A%=from_screen%+�calc(from_x%,from_y%)
1$B%=to_screen%+�calc(to_x%,to_y%)
2C%=bytes_across%
3D%=(scans_up%*(V%+1))-1
4� move_block%
5�
6ݤcalc(x%,y%)
7+top_lines%=0:� vga%=0 top_lines%=320*16
8-=top_lines%+(x%/4)+((956-y%)*80)*(vga%+1)
9��pull_pac_code_var
:main%=!(m_code2%+&0)
;!set_quicksand%=!(m_code2%+&4)
<splodge%=!(m_code2%+&8)
=scroll_all%=!(m_code2%+&C)
>�
?��sound_effect
@�an_num%=1 �
A� �nosound=�:� 1,&17F,1,1
B�
C�
�
00000000  0d 00 00 3b f4 ff 41 44  46 53 3a 3a 48 61 72 64  |...;..ADFS::Hard|
00000010  44 69 73 63 34 2e 24 2e  43 55 52 52 5f 4e 45 57  |Disc4.$.CURR_NEW|
00000020  2e 44 45 4d 4f 50 52 4f  47 2e 21 54 61 62 6c 65  |.DEMOPROG.!Table|
00000030  73 2e 50 74 31 2e 69 6e  74 72 6f 0d 00 01 21 c8  |s.Pt1.intro...!.|
00000040  9b 20 22 3c 54 61 62 6c  65 41 24 44 69 72 3e 2e  |. "<TableA$Dir>.|
00000050  50 74 31 2e 4c 69 62 72  61 72 79 22 0d 00 02 0c  |Pt1.Library"....|
00000060  2a 46 58 32 32 35 2c 31  0d 00 03 0c 2a 46 58 32  |*FX225,1....*FX2|
00000070  32 39 2c 30 0d 00 04 0d  2a 46 58 32 32 30 2c 31  |29,0....*FX220,1|
00000080  37 0d 00 05 12 2a 4b 45  59 31 20 50 52 4f 43 64  |7....*KEY1 PROCd|
00000090  74 7c 4d 0d 00 06 15 2a  4b 45 59 35 20 50 52 4f  |t|M....*KEY5 PRO|
000000a0  43 73 74 61 74 73 7c 4d  0d 00 07 1c ee 85 3a ff  |Cstats|M......:.|
000000b0  22 46 58 32 32 39 2c 31  22 3a ee 85 20 87 3a f2  |"FX229,1":.. .:.|
000000c0  64 74 7c 4d 0d 00 08 51  2a 4b 45 59 39 20 4d 4f  |dt|M...Q*KEY9 MO|
000000d0  55 53 45 52 45 43 54 41  4e 47 4c 45 20 30 2c 30  |USERECTANGLE 0,0|
000000e0  2c 31 32 37 38 2c 39 36  30 3a 52 45 50 45 41 54  |,1278,960:REPEAT|
000000f0  3a 4d 4f 55 53 45 58 2c  59 2c 5a 3a 50 2e 54 41  |:MOUSEX,Y,Z:P.TA|
00000100  42 28 30 2c 30 29 58 2c  59 3a 55 4e 54 49 4c 20  |B(0,0)X,Y:UNTIL |
00000110  46 41 4c 53 45 0d 00 09  6d 2a 4b 45 59 33 20 6c  |FALSE...m*KEY3 l|
00000120  65 6e 67 74 68 24 3d 53  54 52 24 7e 32 36 32 31  |ength$=STR$~2621|
00000130  34 34 3a 66 72 6f 6d 24  3d 53 54 52 24 7e 62 61  |44:from$=STR$~ba|
00000140  63 6b 5f 64 61 74 61 25  3a 66 69 6c 65 24 3d 22  |ck_data%:file$="|
00000150  62 67 64 61 74 61 32 22  3a 4f 53 43 4c 49 22 53  |bgdata2":OSCLI"S|
00000160  41 56 45 20 22 2b 66 69  6c 65 24 2b 22 20 22 2b  |AVE "+file$+" "+|
00000170  66 72 6f 6d 24 2b 22 20  2b 22 2b 6c 65 6e 67 74  |from$+" +"+lengt|
00000180  68 24 0d 00 0a 24 de 20  69 6e 70 75 74 5f 64 69  |h$...$. input_di|
00000190  73 6b 5f 6e 61 6d 65 25  20 32 35 36 2c 6d 6f 75  |sk_name% 256,mou|
000001a0  73 65 25 20 31 36 0d 00  0b 4a de 20 70 64 72 65  |se% 16...J. pdre|
000001b0  63 74 25 20 31 36 2c 70  64 72 65 63 74 32 25 20  |ct% 16,pdrect2% |
000001c0  31 36 2c 70 64 74 72 61  6e 73 25 20 31 36 2c 70  |16,pdtrans% 16,p|
000001d0  64 70 6c 6f 74 25 20 38  2c 63 74 72 61 6e 73 25  |dplot% 8,ctrans%|
000001e0  20 32 35 36 2c 70 61 6c  74 61 62 25 20 32 35 36  | 256,paltab% 256|
000001f0  0d 00 0c 24 de 20 69 6e  70 75 74 25 20 31 36 2c  |...$. input% 16,|
00000200  6f 75 74 70 75 74 25 20  31 36 2c 73 63 61 6c 65  |output% 16,scale|
00000210  25 20 31 36 0d 00 0d 19  de 20 62 75 74 25 28 34  |% 16..... but%(4|
00000220  30 2c 34 29 2c 62 75 74  24 28 34 30 29 0d 00 0e  |0,4),but$(40)...|
00000230  11 de 20 61 72 65 61 25  28 31 30 2c 34 29 0d 00  |.. area%(10,4)..|
00000240  0f 13 de 20 70 6f 69 6e  74 73 25 28 32 2c 31 30  |... points%(2,10|
00000250  29 0d 00 10 11 de 20 73  74 72 69 6e 67 25 20 31  |)..... string% 1|
00000260  32 38 0d 00 11 13 de 20  74 61 62 6c 65 73 25 28  |28..... tables%(|
00000270  31 32 2c 35 29 0d 00 12  19 de 20 74 61 62 6c 65  |12,5)..... table|
00000280  73 24 28 31 32 29 2c 74  61 24 28 31 32 29 0d 00  |s$(12),ta$(12)..|
00000290  13 13 de 20 6d 6f 76 5f  74 61 62 25 28 35 2c 35  |... mov_tab%(5,5|
000002a0  29 0d 00 14 11 de 20 66  69 72 73 74 6e 25 28 31  |)..... firstn%(1|
000002b0  32 29 0d 00 15 12 de 20  73 65 63 6f 6e 64 6e 25  |2)..... secondn%|
000002c0  28 31 32 29 0d 00 16 16  de 20 72 6e 64 5f 70 69  |(12)..... rnd_pi|
000002d0  63 6b 65 72 31 25 28 31  32 29 0d 00 17 16 de 20  |cker1%(12)..... |
000002e0  72 6e 64 5f 70 69 63 6b  65 72 32 25 28 31 32 29  |rnd_picker2%(12)|
000002f0  0d 00 18 16 de 20 72 6e  64 5f 6e 75 6d 62 65 72  |..... rnd_number|
00000300  31 25 28 31 32 29 0d 00  19 16 de 20 72 6e 64 5f  |1%(12)..... rnd_|
00000310  6e 75 6d 62 65 72 32 25  28 31 32 29 0d 00 1a 14  |number2%(12)....|
00000320  de 20 70 72 65 73 65 6e  74 65 64 25 28 31 32 29  |. presented%(12)|
00000330  0d 00 1b 13 de 20 78 5f  61 6e 73 77 65 72 25 28  |..... x_answer%(|
00000340  31 32 29 0d 00 1c 14 de  20 63 6f 75 6e 74 5f 64  |12)..... count_d|
00000350  6f 77 6e 25 28 36 29 0d  00 1d 17 de 20 65 6e 74  |own%(6)..... ent|
00000360  72 79 5f 61 72 65 61 73  25 28 35 2c 34 29 0d 00  |ry_areas%(5,4)..|
00000370  1e 0f de 20 64 73 25 28  33 32 2c 32 29 0d 00 1f  |... ds%(32,2)...|
00000380  11 de 20 63 6f 72 72 25  28 33 30 2c 33 29 0d 00  |.. corr%(30,3)..|
00000390  20 0f de 20 73 63 61 6c  65 25 20 31 36 0d 00 21  | .. scale% 16..!|
000003a0  0f de 20 69 6e 70 75 74  25 20 31 36 0d 00 22 10  |.. input% 16..".|
000003b0  de 20 6f 75 74 70 75 74  25 20 31 36 0d 00 23 10  |. output% 16..#.|
000003c0  de 20 63 62 6f 78 25 28  37 2c 32 29 0d 00 24 15  |. cbox%(7,2)..$.|
000003d0  de 20 63 62 6f 78 5f 74  79 70 65 25 28 36 2c 38  |. cbox_type%(6,8|
000003e0  29 0d 00 25 0e de 20 74  65 6d 70 25 28 36 29 0d  |)..%.. temp%(6).|
000003f0  00 26 12 de 20 70 69 70  65 73 25 28 32 30 2c 32  |.&.. pipes%(20,2|
00000400  29 0d 00 27 12 de 20 74  6d 61 74 72 69 78 25 20  |)..'.. tmatrix% |
00000410  32 35 36 0d 00 28 0b 76  67 61 25 3d 56 25 0d 00  |256..(.vga%=V%..|
00000420  29 04 0d 00 2a 04 0d 00  2b 13 f2 70 75 6c 6c 5f  |)...*...+..pull_|
00000430  76 61 72 69 61 62 6c 65  73 0d 00 2c 1b f2 69 6e  |variables..,..in|
00000440  69 74 69 61 6c 69 73 65  5f 73 70 72 69 74 65 5f  |itialise_sprite_|
00000450  61 72 65 61 0d 00 2d 15  61 64 64 72 73 24 3d c3  |area..-.addrs$=.|
00000460  7e 6d 5f 63 6f 64 65 31  25 0d 00 2e 2c ff 22 4c  |~m_code1%...,."L|
00000470  4f 41 44 20 3c 54 61 62  6c 65 41 24 44 69 72 3e  |OAD <TableA$Dir>|
00000480  2e 50 74 31 2e 47 65 6e  43 6f 64 65 20 22 2b 61  |.Pt1.GenCode "+a|
00000490  64 64 72 73 24 0d 00 2f  11 f2 66 69 6e 64 5f 73  |ddrs$../..find_s|
000004a0  63 72 65 65 6e 73 0d 00  30 16 f2 70 75 6c 6c 5f  |creens..0..pull_|
000004b0  67 65 6e 5f 63 6f 64 65  5f 76 61 72 0d 00 31 16  |gen_code_var..1.|
000004c0  f2 70 75 6c 6c 5f 70 61  63 5f 63 6f 64 65 5f 76  |.pull_pac_code_v|
000004d0  61 72 0d 00 32 16 73 61  31 25 3d 73 70 72 69 74  |ar..2.sa1%=sprit|
000004e0  65 5f 61 72 65 61 31 25  0d 00 33 11 6e 75 6d 62  |e_area1%..3.numb|
000004f0  65 72 5f 6f 66 25 3d 31  30 0d 00 34 0f 74 69 6d  |er_of%=10..4.tim|
00000500  65 72 5f 6f 6e 25 3d 31  0d 00 35 0c 73 74 79 6c  |er_on%=1..5.styl|
00000510  65 25 3d 31 0d 00 36 0c  6f 72 64 65 72 25 3d 32  |e%=1..6.order%=2|
00000520  0d 00 37 08 c8 a0 20 31  0d 00 38 0d f2 70 61 6c  |..7... 1..8..pal|
00000530  65 74 74 65 32 0d 00 39  04 0d 00 3a 12 ef 31 39  |ette2..9...:..19|
00000540  2c 31 2c 32 34 2c 30 2c  30 2c 30 0d 00 3b 2a e7  |,1,24,0,0,0..;*.|
00000550  20 50 25 3d 31 20 80 20  28 51 25 3d 31 20 84 20  | P%=1 . (Q%=1 . |
00000560  51 25 3d 32 30 20 84 20  51 25 3d 34 30 29 3a f2  |Q%=20 . Q%=40):.|
00000570  69 6e 74 72 6f 0d 00 3c  12 e7 20 51 25 3d 31 20  |intro..<.. Q%=1 |
00000580  f2 70 6f 6c 69 63 65 0d  00 3d 0f e7 20 51 25 3d  |.police..=.. Q%=|
00000590  31 20 51 25 3d 32 0d 00  3e 23 e7 20 51 25 3d 32  |1 Q%=2..>#. Q%=2|
000005a0  20 d7 22 3c 54 61 62 6c  65 41 24 44 69 72 3e 2e  | ."<TableA$Dir>.|
000005b0  70 74 31 2e 4c 49 4e 4b  22 0d 00 3f 15 e7 20 51  |pt1.LINK"..?.. Q|
000005c0  25 3d 37 20 f2 63 61 72  5f 69 6e 74 72 6f 0d 00  |%=7 .car_intro..|
000005d0  40 0f e7 20 51 25 3d 37  20 51 25 3d 38 0d 00 41  |@.. Q%=7 Q%=8..A|
000005e0  23 e7 20 51 25 3d 38 20  d7 22 3c 54 61 62 6c 65  |#. Q%=8 ."<Table|
000005f0  41 24 44 69 72 3e 2e 70  74 31 2e 4c 49 4e 4b 22  |A$Dir>.pt1.LINK"|
00000600  0d 00 42 13 e7 20 51 25  3d 32 30 20 f2 69 6e 74  |..B.. Q%=20 .int|
00000610  72 6f 32 0d 00 43 11 e7  20 51 25 3d 32 30 20 51  |ro2..C.. Q%=20 Q|
00000620  25 3d 32 31 0d 00 44 24  e7 20 51 25 3d 32 31 20  |%=21..D$. Q%=21 |
00000630  d7 22 3c 54 61 62 6c 65  41 24 44 69 72 3e 2e 70  |."<TableA$Dir>.p|
00000640  74 31 2e 4c 49 4e 4b 22  0d 00 45 13 e7 20 51 25  |t1.LINK"..E.. Q%|
00000650  3d 34 30 20 f2 69 6e 74  72 6f 33 0d 00 46 11 e7  |=40 .intro3..F..|
00000660  20 51 25 3d 34 30 20 51  25 3d 34 31 0d 00 47 24  | Q%=40 Q%=41..G$|
00000670  e7 20 51 25 3d 34 31 20  d7 22 3c 54 61 62 6c 65  |. Q%=41 ."<Table|
00000680  41 24 44 69 72 3e 2e 70  74 31 2e 4c 49 4e 4b 22  |A$Dir>.pt1.LINK"|
00000690  0d 00 48 13 e7 20 51 25  3d 34 32 20 f2 69 6e 74  |..H.. Q%=42 .int|
000006a0  72 6f 34 0d 00 49 11 e7  20 51 25 3d 34 32 20 51  |ro4..I.. Q%=42 Q|
000006b0  25 3d 34 33 0d 00 4a 24  e7 20 51 25 3d 34 33 20  |%=43..J$. Q%=43 |
000006c0  d7 22 3c 54 61 62 6c 65  41 24 44 69 72 3e 2e 70  |."<TableA$Dir>.p|
000006d0  74 31 2e 4c 49 4e 4b 22  0d 00 4b 15 e7 20 51 25  |t1.LINK"..K.. Q%|
000006e0  3d 36 30 20 f2 74 61 6b  65 5f 6f 66 66 0d 00 4c  |=60 .take_off..L|
000006f0  11 e7 20 51 25 3d 36 30  20 51 25 3d 36 31 0d 00  |.. Q%=60 Q%=61..|
00000700  4d 24 e7 20 51 25 3d 36  31 20 d7 22 3c 54 61 62  |M$. Q%=61 ."<Tab|
00000710  6c 65 41 24 44 69 72 3e  2e 70 74 31 2e 4c 49 4e  |leA$Dir>.pt1.LIN|
00000720  4b 22 0d 00 4e 05 fa 0d  00 4f 16 dd f2 64 72 61  |K"..N....O...dra|
00000730  77 5f 66 69 6c 65 28 66  69 6c 65 24 29 0d 00 50  |w_file(file$)..P|
00000740  17 66 69 6c 65 25 3d 73  70 72 69 74 65 5f 61 72  |.file%=sprite_ar|
00000750  65 61 32 25 0d 00 51 2b  ff 22 4c 4f 41 44 20 3c  |ea2%..Q+."LOAD <|
00000760  54 61 62 6c 65 41 24 44  69 72 3e 2e 22 2b 66 69  |TableA$Dir>."+fi|
00000770  6c 65 24 2b 22 20 22 2b  c3 7e 66 69 6c 65 25 0d  |le$+" "+.~file%.|
00000780  00 52 3d c8 99 20 22 4f  53 5f 46 69 6c 65 22 2c  |.R=.. "OS_File",|
00000790  35 2c 22 3c 54 61 62 6c  65 41 24 44 69 72 3e 2e  |5,"<TableA$Dir>.|
000007a0  22 2b 66 69 6c 65 24 20  b8 20 2c 2c 2c 2c 66 69  |"+file$ . ,,,,fi|
000007b0  6c 65 6c 65 6e 25 2c 74  79 70 65 25 0d 00 53 0f  |lelen%,type%..S.|
000007c0  6c 61 24 3d c3 7e 66 69  6c 65 25 0d 00 54 1a ff  |la$=.~file%..T..|
000007d0  22 4c 4f 41 44 20 22 2b  66 69 6c 65 24 2b 22 20  |"LOAD "+file$+" |
000007e0  22 2b 6c 61 24 0d 00 55  18 ec 20 31 30 30 2c 31  |"+la$..U.. 100,1|
000007f0  30 30 3a f0 31 2c 34 30  30 2c 34 30 30 0d 00 56  |00:.1,400,400..V|
00000800  17 21 28 74 6d 61 74 72  69 78 25 2b 30 29 3d 31  |.!(tmatrix%+0)=1|
00000810  3c 3c 31 36 0d 00 57 13  21 28 74 6d 61 74 72 69  |<<16..W.!(tmatri|
00000820  78 25 2b 34 29 3d 30 0d  00 58 13 21 28 74 6d 61  |x%+4)=0..X.!(tma|
00000830  74 72 69 78 25 2b 38 29  3d 30 0d 00 59 18 21 28  |trix%+8)=0..Y.!(|
00000840  74 6d 61 74 72 69 78 25  2b 31 32 29 3d 31 3c 3c  |tmatrix%+12)=1<<|
00000850  31 36 0d 00 5a 1a 21 28  74 6d 61 74 72 69 78 25  |16..Z.!(tmatrix%|
00000860  2b 31 36 29 3d 32 35 36  2a 34 30 30 0d 00 5b 1a  |+16)=256*400..[.|
00000870  21 28 74 6d 61 74 72 69  78 25 2b 32 30 29 3d 32  |!(tmatrix%+20)=2|
00000880  35 36 2a 32 30 30 0d 00  5c 35 c8 99 22 44 72 61  |56*200..\5.."Dra|
00000890  77 46 69 6c 65 5f 52 65  6e 64 65 72 22 2c 30 2c  |wFile_Render",0,|
000008a0  66 69 6c 65 25 2c 66 69  6c 65 6c 65 6e 25 2c 74  |file%,filelen%,t|
000008b0  6d 61 74 72 69 78 25 2c  30 2c 30 0d 00 5d 05 e1  |matrix%,0,0..]..|
000008c0  0d 00 5e 0e dd f2 74 61  6b 65 5f 6f 66 66 0d 00  |..^...take_off..|
000008d0  5f 1c f2 6c 6f 61 64 5f  73 70 72 69 74 65 73 28  |_..load_sprites(|
000008e0  22 74 61 6b 65 6f 66 66  22 29 0d 00 60 1d f2 6d  |"takeoff")..`..m|
000008f0  65 72 67 65 5f 73 70 72  69 74 65 73 28 22 62 75  |erge_sprites("bu|
00000900  74 74 6f 6e 73 22 29 0d  00 61 0c 2a 66 78 31 31  |ttons")..a.*fx11|
00000910  32 2c 31 0d 00 62 0b fb  20 31 33 31 3a db 0d 00  |2,1..b.. 131:...|
00000920  63 09 e7 20 b9 20 8c 0d  00 64 2c e7 56 25 3d 30  |c.. . ...d,.V%=0|
00000930  20 ef 32 34 2c 30 3b 39  36 30 3b 31 32 37 38 3b  | .24,0;960;1278;|
00000940  31 30 32 32 3b 31 38 2c  30 2c 31 33 31 2c 31 36  |1022;18,0,131,16|
00000950  2c 32 36 0d 00 65 63 f2  74 65 78 74 5f 62 6f 78  |,26..ec.text_box|
00000960  28 37 30 30 2c 35 38 30  2c 35 34 30 2c 32 35 30  |(700,580,540,250|
00000970  2c 32 2c 22 54 68 65 20  27 54 61 62 6c 65 20 41  |,2,"The 'Table A|
00000980  6c 69 65 6e 73 27 20 68  61 76 65 22 2c 22 6b 69  |liens' have","ki|
00000990  64 6e 61 70 70 65 64 20  74 77 6f 20 53 70 65 63  |dnapped two Spec|
000009a0  69 61 6c 22 2c 22 47 72  6f 75 70 20 6d 65 6d 62  |ial","Group memb|
000009b0  65 72 73 21 22 29 0d 00  66 0f f2 70 61 75 73 65  |ers!")..f..pause|
000009c0  28 31 30 30 29 0d 00 67  5d f2 74 65 78 74 5f 62  |(100)..g].text_b|
000009d0  6f 78 28 37 30 30 2c 33  30 30 2c 35 34 30 2c 32  |ox(700,300,540,2|
000009e0  35 30 2c 32 2c 22 54 68  65 79 20 68 61 76 65 20  |50,2,"They have |
000009f0  62 65 65 6e 20 74 61 6b  65 6e 22 2c 22 74 6f 20  |been taken","to |
00000a00  61 6e 20 61 6c 69 65 6e  20 62 61 73 65 2c 22 2c  |an alien base,",|
00000a10  22 68 69 64 64 65 6e 20  6f 6e 20 4d 61 72 73 2e  |"hidden on Mars.|
00000a20  22 29 0d 00 68 11 78 78  25 3d 36 34 3a 79 79 25  |")..h.xx%=64:yy%|
00000a30  3d 38 38 0d 00 69 2e ef  32 34 2c 78 78 25 3b 79  |=88..i..24,xx%;y|
00000a40  79 25 3b 78 78 25 2b 36  30 32 3b 79 79 25 2b 37  |y%;xx%+602;yy%+7|
00000a50  38 30 3b 31 38 2c 30 2c  31 33 31 2c 31 36 2c 32  |80;18,0,131,16,2|
00000a60  36 0d 00 6a 35 f2 70 6c  6f 74 5f 73 70 72 69 74  |6..j5.plot_sprit|
00000a70  65 5f 62 61 63 6b 28 78  78 25 2b 31 30 30 2c 79  |e_back(xx%+100,y|
00000a80  79 25 2b 32 36 30 2c 31  2c 31 2c 31 2c 31 2c 22  |y%+260,1,1,1,1,"|
00000a90  6d 61 72 73 22 29 0d 00  6b 17 f2 73 70 61 63 65  |mars")..k..space|
00000aa0  28 39 30 30 2c 31 30 30  2c 30 2c 30 29 0d 00 6c  |(900,100,0,0)..l|
00000ab0  25 ef 32 34 2c 37 30 30  3b 30 3b 31 32 37 38 3b  |%.24,700;0;1278;|
00000ac0  39 35 36 3b 31 38 2c 30  2c 31 33 31 2c 31 36 2c  |956;18,0,131,16,|
00000ad0  32 36 0d 00 6d 0f f2 70  61 75 73 65 28 31 30 30  |26..m..pause(100|
00000ae0  29 0d 00 6e 4e f2 74 65  78 74 5f 62 6f 78 28 37  |)..nN.text_box(7|
00000af0  30 30 2c 34 30 30 2c 34  34 30 2c 32 35 30 2c 32  |00,400,440,250,2|
00000b00  2c 22 59 6f 75 72 20 6d  69 73 73 69 6f 6e 20 69  |,"Your mission i|
00000b10  73 22 2c 22 74 6f 20 72  65 73 63 75 65 20 74 68  |s","to rescue th|
00000b20  65 73 65 22 2c 22 70 65  6f 70 6c 65 2e 22 29 0d  |ese","people.").|
00000b30  00 6f 17 f2 73 70 61 63  65 28 39 30 30 2c 31 30  |.o..space(900,10|
00000b40  30 2c 30 2c 30 29 0d 00  70 0c 2a 66 78 31 31 32  |0,0,0)..p.*fx112|
00000b50  2c 32 0d 00 71 23 ef 32  34 2c 30 3b 30 3b 31 32  |,2..q#.24,0;0;12|
00000b60  37 38 3b 39 36 30 3b 31  38 2c 30 2c 31 33 31 2c  |78;960;18,0,131,|
00000b70  31 36 2c 32 36 0d 00 72  2d f2 70 6c 6f 74 5f 73  |16,26..r-.plot_s|
00000b80  70 72 69 74 65 5f 62 61  63 6b 28 78 78 25 2c 79  |prite_back(xx%,y|
00000b90  79 25 2c 31 2c 31 2c 31  2c 31 2c 22 62 61 63 6b  |y%,1,1,1,1,"back|
00000ba0  22 29 0d 00 73 2f f2 70  6c 6f 74 5f 73 70 72 69  |")..s/.plot_spri|
00000bb0  74 65 5f 6d 61 73 6b 65  64 28 78 78 25 2c 79 79  |te_masked(xx%,yy|
00000bc0  25 2c 31 2c 31 2c 31 2c  31 2c 22 6c 61 6e 64 22  |%,1,1,1,1,"land"|
00000bd0  29 0d 00 74 4d f2 74 65  78 74 5f 62 6f 78 28 38  |)..tM.text_box(8|
00000be0  30 30 2c 34 30 30 2c 34  34 30 2c 32 35 30 2c 32  |00,400,440,250,2|
00000bf0  2c 22 54 68 69 73 20 77  69 6c 6c 20 62 65 20 79  |,"This will be y|
00000c00  6f 75 72 22 2c 22 68 61  72 64 65 73 74 20 6d 69  |our","hardest mi|
00000c10  73 73 69 6f 6e 22 2c 22  79 65 74 2e 22 29 0d 00  |ssion","yet.")..|
00000c20  75 10 66 61 64 65 24 3d  22 66 61 64 65 22 0d 00  |u.fade$="fade"..|
00000c30  76 18 f2 66 61 64 65 28  30 2c 39 36 30 2c 34 2c  |v..fade(0,960,4,|
00000c40  30 2c 31 2c 31 29 0d 00  77 0c 2a 46 58 31 31 32  |0,1,1)..w.*FX112|
00000c50  2c 31 0d 00 78 17 f2 73  70 61 63 65 28 39 30 30  |,1..x..space(900|
00000c60  2c 31 30 30 2c 30 2c 30  29 0d 00 79 0c 2a 46 58  |,100,0,0)..y.*FX|
00000c70  31 31 32 2c 32 0d 00 7a  1a f2 63 61 63 68 65 73  |112,2..z..caches|
00000c80  6f 75 6e 64 28 22 66 69  72 65 21 22 2c 31 29 0d  |ound("fire!",1).|
00000c90  00 7b 1c 61 6e 5f 78 25  3d 78 78 25 2b 32 38 30  |.{.an_x%=xx%+280|
00000ca0  3a 61 6e 5f 79 25 3d 2d  32 30 30 0d 00 7c 18 73  |:an_y%=-200..|.s|
00000cb0  65 6c 5f 73 70 72 69 74  65 24 3d 22 72 6f 63 6b  |el_sprite$="rock|
00000cc0  65 74 22 0d 00 7d 18 f2  73 74 61 72 74 5f 61 6e  |et"..}..start_an|
00000cd0  69 6d 28 22 62 6c 61 6e  6b 22 29 0d 00 7e 0c 66  |im("blank")..~.f|
00000ce0  6c 61 6d 65 25 3d 31 0d  00 7f 11 fb 20 39 2c 32  |lame%=1..... 9,2|
00000cf0  35 35 2c 32 35 35 2c 30  0d 00 80 0e f2 70 61 75  |55,255,0.....pau|
00000d00  73 65 28 32 30 29 0d 00  81 10 d4 20 31 2c 26 31  |se(20)..... 1,&1|
00000d10  37 46 2c 31 2c 31 0d 00  82 0d f2 70 61 6c 65 74  |7F,1,1.....palet|
00000d20  74 65 32 0d 00 83 13 ef  20 31 39 2c 31 2c 32 34  |te2..... 19,1,24|
00000d30  2c 30 2c 30 2c 30 0d 00  84 0f f2 70 61 75 73 65  |,0,0,0.....pause|
00000d40  28 31 30 30 29 0d 00 85  11 fb 20 39 2c 32 35 35  |(100)..... 9,255|
00000d50  2c 32 35 35 2c 30 0d 00  86 0e f2 70 61 75 73 65  |,255,0.....pause|
00000d60  28 32 30 29 0d 00 87 10  d4 20 31 2c 26 31 37 46  |(20)..... 1,&17F|
00000d70  2c 31 2c 31 0d 00 88 0d  f2 70 61 6c 65 74 74 65  |,1,1.....palette|
00000d80  32 0d 00 89 13 ef 20 31  39 2c 31 2c 32 34 2c 30  |2..... 19,1,24,0|
00000d90  2c 30 2c 30 0d 00 8a 0f  f2 70 61 75 73 65 28 31  |,0,0.....pause(1|
00000da0  30 30 29 0d 00 8b 1c f2  63 61 63 68 65 73 6f 75  |00).....cachesou|
00000db0  6e 64 28 22 73 61 74 75  72 6e 35 22 2c 31 29 0d  |nd("saturn5",1).|
00000dc0  00 8c 0f e3 66 25 3d 30  20 b8 20 31 35 30 0d 00  |....f%=0 . 150..|
00000dd0  8d 0d f2 73 74 5f 70 61  75 73 65 0d 00 8e 11 61  |...st_pause....a|
00000de0  6e 5f 79 25 3d 61 6e 5f  79 25 2b 34 0d 00 8f 1d  |n_y%=an_y%+4....|
00000df0  e7 20 a4 6e 6f 73 6f 75  6e 64 3d b9 3a d4 20 31  |. .nosound=.:. 1|
00000e00  2c 26 31 37 46 2c 31 2c  31 0d 00 90 18 e7 66 25  |,&17F,1,1.....f%|
00000e10  3e 36 30 20 61 6e 5f 79  25 3d 61 6e 5f 79 25 2b  |>60 an_y%=an_y%+|
00000e20  34 0d 00 91 19 e7 66 25  3e 31 30 30 20 61 6e 5f  |4.....f%>100 an_|
00000e30  79 25 3d 61 6e 5f 79 25  2b 34 0d 00 92 28 c8 99  |y%=an_y%+4...(..|
00000e40  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00000e50  33 43 2c 73 61 31 25 2c  22 72 6f 63 6b 65 74 22  |3C,sa1%,"rocket"|
00000e60  2c 30 0d 00 93 11 21 28  73 63 61 6c 65 25 2b 30  |,0....!(scale%+0|
00000e70  29 3d 31 0d 00 94 11 21  28 73 63 61 6c 65 25 2b  |)=1....!(scale%+|
00000e80  34 29 3d 31 0d 00 95 11  21 28 73 63 61 6c 65 25  |4)=1....!(scale%|
00000e90  2b 38 29 3d 31 0d 00 96  12 21 28 73 63 61 6c 65  |+8)=1....!(scale|
00000ea0  25 2b 31 32 29 3d 31 0d  00 97 3d c8 99 22 4f 53  |%+12)=1...=.."OS|
00000eb0  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 33 34 2c  |_SpriteOp",&134,|
00000ec0  73 61 31 25 2c 22 66 69  72 65 22 2b c3 28 66 6c  |sa1%,"fire"+.(fl|
00000ed0  61 6d 65 25 29 2c 30 2c  30 2c 38 2c 73 63 61 6c  |ame%),0,0,8,scal|
00000ee0  65 25 2c 30 0d 00 98 21  c8 99 22 4f 53 5f 53 70  |e%,0...!.."OS_Sp|
00000ef0  72 69 74 65 4f 70 22 2c  26 31 33 43 2c 73 61 31  |riteOp",&13C,sa1|
00000f00  25 2c 30 2c 31 0d 00 99  1d e7 56 25 3d 31 20 ef  |%,0,1.....V%=1 .|
00000f10  20 32 33 2c 31 37 2c 37  2c 36 2c 38 3b 31 36 3b  | 23,17,7,6,8;16;|
00000f20  30 3b 0d 00 9a 13 66 6c  61 6d 65 25 3d 66 6c 61  |0;....flame%=fla|
00000f30  6d 65 25 2b 31 0d 00 9b  17 e7 20 66 6c 61 6d 65  |me%+1..... flame|
00000f40  25 3d 37 20 66 6c 61 6d  65 25 3d 31 0d 00 9c 12  |%=7 flame%=1....|
00000f50  f2 61 6e 69 6d 28 22 62  6c 61 6e 6b 22 29 0d 00  |.anim("blank")..|
00000f60  9d 3a e7 61 6e 5f 79 25  3c 32 30 30 20 f2 70 6c  |.:.an_y%<200 .pl|
00000f70  6f 74 5f 73 70 72 69 74  65 5f 6d 61 73 6b 65 64  |ot_sprite_masked|
00000f80  28 78 78 25 2c 79 79 25  2c 31 2c 31 2c 31 2c 31  |(xx%,yy%,1,1,1,1|
00000f90  2c 22 6c 61 6e 64 22 29  0d 00 9e 3f f2 6d 6f 76  |,"land")...?.mov|
00000fa0  65 5f 62 6c 6f 63 6b 28  73 63 72 65 65 6e 5f 74  |e_block(screen_t|
00000fb0  77 6f 25 2c 33 32 30 2c  31 32 30 2c 73 63 72 65  |wo%,320,120,scre|
00000fc0  65 6e 5f 6f 6e 65 25 2c  33 32 30 2c 31 32 30 2c  |en_one%,320,120,|
00000fd0  34 38 2c 31 38 30 29 0d  00 9f 11 f2 65 6e 5f 70  |48,180).....en_p|
00000fe0  61 75 73 65 28 31 30 29  0d 00 a0 05 ed 0d 00 a1  |ause(10)........|
00000ff0  0c 2a 66 78 31 31 32 2c  31 0d 00 a2 17 f2 73 70  |.*fx112,1.....sp|
00001000  61 63 65 28 39 30 30 2c  31 30 30 2c 30 2c 30 29  |ace(900,100,0,0)|
00001010  0d 00 a3 05 cd 0d 00 a4  0c 2a 66 78 31 31 32 2c  |.........*fx112,|
00001020  32 0d 00 a5 0b fb 20 31  33 31 3a db 0d 00 a6 11  |2..... 131:.....|
00001030  78 78 25 3d 36 34 3a 79  79 25 3d 38 38 0d 00 a7  |xx%=64:yy%=88...|
00001040  2e ef 32 34 2c 78 78 25  3b 79 79 25 3b 78 78 25  |..24,xx%;yy%;xx%|
00001050  2b 37 30 32 3b 79 79 25  2b 37 38 30 3b 31 38 2c  |+702;yy%+780;18,|
00001060  30 2c 31 33 31 2c 31 36  2c 32 36 0d 00 a8 35 f2  |0,131,16,26...5.|
00001070  70 6c 6f 74 5f 73 70 72  69 74 65 5f 62 61 63 6b  |plot_sprite_back|
00001080  28 78 78 25 2b 31 36 30  2c 79 79 25 2b 32 36 30  |(xx%+160,yy%+260|
00001090  2c 31 2c 31 2c 31 2c 31  2c 22 6d 61 72 73 22 29  |,1,1,1,1,"mars")|
000010a0  0d 00 a9 10 66 61 64 65  24 3d 22 66 61 64 65 22  |....fade$="fade"|
000010b0  0d 00 aa 18 f2 66 61 64  65 28 30 2c 39 36 30 2c  |.....fade(0,960,|
000010c0  34 2c 30 2c 31 2c 31 29  0d 00 ab 0c 2a 46 58 31  |4,0,1,1)....*FX1|
000010d0  31 32 2c 31 0d 00 ac 50  f2 74 65 78 74 5f 62 6f  |12,1...P.text_bo|
000010e0  78 28 37 30 30 2c 34 30  30 2c 34 34 30 2c 32 35  |x(700,400,440,25|
000010f0  30 2c 32 2c 22 59 6f 75  20 77 69 6c 6c 20 6e 65  |0,2,"You will ne|
00001100  65 64 20 74 6f 22 2c 22  66 69 6e 64 20 74 68 65  |ed to","find the|
00001110  20 74 68 65 22 2c 22 61  6c 69 65 6e 20 62 61 73  | the","alien bas|
00001120  65 2e 22 29 0d 00 ad 17  f2 73 70 61 63 65 28 39  |e.").....space(9|
00001130  30 30 2c 31 30 30 2c 30  2c 30 29 0d 00 ae 08 e6  |00,100,0,0).....|
00001140  30 2c 30 0d 00 af 1e e3  66 25 3d 78 78 25 2b 32  |0,0.....f%=xx%+2|
00001150  36 30 20 b8 20 78 78 25  2b 33 33 32 20 88 20 31  |60 . xx%+332 . 1|
00001160  32 0d 00 b0 19 ec 20 66  25 2c 79 79 25 2b 33 36  |2..... f%,yy%+36|
00001170  30 3a f0 20 31 2c 30 2c  37 32 0d 00 b1 0e f2 70  |0:. 1,0,72.....p|
00001180  61 75 73 65 28 33 30 29  0d 00 b2 05 ed 0d 00 b3  |ause(30)........|
00001190  1f e3 66 66 25 3d 79 79  25 2b 33 36 30 20 b8 20  |..ff%=yy%+360 . |
000011a0  79 79 25 2b 34 33 32 20  88 20 31 32 0d 00 b4 19  |yy%+432 . 12....|
000011b0  ec 20 78 78 25 2b 32 36  30 2c 66 66 25 3a f0 31  |. xx%+260,ff%:.1|
000011c0  2c 37 32 2c 30 0d 00 b5  0e f2 70 61 75 73 65 28  |,72,0.....pause(|
000011d0  33 30 29 0d 00 b6 05 ed  0d 00 b7 05 e1 0d 00 b8  |30).............|
000011e0  0c dd f2 69 6e 74 72 6f  33 0d 00 b9 1a f2 6c 6f  |...intro3.....lo|
000011f0  61 64 5f 73 70 72 69 74  65 73 28 22 63 6f 6d 70  |ad_sprites("comp|
00001200  75 22 29 0d 00 ba 1d f2  6d 65 72 67 65 5f 73 70  |u").....merge_sp|
00001210  72 69 74 65 73 28 22 6e  75 6d 62 65 72 73 22 29  |rites("numbers")|
00001220  0d 00 bb 1d f2 6d 65 72  67 65 5f 73 70 72 69 74  |.....merge_sprit|
00001230  65 73 28 22 62 75 74 74  6f 6e 73 22 29 0d 00 bc  |es("buttons")...|
00001240  16 e7 50 25 3d 30 20 f2  62 72 69 65 66 5f 69 6e  |..P%=0 .brief_in|
00001250  74 72 6f 0d 00 bd 0c 2a  66 78 31 31 32 2c 32 0d  |tro....*fx112,2.|
00001260  00 be 0b fb 20 31 33 31  3a db 0d 00 bf 2c e7 56  |.... 131:....,.V|
00001270  25 3d 30 20 ef 32 34 2c  30 3b 39 36 30 3b 31 32  |%=0 .24,0;960;12|
00001280  37 38 3b 31 30 32 32 3b  31 38 2c 30 2c 31 33 31  |78;1022;18,0,131|
00001290  2c 31 36 2c 32 36 0d 00  c0 11 78 78 25 3d 36 34  |,16,26....xx%=64|
000012a0  3a 79 79 25 3d 38 38 0d  00 c1 2f f2 70 6c 6f 74  |:yy%=88.../.plot|
000012b0  5f 73 70 72 69 74 65 5f  62 61 63 6b 28 78 78 25  |_sprite_back(xx%|
000012c0  2c 79 79 25 2c 31 2c 31  2c 31 2c 31 2c 22 73 63  |,yy%,1,1,1,1,"sc|
000012d0  72 65 65 6e 22 29 0d 00  c2 36 f2 70 6c 6f 74 5f  |reen")...6.plot_|
000012e0  73 70 72 69 74 65 5f 6d  61 73 6b 65 64 28 78 78  |sprite_masked(xx|
000012f0  25 2b 36 34 2c 79 79 25  2b 31 33 34 2c 31 2c 31  |%+64,yy%+134,1,1|
00001300  2c 31 2c 31 2c 22 6d 61  6e 37 22 29 0d 00 c3 40  |,1,1,"man7")...@|
00001310  f2 70 6c 6f 74 5f 73 70  72 69 74 65 5f 6d 61 73  |.plot_sprite_mas|
00001320  6b 65 64 28 78 78 25 2b  36 34 2b 31 34 32 2c 79  |ked(xx%+64+142,y|
00001330  79 25 2b 31 33 34 2b 31  37 36 2c 31 2c 31 2c 31  |y%+134+176,1,1,1|
00001340  2c 31 2c 22 72 69 67 68  74 61 22 29 0d 00 c4 3d  |,1,"righta")...=|
00001350  f2 70 6c 6f 74 5f 73 70  72 69 74 65 5f 6d 61 73  |.plot_sprite_mas|
00001360  6b 65 64 28 78 78 25 2b  36 34 2b 30 2c 79 79 25  |ked(xx%+64+0,yy%|
00001370  2b 31 33 34 2b 31 37 32  2c 31 2c 31 2c 31 2c 31  |+134+172,1,1,1,1|
00001380  2c 22 6c 65 66 74 61 22  29 0d 00 c5 38 f2 70 6c  |,"lefta")...8.pl|
00001390  6f 74 5f 73 70 72 69 74  65 28 78 78 25 2b 36 34  |ot_sprite(xx%+64|
000013a0  2b 31 32 30 2c 79 79 25  2b 31 33 34 2b 33 32 30  |+120,yy%+134+320|
000013b0  2c 31 2c 31 2c 31 2c 31  2c 22 62 61 64 67 65 22  |,1,1,1,1,"badge"|
000013c0  29 0d 00 c6 0c 2a 66 78  31 31 32 2c 31 0d 00 c7  |)....*fx112,1...|
000013d0  10 66 61 64 65 24 3d 22  66 61 64 65 22 0d 00 c8  |.fade$="fade"...|
000013e0  18 f2 66 61 64 65 28 30  2c 39 36 30 2c 34 2c 30  |..fade(0,960,4,0|
000013f0  2c 31 2c 31 29 0d 00 c9  08 e6 30 2c 33 0d 00 ca  |,1,1).....0,3...|
00001400  1e f2 63 61 63 68 65 73  6f 75 6e 64 28 22 63 6f  |..cachesound("co|
00001410  6d 70 75 74 65 72 31 22  2c 31 29 0d 00 cb 16 e3  |mputer1",1).....|
00001420  66 25 3d 36 34 34 20 b8  20 37 35 36 20 88 20 38  |f%=644 . 756 . 8|
00001430  3a 0d 00 cc 1d e7 20 a4  6e 6f 73 6f 75 6e 64 3d  |:..... .nosound=|
00001440  b9 3a d4 20 31 2c 26 31  37 46 2c 31 2c 31 0d 00  |.:. 1,&17F,1,1..|
00001450  cd 19 f0 20 34 2c 33 36  30 2c 66 25 3a f0 20 35  |... 4,360,f%:. 5|
00001460  2c 35 30 38 2c 66 25 0d  00 ce 0d f2 70 61 75 73  |,508,f%.....paus|
00001470  65 28 34 29 0d 00 cf 05  ed 0d 00 d0 16 e3 66 25  |e(4)..........f%|
00001480  3d 33 36 30 20 b8 20 35  30 38 20 88 20 38 3a 0d  |=360 . 508 . 8:.|
00001490  00 d1 1d e7 20 a4 6e 6f  73 6f 75 6e 64 3d b9 3a  |.... .nosound=.:|
000014a0  d4 20 31 2c 26 31 37 46  2c 31 2c 31 0d 00 d2 19  |. 1,&17F,1,1....|
000014b0  f0 20 34 2c 66 25 2c 36  34 34 3a f0 20 35 2c 66  |. 4,f%,644:. 5,f|
000014c0  25 2c 37 35 36 0d 00 d3  0d f2 70 61 75 73 65 28  |%,756.....pause(|
000014d0  34 29 0d 00 d4 05 ed 0d  00 d5 2b f2 70 6c 6f 74  |4)........+.plot|
000014e0  5f 73 70 72 69 74 65 28  33 36 30 2c 36 33 36 2c  |_sprite(360,636,|
000014f0  31 2c 31 2c 31 2c 31 2c  22 73 63 72 65 65 6e 61  |1,1,1,1,"screena|
00001500  22 29 0d 00 d6 0f f2 70  61 75 73 65 28 31 30 30  |").....pause(100|
00001510  29 0d 00 d7 50 f2 74 65  78 74 5f 62 6f 78 28 38  |)...P.text_box(8|
00001520  30 30 2c 36 38 30 2c 34  34 30 2c 32 35 30 2c 32  |00,680,440,250,2|
00001530  2c 22 54 68 65 20 61 6c  69 65 6e 73 20 68 61 76  |,"The aliens hav|
00001540  65 22 2c 22 66 69 72 65  64 20 6d 69 6e 65 73 20  |e","fired mines |
00001550  61 74 20 74 68 65 22 2c  22 45 61 72 74 68 2e 22  |at the","Earth."|
00001560  29 0d 00 d8 0f f2 70 61  75 73 65 28 31 30 30 29  |).....pause(100)|
00001570  0d 00 d9 55 f2 74 65 78  74 5f 62 6f 78 28 38 30  |...U.text_box(80|
00001580  30 2c 34 30 30 2c 34 34  30 2c 32 35 30 2c 32 2c  |0,400,440,250,2,|
00001590  22 59 6f 75 20 6d 75 73  74 20 74 72 79 20 74 6f  |"You must try to|
000015a0  22 2c 22 64 65 73 74 72  6f 79 20 74 68 65 6d 22  |","destroy them"|
000015b0  2c 22 62 65 66 6f 72 65  20 74 68 65 79 20 6c 61  |,"before they la|
000015c0  6e 64 2e 22 29 0d 00 da  17 f2 73 70 61 63 65 28  |nd.").....space(|
000015d0  39 30 30 2c 31 30 30 2c  30 2c 30 29 0d 00 db 05  |900,100,0,0)....|
000015e0  e1 0d 00 dc 0c dd f2 69  6e 74 72 6f 34 0d 00 dd  |.......intro4...|
000015f0  1a f2 6c 6f 61 64 5f 73  70 72 69 74 65 73 28 22  |..load_sprites("|
00001600  63 6f 6d 70 75 22 29 0d  00 de 1d f2 6d 65 72 67  |compu").....merg|
00001610  65 5f 73 70 72 69 74 65  73 28 22 6e 75 6d 62 65  |e_sprites("numbe|
00001620  72 73 22 29 0d 00 df 1d  f2 6d 65 72 67 65 5f 73  |rs").....merge_s|
00001630  70 72 69 74 65 73 28 22  62 75 74 74 6f 6e 73 22  |prites("buttons"|
00001640  29 0d 00 e0 0c 2a 66 78  31 31 32 2c 32 0d 00 e1  |)....*fx112,2...|
00001650  0b fb 20 31 33 31 3a db  0d 00 e2 2c e7 56 25 3d  |.. 131:....,.V%=|
00001660  30 20 ef 32 34 2c 30 3b  39 36 30 3b 31 32 37 38  |0 .24,0;960;1278|
00001670  3b 31 30 32 32 3b 31 38  2c 30 2c 31 33 31 2c 31  |;1022;18,0,131,1|
00001680  36 2c 32 36 0d 00 e3 4d  f2 74 65 78 74 5f 62 6f  |6,26...M.text_bo|
00001690  78 28 38 30 30 2c 36 38  30 2c 34 34 30 2c 32 35  |x(800,680,440,25|
000016a0  30 2c 32 2c 22 45 6d 65  72 67 65 6e 63 79 21 20  |0,2,"Emergency! |
000016b0  4d 6f 72 65 22 2c 22 6d  69 6e 65 73 20 68 61 76  |More","mines hav|
000016c0  65 20 62 65 65 6e 22 2c  22 66 69 72 65 64 2e 22  |e been","fired."|
000016d0  29 0d 00 e4 11 78 78 25  3d 36 34 3a 79 79 25 3d  |)....xx%=64:yy%=|
000016e0  38 38 0d 00 e5 2f f2 70  6c 6f 74 5f 73 70 72 69  |88.../.plot_spri|
000016f0  74 65 5f 62 61 63 6b 28  78 78 25 2c 79 79 25 2c  |te_back(xx%,yy%,|
00001700  31 2c 31 2c 31 2c 31 2c  22 73 63 72 65 65 6e 22  |1,1,1,1,"screen"|
00001710  29 0d 00 e6 36 f2 70 6c  6f 74 5f 73 70 72 69 74  |)...6.plot_sprit|
00001720  65 5f 6d 61 73 6b 65 64  28 78 78 25 2b 36 34 2c  |e_masked(xx%+64,|
00001730  79 79 25 2b 31 33 34 2c  31 2c 31 2c 31 2c 31 2c  |yy%+134,1,1,1,1,|
00001740  22 6d 61 6e 37 22 29 0d  00 e7 40 f2 70 6c 6f 74  |"man7")...@.plot|
00001750  5f 73 70 72 69 74 65 5f  6d 61 73 6b 65 64 28 78  |_sprite_masked(x|
00001760  78 25 2b 36 34 2b 31 34  32 2c 79 79 25 2b 31 33  |x%+64+142,yy%+13|
00001770  34 2b 31 37 36 2c 31 2c  31 2c 31 2c 31 2c 22 72  |4+176,1,1,1,1,"r|
00001780  69 67 68 74 61 22 29 0d  00 e8 3d f2 70 6c 6f 74  |ighta")...=.plot|
00001790  5f 73 70 72 69 74 65 5f  6d 61 73 6b 65 64 28 78  |_sprite_masked(x|
000017a0  78 25 2b 36 34 2b 30 2c  79 79 25 2b 31 33 34 2b  |x%+64+0,yy%+134+|
000017b0  31 37 32 2c 31 2c 31 2c  31 2c 31 2c 22 6c 65 66  |172,1,1,1,1,"lef|
000017c0  74 61 22 29 0d 00 e9 38  f2 70 6c 6f 74 5f 73 70  |ta")...8.plot_sp|
000017d0  72 69 74 65 28 78 78 25  2b 36 34 2b 31 32 30 2c  |rite(xx%+64+120,|
000017e0  79 79 25 2b 31 33 34 2b  33 32 30 2c 31 2c 31 2c  |yy%+134+320,1,1,|
000017f0  31 2c 31 2c 22 62 61 64  67 65 22 29 0d 00 ea 0c  |1,1,"badge")....|
00001800  2a 66 78 31 31 32 2c 31  0d 00 eb 10 66 61 64 65  |*fx112,1....fade|
00001810  24 3d 22 66 61 64 65 22  0d 00 ec 18 f2 66 61 64  |$="fade".....fad|
00001820  65 28 30 2c 39 36 30 2c  34 2c 30 2c 31 2c 31 29  |e(0,960,4,0,1,1)|
00001830  0d 00 ed 0f f2 70 61 75  73 65 28 31 30 30 29 0d  |.....pause(100).|
00001840  00 ee 58 f2 74 65 78 74  5f 62 6f 78 28 38 30 30  |..X.text_box(800|
00001850  2c 34 30 30 2c 34 34 30  2c 32 35 30 2c 32 2c 22  |,400,440,250,2,"|
00001860  59 6f 75 20 77 69 6c 6c  20 6e 65 65 64 20 74 6f  |You will need to|
00001870  22 2c 22 66 69 6e 64 20  6f 75 74 20 77 68 65 72  |","find out wher|
00001880  65 22 2c 22 74 68 65 79  20 61 72 65 20 6c 61 6e  |e","they are lan|
00001890  64 69 6e 67 2e 22 29 0d  00 ef 17 f2 73 70 61 63  |ding.").....spac|
000018a0  65 28 39 30 30 2c 31 30  30 2c 30 2c 30 29 0d 00  |e(900,100,0,0)..|
000018b0  f0 25 ef 32 34 2c 37 38  30 3b 30 3b 31 32 37 38  |.%.24,780;0;1278|
000018c0  3b 39 35 36 3b 31 38 2c  30 2c 31 33 31 2c 31 36  |;956;18,0,131,16|
000018d0  2c 32 36 0d 00 f1 53 f2  74 65 78 74 5f 62 6f 78  |,26...S.text_box|
000018e0  28 38 30 30 2c 34 35 30  2c 34 34 30 2c 32 34 30  |(800,450,440,240|
000018f0  2c 32 2c 22 59 6f 75 20  6d 61 79 20 6e 6f 74 20  |,2,"You may not |
00001900  62 65 22 2c 22 69 6e 20  74 69 6d 65 20 74 6f 20  |be","in time to |
00001910  73 74 6f 70 22 2c 22 74  68 65 6d 20 6c 61 6e 64  |stop","them land|
00001920  69 6e 67 2e 22 29 0d 00  f2 17 f2 73 70 61 63 65  |ing.").....space|
00001930  28 39 30 30 2c 31 30 30  2c 30 2c 30 29 0d 00 f3  |(900,100,0,0)...|
00001940  05 e1 0d 00 f4 0c dd f2  69 6e 74 72 6f 32 0d 00  |........intro2..|
00001950  f5 1d f2 6c 6f 61 64 5f  73 70 72 69 74 65 73 28  |...load_sprites(|
00001960  22 70 74 32 73 74 61 72  74 22 29 0d 00 f6 1d f2  |"pt2start").....|
00001970  6d 65 72 67 65 5f 73 70  72 69 74 65 73 28 22 6e  |merge_sprites("n|
00001980  75 6d 62 65 72 73 22 29  0d 00 f7 1d f2 6d 65 72  |umbers").....mer|
00001990  67 65 5f 73 70 72 69 74  65 73 28 22 62 75 74 74  |ge_sprites("butt|
000019a0  6f 6e 73 22 29 0d 00 f8  10 f2 62 72 69 65 66 5f  |ons").....brief_|
000019b0  69 6e 74 72 6f 0d 00 f9  0c 2a 66 78 31 31 32 2c  |intro....*fx112,|
000019c0  32 0d 00 fa 0b fb 20 31  33 31 3a db 0d 00 fb 2c  |2..... 131:....,|
000019d0  e7 56 25 3d 30 20 ef 32  34 2c 30 3b 39 36 30 3b  |.V%=0 .24,0;960;|
000019e0  31 32 37 38 3b 31 30 32  32 3b 31 38 2c 30 2c 31  |1278;1022;18,0,1|
000019f0  33 31 2c 31 36 2c 32 36  0d 00 fc 55 f2 74 65 78  |31,16,26...U.tex|
00001a00  74 5f 62 6f 78 28 38 30  30 2c 36 38 30 2c 34 34  |t_box(800,680,44|
00001a10  30 2c 32 35 30 2c 32 2c  22 57 68 69 6c 65 20 79  |0,250,2,"While y|
00001a20  6f 75 20 73 6c 65 65 70  2c 22 2c 22 73 74 72 61  |ou sleep,","stra|
00001a30  6e 67 65 20 74 68 69 6e  67 73 22 2c 22 61 72 65  |nge things","are|
00001a40  20 68 61 70 70 65 6e 69  6e 67 21 22 29 0d 00 fd  | happening!")...|
00001a50  11 78 78 25 3d 36 34 3a  79 79 25 3d 38 38 0d 00  |.xx%=64:yy%=88..|
00001a60  fe 2f f2 70 6c 6f 74 5f  73 70 72 69 74 65 5f 62  |./.plot_sprite_b|
00001a70  61 63 6b 28 78 78 25 2c  79 79 25 2c 31 2c 31 2c  |ack(xx%,yy%,1,1,|
00001a80  31 2c 31 2c 22 73 63 72  65 65 6e 22 29 0d 00 ff  |1,1,"screen")...|
00001a90  0c 2a 66 78 31 31 32 2c  31 0d 01 00 10 66 61 64  |.*fx112,1....fad|
00001aa0  65 24 3d 22 66 61 64 65  22 0d 01 01 18 f2 66 61  |e$="fade".....fa|
00001ab0  64 65 28 30 2c 39 36 30  2c 34 2c 30 2c 31 2c 31  |de(0,960,4,0,1,1|
00001ac0  29 0d 01 02 19 f2 63 61  63 68 65 73 6f 75 6e 64  |).....cachesound|
00001ad0  28 22 77 69 6e 64 22 2c  31 29 0d 01 03 17 f2 73  |("wind",1).....s|
00001ae0  70 61 63 65 28 39 30 30  2c 31 30 30 2c 30 2c 30  |pace(900,100,0,0|
00001af0  29 0d 01 04 0c 2a 66 78  31 31 32 2c 32 0d 01 05  |)....*fx112,2...|
00001b00  16 e3 70 70 25 3d 32 35  20 b8 20 2d 35 30 20 88  |..pp%=25 . -50 .|
00001b10  20 2d 33 0d 01 06 12 e7  70 70 25 3e 2d 31 3a 70  | -3.....pp%>-1:p|
00001b20  25 3d 70 70 25 0d 01 07  10 d4 20 31 2c 26 31 37  |%=pp%..... 1,&17|
00001b30  46 2c 31 2c 31 0d 01 08  30 f2 70 6c 6f 74 5f 73  |F,1,1...0.plot_s|
00001b40  70 72 69 74 65 28 78 78  25 2b 39 32 2c 79 79 25  |prite(xx%+92,yy%|
00001b50  2b 35 35 32 2c 31 2c 31  2c 31 2c 31 2c 22 77 69  |+552,1,1,1,1,"wi|
00001b60  6e 64 31 22 29 0d 01 09  2f 43 25 3d 73 63 72 65  |nd1").../C%=scre|
00001b70  65 6e 5f 6f 6e 65 25 3a  42 25 3d 73 63 72 65 65  |en_one%:B%=scree|
00001b80  6e 5f 74 77 6f 25 3a d6  73 61 76 65 5f 73 63 72  |n_two%:.save_scr|
00001b90  65 65 6e 25 0d 01 0a 0e  f2 70 61 75 73 65 28 70  |een%.....pause(p|
00001ba0  25 29 0d 01 0b 2f f2 70  6c 6f 74 5f 73 70 72 69  |%).../.plot_spri|
00001bb0  74 65 5f 62 61 63 6b 28  78 78 25 2c 79 79 25 2c  |te_back(xx%,yy%,|
00001bc0  31 2c 31 2c 31 2c 31 2c  22 73 63 72 65 65 6e 22  |1,1,1,1,"screen"|
00001bd0  29 0d 01 0c 2f 43 25 3d  73 63 72 65 65 6e 5f 6f  |).../C%=screen_o|
00001be0  6e 65 25 3a 42 25 3d 73  63 72 65 65 6e 5f 74 77  |ne%:B%=screen_tw|
00001bf0  6f 25 3a d6 73 61 76 65  5f 73 63 72 65 65 6e 25  |o%:.save_screen%|
00001c00  0d 01 0d 0e f2 70 61 75  73 65 28 70 25 29 0d 01  |.....pause(p%)..|
00001c10  0e 05 ed 0d 01 0f 13 e3  66 25 3d 33 30 20 b8 20  |........f%=30 . |
00001c20  32 30 20 88 2d 32 0d 01  10 0e f2 70 61 75 73 65  |20 .-2.....pause|
00001c30  28 66 25 29 0d 01 11 1d  e7 20 a4 6e 6f 73 6f 75  |(f%)..... .nosou|
00001c40  6e 64 3d b9 3a d4 20 31  2c 26 31 37 46 2c 31 2c  |nd=.:. 1,&17F,1,|
00001c50  31 0d 01 12 0e f2 70 61  75 73 65 28 66 25 29 0d  |1.....pause(f%).|
00001c60  01 13 05 ed 0d 01 14 0e  f2 70 61 75 73 65 28 33  |.........pause(3|
00001c70  30 29 0d 01 15 1e f2 63  61 63 68 65 73 6f 75 6e  |0).....cachesoun|
00001c80  64 28 22 69 6e 76 61 64  69 6e 67 32 22 2c 31 29  |d("invading2",1)|
00001c90  0d 01 16 0a 74 6f 67 25  3d 31 0d 01 17 21 e3 70  |....tog%=1...!.p|
00001ca0  70 25 3d 78 78 25 2b 39  32 2b 32 37 36 20 b8 20  |p%=xx%+92+276 . |
00001cb0  78 78 25 2b 39 32 20 88  20 2d 34 0d 01 18 0d f2  |xx%+92 . -4.....|
00001cc0  73 74 5f 70 61 75 73 65  0d 01 19 39 ef 32 34 2c  |st_pause...9.24,|
00001cd0  78 78 25 2b 39 32 3b 79  79 25 2b 35 35 32 3b 78  |xx%+92;yy%+552;x|
00001ce0  78 25 2b 39 32 2b 32 37  32 3b 79 79 25 2b 35 35  |x%+92+272;yy%+55|
00001cf0  32 2b 31 37 36 3b 31 38  2c 30 2c 31 33 31 2c 31  |2+176;18,0,131,1|
00001d00  36 0d 01 1a 2e f2 70 6c  6f 74 5f 73 70 72 69 74  |6.....plot_sprit|
00001d10  65 28 70 70 25 2c 79 79  25 2b 35 35 32 2c 31 2c  |e(pp%,yy%+552,1,|
00001d20  31 2c 31 2c 31 2c 22 74  61 62 6c 65 36 22 29 0d  |1,1,1,"table6").|
00001d30  01 1b 37 f2 70 6c 6f 74  5f 73 70 72 69 74 65 5f  |..7.plot_sprite_|
00001d40  6d 61 73 6b 65 64 28 78  78 25 2b 39 32 2c 79 79  |masked(xx%+92,yy|
00001d50  25 2b 35 35 32 2c 31 2c  31 2c 31 2c 31 2c 22 77  |%+552,1,1,1,1,"w|
00001d60  69 6e 64 33 22 29 0d 01  1c 2f 43 25 3d 73 63 72  |ind3").../C%=scr|
00001d70  65 65 6e 5f 6f 6e 65 25  3a 42 25 3d 73 63 72 65  |een_one%:B%=scre|
00001d80  65 6e 5f 74 77 6f 25 3a  d6 73 61 76 65 5f 73 63  |en_two%:.save_sc|
00001d90  72 65 65 6e 25 0d 01 1d  1d e7 20 a4 6e 6f 73 6f  |reen%..... .noso|
00001da0  75 6e 64 3d b9 3a d4 20  31 2c 26 31 37 46 2c 31  |und=.:. 1,&17F,1|
00001db0  2c 31 0d 01 1e 0f 74 6f  67 25 3d 74 6f 67 25 2b  |,1....tog%=tog%+|
00001dc0  31 0d 01 1f 11 f2 65 6e  5f 70 61 75 73 65 28 31  |1.....en_pause(1|
00001dd0  30 29 0d 01 20 05 ed 0d  01 21 0c 2a 66 78 31 31  |0).. ....!.*fx11|
00001de0  32 2c 31 0d 01 22 07 ef  32 36 0d 01 23 17 f2 73  |2,1.."..26..#..s|
00001df0  70 61 63 65 28 39 30 30  2c 31 30 30 2c 31 2c 30  |pace(900,100,1,0|
00001e00  29 0d 01 24 2f ef 32 34  2c 78 78 25 3b 79 79 25  |)..$/.24,xx%;yy%|
00001e10  3b 78 78 25 2b 31 32 37  38 3b 79 79 25 2b 37 37  |;xx%+1278;yy%+77|
00001e20  36 3b 31 38 2c 30 2c 31  33 31 2c 31 36 2c 32 36  |6;18,0,131,16,26|
00001e30  0d 01 25 0f f2 70 61 75  73 65 28 32 30 30 29 0d  |..%..pause(200).|
00001e40  01 26 16 e3 66 25 3d 2d  32 30 30 20 b8 20 32 30  |.&..f%=-200 . 20|
00001e50  30 20 88 20 34 0d 01 27  0d f2 73 74 5f 70 61 75  |0 . 4..'..st_pau|
00001e60  73 65 0d 01 28 10 d4 20  31 2c 26 31 37 46 2c 31  |se..(.. 1,&17F,1|
00001e70  2c 31 0d 01 29 27 f2 70  6c 6f 74 5f 73 70 72 69  |,1..)'.plot_spri|
00001e80  74 65 28 66 25 2c 36 30  30 2c 31 2c 31 2c 31 2c  |te(f%,600,1,1,1,|
00001e90  31 2c 22 65 79 65 34 22  29 0d 01 2a 2b f2 70 6c  |1,"eye4")..*+.pl|
00001ea0  6f 74 5f 73 70 72 69 74  65 28 66 25 2b 31 34 32  |ot_sprite(f%+142|
00001eb0  2c 36 30 30 2c 31 2c 31  2c 31 2c 31 2c 22 65 79  |,600,1,1,1,1,"ey|
00001ec0  65 34 22 29 0d 01 2b 0f  74 6f 67 25 3d 74 6f 67  |e4")..+.tog%=tog|
00001ed0  25 2b 31 0d 01 2c 10 f2  65 6e 5f 70 61 75 73 65  |%+1..,..en_pause|
00001ee0  28 32 29 0d 01 2d 05 ed  0d 01 2e 1b f2 63 61 63  |(2)..-.......cac|
00001ef0  68 65 73 6f 75 6e 64 28  22 67 72 6f 77 6c 32 22  |hesound("growl2"|
00001f00  2c 31 29 0d 01 2f 28 f2  70 6c 6f 74 5f 73 70 72  |,1)../(.plot_spr|
00001f10  69 74 65 28 32 30 30 2c  36 30 30 2c 31 2c 31 2c  |ite(200,600,1,1,|
00001f20  31 2c 31 2c 22 65 79 65  34 22 29 0d 01 30 2c f2  |1,1,"eye4")..0,.|
00001f30  70 6c 6f 74 5f 73 70 72  69 74 65 28 32 30 30 2b  |plot_sprite(200+|
00001f40  31 34 32 2c 36 30 30 2c  31 2c 31 2c 31 2c 31 2c  |142,600,1,1,1,1,|
00001f50  22 65 79 65 34 22 29 0d  01 31 0f f2 70 61 75 73  |"eye4")..1..paus|
00001f60  65 28 31 30 30 29 0d 01  32 28 f2 70 6c 6f 74 5f  |e(100)..2(.plot_|
00001f70  73 70 72 69 74 65 28 32  30 30 2c 36 30 30 2c 31  |sprite(200,600,1|
00001f80  2c 31 2c 31 2c 31 2c 22  65 79 65 35 22 29 0d 01  |,1,1,1,"eye5")..|
00001f90  33 2c f2 70 6c 6f 74 5f  73 70 72 69 74 65 28 32  |3,.plot_sprite(2|
00001fa0  30 30 2b 31 34 32 2c 36  30 30 2c 31 2c 31 2c 31  |00+142,600,1,1,1|
00001fb0  2c 31 2c 22 65 79 65 35  22 29 0d 01 34 0f f2 70  |,1,"eye5")..4..p|
00001fc0  61 75 73 65 28 31 30 30  29 0d 01 35 28 f2 70 6c  |ause(100)..5(.pl|
00001fd0  6f 74 5f 73 70 72 69 74  65 28 32 30 30 2c 36 30  |ot_sprite(200,60|
00001fe0  30 2c 31 2c 31 2c 31 2c  31 2c 22 65 79 65 34 22  |0,1,1,1,1,"eye4"|
00001ff0  29 0d 01 36 2c f2 70 6c  6f 74 5f 73 70 72 69 74  |)..6,.plot_sprit|
00002000  65 28 32 30 30 2b 31 34  32 2c 36 30 30 2c 31 2c  |e(200+142,600,1,|
00002010  31 2c 31 2c 31 2c 22 65  79 65 34 22 29 0d 01 37  |1,1,1,"eye4")..7|
00002020  0f f2 70 61 75 73 65 28  31 30 30 29 0d 01 38 28  |..pause(100)..8(|
00002030  f2 70 6c 6f 74 5f 73 70  72 69 74 65 28 32 30 30  |.plot_sprite(200|
00002040  2c 36 30 30 2c 31 2c 31  2c 31 2c 31 2c 22 65 79  |,600,1,1,1,1,"ey|
00002050  65 36 22 29 0d 01 39 2c  f2 70 6c 6f 74 5f 73 70  |e6")..9,.plot_sp|
00002060  72 69 74 65 28 32 30 30  2b 31 34 32 2c 36 30 30  |rite(200+142,600|
00002070  2c 31 2c 31 2c 31 2c 31  2c 22 65 79 65 36 22 29  |,1,1,1,1,"eye6")|
00002080  0d 01 3a 0f f2 70 61 75  73 65 28 31 30 30 29 0d  |..:..pause(100).|
00002090  01 3b 28 f2 70 6c 6f 74  5f 73 70 72 69 74 65 28  |.;(.plot_sprite(|
000020a0  32 30 30 2c 36 30 30 2c  31 2c 31 2c 31 2c 31 2c  |200,600,1,1,1,1,|
000020b0  22 65 79 65 34 22 29 0d  01 3c 2c f2 70 6c 6f 74  |"eye4")..<,.plot|
000020c0  5f 73 70 72 69 74 65 28  32 30 30 2b 31 34 32 2c  |_sprite(200+142,|
000020d0  36 30 30 2c 31 2c 31 2c  31 2c 31 2c 22 65 79 65  |600,1,1,1,1,"eye|
000020e0  34 22 29 0d 01 3d 0f f2  70 61 75 73 65 28 31 30  |4")..=..pause(10|
000020f0  30 29 0d 01 3e 28 f2 70  6c 6f 74 5f 73 70 72 69  |0)..>(.plot_spri|
00002100  74 65 28 32 30 30 2c 36  30 30 2c 31 2c 31 2c 31  |te(200,600,1,1,1|
00002110  2c 31 2c 22 65 79 65 36  22 29 0d 01 3f 2c f2 70  |,1,"eye6")..?,.p|
00002120  6c 6f 74 5f 73 70 72 69  74 65 28 32 30 30 2b 31  |lot_sprite(200+1|
00002130  34 32 2c 36 30 30 2c 31  2c 31 2c 31 2c 31 2c 22  |42,600,1,1,1,1,"|
00002140  65 79 65 36 22 29 0d 01  40 0f f2 70 61 75 73 65  |eye6")..@..pause|
00002150  28 31 30 30 29 0d 01 41  28 f2 70 6c 6f 74 5f 73  |(100)..A(.plot_s|
00002160  70 72 69 74 65 28 32 30  30 2c 36 30 30 2c 31 2c  |prite(200,600,1,|
00002170  31 2c 31 2c 31 2c 22 65  79 65 37 22 29 0d 01 42  |1,1,1,"eye7")..B|
00002180  2c f2 70 6c 6f 74 5f 73  70 72 69 74 65 28 32 30  |,.plot_sprite(20|
00002190  30 2b 31 34 32 2c 36 30  30 2c 31 2c 31 2c 31 2c  |0+142,600,1,1,1,|
000021a0  31 2c 22 65 79 65 37 22  29 0d 01 43 0f f2 70 61  |1,"eye7")..C..pa|
000021b0  75 73 65 28 31 30 30 29  0d 01 44 15 e3 66 25 3d  |use(100)..D..f%=|
000021c0  32 30 34 20 b8 20 33 30  30 20 88 20 34 0d 01 45  |204 . 300 . 4..E|
000021d0  0d f2 73 74 5f 70 61 75  73 65 0d 01 46 27 f2 70  |..st_pause..F'.p|
000021e0  6c 6f 74 5f 73 70 72 69  74 65 28 66 25 2c 36 30  |lot_sprite(f%,60|
000021f0  30 2c 31 2c 31 2c 31 2c  31 2c 22 65 79 65 37 22  |0,1,1,1,1,"eye7"|
00002200  29 0d 01 47 2b f2 70 6c  6f 74 5f 73 70 72 69 74  |)..G+.plot_sprit|
00002210  65 28 66 25 2b 31 34 32  2c 36 30 30 2c 31 2c 31  |e(f%+142,600,1,1|
00002220  2c 31 2c 31 2c 22 65 79  65 37 22 29 0d 01 48 0f  |,1,1,"eye7")..H.|
00002230  74 6f 67 25 3d 74 6f 67  25 2b 31 0d 01 49 10 f2  |tog%=tog%+1..I..|
00002240  65 6e 5f 70 61 75 73 65  28 32 29 0d 01 4a 05 ed  |en_pause(2)..J..|
00002250  0d 01 4b 28 f2 70 6c 6f  74 5f 73 70 72 69 74 65  |..K(.plot_sprite|
00002260  28 33 30 30 2c 36 30 30  2c 31 2c 31 2c 31 2c 31  |(300,600,1,1,1,1|
00002270  2c 22 65 79 65 38 22 29  0d 01 4c 2c f2 70 6c 6f  |,"eye8")..L,.plo|
00002280  74 5f 73 70 72 69 74 65  28 33 30 30 2b 31 34 32  |t_sprite(300+142|
00002290  2c 36 30 30 2c 31 2c 31  2c 31 2c 31 2c 22 65 79  |,600,1,1,1,1,"ey|
000022a0  65 38 22 29 0d 01 4d 10  d4 20 31 2c 26 31 37 46  |e8")..M.. 1,&17F|
000022b0  2c 31 2c 31 0d 01 4e 0f  f2 70 61 75 73 65 28 31  |,1,1..N..pause(1|
000022c0  30 30 29 0d 01 4f 1b f2  63 61 63 68 65 73 6f 75  |00)..O..cachesou|
000022d0  6e 64 28 22 61 61 61 72  68 32 22 2c 31 29 0d 01  |nd("aaarh2",1)..|
000022e0  50 10 d4 20 31 2c 26 31  37 46 2c 31 2c 31 0d 01  |P.. 1,&17F,1,1..|
000022f0  51 0f f2 70 61 75 73 65  28 31 30 30 29 0d 01 52  |Q..pause(100)..R|
00002300  0c 2a 66 78 31 31 32 2c  32 0d 01 53 0b fb 20 31  |.*fx112,2..S.. 1|
00002310  33 31 3a db 0d 01 54 58  f2 74 65 78 74 5f 62 6f  |31:...TX.text_bo|
00002320  78 28 33 34 30 2c 34 30  30 2c 36 30 30 2c 32 35  |x(340,400,600,25|
00002330  30 2c 32 2c 22 57 68 65  6e 20 79 6f 75 20 77 61  |0,2,"When you wa|
00002340  6b 65 20 75 70 2c 22 2c  22 79 6f 75 20 61 72 65  |ke up,","you are|
00002350  20 73 6f 6d 65 77 68 65  72 65 22 2c 22 76 65 72  | somewhere","ver|
00002360  79 20 73 74 72 61 6e 67  65 2e 22 29 0d 01 55 0c  |y strange.")..U.|
00002370  2a 66 78 31 31 32 2c 31  0d 01 56 10 66 61 64 65  |*fx112,1..V.fade|
00002380  24 3d 22 66 61 64 65 22  0d 01 57 18 f2 66 61 64  |$="fade"..W..fad|
00002390  65 28 30 2c 39 36 30 2c  34 2c 30 2c 31 2c 31 29  |e(0,960,4,0,1,1)|
000023a0  0d 01 58 17 f2 73 70 61  63 65 28 39 30 30 2c 31  |..X..space(900,1|
000023b0  30 30 2c 30 2c 30 29 0d  01 59 0c 2a 66 78 31 31  |00,0,0)..Y.*fx11|
000023c0  32 2c 32 0d 01 5a 0b fb  20 31 33 31 3a db 0d 01  |2,2..Z.. 131:...|
000023d0  5b 2c e7 56 25 3d 30 20  ef 32 34 2c 30 3b 39 36  |[,.V%=0 .24,0;96|
000023e0  30 3b 31 32 37 38 3b 31  30 32 32 3b 31 38 2c 30  |0;1278;1022;18,0|
000023f0  2c 31 33 31 2c 31 36 2c  32 36 0d 01 5c 11 78 78  |,131,16,26..\.xx|
00002400  25 3d 36 34 3a 79 79 25  3d 38 38 0d 01 5d 30 f2  |%=64:yy%=88..]0.|
00002410  70 6c 6f 74 5f 73 70 72  69 74 65 5f 62 61 63 6b  |plot_sprite_back|
00002420  28 78 78 25 2c 79 79 25  2c 31 2c 31 2c 31 2c 31  |(xx%,yy%,1,1,1,1|
00002430  2c 22 73 63 72 65 65 6e  33 22 29 0d 01 5e 0c 2a  |,"screen3")..^.*|
00002440  66 78 31 31 32 2c 31 0d  01 5f 10 66 61 64 65 24  |fx112,1.._.fade$|
00002450  3d 22 66 61 64 65 22 0d  01 60 18 f2 66 61 64 65  |="fade"..`..fade|
00002460  28 30 2c 39 36 30 2c 34  2c 30 2c 31 2c 31 29 0d  |(0,960,4,0,1,1).|
00002470  01 61 0e f2 70 61 75 73  65 28 36 30 29 0d 01 62  |.a..pause(60)..b|
00002480  1f f2 63 61 63 68 65 73  6f 75 6e 64 28 22 69 6e  |..cachesound("in|
00002490  73 69 64 65 5f 75 66 6f  22 2c 31 29 0d 01 63 4c  |side_ufo",1)..cL|
000024a0  f2 74 65 78 74 5f 62 6f  78 28 38 30 30 2c 34 35  |.text_box(800,45|
000024b0  30 2c 34 34 30 2c 31 39  30 2c 32 2c 22 59 6f 75  |0,440,190,2,"You|
000024c0  20 61 72 65 20 69 6e 73  69 64 65 20 61 6e 22 2c  | are inside an",|
000024d0  22 61 6c 69 65 6e 20 73  70 61 63 65 20 63 72 61  |"alien space cra|
000024e0  66 74 21 22 2c 22 22 29  0d 01 64 17 f2 73 70 61  |ft!","")..d..spa|
000024f0  63 65 28 39 30 30 2c 31  30 30 2c 31 2c 30 29 0d  |ce(900,100,1,0).|
00002500  01 65 05 e1 0d 01 66 11  dd f2 62 72 69 65 66 5f  |.e....f...brief_|
00002510  69 6e 74 72 6f 0d 01 67  0c 2a 46 58 31 31 32 2c  |intro..g.*FX112,|
00002520  31 0d 01 68 0b fb 20 31  33 31 3a db 0d 01 69 1e  |1..h.. 131:...i.|
00002530  f2 63 61 63 68 65 73 6f  75 6e 64 28 22 69 6e 76  |.cachesound("inv|
00002540  61 64 69 6e 67 32 22 2c  31 29 0d 01 6a 2c e7 56  |ading2",1)..j,.V|
00002550  25 3d 30 20 ef 32 34 2c  30 3b 39 36 30 3b 31 32  |%=0 .24,0;960;12|
00002560  37 38 3b 31 30 32 32 3b  31 38 2c 30 2c 31 33 31  |78;1022;18,0,131|
00002570  2c 31 36 2c 32 36 0d 01  6b 2a e6 30 2c 37 3a e3  |,16,26..k*.0,7:.|
00002580  66 25 3d 31 20 b8 20 32  30 30 30 3a f0 36 39 2c  |f%=1 . 2000:.69,|
00002590  b3 28 31 32 38 30 29 2c  b3 28 39 35 30 29 3a ed  |.(1280),.(950):.|
000025a0  0d 01 6c 2f 42 25 3d 73  63 72 65 65 6e 5f 6f 6e  |..l/B%=screen_on|
000025b0  65 25 3a 43 25 3d 73 63  72 65 65 6e 5f 74 77 6f  |e%:C%=screen_two|
000025c0  25 3a d6 73 61 76 65 5f  73 63 72 65 65 6e 25 0d  |%:.save_screen%.|
000025d0  01 6d 67 f2 74 65 78 74  5f 62 6f 78 28 31 30 30  |.mg.text_box(100|
000025e0  2c 36 30 30 2c 31 30 38  30 2c 31 37 30 2c 32 2c  |,600,1080,170,2,|
000025f0  22 41 20 73 70 65 63 69  61 6c 20 67 72 6f 75 70  |"A special group|
00002600  20 68 61 73 20 62 65 65  6e 20 73 65 74 20 75 70  | has been set up|
00002610  22 2c 22 74 6f 20 64 65  61 6c 20 77 69 74 68 20  |","to deal with |
00002620  74 68 65 20 54 61 62 6c  65 20 41 6c 69 65 6e 73  |the Table Aliens|
00002630  2e 22 2c 22 22 29 0d 01  6e 17 f2 73 70 61 63 65  |.","")..n..space|
00002640  28 39 30 30 2c 31 30 30  2c 31 2c 30 29 0d 01 6f  |(900,100,1,0)..o|
00002650  53 f2 74 65 78 74 5f 62  6f 78 28 31 30 30 2c 34  |S.text_box(100,4|
00002660  30 30 2c 37 30 30 2c 31  37 30 2c 32 2c 22 59 6f  |00,700,170,2,"Yo|
00002670  75 20 61 72 65 20 61 20  6e 65 77 20 6d 65 6d 62  |u are a new memb|
00002680  65 72 22 2c 22 6f 66 20  74 68 69 73 20 73 70 65  |er","of this spe|
00002690  63 69 61 6c 20 67 72 6f  75 70 2e 22 2c 22 22 29  |cial group.","")|
000026a0  0d 01 70 59 e7 51 25 3c  3e 34 30 20 f2 70 6c 6f  |..pY.Q%<>40 .plo|
000026b0  74 5f 73 70 72 69 74 65  28 39 32 30 2c 33 33 30  |t_sprite(920,330|
000026c0  2c 31 2c 31 2c 31 2c 31  2c 22 6d 61 6e 37 22 29  |,1,1,1,1,"man7")|
000026d0  20 20 8b 20 f2 70 6c 6f  74 5f 73 70 72 69 74 65  |  . .plot_sprite|
000026e0  28 39 32 30 2c 33 33 30  2c 31 2c 31 2c 31 2c 31  |(920,330,1,1,1,1|
000026f0  2c 22 6d 61 6e 37 37 22  29 0d 01 71 17 f2 73 70  |,"man77")..q..sp|
00002700  61 63 65 28 39 30 30 2c  31 30 30 2c 31 2c 30 29  |ace(900,100,1,0)|
00002710  0d 01 72 05 e1 0d 01 73  0c dd f2 70 6f 6c 69 63  |..r....s...polic|
00002720  65 0d 01 74 1a f2 6c 6f  61 64 5f 73 70 72 69 74  |e..t..load_sprit|
00002730  65 73 28 22 63 6f 6d 70  75 22 29 0d 01 75 1d f2  |es("compu")..u..|
00002740  6d 65 72 67 65 5f 73 70  72 69 74 65 73 28 22 62  |merge_sprites("b|
00002750  75 74 74 6f 6e 73 22 29  0d 01 76 0c 2a 46 58 31  |uttons")..v.*FX1|
00002760  31 32 2c 31 0d 01 77 0c  f2 70 6c 61 74 65 73 32  |12,1..w..plates2|
00002770  0d 01 78 2c e7 56 25 3d  30 20 ef 32 34 2c 30 3b  |..x,.V%=0 .24,0;|
00002780  39 36 30 3b 31 32 37 38  3b 31 30 32 32 3b 31 38  |960;1278;1022;18|
00002790  2c 30 2c 31 33 31 2c 31  36 2c 32 36 0d 01 79 0c  |,0,131,16,26..y.|
000027a0  2a 46 58 31 31 32 2c 32  0d 01 7a 0c f2 70 6c 61  |*FX112,2..z..pla|
000027b0  74 65 73 32 0d 01 7b 2c  e7 56 25 3d 30 20 ef 32  |tes2..{,.V%=0 .2|
000027c0  34 2c 30 3b 39 36 30 3b  31 32 37 38 3b 31 30 32  |4,0;960;1278;102|
000027d0  32 3b 31 38 2c 30 2c 31  33 31 2c 31 36 2c 32 36  |2;18,0,131,16,26|
000027e0  0d 01 7c 23 ef 32 34 2c  30 3b 30 3b 31 32 37 38  |..|#.24,0;0;1278|
000027f0  3b 34 30 30 3b 31 38 2c  30 2c 31 32 38 2c 31 36  |;400;18,0,128,16|
00002800  2c 32 36 0d 01 7d 0c 2a  66 78 31 31 32 2c 31 0d  |,26..}.*fx112,1.|
00002810  01 7e 5f f2 74 65 78 74  5f 62 6f 78 28 37 39 30  |.~_.text_box(790|
00002820  2c 36 38 30 2c 34 36 30  2c 32 35 30 2c 32 2c 22  |,680,460,250,2,"|
00002830  41 20 73 70 65 63 69 61  6c 20 67 72 6f 75 70 20  |A special group |
00002840  68 61 73 22 2c 22 62 65  65 6e 20 73 65 74 20 75  |has","been set u|
00002850  70 20 74 6f 20 64 65 61  6c 22 2c 22 77 69 74 68  |p to deal","with|
00002860  20 74 68 65 20 61 6c 69  65 6e 73 2e 22 29 0d 01  | the aliens.")..|
00002870  7f 2f 42 25 3d 73 63 72  65 65 6e 5f 6f 6e 65 25  |./B%=screen_one%|
00002880  3a 43 25 3d 73 63 72 65  65 6e 5f 74 77 6f 25 3a  |:C%=screen_two%:|
00002890  d6 73 61 76 65 5f 73 63  72 65 65 6e 25 0d 01 80  |.save_screen%...|
000028a0  11 78 78 25 3d 36 34 3a  79 79 25 3d 38 38 0d 01  |.xx%=64:yy%=88..|
000028b0  81 1e f2 63 61 63 68 65  73 6f 75 6e 64 28 22 63  |...cachesound("c|
000028c0  6f 6d 70 75 74 65 72 31  22 2c 31 29 0d 01 82 2f  |omputer1",1).../|
000028d0  f2 70 6c 6f 74 5f 73 70  72 69 74 65 5f 62 61 63  |.plot_sprite_bac|
000028e0  6b 28 78 78 25 2c 79 79  25 2c 31 2c 31 2c 31 2c  |k(xx%,yy%,1,1,1,|
000028f0  31 2c 22 73 63 72 65 65  6e 22 29 0d 01 83 36 f2  |1,"screen")...6.|
00002900  70 6c 6f 74 5f 73 70 72  69 74 65 5f 6d 61 73 6b  |plot_sprite_mask|
00002910  65 64 28 78 78 25 2b 36  34 2c 79 79 25 2b 31 33  |ed(xx%+64,yy%+13|
00002920  34 2c 31 2c 31 2c 31 2c  31 2c 22 6d 61 6e 37 22  |4,1,1,1,1,"man7"|
00002930  29 0d 01 84 40 f2 70 6c  6f 74 5f 73 70 72 69 74  |)...@.plot_sprit|
00002940  65 5f 6d 61 73 6b 65 64  28 78 78 25 2b 36 34 2b  |e_masked(xx%+64+|
00002950  31 34 32 2c 79 79 25 2b  31 33 34 2b 31 37 36 2c  |142,yy%+134+176,|
00002960  31 2c 31 2c 31 2c 31 2c  22 72 69 67 68 74 61 22  |1,1,1,1,"righta"|
00002970  29 0d 01 85 3d f2 70 6c  6f 74 5f 73 70 72 69 74  |)...=.plot_sprit|
00002980  65 5f 6d 61 73 6b 65 64  28 78 78 25 2b 36 34 2b  |e_masked(xx%+64+|
00002990  30 2c 79 79 25 2b 31 33  34 2b 31 37 32 2c 31 2c  |0,yy%+134+172,1,|
000029a0  31 2c 31 2c 31 2c 22 6c  65 66 74 61 22 29 0d 01  |1,1,1,"lefta")..|
000029b0  86 38 f2 70 6c 6f 74 5f  73 70 72 69 74 65 28 78  |.8.plot_sprite(x|
000029c0  78 25 2b 36 34 2b 31 32  30 2c 79 79 25 2b 31 33  |x%+64+120,yy%+13|
000029d0  34 2b 33 32 30 2c 31 2c  31 2c 31 2c 31 2c 22 62  |4+320,1,1,1,1,"b|
000029e0  61 64 67 65 22 29 0d 01  87 0c 2a 66 78 31 31 32  |adge")....*fx112|
000029f0  2c 32 0d 01 88 2f f2 70  6c 6f 74 5f 73 70 72 69  |,2.../.plot_spri|
00002a00  74 65 5f 62 61 63 6b 28  78 78 25 2c 79 79 25 2c  |te_back(xx%,yy%,|
00002a10  31 2c 31 2c 31 2c 31 2c  22 73 63 72 65 65 6e 22  |1,1,1,1,"screen"|
00002a20  29 0d 01 89 36 f2 70 6c  6f 74 5f 73 70 72 69 74  |)...6.plot_sprit|
00002a30  65 5f 6d 61 73 6b 65 64  28 78 78 25 2b 36 34 2c  |e_masked(xx%+64,|
00002a40  79 79 25 2b 31 33 34 2c  31 2c 31 2c 31 2c 31 2c  |yy%+134,1,1,1,1,|
00002a50  22 6d 61 6e 37 22 29 0d  01 8a 3d f2 70 6c 6f 74  |"man7")...=.plot|
00002a60  5f 73 70 72 69 74 65 5f  6d 61 73 6b 65 64 28 78  |_sprite_masked(x|
00002a70  78 25 2b 36 34 2b 31 30  2c 79 79 25 2b 31 33 34  |x%+64+10,yy%+134|
00002a80  2b 31 38 34 2c 31 2c 31  2c 31 2c 31 2c 22 6d 61  |+184,1,1,1,1,"ma|
00002a90  6e 35 22 29 0d 01 8b 38  f2 70 6c 6f 74 5f 73 70  |n5")...8.plot_sp|
00002aa0  72 69 74 65 28 78 78 25  2b 36 34 2b 31 32 30 2c  |rite(xx%+64+120,|
00002ab0  79 79 25 2b 31 33 34 2b  33 32 30 2c 31 2c 31 2c  |yy%+134+320,1,1,|
00002ac0  31 2c 31 2c 22 62 61 64  67 65 22 29 0d 01 8c 2b  |1,1,"badge")...+|
00002ad0  f2 70 6c 6f 74 5f 73 70  72 69 74 65 28 33 35 38  |.plot_sprite(358|
00002ae0  2c 36 33 36 2c 31 2c 31  2c 31 2c 31 2c 22 73 63  |,636,1,1,1,1,"sc|
00002af0  72 65 65 6e 61 22 29 0d  01 8d 32 e7 20 51 25 3d  |reena")...2. Q%=|
00002b00  31 20 f2 70 6c 6f 74 5f  73 70 72 69 74 65 28 33  |1 .plot_sprite(3|
00002b10  35 38 2c 36 33 36 2c 31  2c 31 2c 31 2c 31 2c 22  |58,636,1,1,1,1,"|
00002b20  73 63 72 65 65 6e 62 22  29 0d 01 8e 0c 2a 66 78  |screenb")....*fx|
00002b30  31 31 32 2c 31 0d 01 8f  16 f2 73 70 61 63 65 28  |112,1.....space(|
00002b40  39 30 30 2c 38 30 2c 30  2c 30 29 0d 01 90 1f ef  |900,80,0,0).....|
00002b50  20 32 34 2c 33 35 38 3b  36 33 36 3b 35 30 34 3b  | 24,358;636;504;|
00002b60  37 35 36 3b 31 38 2c 30  2c 35 0d 01 91 15 e3 66  |756;18,0,5.....f|
00002b70  25 3d 36 34 32 20 b8 20  37 35 34 20 88 20 38 0d  |%=642 . 754 . 8.|
00002b80  01 92 1d e7 20 a4 6e 6f  73 6f 75 6e 64 3d b9 3a  |.... .nosound=.:|
00002b90  d4 20 31 2c 26 31 37 46  2c 31 2c 31 0d 01 93 19  |. 1,&17F,1,1....|
00002ba0  f0 20 34 2c 33 36 30 2c  66 25 3a f0 20 35 2c 35  |. 4,360,f%:. 5,5|
00002bb0  30 38 2c 66 25 0d 01 94  0d f2 70 61 75 73 65 28  |08,f%.....pause(|
00002bc0  34 29 0d 01 95 05 ed 0d  01 96 15 e3 66 25 3d 33  |4)..........f%=3|
00002bd0  36 30 20 b8 20 35 30 38  20 88 20 38 0d 01 97 1d  |60 . 508 . 8....|
00002be0  e7 20 a4 6e 6f 73 6f 75  6e 64 3d b9 3a d4 20 31  |. .nosound=.:. 1|
00002bf0  2c 26 31 37 46 2c 31 2c  31 0d 01 98 19 f0 20 34  |,&17F,1,1..... 4|
00002c00  2c 66 25 2c 36 34 32 3a  f0 20 35 2c 66 25 2c 37  |,f%,642:. 5,f%,7|
00002c10  35 34 0d 01 99 0d f2 70  61 75 73 65 28 34 29 0d  |54.....pause(4).|
00002c20  01 9a 05 ed 0d 01 9b 0f  f2 70 61 75 73 65 28 31  |.........pause(1|
00002c30  30 30 29 0d 01 9c 2b f2  70 6c 6f 74 5f 73 70 72  |00)...+.plot_spr|
00002c40  69 74 65 28 33 35 38 2c  36 33 36 2c 31 2c 31 2c  |ite(358,636,1,1,|
00002c50  31 2c 31 2c 22 73 63 72  65 65 6e 61 22 29 0d 01  |1,1,"screena")..|
00002c60  9d 0f f2 70 61 75 73 65  28 33 30 30 29 0d 01 9e  |...pause(300)...|
00002c70  0b e7 51 25 3d 31 20 8c  0d 01 9f 08 e6 30 2c 33  |..Q%=1 ......0,3|
00002c80  0d 01 a0 15 e3 66 25 3d  36 34 34 20 b8 20 37 35  |.....f%=644 . 75|
00002c90  36 20 88 20 38 0d 01 a1  1d e7 20 a4 6e 6f 73 6f  |6 . 8..... .noso|
00002ca0  75 6e 64 3d b9 3a d4 20  31 2c 26 31 37 46 2c 31  |und=.:. 1,&17F,1|
00002cb0  2c 31 0d 01 a2 19 f0 20  34 2c 33 36 30 2c 66 25  |,1..... 4,360,f%|
00002cc0  3a f0 20 35 2c 35 30 38  2c 66 25 0d 01 a3 0d f2  |:. 5,508,f%.....|
00002cd0  70 61 75 73 65 28 34 29  0d 01 a4 05 ed 0d 01 a5  |pause(4)........|
00002ce0  15 e3 66 25 3d 33 36 30  20 b8 20 35 30 38 20 88  |..f%=360 . 508 .|
00002cf0  20 38 0d 01 a6 1d e7 20  a4 6e 6f 73 6f 75 6e 64  | 8..... .nosound|
00002d00  3d b9 3a d4 20 31 2c 26  31 37 46 2c 31 2c 31 0d  |=.:. 1,&17F,1,1.|
00002d10  01 a7 19 f0 20 34 2c 66  25 2c 36 34 34 3a f0 20  |.... 4,f%,644:. |
00002d20  35 2c 66 25 2c 37 35 36  0d 01 a8 0d f2 70 61 75  |5,f%,756.....pau|
00002d30  73 65 28 34 29 0d 01 a9  05 ed 0d 01 aa 2b f2 70  |se(4)........+.p|
00002d40  6c 6f 74 5f 73 70 72 69  74 65 28 33 35 38 2c 36  |lot_sprite(358,6|
00002d50  33 36 2c 31 2c 31 2c 31  2c 31 2c 22 73 63 72 65  |36,1,1,1,1,"scre|
00002d60  65 6e 62 22 29 0d 01 ab  0f f2 70 61 75 73 65 28  |enb").....pause(|
00002d70  31 30 30 29 0d 01 ac 05  cd 0d 01 ad 2f 43 25 3d  |100)......../C%=|
00002d80  73 63 72 65 65 6e 5f 6f  6e 65 25 3a 42 25 3d 73  |screen_one%:B%=s|
00002d90  63 72 65 65 6e 5f 74 77  6f 25 3a d6 73 61 76 65  |creen_two%:.save|
00002da0  5f 73 63 72 65 65 6e 25  0d 01 ae 0f f2 70 61 75  |_screen%.....pau|
00002db0  73 65 28 32 30 30 29 0d  01 af 0c 2a 66 78 31 31  |se(200)....*fx11|
00002dc0  32 2c 32 0d 01 b0 2f f2  70 6c 6f 74 5f 73 70 72  |2,2.../.plot_spr|
00002dd0  69 74 65 5f 62 61 63 6b  28 78 78 25 2c 79 79 25  |ite_back(xx%,yy%|
00002de0  2c 31 2c 31 2c 31 2c 31  2c 22 73 63 72 65 65 6e  |,1,1,1,1,"screen|
00002df0  22 29 0d 01 b1 2b f2 70  6c 6f 74 5f 73 70 72 69  |")...+.plot_spri|
00002e00  74 65 28 33 35 38 2c 36  33 36 2c 31 2c 31 2c 31  |te(358,636,1,1,1|
00002e10  2c 31 2c 22 73 63 72 65  65 6e 61 22 29 0d 01 b2  |,1,"screena")...|
00002e20  32 e7 20 51 25 3d 31 20  f2 70 6c 6f 74 5f 73 70  |2. Q%=1 .plot_sp|
00002e30  72 69 74 65 28 33 35 38  2c 36 33 36 2c 31 2c 31  |rite(358,636,1,1|
00002e40  2c 31 2c 31 2c 22 73 63  72 65 65 6e 62 22 29 0d  |,1,1,"screenb").|
00002e50  01 b3 36 f2 70 6c 6f 74  5f 73 70 72 69 74 65 5f  |..6.plot_sprite_|
00002e60  6d 61 73 6b 65 64 28 78  78 25 2b 36 34 2c 79 79  |masked(xx%+64,yy|
00002e70  25 2b 31 33 34 2c 31 2c  31 2c 31 2c 31 2c 22 6d  |%+134,1,1,1,1,"m|
00002e80  61 6e 37 22 29 0d 01 b4  3d f2 70 6c 6f 74 5f 73  |an7")...=.plot_s|
00002e90  70 72 69 74 65 5f 6d 61  73 6b 65 64 28 78 78 25  |prite_masked(xx%|
00002ea0  2b 36 34 2b 30 2c 79 79  25 2b 31 33 34 2b 31 37  |+64+0,yy%+134+17|
00002eb0  32 2c 31 2c 31 2c 31 2c  31 2c 22 6c 65 66 74 61  |2,1,1,1,1,"lefta|
00002ec0  22 29 0d 01 b5 3e f2 70  6c 6f 74 5f 73 70 72 69  |")...>.plot_spri|
00002ed0  74 65 5f 6d 61 73 6b 65  64 28 78 78 25 2b 36 34  |te_masked(xx%+64|
00002ee0  2b 31 34 32 2c 79 79 25  2b 31 33 34 2b 32 35 30  |+142,yy%+134+250|
00002ef0  2c 31 2c 31 2c 31 2c 31  2c 22 68 61 6e 64 22 29  |,1,1,1,1,"hand")|
00002f00  0d 01 b6 38 f2 70 6c 6f  74 5f 73 70 72 69 74 65  |...8.plot_sprite|
00002f10  28 78 78 25 2b 36 34 2b  31 32 30 2c 79 79 25 2b  |(xx%+64+120,yy%+|
00002f20  31 33 34 2b 33 32 30 2c  31 2c 31 2c 31 2c 31 2c  |134+320,1,1,1,1,|
00002f30  22 62 61 64 67 65 22 29  0d 01 b7 2f 43 25 3d 73  |"badge").../C%=s|
00002f40  63 72 65 65 6e 5f 6f 6e  65 25 3a 42 25 3d 73 63  |creen_one%:B%=sc|
00002f50  72 65 65 6e 5f 74 77 6f  25 3a d6 73 61 76 65 5f  |reen_two%:.save_|
00002f60  73 63 72 65 65 6e 25 0d  01 b8 0c 2a 66 78 31 31  |screen%....*fx11|
00002f70  32 2c 31 0d 01 b9 0f f2  70 61 75 73 65 28 31 30  |2,1.....pause(10|
00002f80  30 29 0d 01 ba 3e f2 70  6c 6f 74 5f 73 70 72 69  |0)...>.plot_spri|
00002f90  74 65 5f 6d 61 73 6b 65  64 28 78 78 25 2b 36 34  |te_masked(xx%+64|
00002fa0  2b 34 34 2c 79 79 25 2b  31 33 34 2b 34 30 30 2c  |+44,yy%+134+400,|
00002fb0  31 2c 31 2c 31 2c 31 2c  22 68 65 61 64 32 22 29  |1,1,1,1,"head2")|
00002fc0  0d 01 bb 0f f2 70 61 75  73 65 28 31 30 30 29 0d  |.....pause(100).|
00002fd0  01 bc 3e f2 70 6c 6f 74  5f 73 70 72 69 74 65 5f  |..>.plot_sprite_|
00002fe0  6d 61 73 6b 65 64 28 78  78 25 2b 36 34 2b 34 34  |masked(xx%+64+44|
00002ff0  2c 79 79 25 2b 31 33 34  2b 34 30 30 2c 31 2c 31  |,yy%+134+400,1,1|
00003000  2c 31 2c 31 2c 22 68 65  61 64 33 22 29 0d 01 bd  |,1,1,"head3")...|
00003010  0f f2 70 61 75 73 65 28  31 30 30 29 0d 01 be 3e  |..pause(100)...>|
00003020  f2 70 6c 6f 74 5f 73 70  72 69 74 65 5f 6d 61 73  |.plot_sprite_mas|
00003030  6b 65 64 28 78 78 25 2b  36 34 2b 34 34 2c 79 79  |ked(xx%+64+44,yy|
00003040  25 2b 31 33 34 2b 34 30  30 2c 31 2c 31 2c 31 2c  |%+134+400,1,1,1,|
00003050  31 2c 22 68 65 61 64 34  22 29 0d 01 bf 0c 2a 66  |1,"head4")....*f|
00003060  78 31 31 32 2c 31 0d 01  c0 52 f2 74 65 78 74 5f  |x112,1...R.text_|
00003070  62 6f 78 28 37 39 30 2c  34 30 30 2c 34 36 30 2c  |box(790,400,460,|
00003080  32 35 30 2c 32 2c 22 54  68 65 79 20 61 72 65 20  |250,2,"They are |
00003090  61 6c 6c 22 2c 22 73 74  72 6f 6e 67 2c 20 62 72  |all","strong, br|
000030a0  61 76 65 20 61 6e 64 22  2c 22 76 65 72 79 20 63  |ave and","very c|
000030b0  6c 65 76 65 72 2e 22 29  0d 01 c1 2f 42 25 3d 73  |lever.").../B%=s|
000030c0  63 72 65 65 6e 5f 6f 6e  65 25 3a 43 25 3d 73 63  |creen_one%:C%=sc|
000030d0  72 65 65 6e 5f 74 77 6f  25 3a d6 73 61 76 65 5f  |reen_two%:.save_|
000030e0  73 63 72 65 65 6e 25 0d  01 c2 16 f2 73 70 61 63  |screen%.....spac|
000030f0  65 28 39 30 30 2c 38 30  2c 30 2c 30 29 0d 01 c3  |e(900,80,0,0)...|
00003100  0c 2a 66 78 31 31 32 2c  32 0d 01 c4 0c f2 70 6c  |.*fx112,2.....pl|
00003110  61 74 65 73 32 0d 01 c5  2c e7 56 25 3d 30 20 ef  |ates2...,.V%=0 .|
00003120  32 34 2c 30 3b 39 36 30  3b 31 32 37 38 3b 31 30  |24,0;960;1278;10|
00003130  32 32 3b 31 38 2c 30 2c  31 33 31 2c 31 36 2c 32  |22;18,0,131,16,2|
00003140  36 0d 01 c6 2f f2 70 6c  6f 74 5f 73 70 72 69 74  |6.../.plot_sprit|
00003150  65 5f 62 61 63 6b 28 78  78 25 2c 79 79 25 2c 31  |e_back(xx%,yy%,1|
00003160  2c 31 2c 31 2c 31 2c 22  73 63 72 65 65 6e 22 29  |,1,1,1,"screen")|
00003170  0d 01 c7 2b f2 70 6c 6f  74 5f 73 70 72 69 74 65  |...+.plot_sprite|
00003180  28 33 35 38 2c 36 33 36  2c 31 2c 31 2c 31 2c 31  |(358,636,1,1,1,1|
00003190  2c 22 73 63 72 65 65 6e  61 22 29 0d 01 c8 32 e7  |,"screena")...2.|
000031a0  20 51 25 3d 31 20 f2 70  6c 6f 74 5f 73 70 72 69  | Q%=1 .plot_spri|
000031b0  74 65 28 33 35 38 2c 36  33 36 2c 31 2c 31 2c 31  |te(358,636,1,1,1|
000031c0  2c 31 2c 22 73 63 72 65  65 6e 62 22 29 0d 01 c9  |,1,"screenb")...|
000031d0  36 f2 70 6c 6f 74 5f 73  70 72 69 74 65 5f 6d 61  |6.plot_sprite_ma|
000031e0  73 6b 65 64 28 78 78 25  2b 36 34 2c 79 79 25 2b  |sked(xx%+64,yy%+|
000031f0  31 33 34 2c 31 2c 31 2c  31 2c 31 2c 22 6d 61 6e  |134,1,1,1,1,"man|
00003200  37 22 29 0d 01 ca 3d f2  70 6c 6f 74 5f 73 70 72  |7")...=.plot_spr|
00003210  69 74 65 5f 6d 61 73 6b  65 64 28 78 78 25 2b 36  |ite_masked(xx%+6|
00003220  34 2b 30 2c 79 79 25 2b  31 33 34 2b 31 37 32 2c  |4+0,yy%+134+172,|
00003230  31 2c 31 2c 31 2c 31 2c  22 6c 65 66 74 61 22 29  |1,1,1,1,"lefta")|
00003240  0d 01 cb 3e f2 70 6c 6f  74 5f 73 70 72 69 74 65  |...>.plot_sprite|
00003250  5f 6d 61 73 6b 65 64 28  78 78 25 2b 36 34 2b 31  |_masked(xx%+64+1|
00003260  34 32 2c 79 79 25 2b 31  33 34 2b 32 35 30 2c 31  |42,yy%+134+250,1|
00003270  2c 31 2c 31 2c 31 2c 22  68 61 6e 64 22 29 0d 01  |,1,1,1,"hand")..|
00003280  cc 3e f2 70 6c 6f 74 5f  73 70 72 69 74 65 5f 6d  |.>.plot_sprite_m|
00003290  61 73 6b 65 64 28 78 78  25 2b 36 34 2b 34 34 2c  |asked(xx%+64+44,|
000032a0  79 79 25 2b 31 33 34 2b  34 30 30 2c 31 2c 31 2c  |yy%+134+400,1,1,|
000032b0  31 2c 31 2c 22 68 65 61  64 34 22 29 0d 01 cd 38  |1,1,"head4")...8|
000032c0  f2 70 6c 6f 74 5f 73 70  72 69 74 65 28 78 78 25  |.plot_sprite(xx%|
000032d0  2b 36 34 2b 31 32 30 2c  79 79 25 2b 31 33 34 2b  |+64+120,yy%+134+|
000032e0  33 32 30 2c 31 2c 31 2c  31 2c 31 2c 22 62 61 64  |320,1,1,1,1,"bad|
000032f0  67 65 22 29 0d 01 ce 3a  f2 70 6c 6f 74 5f 73 70  |ge")...:.plot_sp|
00003300  72 69 74 65 5f 6d 61 73  6b 65 64 28 78 78 25 2b  |rite_masked(xx%+|
00003310  36 34 2b 33 30 30 2c 79  79 25 2b 31 33 34 2c 31  |64+300,yy%+134,1|
00003320  2c 31 2c 31 2c 31 2c 22  6d 61 6e 37 22 29 0d 01  |,1,1,1,"man7")..|
00003330  cf 41 f2 70 6c 6f 74 5f  73 70 72 69 74 65 5f 6d  |.A.plot_sprite_m|
00003340  61 73 6b 65 64 28 78 78  25 2b 36 34 2b 30 2b 33  |asked(xx%+64+0+3|
00003350  30 30 2c 79 79 25 2b 31  33 34 2b 31 37 32 2c 31  |00,yy%+134+172,1|
00003360  2c 31 2c 31 2c 31 2c 22  6c 65 66 74 61 22 29 0d  |,1,1,1,"lefta").|
00003370  01 d0 42 f2 70 6c 6f 74  5f 73 70 72 69 74 65 5f  |..B.plot_sprite_|
00003380  6d 61 73 6b 65 64 28 78  78 25 2b 36 34 2b 31 34  |masked(xx%+64+14|
00003390  32 2b 33 30 30 2c 79 79  25 2b 31 33 34 2b 32 35  |2+300,yy%+134+25|
000033a0  30 2c 31 2c 31 2c 31 2c  31 2c 22 68 61 6e 64 22  |0,1,1,1,1,"hand"|
000033b0  29 0d 01 d1 0b e7 51 25  3d 31 20 8c 0d 01 d2 54  |).....Q%=1 ....T|
000033c0  f2 74 65 78 74 5f 62 6f  78 28 37 39 30 2c 36 38  |.text_box(790,68|
000033d0  30 2c 34 36 30 2c 32 35  30 2c 32 2c 22 59 6f 75  |0,460,250,2,"You|
000033e0  20 61 72 65 20 74 72 61  69 6e 69 6e 67 20 74 6f  | are training to|
000033f0  22 2c 22 62 65 20 61 20  6d 65 6d 62 65 72 20 6f  |","be a member o|
00003400  66 22 2c 22 74 68 69 73  20 74 65 61 6d 2e 22 29  |f","this team.")|
00003410  0d 01 d3 05 cd 0d 01 d4  0c e7 51 25 3d 32 30 20  |..........Q%=20 |
00003420  8c 0d 01 d5 3c f2 70 6c  6f 74 5f 73 70 72 69 74  |....<.plot_sprit|
00003430  65 28 78 78 25 2b 36 34  2b 31 32 30 2b 33 30 30  |e(xx%+64+120+300|
00003440  2c 79 79 25 2b 31 33 34  2b 33 32 30 2c 31 2c 31  |,yy%+134+320,1,1|
00003450  2c 31 2c 31 2c 22 62 61  64 67 65 22 29 0d 01 d6  |,1,1,"badge")...|
00003460  52 f2 74 65 78 74 5f 62  6f 78 28 38 30 30 2c 36  |R.text_box(800,6|
00003470  38 30 2c 34 34 30 2c 32  35 30 2c 32 2c 22 59 6f  |80,440,250,2,"Yo|
00003480  75 20 61 72 65 20 74 68  65 20 6c 61 74 65 73 74  |u are the latest|
00003490  22 2c 22 6d 65 6d 62 65  72 20 74 6f 20 6a 6f 69  |","member to joi|
000034a0  6e 20 74 68 65 22 2c 22  74 65 61 6d 2e 22 29 0d  |n the","team.").|
000034b0  01 d7 05 cd 0d 01 d8 10  66 61 64 65 24 3d 22 66  |........fade$="f|
000034c0  61 64 65 22 0d 01 d9 18  f2 66 61 64 65 28 30 2c  |ade".....fade(0,|
000034d0  39 36 30 2c 34 2c 30 2c  31 2c 31 29 0d 01 da 0c  |960,4,0,1,1)....|
000034e0  2a 66 78 31 31 32 2c 31  0d 01 db 0b e7 51 25 3d  |*fx112,1.....Q%=|
000034f0  31 20 8c 0d 01 dc 0f f2  70 61 75 73 65 28 31 33  |1 ......pause(13|
00003500  30 29 0d 01 dd 5c f2 74  65 78 74 5f 62 6f 78 28  |0)...\.text_box(|
00003510  37 39 30 2c 34 30 30 2c  34 36 30 2c 32 35 30 2c  |790,400,460,250,|
00003520  32 2c 22 59 6f 75 20 6d  75 73 74 20 67 61 69 6e  |2,"You must gain|
00003530  20 36 30 22 2c 22 70 6f  69 6e 74 73 20 6f 75 74  | 60","points out|
00003540  20 6f 66 20 31 30 30 22  2c 22 74 6f 20 70 61 73  | of 100","to pas|
00003550  73 20 74 68 69 73 20 74  65 73 74 2e 22 29 0d 01  |s this test.")..|
00003560  de 16 f2 73 70 61 63 65  28 39 30 30 2c 38 30 2c  |...space(900,80,|
00003570  30 2c 30 29 0d 01 df 18  ef 20 32 34 2c 37 38 30  |0,0)..... 24,780|
00003580  3b 30 3b 31 32 37 38 3b  39 35 36 3b 0d 01 e0 0c  |;0;1278;956;....|
00003590  f2 70 6c 61 74 65 73 32  0d 01 e1 07 ef 32 36 0d  |.plates2.....26.|
000035a0  01 e2 63 f2 74 65 78 74  5f 62 6f 78 28 37 39 30  |..c.text_box(790|
000035b0  2c 34 38 30 2c 34 36 30  2c 32 35 30 2c 32 2c 22  |,480,460,250,2,"|
000035c0  54 68 65 20 66 69 72 73  74 20 70 61 72 74 20 6f  |The first part o|
000035d0  66 20 74 68 65 22 2c 22  74 65 73 74 20 69 73 20  |f the","test is |
000035e0  74 6f 20 66 69 6c 6c 20  69 6e 20 61 6e 22 2c 22  |to fill in an","|
000035f0  61 6c 69 65 6e 20 63 6f  64 65 20 67 72 69 64 2e  |alien code grid.|
00003600  22 29 0d 01 e3 16 f2 73  70 61 63 65 28 39 30 30  |").....space(900|
00003610  2c 38 30 2c 30 2c 30 29  0d 01 e4 05 cd 0d 01 e5  |,80,0,0)........|
00003620  0c e7 51 25 3d 32 30 20  8c 0d 01 e6 17 f2 73 70  |..Q%=20 ......sp|
00003630  61 63 65 28 38 30 30 2c  36 30 30 2c 30 2c 30 29  |ace(800,600,0,0)|
00003640  0d 01 e7 32 f2 74 65 78  74 5f 62 6f 78 28 37 39  |...2.text_box(79|
00003650  30 2c 35 36 30 2c 34 36  30 2c 39 30 2c 32 2c 22  |0,560,460,90,2,"|
00003660  47 6f 6f 64 20 6c 75 63  6b 21 22 2c 22 22 2c 22  |Good luck!","","|
00003670  22 29 0d 01 e8 16 f2 73  70 61 63 65 28 39 30 30  |").....space(900|
00003680  2c 38 30 2c 30 2c 30 29  0d 01 e9 05 cd 0d 01 ea  |,80,0,0)........|
00003690  05 e1 0d 01 eb 0c dd f2  70 6c 61 74 65 73 0d 01  |........plates..|
000036a0  ec 17 e3 70 66 25 3d 30  20 b8 20 31 32 38 30 20  |...pf%=0 . 1280 |
000036b0  88 20 32 35 36 0d 01 ed  16 e3 70 79 25 3d 30 20  |. 256.....py%=0 |
000036c0  b8 20 39 36 31 20 88 20  31 39 32 0d 01 ee 28 f2  |. 961 . 192...(.|
000036d0  70 6c 6f 74 5f 73 70 72  69 74 65 28 70 66 25 2c  |plot_sprite(pf%,|
000036e0  70 79 25 2c 31 2c 31 2c  31 2c 31 2c 22 74 69 6e  |py%,1,1,1,1,"tin|
000036f0  31 22 29 0d 01 ef 07 ed  3a ed 0d 01 f0 05 e1 0d  |1").....:.......|
00003700  01 f1 0d dd f2 70 6c 61  74 65 73 32 0d 01 f2 17  |.....plates2....|
00003710  e3 70 66 25 3d 30 20 b8  20 31 32 38 30 20 88 20  |.pf%=0 . 1280 . |
00003720  31 32 38 0d 01 f3 15 e3  70 79 25 3d 30 20 b8 20  |128.....py%=0 . |
00003730  39 36 30 20 88 20 39 36  0d 01 f4 29 f2 70 6c 6f  |960 . 96...).plo|
00003740  74 5f 73 70 72 69 74 65  28 70 66 25 2c 70 79 25  |t_sprite(pf%,py%|
00003750  2c 31 2c 31 2c 31 2c 31  2c 22 70 6c 61 74 65 22  |,1,1,1,1,"plate"|
00003760  29 0d 01 f5 07 ed 3a ed  0d 01 f6 05 e1 0d 01 f7  |).....:.........|
00003770  0b dd f2 69 6e 74 72 6f  0d 01 f8 1c f2 6c 6f 61  |...intro.....loa|
00003780  64 5f 73 70 72 69 74 65  73 28 22 69 6e 74 72 6f  |d_sprites("intro|
00003790  32 33 22 29 0d 01 f9 1d  f2 6d 65 72 67 65 5f 73  |23").....merge_s|
000037a0  70 72 69 74 65 73 28 22  62 75 74 74 6f 6e 73 22  |prites("buttons"|
000037b0  29 0d 01 fa 0c 2a 46 58  31 31 32 2c 31 0d 01 fb  |)....*FX112,1...|
000037c0  05 db 0d 01 fc 2c e7 56  25 3d 30 20 ef 32 34 2c  |.....,.V%=0 .24,|
000037d0  30 3b 39 36 30 3b 31 32  37 38 3b 31 30 32 32 3b  |0;960;1278;1022;|
000037e0  31 38 2c 30 2c 31 33 31  2c 31 36 2c 32 36 0d 01  |18,0,131,16,26..|
000037f0  fd 0b f2 70 6c 61 74 65  73 0d 01 fe 0c 2a 46 58  |...plates....*FX|
00003800  31 31 32 2c 32 0d 01 ff  05 db 0d 02 00 2c e7 56  |112,2........,.V|
00003810  25 3d 30 20 ef 32 34 2c  30 3b 39 36 30 3b 31 32  |%=0 .24,0;960;12|
00003820  37 38 3b 31 30 32 32 3b  31 38 2c 30 2c 31 33 31  |78;1022;18,0,131|
00003830  2c 31 36 2c 32 36 0d 02  01 23 ef 32 34 2c 30 3b  |,16,26...#.24,0;|
00003840  30 3b 31 32 37 38 3b 34  30 30 3b 31 38 2c 30 2c  |0;1278;400;18,0,|
00003850  31 32 38 2c 31 36 2c 32  36 0d 02 02 0c 2a 66 78  |128,16,26....*fx|
00003860  31 31 32 2c 31 0d 02 03  0c 2a 46 58 31 31 32 2c  |112,1....*FX112,|
00003870  32 0d 02 04 0c e6 30 2c  31 33 31 3a da 0d 02 05  |2.....0,131:....|
00003880  08 e6 30 2c 37 0d 02 06  09 e7 20 b9 20 8c 0d 02  |..0,7..... . ...|
00003890  07 0f fb 20 37 2c 36 34  2c 36 34 2c 30 0d 02 08  |... 7,64,64,0...|
000038a0  10 e3 66 25 3d 31 20 b8  20 38 30 30 30 0d 02 09  |..f%=1 . 8000...|
000038b0  0b 61 25 3d b3 28 38 29  0d 02 0a 0e e7 61 25 3d  |.a%=.(8).....a%=|
000038c0  31 20 e6 30 2c 38 0d 02  0b 0e e7 61 25 3d 32 20  |1 .0,8.....a%=2 |
000038d0  e6 30 2c 30 0d 02 0c 0e  e7 61 25 3e 32 20 e6 30  |.0,0.....a%>2 .0|
000038e0  2c 37 0d 02 0d 16 f0 36  39 2c b3 28 31 32 38 30  |,7.....69,.(1280|
000038f0  29 2c b3 28 39 36 30 29  0d 02 0e 05 ed 0d 02 0f  |),.(960)........|
00003900  31 f2 70 6c 6f 74 5f 73  70 72 69 74 65 5f 6d 61  |1.plot_sprite_ma|
00003910  73 6b 65 64 28 34 37 30  2c 34 30 30 2c 31 2c 31  |sked(470,400,1,1|
00003920  2c 31 2c 31 2c 22 67 61  6c 61 78 79 22 29 0d 02  |,1,1,"galaxy")..|
00003930  10 0d 61 6e 5f 78 25 3d  34 37 30 0d 02 11 0d 62  |..an_x%=470....b|
00003940  79 74 65 73 25 3d 33 32  0d 02 12 0c 2a 66 78 31  |ytes%=32....*fx1|
00003950  31 32 2c 31 0d 02 13 1e  f2 63 61 63 68 65 73 6f  |12,1.....cacheso|
00003960  75 6e 64 28 22 69 6e 76  61 64 69 6e 67 32 22 2c  |und("invading2",|
00003970  31 29 0d 02 14 10 d4 20  31 2c 26 31 37 46 2c 31  |1)..... 1,&17F,1|
00003980  2c 31 0d 02 15 16 e3 66  61 25 3d 20 36 34 20 b8  |,1.....fa%= 64 .|
00003990  20 34 36 30 20 88 20 38  0d 02 16 0d f2 73 74 5f  | 460 . 8.....st_|
000039a0  70 61 75 73 65 0d 02 17  1d e7 20 a4 6e 6f 73 6f  |pause..... .noso|
000039b0  75 6e 64 3d b9 3a d4 20  31 2c 26 31 37 46 2c 31  |und=.:. 1,&17F,1|
000039c0  2c 31 0d 02 18 13 62 79  74 65 73 25 3d 62 79 74  |,1....bytes%=byt|
000039d0  65 73 25 2b 34 0d 02 19  56 f2 6d 6f 76 65 5f 62  |es%+4...V.move_b|
000039e0  6c 6f 63 6b 28 73 63 72  65 65 6e 5f 74 77 6f 25  |lock(screen_two%|
000039f0  2c 36 34 30 2d 66 61 25  2c 34 38 30 2d 66 61 25  |,640-fa%,480-fa%|
00003a00  2c 73 63 72 65 65 6e 5f  6f 6e 65 25 2c 36 34 30  |,screen_one%,640|
00003a10  2d 66 61 25 2c 34 38 30  2d 66 61 25 2c 62 79 74  |-fa%,480-fa%,byt|
00003a20  65 73 25 2c 62 79 74 65  73 25 29 0d 02 1a 0e e7  |es%,bytes%).....|
00003a30  66 61 25 3d 33 34 34 20  8c 0d 02 1b 45 f2 74 65  |fa%=344 ....E.te|
00003a40  78 74 5f 62 6f 78 28 31  38 30 2c 32 30 2c 37 36  |xt_box(180,20,76|
00003a50  30 2c 39 30 2c 31 2c 22  54 68 65 79 20 63 61 6d  |0,90,1,"They cam|
00003a60  65 20 66 72 6f 6d 20 61  6e 6f 74 68 65 72 20 67  |e from another g|
00003a70  61 6c 61 78 79 2e 22 2c  62 24 2c 63 24 29 0d 02  |alaxy.",b$,c$)..|
00003a80  1c 11 fb 20 37 2c 32 35  35 2c 32 35 35 2c 30 0d  |... 7,255,255,0.|
00003a90  02 1d 16 f2 73 70 61 63  65 28 39 37 30 2c 34 30  |....space(970,40|
00003aa0  2c 31 2c 30 29 0d 02 1e  1d e7 20 a4 6e 6f 73 6f  |,1,0)..... .noso|
00003ab0  75 6e 64 3d b9 3a d4 20  31 2c 26 31 37 46 2c 31  |und=.:. 1,&17F,1|
00003ac0  2c 31 0d 02 1f 05 cd 0d  02 20 1e e7 66 61 25 3c  |,1....... ..fa%<|
00003ad0  33 34 34 20 fb 20 37 2c  66 61 25 2f 32 2c 66 61  |344 . 7,fa%/2,fa|
00003ae0  25 2f 32 2c 30 0d 02 21  11 f2 65 6e 5f 70 61 75  |%/2,0..!..en_pau|
00003af0  73 65 28 31 30 29 0d 02  22 05 ed 0d 02 23 2f 43  |se(10).."....#/C|
00003b00  25 3d 73 63 72 65 65 6e  5f 6f 6e 65 25 3a 42 25  |%=screen_one%:B%|
00003b10  3d 73 63 72 65 65 6e 5f  74 77 6f 25 3a d6 73 61  |=screen_two%:.sa|
00003b20  76 65 5f 73 63 72 65 65  6e 25 0d 02 24 10 d4 20  |ve_screen%..$.. |
00003b30  31 2c 26 31 37 46 2c 31  2c 31 0d 02 25 0f f2 70  |1,&17F,1,1..%..p|
00003b40  61 75 73 65 28 31 30 30  29 0d 02 26 10 d4 20 31  |ause(100)..&.. 1|
00003b50  2c 26 31 37 46 2c 31 2c  31 0d 02 27 0c 2a 46 58  |,&17F,1,1..'.*FX|
00003b60  31 31 32 2c 32 0d 02 28  24 f2 70 6c 6f 74 5f 73  |112,2..($.plot_s|
00003b70  70 72 69 74 65 28 30 2c  30 2c 31 2c 31 2c 31 2c  |prite(0,0,1,1,1,|
00003b80  31 2c 22 73 6b 79 32 22  29 0d 02 29 10 66 61 64  |1,"sky2")..).fad|
00003b90  65 24 3d 22 66 61 64 65  22 0d 02 2a 18 f2 66 61  |e$="fade"..*..fa|
00003ba0  64 65 28 30 2c 39 36 30  2c 34 2c 30 2c 31 2c 31  |de(0,960,4,0,1,1|
00003bb0  29 0d 02 2b 10 d4 20 31  2c 26 31 37 46 2c 31 2c  |)..+.. 1,&17F,1,|
00003bc0  31 0d 02 2c 0e 61 6e 5f  78 25 3d 2d 31 30 30 0d  |1..,.an_x%=-100.|
00003bd0  02 2d 0d 61 6e 5f 79 25  3d 36 32 30 0d 02 2e 0a  |.-.an_y%=620....|
00003be0  70 61 6d 25 3d 34 0d 02  2f 18 73 65 6c 5f 73 70  |pam%=4../.sel_sp|
00003bf0  72 69 74 65 24 3d 22 63  72 61 66 74 33 22 0d 02  |rite$="craft3"..|
00003c00  30 19 f2 63 61 63 68 65  73 6f 75 6e 64 28 22 77  |0..cachesound("w|
00003c10  69 6e 64 22 2c 31 29 0d  02 31 12 62 6c 61 6e 6b  |ind",1)..1.blank|
00003c20  24 3d 22 62 6c 61 6e 6b  22 0d 02 32 17 f2 73 74  |$="blank"..2..st|
00003c30  61 72 74 5f 61 6e 69 6d  28 62 6c 61 6e 6b 24 29  |art_anim(blank$)|
00003c40  0d 02 33 10 d4 20 31 2c  26 31 37 46 2c 31 2c 31  |..3.. 1,&17F,1,1|
00003c50  0d 02 34 18 e3 61 6e 5f  78 25 3d 2d 31 30 30 20  |..4..an_x%=-100 |
00003c60  b8 20 33 34 30 20 88 38  0d 02 35 0d f2 73 74 5f  |. 340 .8..5..st_|
00003c70  70 61 75 73 65 0d 02 36  10 d4 20 31 2c 26 31 37  |pause..6.. 1,&17|
00003c80  46 2c 31 2c 31 0d 02 37  11 f2 61 6e 69 6d 28 62  |F,1,1..7..anim(b|
00003c90  6c 61 6e 6b 24 29 0d 02  38 2f 43 25 3d 73 63 72  |lank$)..8/C%=scr|
00003ca0  65 65 6e 5f 6f 6e 65 25  3a 42 25 3d 73 63 72 65  |een_one%:B%=scre|
00003cb0  65 6e 5f 74 77 6f 25 3a  d6 73 61 76 65 5f 73 63  |en_two%:.save_sc|
00003cc0  72 65 65 6e 25 0d 02 39  20 e7 20 28 61 6e 5f 78  |reen%..9 . (an_x|
00003cd0  25 20 83 20 35 30 29 3d  30 20 70 61 6d 25 3d 70  |% . 50)=0 pam%=p|
00003ce0  61 6d 25 2b 32 0d 02 3a  13 f2 65 6e 5f 70 61 75  |am%+2..:..en_pau|
00003cf0  73 65 28 70 61 6d 25 29  0d 02 3b 05 ed 0d 02 3c  |se(pam%)..;....<|
00003d00  17 e3 61 6e 5f 78 25 3d  33 34 30 20 b8 20 34 30  |..an_x%=340 . 40|
00003d10  30 20 88 34 0d 02 3d 0d  f2 73 74 5f 70 61 75 73  |0 .4..=..st_paus|
00003d20  65 0d 02 3e 10 d4 20 31  2c 26 31 37 46 2c 31 2c  |e..>.. 1,&17F,1,|
00003d30  31 0d 02 3f 11 f2 61 6e  69 6d 28 62 6c 61 6e 6b  |1..?..anim(blank|
00003d40  24 29 0d 02 40 2f 43 25  3d 73 63 72 65 65 6e 5f  |$)..@/C%=screen_|
00003d50  6f 6e 65 25 3a 42 25 3d  73 63 72 65 65 6e 5f 74  |one%:B%=screen_t|
00003d60  77 6f 25 3a d6 73 61 76  65 5f 73 63 72 65 65 6e  |wo%:.save_screen|
00003d70  25 0d 02 41 20 e7 20 28  61 6e 5f 78 25 20 83 20  |%..A . (an_x% . |
00003d80  35 30 29 3d 30 20 70 61  6d 25 3d 70 61 6d 25 2b  |50)=0 pam%=pam%+|
00003d90  32 0d 02 42 13 f2 65 6e  5f 70 61 75 73 65 28 70  |2..B..en_pause(p|
00003da0  61 6d 25 29 0d 02 43 05  ed 0d 02 44 0e 61 6e 5f  |am%)..C....D.an_|
00003db0  78 25 3d 2d 31 30 30 0d  02 45 0d 61 6e 5f 79 25  |x%=-100..E.an_y%|
00003dc0  3d 35 30 30 0d 02 46 0a  70 61 6d 25 3d 34 0d 02  |=500..F.pam%=4..|
00003dd0  47 18 73 65 6c 5f 73 70  72 69 74 65 24 3d 22 63  |G.sel_sprite$="c|
00003de0  72 61 66 74 33 22 0d 02  48 12 62 6c 61 6e 6b 24  |raft3"..H.blank$|
00003df0  3d 22 62 6c 61 6e 6b 22  0d 02 49 17 f2 73 74 61  |="blank"..I..sta|
00003e00  72 74 5f 61 6e 69 6d 28  62 6c 61 6e 6b 24 29 0d  |rt_anim(blank$).|
00003e10  02 4a 10 d4 20 31 2c 26  31 37 46 2c 31 2c 31 0d  |.J.. 1,&17F,1,1.|
00003e20  02 4b 18 e3 61 6e 5f 78  25 3d 2d 31 30 30 20 b8  |.K..an_x%=-100 .|
00003e30  20 31 36 30 20 88 38 0d  02 4c 0d f2 73 74 5f 70  | 160 .8..L..st_p|
00003e40  61 75 73 65 0d 02 4d 10  d4 20 31 2c 26 31 37 46  |ause..M.. 1,&17F|
00003e50  2c 31 2c 31 0d 02 4e 11  f2 61 6e 69 6d 28 62 6c  |,1,1..N..anim(bl|
00003e60  61 6e 6b 24 29 0d 02 4f  2f 43 25 3d 73 63 72 65  |ank$)..O/C%=scre|
00003e70  65 6e 5f 6f 6e 65 25 3a  42 25 3d 73 63 72 65 65  |en_one%:B%=scree|
00003e80  6e 5f 74 77 6f 25 3a d6  73 61 76 65 5f 73 63 72  |n_two%:.save_scr|
00003e90  65 65 6e 25 0d 02 50 20  e7 20 28 61 6e 5f 78 25  |een%..P . (an_x%|
00003ea0  20 83 20 35 30 29 3d 30  20 70 61 6d 25 3d 70 61  | . 50)=0 pam%=pa|
00003eb0  6d 25 2b 33 0d 02 51 13  f2 65 6e 5f 70 61 75 73  |m%+3..Q..en_paus|
00003ec0  65 28 70 61 6d 25 29 0d  02 52 05 ed 0d 02 53 17  |e(pam%)..R....S.|
00003ed0  e3 61 6e 5f 78 25 3d 31  36 30 20 b8 20 32 30 30  |.an_x%=160 . 200|
00003ee0  20 88 34 0d 02 54 0d f2  73 74 5f 70 61 75 73 65  | .4..T..st_pause|
00003ef0  0d 02 55 10 d4 20 31 2c  26 31 37 46 2c 31 2c 31  |..U.. 1,&17F,1,1|
00003f00  0d 02 56 11 f2 61 6e 69  6d 28 62 6c 61 6e 6b 24  |..V..anim(blank$|
00003f10  29 0d 02 57 2f 43 25 3d  73 63 72 65 65 6e 5f 6f  |)..W/C%=screen_o|
00003f20  6e 65 25 3a 42 25 3d 73  63 72 65 65 6e 5f 74 77  |ne%:B%=screen_tw|
00003f30  6f 25 3a d6 73 61 76 65  5f 73 63 72 65 65 6e 25  |o%:.save_screen%|
00003f40  0d 02 58 20 e7 20 28 61  6e 5f 78 25 20 83 20 35  |..X . (an_x% . 5|
00003f50  30 29 3d 30 20 70 61 6d  25 3d 70 61 6d 25 2b 33  |0)=0 pam%=pam%+3|
00003f60  0d 02 59 13 f2 65 6e 5f  70 61 75 73 65 28 70 61  |..Y..en_pause(pa|
00003f70  6d 25 29 0d 02 5a 05 ed  0d 02 5b 0e 61 6e 5f 78  |m%)..Z....[.an_x|
00003f80  25 3d 2d 31 30 30 0d 02  5c 0d 61 6e 5f 79 25 3d  |%=-100..\.an_y%=|
00003f90  35 30 30 0d 02 5d 0a 70  61 6d 25 3d 34 0d 02 5e  |500..].pam%=4..^|
00003fa0  18 73 65 6c 5f 73 70 72  69 74 65 24 3d 22 63 72  |.sel_sprite$="cr|
00003fb0  61 66 74 32 22 0d 02 5f  12 62 6c 61 6e 6b 24 3d  |aft2".._.blank$=|
00003fc0  22 62 6c 61 6e 6b 22 0d  02 60 17 f2 73 74 61 72  |"blank"..`..star|
00003fd0  74 5f 61 6e 69 6d 28 62  6c 61 6e 6b 24 29 0d 02  |t_anim(blank$)..|
00003fe0  61 10 d4 20 31 2c 26 31  37 46 2c 31 2c 31 0d 02  |a.. 1,&17F,1,1..|
00003ff0  62 1a e3 61 6e 5f 78 25  3d 31 32 38 30 20 b8 20  |b..an_x%=1280 . |
00004000  31 30 30 30 20 88 2d 38  0d 02 63 0d f2 73 74 5f  |1000 .-8..c..st_|
00004010  70 61 75 73 65 0d 02 64  10 d4 20 31 2c 26 31 37  |pause..d.. 1,&17|
00004020  46 2c 31 2c 31 0d 02 65  11 f2 61 6e 69 6d 28 62  |F,1,1..e..anim(b|
00004030  6c 61 6e 6b 24 29 0d 02  66 2f 43 25 3d 73 63 72  |lank$)..f/C%=scr|
00004040  65 65 6e 5f 6f 6e 65 25  3a 42 25 3d 73 63 72 65  |een_one%:B%=scre|
00004050  65 6e 5f 74 77 6f 25 3a  d6 73 61 76 65 5f 73 63  |en_two%:.save_sc|
00004060  72 65 65 6e 25 0d 02 67  20 e7 20 28 61 6e 5f 78  |reen%..g . (an_x|
00004070  25 20 83 20 35 30 29 3d  30 20 70 61 6d 25 3d 70  |% . 50)=0 pam%=p|
00004080  61 6d 25 2b 33 0d 02 68  13 f2 65 6e 5f 70 61 75  |am%+3..h..en_pau|
00004090  73 65 28 70 61 6d 25 29  0d 02 69 05 ed 0d 02 6a  |se(pam%)..i....j|
000040a0  19 e3 61 6e 5f 78 25 3d  31 30 30 30 20 b8 20 39  |..an_x%=1000 . 9|
000040b0  30 30 20 88 2d 34 0d 02  6b 0d f2 73 74 5f 70 61  |00 .-4..k..st_pa|
000040c0  75 73 65 0d 02 6c 11 f2  61 6e 69 6d 28 62 6c 61  |use..l..anim(bla|
000040d0  6e 6b 24 29 0d 02 6d 2f  43 25 3d 73 63 72 65 65  |nk$)..m/C%=scree|
000040e0  6e 5f 6f 6e 65 25 3a 42  25 3d 73 63 72 65 65 6e  |n_one%:B%=screen|
000040f0  5f 74 77 6f 25 3a d6 73  61 76 65 5f 73 63 72 65  |_two%:.save_scre|
00004100  65 6e 25 0d 02 6e 20 e7  20 28 61 6e 5f 78 25 20  |en%..n . (an_x% |
00004110  83 20 35 30 29 3d 30 20  70 61 6d 25 3d 70 61 6d  |. 50)=0 pam%=pam|
00004120  25 2b 33 0d 02 6f 13 f2  65 6e 5f 70 61 75 73 65  |%+3..o..en_pause|
00004130  28 70 61 6d 25 29 0d 02  70 05 ed 0d 02 71 0e 61  |(pam%)..p....q.a|
00004140  6e 5f 78 25 3d 2d 33 30  30 0d 02 72 0d 61 6e 5f  |n_x%=-300..r.an_|
00004150  79 25 3d 31 30 30 0d 02  73 0a 70 61 6d 25 3d 34  |y%=100..s.pam%=4|
00004160  0d 02 74 17 73 65 6c 5f  73 70 72 69 74 65 24 3d  |..t.sel_sprite$=|
00004170  22 63 72 61 66 74 22 0d  02 75 12 62 6c 61 6e 6b  |"craft"..u.blank|
00004180  24 3d 22 62 6c 61 6e 6b  22 0d 02 76 17 f2 73 74  |$="blank"..v..st|
00004190  61 72 74 5f 61 6e 69 6d  28 62 6c 61 6e 6b 24 29  |art_anim(blank$)|
000041a0  0d 02 77 10 d4 20 31 2c  26 31 37 46 2c 31 2c 31  |..w.. 1,&17F,1,1|
000041b0  0d 02 78 17 e3 61 6e 5f  78 25 3d 2d 33 30 30 20  |..x..an_x%=-300 |
000041c0  b8 20 36 30 20 88 34 0d  02 79 0d f2 73 74 5f 70  |. 60 .4..y..st_p|
000041d0  61 75 73 65 0d 02 7a 10  d4 20 31 2c 26 31 37 46  |ause..z.. 1,&17F|
000041e0  2c 31 2c 31 0d 02 7b 11  f2 61 6e 69 6d 28 62 6c  |,1,1..{..anim(bl|
000041f0  61 6e 6b 24 29 0d 02 7c  2f 43 25 3d 73 63 72 65  |ank$)..|/C%=scre|
00004200  65 6e 5f 6f 6e 65 25 3a  42 25 3d 73 63 72 65 65  |en_one%:B%=scree|
00004210  6e 5f 74 77 6f 25 3a d6  73 61 76 65 5f 73 63 72  |n_two%:.save_scr|
00004220  65 65 6e 25 0d 02 7d 20  e7 20 28 61 6e 5f 78 25  |een%..} . (an_x%|
00004230  20 83 20 35 30 29 3d 30  20 70 61 6d 25 3d 70 61  | . 50)=0 pam%=pa|
00004240  6d 25 2b 32 0d 02 7e 13  f2 65 6e 5f 70 61 75 73  |m%+2..~..en_paus|
00004250  65 28 70 61 6d 25 29 0d  02 7f 05 ed 0d 02 80 0c  |e(pam%).........|
00004260  2a 66 78 31 31 32 2c 31  0d 02 81 47 f2 74 65 78  |*fx112,1...G.tex|
00004270  74 5f 62 6f 78 28 31 30  30 2c 38 30 30 2c 31 30  |t_box(100,800,10|
00004280  38 30 2c 39 30 2c 31 2c  22 54 68 65 79 20 63 61  |80,90,1,"They ca|
00004290  6d 65 20 74 6f 20 69 6e  76 61 64 65 20 74 68 65  |me to invade the|
000042a0  20 65 61 72 74 68 21 22  2c 22 22 2c 22 22 29 0d  | earth!","","").|
000042b0  02 82 1e f2 63 61 63 68  65 73 6f 75 6e 64 28 22  |....cachesound("|
000042c0  69 6e 76 61 64 69 6e 67  32 22 2c 31 29 0d 02 83  |invading2",1)...|
000042d0  16 f2 73 70 61 63 65 28  39 30 30 2c 38 30 2c 31  |..space(900,80,1|
000042e0  2c 30 29 0d 02 84 2f 43  25 3d 73 63 72 65 65 6e  |,0).../C%=screen|
000042f0  5f 6f 6e 65 25 3a 42 25  3d 73 63 72 65 65 6e 5f  |_one%:B%=screen_|
00004300  74 77 6f 25 3a d6 73 61  76 65 5f 73 63 72 65 65  |two%:.save_scree|
00004310  6e 25 0d 02 85 5c f2 74  65 78 74 5f 62 6f 78 28  |n%...\.text_box(|
00004320  32 30 30 2c 37 36 30 2c  38 38 30 2c 31 36 30 2c  |200,760,880,160,|
00004330  32 2c 22 54 68 65 69 72  20 6d 65 73 73 61 67 65  |2,"Their message|
00004340  73 20 77 65 72 65 20 61  6c 77 61 79 73 22 2c 22  |s were always","|
00004350  73 65 6e 74 20 69 6e 20  74 69 6d 65 73 20 74 61  |sent in times ta|
00004360  62 6c 65 20 63 6f 64 65  2e 22 2c 22 22 29 0d 02  |ble code.","")..|
00004370  86 16 f2 73 70 61 63 65  28 39 30 30 2c 38 30 2c  |...space(900,80,|
00004380  30 2c 30 29 0d 02 87 0e  f2 70 61 75 73 65 28 32  |0,0).....pause(2|
00004390  30 29 0d 02 88 1b f2 63  61 63 68 65 73 6f 75 6e  |0).....cachesoun|
000043a0  64 28 22 73 63 69 66 69  33 22 2c 31 29 0d 02 89  |d("scifi3",1)...|
000043b0  0d 61 6e 5f 78 25 3d 33  30 30 0d 02 8a 0d 61 6e  |.an_x%=300....an|
000043c0  5f 79 25 3d 33 30 30 0d  02 8b 1a 73 65 6c 5f 73  |_y%=300....sel_s|
000043d0  70 72 69 74 65 24 3d 22  6d 61 73 73 61 67 65 32  |prite$="massage2|
000043e0  22 0d 02 8c 12 62 6c 61  6e 6b 24 3d 22 62 6c 61  |"....blank$="bla|
000043f0  6e 6b 22 0d 02 8d 17 f2  73 74 61 72 74 5f 61 6e  |nk".....start_an|
00004400  69 6d 28 62 6c 61 6e 6b  24 29 0d 02 8e 17 e3 61  |im(blank$).....a|
00004410  6e 5f 78 25 3d 33 30 30  20 b8 20 38 30 30 20 88  |n_x%=300 . 800 .|
00004420  34 0d 02 8f 11 61 6e 5f  79 25 3d 61 6e 5f 79 25  |4....an_y%=an_y%|
00004430  2b 31 0d 02 90 1d e7 20  a4 6e 6f 73 6f 75 6e 64  |+1..... .nosound|
00004440  3d b9 3a d4 20 31 2c 26  31 37 46 2c 31 2c 31 0d  |=.:. 1,&17F,1,1.|
00004450  02 91 0d f2 73 74 5f 70  61 75 73 65 0d 02 92 11  |....st_pause....|
00004460  f2 61 6e 69 6d 28 62 6c  61 6e 6b 24 29 0d 02 93  |.anim(blank$)...|
00004470  10 f2 65 6e 5f 70 61 75  73 65 28 36 29 0d 02 94  |..en_pause(6)...|
00004480  05 ed 0d 02 95 15 f2 65  6e 64 5f 61 6e 69 6d 28  |.......end_anim(|
00004490  62 6c 61 6e 6b 24 29 0d  02 96 0d 61 6e 5f 78 25  |blank$)....an_x%|
000044a0  3d 38 30 30 0d 02 97 0d  61 6e 5f 79 25 3d 34 30  |=800....an_y%=40|
000044b0  30 0d 02 98 1a 73 65 6c  5f 73 70 72 69 74 65 24  |0....sel_sprite$|
000044c0  3d 22 6d 61 73 73 61 67  65 31 22 0d 02 99 12 62  |="massage1"....b|
000044d0  6c 61 6e 6b 24 3d 22 62  6c 61 6e 6b 22 0d 02 9a  |lank$="blank"...|
000044e0  1f f2 63 61 63 68 65 73  6f 75 6e 64 28 22 6c 61  |..cachesound("la|
000044f0  73 65 72 5f 64 6f 6f 72  22 2c 31 29 0d 02 9b 17  |ser_door",1)....|
00004500  f2 73 74 61 72 74 5f 61  6e 69 6d 28 62 6c 61 6e  |.start_anim(blan|
00004510  6b 24 29 0d 02 9c 18 e3  61 6e 5f 78 25 3d 38 30  |k$).....an_x%=80|
00004520  30 20 b8 20 33 30 30 20  88 2d 34 0d 02 9d 11 61  |0 . 300 .-4....a|
00004530  6e 5f 79 25 3d 61 6e 5f  79 25 2d 31 0d 02 9e 1d  |n_y%=an_y%-1....|
00004540  e7 20 a4 6e 6f 73 6f 75  6e 64 3d b9 3a d4 20 31  |. .nosound=.:. 1|
00004550  2c 26 31 37 46 2c 31 2c  31 0d 02 9f 0d f2 73 74  |,&17F,1,1.....st|
00004560  5f 70 61 75 73 65 0d 02  a0 11 f2 61 6e 69 6d 28  |_pause.....anim(|
00004570  62 6c 61 6e 6b 24 29 0d  02 a1 10 f2 65 6e 5f 70  |blank$).....en_p|
00004580  61 75 73 65 28 36 29 0d  02 a2 05 ed 0d 02 a3 15  |ause(6).........|
00004590  f2 65 6e 64 5f 61 6e 69  6d 28 62 6c 61 6e 6b 24  |.end_anim(blank$|
000045a0  29 0d 02 a4 05 cd 0d 02  a5 0c 2a 46 58 31 31 32  |).........*FX112|
000045b0  2c 32 0d 02 a6 0b f2 70  6c 61 74 65 73 0d 02 a7  |,2.....plates...|
000045c0  2f ef 32 34 2c 32 35 36  3b 31 39 32 3b 31 32 38  |/.24,256;192;128|
000045d0  30 2d 32 35 36 3b 39 36  30 2d 33 38 34 3b 31 38  |0-256;960-384;18|
000045e0  2c 30 2c 31 32 38 2c 31  36 2c 32 36 0d 02 a8 2c  |,0,128,16,26...,|
000045f0  e7 56 25 3d 30 20 ef 32  34 2c 30 3b 39 36 30 3b  |.V%=0 .24,0;960;|
00004600  31 32 37 38 3b 31 30 32  32 3b 31 38 2c 30 2c 31  |1278;1022;18,0,1|
00004610  33 31 2c 31 36 2c 32 36  0d 02 a9 1f f2 6c 6f 61  |31,16,26.....loa|
00004620  64 5f 73 70 72 69 74 65  73 28 22 74 61 62 6c 65  |d_sprites("table|
00004630  61 6c 69 65 6e 22 29 0d  02 aa 1d f2 6d 65 72 67  |alien").....merg|
00004640  65 5f 73 70 72 69 74 65  73 28 22 62 75 74 74 6f  |e_sprites("butto|
00004650  6e 73 22 29 0d 02 ab 41  f2 74 65 78 74 5f 62 6f  |ns")...A.text_bo|
00004660  78 28 31 30 30 2c 37 36  30 2c 31 30 38 30 2c 39  |x(100,760,1080,9|
00004670  30 2c 32 2c 22 54 68 65  79 20 6c 6f 6f 6b 65 64  |0,2,"They looked|
00004680  20 6c 69 6b 65 20 74 61  62 6c 65 73 2e 22 2c 22  | like tables.","|
00004690  22 2c 22 22 29 0d 02 ac  2a f2 70 6c 6f 74 5f 73  |","")...*.plot_s|
000046a0  70 72 69 74 65 28 35 30  30 2c 33 30 30 2c 31 2c  |prite(500,300,1,|
000046b0  31 2c 31 2c 31 2c 22 74  61 62 6c 65 31 22 29 0d  |1,1,1,"table1").|
000046c0  02 ad 10 66 61 64 65 24  3d 22 66 61 64 65 22 0d  |...fade$="fade".|
000046d0  02 ae 18 f2 66 61 64 65  28 30 2c 39 36 30 2c 34  |....fade(0,960,4|
000046e0  2c 30 2c 31 2c 31 29 0d  02 af 0c 2a 46 58 31 31  |,0,1,1)....*FX11|
000046f0  32 2c 31 0d 02 b0 16 f2  73 70 61 63 65 28 39 30  |2,1.....space(90|
00004700  30 2c 38 30 2c 30 2c 30  29 0d 02 b1 1b f2 74 61  |0,80,0,0).....ta|
00004710  62 6c 65 5f 61 6c 69 65  6e 28 35 30 30 2c 33 30  |ble_alien(500,30|
00004720  30 2c 31 29 0d 02 b2 16  f2 73 70 61 63 65 28 39  |0,1).....space(9|
00004730  30 30 2c 38 30 2c 30 2c  30 29 0d 02 b3 4d f2 74  |00,80,0,0)...M.t|
00004740  65 78 74 5f 62 6f 78 28  31 30 30 2c 36 34 30 2c  |ext_box(100,640,|
00004750  31 30 38 30 2c 39 30 2c  32 2c 22 54 68 65 79 20  |1080,90,2,"They |
00004760  77 65 72 65 20 63 61 6c  6c 65 64 20 74 68 65 20  |were called the |
00004770  27 54 61 62 6c 65 20 41  6c 69 65 6e 73 27 2e 22  |'Table Aliens'."|
00004780  2c 22 22 2c 22 22 29 0d  02 b4 16 f2 73 70 61 63  |,"","").....spac|
00004790  65 28 39 30 30 2c 34 30  2c 30 2c 30 29 0d 02 b5  |e(900,40,0,0)...|
000047a0  05 e1 0d 02 b6 1b dd f2  74 61 62 6c 65 5f 61 6c  |........table_al|
000047b0  69 65 6e 28 78 25 2c 79  25 2c 74 25 29 0d 02 b7  |ien(x%,y%,t%)...|
000047c0  28 f2 70 6c 6f 74 5f 73  70 72 69 74 65 28 78 25  |(.plot_sprite(x%|
000047d0  2c 79 25 2c 31 2c 31 2c  31 2c 31 2c 22 74 61 62  |,y%,1,1,1,1,"tab|
000047e0  6c 65 31 22 29 0d 02 b8  0f f2 70 61 75 73 65 28  |le1").....pause(|
000047f0  31 35 30 29 0d 02 b9 29  f2 70 6c 6f 74 5f 73 70  |150)...).plot_sp|
00004800  72 69 74 65 28 78 25 2d  38 30 2c 79 25 2c 31 2c  |rite(x%-80,y%,1,|
00004810  31 2c 31 2c 31 2c 22 6c  65 67 31 22 29 0d 02 ba  |1,1,1,"leg1")...|
00004820  15 f2 66 6c 69 70 5f 68  6f 72 28 22 6c 65 67 31  |..flip_hor("leg1|
00004830  22 29 0d 02 bb 2a f2 70  6c 6f 74 5f 73 70 72 69  |")...*.plot_spri|
00004840  74 65 28 78 25 2b 31 38  38 2c 79 25 2c 31 2c 31  |te(x%+188,y%,1,1|
00004850  2c 31 2c 31 2c 22 6c 65  67 31 22 29 0d 02 bc 0e  |,1,1,"leg1")....|
00004860  f2 70 61 75 73 65 28 34  30 29 0d 02 bd 29 f2 70  |.pause(40)...).p|
00004870  6c 6f 74 5f 73 70 72 69  74 65 28 78 25 2d 38 30  |lot_sprite(x%-80|
00004880  2c 79 25 2c 31 2c 31 2c  31 2c 31 2c 22 6c 65 67  |,y%,1,1,1,1,"leg|
00004890  32 22 29 0d 02 be 15 f2  66 6c 69 70 5f 68 6f 72  |2").....flip_hor|
000048a0  28 22 6c 65 67 32 22 29  0d 02 bf 2a f2 70 6c 6f  |("leg2")...*.plo|
000048b0  74 5f 73 70 72 69 74 65  28 78 25 2b 31 38 38 2c  |t_sprite(x%+188,|
000048c0  79 25 2c 31 2c 31 2c 31  2c 31 2c 22 6c 65 67 32  |y%,1,1,1,1,"leg2|
000048d0  22 29 0d 02 c0 0e f2 70  61 75 73 65 28 34 30 29  |").....pause(40)|
000048e0  0d 02 c1 29 f2 70 6c 6f  74 5f 73 70 72 69 74 65  |...).plot_sprite|
000048f0  28 78 25 2d 38 30 2c 79  25 2c 31 2c 31 2c 31 2c  |(x%-80,y%,1,1,1,|
00004900  31 2c 22 6c 65 67 33 22  29 0d 02 c2 15 f2 66 6c  |1,"leg3").....fl|
00004910  69 70 5f 68 6f 72 28 22  6c 65 67 33 22 29 0d 02  |ip_hor("leg3")..|
00004920  c3 2a f2 70 6c 6f 74 5f  73 70 72 69 74 65 28 78  |.*.plot_sprite(x|
00004930  25 2b 31 38 38 2c 79 25  2c 31 2c 31 2c 31 2c 31  |%+188,y%,1,1,1,1|
00004940  2c 22 6c 65 67 33 22 29  0d 02 c4 0e f2 70 61 75  |,"leg3").....pau|
00004950  73 65 28 34 30 29 0d 02  c5 29 f2 70 6c 6f 74 5f  |se(40)...).plot_|
00004960  73 70 72 69 74 65 28 78  25 2d 38 30 2c 79 25 2c  |sprite(x%-80,y%,|
00004970  31 2c 31 2c 31 2c 31 2c  22 6c 65 67 34 22 29 0d  |1,1,1,1,"leg4").|
00004980  02 c6 15 f2 66 6c 69 70  5f 68 6f 72 28 22 6c 65  |....flip_hor("le|
00004990  67 34 22 29 0d 02 c7 2a  f2 70 6c 6f 74 5f 73 70  |g4")...*.plot_sp|
000049a0  72 69 74 65 28 78 25 2b  31 38 38 2c 79 25 2c 31  |rite(x%+188,y%,1|
000049b0  2c 31 2c 31 2c 31 2c 22  6c 65 67 34 22 29 0d 02  |,1,1,1,"leg4")..|
000049c0  c8 0e f2 70 61 75 73 65  28 34 30 29 0d 02 c9 2b  |...pause(40)...+|
000049d0  f2 70 6c 6f 74 5f 73 70  72 69 74 65 28 78 25 2c  |.plot_sprite(x%,|
000049e0  79 25 2b 38 30 2c 31 2c  31 2c 31 2c 31 2c 22 74  |y%+80,1,1,1,1,"t|
000049f0  61 62 6c 65 32 22 29 0d  02 ca 0e f2 70 61 75 73  |able2").....paus|
00004a00  65 28 34 30 29 0d 02 cb  2c f2 70 6c 6f 74 5f 73  |e(40)...,.plot_s|
00004a10  70 72 69 74 65 28 78 25  2b 32 30 2c 79 25 2b 31  |prite(x%+20,y%+1|
00004a20  36 38 2c 31 2c 31 2c 31  2c 31 2c 22 65 79 65 22  |68,1,1,1,1,"eye"|
00004a30  29 0d 02 cc 0e f2 70 61  75 73 65 28 32 30 29 0d  |).....pause(20).|
00004a40  02 cd 2d f2 70 6c 6f 74  5f 73 70 72 69 74 65 28  |..-.plot_sprite(|
00004a50  78 25 2b 32 30 2c 79 25  2b 31 36 38 2c 31 2c 31  |x%+20,y%+168,1,1|
00004a60  2c 31 2c 31 2c 22 65 79  65 32 22 29 0d 02 ce 0e  |,1,1,"eye2")....|
00004a70  f2 70 61 75 73 65 28 34  30 29 0d 02 cf 2b f2 70  |.pause(40)...+.p|
00004a80  6c 6f 74 5f 73 70 72 69  74 65 28 78 25 2c 79 25  |lot_sprite(x%,y%|
00004a90  2b 38 30 2c 31 2c 31 2c  31 2c 31 2c 22 74 61 62  |+80,1,1,1,1,"tab|
00004aa0  6c 65 33 22 29 0d 02 d0  0e f2 70 61 75 73 65 28  |le3").....pause(|
00004ab0  34 30 29 0d 02 d1 2c f2  70 6c 6f 74 5f 73 70 72  |40)...,.plot_spr|
00004ac0  69 74 65 28 78 25 2b 32  30 2c 79 25 2b 31 36 38  |ite(x%+20,y%+168|
00004ad0  2c 31 2c 31 2c 31 2c 31  2c 22 65 79 65 22 29 0d  |,1,1,1,1,"eye").|
00004ae0  02 d2 2d f2 70 6c 6f 74  5f 73 70 72 69 74 65 28  |..-.plot_sprite(|
00004af0  78 25 2b 31 36 32 2c 79  25 2b 31 36 38 2c 31 2c  |x%+162,y%+168,1,|
00004b00  31 2c 31 2c 31 2c 22 65  79 65 22 29 0d 02 d3 0e  |1,1,1,"eye")....|
00004b10  f2 70 61 75 73 65 28 32  30 29 0d 02 d4 2d f2 70  |.pause(20)...-.p|
00004b20  6c 6f 74 5f 73 70 72 69  74 65 28 78 25 2b 32 30  |lot_sprite(x%+20|
00004b30  2c 79 25 2b 31 37 30 2c  31 2c 31 2c 31 2c 31 2c  |,y%+170,1,1,1,1,|
00004b40  22 65 79 65 32 22 29 0d  02 d5 2e f2 70 6c 6f 74  |"eye2").....plot|
00004b50  5f 73 70 72 69 74 65 28  78 25 2b 31 36 32 2c 79  |_sprite(x%+162,y|
00004b60  25 2b 31 37 30 2c 31 2c  31 2c 31 2c 31 2c 22 65  |%+170,1,1,1,1,"e|
00004b70  79 65 32 22 29 0d 02 d6  0e f2 70 61 75 73 65 28  |ye2").....pause(|
00004b80  34 30 29 0d 02 d7 2b f2  70 6c 6f 74 5f 73 70 72  |40)...+.plot_spr|
00004b90  69 74 65 28 78 25 2c 79  25 2b 38 30 2c 31 2c 31  |ite(x%,y%+80,1,1|
00004ba0  2c 31 2c 31 2c 22 74 61  62 6c 65 34 22 29 0d 02  |,1,1,"table4")..|
00004bb0  d8 0e f2 70 61 75 73 65  28 35 30 29 0d 02 d9 2b  |...pause(50)...+|
00004bc0  f2 70 6c 6f 74 5f 73 70  72 69 74 65 28 78 25 2c  |.plot_sprite(x%,|
00004bd0  79 25 2b 38 30 2c 31 2c  31 2c 31 2c 31 2c 22 74  |y%+80,1,1,1,1,"t|
00004be0  61 62 6c 65 35 22 29 0d  02 da 0e f2 70 61 75 73  |able5").....paus|
00004bf0  65 28 35 30 29 0d 02 db  2b f2 70 6c 6f 74 5f 73  |e(50)...+.plot_s|
00004c00  70 72 69 74 65 28 78 25  2c 79 25 2b 38 30 2c 31  |prite(x%,y%+80,1|
00004c10  2c 31 2c 31 2c 31 2c 22  74 61 62 6c 65 36 22 29  |,1,1,1,"table6")|
00004c20  0d 02 dc 0e f2 70 61 75  73 65 28 35 30 29 0d 02  |.....pause(50)..|
00004c30  dd 32 e7 20 74 25 3d 31  20 f2 70 6c 6f 74 5f 73  |.2. t%=1 .plot_s|
00004c40  70 72 69 74 65 28 78 25  2c 79 25 2b 38 30 2c 31  |prite(x%,y%+80,1|
00004c50  2c 31 2c 31 2c 31 2c 22  74 61 62 6c 65 37 22 29  |,1,1,1,"table7")|
00004c60  0d 02 de 32 e7 20 74 25  3d 32 20 f2 70 6c 6f 74  |...2. t%=2 .plot|
00004c70  5f 73 70 72 69 74 65 28  78 25 2c 79 25 2b 38 30  |_sprite(x%,y%+80|
00004c80  2c 31 2c 31 2c 31 2c 31  2c 22 74 61 62 6c 65 38  |,1,1,1,1,"table8|
00004c90  22 29 0d 02 df 0e f2 70  61 75 73 65 28 34 30 29  |").....pause(40)|
00004ca0  0d 02 e0 2c f2 70 6c 6f  74 5f 73 70 72 69 74 65  |...,.plot_sprite|
00004cb0  28 78 25 2b 32 30 2c 79  25 2b 31 36 38 2c 31 2c  |(x%+20,y%+168,1,|
00004cc0  31 2c 31 2c 31 2c 22 65  79 65 22 29 0d 02 e1 2d  |1,1,1,"eye")...-|
00004cd0  f2 70 6c 6f 74 5f 73 70  72 69 74 65 28 78 25 2b  |.plot_sprite(x%+|
00004ce0  31 36 32 2c 79 25 2b 31  36 38 2c 31 2c 31 2c 31  |162,y%+168,1,1,1|
00004cf0  2c 31 2c 22 65 79 65 22  29 0d 02 e2 0e f2 70 61  |,1,"eye").....pa|
00004d00  75 73 65 28 32 30 29 0d  02 e3 2d f2 70 6c 6f 74  |use(20)...-.plot|
00004d10  5f 73 70 72 69 74 65 28  78 25 2b 32 30 2c 79 25  |_sprite(x%+20,y%|
00004d20  2b 31 36 38 2c 31 2c 31  2c 31 2c 31 2c 22 65 79  |+168,1,1,1,1,"ey|
00004d30  65 32 22 29 0d 02 e4 2e  f2 70 6c 6f 74 5f 73 70  |e2").....plot_sp|
00004d40  72 69 74 65 28 78 25 2b  31 36 32 2c 79 25 2b 31  |rite(x%+162,y%+1|
00004d50  36 38 2c 31 2c 31 2c 31  2c 31 2c 22 65 79 65 32  |68,1,1,1,1,"eye2|
00004d60  22 29 0d 02 e5 0e f2 70  61 75 73 65 28 34 30 29  |").....pause(40)|
00004d70  0d 02 e6 2c e7 56 25 3d  30 20 ef 32 34 2c 30 3b  |...,.V%=0 .24,0;|
00004d80  39 36 30 3b 31 32 37 38  3b 31 30 32 32 3b 31 38  |960;1278;1022;18|
00004d90  2c 30 2c 31 33 31 2c 31  36 2c 32 36 0d 02 e7 05  |,0,131,16,26....|
00004da0  e1 0d 02 e8 12 dd f2 66  6c 69 70 5f 68 6f 72 28  |.......flip_hor(|
00004db0  61 24 29 0d 02 e9 29 c8  99 22 4f 53 5f 53 70 72  |a$)...).."OS_Spr|
00004dc0  69 74 65 4f 70 22 2c 26  31 32 46 2c 73 70 72 69  |iteOp",&12F,spri|
00004dd0  74 65 5f 61 72 65 61 31  25 2c 61 24 0d 02 ea 05  |te_area1%,a$....|
00004de0  e1 0d 02 eb 3f dd f2 74  65 78 74 5f 62 6f 78 28  |....?..text_box(|
00004df0  73 74 5f 78 25 2c 73 74  5f 79 25 2c 6c 65 6e 67  |st_x%,st_y%,leng|
00004e00  74 68 25 2c 68 65 69 67  68 74 25 2c 6a 75 73 74  |th%,height%,just|
00004e10  5f 74 79 70 65 25 2c 61  24 2c 62 24 2c 63 24 29  |_type%,a$,b$,c$)|
00004e20  0d 02 ec 25 f2 62 6f 78  28 73 74 5f 78 25 2c 73  |...%.box(st_x%,s|
00004e30  74 5f 79 25 2c 6c 65 6e  67 74 68 25 2c 68 65 69  |t_y%,length%,hei|
00004e40  67 68 74 25 29 0d 02 ed  20 66 5f 77 69 64 74 68  |ght%)... f_width|
00004e50  31 25 3d a4 66 6f 6e 74  5f 73 74 72 69 6e 67 5f  |1%=.font_string_|
00004e60  77 28 61 24 29 0d 02 ee  20 66 5f 77 69 64 74 68  |w(a$)... f_width|
00004e70  32 25 3d a4 66 6f 6e 74  5f 73 74 72 69 6e 67 5f  |2%=.font_string_|
00004e80  77 28 62 24 29 0d 02 ef  20 66 5f 77 69 64 74 68  |w(b$)... f_width|
00004e90  33 25 3d a4 66 6f 6e 74  5f 73 74 72 69 6e 67 5f  |3%=.font_string_|
00004ea0  77 28 63 24 29 0d 02 f0  10 66 5f 68 65 69 67 68  |w(c$)....f_heigh|
00004eb0  74 25 3d 37 30 0d 02 f1  2c 6c 69 6e 65 73 25 3d  |t%=70...,lines%=|
00004ec0  33 3a e7 63 24 3d 22 22  3a 6c 69 6e 65 73 25 3d  |3:.c$="":lines%=|
00004ed0  32 3a e7 62 24 3d 22 22  3a 6c 69 6e 65 73 25 3d  |2:.b$="":lines%=|
00004ee0  31 0d 02 f2 2e 78 70 6f  73 31 25 3d 73 74 5f 78  |1....xpos1%=st_x|
00004ef0  25 2b 28 28 6c 65 6e 67  74 68 25 2d 28 66 5f 77  |%+((length%-(f_w|
00004f00  69 64 74 68 31 25 2f 34  30 30 29 29 2f 32 29 0d  |idth1%/400))/2).|
00004f10  02 f3 2e 78 70 6f 73 32  25 3d 73 74 5f 78 25 2b  |...xpos2%=st_x%+|
00004f20  28 28 6c 65 6e 67 74 68  25 2d 28 66 5f 77 69 64  |((length%-(f_wid|
00004f30  74 68 32 25 2f 34 30 30  29 29 2f 32 29 0d 02 f4  |th2%/400))/2)...|
00004f40  2e 78 70 6f 73 33 25 3d  73 74 5f 78 25 2b 28 28  |.xpos3%=st_x%+((|
00004f50  6c 65 6e 67 74 68 25 2d  28 66 5f 77 69 64 74 68  |length%-(f_width|
00004f60  33 25 2f 34 30 30 29 29  2f 32 29 0d 02 f5 13 e7  |3%/400))/2).....|
00004f70  6a 75 73 74 5f 74 79 70  65 25 3d 32 20 8c 0d 02  |just_type%=2 ...|
00004f80  f6 30 e7 78 70 6f 73 31  25 3c 78 70 6f 73 32 25  |.0.xpos1%<xpos2%|
00004f90  20 78 70 6f 73 32 25 3d  78 70 6f 73 31 25 20 8b  | xpos2%=xpos1% .|
00004fa0  20 78 70 6f 73 31 25 3d  78 70 6f 73 32 25 0d 02  | xpos1%=xpos2%..|
00004fb0  f7 30 e7 78 70 6f 73 32  25 3c 78 70 6f 73 33 25  |.0.xpos2%<xpos3%|
00004fc0  20 78 70 6f 73 33 25 3d  78 70 6f 73 32 25 20 8b  | xpos3%=xpos2% .|
00004fd0  20 78 70 6f 73 32 25 3d  78 70 6f 73 33 25 0d 02  | xpos2%=xpos3%..|
00004fe0  f8 30 e7 78 70 6f 73 33  25 3c 78 70 6f 73 31 25  |.0.xpos3%<xpos1%|
00004ff0  20 78 70 6f 73 31 25 3d  78 70 6f 73 33 25 20 8b  | xpos1%=xpos3% .|
00005000  20 78 70 6f 73 33 25 3d  78 70 6f 73 31 25 0d 02  | xpos3%=xpos1%..|
00005010  f9 05 cd 0d 02 fa 54 79  70 6f 73 31 25 3d 28 73  |......Typos1%=(s|
00005020  74 5f 79 25 2d 28 66 5f  68 65 69 67 68 74 25 2f  |t_y%-(f_height%/|
00005030  36 29 2a 34 29 2b 28 68  65 69 67 68 74 25 2d 28  |6)*4)+(height%-(|
00005040  6c 69 6e 65 73 25 2a 66  5f 68 65 69 67 68 74 25  |lines%*f_height%|
00005050  29 29 2f 32 2b 28 6c 69  6e 65 73 25 2a 66 5f 68  |))/2+(lines%*f_h|
00005060  65 69 67 68 74 25 29 0d  02 fb 1b 79 70 6f 73 32  |eight%)....ypos2|
00005070  25 3d 79 70 6f 73 31 25  2d 66 5f 68 65 69 67 68  |%=ypos1%-f_heigh|
00005080  74 25 0d 02 fc 1b 79 70  6f 73 33 25 3d 79 70 6f  |t%....ypos3%=ypo|
00005090  73 32 25 2d 66 5f 68 65  69 67 68 74 25 0d 02 fd  |s2%-f_height%...|
000050a0  1a f2 70 72 69 28 78 70  6f 73 31 25 2c 79 70 6f  |..pri(xpos1%,ypo|
000050b0  73 31 25 2c 61 24 29 0d  02 fe 24 e7 6c 69 6e 65  |s1%,a$)...$.line|
000050c0  73 25 3e 31 20 f2 70 72  69 28 78 70 6f 73 32 25  |s%>1 .pri(xpos2%|
000050d0  2c 79 70 6f 73 32 25 2c  62 24 29 0d 02 ff 24 e7  |,ypos2%,b$)...$.|
000050e0  6c 69 6e 65 73 25 3e 32  20 f2 70 72 69 28 78 70  |lines%>2 .pri(xp|
000050f0  6f 73 33 25 2c 79 70 6f  73 33 25 2c 63 24 29 0d  |os3%,ypos3%,c$).|
00005100  03 00 05 e1 0d 03 01 13  dd f2 70 72 69 28 78 25  |..........pri(x%|
00005110  2c 79 25 2c 61 24 29 0d  03 02 3a c8 99 22 46 6f  |,y%,a$)...:.."Fo|
00005120  6e 74 5f 46 69 6e 64 46  6f 6e 74 22 2c 2c 22 54  |nt_FindFont",,"T|
00005130  41 42 4c 4f 49 44 2e 4d  65 64 69 75 6d 22 2c 33  |ABLOID.Medium",3|
00005140  32 30 2c 33 36 30 2c 30  2c 30 20 b8 20 68 61 6e  |20,360,0,0 . han|
00005150  25 0d 03 03 23 c8 99 22  46 6f 6e 74 5f 53 65 74  |%...#.."Font_Set|
00005160  46 6f 6e 74 43 6f 6c 6f  75 72 73 22 2c 30 2c 30  |FontColours",0,0|
00005170  2c 31 2c 32 0d 03 04 14  ef 30 2c 30 2c 30 2c 30  |,1,2.....0,0,0,0|
00005180  2c 30 2c 30 2c 30 2c 30  0d 03 05 1f c8 99 22 46  |,0,0,0,0......"F|
00005190  6f 6e 74 5f 50 61 69 6e  74 22 2c 2c 61 24 2c 31  |ont_Paint",,a$,1|
000051a0  36 2c 78 25 2c 79 25 0d  03 06 1a c8 99 22 46 6f  |6,x%,y%......"Fo|
000051b0  6e 74 5f 4c 6f 73 65 46  6f 6e 74 22 2c 68 61 6e  |nt_LoseFont",han|
000051c0  25 0d 03 07 05 e1 0d 03  08 1c dd a4 66 6f 6e 74  |%...........font|
000051d0  5f 73 74 72 69 6e 67 5f  77 28 73 74 72 69 6e 67  |_string_w(string|
000051e0  24 29 0d 03 09 14 24 73  74 72 69 6e 67 25 3d 73  |$)....$string%=s|
000051f0  74 72 69 6e 67 24 0d 03  0a 3a c8 99 22 46 6f 6e  |tring$...:.."Fon|
00005200  74 5f 46 69 6e 64 46 6f  6e 74 22 2c 2c 22 54 41  |t_FindFont",,"TA|
00005210  42 4c 4f 49 44 2e 4d 65  64 69 75 6d 22 2c 33 32  |BLOID.Medium",32|
00005220  30 2c 33 36 30 2c 30 2c  30 20 b8 20 68 61 6e 25  |0,360,0,0 . han%|
00005230  0d 03 0b 47 c8 99 22 46  6f 6e 74 5f 53 74 72 69  |...G.."Font_Stri|
00005240  6e 67 57 69 64 74 68 22  2c 30 2c 73 74 72 69 6e  |ngWidth",0,strin|
00005250  67 25 2c 36 30 30 30 30  30 2c 34 38 30 30 30 30  |g%,600000,480000|
00005260  2c 2d 31 2c 38 30 20 b8  20 72 30 2c 72 31 2c 66  |,-1,80 . r0,r1,f|
00005270  5f 77 69 64 74 68 25 0d  03 0c 1a c8 99 22 46 6f  |_width%......"Fo|
00005280  6e 74 5f 4c 6f 73 65 46  6f 6e 74 22 2c 68 61 6e  |nt_LoseFont",han|
00005290  25 0d 03 0d 0d 3d 66 5f  77 69 64 74 68 25 0d 03  |%....=f_width%..|
000052a0  0e 1c dd a4 66 6f 6e 74  5f 73 74 72 69 6e 67 5f  |....font_string_|
000052b0  68 28 73 74 72 69 6e 67  24 29 0d 03 0f 14 24 73  |h(string$)....$s|
000052c0  74 72 69 6e 67 25 3d 73  74 72 69 6e 67 24 0d 03  |tring%=string$..|
000052d0  10 3a c8 99 22 46 6f 6e  74 5f 46 69 6e 64 46 6f  |.:.."Font_FindFo|
000052e0  6e 74 22 2c 2c 22 54 41  42 4c 4f 49 44 2e 4d 65  |nt",,"TABLOID.Me|
000052f0  64 69 75 6d 22 2c 33 32  30 2c 33 36 30 2c 30 2c  |dium",320,360,0,|
00005300  30 20 b8 20 68 61 6e 25  0d 03 11 4a c8 99 22 46  |0 . han%...J.."F|
00005310  6f 6e 74 5f 53 74 72 69  6e 67 57 69 64 74 68 22  |ont_StringWidth"|
00005320  2c 30 2c 73 74 72 69 6e  67 25 2c 36 30 30 30 30  |,0,string%,60000|
00005330  30 2c 34 38 30 30 30 30  2c 2d 31 2c 38 30 20 b8  |0,480000,-1,80 .|
00005340  20 72 30 2c 72 31 2c 72  32 2c 66 5f 68 65 69 67  | r0,r1,r2,f_heig|
00005350  68 74 0d 03 12 1a c8 99  22 46 6f 6e 74 5f 4c 6f  |ht......"Font_Lo|
00005360  73 65 46 6f 6e 74 22 2c  68 61 6e 25 0d 03 13 0e  |seFont",han%....|
00005370  3d 66 5f 68 65 69 67 68  74 25 0d 03 14 18 dd f2  |=f_height%......|
00005380  73 74 61 72 74 5f 61 6e  69 6d 28 62 6c 61 6e 6b  |start_anim(blank|
00005390  24 29 0d 03 15 3d c8 99  22 4f 53 5f 53 70 72 69  |$)...=.."OS_Spri|
000053a0  74 65 4f 70 22 2c 26 31  31 38 2c 73 70 72 69 74  |teOp",&118,sprit|
000053b0  65 5f 61 72 65 61 31 25  2c 73 65 6c 5f 73 70 72  |e_area1%,sel_spr|
000053c0  69 74 65 24 20 b8 20 72  30 2c 72 31 2c 72 32 0d  |ite$ . r0,r1,r2.|
000053d0  03 16 3c 77 69 64 74 68  25 3d 28 21 28 72 32 2b  |..<width%=(!(r2+|
000053e0  31 36 29 2b 31 29 2a 31  36 3a 68 65 69 67 68 74  |16)+1)*16:height|
000053f0  25 3d 28 21 28 72 32 2b  32 30 29 2b 31 29 2a 28  |%=(!(r2+20)+1)*(|
00005400  34 2a 28 76 67 61 25 2b  31 29 29 0d 03 17 56 c8  |4*(vga%+1))...V.|
00005410  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
00005420  31 31 30 2c 73 70 72 69  74 65 5f 61 72 65 61 31  |110,sprite_area1|
00005430  25 2c 62 6c 61 6e 6b 24  2c 30 2c 61 6e 5f 78 25  |%,blank$,0,an_x%|
00005440  2c 61 6e 5f 79 25 2c 61  6e 5f 78 25 2b 77 69 64  |,an_y%,an_x%+wid|
00005450  74 68 25 2c 61 6e 5f 79  25 2b 68 65 69 67 68 74  |th%,an_y%+height|
00005460  25 0d 03 18 38 f2 70 6c  6f 74 5f 73 70 72 69 74  |%...8.plot_sprit|
00005470  65 5f 6d 61 73 6b 65 64  28 61 6e 5f 78 25 2c 61  |e_masked(an_x%,a|
00005480  6e 5f 79 25 2c 31 2c 31  2c 31 2c 31 2c 73 65 6c  |n_y%,1,1,1,1,sel|
00005490  5f 73 70 72 69 74 65 24  29 0d 03 19 1d 61 6e 5f  |_sprite$)....an_|
000054a0  78 78 25 3d 61 6e 5f 78  25 3a 61 6e 5f 79 79 25  |xx%=an_x%:an_yy%|
000054b0  3d 61 6e 5f 79 25 0d 03  1a 05 e1 0d 03 1b 12 dd  |=an_y%..........|
000054c0  f2 61 6e 69 6d 28 62 6c  61 6e 6b 24 29 0d 03 1c  |.anim(blank$)...|
000054d0  3a f2 70 6c 6f 74 5f 73  70 72 69 74 65 5f 6d 61  |:.plot_sprite_ma|
000054e0  73 6b 65 64 28 61 6e 5f  78 78 25 2c 61 6e 5f 79  |sked(an_xx%,an_y|
000054f0  79 25 2c 31 2c 31 2c 31  2c 31 2b 76 67 61 25 2c  |y%,1,1,1,1+vga%,|
00005500  62 6c 61 6e 6b 24 29 0d  03 1d 56 c8 99 22 4f 53  |blank$)...V.."OS|
00005510  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 31 30 2c  |_SpriteOp",&110,|
00005520  73 70 72 69 74 65 5f 61  72 65 61 31 25 2c 62 6c  |sprite_area1%,bl|
00005530  61 6e 6b 24 2c 30 2c 61  6e 5f 78 25 2c 61 6e 5f  |ank$,0,an_x%,an_|
00005540  79 25 2c 61 6e 5f 78 25  2b 77 69 64 74 68 25 2c  |y%,an_x%+width%,|
00005550  61 6e 5f 79 25 2b 68 65  69 67 68 74 25 0d 03 1e  |an_y%+height%...|
00005560  38 f2 70 6c 6f 74 5f 73  70 72 69 74 65 5f 6d 61  |8.plot_sprite_ma|
00005570  73 6b 65 64 28 61 6e 5f  78 25 2c 61 6e 5f 79 25  |sked(an_x%,an_y%|
00005580  2c 31 2c 31 2c 31 2c 31  2c 73 65 6c 5f 73 70 72  |,1,1,1,1,sel_spr|
00005590  69 74 65 24 29 0d 03 1f  1d 61 6e 5f 78 78 25 3d  |ite$)....an_xx%=|
000055a0  61 6e 5f 78 25 3a 61 6e  5f 79 79 25 3d 61 6e 5f  |an_x%:an_yy%=an_|
000055b0  79 25 0d 03 20 05 e1 0d  03 21 16 dd f2 65 6e 64  |y%.. ....!...end|
000055c0  5f 61 6e 69 6d 28 62 6c  61 6e 6b 24 29 0d 03 22  |_anim(blank$).."|
000055d0  3a f2 70 6c 6f 74 5f 73  70 72 69 74 65 5f 6d 61  |:.plot_sprite_ma|
000055e0  73 6b 65 64 28 61 6e 5f  78 78 25 2c 61 6e 5f 79  |sked(an_xx%,an_y|
000055f0  79 25 2c 31 2c 31 2c 31  2c 31 2b 76 67 61 25 2c  |y%,1,1,1,1+vga%,|
00005600  62 6c 61 6e 6b 24 29 0d  03 23 05 e1 0d 03 24 14  |blank$)..#....$.|
00005610  dd f2 70 72 69 32 28 78  25 2c 79 25 2c 61 24 29  |..pri2(x%,y%,a$)|
00005620  0d 03 25 3a c8 99 22 46  6f 6e 74 5f 46 69 6e 64  |..%:.."Font_Find|
00005630  46 6f 6e 74 22 2c 2c 22  54 41 42 4c 4f 49 44 2e  |Font",,"TABLOID.|
00005640  4d 65 64 69 75 6d 22 2c  33 32 30 2c 33 36 30 2c  |Medium",320,360,|
00005650  30 2c 30 20 b8 20 68 61  6e 25 0d 03 26 24 c8 99  |0,0 . han%..&$..|
00005660  22 46 6f 6e 74 5f 53 65  74 46 6f 6e 74 43 6f 6c  |"Font_SetFontCol|
00005670  6f 75 72 73 22 2c 30 2c  33 2c 32 2c 2d 32 0d 03  |ours",0,3,2,-2..|
00005680  27 14 ef 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |'..0,0,0,0,0,0,0|
00005690  2c 30 0d 03 28 1f c8 99  22 46 6f 6e 74 5f 50 61  |,0..(..."Font_Pa|
000056a0  69 6e 74 22 2c 2c 61 24  2c 31 36 2c 78 25 2c 79  |int",,a$,16,x%,y|
000056b0  25 0d 03 29 1a c8 99 22  46 6f 6e 74 5f 4c 6f 73  |%..)..."Font_Los|
000056c0  65 46 6f 6e 74 22 2c 68  61 6e 25 0d 03 2a 05 e1  |eFont",han%..*..|
000056d0  0d 03 2b 1c dd f2 62 6f  78 28 62 78 25 2c 62 79  |..+...box(bx%,by|
000056e0  25 2c 62 78 78 25 2c 62  79 79 25 29 0d 03 2c 1f  |%,bxx%,byy%)..,.|
000056f0  62 78 78 25 3d 62 78 25  2b 62 78 78 25 3a 62 79  |bxx%=bx%+bxx%:by|
00005700  79 25 3d 62 79 25 2b 62  79 79 25 0d 03 2d 25 ef  |y%=by%+byy%..-%.|
00005710  32 34 2c 62 78 25 3b 62  79 25 3b 62 78 78 25 3b  |24,bx%;by%;bxx%;|
00005720  62 79 79 25 3b 31 38 2c  30 2c 31 33 30 2c 31 36  |byy%;18,0,130,16|
00005730  0d 03 2e 2d ef 32 34 2c  62 78 25 2b 34 3b 62 79  |...-.24,bx%+4;by|
00005740  25 2b 34 3b 62 78 78 25  2d 34 3b 62 79 79 25 2d  |%+4;bxx%-4;byy%-|
00005750  34 3b 31 38 2c 30 2c 31  32 39 2c 31 36 0d 03 2f  |4;18,0,129,16../|
00005760  30 ef 32 34 2c 62 78 25  2b 38 3b 62 79 25 2b 38  |0.24,bx%+8;by%+8|
00005770  3b 62 78 78 25 2d 38 3b  62 79 79 25 2d 38 3b 31  |;bxx%-8;byy%-8;1|
00005780  38 2c 30 2c 31 32 38 2c  31 36 2c 32 36 0d 03 30  |8,0,128,16,26..0|
00005790  2f e6 30 2c 33 3a ec 20  62 78 25 2b 34 2c 62 79  |/.0,3:. bx%+4,by|
000057a0  25 3a f0 35 2c 62 78 78  25 2c 62 79 25 3a f0 35  |%:.5,bxx%,by%:.5|
000057b0  2c 62 78 78 25 2c 62 79  79 25 2d 34 0d 03 31 32  |,bxx%,byy%-4..12|
000057c0  ec 20 62 78 25 2b 34 2c  62 79 25 2b 32 3a f0 35  |. bx%+4,by%+2:.5|
000057d0  2c 62 78 78 25 2d 32 2c  62 79 25 2b 32 3a f0 35  |,bxx%-2,by%+2:.5|
000057e0  2c 62 78 78 25 2d 32 2c  62 79 79 25 2d 34 0d 03  |,bxx%-2,byy%-4..|
000057f0  32 37 e6 30 2c 32 3a ec  20 62 78 25 2b 38 2c 62  |27.0,2:. bx%+8,b|
00005800  79 25 2b 34 3a f0 35 2c  62 78 78 25 2d 34 2c 62  |y%+4:.5,bxx%-4,b|
*
00005820  79 79 25 2d 38 0d 03 33  32 ec 20 62 78 25 2b 38  |yy%-8..32. bx%+8|
00005830  2c 62 79 25 2b 36 3a f0  35 2c 62 78 78 25 2d 36  |,by%+6:.5,bxx%-6|
*
00005850  2c 62 79 79 25 2d 38 0d  03 34 05 e1 0d 03 35 1d  |,byy%-8..4....5.|
00005860  dd f2 62 6f 78 32 28 62  78 25 2c 62 79 25 2c 62  |..box2(bx%,by%,b|
00005870  78 78 25 2c 62 79 79 25  29 0d 03 36 1f 62 78 78  |xx%,byy%)..6.bxx|
00005880  25 3d 62 78 25 2b 62 78  78 25 3a 62 79 79 25 3d  |%=bx%+bxx%:byy%=|
00005890  62 79 25 2b 62 79 79 25  0d 03 37 2d ef 32 34 2c  |by%+byy%..7-.24,|
000058a0  62 78 25 2d 34 3b 62 79  25 2d 34 3b 62 78 78 25  |bx%-4;by%-4;bxx%|
000058b0  2b 34 3b 62 79 79 25 2b  34 3b 31 38 2c 30 2c 31  |+4;byy%+4;18,0,1|
000058c0  33 31 2c 31 36 0d 03 38  28 ef 32 34 2c 62 78 25  |31,16..8(.24,bx%|
000058d0  3b 62 79 25 3b 62 78 78  25 3b 62 79 79 25 3b 31  |;by%;bxx%;byy%;1|
000058e0  38 2c 30 2c 31 32 38 2c  31 36 2c 32 36 0d 03 39  |8,0,128,16,26..9|
000058f0  05 e1 0d 03 3a 37 dd f2  73 65 74 5f 75 70 5f 63  |....:7..set_up_c|
00005900  6f 75 6e 74 5f 64 6f 77  6e 28 74 78 25 2c 74 79  |ount_down(tx%,ty|
00005910  25 2c 64 69 67 69 74 73  25 2c 61 6d 6f 75 6e 74  |%,digits%,amount|
00005920  25 2c 74 69 6d 65 72 25  29 0d 03 3b 20 f2 62 6f  |%,timer%)..; .bo|
00005930  78 32 28 74 78 25 2c 74  79 25 2c 34 38 2a 64 69  |x2(tx%,ty%,48*di|
00005940  67 69 74 73 25 2c 37 32  29 0d 03 3c 21 63 6f 75  |gits%,72)..<!cou|
00005950  6e 74 5f 64 6f 77 6e 25  28 74 69 6d 65 72 25 29  |nt_down%(timer%)|
00005960  3d 91 2b 61 6d 6f 75 6e  74 25 0d 03 3d 05 e1 0d  |=.+amount%..=...|
00005970  03 3e 29 dd a4 70 72 69  6e 74 5f 74 69 6d 65 72  |.>)..print_timer|
00005980  28 74 78 25 2c 74 79 25  2c 64 69 67 69 74 73 25  |(tx%,ty%,digits%|
00005990  2c 74 69 6d 65 72 25 29  0d 03 3f 26 74 69 6d 65  |,timer%)..?&time|
000059a0  72 25 3d 28 63 6f 75 6e  74 5f 64 6f 77 6e 25 28  |r%=(count_down%(|
000059b0  74 69 6d 65 72 25 29 2d  91 29 2f 31 30 30 0d 03  |timer%)-.)/100..|
000059c0  40 2f e7 74 69 6d 65 72  25 3c 30 20 74 69 6d 65  |@/.timer%<0 time|
000059d0  72 25 3d 30 30 30 30 3a  63 6f 75 6e 74 5f 64 6f  |r%=0000:count_do|
000059e0  77 6e 25 28 74 69 6d 65  72 25 29 3d 30 0d 03 41  |wn%(timer%)=0..A|
000059f0  10 74 24 3d c3 28 74 69  6d 65 72 25 29 0d 03 42  |.t$=.(timer%)..B|
00005a00  2a f2 70 6c 6f 74 5f 6e  75 6d 62 65 72 73 28 74  |*.plot_numbers(t|
00005a10  78 25 2b 32 34 2c 74 79  25 2b 38 2c 64 69 67 69  |x%+24,ty%+8,digi|
00005a20  74 73 25 2c 74 24 29 0d  03 43 07 3d 74 24 0d 03  |ts%,t$)..C.=t$..|
00005a30  44 25 dd f2 70 6c 6f 74  5f 6e 75 6d 62 65 72 73  |D%..plot_numbers|
00005a40  32 28 78 25 2c 79 25 2c  64 69 67 69 74 73 25 2c  |2(x%,y%,digits%,|
00005a50  61 24 29 0d 03 45 12 e3  70 6e 25 3d 31 20 b8 20  |a$)..E..pn%=1 . |
00005a60  a9 28 61 24 29 0d 03 46  38 f2 70 6c 6f 74 5f 73  |.(a$)..F8.plot_s|
00005a70  70 72 69 74 65 28 28 78  25 2d 33 36 29 2b 28 70  |prite((x%-36)+(p|
00005a80  6e 25 2a 33 36 29 2c 79  25 2c 31 2c 31 2c 31 2c  |n%*36),y%,1,1,1,|
00005a90  31 2c c1 61 24 2c 70 6e  25 2c 31 29 29 0d 03 47  |1,.a$,pn%,1))..G|
00005aa0  05 ed 0d 03 48 05 e1 0d  03 49 24 dd f2 70 6c 6f  |....H....I$..plo|
00005ab0  74 5f 6e 75 6d 62 65 72  73 28 78 25 2c 79 25 2c  |t_numbers(x%,y%,|
00005ac0  64 69 67 69 74 73 25 2c  61 24 29 0d 03 4a 14 e7  |digits%,a$)..J..|
00005ad0  a9 28 61 24 29 3c 64 69  67 69 74 73 25 20 8c 0d  |.(a$)<digits% ..|
00005ae0  03 4b 05 f5 0d 03 4c 0d  61 24 3d 22 64 22 2b 61  |.K....L.a$="d"+a|
00005af0  24 0d 03 4d 12 fd a9 28  61 24 29 3d 64 69 67 69  |$..M...(a$)=digi|
00005b00  74 73 25 0d 03 4e 05 cd  0d 03 4f 12 e3 70 6e 25  |ts%..N....O..pn%|
00005b10  3d 31 20 b8 20 a9 28 61  24 29 0d 03 50 38 f2 70  |=1 . .(a$)..P8.p|
00005b20  6c 6f 74 5f 73 70 72 69  74 65 28 28 78 25 2d 33  |lot_sprite((x%-3|
00005b30  36 29 2b 28 70 6e 25 2a  33 36 29 2c 79 25 2c 31  |6)+(pn%*36),y%,1|
00005b40  2c 31 2c 31 2c 31 2c c1  61 24 2c 70 6e 25 2c 31  |,1,1,1,.a$,pn%,1|
00005b50  29 29 0d 03 51 05 ed 0d  03 52 05 e1 0d 03 53 1e  |))..Q....R....S.|
00005b60  dd f2 73 65 74 5f 70 6f  73 5f 62 75 74 74 6f 6e  |..set_pos_button|
00005b70  73 28 62 78 25 2c 62 79  25 29 0d 03 54 16 e3 62  |s(bx%,by%)..T..b|
00005b80  66 25 3d 31 b8 20 74 6f  74 61 6c 5f 62 75 74 25  |f%=1. total_but%|
00005b90  0d 03 55 1f 62 75 74 25  28 62 66 25 2c 30 29 3d  |..U.but%(bf%,0)=|
00005ba0  62 75 74 25 28 62 66 25  2c 30 29 2b 62 78 25 0d  |but%(bf%,0)+bx%.|
00005bb0  03 56 1f 62 75 74 25 28  62 66 25 2c 31 29 3d 62  |.V.but%(bf%,1)=b|
00005bc0  75 74 25 28 62 66 25 2c  31 29 2b 62 79 25 0d 03  |ut%(bf%,1)+by%..|
00005bd0  57 05 ed 0d 03 58 05 e1  0d 03 59 1a dd f2 64 65  |W....X....Y...de|
00005be0  66 69 6e 65 5f 62 75 74  74 6f 6e 73 28 73 65 74  |fine_buttons(set|
00005bf0  25 29 0d 03 5a 1e e7 73  65 74 25 3d 31 3a 74 6f  |%)..Z..set%=1:to|
00005c00  74 61 6c 5f 62 75 74 25  3d 31 3a f7 8d 44 60 43  |tal_but%=1:..D`C|
00005c10  0d 03 5b 1e e7 73 65 74  25 3d 32 3a 74 6f 74 61  |..[..set%=2:tota|
00005c20  6c 5f 62 75 74 25 3d 34  3a f7 8d 44 61 43 0d 03  |l_but%=4:..DaC..|
00005c30  5c 1d e3 62 75 74 5f 6e  75 6d 62 65 72 25 3d 31  |\..but_number%=1|
00005c40  b8 74 6f 74 61 6c 5f 62  75 74 25 0d 03 5d 7a f3  |.total_but%..]z.|
00005c50  62 75 74 25 28 62 75 74  5f 6e 75 6d 62 65 72 25  |but%(but_number%|
00005c60  2c 30 29 2c 62 75 74 25  28 62 75 74 5f 6e 75 6d  |,0),but%(but_num|
00005c70  62 65 72 25 2c 31 29 2c  62 75 74 25 28 62 75 74  |ber%,1),but%(but|
00005c80  5f 6e 75 6d 62 65 72 25  2c 32 29 2c 62 75 74 25  |_number%,2),but%|
00005c90  28 62 75 74 5f 6e 75 6d  62 65 72 25 2c 33 29 2c  |(but_number%,3),|
00005ca0  62 75 74 25 28 62 75 74  5f 6e 75 6d 62 65 72 25  |but%(but_number%|
00005cb0  2c 34 29 2c 62 75 74 24  28 62 75 74 5f 6e 75 6d  |,4),but$(but_num|
00005cc0  62 65 72 25 29 0d 03 5e  05 ed 0d 03 5f 05 e1 0d  |ber%)..^...._...|
00005cd0  03 60 1c dc 20 31 30 30  2c 31 30 30 2c 32 30 30  |.`.. 100,100,200|
00005ce0  2c 34 30 2c 32 2c 47 6f  20 6f 6e 0d 03 61 6c dc  |,40,2,Go on..al.|
00005cf0  20 38 32 30 2c 31 30 30  2c 32 30 30 2c 36 30 2c  | 820,100,200,60,|
00005d00  32 2c 76 61 6c 75 65 20  75 70 2c 38 32 30 2c 34  |2,value up,820,4|
00005d10  30 2c 32 30 30 2c 36 30  2c 32 2c 76 61 6c 75 65  |0,200,60,2,value|
00005d20  20 64 6f 77 6e 2c 31 30  36 30 2c 36 35 2c 32 30  | down,1060,65,20|
00005d30  30 2c 36 30 2c 32 2c 43  6f 72 72 65 63 74 21 2c  |0,60,2,Correct!,|
00005d40  32 30 2c 36 35 2c 32 30  30 2c 36 30 2c 32 2c 4e  |20,65,200,60,2,N|
00005d50  65 78 74 20 62 6f 78 0d  03 62 15 dd f2 73 65 74  |ext box..b...set|
00005d60  5f 6e 65 77 5f 62 75 74  74 6f 6e 73 0d 03 63 18  |_new_buttons..c.|
00005d70  e3 62 75 74 5f 6e 25 3d  31 b8 74 6f 74 61 6c 5f  |.but_n%=1.total_|
00005d80  62 75 74 25 0d 03 64 32  e7 62 75 74 25 28 62 75  |but%..d2.but%(bu|
00005d90  74 5f 6e 25 2c 34 29 3d  30 20 84 20 62 75 74 25  |t_n%,4)=0 . but%|
00005da0  28 62 75 74 5f 6e 25 2c  34 29 3d 33 3a 63 6f 6c  |(but_n%,4)=3:col|
00005db0  6f 75 72 25 3d 30 0d 03  65 20 e7 62 75 74 25 28  |our%=0..e .but%(|
00005dc0  62 75 74 5f 6e 25 2c 34  29 3d 31 20 3a 63 6f 6c  |but_n%,4)=1 :col|
00005dd0  6f 75 72 25 3d 31 0d 03  66 20 e7 62 75 74 25 28  |our%=1..f .but%(|
00005de0  62 75 74 5f 6e 25 2c 34  29 3d 32 20 3a 63 6f 6c  |but_n%,4)=2 :col|
00005df0  6f 75 72 25 3d 33 0d 03  67 62 e7 20 63 6f 6c 6f  |our%=3..gb. colo|
00005e00  75 72 25 3e 30 3a f2 62  75 74 5f 73 75 72 72 6f  |ur%>0:.but_surro|
00005e10  75 6e 64 28 62 75 74 25  28 62 75 74 5f 6e 25 2c  |und(but%(but_n%,|
00005e20  30 29 2c 62 75 74 25 28  62 75 74 5f 6e 25 2c 31  |0),but%(but_n%,1|
00005e30  29 2c 62 75 74 25 28 62  75 74 5f 6e 25 2c 32 29  |),but%(but_n%,2)|
00005e40  2c 62 75 74 25 28 62 75  74 5f 6e 25 2c 33 29 2c  |,but%(but_n%,3),|
00005e50  63 6f 6c 6f 75 72 25 29  0d 03 68 71 e7 20 63 6f  |colour%)..hq. co|
00005e60  6c 6f 75 72 25 3e 30 3a  f2 62 75 74 5f 63 65 6e  |lour%>0:.but_cen|
00005e70  74 72 65 28 62 75 74 25  28 62 75 74 5f 6e 25 2c  |tre(but%(but_n%,|
00005e80  30 29 2c 62 75 74 25 28  62 75 74 5f 6e 25 2c 31  |0),but%(but_n%,1|
00005e90  29 2c 62 75 74 25 28 62  75 74 5f 6e 25 2c 32 29  |),but%(but_n%,2)|
00005ea0  2c 62 75 74 25 28 62 75  74 5f 6e 25 2c 33 29 2c  |,but%(but_n%,3),|
00005eb0  31 32 38 2c 63 6f 6c 6f  75 72 25 2c 62 75 74 24  |128,colour%,but$|
00005ec0  28 62 75 74 5f 6e 25 29  29 0d 03 69 07 ef 32 36  |(but_n%))..i..26|
00005ed0  0d 03 6a 05 ed 0d 03 6b  05 e1 0d 03 6c 2a dd f2  |..j....k....l*..|
00005ee0  62 75 74 5f 73 75 72 72  6f 75 6e 64 28 62 78 25  |but_surround(bx%|
00005ef0  2c 62 79 25 2c 62 78 78  25 2c 62 79 79 25 2c 63  |,by%,bxx%,byy%,c|
00005f00  6f 6c 25 29 0d 03 6d 0b  e6 30 2c 63 6f 6c 25 0d  |ol%)..m..0,col%.|
00005f10  03 6e 78 ec 62 78 25 2c  62 79 25 3a f0 31 2c 62  |.nx.bx%,by%:.1,b|
00005f20  78 78 25 2c 30 3a f0 31  2c 30 2c 28 62 79 79 25  |xx%,0:.1,0,(byy%|
00005f30  2b 34 29 3a f0 31 2c 2d  32 2c 30 3a f0 31 2c 30  |+4):.1,-2,0:.1,0|
00005f40  2c 2d 28 62 79 79 25 2b  34 29 3a f0 30 2c 32 2c  |,-(byy%+4):.0,2,|
00005f50  28 62 79 79 25 2b 34 29  3a f0 31 2c 2d 62 78 78  |(byy%+4):.1,-bxx|
00005f60  25 2c 30 3a f0 31 2c 30  2c 2d 28 62 79 79 25 2b  |%,0:.1,0,-(byy%+|
00005f70  34 29 3a f0 31 2c 32 2c  30 3a f0 31 2c 30 2c 28  |4):.1,2,0:.1,0,(|
00005f80  62 79 79 25 2b 34 29 0d  03 6f 48 e7 76 67 61 25  |byy%+4)..oH.vga%|
00005f90  3d 31 20 ec 62 78 25 2c  62 79 25 2d 32 3a f0 31  |=1 .bx%,by%-2:.1|
00005fa0  2c 62 78 78 25 2c 30 3a  f0 31 2c 30 2c 28 62 79  |,bxx%,0:.1,0,(by|
00005fb0  79 25 2b 38 29 3a f0 31  2c 2d 62 78 78 25 2c 30  |y%+8):.1,-bxx%,0|
00005fc0  3a f0 31 2c 30 2c 2d 28  62 79 79 25 2b 38 29 0d  |:.1,0,-(byy%+8).|
00005fd0  03 70 05 e1 0d 03 71 34  dd f2 62 75 74 5f 63 65  |.p....q4..but_ce|
00005fe0  6e 74 72 65 28 62 78 25  2c 62 79 25 2c 62 78 78  |ntre(bx%,by%,bxx|
00005ff0  25 2c 62 79 79 25 2c 62  63 6f 6c 25 2c 63 6f 6c  |%,byy%,bcol%,col|
00006000  25 2c 74 65 78 74 24 29  0d 03 72 14 e6 30 2c 62  |%,text$)..r..0,b|
00006010  63 6f 6c 25 3a e6 30 2c  63 6f 6c 25 0d 03 73 21  |col%:.0,col%..s!|
00006020  e7 56 25 3d 31 20 63 6f  72 72 65 63 74 25 3d 32  |.V%=1 correct%=2|
00006030  20 8b 20 63 6f 72 72 65  63 74 25 3d 30 0d 03 74  | . correct%=0..t|
00006040  41 ef 32 34 2c 62 78 25  2b 34 3b 62 79 25 2b 34  |A.24,bx%+4;by%+4|
00006050  2d 63 6f 72 72 65 63 74  25 3b 62 78 25 2b 62 78  |-correct%;bx%+bx|
00006060  78 25 2d 34 3b 62 79 25  2b 62 79 79 25 2b 63 6f  |x%-4;by%+byy%+co|
00006070  72 72 65 63 74 25 3b 31  36 2c 32 36 2c 35 0d 03  |rrect%;16,26,5..|
00006080  75 27 6c 65 66 74 5f 6d  61 72 67 69 6e 25 3d 28  |u'left_margin%=(|
00006090  62 78 78 25 2d 28 a9 28  74 65 78 74 24 29 2a 31  |bxx%-(.(text$)*1|
000060a0  36 29 29 2f 32 0d 03 76  23 ec 62 78 25 2b 6c 65  |6))/2..v#.bx%+le|
000060b0  66 74 5f 6d 61 72 67 69  6e 25 2c 62 79 25 2b 33  |ft_margin%,by%+3|
000060c0  36 3a f1 74 65 78 74 24  0d 03 77 06 ef 34 0d 03  |6:.text$..w..4..|
000060d0  78 05 e1 0d 03 79 1c dd  f2 63 68 65 63 6b 5f 62  |x....y...check_b|
000060e0  75 74 74 6f 6e 73 28 61  6e 5f 6e 75 6d 25 29 0d  |uttons(an_num%).|
000060f0  03 7a 0f 73 65 6c 65 63  74 65 64 25 3d 30 0d 03  |.z.selected%=0..|
00006100  7b 11 c8 97 6d 78 25 2c  6d 79 25 2c 6d 63 25 0d  |{...mx%,my%,mc%.|
00006110  03 7c 0c 63 62 25 3d a6  28 31 29 0d 03 7d 1a e7  |.|.cb%=.(1)..}..|
00006120  63 62 25 3d 31 36 20 63  62 25 3d 30 3a f2 70 72  |cb%=16 cb%=0:.pr|
00006130  69 6e 74 65 72 0d 03 7e  21 e7 63 62 25 3d 31 39  |inter..~!.cb%=19|
00006140  20 63 62 25 3d 30 3a f2  73 63 72 65 65 6e 5f 73  | cb%=0:.screen_s|
00006150  61 76 65 28 30 29 0d 03  7f 1a e3 62 75 74 5f 6e  |ave(0).....but_n|
00006160  25 3d 31 20 b8 20 74 6f  74 61 6c 5f 62 75 74 25  |%=1 . total_but%|
00006170  0d 03 80 19 e7 62 75 74  25 28 62 75 74 5f 6e 25  |.....but%(but_n%|
00006180  2c 34 29 3c 32 3a ed 3a  e1 0d 03 81 79 e7 6d 78  |,4)<2:.:....y.mx|
00006190  25 3c 62 75 74 25 28 62  75 74 5f 6e 25 2c 30 29  |%<but%(but_n%,0)|
000061a0  20 84 20 6d 78 25 3e 28  62 75 74 25 28 62 75 74  | . mx%>(but%(but|
000061b0  5f 6e 25 2c 30 29 2b 62  75 74 25 28 62 75 74 5f  |_n%,0)+but%(but_|
000061c0  6e 25 2c 32 29 29 20 84  20 6d 79 25 3c 62 75 74  |n%,2)) . my%<but|
000061d0  25 28 62 75 74 5f 6e 25  2c 31 29 20 84 20 6d 79  |%(but_n%,1) . my|
000061e0  25 3e 28 62 75 74 25 28  62 75 74 5f 6e 25 2c 31  |%>(but%(but_n%,1|
000061f0  29 2b 62 75 74 25 28 62  75 74 5f 6e 25 2c 33 29  |)+but%(but_n%,3)|
00006200  29 8c 0d 03 82 99 e7 b0  62 75 74 25 28 62 75 74  |).......but%(but|
00006210  5f 6e 25 2c 30 29 2b 36  2c 62 75 74 25 28 62 75  |_n%,0)+6,but%(bu|
00006220  74 5f 6e 25 2c 31 29 2b  38 29 3d 34 20 80 20 62  |t_n%,1)+8)=4 . b|
00006230  75 74 25 28 62 75 74 5f  6e 25 2c 34 29 3c 33 3a  |ut%(but_n%,4)<3:|
00006240  f2 62 75 74 5f 63 65 6e  74 72 65 28 62 75 74 25  |.but_centre(but%|
00006250  28 62 75 74 5f 6e 25 2c  30 29 2c 62 75 74 25 28  |(but_n%,0),but%(|
00006260  62 75 74 5f 6e 25 2c 31  29 2c 62 75 74 25 28 62  |but_n%,1),but%(b|
00006270  75 74 5f 6e 25 2c 32 29  2c 62 75 74 25 28 62 75  |ut_n%,2),but%(bu|
00006280  74 5f 6e 25 2c 33 29 2c  31 32 38 2c 33 2c 62 75  |t_n%,3),128,3,bu|
00006290  74 24 28 62 75 74 5f 6e  25 29 29 0d 03 83 05 cc  |t$(but_n%)).....|
000062a0  0d 03 84 99 e7 b0 62 75  74 25 28 62 75 74 5f 6e  |......but%(but_n|
000062b0  25 2c 30 29 2b 36 2c 62  75 74 25 28 62 75 74 5f  |%,0)+6,but%(but_|
000062c0  6e 25 2c 31 29 2b 34 29  3d 30 20 80 20 62 75 74  |n%,1)+4)=0 . but|
000062d0  25 28 62 75 74 5f 6e 25  2c 34 29 3c 33 3a f2 62  |%(but_n%,4)<3:.b|
000062e0  75 74 5f 63 65 6e 74 72  65 28 62 75 74 25 28 62  |ut_centre(but%(b|
000062f0  75 74 5f 6e 25 2c 30 29  2c 62 75 74 25 28 62 75  |ut_n%,0),but%(bu|
00006300  74 5f 6e 25 2c 31 29 2c  62 75 74 25 28 62 75 74  |t_n%,1),but%(but|
00006310  5f 6e 25 2c 32 29 2c 62  75 74 25 28 62 75 74 5f  |_n%,2),but%(but_|
00006320  6e 25 2c 33 29 2c 31 33  32 2c 33 2c 62 75 74 24  |n%,3),132,3,but$|
00006330  28 62 75 74 5f 6e 25 29  29 0d 03 85 1b e7 6d 63  |(but_n%)).....mc|
00006340  25 3d 34 3a 73 65 6c 65  63 74 65 64 25 3d 62 75  |%=4:selected%=bu|
00006350  74 5f 6e 25 0d 03 86 05  cd 0d 03 87 20 e7 61 6e  |t_n%........ .an|
00006360  5f 6e 75 6d 25 3e 30 3a  f2 73 70 5f 61 6e 69 6d  |_num%>0:.sp_anim|
00006370  28 61 6e 5f 6e 75 6d 25  29 0d 03 88 05 ed 0d 03  |(an_num%).......|
00006380  89 05 e1 0d 03 8a 16 dd  f2 73 70 5f 61 6e 69 6d  |.........sp_anim|
00006390  28 61 6e 5f 6e 75 6d 25  29 0d 03 8b 10 e7 61 6e  |(an_num%).....an|
000063a0  5f 6e 75 6d 25 3d 31 20  8c 0d 03 8c 1c e7 61 6e  |_num%=1 ......an|
000063b0  5f 74 25 2b 33 30 3c 91  20 80 20 61 6c 74 65 72  |_t%+30<. . alter|
000063c0  25 3d 31 20 8c 0d 03 8d  12 e7 73 65 63 74 69 6f  |%=1 ......sectio|
000063d0  6e 73 25 3d 31 20 8c 0d  03 8e 19 f2 62 6f 61 32  |ns%=1 ......boa2|
000063e0  28 31 31 30 30 2c 37 36  34 2c 34 38 2c 35 36 29  |(1100,764,48,56)|
000063f0  0d 03 8f 05 cd 0d 03 90  0c 61 6c 74 65 72 25 3d  |.........alter%=|
00006400  32 0d 03 91 05 cd 0d 03  92 11 e7 61 6e 5f 74 25  |2..........an_t%|
00006410  2b 35 30 3c 91 20 8c 0d  03 93 12 e7 73 65 63 74  |+50<. ......sect|
00006420  69 6f 6e 73 25 3d 31 20  8c 0d 03 94 18 f2 62 6f  |ions%=1 ......bo|
00006430  61 28 31 31 30 30 2c 37  36 34 2c 34 38 2c 35 36  |a(1100,764,48,56|
00006440  29 0d 03 95 05 cd 0d 03  96 0c 61 6c 74 65 72 25  |).........alter%|
00006450  3d 31 0d 03 97 0b 61 6e  5f 74 25 3d 91 0d 03 98  |=1....an_t%=....|
00006460  05 cd 0d 03 99 05 cd 0d  03 9a 10 e7 61 6e 5f 6e  |............an_n|
00006470  75 6d 25 3d 32 20 8c 0d  03 9b 12 e7 73 65 63 74  |um%=2 ......sect|
00006480  69 6f 6e 73 25 3d 31 20  8c 0d 03 9c 18 f2 62 6f  |ions%=1 ......bo|
00006490  61 28 31 31 30 30 2c 37  36 34 2c 34 38 2c 35 36  |a(1100,764,48,56|
000064a0  29 0d 03 9d 05 cd 0d 03  9e 2d e7 73 6f 75 6e 64  |)........-.sound|
000064b0  5f 74 25 2b 31 30 30 3c  91 3a d4 31 2c 2d 36 2c  |_t%+100<.:.1,-6,|
000064c0  26 31 30 30 30 2c 32 30  3a 73 6f 75 6e 64 5f 74  |&1000,20:sound_t|
000064d0  25 3d 91 0d 03 9f 05 cd  0d 03 a0 05 e1 0d 03 a1  |%=..............|
000064e0  12 dd f2 63 68 65 63 6b  5f 61 6e 5f 6e 75 6d 0d  |...check_an_num.|
000064f0  03 a2 09 f7 8d 64 4f 53  0d 03 a3 0c 67 6f 5f 61  |.....dOS....go_a|
00006500  6e 25 3d 30 0d 03 a4 14  e3 63 61 6e 25 3d 31 b8  |n%=0.....can%=1.|
00006510  20 61 6e 5f 6e 75 6d 25  0d 03 a5 53 e3 63 61 6e  | an_num%...S.can|
00006520  6e 25 3d 31 b8 33 3a f3  61 6e 78 25 28 63 61 6e  |n%=1.3:.anx%(can|
00006530  6e 25 29 2c 61 6e 79 25  28 63 61 6e 6e 25 29 2c  |n%),any%(cann%),|
00006540  61 6e 78 78 25 28 63 61  6e 6e 25 29 2c 61 6e 79  |anxx%(cann%),any|
00006550  79 25 28 63 61 6e 6e 25  29 2c 61 6e 5f 74 79 70  |y%(cann%),an_typ|
00006560  65 25 28 63 61 6e 6e 25  29 3a ed 0d 03 a6 05 ed  |e%(cann%):......|
00006570  0d 03 a7 4f e7 6d 78 25  3c 61 6e 78 78 25 28 31  |...O.mx%<anxx%(1|
00006580  29 20 80 20 6d 78 25 3e  61 6e 78 25 28 31 29 20  |) . mx%>anx%(1) |
00006590  80 20 6d 79 25 3c 61 6e  79 79 25 28 31 29 20 80  |. my%<anyy%(1) .|
000065a0  20 6d 79 25 3e 61 6e 79  25 28 31 29 3a 67 6f 5f  | my%>any%(1):go_|
000065b0  61 6e 25 3d 61 6e 5f 74  79 70 65 25 28 31 29 0d  |an%=an_type%(1).|
000065c0  03 a8 4f e7 6d 78 25 3c  61 6e 78 78 25 28 32 29  |..O.mx%<anxx%(2)|
000065d0  20 80 20 6d 78 25 3e 61  6e 78 25 28 32 29 20 80  | . mx%>anx%(2) .|
000065e0  20 6d 79 25 3c 61 6e 79  79 25 28 32 29 20 80 20  | my%<anyy%(2) . |
000065f0  6d 79 25 3e 61 6e 79 25  28 32 29 3a 67 6f 5f 61  |my%>any%(2):go_a|
00006600  6e 25 3d 61 6e 5f 74 79  70 65 25 28 32 29 0d 03  |n%=an_type%(2)..|
00006610  a9 4f e7 6d 78 25 3c 61  6e 78 78 25 28 33 29 20  |.O.mx%<anxx%(3) |
00006620  80 20 6d 78 25 3e 61 6e  78 25 28 33 29 20 80 20  |. mx%>anx%(3) . |
00006630  6d 79 25 3c 61 6e 79 79  25 28 33 29 20 80 20 6d  |my%<anyy%(3) . m|
00006640  79 25 3e 61 6e 79 25 28  33 29 3a 67 6f 5f 61 6e  |y%>any%(3):go_an|
00006650  25 3d 61 6e 5f 74 79 70  65 25 28 33 29 0d 03 aa  |%=an_type%(3)...|
00006660  1a e7 67 6f 5f 61 6e 25  3d 31 20 f2 62 6f 75 6e  |..go_an%=1 .boun|
00006670  63 65 5f 62 61 6c 6c 0d  03 ab 14 e7 67 6f 5f 61  |ce_ball.....go_a|
00006680  6e 25 3d 32 20 f2 73 77  65 65 70 0d 03 ac 1e e7  |n%=2 .sweep.....|
00006690  67 6f 5f 61 6e 25 3e 30  20 f2 73 65 74 5f 6e 65  |go_an%>0 .set_ne|
000066a0  77 5f 62 75 74 74 6f 6e  73 0d 03 ad 05 e1 0d 03  |w_buttons.......|
000066b0  ae 0e dd f2 70 61 6c 65  74 74 65 32 0d 03 af 2c  |....palette2...,|
000066c0  e7 56 25 3d 30 20 ef 32  34 2c 30 3b 39 36 30 3b  |.V%=0 .24,0;960;|
000066d0  31 32 37 38 3b 31 30 32  32 3b 31 38 2c 30 2c 31  |1278;1022;18,0,1|
000066e0  33 31 2c 31 36 2c 32 36  0d 03 b0 18 ef 31 39 2c  |31,16,26.....19,|
000066f0  31 2c 32 34 2c 31 33 36  2c 31 33 36 2c 31 33 36  |1,24,136,136,136|
00006700  0d 03 b1 10 ea 70 25 2c  72 25 2c 67 25 2c 62 25  |.....p%,r%,g%,b%|
00006710  0d 03 b2 07 f7 2b 35 0d  03 b3 0c e3 70 25 3d 30  |.....+5.....p%=0|
00006720  b8 31 35 0d 03 b4 1a f3  72 25 2c 67 25 2c 62 25  |.15.....r%,g%,b%|
00006730  3a fb 70 25 2c 72 25 2c  67 25 2c 62 25 0d 03 b5  |:.p%,r%,g%,b%...|
00006740  05 ed 0d 03 b6 05 e1 0d  03 b7 2f dc 20 32 35 35  |........../. 255|
00006750  2c 32 35 35 2c 32 35 35  2c 31 38 37 2c 31 38 37  |,255,255,187,187|
00006760  2c 31 38 37 2c 31 33 36  2c 31 33 36 2c 31 33 36  |,187,136,136,136|
00006770  2c 30 2c 30 2c 30 0d 03  b8 29 dc 20 30 2c 30 2c  |,0,0,0...). 0,0,|
00006780  31 37 35 2c 30 2c 30 2c  32 35 35 2c 30 2c 32 30  |175,0,0,255,0,20|
00006790  34 2c 32 35 35 2c 32 35  35 2c 32 35 35 2c 30 0d  |4,255,255,255,0.|
000067a0  03 b9 28 dc 20 32 30 34  2c 32 30 34 2c 30 2c 32  |..(. 204,204,0,2|
000067b0  32 31 2c 30 2c 30 2c 31  33 36 2c 31 37 2c 30 2c  |21,0,0,136,17,0,|
000067c0  30 2c 31 35 33 2c 30 0d  03 ba 2b dc 20 30 2c 31  |0,153,0...+. 0,1|
000067d0  38 37 2c 33 34 2c 30 2c  32 35 35 2c 30 2c 32 35  |87,34,0,255,0,25|
000067e0  35 2c 32 32 31 2c 31 37  30 2c 31 38 32 2c 38 32  |5,221,170,182,82|
000067f0  2c 30 0d 03 bb 12 dd f2  69 6e 74 69 67 65 72 5f  |,0......intiger_|
00006800  69 63 6e 73 0d 03 bc 0e  e3 66 25 3d 30 20 b8 20  |icns.....f%=0 . |
00006810  31 32 0d 03 bd 39 e7 28  55 25 20 80 20 28 31 3c  |12...9.(U% . (1<|
00006820  3c 66 25 29 29 3d 28 31  3c 3c 66 25 29 20 66 69  |<f%))=(1<<f%) fi|
00006830  72 73 74 6e 25 28 66 25  29 3d 31 20 8b 20 66 69  |rstn%(f%)=1 . fi|
00006840  72 73 74 6e 25 28 66 25  29 3d 30 0d 03 be 05 ed  |rstn%(f%)=0.....|
00006850  0d 03 bf 0e e3 66 25 3d  30 20 b8 20 31 32 0d 03  |.....f%=0 . 12..|
00006860  c0 3b e7 28 57 25 20 80  20 28 31 3c 3c 66 25 29  |.;.(W% . (1<<f%)|
00006870  29 3d 28 31 3c 3c 66 25  29 20 73 65 63 6f 6e 64  |)=(1<<f%) second|
00006880  6e 25 28 66 25 29 3d 31  20 8b 20 73 65 63 6f 6e  |n%(f%)=1 . secon|
00006890  64 6e 25 28 66 25 29 3d  30 0d 03 c1 05 ed 0d 03  |dn%(f%)=0.......|
000068a0  c2 31 e7 28 57 25 20 80  20 28 31 3c 3c 31 33 29  |.1.(W% . (1<<13)|
000068b0  29 3d 28 31 3c 3c 31 33  29 20 6d 69 78 65 64 6e  |)=(1<<13) mixedn|
000068c0  25 3d 31 20 8b 20 6d 69  78 65 64 6e 25 3d 30 0d  |%=1 . mixedn%=0.|
000068d0  03 c3 05 e1 0d 03 c4 13  dd f2 73 65 74 5f 74 61  |..........set_ta|
000068e0  62 6c 65 5f 6f 6e 65 0d  03 c5 11 f2 69 6e 74 69  |ble_one.....inti|
000068f0  67 65 72 5f 69 63 6e 73  0d 03 c6 0f f2 63 6c 65  |ger_icns.....cle|
00006900  61 72 5f 72 6e 64 31 0d  03 c7 0f f2 63 6c 65 61  |ar_rnd1.....clea|
00006910  72 5f 72 6e 64 32 0d 03  c8 19 e3 66 69 6e 64 25  |r_rnd2.....find%|
00006920  3d 31 20 b8 20 6e 75 6d  62 65 72 5f 6f 66 25 0d  |=1 . number_of%.|
00006930  03 c9 13 72 65 70 65 61  74 5f 65 72 72 6f 72 25  |...repeat_error%|
00006940  3d 30 0d 03 ca 05 f5 0d  03 cb 21 72 65 70 65 61  |=0........!repea|
00006950  74 5f 65 72 72 6f 72 25  3d 72 65 70 65 61 74 5f  |t_error%=repeat_|
00006960  65 72 72 6f 72 25 2b 31  0d 03 cc 05 f5 0d 03 cd  |error%+1........|
00006970  12 72 6e 64 25 3d 28 b3  28 31 33 29 2d 31 29 0d  |.rnd%=(.(13)-1).|
00006980  03 ce 15 fd 20 66 69 72  73 74 6e 25 28 72 6e 64  |.... firstn%(rnd|
00006990  25 29 3d 31 0d 03 cf 2d  fd 20 72 6e 64 5f 70 69  |%)=1...-. rnd_pi|
000069a0  63 6b 65 72 31 25 28 72  6e 64 25 29 3d 30 20 84  |cker1%(rnd%)=0 .|
000069b0  20 72 65 70 65 61 74 5f  65 72 72 6f 72 25 3d 31  | repeat_error%=1|
000069c0  30 0d 03 d0 18 72 6e 64  5f 70 69 63 6b 65 72 31  |0....rnd_picker1|
000069d0  25 28 72 6e 64 25 29 3d  31 0d 03 d1 1c 72 6e 64  |%(rnd%)=1....rnd|
000069e0  5f 6e 75 6d 62 65 72 31  25 28 66 69 6e 64 25 29  |_number1%(find%)|
000069f0  3d 72 6e 64 25 0d 03 d2  13 72 65 70 65 61 74 5f  |=rnd%....repeat_|
00006a00  65 72 72 6f 72 25 3d 30  0d 03 d3 05 f5 0d 03 d4  |error%=0........|
00006a10  21 72 65 70 65 61 74 5f  65 72 72 6f 72 25 3d 72  |!repeat_error%=r|
00006a20  65 70 65 61 74 5f 65 72  72 6f 72 25 2b 31 0d 03  |epeat_error%+1..|
00006a30  d5 05 f5 0d 03 d6 12 72  6e 64 25 3d 28 b3 28 31  |.......rnd%=(.(1|
00006a40  33 29 2d 31 29 0d 03 d7  16 fd 20 73 65 63 6f 6e  |3)-1)..... secon|
00006a50  64 6e 25 28 72 6e 64 25  29 3d 31 0d 03 d8 2d fd  |dn%(rnd%)=1...-.|
00006a60  20 72 6e 64 5f 70 69 63  6b 65 72 32 25 28 72 6e  | rnd_picker2%(rn|
00006a70  64 25 29 3d 30 20 84 20  72 65 70 65 61 74 5f 65  |d%)=0 . repeat_e|
00006a80  72 72 6f 72 25 3d 31 30  0d 03 d9 18 72 6e 64 5f  |rror%=10....rnd_|
00006a90  70 69 63 6b 65 72 32 25  28 72 6e 64 25 29 3d 31  |picker2%(rnd%)=1|
00006aa0  0d 03 da 1c 72 6e 64 5f  6e 75 6d 62 65 72 32 25  |....rnd_number2%|
00006ab0  28 66 69 6e 64 25 29 3d  72 6e 64 25 0d 03 db 05  |(find%)=rnd%....|
00006ac0  ed 0d 03 dc 19 e3 66 69  6e 64 25 3d 31 20 b8 20  |......find%=1 . |
00006ad0  6e 75 6d 62 65 72 5f 6f  66 25 0d 03 dd 1c e7 6d  |number_of%.....m|
00006ae0  69 78 65 64 6e 25 3d 31  20 80 20 b3 28 31 30 30  |ixedn%=1 . .(100|
00006af0  29 3e 35 30 20 8c 0d 03  de 42 61 25 3d 72 6e 64  |)>50 ....Ba%=rnd|
00006b00  5f 6e 75 6d 62 65 72 31  25 28 66 69 6e 64 25 29  |_number1%(find%)|
00006b10  3a 72 6e 64 5f 6e 75 6d  62 65 72 31 25 28 66 69  |:rnd_number1%(fi|
00006b20  6e 64 25 29 3d 72 6e 64  5f 6e 75 6d 62 65 72 32  |nd%)=rnd_number2|
00006b30  25 28 66 69 6e 64 25 29  0d 03 df 2b 72 6e 64 5f  |%(find%)...+rnd_|
00006b40  6e 75 6d 62 65 72 32 25  28 66 69 6e 64 25 29 3d  |number2%(find%)=|
00006b50  72 6e 64 5f 6e 75 6d 62  65 72 31 25 28 66 69 6e  |rnd_number1%(fin|
00006b60  64 25 29 0d 03 e0 05 cd  0d 03 e1 28 74 61 62 6c  |d%)........(tabl|
00006b70  65 73 25 28 66 69 6e 64  25 2c 31 29 3d 72 6e 64  |es%(find%,1)=rnd|
00006b80  5f 6e 75 6d 62 65 72 31  25 28 66 69 6e 64 25 29  |_number1%(find%)|
00006b90  0d 03 e2 28 74 61 62 6c  65 73 25 28 66 69 6e 64  |...(tables%(find|
00006ba0  25 2c 32 29 3d 72 6e 64  5f 6e 75 6d 62 65 72 32  |%,2)=rnd_number2|
00006bb0  25 28 66 69 6e 64 25 29  0d 03 e3 3c 74 61 62 6c  |%(find%)...<tabl|
00006bc0  65 73 25 28 66 69 6e 64  25 2c 33 29 3d 72 6e 64  |es%(find%,3)=rnd|
00006bd0  5f 6e 75 6d 62 65 72 31  25 28 66 69 6e 64 25 29  |_number1%(find%)|
00006be0  2a 72 6e 64 5f 6e 75 6d  62 65 72 32 25 28 66 69  |*rnd_number2%(fi|
00006bf0  6e 64 25 29 0d 03 e4 05  ed 0d 03 e5 0b 66 69 72  |nd%).........fir|
00006c00  6e 25 3d 30 0d 03 e6 0b  73 65 63 6e 25 3d 30 0d  |n%=0....secn%=0.|
00006c10  03 e7 0c e3 66 25 3d 31  b8 31 32 0d 03 e8 1c e7  |....f%=1.12.....|
00006c20  73 65 63 6f 6e 64 6e 25  28 66 25 29 3d 31 3a 73  |secondn%(f%)=1:s|
00006c30  65 63 6e 25 2b 3d 31 0d  03 e9 05 ed 0d 03 ea 0c  |ecn%+=1.........|
00006c40  e3 66 25 3d 31 b8 31 32  0d 03 eb 1b e7 66 69 72  |.f%=1.12.....fir|
00006c50  73 74 6e 25 28 66 25 29  3d 31 3a 66 69 72 6e 25  |stn%(f%)=1:firn%|
00006c60  2b 3d 31 0d 03 ec 05 ed  0d 03 ed 3a e7 66 69 72  |+=1........:.fir|
00006c70  6e 25 3c 73 65 63 6e 25  20 8c 20 66 69 72 73 74  |n%<secn% . first|
00006c80  5f 6f 72 5f 73 65 63 6f  6e 64 25 3d 31 20 8b 20  |_or_second%=1 . |
00006c90  66 69 72 73 74 5f 6f 72  5f 73 65 63 6f 6e 64 25  |first_or_second%|
00006ca0  3d 32 0d 03 ee 05 e1 0d  03 ef 10 dd f2 63 6c 65  |=2...........cle|
00006cb0  61 72 5f 72 6e 64 31 0d  03 f0 0c e3 66 25 3d 30  |ar_rnd1.....f%=0|
00006cc0  b8 31 32 0d 03 f1 16 72  6e 64 5f 70 69 63 6b 65  |.12....rnd_picke|
00006cd0  72 31 25 28 66 25 29 3d  30 0d 03 f2 05 ed 0d 03  |r1%(f%)=0.......|
00006ce0  f3 05 e1 0d 03 f4 10 dd  f2 63 6c 65 61 72 5f 72  |.........clear_r|
00006cf0  6e 64 32 0d 03 f5 0c e3  66 25 3d 30 b8 31 32 0d  |nd2.....f%=0.12.|
00006d00  03 f6 16 72 6e 64 5f 70  69 63 6b 65 72 32 25 28  |...rnd_picker2%(|
00006d10  66 25 29 3d 30 0d 03 f7  05 ed 0d 03 f8 05 e1 0d  |f%)=0...........|
00006d20  03 f9 26 dd f2 72 6f 74  61 74 65 5f 6e 75 6d 62  |..&..rotate_numb|
00006d30  65 72 73 28 78 25 2c 79  25 2c 64 69 67 69 74 73  |ers(x%,y%,digits|
00006d40  25 2c 62 24 29 0d 03 fa  14 e3 72 6c 69 6e 65 25  |%,b$).....rline%|
00006d50  3d 31 b8 20 a9 28 62 24  29 0d 03 fb 1a 72 6e 75  |=1. .(b$)....rnu|
00006d60  6d 25 3d 97 28 c1 62 24  2c 72 6c 69 6e 65 25 2c  |m%=.(.b$,rline%,|
00006d70  31 29 29 0d 03 fc 1a e7  72 6e 75 6d 25 3e 34 38  |1)).....rnum%>48|
00006d80  20 80 20 72 6e 75 6d 25  3c 35 38 20 8c 0d 03 fd  | . rnum%<58 ....|
00006d90  0d 72 62 61 73 65 25 3d  34 38 0d 03 fe 05 f5 0d  |.rbase%=48......|
00006da0  03 ff 0d f2 73 74 5f 70  61 75 73 65 0d 04 00 12  |....st_pause....|
00006db0  63 24 3d c0 62 24 2c 72  6c 69 6e 65 25 29 0d 04  |c$=.b$,rline%)..|
00006dc0  01 1b c1 63 24 2c 72 6c  69 6e 65 25 2c 31 29 3d  |...c$,rline%,1)=|
00006dd0  bd 28 72 62 61 73 65 25  29 0d 04 02 24 f2 70 6c  |.(rbase%)...$.pl|
00006de0  6f 74 5f 6e 75 6d 62 65  72 73 32 28 78 25 2c 79  |ot_numbers2(x%,y|
00006df0  25 2c 64 69 67 69 74 73  25 2c 63 24 29 0d 04 03  |%,digits%,c$)...|
00006e00  13 72 62 61 73 65 25 3d  72 62 61 73 65 25 2b 31  |.rbase%=rbase%+1|
00006e10  0d 04 04 10 f2 65 6e 5f  70 61 75 73 65 28 38 29  |.....en_pause(8)|
00006e20  0d 04 05 11 fd 72 62 61  73 65 25 3d 72 6e 75 6d  |.....rbase%=rnum|
00006e30  25 0d 04 06 05 cd 0d 04  07 12 63 24 3d c0 62 24  |%.........c$=.b$|
00006e40  2c 72 6c 69 6e 65 25 29  0d 04 08 24 f2 70 6c 6f  |,rline%)...$.plo|
00006e50  74 5f 6e 75 6d 62 65 72  73 32 28 78 25 2c 79 25  |t_numbers2(x%,y%|
00006e60  2c 64 69 67 69 74 73 25  2c 63 24 29 0d 04 09 05  |,digits%,c$)....|
00006e70  ed 0d 04 0a 05 e1 0d 04  0b 25 dd f2 70 6c 6f 74  |.........%..plot|
00006e80  5f 6e 75 6d 62 65 72 73  32 28 78 25 2c 79 25 2c  |_numbers2(x%,y%,|
00006e90  64 69 67 69 74 73 25 2c  61 24 29 0d 04 0c 12 e3  |digits%,a$).....|
00006ea0  70 6e 25 3d 31 20 b8 20  a9 28 61 24 29 0d 04 0d  |pn%=1 . .(a$)...|
00006eb0  38 f2 70 6c 6f 74 5f 73  70 72 69 74 65 28 28 78  |8.plot_sprite((x|
00006ec0  25 2d 33 38 29 2b 28 70  6e 25 2a 33 38 29 2c 79  |%-38)+(pn%*38),y|
00006ed0  25 2c 31 2c 31 2c 31 2c  31 2c c1 61 24 2c 70 6e  |%,1,1,1,1,.a$,pn|
00006ee0  25 2c 31 29 29 0d 04 0e  05 ed 0d 04 0f 05 e1 0d  |%,1))...........|
00006ef0  04 10 24 dd f2 70 6c 6f  74 5f 6e 75 6d 62 65 72  |..$..plot_number|
00006f00  73 28 78 25 2c 79 25 2c  64 69 67 69 74 73 25 2c  |s(x%,y%,digits%,|
00006f10  61 24 29 0d 04 11 14 e7  a9 28 61 24 29 3c 64 69  |a$)......(a$)<di|
00006f20  67 69 74 73 25 20 8c 0d  04 12 05 f5 0d 04 13 0d  |gits% ..........|
00006f30  61 24 3d 22 64 22 2b 61  24 0d 04 14 12 fd a9 28  |a$="d"+a$......(|
00006f40  61 24 29 3d 64 69 67 69  74 73 25 0d 04 15 05 cd  |a$)=digits%.....|
00006f50  0d 04 16 12 e3 70 6e 25  3d 31 20 b8 20 a9 28 61  |.....pn%=1 . .(a|
00006f60  24 29 0d 04 17 38 f2 70  6c 6f 74 5f 73 70 72 69  |$)...8.plot_spri|
00006f70  74 65 28 28 78 25 2d 33  38 29 2b 28 70 6e 25 2a  |te((x%-38)+(pn%*|
00006f80  33 38 29 2c 79 25 2c 31  2c 31 2c 31 2c 31 2c c1  |38),y%,1,1,1,1,.|
00006f90  61 24 2c 70 6e 25 2c 31  29 29 0d 04 18 05 ed 0d  |a$,pn%,1))......|
00006fa0  04 19 05 e1 0d 04 1a 5d  dd f2 6d 6f 76 65 5f 62  |.......]..move_b|
00006fb0  6c 6f 63 6b 28 66 72 6f  6d 5f 73 63 72 65 65 6e  |lock(from_screen|
00006fc0  25 2c 66 72 6f 6d 5f 78  25 2c 66 72 6f 6d 5f 79  |%,from_x%,from_y|
00006fd0  25 2c 74 6f 5f 73 63 72  65 65 6e 25 2c 74 6f 5f  |%,to_screen%,to_|
00006fe0  78 25 2c 74 6f 5f 79 25  2c 62 79 74 65 73 5f 61  |x%,to_y%,bytes_a|
00006ff0  63 72 6f 73 73 25 2c 73  63 61 6e 73 5f 75 70 25  |cross%,scans_up%|
00007000  29 0d 04 1b 1b e7 62 79  74 65 73 5f 61 63 72 6f  |).....bytes_acro|
00007010  73 73 25 20 83 20 34 3c  3e 30 20 fa 0d 04 1c 2a  |ss% . 4<>0 ....*|
00007020  41 25 3d 66 72 6f 6d 5f  73 63 72 65 65 6e 25 2b  |A%=from_screen%+|
00007030  a4 63 61 6c 63 28 66 72  6f 6d 5f 78 25 2c 66 72  |.calc(from_x%,fr|
00007040  6f 6d 5f 79 25 29 0d 04  1d 24 42 25 3d 74 6f 5f  |om_y%)...$B%=to_|
00007050  73 63 72 65 65 6e 25 2b  a4 63 61 6c 63 28 74 6f  |screen%+.calc(to|
00007060  5f 78 25 2c 74 6f 5f 79  25 29 0d 04 1e 14 43 25  |_x%,to_y%)....C%|
00007070  3d 62 79 74 65 73 5f 61  63 72 6f 73 73 25 0d 04  |=bytes_across%..|
00007080  1f 1b 44 25 3d 28 73 63  61 6e 73 5f 75 70 25 2a  |..D%=(scans_up%*|
00007090  28 56 25 2b 31 29 29 2d  31 0d 04 20 11 d6 20 6d  |(V%+1))-1.. .. m|
000070a0  6f 76 65 5f 62 6c 6f 63  6b 25 0d 04 21 05 e1 0d  |ove_block%..!...|
000070b0  04 22 11 dd a4 63 61 6c  63 28 78 25 2c 79 25 29  |."...calc(x%,y%)|
000070c0  0d 04 23 2b 74 6f 70 5f  6c 69 6e 65 73 25 3d 30  |..#+top_lines%=0|
000070d0  3a e7 20 76 67 61 25 3d  30 20 74 6f 70 5f 6c 69  |:. vga%=0 top_li|
000070e0  6e 65 73 25 3d 33 32 30  2a 31 36 0d 04 24 2d 3d  |nes%=320*16..$-=|
000070f0  74 6f 70 5f 6c 69 6e 65  73 25 2b 28 78 25 2f 34  |top_lines%+(x%/4|
00007100  29 2b 28 28 39 35 36 2d  79 25 29 2a 38 30 29 2a  |)+((956-y%)*80)*|
00007110  28 76 67 61 25 2b 31 29  0d 04 25 33 dd f2 70 6c  |(vga%+1)..%3..pl|
00007120  6f 74 5f 73 70 72 69 74  65 5f 62 61 63 6b 28 78  |ot_sprite_back(x|
00007130  25 2c 79 25 2c 78 6d 25  2c 79 6d 25 2c 78 64 25  |%,y%,xm%,ym%,xd%|
00007140  2c 79 64 25 2c 6e 61 6d  65 24 29 0d 04 26 43 c8  |,yd%,name$)..&C.|
00007150  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
00007160  31 32 38 2c 73 70 72 69  74 65 5f 61 72 65 61 31  |128,sprite_area1|
00007170  25 2c 6e 61 6d 65 24 20  b8 20 72 30 2c 72 31 2c  |%,name$ . r0,r1,|
00007180  72 32 2c 41 25 2c 42 25  2c 72 35 2c 72 36 0d 04  |r2,A%,B%,r5,r6..|
00007190  27 38 ef 32 34 2c 78 25  2d 38 3b 79 25 2d 38 3b  |'8.24,x%-8;y%-8;|
000071a0  78 25 2b 38 2b 28 41 25  2a 32 29 3b 79 25 2b 38  |x%+8+(A%*2);y%+8|
000071b0  2b 28 42 25 2a 34 29 3b  31 38 2c 30 2c 31 33 31  |+(B%*4);18,0,131|
000071c0  2c 31 36 2c 32 36 0d 04  28 13 21 28 73 63 61 6c  |,16,26..(.!(scal|
000071d0  65 25 2b 30 29 3d 78 6d  25 0d 04 29 1c 21 28 73  |e%+0)=xm%..).!(s|
000071e0  63 61 6c 65 25 2b 34 29  3d 79 6d 25 2a 28 76 67  |cale%+4)=ym%*(vg|
000071f0  61 25 2b 31 29 0d 04 2a  13 21 28 73 63 61 6c 65  |a%+1)..*.!(scale|
00007200  25 2b 38 29 3d 78 64 25  0d 04 2b 14 21 28 73 63  |%+8)=xd%..+.!(sc|
00007210  61 6c 65 25 2b 31 32 29  3d 79 64 25 0d 04 2c 34  |ale%+12)=yd%..,4|
00007220  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
00007230  26 31 33 34 2c 73 61 31  25 2c 6e 61 6d 65 24 2c  |&134,sa1%,name$,|
00007240  78 25 2c 79 25 2c 30 2c  73 63 61 6c 65 25 2c 30  |x%,y%,0,scale%,0|
00007250  0d 04 2d 05 e1 0d 04 2e  5d dd f2 6d 6f 76 65 5f  |..-.....]..move_|
00007260  62 6c 6f 63 6b 28 66 72  6f 6d 5f 73 63 72 65 65  |block(from_scree|
00007270  6e 25 2c 66 72 6f 6d 5f  78 25 2c 66 72 6f 6d 5f  |n%,from_x%,from_|
00007280  79 25 2c 74 6f 5f 73 63  72 65 65 6e 25 2c 74 6f  |y%,to_screen%,to|
00007290  5f 78 25 2c 74 6f 5f 79  25 2c 62 79 74 65 73 5f  |_x%,to_y%,bytes_|
000072a0  61 63 72 6f 73 73 25 2c  73 63 61 6e 73 5f 75 70  |across%,scans_up|
000072b0  25 29 0d 04 2f 1b e7 62  79 74 65 73 5f 61 63 72  |%)../..bytes_acr|
000072c0  6f 73 73 25 20 83 20 34  3c 3e 30 20 fa 0d 04 30  |oss% . 4<>0 ...0|
000072d0  2a 41 25 3d 66 72 6f 6d  5f 73 63 72 65 65 6e 25  |*A%=from_screen%|
000072e0  2b a4 63 61 6c 63 28 66  72 6f 6d 5f 78 25 2c 66  |+.calc(from_x%,f|
000072f0  72 6f 6d 5f 79 25 29 0d  04 31 24 42 25 3d 74 6f  |rom_y%)..1$B%=to|
00007300  5f 73 63 72 65 65 6e 25  2b a4 63 61 6c 63 28 74  |_screen%+.calc(t|
00007310  6f 5f 78 25 2c 74 6f 5f  79 25 29 0d 04 32 14 43  |o_x%,to_y%)..2.C|
00007320  25 3d 62 79 74 65 73 5f  61 63 72 6f 73 73 25 0d  |%=bytes_across%.|
00007330  04 33 1b 44 25 3d 28 73  63 61 6e 73 5f 75 70 25  |.3.D%=(scans_up%|
00007340  2a 28 56 25 2b 31 29 29  2d 31 0d 04 34 11 d6 20  |*(V%+1))-1..4.. |
00007350  6d 6f 76 65 5f 62 6c 6f  63 6b 25 0d 04 35 05 e1  |move_block%..5..|
00007360  0d 04 36 11 dd a4 63 61  6c 63 28 78 25 2c 79 25  |..6...calc(x%,y%|
00007370  29 0d 04 37 2b 74 6f 70  5f 6c 69 6e 65 73 25 3d  |)..7+top_lines%=|
00007380  30 3a e7 20 76 67 61 25  3d 30 20 74 6f 70 5f 6c  |0:. vga%=0 top_l|
00007390  69 6e 65 73 25 3d 33 32  30 2a 31 36 0d 04 38 2d  |ines%=320*16..8-|
000073a0  3d 74 6f 70 5f 6c 69 6e  65 73 25 2b 28 78 25 2f  |=top_lines%+(x%/|
000073b0  34 29 2b 28 28 39 35 36  2d 79 25 29 2a 38 30 29  |4)+((956-y%)*80)|
000073c0  2a 28 76 67 61 25 2b 31  29 0d 04 39 17 dd f2 70  |*(vga%+1)..9...p|
000073d0  75 6c 6c 5f 70 61 63 5f  63 6f 64 65 5f 76 61 72  |ull_pac_code_var|
000073e0  0d 04 3a 18 6d 61 69 6e  25 3d 21 28 6d 5f 63 6f  |..:.main%=!(m_co|
000073f0  64 65 32 25 2b 26 30 29  0d 04 3b 21 73 65 74 5f  |de2%+&0)..;!set_|
00007400  71 75 69 63 6b 73 61 6e  64 25 3d 21 28 6d 5f 63  |quicksand%=!(m_c|
00007410  6f 64 65 32 25 2b 26 34  29 0d 04 3c 1b 73 70 6c  |ode2%+&4)..<.spl|
00007420  6f 64 67 65 25 3d 21 28  6d 5f 63 6f 64 65 32 25  |odge%=!(m_code2%|
00007430  2b 26 38 29 0d 04 3d 1e  73 63 72 6f 6c 6c 5f 61  |+&8)..=.scroll_a|
00007440  6c 6c 25 3d 21 28 6d 5f  63 6f 64 65 32 25 2b 26  |ll%=!(m_code2%+&|
00007450  43 29 0d 04 3e 05 e1 0d  04 3f 12 dd f2 73 6f 75  |C)..>....?...sou|
00007460  6e 64 5f 65 66 66 65 63  74 0d 04 40 10 e7 61 6e  |nd_effect..@..an|
00007470  5f 6e 75 6d 25 3d 31 20  8c 0d 04 41 1d e7 20 a4  |_num%=1 ...A.. .|
00007480  6e 6f 73 6f 75 6e 64 3d  b9 3a d4 20 31 2c 26 31  |nosound=.:. 1,&1|
00007490  37 46 2c 31 2c 31 0d 04  42 05 cd 0d 04 43 05 e1  |7F,1,1..B....C..|
000074a0  0d ff                                             |..|
000074a2