!AWFeb94/Goodies/Aztec/!AZTECS/!runimage

Home » Archimedes archive » Archimedes World » AW-1994-02-Disc1.adf » Disk1Feb94 » !AWFeb94/Goodies/Aztec/!AZTECS/!runimage

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-1994-02-Disc1.adf » Disk1Feb94
Filename:	!AWFeb94/Goodies/Aztec/!AZTECS/!runimage
Read OK:	✔
File size:	2C95 bytes
Load address:	0000
Exec address:	0000

File contents

    0REMOSCLISCSI::SCSIDisc4.$.CoverDisks.!AZTECS.!runimage
    1*FX220,27
    2DIM blk% 256
    3A%=HIMEM:HIMEM=&13200:oldhimem%=A%
    4work%=HIMEM
    5MAXWINDIND%=4096:MAXWINDSTR%=4096:SPRITESEXT%=8000:pdbs%=&40000
    6windind%=work%:windstr%=windind%+MAXWINDIND%
    7windptrlist%=windstr%+MAXWINDSTR% : wptrlist%=windptrlist%+40:B%=windstr%
    8mysprites%=wptrlist%+40
    9mc%=&17A00
   10memtop%=&4EC00
   11SYS "Wimp_Initialise",200,&4B534154,"Aztecs" TO wimpver%,taskh%
   12ONERROR PROCerror(REPORT$+" (Internal error code "+STR$ERL+")"+CHR$0,ERR):SYS "Wimp_CloseDown",,&4B534154:END
   13DIM ibname% 20,errblk% 200,menu% 1024,blk2% 256,pdbbuff% 256
   14RESTORE:set2w%=0:setupw%=0:quit%=FALSE
   15IF FNreadsysvar("Aztec$Status")="Fresh" THEN
   16  IF NOT FNaztecsisrunning THEN
   17    OSCLI"Set Aztec$isrunning 1"
   18  ELSE
   19    PROCerror("Aztecs is already running",0):SYS "Wimp_CloseDown",,&4B534154:END
   20  ENDIF
   21  !mysprites%=SPRITESEXT%:mysprites%!8=16
   22  SYS "OS_SpriteOp",&109,mysprites%
   23  SYS "OS_SpriteOp",&10A,mysprites%,"<Aztec$Dir>.Sprites"
   24  OSCLI"LOAD <Aztec$Dir>.code "+STR$~mc%:A%=work%
   25  wptr1%=windstr%:wptr2%=windind%:windcount%=1
   26  SYS "Wimp_OpenTemplate",,"<Aztec$Dir>.Templates"
   27  PROCload_template("proginfo"):PROCload_template("crapola")
   28  PROCreadsound
   29ELSE
   30  SYS "Wimp_SetMode",VALFNreadsysvar("Aztec$Mode")
   31ENDIF
   32PROCresetsound
   33a$=FNconverttolower(FNreadsysvar("Aztec$Dir"))
   34IFINSTR(a$,"adfs::aztecs")<>0:Y%=0:ELSE:Y%=1
   35SYS "Wimp_CreateWindow",,wptrlist%!0 TO infow%
   36SYS "Wimp_CreateWindow",,wptrlist%!4 TO msgw%
   37SYS "Wimp_CloseTemplate"
   38IFY%=0PROChide_logosave
   39PROCbaricon
   40ON ERROR PROCerror(REPORT$+" (Internal error code "+STR$ERL+")"+CHR$0,ERR)
   41REPEAT PROCevent:UNTIL quit%
   42SYS "Wimp_CloseDown",,&4B534154
   43OSCLI"Set Aztec$isrunning 0"
   44SYS "XOS_Module",4,"bounce":SYS "XOS_Module",4,"conch2"
   45*QUIT
   46END
   47
   48DEFFNaztecsisrunning
   49LOCAL ERROR
   50ONERRORLOCAL:RESTORE ERROR:=0
   51SYS "OS_ReadVarVal","Aztec$isrunning",blk%,256,0,0 TO ,,a%
   52a$="":FORA%=0TOa%-1:a$+=CHR$(blk%?A%):NEXT
   53RESTORE ERROR
   54IFa$="1":=-1
   55=0
   56
   57DEFPROCevent
   58SYS "Wimp_Poll",%110001,blk% TO e%,eb%
   59CASE e% OF
   60  WHEN 1: PROCredraw
   61  WHEN 2: PROCopenwind(blk%)
   62  WHEN 3: PROCclosewind(blk%)
   63  WHEN 6: PROCclick(eb%!8,eb%!12,eb%!16)
   64  WHEN 8: PROCkeyevent
   65  WHEN 9: PROCmenuselect
   66ENDCASE
   67ENDPROC
   68
   69DEFPROCredraw
   70VDU23,224,170,85,170,85,170,85,170,85
   71SYS "Wimp_RedrawWindow",,blk% TO more%
   72x0%=blk%!4:y0%=blk%!8:x1%=blk%!12:y1%=blk%!16
   73WHILE more%
   74  SYS "Wimp_GetRectangle",,blk% TO more%:
   75ENDWHILE
   76ENDPROC
   77
   78DEFPROCkeyevent
   79SYS "Wimp_ProcessKey",blk%!24
   80ENDPROC
   81
   82DEFFNreadsysvar(a$)
   83SYS "OS_ReadVarVal",a$,blk%,256,0,0 TO ,,a%:a$="":FORA%=0TOa%-1:a$+=CHR$(blk%?A%):NEXT
   84=a$
   85
   86DEFPROCopenwind(b%)
   87SYS "Wimp_OpenWindow",,b%
   88ENDPROC
   89
   90DEFPROCclosewind(b%)
   91SYS "Wimp_CloseWindow",,b%
   92ENDPROC
   93
   94DEFFNreadstring(p%)
   95LOCALa$:a$="":WHILE LENa$<255 AND ?p%>31 a$+=CHR$?p%:p%+=1:ENDWHILE
   96=a$
   97
   98DEFFNisvga
   99IFFNisselected(setupw%,33)THEN:=-1
  100=0
  101
  102DEFFNiscgaonly
  103SYS"OS_CheckModeValid",27 TO reg0%;fla%
  104IF((fla%AND%10)=%10)AND(reg0%=-1)THEN:=-1
  105=0
  106
  107DEFPROCload_template(name$)
  108wptrlist%!((windcount%-1)*4)=wptr1%:windptrlist%!((windcount%-1)*4)=wptr2%
  109SYS "Wimp_LoadTemplate",,wptr1%,wptr2%,windind%+MAXWINDIND%,-1,name$,0 TO ,,wptr2%
  110n%=wptr1%!84:FORI%=0TO(n%-1)*32STEP32:d%=wptr1%+88+I%:f%=(d%!16)
  111  IF(f%AND258)=258 AND (f%AND1)=0 d%!24=mysprites%
  112  IF wimpver%<300 AND (name$="setup"ORname$="set2"ORname$="msg") THEN
  113    IF(f%AND259)=257 AND d%!24<>-1 THEN IFINSTR(FNreadstring(d%!24),"b2")<>0 f%=(f%AND&0FF00FFF)OR&C00F9000
  114    IF(f%AND&E000)=&E000 d%!4+=4:d%!12-=4
  115    IF(f%AND258)=2 THEN
  116      a$=FNreadstring(d%+20)
  117      SYS "XWimp_SpriteOp",40,,a$ TO ,,,w%,h%
  118      IF(w%ORh%)=0THEN
  119        f%=f%OR256:$wptr2%=a$:?(wptr2%+(LENa$))=0
  120        d%!20=wptr2%:d%!24=mysprites%:d%!28=LENa$:wptr2%+=LEN(a$)+1
  121      ENDIF
  122    ENDIF
  123    d%!16=f%
  124  ENDIF
  125NEXT
  126wptr1%+=88+((wptr1%!84)*32):windcount%+=1
  127ENDPROC
  128
  129DEFPROCbaricon
  130$ibname%="frame1"
  131!blk%=-1:blk%!4=0:blk%!8=0:blk%!12=62:blk%!16=72
  132blk%!20=&1000313A:blk%!24=ibname%:blk%!28=mysprites%:blk%!32=LEN$ibname%
  133SYS "Wimp_CreateIcon",,blk% TO ibh%
  134ENDPROC
  135
  136DEFFNfiletype(a$)
  137SYS "XOS_File",5,a$ TO a%
  138=a%
  139
  140DEFPROCerror(msg$,errno%)
  141CLOSE#0
  142!errblk%=99:$(errblk%+4)=msg$
  143SYS "Wimp_ReportError",errblk%,0,"Aztecs"
  144ENDPROC
  145
  146DEFPROCselecticn(w%,i%,f%)
  147!blk%=w%:blk%!4=i%:blk%!12=(1<<21):IFf%=0 blk%!8=0:ELSE blk%!8=blk%!12
  148SYS "Wimp_SetIconState",,blk%
  149ENDPROC
  150
  151DEFPROCgeticonstate(w%,i%)
  152!blk%=w%:blk%!4=i%:SYS "Wimp_GetIconState",,blk%
  153ENDPROC
  154
  155DEFFNisselected(w%,i%)
  156PROCgeticonstate(w%,i%)
  157=((blk%!24)AND(1<<21))=(1<<21)
  158
  159DEFFNconverttolower(a$)
  160LOCAL l%,b$,ch%:b$=""
  161FORl%=1TOLENa$
  162ch%=ASC(MID$(a$,l%,1))
  163IF(ch%>&40)AND(ch%<&5B):ch%+=&20
  164b$+=CHR$ch%
  165NEXT
  166=b$
  167
  168DEFFNleaf(f$) I%=LENf$:WHILEI%>1ANDMID$(f$,I%,1)<>"."I%-=1:ENDWHILE
  169IFMID$(f$,I%,1)="."I%+=1
  170=MID$(f$,I%)
  171
  172DEFFNgeticnstring(w%,i%)
  173!blk%=w%:blk%!4=i%:SYS "Wimp_GetIconState",,blk%
  174=FNreadstring(blk%!28)
  175
  176DEFPROCputicnstring(w%,i%,a$)
  177!blk%=w%:blk%!4=i%:SYS "Wimp_GetIconState",,blk%
  178$(blk%!28)=a$:?((blk%!28)+LENa$)=0
  179blk%!8=0:blk%!12=0:SYS "Wimp_SetIconState",,blk%
  180ENDPROC
  181
  182DEFPROCclick(but%,w%,i%)
  183CASE w% OF
  184  WHEN -2:
  185    CASE but% OF
  186      WHEN 2: PROCmaster_menu("Aztecs","Info,Message,Quit,",!eb%,256)
  187      WHEN 4: PROCstartgame
  188    ENDCASE
  189ENDCASE
  190ENDPROC
  191
  192DEFPROCsubmenu(m%,i%,h%)
  193m%+=28+((i%-1)*24)
  194m%!4=h%
  195ENDPROC
  196
  197DEFPROCmaster_menu(title$,m$,x%,y%)
  198PROCcreate_menu(menu%,title$,m$)
  199PROCsubmenu(menu%,1,infow%):PROCsubmenu(menu%,2,msgw%)
  200SYS "Wimp_CreateMenu",,menu%,x%-menu%!16 / 2,y%
  201currmenu%=-1
  202ENDPROC
  203
  204DEFPROCcreate_menu(m%,title$,m$)
  205LOCAL i%,max%
  206$m%=title$
  207m%?12=7:m%?13=2:m%?14=7:m%?15=0:m%!20=40:m%!24=0
  208i%=m%+28:max%=LEN(title$)-2
  209REPEAT
  210  a%=INSTR(m$,",")
  211  i$=LEFT$(m$,a%-1):!i%=0
  212  REPEAT:more%=FALSE
  213    IFLEFT$(i$,1)=">" !i%=(!i%)OR8:more%=TRUE
  214    IFLEFT$(i$,1)="!" !i%=(!i%)OR1:more%=TRUE
  215    IF more% i$=RIGHT$(i$,LEN(i$)-1)
  216  UNTIL NOT more%:$(i%+12)=i$
  217  IF a%>max% max%=a%
  218  i%!4=0:i%!8=&07000021
  219  m$ = MID$(m$,a%+1)
  220  CASE $(i%+12) OF
  221  ENDCASE
  222  i% = i% + 24
  223UNTIL m$ = ""
  224i%!-24 = (i%!-24)OR &80
  225m%!16 = max%*16
  226ENDPROC
  227
  228DEFPROCmenuselect
  229SYS "Wimp_GetPointerInfo",,blk2%
  230currmenubut%=blk2%!8
  231CASE currmenu% OF
  232  WHEN -1:
  233    CASE !eb% OF
  234      WHEN 0: PROCcheckadjust
  235      WHEN 1: PROCcheckadjust
  236      WHEN 2: quit%=TRUE
  237    ENDCASE
  238ENDCASE
  239ENDPROC
  240
  241DEFPROCcheckadjust
  242IFcurrmenubut%=1:SYS "Wimp_CreateMenu",,menu%,100,100
  243ENDPROC
  244
  245DEFPROChide_logosave
  246REM!blk%=370:blk%!4=-1068:blk%!8=928:blk%!12=-344
  247!blk%=370:blk%!8=928:blk%!12=-344
  248IF FNiscgaonly:blk%!4=-996:ELSE:blk%!4=-1116
  249SYS "Wimp_SetExtent",setupw%,blk%
  250ENDPROC
  251
  252DEFFNreadvduvar(a%)
  253!blk%=a%:blk%!4=-1:SYS "OS_ReadVduVariables",blk%,blk%
  254=!blk%
  255
  256DEFFNcheckfont(a$,A%,B%)
  257LOCAL ERROR
  258ON ERROR LOCAL:=0
  259SYS "Font_FindFont",,a$,A%,B%,0,0 TO h%
  260SYS "Font_LoseFont",h%:RESTORE ERROR
  261=TRUE
  262
  263DEFPROCreadsound
  264SYS "Sound_ReadControlBlock",1,0 TO ,,a%:a%=(a%>>8)AND255
  265SYS "Sound_Configure",0,0,0 TO A%,B%,C%
  266OSCLI"Set Aztec$chan1 "+STR$a%:OSCLI"Set Aztec$nchans "+STR$A%
  267OSCLI"Set Aztec$sampsz "+STR$B%:OSCLI"Set Aztec$period "+STR$C%
  268SYS "Sound_Volume",0 TO A%:OSCLI"Set Aztec$vol "+STR$A%
  269ENDPROC
  270
  271DEFPROCresetsound
  272OSCLI"channelvoice 1 "+FNreadsysvar("Aztec$chan1")
  273A%=VALFNreadsysvar("Aztec$nchans"):B%=VALFNreadsysvar("Aztec$sampsz")
  274C%=VALFNreadsysvar("Aztec$period"):SYS "Sound_Configure",A%,B%,C%
  275SYS "Sound_Volume",VALFNreadsysvar("Aztec$vol")
  276ENDPROC
  277
  278DEFPROCstartgame
  279SYS "Font_ReadFontMax" TO fm%,fm1%,fm2%,fm3%,fm4%,fm5%
  280IFfm2%<57600 SYS "Font_SetFontMax",fm%,fm1%,57600,57600,fm4%,fm5%
  281SYS "OS_Byte",135 TO ,,a%:OSCLI"Set Aztec$Mode "+STR$a%
  282*Set Aztec$chaindir <Aztec$Dir>
  283H%=mc%
  284IFFNcheckfont("Tabloid.medium",320,360)=FALSE PROCerror("Font:'Tabloid.Medium' not found",0):ENDPROC
  285IF FNiscgaonly THEN
  286SYS "Wimp_SetMode",15:IF(FNreadvduvar(150)/1024)<160 PROCerror("Not enough memory to change screen mode",1):ENDPROC
  287ELSE
  288SYS "Wimp_SetMode",28:IF(FNreadvduvar(150)/1024)<300 PROCerror("Not enough memory to change screen mode",1):ENDPROC
  289ENDIF
  290SYS "Wimp_CloseDown",,&4B534154
  291PROCreadsound:SYS "Sound_Configure",2,0,100
  292*ChannelVoice 1 2
  293*ChannelVoice 2 6
  294SYS "Sound_Volume",127:O%=1
  295HIMEM=oldhimem%
  296IF FNiscgaonly THEN
  297MODE12:H%!&F0=1
  298ELSE
  299MODE27:H%!&F0=2
  300ENDIF
  301PROCpalette:VDU26:VDU18,0,131:FORk%=2TO1STEP-1:SYS"OS_Byte",112,k%:CLG:NEXT
  302ONERROR SYS"OS_Byte",250,0,255 TO ,scr%:SYS"OS_Byte",113,scr%:PRINT REPORT$+" (Internal error code "+STR$ERL+")"+CHR$0:END
  303PROCcheckarm3
  304SYS "OS_RemoveCursors"
  305DIM input_disk_name% 256
  306PROCpull_variables:PROCinitiallise
  307REMPROCtitle
  308FORj%=32TO126:PROCwords(920,-200,-1,CHR$(j%)):PROCwords(920,-200,0,CHR$(j%)):NEXT
  309REMPROCgo_on
  310PROClink
  311END
  312
  313DEFPROCcheckarm3
  314H%!&DC=0
  315t1%=TIME
  316FORk%=0TO20000:NEXT
  317t2%=TIME
  318IF(t2%-t1%)<15:H%!&DC=1
  319ENDPROC
  320
  321DEFPROCpull_variables
  322fonts%=!(H%+&00)
  323letters%=!(H%+&04)
  324sp_on_vga%=!(H%+&08)
  325put_sp%=!(H%+&0C)
  326sp_name%=!(H%+&10)
  327drawit%=!(H%+&14)
  328copyscr%=!(H%+&18)
  329crunchsp%=!(H%+&1C)
  330expandsp%=!(H%+&20)
  331cspname%=!(H%+&24)
  332nspname%=!(H%+&28)
  333blowupscr%=!(H%+&2C)
  334sp_on_cga%=!(H%+&30)
  335scrolldn%=!(H%+&34)
  336scrollup%=!(H%+&38)
  337copirow%=!(H%+&3C)
  338
  339AREA%=H%+4*1024:REM 4K mc
  340ENDPROC
  341
  342DEFPROCinitiallise
  343DIM input_disk_name% 256
  344REMDIM soundvol%(15)
  345REMRESTORE +0
  346REMDATA 1,63,79,88,95,100,104,108,111,114,117,120,122,124,126,127
  347REMFORi%=0TO15:READsoundvol%(i%):NEXT
  348!AREA%=(216*1024)+512:AREA%!8=16
  349REMPROCpalette:!AREA%=220*1024:AREA%!8=16
  350DIM SCALE% 16:SCALE%!0=16:SCALE%!4=16*(H%!&F0):SCALE%!8=16:SCALE%!12=16
  351SYS "OS_SpriteOp",&109,AREA%
  352SYS "OS_Byte",113,1:SYS "OS_Byte",112,2
  353!blk%=149:blk%!4=148:blk%!8=-1
  354SYS "OS_ReadVduVariables",blk%,blk%
  355!(H%+&C0)=!blk%:!(H%+&C4)=blk%!4
  356IF!(H%+&F0)=1:H%!&C0=(H%!&C0)+(16*320):H%!&C4=(H%!&C4)+(16*320)
  357SYS "OS_Byte",112,1
  358!(H%+&C8)=AREA% : REM store start of User sprite area
  359aa=RND(-TIME)
  360left%=12:low%=256:right%=1267:high%=947
  361ENDPROC
  362
  363DEFPROCpalette
  364RESTORE +0
  365DATA 255,255,255,170,170,170,102,102,102,0,0,0,0,0,153,0,51,255,0,204,255,255,136,0,221,0,0,255,255,0,136,17,0,255,204,153,0,119,34,0,187,0,0,255,34,187,85,0
  366FOR i%=0 TO 15:READ r%, g%, b%:VDU 19,i%,16,r%,g%,b%:NEXT
  367ENDPROC
  368
  369DEFPROClink
  370IFY%=0 test%=0:REPEAT:PROCfloppy_disk("AZTEC DEMO","$.!AZTECS.ONE.demo1","$.!Aztecs"):UNTILerror%=0
  371file$="<Aztec$chaindir>.ONE.demo1":*FX229
  372*FX220,17
  373A%=memtop%+4:PAGE=A%:CHAINfile$
  374STOP
  375
  376DEFPROCfloppy_disk(dname$,path$,set$)
  377SYS "OS_SpriteOp",&110,AREA%,"loadsc",0,400,436,880,636
  378LOCALERROR
  379ONERRORLOCAL:RESTORE ERROR:SYS "OS_SpriteOp",&134,AREA%,"loadsc",400,436,0:SYS "OS_SpriteOp",&119,AREA%,"loadsc":error%=1:test%=1:ENDPROC
  380REMONERRORLOCAL SYS"OS_Byte",250,0,255 TO ,scr%:SYS"OS_Byte",113,scr%:PRINT REPORT$+" (Internal error code "+STR$ERL+")"+CHR$0:x=GET:END
  381REPEAT
  382  error%=0
  383  IFtest%=1 THEN
  384    PROCborders(400,436,880,636)
  385    PROCmouse_full
  386    PROCwords(430,572,-1,"Please place the")
  387    PROCwords(430,518,-1,dname$)
  388    okx%=760:oky%=456
  389    GCOL0,3:VDU25,4,okx%;oky%;25,1,100;0;25,1,0;56;25,1,-100;0;25,1,0;-56;
  390    GCOL0,0:VDU25,4,okx%+2;oky%+4;25,97,96;48;
  391    PROCwords(430,464,-1,"disk in drive 0    OK")
  392    MOUSEON
  393    REPEAT:MOUSEmx%,my%,mc%:UNTILmc%=4 AND mx%>okx% AND mx%<okx%+100 AND my%>oky% AND my%<oky%+58
  394  ENDIF
  395  *ADFS
  396  *MOUNT 0
  397  SYS"OS_GBPB",5,,input_disk_name%
  398  len_d_n%=?input_disk_name%:name$=""
  399  FORdn%=1TOlen_d_n%
  400  IF?(input_disk_name%+dn%)>31:name$=name$+CHR$(?(input_disk_name%+dn%))
  401  NEXT
  402  name$=FNconverttolower(name$)
  403  SYS "OS_SpriteOp",&122,AREA%,"loadsc",400,436,0
  404  IFname$<>"awfeb94":error%=1
  405  test%=1
  406  OSCLI"SET Aztec$chaindir "+set$
  407  SYS "XOS_Find",&40,path$ TO h%
  408UNTILh%AND(error%=0):CLOSE#h%
  409SYS "OS_SpriteOp",&122,AREA%,"loadsc",400,436,0
  410SYS "OS_SpriteOp",&119,AREA%,"loadsc"
  411RESTORE ERROR
  412ENDPROC
  413
  414DEFPROCwords(A%,B%,big%,words$)
  415E%=3:IFbig%:C%=320:D%=360:ELSE:C%=240:D%=270
  416FORlett%=1TOLEN(words$):?(letters%+(lett%-1))=ASC(MID$(words$,lett%,1)):NEXT
  417?(letters%+LEN(words$))=&0D
  418CALL fonts%
  419ENDPROC
  420

4�SCSI::SCSIDisc4.$.CoverDisks.!AZTECS.!runimage

*FX220,27
� blk% 256
A%=�:�=&13200:oldhimem%=A%
work%=�
CMAXWINDIND%=4096:MAXWINDSTR%=4096:SPRITESEXT%=8000:pdbs%=&40000
0windind%=work%:windstr%=windind%+MAXWINDIND%
Mwindptrlist%=windstr%+MAXWINDSTR% : wptrlist%=windptrlist%+40:B%=windstr%
mysprites%=wptrlist%+40
	mc%=&17A00

memtop%=&4EC00
Aș "Wimp_Initialise",200,&4B534154,"Aztecs" � wimpver%,taskh%
W� �error(�$+" (Internal error code "+Þ+")"+�0,�):ș "Wimp_CloseDown",,&4B534154:�

>� ibname% 20,errblk% 200,menu% 1024,blk2% 256,pdbbuff% 256
 �:set2w%=0:setupw%=0:quit%=�
+� �readsysvar("Aztec$Status")="Fresh" �
  � � �aztecsisrunning �
     �"Set Aztec$isrunning 1"
  �
N    �error("Aztecs is already running",0):ș "Wimp_CloseDown",,&4B534154:�
  �
-  !mysprites%=SPRITESEXT%:mysprites%!8=16
&  ș "OS_SpriteOp",&109,mysprites%
<  ș "OS_SpriteOp",&10A,mysprites%,"<Aztec$Dir>.Sprites"
.  �"LOAD <Aztec$Dir>.code "+�~mc%:A%=work%
2  wptr1%=windstr%:wptr2%=windind%:windcount%=1
5  ș "Wimp_OpenTemplate",,"<Aztec$Dir>.Templates"
:  �load_template("proginfo"):�load_template("crapola")
  �readsound
�
2  ș "Wimp_SetMode",��readsysvar("Aztec$Mode")
�
 �resetsound
!0a$=�converttolower(�readsysvar("Aztec$Dir"))
"'�a$,"adfs::aztecs")<>0:Y%=0:�:Y%=1
#0ș "Wimp_CreateWindow",,wptrlist%!0 � infow%
$/ș "Wimp_CreateWindow",,wptrlist%!4 � msgw%
%ș "Wimp_CloseTemplate"
&�Y%=0�hide_logosave
'�baricon
(7� � �error(�$+" (Internal error code "+Þ+")"+�0,�)
)� �event:� quit%
*"ș "Wimp_CloseDown",,&4B534154
+�"Set Aztec$isrunning 0"
,9ș "XOS_Module",4,"bounce":ș "XOS_Module",4,"conch2"
-	*QUIT
.�
/
0ݤaztecsisrunning
1� �
2��:� �:=0
3<ș "OS_ReadVarVal","Aztec$isrunning",blk%,256,0,0 � ,,a%
4%a$="":�A%=0�a%-1:a$+=�(blk%?A%):�
5� �
6�a$="1":=-1
7=0
8
9��event
:(ș "Wimp_Poll",%110001,blk% � e%,eb%
;Ȏ e% �
<  � 1: �redraw
=  � 2: �openwind(blk%)
>  � 3: �closewind(blk%)
?&  � 6: �click(eb%!8,eb%!12,eb%!16)
@  � 8: �keyevent
A  � 9: �menuselect
B�
C�
D
E��redraw
F'�23,224,170,85,170,85,170,85,170,85
G(ș "Wimp_RedrawWindow",,blk% � more%
H1x0%=blk%!4:y0%=blk%!8:x1%=blk%!12:y1%=blk%!16
Iȕ more%
J+  ș "Wimp_GetRectangle",,blk% � more%:
K�
L�
M
N��keyevent
O ș "Wimp_ProcessKey",blk%!24
P�
Q
Rݤreadsysvar(a$)
SOș "OS_ReadVarVal",a$,blk%,256,0,0 � ,,a%:a$="":�A%=0�a%-1:a$+=�(blk%?A%):�
T=a$
U
V��openwind(b%)
Wș "Wimp_OpenWindow",,b%
X�
Y
Z��closewind(b%)
[ș "Wimp_CloseWindow",,b%
\�
]
^ݤreadstring(p%)
_2�a$:a$="":ȕ �a$<255 � ?p%>31 a$+=�?p%:p%+=1:�
`=a$
a
bݤisvga
c!�isselected(setupw%,33)�:=-1
d=0
e
fݤiscgaonly
g)ș"OS_CheckModeValid",27 � reg0%;fla%
h%�((fla%�%10)=%10)�(reg0%=-1)�:=-1
i=0
j
k��load_template(name$)
lNwptrlist%!((windcount%-1)*4)=wptr1%:windptrlist%!((windcount%-1)*4)=wptr2%
mTș "Wimp_LoadTemplate",,wptr1%,wptr2%,windind%+MAXWINDIND%,-1,name$,0 � ,,wptr2%
n>n%=wptr1%!84:�I%=0�(n%-1)*32�32:d%=wptr1%+88+I%:f%=(d%!16)
o/  �(f%�258)=258 � (f%�1)=0 d%!24=mysprites%
pA  � wimpver%<300 � (name$="setup"�name$="set2"�name$="msg") �
q]    �(f%�259)=257 � d%!24<>-1 � 秤readstring(d%!24),"b2")<>0 f%=(f%�&0FF00FFF)�&C00F9000
r*    �(f%�&E000)=&E000 d%!4+=4:d%!12-=4
s    �(f%�258)=2 �
t      a$=�readstring(d%+20)
u/      ș "XWimp_SpriteOp",40,,a$ � ,,,w%,h%
v      �(w%�h%)=0�
w2        f%=f%�256:$wptr2%=a$:?(wptr2%+(�a$))=0
xC        d%!20=wptr2%:d%!24=mysprites%:d%!28=�a$:wptr2%+=�(a$)+1
y      �
z	    �
{    d%!16=f%
|  �
}�
~-wptr1%+=88+((wptr1%!84)*32):windcount%+=1
�
�
�
��baricon
�$ibname%="frame1"
�4!blk%=-1:blk%!4=0:blk%!8=0:blk%!12=62:blk%!16=72
�Jblk%!20=&1000313A:blk%!24=ibname%:blk%!28=mysprites%:blk%!32=�$ibname%
�%ș "Wimp_CreateIcon",,blk% � ibh%
��
�
�ݤfiletype(a$)
�ș "XOS_File",5,a$ � a%
�=a%
�
���error(msg$,errno%)
��#0
�!!errblk%=99:$(errblk%+4)=msg$
�,ș "Wimp_ReportError",errblk%,0,"Aztecs"
��
�
���selecticn(w%,i%,f%)
�F!blk%=w%:blk%!4=i%:blk%!12=(1<<21):�f%=0 blk%!8=0:� blk%!8=blk%!12
� ș "Wimp_SetIconState",,blk%
��
�
���geticonstate(w%,i%)
�3!blk%=w%:blk%!4=i%:ș "Wimp_GetIconState",,blk%
��
�
�ݤisselected(w%,i%)
��geticonstate(w%,i%)
� =((blk%!24)�(1<<21))=(1<<21)
�
�ݤconverttolower(a$)
�� l%,b$,ch%:b$=""
�
�l%=1��a$
�ch%=�(�a$,l%,1))
�!�(ch%>&40)�(ch%<&5B):ch%+=&20
�b$+=�ch%
��
�=b$
�
�2ݤleaf(f$) I%=�f$:ȕI%>1��f$,I%,1)<>"."I%-=1:�
��f$,I%,1)="."I%+=1
�=�f$,I%)
�
�ݤgeticnstring(w%,i%)
�3!blk%=w%:blk%!4=i%:ș "Wimp_GetIconState",,blk%
�=�readstring(blk%!28)
�
���puticnstring(w%,i%,a$)
�3!blk%=w%:blk%!4=i%:ș "Wimp_GetIconState",,blk%
�$$(blk%!28)=a$:?((blk%!28)+�a$)=0
�3blk%!8=0:blk%!12=0:ș "Wimp_SetIconState",,blk%
��
�
���click(but%,w%,i%)
�Ȏ w% �
�  � -2:
�    Ȏ but% �
�C      � 2: �master_menu("Aztecs","Info,Message,Quit,",!eb%,256)
�      � 4: �startgame
�	    �
��
��
�
���submenu(m%,i%,h%)
�m%+=28+((i%-1)*24)
�m%!4=h%
��
�
�"��master_menu(title$,m$,x%,y%)
�!�create_menu(menu%,title$,m$)
�4�submenu(menu%,1,infow%):�submenu(menu%,2,msgw%)
�2ș "Wimp_CreateMenu",,menu%,x%-menu%!16 / 2,y%
�currmenu%=-1
��
�
���create_menu(m%,title$,m$)
�
� i%,max%
�$m%=title$
�4m%?12=7:m%?13=2:m%?14=7:m%?15=0:m%!20=40:m%!24=0
�i%=m%+28:max%=�(title$)-2
��
�  a%=�m$,",")
�  i$=�m$,a%-1):!i%=0
�  �:more%=�
�'    �i$,1)=">" !i%=(!i%)�8:more%=�
�'    �i$,1)="!" !i%=(!i%)�1:more%=�
�    � more% i$=�i$,�(i$)-1)
�  � � more%:$(i%+12)=i$
�  � a%>max% max%=a%
�  i%!4=0:i%!8=&07000021
�  m$ = �m$,a%+1)
�  Ȏ $(i%+12) �
�  �
�  i% = i% + 24
�
� m$ = ""
�i%!-24 = (i%!-24)� &80
�m%!16 = max%*16
��
�
���menuselect
�#ș "Wimp_GetPointerInfo",,blk2%
�currmenubut%=blk2%!8
�Ȏ currmenu% �
�  � -1:
�    Ȏ !eb% �
�      � 0: �checkadjust
�      � 1: �checkadjust
�      � 2: quit%=�
�	    �
��
��
�
���checkadjust
�7�currmenubut%=1:ș "Wimp_CreateMenu",,menu%,100,100
��
�
���hide_logosave
�3�!blk%=370:blk%!4=-1068:blk%!8=928:blk%!12=-344
�%!blk%=370:blk%!8=928:blk%!12=-344
�+� �iscgaonly:blk%!4=-996:�:blk%!4=-1116
�$ș "Wimp_SetExtent",setupw%,blk%
��
�
�ݤreadvduvar(a%)
�9!blk%=a%:blk%!4=-1:ș "OS_ReadVduVariables",blk%,blk%
�
=!blk%
�
ݤcheckfont(a$,A%,B%)
� �
� � �:=0
)ș "Font_FindFont",,a$,A%,B%,0,0 � h%
ș "Font_LoseFont",h%:� �
=�

��readsound
9ș "Sound_ReadControlBlock",1,0 � ,,a%:a%=(a%>>8)�255
	)ș "Sound_Configure",0,0,0 � A%,B%,C%
4�"Set Aztec$chan1 "+�a%:�"Set Aztec$nchans "+�A%
5�"Set Aztec$sampsz "+�B%:�"Set Aztec$period "+�C%
2ș "Sound_Volume",0 � A%:�"Set Aztec$vol "+�A%

�

��resetsound
1�"channelvoice 1 "+�readsysvar("Aztec$chan1")
CA%=��readsysvar("Aztec$nchans"):B%=��readsysvar("Aztec$sampsz")
AC%=��readsysvar("Aztec$period"):ș "Sound_Configure",A%,B%,C%
/ș "Sound_Volume",��readsysvar("Aztec$vol")
�

��startgame
8ș "Font_ReadFontMax" � fm%,fm1%,fm2%,fm3%,fm4%,fm5%
C�fm2%<57600 ș "Font_SetFontMax",fm%,fm1%,57600,57600,fm4%,fm5%
2ș "OS_Byte",135 � ,,a%:�"Set Aztec$Mode "+�a%
#*Set Aztec$chaindir <Aztec$Dir>

H%=mc%
Y�checkfont("Tabloid.medium",320,360)=� �error("Font:'Tabloid.Medium' not found",0):�
� �iscgaonly �
kș "Wimp_SetMode",15:�(�readvduvar(150)/1024)<160 �error("Not enough memory to change screen mode",1):�
�
 kș "Wimp_SetMode",28:�(�readvduvar(150)/1024)<300 �error("Not enough memory to change screen mode",1):�
!�
""ș "Wimp_CloseDown",,&4B534154
#+�readsound:ș "Sound_Configure",2,0,100
$*ChannelVoice 1 2
%*ChannelVoice 2 6
&ș "Sound_Volume",127:O%=1
'�=oldhimem%
(� �iscgaonly �
)�12:H%!&F0=1
*�
+�27:H%!&F0=2
,�
-<�palette:�26:�18,0,131:�k%=2�1�-1:ș"OS_Byte",112,k%:�:�
.c� ș"OS_Byte",250,0,255 � ,scr%:ș"OS_Byte",113,scr%:� �$+" (Internal error code "+Þ+")"+�0:�
/�checkarm3
0ș "OS_RemoveCursors"
1� input_disk_name% 256
2 �pull_variables:�initiallise
3�PROCtitle
4C�j%=32�126:�words(920,-200,-1,�(j%)):�words(920,-200,0,�(j%)):�
5�PROCgo_on
6	�link
7�
8
9��checkarm3
:H%!&DC=0
;	t1%=�
<�k%=0�20000:�
=	t2%=�
>�(t2%-t1%)<15:H%!&DC=1
?�
@
A��pull_variables
Bfonts%=!(H%+&00)
Cletters%=!(H%+&04)
Dsp_on_vga%=!(H%+&08)
Eput_sp%=!(H%+&0C)
Fsp_name%=!(H%+&10)
Gdrawit%=!(H%+&14)
Hcopyscr%=!(H%+&18)
Icrunchsp%=!(H%+&1C)
Jexpandsp%=!(H%+&20)
Kcspname%=!(H%+&24)
Lnspname%=!(H%+&28)
Mblowupscr%=!(H%+&2C)
Nsp_on_cga%=!(H%+&30)
Oscrolldn%=!(H%+&34)
Pscrollup%=!(H%+&38)
Qcopirow%=!(H%+&3C)
R
SAREA%=H%+4*1024:� 4K mc
T�
U
V��initiallise
W� input_disk_name% 256
X�DIM soundvol%(15)
Y�RESTORE +0
ZC�DATA 1,63,79,88,95,100,104,108,111,114,117,120,122,124,126,127
['�FORi%=0TO15:READsoundvol%(i%):NEXT
\$!AREA%=(216*1024)+512:AREA%!8=16
]+�PROCpalette:!AREA%=220*1024:AREA%!8=16
^I� SCALE% 16:SCALE%!0=16:SCALE%!4=16*(H%!&F0):SCALE%!8=16:SCALE%!12=16
_ș "OS_SpriteOp",&109,AREA%
`)ș "OS_Byte",113,1:ș "OS_Byte",112,2
a"!blk%=149:blk%!4=148:blk%!8=-1
b&ș "OS_ReadVduVariables",blk%,blk%
c$!(H%+&C0)=!blk%:!(H%+&C4)=blk%!4
dB�!(H%+&F0)=1:H%!&C0=(H%!&C0)+(16*320):H%!&C4=(H%!&C4)+(16*320)
eș "OS_Byte",112,1
f7!(H%+&C8)=AREA% : � store start of User sprite area
gaa=�(-�)
h+left%=12:low%=256:right%=1267:high%=947
i�
j
k
��palette
l� +0
m�� 255,255,255,170,170,170,102,102,102,0,0,0,0,0,153,0,51,255,0,204,255,255,136,0,221,0,0,255,255,0,136,17,0,255,204,153,0,119,34,0,187,0,0,255,34,187,85,0
n2� i%=0 � 15:� r%, g%, b%:� 19,i%,16,r%,g%,b%:�
o�
p
q
��link
rZ�Y%=0 test%=0:�:�floppy_disk("AZTEC DEMO","$.!AZTECS.ONE.demo1","$.!Aztecs"):�error%=0
s-file$="<Aztec$chaindir>.ONE.demo1":*FX229
t
*FX220,17
uA%=memtop%+4:�=A%:�file$
v�
w
x$��floppy_disk(dname$,path$,set$)
y:ș "OS_SpriteOp",&110,AREA%,"loadsc",0,400,436,880,636
z�
{r��:� �:ș "OS_SpriteOp",&134,AREA%,"loadsc",400,436,0:ș "OS_SpriteOp",&119,AREA%,"loadsc":error%=1:test%=1:�
|��ONERRORLOCAL SYS"OS_Byte",250,0,255 TO ,scr%:SYS"OS_Byte",113,scr%:PRINT REPORT$+" (Internal error code "+STR$ERL+")"+CHR$0:x=GET:END
}�
~  error%=0
  �test%=1 �
�!    �borders(400,436,880,636)
�    �mouse_full
�-    �words(430,572,-1,"Please place the")
�!    �words(430,518,-1,dname$)
�    okx%=760:oky%=456
�I    �0,3:�25,4,okx%;oky%;25,1,100;0;25,1,0;56;25,1,-100;0;25,1,0;-56;
�-    �0,0:�25,4,okx%+2;oky%+4;25,97,96;48;
�2    �words(430,464,-1,"disk in drive 0    OK")
�    ȗ�
�Q    �:ȗmx%,my%,mc%:�mc%=4 � mx%>okx% � mx%<okx%+100 � my%>oky% � my%<oky%+58
�  �
�  *ADFS
�  *MOUNT 0
�%  ș"OS_GBPB",5,,input_disk_name%
�)  len_d_n%=?input_disk_name%:name$=""
�  �dn%=1�len_d_n%
�H  �?(input_disk_name%+dn%)>31:name$=name$+�(?(input_disk_name%+dn%))
�  �
�"  name$=�converttolower(name$)
�4  ș "OS_SpriteOp",&122,AREA%,"loadsc",400,436,0
�   �name$<>"awfeb94":error%=1
�
  test%=1
�!  �"SET Aztec$chaindir "+set$
�"  ș "XOS_Find",&40,path$ � h%
��h%�(error%=0):�#h%
�2ș "OS_SpriteOp",&122,AREA%,"loadsc",400,436,0
�(ș "OS_SpriteOp",&119,AREA%,"loadsc"
�� �
��
�
���words(A%,B%,big%,words$)
�,E%=3:�big%:C%=320:D%=360:�:C%=240:D%=270
�B�lett%=1��(words$):?(letters%+(lett%-1))=�(�words$,lett%,1)):�
�?(letters%+�(words$))=&0D
�� fonts%
��
�
�

00000000  0d 00 00 34 f4 ff 53 43  53 49 3a 3a 53 43 53 49  |...4..SCSI::SCSI|
00000010  44 69 73 63 34 2e 24 2e  43 6f 76 65 72 44 69 73  |Disc4.$.CoverDis|
00000020  6b 73 2e 21 41 5a 54 45  43 53 2e 21 72 75 6e 69  |ks.!AZTECS.!runi|
00000030  6d 61 67 65 0d 00 01 0d  2a 46 58 32 32 30 2c 32  |mage....*FX220,2|
00000040  37 0d 00 02 0e de 20 62  6c 6b 25 20 32 35 36 0d  |7..... blk% 256.|
00000050  00 03 1e 41 25 3d 93 3a  d3 3d 26 31 33 32 30 30  |...A%=.:.=&13200|
00000060  3a 6f 6c 64 68 69 6d 65  6d 25 3d 41 25 0d 00 04  |:oldhimem%=A%...|
00000070  0b 77 6f 72 6b 25 3d 93  0d 00 05 43 4d 41 58 57  |.work%=....CMAXW|
00000080  49 4e 44 49 4e 44 25 3d  34 30 39 36 3a 4d 41 58  |INDIND%=4096:MAX|
00000090  57 49 4e 44 53 54 52 25  3d 34 30 39 36 3a 53 50  |WINDSTR%=4096:SP|
000000a0  52 49 54 45 53 45 58 54  25 3d 38 30 30 30 3a 70  |RITESEXT%=8000:p|
000000b0  64 62 73 25 3d 26 34 30  30 30 30 0d 00 06 30 77  |dbs%=&40000...0w|
000000c0  69 6e 64 69 6e 64 25 3d  77 6f 72 6b 25 3a 77 69  |indind%=work%:wi|
000000d0  6e 64 73 74 72 25 3d 77  69 6e 64 69 6e 64 25 2b  |ndstr%=windind%+|
000000e0  4d 41 58 57 49 4e 44 49  4e 44 25 0d 00 07 4d 77  |MAXWINDIND%...Mw|
000000f0  69 6e 64 70 74 72 6c 69  73 74 25 3d 77 69 6e 64  |indptrlist%=wind|
00000100  73 74 72 25 2b 4d 41 58  57 49 4e 44 53 54 52 25  |str%+MAXWINDSTR%|
00000110  20 3a 20 77 70 74 72 6c  69 73 74 25 3d 77 69 6e  | : wptrlist%=win|
00000120  64 70 74 72 6c 69 73 74  25 2b 34 30 3a 42 25 3d  |dptrlist%+40:B%=|
00000130  77 69 6e 64 73 74 72 25  0d 00 08 1b 6d 79 73 70  |windstr%....mysp|
00000140  72 69 74 65 73 25 3d 77  70 74 72 6c 69 73 74 25  |rites%=wptrlist%|
00000150  2b 34 30 0d 00 09 0e 6d  63 25 3d 26 31 37 41 30  |+40....mc%=&17A0|
00000160  30 0d 00 0a 12 6d 65 6d  74 6f 70 25 3d 26 34 45  |0....memtop%=&4E|
00000170  43 30 30 0d 00 0b 41 c8  99 20 22 57 69 6d 70 5f  |C00...A.. "Wimp_|
00000180  49 6e 69 74 69 61 6c 69  73 65 22 2c 32 30 30 2c  |Initialise",200,|
00000190  26 34 42 35 33 34 31 35  34 2c 22 41 7a 74 65 63  |&4B534154,"Aztec|
000001a0  73 22 20 b8 20 77 69 6d  70 76 65 72 25 2c 74 61  |s" . wimpver%,ta|
000001b0  73 6b 68 25 0d 00 0c 57  ee 85 20 f2 65 72 72 6f  |skh%...W.. .erro|
000001c0  72 28 f6 24 2b 22 20 28  49 6e 74 65 72 6e 61 6c  |r(.$+" (Internal|
000001d0  20 65 72 72 6f 72 20 63  6f 64 65 20 22 2b c3 9e  | error code "+..|
000001e0  2b 22 29 22 2b bd 30 2c  9f 29 3a c8 99 20 22 57  |+")"+.0,.):.. "W|
000001f0  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 22 2c 2c  |imp_CloseDown",,|
00000200  26 34 42 35 33 34 31 35  34 3a e0 0d 00 0d 3e de  |&4B534154:....>.|
00000210  20 69 62 6e 61 6d 65 25  20 32 30 2c 65 72 72 62  | ibname% 20,errb|
00000220  6c 6b 25 20 32 30 30 2c  6d 65 6e 75 25 20 31 30  |lk% 200,menu% 10|
00000230  32 34 2c 62 6c 6b 32 25  20 32 35 36 2c 70 64 62  |24,blk2% 256,pdb|
00000240  62 75 66 66 25 20 32 35  36 0d 00 0e 20 f7 3a 73  |buff% 256... .:s|
00000250  65 74 32 77 25 3d 30 3a  73 65 74 75 70 77 25 3d  |et2w%=0:setupw%=|
00000260  30 3a 71 75 69 74 25 3d  a3 0d 00 0f 2b e7 20 a4  |0:quit%=....+. .|
00000270  72 65 61 64 73 79 73 76  61 72 28 22 41 7a 74 65  |readsysvar("Azte|
00000280  63 24 53 74 61 74 75 73  22 29 3d 22 46 72 65 73  |c$Status")="Fres|
00000290  68 22 20 8c 0d 00 10 1c  20 20 e7 20 ac 20 a4 61  |h" .....  . . .a|
000002a0  7a 74 65 63 73 69 73 72  75 6e 6e 69 6e 67 20 8c  |ztecsisrunning .|
000002b0  0d 00 11 20 20 20 20 20  ff 22 53 65 74 20 41 7a  |...     ."Set Az|
000002c0  74 65 63 24 69 73 72 75  6e 6e 69 6e 67 20 31 22  |tec$isrunning 1"|
000002d0  0d 00 12 07 20 20 cc 0d  00 13 4e 20 20 20 20 f2  |....  ....N    .|
000002e0  65 72 72 6f 72 28 22 41  7a 74 65 63 73 20 69 73  |error("Aztecs is|
000002f0  20 61 6c 72 65 61 64 79  20 72 75 6e 6e 69 6e 67  | already running|
00000300  22 2c 30 29 3a c8 99 20  22 57 69 6d 70 5f 43 6c  |",0):.. "Wimp_Cl|
00000310  6f 73 65 44 6f 77 6e 22  2c 2c 26 34 42 35 33 34  |oseDown",,&4B534|
00000320  31 35 34 3a e0 0d 00 14  07 20 20 cd 0d 00 15 2d  |154:.....  ....-|
00000330  20 20 21 6d 79 73 70 72  69 74 65 73 25 3d 53 50  |  !mysprites%=SP|
00000340  52 49 54 45 53 45 58 54  25 3a 6d 79 73 70 72 69  |RITESEXT%:myspri|
00000350  74 65 73 25 21 38 3d 31  36 0d 00 16 26 20 20 c8  |tes%!8=16...&  .|
00000360  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
00000370  26 31 30 39 2c 6d 79 73  70 72 69 74 65 73 25 0d  |&109,mysprites%.|
00000380  00 17 3c 20 20 c8 99 20  22 4f 53 5f 53 70 72 69  |..<  .. "OS_Spri|
00000390  74 65 4f 70 22 2c 26 31  30 41 2c 6d 79 73 70 72  |teOp",&10A,myspr|
000003a0  69 74 65 73 25 2c 22 3c  41 7a 74 65 63 24 44 69  |ites%,"<Aztec$Di|
000003b0  72 3e 2e 53 70 72 69 74  65 73 22 0d 00 18 2e 20  |r>.Sprites".... |
000003c0  20 ff 22 4c 4f 41 44 20  3c 41 7a 74 65 63 24 44  | ."LOAD <Aztec$D|
000003d0  69 72 3e 2e 63 6f 64 65  20 22 2b c3 7e 6d 63 25  |ir>.code "+.~mc%|
000003e0  3a 41 25 3d 77 6f 72 6b  25 0d 00 19 32 20 20 77  |:A%=work%...2  w|
000003f0  70 74 72 31 25 3d 77 69  6e 64 73 74 72 25 3a 77  |ptr1%=windstr%:w|
00000400  70 74 72 32 25 3d 77 69  6e 64 69 6e 64 25 3a 77  |ptr2%=windind%:w|
00000410  69 6e 64 63 6f 75 6e 74  25 3d 31 0d 00 1a 35 20  |indcount%=1...5 |
00000420  20 c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 54 65  | .. "Wimp_OpenTe|
00000430  6d 70 6c 61 74 65 22 2c  2c 22 3c 41 7a 74 65 63  |mplate",,"<Aztec|
00000440  24 44 69 72 3e 2e 54 65  6d 70 6c 61 74 65 73 22  |$Dir>.Templates"|
00000450  0d 00 1b 3a 20 20 f2 6c  6f 61 64 5f 74 65 6d 70  |...:  .load_temp|
00000460  6c 61 74 65 28 22 70 72  6f 67 69 6e 66 6f 22 29  |late("proginfo")|
00000470  3a f2 6c 6f 61 64 5f 74  65 6d 70 6c 61 74 65 28  |:.load_template(|
00000480  22 63 72 61 70 6f 6c 61  22 29 0d 00 1c 10 20 20  |"crapola")....  |
00000490  f2 72 65 61 64 73 6f 75  6e 64 0d 00 1d 05 cc 0d  |.readsound......|
000004a0  00 1e 32 20 20 c8 99 20  22 57 69 6d 70 5f 53 65  |..2  .. "Wimp_Se|
000004b0  74 4d 6f 64 65 22 2c bb  a4 72 65 61 64 73 79 73  |tMode",..readsys|
000004c0  76 61 72 28 22 41 7a 74  65 63 24 4d 6f 64 65 22  |var("Aztec$Mode"|
000004d0  29 0d 00 1f 05 cd 0d 00  20 0f f2 72 65 73 65 74  |)....... ..reset|
000004e0  73 6f 75 6e 64 0d 00 21  30 61 24 3d a4 63 6f 6e  |sound..!0a$=.con|
000004f0  76 65 72 74 74 6f 6c 6f  77 65 72 28 a4 72 65 61  |verttolower(.rea|
00000500  64 73 79 73 76 61 72 28  22 41 7a 74 65 63 24 44  |dsysvar("Aztec$D|
00000510  69 72 22 29 29 0d 00 22  27 e7 a7 61 24 2c 22 61  |ir")).."'..a$,"a|
00000520  64 66 73 3a 3a 61 7a 74  65 63 73 22 29 3c 3e 30  |dfs::aztecs")<>0|
00000530  3a 59 25 3d 30 3a 8b 3a  59 25 3d 31 0d 00 23 30  |:Y%=0:.:Y%=1..#0|
00000540  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |.. "Wimp_CreateW|
00000550  69 6e 64 6f 77 22 2c 2c  77 70 74 72 6c 69 73 74  |indow",,wptrlist|
00000560  25 21 30 20 b8 20 69 6e  66 6f 77 25 0d 00 24 2f  |%!0 . infow%..$/|
00000570  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |.. "Wimp_CreateW|
00000580  69 6e 64 6f 77 22 2c 2c  77 70 74 72 6c 69 73 74  |indow",,wptrlist|
00000590  25 21 34 20 b8 20 6d 73  67 77 25 0d 00 25 1b c8  |%!4 . msgw%..%..|
000005a0  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 54 65 6d  |. "Wimp_CloseTem|
000005b0  70 6c 61 74 65 22 0d 00  26 17 e7 59 25 3d 30 f2  |plate"..&..Y%=0.|
000005c0  68 69 64 65 5f 6c 6f 67  6f 73 61 76 65 0d 00 27  |hide_logosave..'|
000005d0  0c f2 62 61 72 69 63 6f  6e 0d 00 28 37 ee 20 85  |..baricon..(7. .|
000005e0  20 f2 65 72 72 6f 72 28  f6 24 2b 22 20 28 49 6e  | .error(.$+" (In|
000005f0  74 65 72 6e 61 6c 20 65  72 72 6f 72 20 63 6f 64  |ternal error cod|
00000600  65 20 22 2b c3 9e 2b 22  29 22 2b bd 30 2c 9f 29  |e "+..+")"+.0,.)|
00000610  0d 00 29 14 f5 20 f2 65  76 65 6e 74 3a fd 20 71  |..).. .event:. q|
00000620  75 69 74 25 0d 00 2a 22  c8 99 20 22 57 69 6d 70  |uit%..*".. "Wimp|
00000630  5f 43 6c 6f 73 65 44 6f  77 6e 22 2c 2c 26 34 42  |_CloseDown",,&4B|
00000640  35 33 34 31 35 34 0d 00  2b 1c ff 22 53 65 74 20  |534154..+.."Set |
00000650  41 7a 74 65 63 24 69 73  72 75 6e 6e 69 6e 67 20  |Aztec$isrunning |
00000660  30 22 0d 00 2c 39 c8 99  20 22 58 4f 53 5f 4d 6f  |0"..,9.. "XOS_Mo|
00000670  64 75 6c 65 22 2c 34 2c  22 62 6f 75 6e 63 65 22  |dule",4,"bounce"|
00000680  3a c8 99 20 22 58 4f 53  5f 4d 6f 64 75 6c 65 22  |:.. "XOS_Module"|
00000690  2c 34 2c 22 63 6f 6e 63  68 32 22 0d 00 2d 09 2a  |,4,"conch2"..-.*|
000006a0  51 55 49 54 0d 00 2e 05  e0 0d 00 2f 04 0d 00 30  |QUIT......./...0|
000006b0  15 dd a4 61 7a 74 65 63  73 69 73 72 75 6e 6e 69  |...aztecsisrunni|
000006c0  6e 67 0d 00 31 07 ea 20  85 0d 00 32 0e ee 85 ea  |ng..1.. ...2....|
000006d0  3a f7 20 85 3a 3d 30 0d  00 33 3c c8 99 20 22 4f  |:. .:=0..3<.. "O|
000006e0  53 5f 52 65 61 64 56 61  72 56 61 6c 22 2c 22 41  |S_ReadVarVal","A|
000006f0  7a 74 65 63 24 69 73 72  75 6e 6e 69 6e 67 22 2c  |ztec$isrunning",|
00000700  62 6c 6b 25 2c 32 35 36  2c 30 2c 30 20 b8 20 2c  |blk%,256,0,0 . ,|
00000710  2c 61 25 0d 00 34 25 61  24 3d 22 22 3a e3 41 25  |,a%..4%a$="":.A%|
00000720  3d 30 b8 61 25 2d 31 3a  61 24 2b 3d bd 28 62 6c  |=0.a%-1:a$+=.(bl|
00000730  6b 25 3f 41 25 29 3a ed  0d 00 35 07 f7 20 85 0d  |k%?A%):...5.. ..|
00000740  00 36 0f e7 61 24 3d 22  31 22 3a 3d 2d 31 0d 00  |.6..a$="1":=-1..|
00000750  37 06 3d 30 0d 00 38 04  0d 00 39 0b dd f2 65 76  |7.=0..8...9...ev|
00000760  65 6e 74 0d 00 3a 28 c8  99 20 22 57 69 6d 70 5f  |ent..:(.. "Wimp_|
00000770  50 6f 6c 6c 22 2c 25 31  31 30 30 30 31 2c 62 6c  |Poll",%110001,bl|
00000780  6b 25 20 b8 20 65 25 2c  65 62 25 0d 00 3b 0b c8  |k% . e%,eb%..;..|
00000790  8e 20 65 25 20 ca 0d 00  3c 12 20 20 c9 20 31 3a  |. e% ...<.  . 1:|
000007a0  20 f2 72 65 64 72 61 77  0d 00 3d 1a 20 20 c9 20  | .redraw..=.  . |
000007b0  32 3a 20 f2 6f 70 65 6e  77 69 6e 64 28 62 6c 6b  |2: .openwind(blk|
000007c0  25 29 0d 00 3e 1b 20 20  c9 20 33 3a 20 f2 63 6c  |%)..>.  . 3: .cl|
000007d0  6f 73 65 77 69 6e 64 28  62 6c 6b 25 29 0d 00 3f  |osewind(blk%)..?|
000007e0  26 20 20 c9 20 36 3a 20  f2 63 6c 69 63 6b 28 65  |&  . 6: .click(e|
000007f0  62 25 21 38 2c 65 62 25  21 31 32 2c 65 62 25 21  |b%!8,eb%!12,eb%!|
00000800  31 36 29 0d 00 40 14 20  20 c9 20 38 3a 20 f2 6b  |16)..@.  . 8: .k|
00000810  65 79 65 76 65 6e 74 0d  00 41 16 20 20 c9 20 39  |eyevent..A.  . 9|
00000820  3a 20 f2 6d 65 6e 75 73  65 6c 65 63 74 0d 00 42  |: .menuselect..B|
00000830  05 cb 0d 00 43 05 e1 0d  00 44 04 0d 00 45 0c dd  |....C....D...E..|
00000840  f2 72 65 64 72 61 77 0d  00 46 27 ef 32 33 2c 32  |.redraw..F'.23,2|
00000850  32 34 2c 31 37 30 2c 38  35 2c 31 37 30 2c 38 35  |24,170,85,170,85|
00000860  2c 31 37 30 2c 38 35 2c  31 37 30 2c 38 35 0d 00  |,170,85,170,85..|
00000870  47 28 c8 99 20 22 57 69  6d 70 5f 52 65 64 72 61  |G(.. "Wimp_Redra|
00000880  77 57 69 6e 64 6f 77 22  2c 2c 62 6c 6b 25 20 b8  |wWindow",,blk% .|
00000890  20 6d 6f 72 65 25 0d 00  48 31 78 30 25 3d 62 6c  | more%..H1x0%=bl|
000008a0  6b 25 21 34 3a 79 30 25  3d 62 6c 6b 25 21 38 3a  |k%!4:y0%=blk%!8:|
000008b0  78 31 25 3d 62 6c 6b 25  21 31 32 3a 79 31 25 3d  |x1%=blk%!12:y1%=|
000008c0  62 6c 6b 25 21 31 36 0d  00 49 0c c8 95 20 6d 6f  |blk%!16..I... mo|
000008d0  72 65 25 0d 00 4a 2b 20  20 c8 99 20 22 57 69 6d  |re%..J+  .. "Wim|
000008e0  70 5f 47 65 74 52 65 63  74 61 6e 67 6c 65 22 2c  |p_GetRectangle",|
000008f0  2c 62 6c 6b 25 20 b8 20  6d 6f 72 65 25 3a 0d 00  |,blk% . more%:..|
00000900  4b 05 ce 0d 00 4c 05 e1  0d 00 4d 04 0d 00 4e 0e  |K....L....M...N.|
00000910  dd f2 6b 65 79 65 76 65  6e 74 0d 00 4f 20 c8 99  |..keyevent..O ..|
00000920  20 22 57 69 6d 70 5f 50  72 6f 63 65 73 73 4b 65  | "Wimp_ProcessKe|
00000930  79 22 2c 62 6c 6b 25 21  32 34 0d 00 50 05 e1 0d  |y",blk%!24..P...|
00000940  00 51 04 0d 00 52 14 dd  a4 72 65 61 64 73 79 73  |.Q...R...readsys|
00000950  76 61 72 28 61 24 29 0d  00 53 4f c8 99 20 22 4f  |var(a$)..SO.. "O|
00000960  53 5f 52 65 61 64 56 61  72 56 61 6c 22 2c 61 24  |S_ReadVarVal",a$|
00000970  2c 62 6c 6b 25 2c 32 35  36 2c 30 2c 30 20 b8 20  |,blk%,256,0,0 . |
00000980  2c 2c 61 25 3a 61 24 3d  22 22 3a e3 41 25 3d 30  |,,a%:a$="":.A%=0|
00000990  b8 61 25 2d 31 3a 61 24  2b 3d bd 28 62 6c 6b 25  |.a%-1:a$+=.(blk%|
000009a0  3f 41 25 29 3a ed 0d 00  54 07 3d 61 24 0d 00 55  |?A%):...T.=a$..U|
000009b0  04 0d 00 56 12 dd f2 6f  70 65 6e 77 69 6e 64 28  |...V...openwind(|
000009c0  62 25 29 0d 00 57 1c c8  99 20 22 57 69 6d 70 5f  |b%)..W... "Wimp_|
000009d0  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 62 25 0d  |OpenWindow",,b%.|
000009e0  00 58 05 e1 0d 00 59 04  0d 00 5a 13 dd f2 63 6c  |.X....Y...Z...cl|
000009f0  6f 73 65 77 69 6e 64 28  62 25 29 0d 00 5b 1d c8  |osewind(b%)..[..|
00000a00  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 57 69 6e  |. "Wimp_CloseWin|
00000a10  64 6f 77 22 2c 2c 62 25  0d 00 5c 05 e1 0d 00 5d  |dow",,b%..\....]|
00000a20  04 0d 00 5e 14 dd a4 72  65 61 64 73 74 72 69 6e  |...^...readstrin|
00000a30  67 28 70 25 29 0d 00 5f  32 ea 61 24 3a 61 24 3d  |g(p%).._2.a$:a$=|
00000a40  22 22 3a c8 95 20 a9 61  24 3c 32 35 35 20 80 20  |"":.. .a$<255 . |
00000a50  3f 70 25 3e 33 31 20 61  24 2b 3d bd 3f 70 25 3a  |?p%>31 a$+=.?p%:|
00000a60  70 25 2b 3d 31 3a ce 0d  00 60 07 3d 61 24 0d 00  |p%+=1:...`.=a$..|
00000a70  61 04 0d 00 62 0b dd a4  69 73 76 67 61 0d 00 63  |a...b...isvga..c|
00000a80  21 e7 a4 69 73 73 65 6c  65 63 74 65 64 28 73 65  |!..isselected(se|
00000a90  74 75 70 77 25 2c 33 33  29 8c 3a 3d 2d 31 0d 00  |tupw%,33).:=-1..|
00000aa0  64 06 3d 30 0d 00 65 04  0d 00 66 0f dd a4 69 73  |d.=0..e...f...is|
00000ab0  63 67 61 6f 6e 6c 79 0d  00 67 29 c8 99 22 4f 53  |cgaonly..g).."OS|
00000ac0  5f 43 68 65 63 6b 4d 6f  64 65 56 61 6c 69 64 22  |_CheckModeValid"|
00000ad0  2c 32 37 20 b8 20 72 65  67 30 25 3b 66 6c 61 25  |,27 . reg0%;fla%|
00000ae0  0d 00 68 25 e7 28 28 66  6c 61 25 80 25 31 30 29  |..h%.((fla%.%10)|
00000af0  3d 25 31 30 29 80 28 72  65 67 30 25 3d 2d 31 29  |=%10).(reg0%=-1)|
00000b00  8c 3a 3d 2d 31 0d 00 69  06 3d 30 0d 00 6a 04 0d  |.:=-1..i.=0..j..|
00000b10  00 6b 1a dd f2 6c 6f 61  64 5f 74 65 6d 70 6c 61  |.k...load_templa|
00000b20  74 65 28 6e 61 6d 65 24  29 0d 00 6c 4e 77 70 74  |te(name$)..lNwpt|
00000b30  72 6c 69 73 74 25 21 28  28 77 69 6e 64 63 6f 75  |rlist%!((windcou|
00000b40  6e 74 25 2d 31 29 2a 34  29 3d 77 70 74 72 31 25  |nt%-1)*4)=wptr1%|
00000b50  3a 77 69 6e 64 70 74 72  6c 69 73 74 25 21 28 28  |:windptrlist%!((|
00000b60  77 69 6e 64 63 6f 75 6e  74 25 2d 31 29 2a 34 29  |windcount%-1)*4)|
00000b70  3d 77 70 74 72 32 25 0d  00 6d 54 c8 99 20 22 57  |=wptr2%..mT.. "W|
00000b80  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
00000b90  22 2c 2c 77 70 74 72 31  25 2c 77 70 74 72 32 25  |",,wptr1%,wptr2%|
00000ba0  2c 77 69 6e 64 69 6e 64  25 2b 4d 41 58 57 49 4e  |,windind%+MAXWIN|
00000bb0  44 49 4e 44 25 2c 2d 31  2c 6e 61 6d 65 24 2c 30  |DIND%,-1,name$,0|
00000bc0  20 b8 20 2c 2c 77 70 74  72 32 25 0d 00 6e 3e 6e  | . ,,wptr2%..n>n|
00000bd0  25 3d 77 70 74 72 31 25  21 38 34 3a e3 49 25 3d  |%=wptr1%!84:.I%=|
00000be0  30 b8 28 6e 25 2d 31 29  2a 33 32 88 33 32 3a 64  |0.(n%-1)*32.32:d|
00000bf0  25 3d 77 70 74 72 31 25  2b 38 38 2b 49 25 3a 66  |%=wptr1%+88+I%:f|
00000c00  25 3d 28 64 25 21 31 36  29 0d 00 6f 2f 20 20 e7  |%=(d%!16)..o/  .|
00000c10  28 66 25 80 32 35 38 29  3d 32 35 38 20 80 20 28  |(f%.258)=258 . (|
00000c20  66 25 80 31 29 3d 30 20  64 25 21 32 34 3d 6d 79  |f%.1)=0 d%!24=my|
00000c30  73 70 72 69 74 65 73 25  0d 00 70 41 20 20 e7 20  |sprites%..pA  . |
00000c40  77 69 6d 70 76 65 72 25  3c 33 30 30 20 80 20 28  |wimpver%<300 . (|
00000c50  6e 61 6d 65 24 3d 22 73  65 74 75 70 22 84 6e 61  |name$="setup".na|
00000c60  6d 65 24 3d 22 73 65 74  32 22 84 6e 61 6d 65 24  |me$="set2".name$|
00000c70  3d 22 6d 73 67 22 29 20  8c 0d 00 71 5d 20 20 20  |="msg") ...q]   |
00000c80  20 e7 28 66 25 80 32 35  39 29 3d 32 35 37 20 80  | .(f%.259)=257 .|
00000c90  20 64 25 21 32 34 3c 3e  2d 31 20 8c 20 e7 a7 a4  | d%!24<>-1 . ...|
00000ca0  72 65 61 64 73 74 72 69  6e 67 28 64 25 21 32 34  |readstring(d%!24|
00000cb0  29 2c 22 62 32 22 29 3c  3e 30 20 66 25 3d 28 66  |),"b2")<>0 f%=(f|
00000cc0  25 80 26 30 46 46 30 30  46 46 46 29 84 26 43 30  |%.&0FF00FFF).&C0|
00000cd0  30 46 39 30 30 30 0d 00  72 2a 20 20 20 20 e7 28  |0F9000..r*    .(|
00000ce0  66 25 80 26 45 30 30 30  29 3d 26 45 30 30 30 20  |f%.&E000)=&E000 |
00000cf0  64 25 21 34 2b 3d 34 3a  64 25 21 31 32 2d 3d 34  |d%!4+=4:d%!12-=4|
00000d00  0d 00 73 15 20 20 20 20  e7 28 66 25 80 32 35 38  |..s.    .(f%.258|
00000d10  29 3d 32 20 8c 0d 00 74  1f 20 20 20 20 20 20 61  |)=2 ...t.      a|
00000d20  24 3d a4 72 65 61 64 73  74 72 69 6e 67 28 64 25  |$=.readstring(d%|
00000d30  2b 32 30 29 0d 00 75 2f  20 20 20 20 20 20 c8 99  |+20)..u/      ..|
00000d40  20 22 58 57 69 6d 70 5f  53 70 72 69 74 65 4f 70  | "XWimp_SpriteOp|
00000d50  22 2c 34 30 2c 2c 61 24  20 b8 20 2c 2c 2c 77 25  |",40,,a$ . ,,,w%|
00000d60  2c 68 25 0d 00 76 15 20  20 20 20 20 20 e7 28 77  |,h%..v.      .(w|
00000d70  25 84 68 25 29 3d 30 8c  0d 00 77 32 20 20 20 20  |%.h%)=0...w2    |
00000d80  20 20 20 20 66 25 3d 66  25 84 32 35 36 3a 24 77  |    f%=f%.256:$w|
00000d90  70 74 72 32 25 3d 61 24  3a 3f 28 77 70 74 72 32  |ptr2%=a$:?(wptr2|
00000da0  25 2b 28 a9 61 24 29 29  3d 30 0d 00 78 43 20 20  |%+(.a$))=0..xC  |
00000db0  20 20 20 20 20 20 64 25  21 32 30 3d 77 70 74 72  |      d%!20=wptr|
00000dc0  32 25 3a 64 25 21 32 34  3d 6d 79 73 70 72 69 74  |2%:d%!24=mysprit|
00000dd0  65 73 25 3a 64 25 21 32  38 3d a9 61 24 3a 77 70  |es%:d%!28=.a$:wp|
00000de0  74 72 32 25 2b 3d a9 28  61 24 29 2b 31 0d 00 79  |tr2%+=.(a$)+1..y|
00000df0  0b 20 20 20 20 20 20 cd  0d 00 7a 09 20 20 20 20  |.      ...z.    |
00000e00  cd 0d 00 7b 10 20 20 20  20 64 25 21 31 36 3d 66  |...{.    d%!16=f|
00000e10  25 0d 00 7c 07 20 20 cd  0d 00 7d 05 ed 0d 00 7e  |%..|.  ...}....~|
00000e20  2d 77 70 74 72 31 25 2b  3d 38 38 2b 28 28 77 70  |-wptr1%+=88+((wp|
00000e30  74 72 31 25 21 38 34 29  2a 33 32 29 3a 77 69 6e  |tr1%!84)*32):win|
00000e40  64 63 6f 75 6e 74 25 2b  3d 31 0d 00 7f 05 e1 0d  |dcount%+=1......|
00000e50  00 80 04 0d 00 81 0d dd  f2 62 61 72 69 63 6f 6e  |.........baricon|
00000e60  0d 00 82 15 24 69 62 6e  61 6d 65 25 3d 22 66 72  |....$ibname%="fr|
00000e70  61 6d 65 31 22 0d 00 83  34 21 62 6c 6b 25 3d 2d  |ame1"...4!blk%=-|
00000e80  31 3a 62 6c 6b 25 21 34  3d 30 3a 62 6c 6b 25 21  |1:blk%!4=0:blk%!|
00000e90  38 3d 30 3a 62 6c 6b 25  21 31 32 3d 36 32 3a 62  |8=0:blk%!12=62:b|
00000ea0  6c 6b 25 21 31 36 3d 37  32 0d 00 84 4a 62 6c 6b  |lk%!16=72...Jblk|
00000eb0  25 21 32 30 3d 26 31 30  30 30 33 31 33 41 3a 62  |%!20=&1000313A:b|
00000ec0  6c 6b 25 21 32 34 3d 69  62 6e 61 6d 65 25 3a 62  |lk%!24=ibname%:b|
00000ed0  6c 6b 25 21 32 38 3d 6d  79 73 70 72 69 74 65 73  |lk%!28=mysprites|
00000ee0  25 3a 62 6c 6b 25 21 33  32 3d a9 24 69 62 6e 61  |%:blk%!32=.$ibna|
00000ef0  6d 65 25 0d 00 85 25 c8  99 20 22 57 69 6d 70 5f  |me%...%.. "Wimp_|
00000f00  43 72 65 61 74 65 49 63  6f 6e 22 2c 2c 62 6c 6b  |CreateIcon",,blk|
00000f10  25 20 b8 20 69 62 68 25  0d 00 86 05 e1 0d 00 87  |% . ibh%........|
00000f20  04 0d 00 88 12 dd a4 66  69 6c 65 74 79 70 65 28  |.......filetype(|
00000f30  61 24 29 0d 00 89 1b c8  99 20 22 58 4f 53 5f 46  |a$)...... "XOS_F|
00000f40  69 6c 65 22 2c 35 2c 61  24 20 b8 20 61 25 0d 00  |ile",5,a$ . a%..|
00000f50  8a 07 3d 61 25 0d 00 8b  04 0d 00 8c 18 dd f2 65  |..=a%..........e|
00000f60  72 72 6f 72 28 6d 73 67  24 2c 65 72 72 6e 6f 25  |rror(msg$,errno%|
00000f70  29 0d 00 8d 07 d9 23 30  0d 00 8e 21 21 65 72 72  |).....#0...!!err|
00000f80  62 6c 6b 25 3d 39 39 3a  24 28 65 72 72 62 6c 6b  |blk%=99:$(errblk|
00000f90  25 2b 34 29 3d 6d 73 67  24 0d 00 8f 2c c8 99 20  |%+4)=msg$...,.. |
00000fa0  22 57 69 6d 70 5f 52 65  70 6f 72 74 45 72 72 6f  |"Wimp_ReportErro|
00000fb0  72 22 2c 65 72 72 62 6c  6b 25 2c 30 2c 22 41 7a  |r",errblk%,0,"Az|
00000fc0  74 65 63 73 22 0d 00 90  05 e1 0d 00 91 04 0d 00  |tecs"...........|
00000fd0  92 19 dd f2 73 65 6c 65  63 74 69 63 6e 28 77 25  |....selecticn(w%|
00000fe0  2c 69 25 2c 66 25 29 0d  00 93 46 21 62 6c 6b 25  |,i%,f%)...F!blk%|
00000ff0  3d 77 25 3a 62 6c 6b 25  21 34 3d 69 25 3a 62 6c  |=w%:blk%!4=i%:bl|
00001000  6b 25 21 31 32 3d 28 31  3c 3c 32 31 29 3a e7 66  |k%!12=(1<<21):.f|
00001010  25 3d 30 20 62 6c 6b 25  21 38 3d 30 3a 8b 20 62  |%=0 blk%!8=0:. b|
00001020  6c 6b 25 21 38 3d 62 6c  6b 25 21 31 32 0d 00 94  |lk%!8=blk%!12...|
00001030  20 c8 99 20 22 57 69 6d  70 5f 53 65 74 49 63 6f  | .. "Wimp_SetIco|
00001040  6e 53 74 61 74 65 22 2c  2c 62 6c 6b 25 0d 00 95  |nState",,blk%...|
00001050  05 e1 0d 00 96 04 0d 00  97 19 dd f2 67 65 74 69  |............geti|
00001060  63 6f 6e 73 74 61 74 65  28 77 25 2c 69 25 29 0d  |constate(w%,i%).|
00001070  00 98 33 21 62 6c 6b 25  3d 77 25 3a 62 6c 6b 25  |..3!blk%=w%:blk%|
00001080  21 34 3d 69 25 3a c8 99  20 22 57 69 6d 70 5f 47  |!4=i%:.. "Wimp_G|
00001090  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 6c  |etIconState",,bl|
000010a0  6b 25 0d 00 99 05 e1 0d  00 9a 04 0d 00 9b 17 dd  |k%..............|
000010b0  a4 69 73 73 65 6c 65 63  74 65 64 28 77 25 2c 69  |.isselected(w%,i|
000010c0  25 29 0d 00 9c 18 f2 67  65 74 69 63 6f 6e 73 74  |%).....geticonst|
000010d0  61 74 65 28 77 25 2c 69  25 29 0d 00 9d 20 3d 28  |ate(w%,i%)... =(|
000010e0  28 62 6c 6b 25 21 32 34  29 80 28 31 3c 3c 32 31  |(blk%!24).(1<<21|
000010f0  29 29 3d 28 31 3c 3c 32  31 29 0d 00 9e 04 0d 00  |))=(1<<21)......|
00001100  9f 18 dd a4 63 6f 6e 76  65 72 74 74 6f 6c 6f 77  |....converttolow|
00001110  65 72 28 61 24 29 0d 00  a0 15 ea 20 6c 25 2c 62  |er(a$)..... l%,b|
00001120  24 2c 63 68 25 3a 62 24  3d 22 22 0d 00 a1 0d e3  |$,ch%:b$="".....|
00001130  6c 25 3d 31 b8 a9 61 24  0d 00 a2 14 63 68 25 3d  |l%=1..a$....ch%=|
00001140  97 28 c1 61 24 2c 6c 25  2c 31 29 29 0d 00 a3 21  |.(.a$,l%,1))...!|
00001150  e7 28 63 68 25 3e 26 34  30 29 80 28 63 68 25 3c  |.(ch%>&40).(ch%<|
00001160  26 35 42 29 3a 63 68 25  2b 3d 26 32 30 0d 00 a4  |&5B):ch%+=&20...|
00001170  0c 62 24 2b 3d bd 63 68  25 0d 00 a5 05 ed 0d 00  |.b$+=.ch%.......|
00001180  a6 07 3d 62 24 0d 00 a7  04 0d 00 a8 32 dd a4 6c  |..=b$.......2..l|
00001190  65 61 66 28 66 24 29 20  49 25 3d a9 66 24 3a c8  |eaf(f$) I%=.f$:.|
000011a0  95 49 25 3e 31 80 c1 66  24 2c 49 25 2c 31 29 3c  |.I%>1..f$,I%,1)<|
000011b0  3e 22 2e 22 49 25 2d 3d  31 3a ce 0d 00 a9 17 e7  |>"."I%-=1:......|
000011c0  c1 66 24 2c 49 25 2c 31  29 3d 22 2e 22 49 25 2b  |.f$,I%,1)="."I%+|
000011d0  3d 31 0d 00 aa 0c 3d c1  66 24 2c 49 25 29 0d 00  |=1....=.f$,I%)..|
000011e0  ab 04 0d 00 ac 19 dd a4  67 65 74 69 63 6e 73 74  |........geticnst|
000011f0  72 69 6e 67 28 77 25 2c  69 25 29 0d 00 ad 33 21  |ring(w%,i%)...3!|
00001200  62 6c 6b 25 3d 77 25 3a  62 6c 6b 25 21 34 3d 69  |blk%=w%:blk%!4=i|
00001210  25 3a c8 99 20 22 57 69  6d 70 5f 47 65 74 49 63  |%:.. "Wimp_GetIc|
00001220  6f 6e 53 74 61 74 65 22  2c 2c 62 6c 6b 25 0d 00  |onState",,blk%..|
00001230  ae 19 3d a4 72 65 61 64  73 74 72 69 6e 67 28 62  |..=.readstring(b|
00001240  6c 6b 25 21 32 38 29 0d  00 af 04 0d 00 b0 1c dd  |lk%!28).........|
00001250  f2 70 75 74 69 63 6e 73  74 72 69 6e 67 28 77 25  |.puticnstring(w%|
00001260  2c 69 25 2c 61 24 29 0d  00 b1 33 21 62 6c 6b 25  |,i%,a$)...3!blk%|
00001270  3d 77 25 3a 62 6c 6b 25  21 34 3d 69 25 3a c8 99  |=w%:blk%!4=i%:..|
00001280  20 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  | "Wimp_GetIconSt|
00001290  61 74 65 22 2c 2c 62 6c  6b 25 0d 00 b2 24 24 28  |ate",,blk%...$$(|
000012a0  62 6c 6b 25 21 32 38 29  3d 61 24 3a 3f 28 28 62  |blk%!28)=a$:?((b|
000012b0  6c 6b 25 21 32 38 29 2b  a9 61 24 29 3d 30 0d 00  |lk%!28)+.a$)=0..|
000012c0  b3 33 62 6c 6b 25 21 38  3d 30 3a 62 6c 6b 25 21  |.3blk%!8=0:blk%!|
000012d0  31 32 3d 30 3a c8 99 20  22 57 69 6d 70 5f 53 65  |12=0:.. "Wimp_Se|
000012e0  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 6c 6b  |tIconState",,blk|
000012f0  25 0d 00 b4 05 e1 0d 00  b5 04 0d 00 b6 17 dd f2  |%...............|
00001300  63 6c 69 63 6b 28 62 75  74 25 2c 77 25 2c 69 25  |click(but%,w%,i%|
00001310  29 0d 00 b7 0b c8 8e 20  77 25 20 ca 0d 00 b8 0b  |)...... w% .....|
00001320  20 20 c9 20 2d 32 3a 0d  00 b9 11 20 20 20 20 c8  |  . -2:....    .|
00001330  8e 20 62 75 74 25 20 ca  0d 00 ba 43 20 20 20 20  |. but% ....C    |
00001340  20 20 c9 20 32 3a 20 f2  6d 61 73 74 65 72 5f 6d  |  . 2: .master_m|
00001350  65 6e 75 28 22 41 7a 74  65 63 73 22 2c 22 49 6e  |enu("Aztecs","In|
00001360  66 6f 2c 4d 65 73 73 61  67 65 2c 51 75 69 74 2c  |fo,Message,Quit,|
00001370  22 2c 21 65 62 25 2c 32  35 36 29 0d 00 bb 19 20  |",!eb%,256).... |
00001380  20 20 20 20 20 c9 20 34  3a 20 f2 73 74 61 72 74  |     . 4: .start|
00001390  67 61 6d 65 0d 00 bc 09  20 20 20 20 cb 0d 00 bd  |game....    ....|
000013a0  05 cb 0d 00 be 05 e1 0d  00 bf 04 0d 00 c0 17 dd  |................|
000013b0  f2 73 75 62 6d 65 6e 75  28 6d 25 2c 69 25 2c 68  |.submenu(m%,i%,h|
000013c0  25 29 0d 00 c1 16 6d 25  2b 3d 32 38 2b 28 28 69  |%)....m%+=28+((i|
000013d0  25 2d 31 29 2a 32 34 29  0d 00 c2 0b 6d 25 21 34  |%-1)*24)....m%!4|
000013e0  3d 68 25 0d 00 c3 05 e1  0d 00 c4 04 0d 00 c5 22  |=h%............"|
000013f0  dd f2 6d 61 73 74 65 72  5f 6d 65 6e 75 28 74 69  |..master_menu(ti|
00001400  74 6c 65 24 2c 6d 24 2c  78 25 2c 79 25 29 0d 00  |tle$,m$,x%,y%)..|
00001410  c6 21 f2 63 72 65 61 74  65 5f 6d 65 6e 75 28 6d  |.!.create_menu(m|
00001420  65 6e 75 25 2c 74 69 74  6c 65 24 2c 6d 24 29 0d  |enu%,title$,m$).|
00001430  00 c7 34 f2 73 75 62 6d  65 6e 75 28 6d 65 6e 75  |..4.submenu(menu|
00001440  25 2c 31 2c 69 6e 66 6f  77 25 29 3a f2 73 75 62  |%,1,infow%):.sub|
00001450  6d 65 6e 75 28 6d 65 6e  75 25 2c 32 2c 6d 73 67  |menu(menu%,2,msg|
00001460  77 25 29 0d 00 c8 32 c8  99 20 22 57 69 6d 70 5f  |w%)...2.. "Wimp_|
00001470  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 6d 65 6e  |CreateMenu",,men|
00001480  75 25 2c 78 25 2d 6d 65  6e 75 25 21 31 36 20 2f  |u%,x%-menu%!16 /|
00001490  20 32 2c 79 25 0d 00 c9  10 63 75 72 72 6d 65 6e  | 2,y%....currmen|
000014a0  75 25 3d 2d 31 0d 00 ca  05 e1 0d 00 cb 04 0d 00  |u%=-1...........|
000014b0  cc 1f dd f2 63 72 65 61  74 65 5f 6d 65 6e 75 28  |....create_menu(|
000014c0  6d 25 2c 74 69 74 6c 65  24 2c 6d 24 29 0d 00 cd  |m%,title$,m$)...|
000014d0  0d ea 20 69 25 2c 6d 61  78 25 0d 00 ce 0e 24 6d  |.. i%,max%....$m|
000014e0  25 3d 74 69 74 6c 65 24  0d 00 cf 34 6d 25 3f 31  |%=title$...4m%?1|
000014f0  32 3d 37 3a 6d 25 3f 31  33 3d 32 3a 6d 25 3f 31  |2=7:m%?13=2:m%?1|
00001500  34 3d 37 3a 6d 25 3f 31  35 3d 30 3a 6d 25 21 32  |4=7:m%?15=0:m%!2|
00001510  30 3d 34 30 3a 6d 25 21  32 34 3d 30 0d 00 d0 1d  |0=40:m%!24=0....|
00001520  69 25 3d 6d 25 2b 32 38  3a 6d 61 78 25 3d a9 28  |i%=m%+28:max%=.(|
00001530  74 69 74 6c 65 24 29 2d  32 0d 00 d1 05 f5 0d 00  |title$)-2.......|
00001540  d2 11 20 20 61 25 3d a7  6d 24 2c 22 2c 22 29 0d  |..  a%=.m$,",").|
00001550  00 d3 18 20 20 69 24 3d  c0 6d 24 2c 61 25 2d 31  |...  i$=.m$,a%-1|
00001560  29 3a 21 69 25 3d 30 0d  00 d4 0f 20 20 f5 3a 6d  |):!i%=0....  .:m|
00001570  6f 72 65 25 3d a3 0d 00  d5 27 20 20 20 20 e7 c0  |ore%=....'    ..|
00001580  69 24 2c 31 29 3d 22 3e  22 20 21 69 25 3d 28 21  |i$,1)=">" !i%=(!|
00001590  69 25 29 84 38 3a 6d 6f  72 65 25 3d b9 0d 00 d6  |i%).8:more%=....|
000015a0  27 20 20 20 20 e7 c0 69  24 2c 31 29 3d 22 21 22  |'    ..i$,1)="!"|
000015b0  20 21 69 25 3d 28 21 69  25 29 84 31 3a 6d 6f 72  | !i%=(!i%).1:mor|
000015c0  65 25 3d b9 0d 00 d7 1f  20 20 20 20 e7 20 6d 6f  |e%=.....    . mo|
000015d0  72 65 25 20 69 24 3d c2  69 24 2c a9 28 69 24 29  |re% i$=.i$,.(i$)|
000015e0  2d 31 29 0d 00 d8 1b 20  20 fd 20 ac 20 6d 6f 72  |-1)....  . . mor|
000015f0  65 25 3a 24 28 69 25 2b  31 32 29 3d 69 24 0d 00  |e%:$(i%+12)=i$..|
00001600  d9 17 20 20 e7 20 61 25  3e 6d 61 78 25 20 6d 61  |..  . a%>max% ma|
00001610  78 25 3d 61 25 0d 00 da  1b 20 20 69 25 21 34 3d  |x%=a%....  i%!4=|
00001620  30 3a 69 25 21 38 3d 26  30 37 30 30 30 30 32 31  |0:i%!8=&07000021|
00001630  0d 00 db 14 20 20 6d 24  20 3d 20 c1 6d 24 2c 61  |....  m$ = .m$,a|
00001640  25 2b 31 29 0d 00 dc 13  20 20 c8 8e 20 24 28 69  |%+1)....  .. $(i|
00001650  25 2b 31 32 29 20 ca 0d  00 dd 07 20 20 cb 0d 00  |%+12) .....  ...|
00001660  de 12 20 20 69 25 20 3d  20 69 25 20 2b 20 32 34  |..  i% = i% + 24|
00001670  0d 00 df 0d fd 20 6d 24  20 3d 20 22 22 0d 00 e0  |..... m$ = ""...|
00001680  1a 69 25 21 2d 32 34 20  3d 20 28 69 25 21 2d 32  |.i%!-24 = (i%!-2|
00001690  34 29 84 20 26 38 30 0d  00 e1 13 6d 25 21 31 36  |4). &80....m%!16|
000016a0  20 3d 20 6d 61 78 25 2a  31 36 0d 00 e2 05 e1 0d  | = max%*16......|
000016b0  00 e3 04 0d 00 e4 10 dd  f2 6d 65 6e 75 73 65 6c  |.........menusel|
000016c0  65 63 74 0d 00 e5 23 c8  99 20 22 57 69 6d 70 5f  |ect...#.. "Wimp_|
000016d0  47 65 74 50 6f 69 6e 74  65 72 49 6e 66 6f 22 2c  |GetPointerInfo",|
000016e0  2c 62 6c 6b 32 25 0d 00  e6 18 63 75 72 72 6d 65  |,blk2%....currme|
000016f0  6e 75 62 75 74 25 3d 62  6c 6b 32 25 21 38 0d 00  |nubut%=blk2%!8..|
00001700  e7 12 c8 8e 20 63 75 72  72 6d 65 6e 75 25 20 ca  |.... currmenu% .|
00001710  0d 00 e8 0b 20 20 c9 20  2d 31 3a 0d 00 e9 11 20  |....  . -1:.... |
00001720  20 20 20 c8 8e 20 21 65  62 25 20 ca 0d 00 ea 1b  |   .. !eb% .....|
00001730  20 20 20 20 20 20 c9 20  30 3a 20 f2 63 68 65 63  |      . 0: .chec|
00001740  6b 61 64 6a 75 73 74 0d  00 eb 1b 20 20 20 20 20  |kadjust....     |
00001750  20 c9 20 31 3a 20 f2 63  68 65 63 6b 61 64 6a 75  | . 1: .checkadju|
00001760  73 74 0d 00 ec 16 20 20  20 20 20 20 c9 20 32 3a  |st....      . 2:|
00001770  20 71 75 69 74 25 3d b9  0d 00 ed 09 20 20 20 20  | quit%=.....    |
00001780  cb 0d 00 ee 05 cb 0d 00  ef 05 e1 0d 00 f0 04 0d  |................|
00001790  00 f1 11 dd f2 63 68 65  63 6b 61 64 6a 75 73 74  |.....checkadjust|
000017a0  0d 00 f2 37 e7 63 75 72  72 6d 65 6e 75 62 75 74  |...7.currmenubut|
000017b0  25 3d 31 3a c8 99 20 22  57 69 6d 70 5f 43 72 65  |%=1:.. "Wimp_Cre|
000017c0  61 74 65 4d 65 6e 75 22  2c 2c 6d 65 6e 75 25 2c  |ateMenu",,menu%,|
000017d0  31 30 30 2c 31 30 30 0d  00 f3 05 e1 0d 00 f4 04  |100,100.........|
000017e0  0d 00 f5 13 dd f2 68 69  64 65 5f 6c 6f 67 6f 73  |......hide_logos|
000017f0  61 76 65 0d 00 f6 33 f4  21 62 6c 6b 25 3d 33 37  |ave...3.!blk%=37|
00001800  30 3a 62 6c 6b 25 21 34  3d 2d 31 30 36 38 3a 62  |0:blk%!4=-1068:b|
00001810  6c 6b 25 21 38 3d 39 32  38 3a 62 6c 6b 25 21 31  |lk%!8=928:blk%!1|
00001820  32 3d 2d 33 34 34 0d 00  f7 25 21 62 6c 6b 25 3d  |2=-344...%!blk%=|
00001830  33 37 30 3a 62 6c 6b 25  21 38 3d 39 32 38 3a 62  |370:blk%!8=928:b|
00001840  6c 6b 25 21 31 32 3d 2d  33 34 34 0d 00 f8 2b e7  |lk%!12=-344...+.|
00001850  20 a4 69 73 63 67 61 6f  6e 6c 79 3a 62 6c 6b 25  | .iscgaonly:blk%|
00001860  21 34 3d 2d 39 39 36 3a  8b 3a 62 6c 6b 25 21 34  |!4=-996:.:blk%!4|
00001870  3d 2d 31 31 31 36 0d 00  f9 24 c8 99 20 22 57 69  |=-1116...$.. "Wi|
00001880  6d 70 5f 53 65 74 45 78  74 65 6e 74 22 2c 73 65  |mp_SetExtent",se|
00001890  74 75 70 77 25 2c 62 6c  6b 25 0d 00 fa 05 e1 0d  |tupw%,blk%......|
000018a0  00 fb 04 0d 00 fc 14 dd  a4 72 65 61 64 76 64 75  |.........readvdu|
000018b0  76 61 72 28 61 25 29 0d  00 fd 39 21 62 6c 6b 25  |var(a%)...9!blk%|
000018c0  3d 61 25 3a 62 6c 6b 25  21 34 3d 2d 31 3a c8 99  |=a%:blk%!4=-1:..|
000018d0  20 22 4f 53 5f 52 65 61  64 56 64 75 56 61 72 69  | "OS_ReadVduVari|
000018e0  61 62 6c 65 73 22 2c 62  6c 6b 25 2c 62 6c 6b 25  |ables",blk%,blk%|
000018f0  0d 00 fe 0a 3d 21 62 6c  6b 25 0d 00 ff 04 0d 01  |....=!blk%......|
00001900  00 19 dd a4 63 68 65 63  6b 66 6f 6e 74 28 61 24  |....checkfont(a$|
00001910  2c 41 25 2c 42 25 29 0d  01 01 07 ea 20 85 0d 01  |,A%,B%)..... ...|
00001920  02 0c ee 20 85 20 ea 3a  3d 30 0d 01 03 29 c8 99  |... . .:=0...)..|
00001930  20 22 46 6f 6e 74 5f 46  69 6e 64 46 6f 6e 74 22  | "Font_FindFont"|
00001940  2c 2c 61 24 2c 41 25 2c  42 25 2c 30 2c 30 20 b8  |,,a$,A%,B%,0,0 .|
00001950  20 68 25 0d 01 04 1d c8  99 20 22 46 6f 6e 74 5f  | h%...... "Font_|
00001960  4c 6f 73 65 46 6f 6e 74  22 2c 68 25 3a f7 20 85  |LoseFont",h%:. .|
00001970  0d 01 05 06 3d b9 0d 01  06 04 0d 01 07 0f dd f2  |....=...........|
00001980  72 65 61 64 73 6f 75 6e  64 0d 01 08 39 c8 99 20  |readsound...9.. |
00001990  22 53 6f 75 6e 64 5f 52  65 61 64 43 6f 6e 74 72  |"Sound_ReadContr|
000019a0  6f 6c 42 6c 6f 63 6b 22  2c 31 2c 30 20 b8 20 2c  |olBlock",1,0 . ,|
000019b0  2c 61 25 3a 61 25 3d 28  61 25 3e 3e 38 29 80 32  |,a%:a%=(a%>>8).2|
000019c0  35 35 0d 01 09 29 c8 99  20 22 53 6f 75 6e 64 5f  |55...).. "Sound_|
000019d0  43 6f 6e 66 69 67 75 72  65 22 2c 30 2c 30 2c 30  |Configure",0,0,0|
000019e0  20 b8 20 41 25 2c 42 25  2c 43 25 0d 01 0a 34 ff  | . A%,B%,C%...4.|
000019f0  22 53 65 74 20 41 7a 74  65 63 24 63 68 61 6e 31  |"Set Aztec$chan1|
00001a00  20 22 2b c3 61 25 3a ff  22 53 65 74 20 41 7a 74  | "+.a%:."Set Azt|
00001a10  65 63 24 6e 63 68 61 6e  73 20 22 2b c3 41 25 0d  |ec$nchans "+.A%.|
00001a20  01 0b 35 ff 22 53 65 74  20 41 7a 74 65 63 24 73  |..5."Set Aztec$s|
00001a30  61 6d 70 73 7a 20 22 2b  c3 42 25 3a ff 22 53 65  |ampsz "+.B%:."Se|
00001a40  74 20 41 7a 74 65 63 24  70 65 72 69 6f 64 20 22  |t Aztec$period "|
00001a50  2b c3 43 25 0d 01 0c 32  c8 99 20 22 53 6f 75 6e  |+.C%...2.. "Soun|
00001a60  64 5f 56 6f 6c 75 6d 65  22 2c 30 20 b8 20 41 25  |d_Volume",0 . A%|
00001a70  3a ff 22 53 65 74 20 41  7a 74 65 63 24 76 6f 6c  |:."Set Aztec$vol|
00001a80  20 22 2b c3 41 25 0d 01  0d 05 e1 0d 01 0e 04 0d  | "+.A%..........|
00001a90  01 0f 10 dd f2 72 65 73  65 74 73 6f 75 6e 64 0d  |.....resetsound.|
00001aa0  01 10 31 ff 22 63 68 61  6e 6e 65 6c 76 6f 69 63  |..1."channelvoic|
00001ab0  65 20 31 20 22 2b a4 72  65 61 64 73 79 73 76 61  |e 1 "+.readsysva|
00001ac0  72 28 22 41 7a 74 65 63  24 63 68 61 6e 31 22 29  |r("Aztec$chan1")|
00001ad0  0d 01 11 43 41 25 3d bb  a4 72 65 61 64 73 79 73  |...CA%=..readsys|
00001ae0  76 61 72 28 22 41 7a 74  65 63 24 6e 63 68 61 6e  |var("Aztec$nchan|
00001af0  73 22 29 3a 42 25 3d bb  a4 72 65 61 64 73 79 73  |s"):B%=..readsys|
00001b00  76 61 72 28 22 41 7a 74  65 63 24 73 61 6d 70 73  |var("Aztec$samps|
00001b10  7a 22 29 0d 01 12 41 43  25 3d bb a4 72 65 61 64  |z")...AC%=..read|
00001b20  73 79 73 76 61 72 28 22  41 7a 74 65 63 24 70 65  |sysvar("Aztec$pe|
00001b30  72 69 6f 64 22 29 3a c8  99 20 22 53 6f 75 6e 64  |riod"):.. "Sound|
00001b40  5f 43 6f 6e 66 69 67 75  72 65 22 2c 41 25 2c 42  |_Configure",A%,B|
00001b50  25 2c 43 25 0d 01 13 2f  c8 99 20 22 53 6f 75 6e  |%,C%.../.. "Soun|
00001b60  64 5f 56 6f 6c 75 6d 65  22 2c bb a4 72 65 61 64  |d_Volume",..read|
00001b70  73 79 73 76 61 72 28 22  41 7a 74 65 63 24 76 6f  |sysvar("Aztec$vo|
00001b80  6c 22 29 0d 01 14 05 e1  0d 01 15 04 0d 01 16 0f  |l").............|
00001b90  dd f2 73 74 61 72 74 67  61 6d 65 0d 01 17 38 c8  |..startgame...8.|
00001ba0  99 20 22 46 6f 6e 74 5f  52 65 61 64 46 6f 6e 74  |. "Font_ReadFont|
00001bb0  4d 61 78 22 20 b8 20 66  6d 25 2c 66 6d 31 25 2c  |Max" . fm%,fm1%,|
00001bc0  66 6d 32 25 2c 66 6d 33  25 2c 66 6d 34 25 2c 66  |fm2%,fm3%,fm4%,f|
00001bd0  6d 35 25 0d 01 18 43 e7  66 6d 32 25 3c 35 37 36  |m5%...C.fm2%<576|
00001be0  30 30 20 c8 99 20 22 46  6f 6e 74 5f 53 65 74 46  |00 .. "Font_SetF|
00001bf0  6f 6e 74 4d 61 78 22 2c  66 6d 25 2c 66 6d 31 25  |ontMax",fm%,fm1%|
00001c00  2c 35 37 36 30 30 2c 35  37 36 30 30 2c 66 6d 34  |,57600,57600,fm4|
00001c10  25 2c 66 6d 35 25 0d 01  19 32 c8 99 20 22 4f 53  |%,fm5%...2.. "OS|
00001c20  5f 42 79 74 65 22 2c 31  33 35 20 b8 20 2c 2c 61  |_Byte",135 . ,,a|
00001c30  25 3a ff 22 53 65 74 20  41 7a 74 65 63 24 4d 6f  |%:."Set Aztec$Mo|
00001c40  64 65 20 22 2b c3 61 25  0d 01 1a 23 2a 53 65 74  |de "+.a%...#*Set|
00001c50  20 41 7a 74 65 63 24 63  68 61 69 6e 64 69 72 20  | Aztec$chaindir |
00001c60  3c 41 7a 74 65 63 24 44  69 72 3e 0d 01 1b 0a 48  |<Aztec$Dir>....H|
00001c70  25 3d 6d 63 25 0d 01 1c  59 e7 a4 63 68 65 63 6b  |%=mc%...Y..check|
00001c80  66 6f 6e 74 28 22 54 61  62 6c 6f 69 64 2e 6d 65  |font("Tabloid.me|
00001c90  64 69 75 6d 22 2c 33 32  30 2c 33 36 30 29 3d a3  |dium",320,360)=.|
00001ca0  20 f2 65 72 72 6f 72 28  22 46 6f 6e 74 3a 27 54  | .error("Font:'T|
00001cb0  61 62 6c 6f 69 64 2e 4d  65 64 69 75 6d 27 20 6e  |abloid.Medium' n|
00001cc0  6f 74 20 66 6f 75 6e 64  22 2c 30 29 3a e1 0d 01  |ot found",0):...|
00001cd0  1d 12 e7 20 a4 69 73 63  67 61 6f 6e 6c 79 20 8c  |... .iscgaonly .|
00001ce0  0d 01 1e 6b c8 99 20 22  57 69 6d 70 5f 53 65 74  |...k.. "Wimp_Set|
00001cf0  4d 6f 64 65 22 2c 31 35  3a e7 28 a4 72 65 61 64  |Mode",15:.(.read|
00001d00  76 64 75 76 61 72 28 31  35 30 29 2f 31 30 32 34  |vduvar(150)/1024|
00001d10  29 3c 31 36 30 20 f2 65  72 72 6f 72 28 22 4e 6f  |)<160 .error("No|
00001d20  74 20 65 6e 6f 75 67 68  20 6d 65 6d 6f 72 79 20  |t enough memory |
00001d30  74 6f 20 63 68 61 6e 67  65 20 73 63 72 65 65 6e  |to change screen|
00001d40  20 6d 6f 64 65 22 2c 31  29 3a e1 0d 01 1f 05 cc  | mode",1):......|
00001d50  0d 01 20 6b c8 99 20 22  57 69 6d 70 5f 53 65 74  |.. k.. "Wimp_Set|
00001d60  4d 6f 64 65 22 2c 32 38  3a e7 28 a4 72 65 61 64  |Mode",28:.(.read|
00001d70  76 64 75 76 61 72 28 31  35 30 29 2f 31 30 32 34  |vduvar(150)/1024|
00001d80  29 3c 33 30 30 20 f2 65  72 72 6f 72 28 22 4e 6f  |)<300 .error("No|
00001d90  74 20 65 6e 6f 75 67 68  20 6d 65 6d 6f 72 79 20  |t enough memory |
00001da0  74 6f 20 63 68 61 6e 67  65 20 73 63 72 65 65 6e  |to change screen|
00001db0  20 6d 6f 64 65 22 2c 31  29 3a e1 0d 01 21 05 cd  | mode",1):...!..|
00001dc0  0d 01 22 22 c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |.."".. "Wimp_Clo|
00001dd0  73 65 44 6f 77 6e 22 2c  2c 26 34 42 35 33 34 31  |seDown",,&4B5341|
00001de0  35 34 0d 01 23 2b f2 72  65 61 64 73 6f 75 6e 64  |54..#+.readsound|
00001df0  3a c8 99 20 22 53 6f 75  6e 64 5f 43 6f 6e 66 69  |:.. "Sound_Confi|
00001e00  67 75 72 65 22 2c 32 2c  30 2c 31 30 30 0d 01 24  |gure",2,0,100..$|
00001e10  15 2a 43 68 61 6e 6e 65  6c 56 6f 69 63 65 20 31  |.*ChannelVoice 1|
00001e20  20 32 0d 01 25 15 2a 43  68 61 6e 6e 65 6c 56 6f  | 2..%.*ChannelVo|
00001e30  69 63 65 20 32 20 36 0d  01 26 1e c8 99 20 22 53  |ice 2 6..&... "S|
00001e40  6f 75 6e 64 5f 56 6f 6c  75 6d 65 22 2c 31 32 37  |ound_Volume",127|
00001e50  3a 4f 25 3d 31 0d 01 27  0f d3 3d 6f 6c 64 68 69  |:O%=1..'..=oldhi|
00001e60  6d 65 6d 25 0d 01 28 12  e7 20 a4 69 73 63 67 61  |mem%..(.. .iscga|
00001e70  6f 6e 6c 79 20 8c 0d 01  29 10 eb 31 32 3a 48 25  |only ...)..12:H%|
00001e80  21 26 46 30 3d 31 0d 01  2a 05 cc 0d 01 2b 10 eb  |!&F0=1..*....+..|
00001e90  32 37 3a 48 25 21 26 46  30 3d 32 0d 01 2c 05 cd  |27:H%!&F0=2..,..|
00001ea0  0d 01 2d 3c f2 70 61 6c  65 74 74 65 3a ef 32 36  |..-<.palette:.26|
00001eb0  3a ef 31 38 2c 30 2c 31  33 31 3a e3 6b 25 3d 32  |:.18,0,131:.k%=2|
00001ec0  b8 31 88 2d 31 3a c8 99  22 4f 53 5f 42 79 74 65  |.1.-1:.."OS_Byte|
00001ed0  22 2c 31 31 32 2c 6b 25  3a da 3a ed 0d 01 2e 63  |",112,k%:.:....c|
00001ee0  ee 85 20 c8 99 22 4f 53  5f 42 79 74 65 22 2c 32  |.. .."OS_Byte",2|
00001ef0  35 30 2c 30 2c 32 35 35  20 b8 20 2c 73 63 72 25  |50,0,255 . ,scr%|
00001f00  3a c8 99 22 4f 53 5f 42  79 74 65 22 2c 31 31 33  |:.."OS_Byte",113|
00001f10  2c 73 63 72 25 3a f1 20  f6 24 2b 22 20 28 49 6e  |,scr%:. .$+" (In|
00001f20  74 65 72 6e 61 6c 20 65  72 72 6f 72 20 63 6f 64  |ternal error cod|
00001f30  65 20 22 2b c3 9e 2b 22  29 22 2b bd 30 3a e0 0d  |e "+..+")"+.0:..|
00001f40  01 2f 0e f2 63 68 65 63  6b 61 72 6d 33 0d 01 30  |./..checkarm3..0|
00001f50  19 c8 99 20 22 4f 53 5f  52 65 6d 6f 76 65 43 75  |... "OS_RemoveCu|
00001f60  72 73 6f 72 73 22 0d 01  31 1a de 20 69 6e 70 75  |rsors"..1.. inpu|
00001f70  74 5f 64 69 73 6b 5f 6e  61 6d 65 25 20 32 35 36  |t_disk_name% 256|
00001f80  0d 01 32 20 f2 70 75 6c  6c 5f 76 61 72 69 61 62  |..2 .pull_variab|
00001f90  6c 65 73 3a f2 69 6e 69  74 69 61 6c 6c 69 73 65  |les:.initiallise|
00001fa0  0d 01 33 0e f4 50 52 4f  43 74 69 74 6c 65 0d 01  |..3..PROCtitle..|
00001fb0  34 43 e3 6a 25 3d 33 32  b8 31 32 36 3a f2 77 6f  |4C.j%=32.126:.wo|
00001fc0  72 64 73 28 39 32 30 2c  2d 32 30 30 2c 2d 31 2c  |rds(920,-200,-1,|
00001fd0  bd 28 6a 25 29 29 3a f2  77 6f 72 64 73 28 39 32  |.(j%)):.words(92|
00001fe0  30 2c 2d 32 30 30 2c 30  2c bd 28 6a 25 29 29 3a  |0,-200,0,.(j%)):|
00001ff0  ed 0d 01 35 0e f4 50 52  4f 43 67 6f 5f 6f 6e 0d  |...5..PROCgo_on.|
00002000  01 36 09 f2 6c 69 6e 6b  0d 01 37 05 e0 0d 01 38  |.6..link..7....8|
00002010  04 0d 01 39 0f dd f2 63  68 65 63 6b 61 72 6d 33  |...9...checkarm3|
00002020  0d 01 3a 0c 48 25 21 26  44 43 3d 30 0d 01 3b 09  |..:.H%!&DC=0..;.|
00002030  74 31 25 3d 91 0d 01 3c  11 e3 6b 25 3d 30 b8 32  |t1%=...<..k%=0.2|
00002040  30 30 30 30 3a ed 0d 01  3d 09 74 32 25 3d 91 0d  |0000:...=.t2%=..|
00002050  01 3e 1a e7 28 74 32 25  2d 74 31 25 29 3c 31 35  |.>..(t2%-t1%)<15|
00002060  3a 48 25 21 26 44 43 3d  31 0d 01 3f 05 e1 0d 01  |:H%!&DC=1..?....|
00002070  40 04 0d 01 41 14 dd f2  70 75 6c 6c 5f 76 61 72  |@...A...pull_var|
00002080  69 61 62 6c 65 73 0d 01  42 14 66 6f 6e 74 73 25  |iables..B.fonts%|
00002090  3d 21 28 48 25 2b 26 30  30 29 0d 01 43 16 6c 65  |=!(H%+&00)..C.le|
000020a0  74 74 65 72 73 25 3d 21  28 48 25 2b 26 30 34 29  |tters%=!(H%+&04)|
000020b0  0d 01 44 18 73 70 5f 6f  6e 5f 76 67 61 25 3d 21  |..D.sp_on_vga%=!|
000020c0  28 48 25 2b 26 30 38 29  0d 01 45 15 70 75 74 5f  |(H%+&08)..E.put_|
000020d0  73 70 25 3d 21 28 48 25  2b 26 30 43 29 0d 01 46  |sp%=!(H%+&0C)..F|
000020e0  16 73 70 5f 6e 61 6d 65  25 3d 21 28 48 25 2b 26  |.sp_name%=!(H%+&|
000020f0  31 30 29 0d 01 47 15 64  72 61 77 69 74 25 3d 21  |10)..G.drawit%=!|
00002100  28 48 25 2b 26 31 34 29  0d 01 48 16 63 6f 70 79  |(H%+&14)..H.copy|
00002110  73 63 72 25 3d 21 28 48  25 2b 26 31 38 29 0d 01  |scr%=!(H%+&18)..|
00002120  49 17 63 72 75 6e 63 68  73 70 25 3d 21 28 48 25  |I.crunchsp%=!(H%|
00002130  2b 26 31 43 29 0d 01 4a  17 65 78 70 61 6e 64 73  |+&1C)..J.expands|
00002140  70 25 3d 21 28 48 25 2b  26 32 30 29 0d 01 4b 16  |p%=!(H%+&20)..K.|
00002150  63 73 70 6e 61 6d 65 25  3d 21 28 48 25 2b 26 32  |cspname%=!(H%+&2|
00002160  34 29 0d 01 4c 16 6e 73  70 6e 61 6d 65 25 3d 21  |4)..L.nspname%=!|
00002170  28 48 25 2b 26 32 38 29  0d 01 4d 18 62 6c 6f 77  |(H%+&28)..M.blow|
00002180  75 70 73 63 72 25 3d 21  28 48 25 2b 26 32 43 29  |upscr%=!(H%+&2C)|
00002190  0d 01 4e 18 73 70 5f 6f  6e 5f 63 67 61 25 3d 21  |..N.sp_on_cga%=!|
000021a0  28 48 25 2b 26 33 30 29  0d 01 4f 17 73 63 72 6f  |(H%+&30)..O.scro|
000021b0  6c 6c 64 6e 25 3d 21 28  48 25 2b 26 33 34 29 0d  |lldn%=!(H%+&34).|
000021c0  01 50 17 73 63 72 6f 6c  6c 75 70 25 3d 21 28 48  |.P.scrollup%=!(H|
000021d0  25 2b 26 33 38 29 0d 01  51 16 63 6f 70 69 72 6f  |%+&38)..Q.copiro|
000021e0  77 25 3d 21 28 48 25 2b  26 33 43 29 0d 01 52 04  |w%=!(H%+&3C)..R.|
000021f0  0d 01 53 1b 41 52 45 41  25 3d 48 25 2b 34 2a 31  |..S.AREA%=H%+4*1|
00002200  30 32 34 3a f4 20 34 4b  20 6d 63 0d 01 54 05 e1  |024:. 4K mc..T..|
00002210  0d 01 55 04 0d 01 56 11  dd f2 69 6e 69 74 69 61  |..U...V...initia|
00002220  6c 6c 69 73 65 0d 01 57  1a de 20 69 6e 70 75 74  |llise..W.. input|
00002230  5f 64 69 73 6b 5f 6e 61  6d 65 25 20 32 35 36 0d  |_disk_name% 256.|
00002240  01 58 16 f4 44 49 4d 20  73 6f 75 6e 64 76 6f 6c  |.X..DIM soundvol|
00002250  25 28 31 35 29 0d 01 59  0f f4 52 45 53 54 4f 52  |%(15)..Y..RESTOR|
00002260  45 20 2b 30 0d 01 5a 43  f4 44 41 54 41 20 31 2c  |E +0..ZC.DATA 1,|
00002270  36 33 2c 37 39 2c 38 38  2c 39 35 2c 31 30 30 2c  |63,79,88,95,100,|
00002280  31 30 34 2c 31 30 38 2c  31 31 31 2c 31 31 34 2c  |104,108,111,114,|
00002290  31 31 37 2c 31 32 30 2c  31 32 32 2c 31 32 34 2c  |117,120,122,124,|
000022a0  31 32 36 2c 31 32 37 0d  01 5b 27 f4 46 4f 52 69  |126,127..['.FORi|
000022b0  25 3d 30 54 4f 31 35 3a  52 45 41 44 73 6f 75 6e  |%=0TO15:READsoun|
000022c0  64 76 6f 6c 25 28 69 25  29 3a 4e 45 58 54 0d 01  |dvol%(i%):NEXT..|
000022d0  5c 24 21 41 52 45 41 25  3d 28 32 31 36 2a 31 30  |\$!AREA%=(216*10|
000022e0  32 34 29 2b 35 31 32 3a  41 52 45 41 25 21 38 3d  |24)+512:AREA%!8=|
000022f0  31 36 0d 01 5d 2b f4 50  52 4f 43 70 61 6c 65 74  |16..]+.PROCpalet|
00002300  74 65 3a 21 41 52 45 41  25 3d 32 32 30 2a 31 30  |te:!AREA%=220*10|
00002310  32 34 3a 41 52 45 41 25  21 38 3d 31 36 0d 01 5e  |24:AREA%!8=16..^|
00002320  49 de 20 53 43 41 4c 45  25 20 31 36 3a 53 43 41  |I. SCALE% 16:SCA|
00002330  4c 45 25 21 30 3d 31 36  3a 53 43 41 4c 45 25 21  |LE%!0=16:SCALE%!|
00002340  34 3d 31 36 2a 28 48 25  21 26 46 30 29 3a 53 43  |4=16*(H%!&F0):SC|
00002350  41 4c 45 25 21 38 3d 31  36 3a 53 43 41 4c 45 25  |ALE%!8=16:SCALE%|
00002360  21 31 32 3d 31 36 0d 01  5f 1f c8 99 20 22 4f 53  |!12=16.._... "OS|
00002370  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 30 39 2c  |_SpriteOp",&109,|
00002380  41 52 45 41 25 0d 01 60  29 c8 99 20 22 4f 53 5f  |AREA%..`).. "OS_|
00002390  42 79 74 65 22 2c 31 31  33 2c 31 3a c8 99 20 22  |Byte",113,1:.. "|
000023a0  4f 53 5f 42 79 74 65 22  2c 31 31 32 2c 32 0d 01  |OS_Byte",112,2..|
000023b0  61 22 21 62 6c 6b 25 3d  31 34 39 3a 62 6c 6b 25  |a"!blk%=149:blk%|
000023c0  21 34 3d 31 34 38 3a 62  6c 6b 25 21 38 3d 2d 31  |!4=148:blk%!8=-1|
000023d0  0d 01 62 26 c8 99 20 22  4f 53 5f 52 65 61 64 56  |..b&.. "OS_ReadV|
000023e0  64 75 56 61 72 69 61 62  6c 65 73 22 2c 62 6c 6b  |duVariables",blk|
000023f0  25 2c 62 6c 6b 25 0d 01  63 24 21 28 48 25 2b 26  |%,blk%..c$!(H%+&|
00002400  43 30 29 3d 21 62 6c 6b  25 3a 21 28 48 25 2b 26  |C0)=!blk%:!(H%+&|
00002410  43 34 29 3d 62 6c 6b 25  21 34 0d 01 64 42 e7 21  |C4)=blk%!4..dB.!|
00002420  28 48 25 2b 26 46 30 29  3d 31 3a 48 25 21 26 43  |(H%+&F0)=1:H%!&C|
00002430  30 3d 28 48 25 21 26 43  30 29 2b 28 31 36 2a 33  |0=(H%!&C0)+(16*3|
00002440  32 30 29 3a 48 25 21 26  43 34 3d 28 48 25 21 26  |20):H%!&C4=(H%!&|
00002450  43 34 29 2b 28 31 36 2a  33 32 30 29 0d 01 65 16  |C4)+(16*320)..e.|
00002460  c8 99 20 22 4f 53 5f 42  79 74 65 22 2c 31 31 32  |.. "OS_Byte",112|
00002470  2c 31 0d 01 66 37 21 28  48 25 2b 26 43 38 29 3d  |,1..f7!(H%+&C8)=|
00002480  41 52 45 41 25 20 3a 20  f4 20 73 74 6f 72 65 20  |AREA% : . store |
00002490  73 74 61 72 74 20 6f 66  20 55 73 65 72 20 73 70  |start of User sp|
000024a0  72 69 74 65 20 61 72 65  61 0d 01 67 0c 61 61 3d  |rite area..g.aa=|
000024b0  b3 28 2d 91 29 0d 01 68  2b 6c 65 66 74 25 3d 31  |.(-.)..h+left%=1|
000024c0  32 3a 6c 6f 77 25 3d 32  35 36 3a 72 69 67 68 74  |2:low%=256:right|
000024d0  25 3d 31 32 36 37 3a 68  69 67 68 25 3d 39 34 37  |%=1267:high%=947|
000024e0  0d 01 69 05 e1 0d 01 6a  04 0d 01 6b 0d dd f2 70  |..i....j...k...p|
000024f0  61 6c 65 74 74 65 0d 01  6c 08 f7 20 2b 30 0d 01  |alette..l.. +0..|
00002500  6d 9e dc 20 32 35 35 2c  32 35 35 2c 32 35 35 2c  |m.. 255,255,255,|
00002510  31 37 30 2c 31 37 30 2c  31 37 30 2c 31 30 32 2c  |170,170,170,102,|
00002520  31 30 32 2c 31 30 32 2c  30 2c 30 2c 30 2c 30 2c  |102,102,0,0,0,0,|
00002530  30 2c 31 35 33 2c 30 2c  35 31 2c 32 35 35 2c 30  |0,153,0,51,255,0|
00002540  2c 32 30 34 2c 32 35 35  2c 32 35 35 2c 31 33 36  |,204,255,255,136|
00002550  2c 30 2c 32 32 31 2c 30  2c 30 2c 32 35 35 2c 32  |,0,221,0,0,255,2|
00002560  35 35 2c 30 2c 31 33 36  2c 31 37 2c 30 2c 32 35  |55,0,136,17,0,25|
00002570  35 2c 32 30 34 2c 31 35  33 2c 30 2c 31 31 39 2c  |5,204,153,0,119,|
00002580  33 34 2c 30 2c 31 38 37  2c 30 2c 30 2c 32 35 35  |34,0,187,0,0,255|
00002590  2c 33 34 2c 31 38 37 2c  38 35 2c 30 0d 01 6e 32  |,34,187,85,0..n2|
000025a0  e3 20 69 25 3d 30 20 b8  20 31 35 3a f3 20 72 25  |. i%=0 . 15:. r%|
000025b0  2c 20 67 25 2c 20 62 25  3a ef 20 31 39 2c 69 25  |, g%, b%:. 19,i%|
000025c0  2c 31 36 2c 72 25 2c 67  25 2c 62 25 3a ed 0d 01  |,16,r%,g%,b%:...|
000025d0  6f 05 e1 0d 01 70 04 0d  01 71 0a dd f2 6c 69 6e  |o....p...q...lin|
000025e0  6b 0d 01 72 5a e7 59 25  3d 30 20 74 65 73 74 25  |k..rZ.Y%=0 test%|
000025f0  3d 30 3a f5 3a f2 66 6c  6f 70 70 79 5f 64 69 73  |=0:.:.floppy_dis|
00002600  6b 28 22 41 5a 54 45 43  20 44 45 4d 4f 22 2c 22  |k("AZTEC DEMO","|
00002610  24 2e 21 41 5a 54 45 43  53 2e 4f 4e 45 2e 64 65  |$.!AZTECS.ONE.de|
00002620  6d 6f 31 22 2c 22 24 2e  21 41 7a 74 65 63 73 22  |mo1","$.!Aztecs"|
00002630  29 3a fd 65 72 72 6f 72  25 3d 30 0d 01 73 2d 66  |):.error%=0..s-f|
00002640  69 6c 65 24 3d 22 3c 41  7a 74 65 63 24 63 68 61  |ile$="<Aztec$cha|
00002650  69 6e 64 69 72 3e 2e 4f  4e 45 2e 64 65 6d 6f 31  |indir>.ONE.demo1|
00002660  22 3a 2a 46 58 32 32 39  0d 01 74 0d 2a 46 58 32  |":*FX229..t.*FX2|
00002670  32 30 2c 31 37 0d 01 75  1c 41 25 3d 6d 65 6d 74  |20,17..u.A%=memt|
00002680  6f 70 25 2b 34 3a d0 3d  41 25 3a d7 66 69 6c 65  |op%+4:.=A%:.file|
00002690  24 0d 01 76 05 fa 0d 01  77 04 0d 01 78 24 dd f2  |$..v....w...x$..|
000026a0  66 6c 6f 70 70 79 5f 64  69 73 6b 28 64 6e 61 6d  |floppy_disk(dnam|
000026b0  65 24 2c 70 61 74 68 24  2c 73 65 74 24 29 0d 01  |e$,path$,set$)..|
000026c0  79 3a c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |y:.. "OS_SpriteO|
000026d0  70 22 2c 26 31 31 30 2c  41 52 45 41 25 2c 22 6c  |p",&110,AREA%,"l|
000026e0  6f 61 64 73 63 22 2c 30  2c 34 30 30 2c 34 33 36  |oadsc",0,400,436|
000026f0  2c 38 38 30 2c 36 33 36  0d 01 7a 06 ea 85 0d 01  |,880,636..z.....|
00002700  7b 72 ee 85 ea 3a f7 20  85 3a c8 99 20 22 4f 53  |{r...:. .:.. "OS|
00002710  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 33 34 2c  |_SpriteOp",&134,|
00002720  41 52 45 41 25 2c 22 6c  6f 61 64 73 63 22 2c 34  |AREA%,"loadsc",4|
00002730  30 30 2c 34 33 36 2c 30  3a c8 99 20 22 4f 53 5f  |00,436,0:.. "OS_|
00002740  53 70 72 69 74 65 4f 70  22 2c 26 31 31 39 2c 41  |SpriteOp",&119,A|
00002750  52 45 41 25 2c 22 6c 6f  61 64 73 63 22 3a 65 72  |REA%,"loadsc":er|
00002760  72 6f 72 25 3d 31 3a 74  65 73 74 25 3d 31 3a e1  |ror%=1:test%=1:.|
00002770  0d 01 7c 8a f4 4f 4e 45  52 52 4f 52 4c 4f 43 41  |..|..ONERRORLOCA|
00002780  4c 20 53 59 53 22 4f 53  5f 42 79 74 65 22 2c 32  |L SYS"OS_Byte",2|
00002790  35 30 2c 30 2c 32 35 35  20 54 4f 20 2c 73 63 72  |50,0,255 TO ,scr|
000027a0  25 3a 53 59 53 22 4f 53  5f 42 79 74 65 22 2c 31  |%:SYS"OS_Byte",1|
000027b0  31 33 2c 73 63 72 25 3a  50 52 49 4e 54 20 52 45  |13,scr%:PRINT RE|
000027c0  50 4f 52 54 24 2b 22 20  28 49 6e 74 65 72 6e 61  |PORT$+" (Interna|
000027d0  6c 20 65 72 72 6f 72 20  63 6f 64 65 20 22 2b 53  |l error code "+S|
000027e0  54 52 24 45 52 4c 2b 22  29 22 2b 43 48 52 24 30  |TR$ERL+")"+CHR$0|
000027f0  3a 78 3d 47 45 54 3a 45  4e 44 0d 01 7d 05 f5 0d  |:x=GET:END..}...|
00002800  01 7e 0e 20 20 65 72 72  6f 72 25 3d 30 0d 01 7f  |.~.  error%=0...|
00002810  10 20 20 e7 74 65 73 74  25 3d 31 20 8c 0d 01 80  |.  .test%=1 ....|
00002820  21 20 20 20 20 f2 62 6f  72 64 65 72 73 28 34 30  |!    .borders(40|
00002830  30 2c 34 33 36 2c 38 38  30 2c 36 33 36 29 0d 01  |0,436,880,636)..|
00002840  81 13 20 20 20 20 f2 6d  6f 75 73 65 5f 66 75 6c  |..    .mouse_ful|
00002850  6c 0d 01 82 2d 20 20 20  20 f2 77 6f 72 64 73 28  |l...-    .words(|
00002860  34 33 30 2c 35 37 32 2c  2d 31 2c 22 50 6c 65 61  |430,572,-1,"Plea|
00002870  73 65 20 70 6c 61 63 65  20 74 68 65 22 29 0d 01  |se place the")..|
00002880  83 21 20 20 20 20 f2 77  6f 72 64 73 28 34 33 30  |.!    .words(430|
00002890  2c 35 31 38 2c 2d 31 2c  64 6e 61 6d 65 24 29 0d  |,518,-1,dname$).|
000028a0  01 84 19 20 20 20 20 6f  6b 78 25 3d 37 36 30 3a  |...    okx%=760:|
000028b0  6f 6b 79 25 3d 34 35 36  0d 01 85 49 20 20 20 20  |oky%=456...I    |
000028c0  e6 30 2c 33 3a ef 32 35  2c 34 2c 6f 6b 78 25 3b  |.0,3:.25,4,okx%;|
000028d0  6f 6b 79 25 3b 32 35 2c  31 2c 31 30 30 3b 30 3b  |oky%;25,1,100;0;|
000028e0  32 35 2c 31 2c 30 3b 35  36 3b 32 35 2c 31 2c 2d  |25,1,0;56;25,1,-|
000028f0  31 30 30 3b 30 3b 32 35  2c 31 2c 30 3b 2d 35 36  |100;0;25,1,0;-56|
00002900  3b 0d 01 86 2d 20 20 20  20 e6 30 2c 30 3a ef 32  |;...-    .0,0:.2|
00002910  35 2c 34 2c 6f 6b 78 25  2b 32 3b 6f 6b 79 25 2b  |5,4,okx%+2;oky%+|
00002920  34 3b 32 35 2c 39 37 2c  39 36 3b 34 38 3b 0d 01  |4;25,97,96;48;..|
00002930  87 32 20 20 20 20 f2 77  6f 72 64 73 28 34 33 30  |.2    .words(430|
00002940  2c 34 36 34 2c 2d 31 2c  22 64 69 73 6b 20 69 6e  |,464,-1,"disk in|
00002950  20 64 72 69 76 65 20 30  20 20 20 20 4f 4b 22 29  | drive 0    OK")|
00002960  0d 01 88 0b 20 20 20 20  c8 97 ee 0d 01 89 51 20  |....    ......Q |
00002970  20 20 20 f5 3a c8 97 6d  78 25 2c 6d 79 25 2c 6d  |   .:..mx%,my%,m|
00002980  63 25 3a fd 6d 63 25 3d  34 20 80 20 6d 78 25 3e  |c%:.mc%=4 . mx%>|
00002990  6f 6b 78 25 20 80 20 6d  78 25 3c 6f 6b 78 25 2b  |okx% . mx%<okx%+|
000029a0  31 30 30 20 80 20 6d 79  25 3e 6f 6b 79 25 20 80  |100 . my%>oky% .|
000029b0  20 6d 79 25 3c 6f 6b 79  25 2b 35 38 0d 01 8a 07  | my%<oky%+58....|
000029c0  20 20 cd 0d 01 8b 0b 20  20 2a 41 44 46 53 0d 01  |  .....  *ADFS..|
000029d0  8c 0e 20 20 2a 4d 4f 55  4e 54 20 30 0d 01 8d 25  |..  *MOUNT 0...%|
000029e0  20 20 c8 99 22 4f 53 5f  47 42 50 42 22 2c 35 2c  |  .."OS_GBPB",5,|
000029f0  2c 69 6e 70 75 74 5f 64  69 73 6b 5f 6e 61 6d 65  |,input_disk_name|
00002a00  25 0d 01 8e 29 20 20 6c  65 6e 5f 64 5f 6e 25 3d  |%...)  len_d_n%=|
00002a10  3f 69 6e 70 75 74 5f 64  69 73 6b 5f 6e 61 6d 65  |?input_disk_name|
00002a20  25 3a 6e 61 6d 65 24 3d  22 22 0d 01 8f 15 20 20  |%:name$=""....  |
00002a30  e3 64 6e 25 3d 31 b8 6c  65 6e 5f 64 5f 6e 25 0d  |.dn%=1.len_d_n%.|
00002a40  01 90 48 20 20 e7 3f 28  69 6e 70 75 74 5f 64 69  |..H  .?(input_di|
00002a50  73 6b 5f 6e 61 6d 65 25  2b 64 6e 25 29 3e 33 31  |sk_name%+dn%)>31|
00002a60  3a 6e 61 6d 65 24 3d 6e  61 6d 65 24 2b bd 28 3f  |:name$=name$+.(?|
00002a70  28 69 6e 70 75 74 5f 64  69 73 6b 5f 6e 61 6d 65  |(input_disk_name|
00002a80  25 2b 64 6e 25 29 29 0d  01 91 07 20 20 ed 0d 01  |%+dn%))....  ...|
00002a90  92 22 20 20 6e 61 6d 65  24 3d a4 63 6f 6e 76 65  |."  name$=.conve|
00002aa0  72 74 74 6f 6c 6f 77 65  72 28 6e 61 6d 65 24 29  |rttolower(name$)|
00002ab0  0d 01 93 34 20 20 c8 99  20 22 4f 53 5f 53 70 72  |...4  .. "OS_Spr|
00002ac0  69 74 65 4f 70 22 2c 26  31 32 32 2c 41 52 45 41  |iteOp",&122,AREA|
00002ad0  25 2c 22 6c 6f 61 64 73  63 22 2c 34 30 30 2c 34  |%,"loadsc",400,4|
00002ae0  33 36 2c 30 0d 01 94 20  20 20 e7 6e 61 6d 65 24  |36,0...   .name$|
00002af0  3c 3e 22 61 77 66 65 62  39 34 22 3a 65 72 72 6f  |<>"awfeb94":erro|
00002b00  72 25 3d 31 0d 01 95 0d  20 20 74 65 73 74 25 3d  |r%=1....  test%=|
00002b10  31 0d 01 96 21 20 20 ff  22 53 45 54 20 41 7a 74  |1...!  ."SET Azt|
00002b20  65 63 24 63 68 61 69 6e  64 69 72 20 22 2b 73 65  |ec$chaindir "+se|
00002b30  74 24 0d 01 97 22 20 20  c8 99 20 22 58 4f 53 5f  |t$..."  .. "XOS_|
00002b40  46 69 6e 64 22 2c 26 34  30 2c 70 61 74 68 24 20  |Find",&40,path$ |
00002b50  b8 20 68 25 0d 01 98 17  fd 68 25 80 28 65 72 72  |. h%.....h%.(err|
00002b60  6f 72 25 3d 30 29 3a d9  23 68 25 0d 01 99 32 c8  |or%=0):.#h%...2.|
00002b70  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
00002b80  26 31 32 32 2c 41 52 45  41 25 2c 22 6c 6f 61 64  |&122,AREA%,"load|
00002b90  73 63 22 2c 34 30 30 2c  34 33 36 2c 30 0d 01 9a  |sc",400,436,0...|
00002ba0  28 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |(.. "OS_SpriteOp|
00002bb0  22 2c 26 31 31 39 2c 41  52 45 41 25 2c 22 6c 6f  |",&119,AREA%,"lo|
00002bc0  61 64 73 63 22 0d 01 9b  07 f7 20 85 0d 01 9c 05  |adsc"..... .....|
00002bd0  e1 0d 01 9d 04 0d 01 9e  1e dd f2 77 6f 72 64 73  |...........words|
00002be0  28 41 25 2c 42 25 2c 62  69 67 25 2c 77 6f 72 64  |(A%,B%,big%,word|
00002bf0  73 24 29 0d 01 9f 2c 45  25 3d 33 3a e7 62 69 67  |s$)...,E%=3:.big|
00002c00  25 3a 43 25 3d 33 32 30  3a 44 25 3d 33 36 30 3a  |%:C%=320:D%=360:|
00002c10  8b 3a 43 25 3d 32 34 30  3a 44 25 3d 32 37 30 0d  |.:C%=240:D%=270.|
00002c20  01 a0 42 e3 6c 65 74 74  25 3d 31 b8 a9 28 77 6f  |..B.lett%=1..(wo|
00002c30  72 64 73 24 29 3a 3f 28  6c 65 74 74 65 72 73 25  |rds$):?(letters%|
00002c40  2b 28 6c 65 74 74 25 2d  31 29 29 3d 97 28 c1 77  |+(lett%-1))=.(.w|
00002c50  6f 72 64 73 24 2c 6c 65  74 74 25 2c 31 29 29 3a  |ords$,lett%,1)):|
00002c60  ed 0d 01 a1 1d 3f 28 6c  65 74 74 65 72 73 25 2b  |.....?(letters%+|
00002c70  a9 28 77 6f 72 64 73 24  29 29 3d 26 30 44 0d 01  |.(words$))=&0D..|
00002c80  a2 0c d6 20 66 6f 6e 74  73 25 0d 01 a3 05 e1 0d  |... fonts%......|
00002c90  01 a4 04 0d ff                                    |.....|
00002c95

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .