Home » Archimedes archive » Archimedes World » archimedes_world_volume_15_issue_1_scp.adf » !Tiler_Tiler » !Tiler/Tiler
!Tiler/Tiler
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 » archimedes_world_volume_15_issue_1_scp.adf » !Tiler_Tiler |
| Filename: | !Tiler/Tiler |
| Read OK: | ✔ |
| File size: | 3318 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > !Tiler.Tiler
20REM Version 1.0 By Mike Cook - Musbury Consultants
30ON ERROR PROCerrorbox
40DIM taskid% 4:$taskid%="TASK": DIM intmess% 20
50intmess%!0=1:intmess%!4=2:intmess%!8=3:intmess%!12=&502:intmess%!16=0
60SYS "Wimp_Initialise",300,!taskid%,"Tiler",intmess% TO version%,taskhand%
70
80DIM q% &300,csw256% &300,temp% 300,buffers% 512,menu% 228
90DIM menu256% 220,svw% &300,TextWarn% 255
100DIM ww% 300, WN% 255, SF% 16
110DIM daname% 80,PTT% 2048
120DIM CN% 30
130DIM UP% 256*4,SVW% 256
140SYS "Wimp_OpenTemplate",,"<Tiler$Dir>.Templates"
150ON ERROR SYS "Wimp_CloseTemplate":PROCerrorbox
160SYS "Wimp_LoadTemplate",,q%,temp%,temp%+256,-1,"Info",0
170SYS "Wimp_CreateWindow",,q% TO info%
180
190SYS "Wimp_LoadTemplate",,csw256%+4,temp%,temp%+256,-1,"SP256",0
200csw256%!28=-1:csw256%!76=WN%
210SYS "Wimp_CreateWindow",,csw256%+4 TO Win256%
220csw256%!0=Win256%
230
240SYS "Wimp_LoadTemplate",,svw%+4,SVW%,SVW%+256,-1,"save_script",0
250svw%!28=-1
260SYS "Wimp_CreateWindow",,svw%+4 TO SVWIN%
270svw%!0=SVWIN%
280
290SYS "Wimp_LoadTemplate",,q%,ww%,ww%+256,-1,"Warning",0
300q%!108=TextWarn%:q%!112=-1:q%!116=300
310XQ%=q%!8-q%!0:YQ%=q%!12-q%!4
320SYS "Wimp_CreateWindow",,q% TO warningW%
330
340SYS "Wimp_CloseTemplate"
350ON ERROR PROCerrorbox
360
370Alloc%=0
380SPX%=290: SPY%=320 : OffSet%=4060
390$WN%="Blank Sprite"
400
410PROCsetupmenu
420TilerIcon%=FNicon
430
440ScP%=0 : Sal%=0 : REM Scrap memory pointer and Scrap allocation
450PROC_PutName("Sprite")
460
470ON ERROR PROCerrorbox2
480
490RiscPC=INKEY(-256)
500IF RiscPC<165 THEN RiscPC=FALSE ELSE RiscPC=TRUE
510IF NOT(RiscPC) THEN SYS"OS_ReadDynamicArea",0 TO HeapP%
520
530REPEAT
540 SYS "Wimp_Poll",%1,q% TO A%
550 CASE A% OF
560 WHEN 1:PROC_DoWindow(q%)
570 WHEN 2:PROC_OpenWindow(q%)
580 WHEN 3:PROC_CloseWindow(q%)
590 WHEN 6:PROC_do_click(q%)
600 WHEN 7:PROC_PutDown(q%)
610 WHEN 8:PROC_KeyPress
620 WHEN 9:PROC_DoMenu(q%)
630 WHEN 17,18:PROCreceive(q%)
640 ENDCASE
650UNTIL FALSE
660
670DEF PROC_CloseWindow(q%)
680IF q%!0=Win256% AND Alloc%<>0 THEN
690IF RiscPC THEN
700SYS"OS_DynamicArea",1,Alloc%
710ELSE
720SYS"OS_Heap",3,HeapP%,Alloc%
730ENDIF
740Alloc%=0
750SYS"Wimp_GetWindowInfo",,csw256%
760ENDIF
770
780SYS"Wimp_CloseWindow",,q%
790ENDPROC
800
810DEF PROC_do_click(q%)
820
830i%=q%!16
840IF q%!12=SVWIN% THEN HALFS%=FALSE : PROC_DoSave:ENDPROC
850
860 IF q%!12=-2 AND q%!16=TilerIcon% THEN
870 IF q%!8=2 THEN SYS"Wimp_CreateMenu",,menu%,q%!0-56,200
880 MEN%=1
890ENDIF
900
910IF q%!12=warningW% AND i%=3 THEN
920 q%!0=warningW%
930 PROC_CloseWindow(q%)
940 PROC_resmouse
950 ENDIF
960IF q%!12=warningW% AND i%=2 THEN PROCdie
970
980IF q%!12=Win256% AND q%!8=2 THEN
990SYS"Wimp_CreateMenu",,menu256%,q%!0-96,q%!4
1000MEN%=2
1010ENDIF
1020
1030ENDPROC
1040
1050DEF PROC_DoMenu(q%)
1060CASE MEN% OF
1070WHEN 1:
1080CASE !q% OF
1090 WHEN 1:PROCdie
1100 ENDCASE
1110
1120WHEN 2:
1130CASE !q% OF
1140 WHEN 1:SYS "OS_SpriteOp",12+256,SP%,"<Wimp$Scrap>"
1150 OSCLI("BackDrop -tile <Wimp$Scrap>")
1160 WHEN 2: PROC_EightHi(1)
1170 WHEN 3:PROC_EightHi(2)
1180 WHEN 4:PROC_EightHi(3)
1190 WHEN 5:PROC_EightHi(4)
1200
1210 WHEN 6:PROC_LoadS
1220 PROC_FourFold
1230 SYS"Wimp_ForceRedraw",Win256%,0,-SPY%*2,SPX%*2,0
1240 ENDCASE
1250ENDCASE
1260
1270ENDPROC
1280
1290DEF PROC_SetUpWindow(w%)
1300SYS("Wimp_OpenWindow"),,w%
1310ENDPROC
1320
1330DEF PROC_OpenWindow(q%)
1340IF q%!0=Win256% THEN PROC_SetCols
1350 SYS("Wimp_OpenWindow"),,q%
1360ENDPROC
1370
1380DEF PROC_DoWindow(q%)
1390LOCAL flag%,wh%
1400wh%=!q%
1410SYS("Wimp_RedrawWindow"),,q% TO flag%
1420
1430PROC_ftj(flag%)
1440ENDPROC
1450
1460DEF PROC_ftj(flag%)
1470WHILE flag%
1480PROC_redraw(q%)
1490SYS "Wimp_GetRectangle",,q% TO flag%
1500ENDWHILE
1510ENDPROC
1520
1530DEF PROC_redraw(w%)
1540LOCAL x%,y%,A%
1550
1560
1570IF w%!0=Win256% THEN
1580SYS "Wimp_GetWindowState",,w%
1590 x%=w%!4-w%!20 : y%=w%!16-w%!24-SPY%*2
1600 SYS "OS_SpriteOp",52+256,SP%,"Tiler_Image",x%,y%,&10,0,PTT%
1610 SYS "OS_SpriteOp",52+256,SP%,"Tiler_Image",x%,y%+SPY%,&10,0,PTT%
1620 SYS "OS_SpriteOp",52+256,SP%,"Tiler_Image",x%+SPX%,y%+SPY%,&10,0,PTT%
1630 SYS "OS_SpriteOp",52+256,SP%,"Tiler_Image",x%+SPX%,y%,&10,0,PTT%
1640ENDIF
1650ENDPROC
1660
1670DEFFNicon
1680q%!0=-1
1690q%!4=0
1700q%!8=0 : REM Y DIRECTION
1710q%!12=64 : REM X DIRECTION
1720q%!16=96
1730q%!20=&2002
1740$(q%+24)="!Tiler"
1750SYS "Wimp_CreateIcon",,q% TO icon%
1760=icon%
1770
1780DEFPROCsetupmenu
1790LOCAL m%
1800
1810$menu256%="BackDrop"
1820menu256%?12=7
1830menu256%?13=2
1840menu256%?14=7
1850menu256%?15=0
1860menu256%!16=184
1870menu256%!20=40
1880menu256%!24=0
1890m%=menu256%+28
1900m%!0=2
1910m%!4=SVWIN%
1920m%!8=(7<<24)OR %10001
1930$(m%+12)="Save"
1940
1950m%+=24
1960m%!0=0
1970m%!4=0
1980m%!8=(7<<24)OR %10001
1990$(m%+12)="Try Backdrop"
2000
2010m%+=24
2020m%!0=0
2030m%!4=0
2040m%!8=(7<<24)OR %10001
2050$(m%+12)="8 Fold PU"
2060
2070m%+=24
2080m%!0=0
2090m%!4=0
2100m%!8=(7<<24)OR %10001
2110$(m%+12)="8 Fold NU"
2120
2130m%+=24
2140m%!0=0
2150m%!4=0
2160m%!8=(7<<24)OR %10001
2170$(m%+12)="8 Fold NL"
2180
2190m%+=24
2200m%!0=0
2210m%!4=0
2220m%!8=(7<<24)OR %10001
2230$(m%+12)="8 Fold PL"
2240
2250m%+=24
2260m%!0=&80
2270m%!4=0
2280m%!8=(7<<24)OR %10001
2290$(m%+12)="4 Fold"
2300
2310$menu%="Tiler"
2320menu%?12=7
2330menu%?13=2
2340menu%?14=7
2350menu%?15=0
2360menu%!16=184
2370menu%!20=40
2380menu%!24=0
2390m%=menu%+28
2400m%!0=2
2410m%!4=info%
2420m%!8=(7<<24)OR %10001
2430$(m%+12)="Info"
2440
2450m%+=24
2460m%!0=&80
2470m%!4=0
2480m%!8=(7<<24)OR %10001
2490$(m%+12)="Quit"
2500ENDPROC
2510
2520DEF PROCreceive(q%)
2530LOCAL A%
2540CASE q%!16 OF
2550WHEN 0:PROCdie
2560WHEN 1: q%!16=2:q%!36=-1:PROC_sput(q%+44,"<Wimp$Scrap>")
2570 messh%=q%!4:q%!0=60
2580 saveref%=q%!8
2590 SYS "Wimp_SendMessage",17,q%,messh%
2600
2610WHEN 2: IF q%!12=saveref% THEN
2620 secureF%=q%!36
2630 fn$=FNsget(q%+44):PROC_Save
2640 q%!12=saveref%:q%!16=3:q%!0=256:q%!40=&FF9
2650 q%!20=messh%:q%!24=messi%:q%!28=messx%:q%!32=messy%
2660 SYS "Wimp_SendMessage",17,q%,messh%,messi%
2670 ENDIF
2680
2690WHEN 3:n$=FNsget(q%+44)
2700 sendth%=q%!4:icontype%=q%!40
2710 myref%=q%!8
2720 IF q%!20=-2 AND q%!24=TilerIcon% THEN
2730 PROC_ImageLoad(n$)
2740 PROC_Dack
2750 ENDIF
2760 IF q%!20=Win256% THEN PROC_ImageLoad(n$):PROC_Dack
2770
2780WHEN &502:CASE TRUE OF
2790 WHEN q%!32=-2 AND q%!36=TilerIcon%:mes$="This is the Tiler icon.|MDrag a file here to view it as an image."
2800 OTHERWISE:mes$=""
2810 ENDCASE
2820 IF mes$<>"" THEN
2830 q%!12=q%!8
2840 $(q%+20)=mes$+CHR$0
2850 q%!0=(20+LENmes$+4)AND NOT 3
2860 q%!16=&503
2870 SYS "Wimp_SendMessage",18,q%,q%!4
2880ENDCASE
2890ENDPROC
2900
2910DEF PROC_Dack
2920q%!12=myref%
2930q%!16=4:q%!0=256
2940SYS "Wimp_SendMessage",17,q%,sendth%
2950IF n$="<Wimp$Scrap>" THEN OSCLI("DELETE "+n$)
2960ENDPROC
2970
2980DEFPROCdie
2990IF RiscPC THEN
3000IF Alloc%<>0 THEN SYS"OS_DynamicArea",1,Alloc%
3010ELSE
3020IF Alloc%<>0 THEN SYS"OS_Heap",3,HeapP%,Alloc%
3030ENDIF
3040SYS "Wimp_CloseDown",taskhand%,!taskid%
3050PROC_resmouse
3060END
3070ENDPROC
3080
3090DEF PROC_resmouse
3100LOCAL xw%,yw%,xs%,ys%
3110SYS"OS_ReadModeVariable",-1,11 TO ,,xw%
3120SYS"OS_ReadModeVariable",-1,12 TO ,,yw%
3130SYS"OS_ReadModeVariable",-1,4 TO ,,xs%
3140SYS"OS_ReadModeVariable",-1,5 TO ,,ys%
3150xw%=xw%<<xs%
3160yw%=yw%<<ys%
3170MOUSERECTANGLE 0,0,xw%,yw%
3180ENDPROC
3190
3200DEFFNsget(x%)
3210LOCAL x$
3220WHILE ?x%>&1F x$+=CHR$(?x%):x%+=1:ENDWHILE
3230=x$
3240
3250DEFFNpg(n%)
3260LOCAL A$
3270A$=FNsget(SPoint%(n%))
3280=VAL(A$)
3290
3300REM READS THE IMAGE DATA DIRECTLY into sprite
3310DEF PROC_ImageLoad(D$)
3320LOCAL A%,S$
3330TarS$=D$
3340SYS"Hourglass_Start",100
3350
3360IF Alloc%<>0 THEN
3370 IF RiscPC THEN
3380 SYS"OS_DynamicArea",1,Alloc%
3390 ELSE
3400 SYS"OS_Heap",3,HeapP%,Alloc%
3410 ENDIF
3420Alloc%=0
3430SYS"Wimp_GetWindowInfo",,csw256%
3440SYS"Wimp_CloseWindow",,csw256%
3450ENDIF
3460REM SPX% = xsize of sprite
3470SYS"OS_File",5,D$ TO ,,,,asz%
3480$daname%="Tiler Sprite"+CHR$(0)
3490asz%=asz%*5+1000
3500REM Ask for the memory
3510IF RiscPC THEN
3520SYS"OS_DynamicArea",0,-1,asz%,-1,&80,asz%,0,0,daname% TO ,Alloc%,,SP%,,aasz%
3530ELSE
3540SYS"XOS_Heap",2,HeapP%,,asz% TO ,,Alloc%
3550SP%=Alloc%
3560aasz%=asz%
3570ENDIF
3580IF ((aasz%<asz%) AND RiscPC) OR (NOT(RiscPC) AND Alloc%=0) THEN
3590 IF RiscPC THEN
3600 PROC_setupW("Need "+STR$(asz%)+" bytes only got "+STR$(aasz%))
3610 SYS"OS_DynamicArea",1,Alloc%
3620 Alloc%=0
3630 ELSE
3640 PROC_setupW("Need "+STR$(asz%)+" bytes free in System Heap")
3650 ENDIF
3660ELSE
3670Sname$="Blank"
3680SP%!0=asz%
3690SP%!8=16
3700SYS"OS_SpriteOp",9+512,SP%
3710
3720REM Now Read in the Sprite
3730PROC_LoadS
3740PROC_FourFold
3750
3760SYS"OS_SpriteOp",40+256,SP%,"Tiler_Image" TO ,,,SPX%,SPY%
3770PROC_SetCols
3780
3790
3800
3810REM Create a window name from file name
3820S$="":A%=0
3830REPEAT
3840S$=RIGHT$(D$,1)+S$
3850A%+=1
3860D$=LEFT$(D$,LEN(D$)-1)
3870UNTIL RIGHT$(D$,1)="." OR A%=10
3880PROC_PutName(S$)
3890$WN%=S$
3900
3910SPX%=SPX%*2:SPY%=SPY%*2
3920csw256%!12=csw256%!4+SPX%*2
3930csw256%!16=csw256%!8+SPY%*2
3940temp%!0=0:temp%!4=-SPY%*2:temp%!8=SPX%*2:temp%!12=0
3950
3960
3970SYS"Wimp_OpenWindow",,csw256%
3980SYS"Wimp_SetExtent",Win256%,temp%
3990
4000ENDIF
4010SYS"Hourglass_Off"
4020
4030ENDPROC
4040
4050DEF PROC_LoadS
4060SYS"OS_SpriteOp",10+256,SP%,TarS$
4070cb%=SP%+(SP%!8)
4080SYS"OS_SpriteOp",26+512,SP%,cb%,"Tiler_Image"
4090ENDPROC
4100
4110DEF PROC_EightHi(N%)
4120LOCAL X%,Y%,A%,B%,C%,T%
4130PROC_LoadS
4140SYS"Hourglass_Start",100
4150SYS"OS_SpriteOp",40+256,SP%,"Tiler_Image" TO ,,,X%,Y%
4160IF X%>Y% THEN X%=Y% ELSE Y%=X%
4170CASE N% OF
4180WHEN 1:
4190 FOR A%=0 TO X%-1
4200 FOR B%=0 TO Y%-1
4210 SYS"OS_SpriteOp",41+256,SP%,"Tiler_Image",A%,B% TO ,,,,,C%,T%
4220 SYS"OS_SpriteOp",42+256,SP%,"Tiler_Image",B%,A%,C%,T%
4230 NEXT:NEXT
4240
4250WHEN 2:
4260 FOR A%=0 TO X%-1
4270 FOR B%=0 TO Y%-1
4280 SYS"OS_SpriteOp",41+256,SP%,"Tiler_Image",X%-A%-1,B% TO ,,,,,C%,T%
4290 SYS"OS_SpriteOp",42+256,SP%,"Tiler_Image",B%,A%,C%,T%
4300 NEXT:NEXT
4310
4320WHEN 3:
4330 FOR A%=X%-1 TO 0 STEP -1
4340 FOR B%=Y%-1 TO 0 STEP -1
4350 SYS"OS_SpriteOp",41+256,SP%,"Tiler_Image",X%-A%-1,B% TO ,,,,,C%,T%
4360 SYS"OS_SpriteOp",42+256,SP%,"Tiler_Image",B%,A%,C%,T%
4370 NEXT:NEXT
4380WHEN 4:
4390 FOR A%=X%-1 TO 0 STEP -1
4410 FOR B%=Y%-1 TO 0 STEP -1
4420 SYS"OS_SpriteOp",41+256,SP%,"Tiler_Image",A%,B% TO ,,,,,C%,T%
4430 SYS"OS_SpriteOp",42+256,SP%,"Tiler_Image",B%,A%,C%,T%
4440 NEXT:NEXT
4450
4460
4470ENDCASE
4480SYS"Hourglass_Off"
4490PROC_FourFold
4500SYS"Wimp_ForceRedraw",Win256%,0,-SPY%*2,SPX%*2,0
4510ENDPROC
4520
4530DEF PROC_FourFold
4540REM Process the sprite
4550SYS"OS_SpriteOp",27+256,SP%,"Tiler_Image","s1" :REM Copy sprite
4560SYS"OS_SpriteOp",27+256,SP%,"Tiler_Image","s2"
4570SYS"OS_SpriteOp",27+256,SP%,"Tiler_Image","s3"
4580SYS"OS_SpriteOp",33+256,SP%,"s1" : REM Flip X
4590SYS"OS_SpriteOp",35+256,SP%,"Tiler_Image","s1",1 :REM Merge together
4600
4610SYS"OS_SpriteOp",33+256,SP%,"s3" : REM Flip X
4620SYS"OS_SpriteOp",47+256,SP%,"s2" : REM Flip Y
4630SYS"OS_SpriteOp",47+256,SP%,"s3" : REM Flip Y
4640SYS"OS_SpriteOp",35+256,SP%,"s2","s3",1 :REM Merge together
4650SYS"OS_SpriteOp",35+256,SP%,"Tiler_Image","s2",0 :REM Merge together
4660ENDPROC
4670
4680DEF PROCerrorbox2
4690SYS"OS_SpriteOp",60+256,SP%,0,0
4700IF ERR=&108D5 OR ERR=&108D4 THEN GOTO 530
4710E$=REPORT$+" at "+STR$ERL+CHR$0
4720PROC_setupW(E$)
4730GOTO 530
4740ENDPROC
4750
4760DEF PROCerrorbox
4770ON ERROR OFF
4780SYS "Wimp_DragBox",,-1
4790!buffers%=ERR:$(buffers%+4)=REPORT$+" line "+STR$ERL+CHR$0
4800SYS "Wimp_ReportError",buffers%,1,"Tiler Read"
4810
4820PROCdie
4830ENDPROC
4840
4850DEF PROC_KeyPress
4860i%=2
4870PROC_DoSave
4880ENDPROC
4890
4900DEF PROC_DoSave
4910IF i%=3 THEN
4920 SYS "Wimp_GetPointerInfo",,q%
4930 PROCdragicon(q%!0,q%!4,SVWIN%,i%)
4940 ENDIF
4950
4960IF i%=2 THEN
4970 PROC_GetName
4980 IF INSTR(fn$,":") THEN PROC_Save ELSE PROC_setupW("Drag the Icon into a Directory")
4990 SYS "Wimp_CreateMenu",,-1
5000ENDIF
5010ENDPROC
5020
5030DEF PROC_Save
5040LOCAL ch%,sx%,sy%,sm%
5050IF LEN(fn$)=0 THEN PROC_setupW("You need to put in a file name"):ENDPROC
5060IF RIGHT$(fn$,1)="." THEN PROC_setupW("You need to put in a file name"):ENDPROC
5070REM Save it
5080SYS "OS_SpriteOp",12+256,SP%,fn$
5090PROC_PutName(fn$)
5100ENDPROC
5110
5120DEF PROCdragicon(mousex%,mousey%,handle%,icon%)
5130LOCAL bx%,by%,ix0%,iy0%,ix1%,iy1%
5140PROCgetw(handle%)
5150PROCgeti(handle%,icon%)
5160!q%=handle%:q%!4=5
5170q%!8=bx%+ix0%:q%!12=by%+iy0%:q%!16=bx%+ix1%:q%!20=by%+iy1%
5180q%!24=q%!8-mousex%:q%!28=q%!12-mousey%
5190SYS "Wimp_DragBox",,q%
5200SFLAG%=TRUE
5210ENDPROC
5220
5230DEF PROCgetw(handle%)
5240!q%=handle%:SYS "Wimp_GetWindowState",,q%:PROCinfo(q%+4)
5250ENDPROC
5260DEF PROCgeti(h%,i%)
5270!q%=h%:q%!4=i%:SYS "Wimp_GetIconState",,q%
5280ix0%=q%!8:iy0%=q%!12:ix1%=q%!16:iy1%=q%!20
5290iflags%=q%!24:idata%=q%+28
5300ENDPROC
5310
5320DEF PROCinfo(p%)
5330LOCAL x0%,y0%
5340x0%=!p%:y0%=p%!4:x1%=p%!8:y1%=p%!12
5350scx%=p%!16:scy%=p%!20:bhandle%=p%!24:flags%=p%!28
5360bx%=x0%-scx%:by%=y1%-scy%
5370ENDPROC
5380
5390
5400DEF PROC_GetName
5410LOCAL T%,A%,F$
5420F$="":fn$=""
5430q%!0=SVWIN%:q%!4=1
5440SYS "Wimp_GetIconState",,q%
5450T%=q%!28
5460T%-=1
5470REPEAT
5480T%+=1
5490F$=F$+CHR$(?T%)
5500UNTIL ?T%=0
5510fn$=MID$(F$,1,LEN(F$)-1)
5520ENDPROC
5530
5540DEF PROC_PutDown(q%)
5550PROC_GetName
5560SYS "Wimp_GetPointerInfo",,q%
5570messh%=q%!12:messi%=q%!16:messx%=q%!0:messy%=q%!4
5580IF INSTR( fn$,":") THEN fn$=FN_spath(fn$)
5590$(q%+44)=fn$
5600?(q%+44+LEN(fn$))=0
5610q%!20=q%!12:q%!28=q%!0:q%!32=q%!4:q%!36=asz%:q%!40=&FF9
5620q%!0=56:q%!12=0:q%!16=1
5630SYS "Wimp_SendMessage",17,q%,messh%,messi%
5640saveref%=q%!8
5650SYS "Wimp_CreateMenu",,-1
5660ENDPROC
5670
5680DEF FN_spath(n$)
5690WHILE INSTR(n$,".")
5700n$=RIGHT$(n$,LEN(n$)-1)
5710ENDWHILE
5720IF LEN(n$)>10 THEN n$=RIGHT$(n$,10)
5730=n$
5740
5750DEF PROC_PutName(p$)
5760LOCAL T%
5770q%!0=SVWIN%:q%!4=1
5780SYS "Wimp_GetIconState",,q%
5790T%=q%!28
5800$T%=p$
5810!(T%+LEN(p$))=0
5820ENDPROC
5830
5840DEF PROC_setupW(t$)
5850!q%=warningW%:q%!4=200:q%!8=200:q%!12=200+XQ%:q%!16=200+YQ%:q%!20=0:q%!24=0:q%!28=-1
5860$TextWarn%=t$
5870TextWarn%?LEN(t$)=0
5880VDU 7
5890SYS "Wimp_OpenWindow",,q%
5900MOUSE RECTANGLE 200,200,XQ%,YQ%
5910ENDPROC
5920
5930DEF PROC_PutPal
5940FOR A%=0 TO 255
5950B%=(UP%?(A%*4+1))<<8 OR (UP%?(A%*4+2))<<16 OR (UP%?(A%*4+3))<<24
5960pal%!(A%*8)=B%
5970pal%!(A%*8+4)=B%
5980NEXT
5990ENDPROC
6000
6010DEF PROC_sput(x%,X$)
6020LOCAL A%
6030FOR A%=1 TO LEN(X$)
6040?x%=ASC(MID$(X$,A%,1))
6050x%+=1
6060NEXT
6070?x%=0
6080ENDPROC
6090
6100DEF PROC_SetCols
6110LOCAL grab%,A%
6120
6130SYS"OS_ReadModeVariable",-1,3 TO ,,Ncolours%
6140
6150SYS"ColourTrans_SelectTable",SP%,"Tiler_Image",-1,-1,PTT%,0
6160ENDPROC
� > !Tiler.Tiler
4� Version 1.0 By Mike Cook - Musbury Consultants
� � �errorbox
(.� taskid% 4:$taskid%="TASK": � intmess% 20
2Iintmess%!0=1:intmess%!4=2:intmess%!8=3:intmess%!12=&502:intmess%!16=0
<Kș "Wimp_Initialise",300,!taskid%,"Tiler",intmess% � version%,taskhand%
F
P;� q% &300,csw256% &300,temp% 300,buffers% 512,menu% 228
Z*� menu256% 220,svw% &300,TextWarn% 255
d � ww% 300, WN% 255, SF% 16
n� daname% 80,PTT% 2048
x � CN% 30
�� UP% 256*4,SVW% 256
�3ș "Wimp_OpenTemplate",,"<Tiler$Dir>.Templates"
�)� � ș "Wimp_CloseTemplate":�errorbox
�:ș "Wimp_LoadTemplate",,q%,temp%,temp%+256,-1,"Info",0
�&ș "Wimp_CreateWindow",,q% � info%
�
�Bș "Wimp_LoadTemplate",,csw256%+4,temp%,temp%+256,-1,"SP256",0
� csw256%!28=-1:csw256%!76=WN%
�/ș "Wimp_CreateWindow",,csw256%+4 � Win256%
�csw256%!0=Win256%
�
�Cș "Wimp_LoadTemplate",,svw%+4,SVW%,SVW%+256,-1,"save_script",0
�svw%!28=-1
+ș "Wimp_CreateWindow",,svw%+4 � SVWIN%
svw%!0=SVWIN%
"9ș "Wimp_LoadTemplate",,q%,ww%,ww%+256,-1,"Warning",0
,)q%!108=TextWarn%:q%!112=-1:q%!116=300
6 XQ%=q%!8-q%!0:YQ%=q%!12-q%!4
@*ș "Wimp_CreateWindow",,q% � warningW%
J
Tș "Wimp_CloseTemplate"
^� � �errorbox
h
r Alloc%=0
|%SPX%=290: SPY%=320 : OffSet%=4060
�$WN%="Blank Sprite"
�
��setupmenu
�TilerIcon%=�icon
�
�AScP%=0 : Sal%=0 : � Scrap memory pointer and Scrap allocation
��_PutName("Sprite")
�
�� � �errorbox2
�
�RiscPC=�(-256)
�&� RiscPC<165 � RiscPC=� � RiscPC=�
�3� �(RiscPC) � ș"OS_ReadDynamicArea",0 � HeapP%
�
ș "Wimp_Poll",%1,q% � A%
&
Ȏ A% �
0 � 1:�_DoWindow(q%)
: � 2:�_OpenWindow(q%)
D � 3:�_CloseWindow(q%)
N � 6:�_do_click(q%)
X � 7:�_PutDown(q%)
b � 8:�_KeyPress
l � 9:�_DoMenu(q%)
v � 17,18:�receive(q%)
� �
�� �
�
�� �_CloseWindow(q%)
� � q%!0=Win256% � Alloc%<>0 �
�� RiscPC �
� ș"OS_DynamicArea",1,Alloc%
��
� ș"OS_Heap",3,HeapP%,Alloc%
��
� Alloc%=0
�#ș"Wimp_GetWindowInfo",,csw256%
��
ș"Wimp_CloseWindow",,q%
�
*� �_do_click(q%)
4
> i%=q%!16
H*� q%!12=SVWIN% � HALFS%=� : �_DoSave:�
R
\$ � q%!12=-2 � q%!16=TilerIcon% �
f6 � q%!8=2 � ș"Wimp_CreateMenu",,menu%,q%!0-56,200
p MEN%=1
z�
�
� � q%!12=warningW% � i%=3 �
�) q%!0=warningW%
�, �_CloseWindow(q%)
�% �_resmouse
� �
�#� q%!12=warningW% � i%=2 � �die
�
� � q%!12=Win256% � q%!8=2 �
�.ș"Wimp_CreateMenu",,menu256%,q%!0-96,q%!4
�
MEN%=2
��
�
�
� �_DoMenu(q%)
$
Ȏ MEN% �
.� 1:
8 Ȏ !q% �
B � 1:�die
L �
V
`� 2:
j Ȏ !q% �
t4 � 1:ș "OS_SpriteOp",12+256,SP%,"<Wimp$Scrap>"
~- �("BackDrop -tile <Wimp$Scrap>")
� � 2: �_EightHi(1)
� � 3:�_EightHi(2)
� � 4:�_EightHi(3)
� � 5:�_EightHi(4)
�
� � 6:�_LoadS
� �_FourFold
�< ș"Wimp_ForceRedraw",Win256%,0,-SPY%*2,SPX%*2,0
� �
��
�
��
� �_SetUpWindow(w%)
ș("Wimp_OpenWindow"),,w%
�
(
2� �_OpenWindow(q%)
< � q%!0=Win256% � �_SetCols
F ș("Wimp_OpenWindow"),,q%
P�
Z
d� �_DoWindow(q%)
n� flag%,wh%
x wh%=!q%
�'ș("Wimp_RedrawWindow"),,q% � flag%
�
��_ftj(flag%)
��
�
�� �_ftj(flag%)
� ȕ flag%
��_redraw(q%)
�&ș "Wimp_GetRectangle",,q% � flag%
��
��
�
�� �_redraw(w%)
� x%,y%,A%
"� w%!0=Win256% �
, ș "Wimp_GetWindowState",,w%
6/ x%=w%!4-w%!20 : y%=w%!16-w%!24-SPY%*2
@? ș "OS_SpriteOp",52+256,SP%,"Tiler_Image",x%,y%,&10,0,PTT%
JD ș "OS_SpriteOp",52+256,SP%,"Tiler_Image",x%,y%+SPY%,&10,0,PTT%
TI ș "OS_SpriteOp",52+256,SP%,"Tiler_Image",x%+SPX%,y%+SPY%,&10,0,PTT%
^D ș "OS_SpriteOp",52+256,SP%,"Tiler_Image",x%+SPX%,y%,&10,0,PTT%
h�
r�
|
�
ݤicon
� q%!0=-1
�
q%!4=0
�q%!8=0 : � Y DIRECTION
� q%!12=64 : � X DIRECTION
� q%!16=96
�q%!20=&2002
�$(q%+24)="!Tiler"
�$ș "Wimp_CreateIcon",,q% � icon%
�
=icon%
�
���setupmenu
�� m%
$menu256%="BackDrop"
menu256%?12=7
&menu256%?13=2
0menu256%?14=7
:menu256%?15=0
Dmenu256%!16=184
Nmenu256%!20=40
Xmenu256%!24=0
bm%=menu256%+28
l
m%!0=2
vm%!4=SVWIN%
�m%!8=(7<<24)� %10001
�$(m%+12)="Save"
�
�
m%+=24
�
m%!0=0
�
m%!4=0
�m%!8=(7<<24)� %10001
�$(m%+12)="Try Backdrop"
�
�
m%+=24
�
m%!0=0
�
m%!4=0
�m%!8=(7<<24)� %10001
$(m%+12)="8 Fold PU"
m%+=24
m%!0=0
*
m%!4=0
4m%!8=(7<<24)� %10001
>$(m%+12)="8 Fold NU"
H
R
m%+=24
\
m%!0=0
f
m%!4=0
pm%!8=(7<<24)� %10001
z$(m%+12)="8 Fold NL"
�
�
m%+=24
�
m%!0=0
�
m%!4=0
�m%!8=(7<<24)� %10001
�$(m%+12)="8 Fold PL"
�
�
m%+=24
� m%!0=&80
�
m%!4=0
�m%!8=(7<<24)� %10001
�$(m%+12)="4 Fold"
�
$menu%="Tiler"
menu%?12=7
menu%?13=2
$menu%?14=7
.menu%?15=0
8menu%!16=184
Bmenu%!20=40
Lmenu%!24=0
Vm%=menu%+28
`
m%!0=2
jm%!4=info%
tm%!8=(7<<24)� %10001
~$(m%+12)="Info"
�
�
m%+=24
� m%!0=&80
�
m%!4=0
�m%!8=(7<<24)� %10001
�$(m%+12)="Quit"
��
�
�� �receive(q%)
�� A%
�Ȏ q%!16 �
� � 0:�die
6� 1: q%!16=2:q%!36=-1:�_sput(q%+44,"<Wimp$Scrap>")
messh%=q%!4:q%!0=60
saveref%=q%!8
. ș "Wimp_SendMessage",17,q%,messh%
(
2� 2: � q%!12=saveref% �
< secureF%=q%!36
F% fn$=�sget(q%+44):�_Save
P8 q%!12=saveref%:q%!16=3:q%!0=256:q%!40=&FF9
ZA q%!20=messh%:q%!24=messi%:q%!28=messx%:q%!32=messy%
d7 ș "Wimp_SendMessage",17,q%,messh%,messi%
n �
x
�� 3:n$=�sget(q%+44)
�' sendth%=q%!4:icontype%=q%!40
� myref%=q%!8
�* � q%!20=-2 � q%!24=TilerIcon% �
� �_ImageLoad(n$)
� �_Dack
� �
�3 � q%!20=Win256% � �_ImageLoad(n$):�_Dack
�
�� &502:Ȏ � �
�q � q%!32=-2 � q%!36=TilerIcon%:mes$="This is the Tiler icon.|MDrag a file here to view it as an image."
� :mes$=""
� �
� mes$<>"" �
q%!12=q%!8
$(q%+20)=mes$+�0
" q%!0=(20+�mes$+4)� � 3
, q%!16=&503
6( ș "Wimp_SendMessage",18,q%,q%!4
@�
J�
T
^ � �_Dack
hq%!12=myref%
rq%!16=4:q%!0=256
|'ș "Wimp_SendMessage",17,q%,sendth%
�)� n$="<Wimp$Scrap>" � �("DELETE "+n$)
��
�
� ��die
�� RiscPC �
�-� Alloc%<>0 � ș"OS_DynamicArea",1,Alloc%
��
�-� Alloc%<>0 � ș"OS_Heap",3,HeapP%,Alloc%
��
�*ș "Wimp_CloseDown",taskhand%,!taskid%
��_resmouse
��
��
� �_resmouse
� xw%,yw%,xs%,ys%
&)ș"OS_ReadModeVariable",-1,11 � ,,xw%
0)ș"OS_ReadModeVariable",-1,12 � ,,yw%
:(ș"OS_ReadModeVariable",-1,4 � ,,xs%
D(ș"OS_ReadModeVariable",-1,5 � ,,ys%
Nxw%=xw%<<xs%
Xyw%=yw%<<ys%
bȗȓ 0,0,xw%,yw%
l�
v
�ݤsget(x%)
�� x$
�!ȕ ?x%>&1F x$+=�(?x%):x%+=1:�
�=x$
�
� ݤpg(n%)
�� A$
�A$=�sget(SPoint%(n%))
�
=�(A$)
�
�/� READS THE IMAGE DATA DIRECTLY into sprite
�� �_ImageLoad(D$)
� � A%,S$
TarS$=D$
ș"Hourglass_Start",100
� Alloc%<>0 �
* � RiscPC �
4" ș"OS_DynamicArea",1,Alloc%
> �
H" ș"OS_Heap",3,HeapP%,Alloc%
R �
\ Alloc%=0
f#ș"Wimp_GetWindowInfo",,csw256%
p!ș"Wimp_CloseWindow",,csw256%
z�
� � SPX% = xsize of sprite
� ș"OS_File",5,D$ � ,,,,asz%
� $daname%="Tiler Sprite"+�(0)
�asz%=asz%*5+1000
�� Ask for the memory
�� RiscPC �
�Nș"OS_DynamicArea",0,-1,asz%,-1,&80,asz%,0,0,daname% � ,Alloc%,,SP%,,aasz%
��
�*ș"XOS_Heap",2,HeapP%,,asz% � ,,Alloc%
�SP%=Alloc%
�aasz%=asz%
��
�8� ((aasz%<asz%) � RiscPC) � (�(RiscPC) � Alloc%=0) �
� RiscPC �
< �_setupW("Need "+�(asz%)+" bytes only got "+�(aasz%))
" ș"OS_DynamicArea",1,Alloc%
$ Alloc%=0
. �
8= �_setupW("Need "+�(asz%)+" bytes free in System Heap")
B �
L�
VSname$="Blank"
`SP%!0=asz%
j SP%!8=16
t ș"OS_SpriteOp",9+512,SP%
~
� � Now Read in the Sprite
� �_LoadS
��_FourFold
�
�;ș"OS_SpriteOp",40+256,SP%,"Tiler_Image" � ,,,SPX%,SPY%
�
�_SetCols
�
�
�
�)� Create a window name from file name
�S$="":A%=0
��
S$=�D$,1)+S$
A%+=1
D$=�D$,�(D$)-1)
� �D$,1)="." � A%=10
(�_PutName(S$)
2 $WN%=S$
<
FSPX%=SPX%*2:SPY%=SPY%*2
P csw256%!12=csw256%!4+SPX%*2
Z csw256%!16=csw256%!8+SPY%*2
d7temp%!0=0:temp%!4=-SPY%*2:temp%!8=SPX%*2:temp%!12=0
n
x
� ș"Wimp_OpenWindow",,csw256%
�$ș"Wimp_SetExtent",Win256%,temp%
�
��
�ș"Hourglass_Off"
�
��
�
�
� �_LoadS
�$ș"OS_SpriteOp",10+256,SP%,TarS$
�cb%=SP%+(SP%!8)
�0ș"OS_SpriteOp",26+512,SP%,cb%,"Tiler_Image"
��
� �_EightHi(N%)
� X%,Y%,A%,B%,C%,T%
" �_LoadS
,ș"Hourglass_Start",100
67ș"OS_SpriteOp",40+256,SP%,"Tiler_Image" � ,,,X%,Y%
@� X%>Y% � X%=Y% � Y%=X%
J Ȏ N% �
T� 1:
^ � A%=0 � X%-1
h � B%=0 � Y%-1
rF ș"OS_SpriteOp",41+256,SP%,"Tiler_Image",A%,B% � ,,,,,C%,T%
|? ș"OS_SpriteOp",42+256,SP%,"Tiler_Image",B%,A%,C%,T%
� �:�
�
�� 2:
� � A%=0 � X%-1
� � B%=0 � Y%-1
�K ș"OS_SpriteOp",41+256,SP%,"Tiler_Image",X%-A%-1,B% � ,,,,,C%,T%
�? ș"OS_SpriteOp",42+256,SP%,"Tiler_Image",B%,A%,C%,T%
� �:�
�
�� 3:
� � A%=X%-1 � 0 � -1
� � B%=Y%-1 � 0 � -1
�K ș"OS_SpriteOp",41+256,SP%,"Tiler_Image",X%-A%-1,B% � ,,,,,C%,T%
? ș"OS_SpriteOp",42+256,SP%,"Tiler_Image",B%,A%,C%,T%
�:�
� 4:
& � A%=X%-1 � 0 � -1
: � B%=Y%-1 � 0 � -1
DF ș"OS_SpriteOp",41+256,SP%,"Tiler_Image",A%,B% � ,,,,,C%,T%
N? ș"OS_SpriteOp",42+256,SP%,"Tiler_Image",B%,A%,C%,T%
X �:�
b
l
v�
�ș"Hourglass_Off"
��_FourFold
�3ș"Wimp_ForceRedraw",Win256%,0,-SPY%*2,SPX%*2,0
��
�
�� �_FourFold
�� Process the sprite
�@ș"OS_SpriteOp",27+256,SP%,"Tiler_Image","s1" :� Copy sprite
�1ș"OS_SpriteOp",27+256,SP%,"Tiler_Image","s2"
�1ș"OS_SpriteOp",27+256,SP%,"Tiler_Image","s3"
�/ș"OS_SpriteOp",33+256,SP%,"s1" : � Flip X
�Eș"OS_SpriteOp",35+256,SP%,"Tiler_Image","s1",1 :� Merge together
�
/ș"OS_SpriteOp",33+256,SP%,"s3" : � Flip X
/ș"OS_SpriteOp",47+256,SP%,"s2" : � Flip Y
/ș"OS_SpriteOp",47+256,SP%,"s3" : � Flip Y
<ș"OS_SpriteOp",35+256,SP%,"s2","s3",1 :� Merge together
*Eș"OS_SpriteOp",35+256,SP%,"Tiler_Image","s2",0 :� Merge together
4�
>
H� �errorbox2
R"ș"OS_SpriteOp",60+256,SP%,0,0
\"� �=&108D5 � �=&108D4 � � �TRB
fE$=�$+" at "+Þ+�0
p�_setupW(E$)
z
� �TRB
��
�
�� �errorbox
� � � �
�ș "Wimp_DragBox",,-1
�/!buffers%=�:$(buffers%+4)=�$+" line "+Þ+�0
�1ș "Wimp_ReportError",buffers%,1,"Tiler Read"
�
��die
��
�
�� �_KeyPress
�i%=2
�_DoSave
�
$� �_DoSave
. � i%=3 �
8, ș "Wimp_GetPointerInfo",,q%
B. �dragicon(q%!0,q%!4,SVWIN%,i%)
L �
V
` � i%=2 �
j �_GetName
tF � �fn$,":") � �_Save � �_setupW("Drag the Icon into a Directory")
~ ș "Wimp_CreateMenu",,-1
��
��
�
� � �_Save
�� ch%,sx%,sy%,sm%
�=� �(fn$)=0 � �_setupW("You need to put in a file name"):�
�@� �fn$,1)="." � �_setupW("You need to put in a file name"):�
�
� Save it
�#ș "OS_SpriteOp",12+256,SP%,fn$
��_PutName(fn$)
��
�
.� �dragicon(mousex%,mousey%,handle%,icon%)
!� bx%,by%,ix0%,iy0%,ix1%,iy1%
�getw(handle%)
�geti(handle%,icon%)
(!q%=handle%:q%!4=5
2>q%!8=bx%+ix0%:q%!12=by%+iy0%:q%!16=bx%+ix1%:q%!20=by%+iy1%
<*q%!24=q%!8-mousex%:q%!28=q%!12-mousey%
Fș "Wimp_DragBox",,q%
P SFLAG%=�
Z�
d
n� �getw(handle%)
x8!q%=handle%:ș "Wimp_GetWindowState",,q%:�info(q%+4)
��
�� �geti(h%,i%)
�-!q%=h%:q%!4=i%:ș "Wimp_GetIconState",,q%
�.ix0%=q%!8:iy0%=q%!12:ix1%=q%!16:iy1%=q%!20
� iflags%=q%!24:idata%=q%+28
��
�
�� �info(p%)
�
� x0%,y0%
�'x0%=!p%:y0%=p%!4:x1%=p%!8:y1%=p%!12
�5scx%=p%!16:scy%=p%!20:bhandle%=p%!24:flags%=p%!28
� bx%=x0%-scx%:by%=y1%-scy%
��
� �_GetName
"� T%,A%,F$
,F$="":fn$=""
6q%!0=SVWIN%:q%!4=1
@ ș "Wimp_GetIconState",,q%
J T%=q%!28
T T%-=1
^�
h T%+=1
rF$=F$+�(?T%)
| � ?T%=0
�fn$=�F$,1,�(F$)-1)
��
�
�� �_PutDown(q%)
�
�_GetName
� ș "Wimp_GetPointerInfo",,q%
�5messh%=q%!12:messi%=q%!16:messx%=q%!0:messy%=q%!4
�#� � fn$,":") � fn$=�_spath(fn$)
�$(q%+44)=fn$
�?(q%+44+�(fn$))=0
�;q%!20=q%!12:q%!28=q%!0:q%!32=q%!4:q%!36=asz%:q%!40=&FF9
�q%!0=56:q%!12=0:q%!16=1
�-ș "Wimp_SendMessage",17,q%,messh%,messi%
saveref%=q%!8
ș "Wimp_CreateMenu",,-1
�
&
0� �_spath(n$)
:ȕ �n$,".")
Dn$=�n$,�(n$)-1)
N�
X� �(n$)>10 � n$=�n$,10)
b=n$
l
v� �_PutName(p$)
�� T%
�q%!0=SVWIN%:q%!4=1
� ș "Wimp_GetIconState",,q%
� T%=q%!28
�
$T%=p$
�!(T%+�(p$))=0
��
�
�� �_setupW(t$)
�X!q%=warningW%:q%!4=200:q%!8=200:q%!12=200+XQ%:q%!16=200+YQ%:q%!20=0:q%!24=0:q%!28=-1
�$TextWarn%=t$
�TextWarn%?�(t$)=0
�� 7
ș "Wimp_OpenWindow",,q%
ȗ ȓ 200,200,XQ%,YQ%
�
*� �_PutPal
4� A%=0 � 255
>BB%=(UP%?(A%*4+1))<<8 � (UP%?(A%*4+2))<<16 � (UP%?(A%*4+3))<<24
Hpal%!(A%*8)=B%
Rpal%!(A%*8+4)=B%
\�
f�
p
z� �_sput(x%,X$)
�� A%
�� A%=1 � �(X$)
�?x%=�(�X$,A%,1))
� x%+=1
��
� ?x%=0
��
�
�� �_SetCols
�� grab%,A%
�
�.ș"OS_ReadModeVariable",-1,3 � ,,Ncolours%
�
>ș"ColourTrans_SelectTable",SP%,"Tiler_Image",-1,-1,PTT%,0
�
� 00000000 0d 00 0a 14 f4 20 3e 20 21 54 69 6c 65 72 2e 54 |..... > !Tiler.T|
00000010 69 6c 65 72 0d 00 14 34 f4 20 56 65 72 73 69 6f |iler...4. Versio|
00000020 6e 20 31 2e 30 20 42 79 20 4d 69 6b 65 20 43 6f |n 1.0 By Mike Co|
00000030 6f 6b 20 2d 20 4d 75 73 62 75 72 79 20 43 6f 6e |ok - Musbury Con|
00000040 73 75 6c 74 61 6e 74 73 0d 00 1e 11 ee 20 85 20 |sultants..... . |
00000050 f2 65 72 72 6f 72 62 6f 78 0d 00 28 2e de 20 74 |.errorbox..(.. t|
00000060 61 73 6b 69 64 25 20 34 3a 24 74 61 73 6b 69 64 |askid% 4:$taskid|
00000070 25 3d 22 54 41 53 4b 22 3a 20 de 20 69 6e 74 6d |%="TASK": . intm|
00000080 65 73 73 25 20 32 30 0d 00 32 49 69 6e 74 6d 65 |ess% 20..2Iintme|
00000090 73 73 25 21 30 3d 31 3a 69 6e 74 6d 65 73 73 25 |ss%!0=1:intmess%|
000000a0 21 34 3d 32 3a 69 6e 74 6d 65 73 73 25 21 38 3d |!4=2:intmess%!8=|
000000b0 33 3a 69 6e 74 6d 65 73 73 25 21 31 32 3d 26 35 |3:intmess%!12=&5|
000000c0 30 32 3a 69 6e 74 6d 65 73 73 25 21 31 36 3d 30 |02:intmess%!16=0|
000000d0 0d 00 3c 4b c8 99 20 22 57 69 6d 70 5f 49 6e 69 |..<K.. "Wimp_Ini|
000000e0 74 69 61 6c 69 73 65 22 2c 33 30 30 2c 21 74 61 |tialise",300,!ta|
000000f0 73 6b 69 64 25 2c 22 54 69 6c 65 72 22 2c 69 6e |skid%,"Tiler",in|
00000100 74 6d 65 73 73 25 20 b8 20 76 65 72 73 69 6f 6e |tmess% . version|
00000110 25 2c 74 61 73 6b 68 61 6e 64 25 0d 00 46 04 0d |%,taskhand%..F..|
00000120 00 50 3b de 20 71 25 20 26 33 30 30 2c 63 73 77 |.P;. q% &300,csw|
00000130 32 35 36 25 20 26 33 30 30 2c 74 65 6d 70 25 20 |256% &300,temp% |
00000140 33 30 30 2c 62 75 66 66 65 72 73 25 20 35 31 32 |300,buffers% 512|
00000150 2c 6d 65 6e 75 25 20 32 32 38 0d 00 5a 2a de 20 |,menu% 228..Z*. |
00000160 6d 65 6e 75 32 35 36 25 20 32 32 30 2c 73 76 77 |menu256% 220,svw|
00000170 25 20 26 33 30 30 2c 54 65 78 74 57 61 72 6e 25 |% &300,TextWarn%|
00000180 20 32 35 35 0d 00 64 1e de 20 77 77 25 20 33 30 | 255..d.. ww% 30|
00000190 30 2c 20 57 4e 25 20 32 35 35 2c 20 53 46 25 20 |0, WN% 255, SF% |
000001a0 31 36 0d 00 6e 1a de 20 64 61 6e 61 6d 65 25 20 |16..n.. daname% |
000001b0 38 30 2c 50 54 54 25 20 32 30 34 38 0d 00 78 0c |80,PTT% 2048..x.|
000001c0 de 20 43 4e 25 20 33 30 0d 00 82 18 de 20 55 50 |. CN% 30..... UP|
000001d0 25 20 32 35 36 2a 34 2c 53 56 57 25 20 32 35 36 |% 256*4,SVW% 256|
000001e0 0d 00 8c 33 c8 99 20 22 57 69 6d 70 5f 4f 70 65 |...3.. "Wimp_Ope|
000001f0 6e 54 65 6d 70 6c 61 74 65 22 2c 2c 22 3c 54 69 |nTemplate",,"<Ti|
00000200 6c 65 72 24 44 69 72 3e 2e 54 65 6d 70 6c 61 74 |ler$Dir>.Templat|
00000210 65 73 22 0d 00 96 29 ee 20 85 20 c8 99 20 22 57 |es"...). . .. "W|
00000220 69 6d 70 5f 43 6c 6f 73 65 54 65 6d 70 6c 61 74 |imp_CloseTemplat|
00000230 65 22 3a f2 65 72 72 6f 72 62 6f 78 0d 00 a0 3a |e":.errorbox...:|
00000240 c8 99 20 22 57 69 6d 70 5f 4c 6f 61 64 54 65 6d |.. "Wimp_LoadTem|
00000250 70 6c 61 74 65 22 2c 2c 71 25 2c 74 65 6d 70 25 |plate",,q%,temp%|
00000260 2c 74 65 6d 70 25 2b 32 35 36 2c 2d 31 2c 22 49 |,temp%+256,-1,"I|
00000270 6e 66 6f 22 2c 30 0d 00 aa 26 c8 99 20 22 57 69 |nfo",0...&.. "Wi|
00000280 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 22 |mp_CreateWindow"|
00000290 2c 2c 71 25 20 b8 20 69 6e 66 6f 25 0d 00 b4 04 |,,q% . info%....|
000002a0 0d 00 be 42 c8 99 20 22 57 69 6d 70 5f 4c 6f 61 |...B.. "Wimp_Loa|
000002b0 64 54 65 6d 70 6c 61 74 65 22 2c 2c 63 73 77 32 |dTemplate",,csw2|
000002c0 35 36 25 2b 34 2c 74 65 6d 70 25 2c 74 65 6d 70 |56%+4,temp%,temp|
000002d0 25 2b 32 35 36 2c 2d 31 2c 22 53 50 32 35 36 22 |%+256,-1,"SP256"|
000002e0 2c 30 0d 00 c8 20 63 73 77 32 35 36 25 21 32 38 |,0... csw256%!28|
000002f0 3d 2d 31 3a 63 73 77 32 35 36 25 21 37 36 3d 57 |=-1:csw256%!76=W|
00000300 4e 25 0d 00 d2 2f c8 99 20 22 57 69 6d 70 5f 43 |N%.../.. "Wimp_C|
00000310 72 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c 63 73 |reateWindow",,cs|
00000320 77 32 35 36 25 2b 34 20 b8 20 57 69 6e 32 35 36 |w256%+4 . Win256|
00000330 25 0d 00 dc 15 63 73 77 32 35 36 25 21 30 3d 57 |%....csw256%!0=W|
00000340 69 6e 32 35 36 25 0d 00 e6 04 0d 00 f0 43 c8 99 |in256%.......C..|
00000350 20 22 57 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c | "Wimp_LoadTempl|
00000360 61 74 65 22 2c 2c 73 76 77 25 2b 34 2c 53 56 57 |ate",,svw%+4,SVW|
00000370 25 2c 53 56 57 25 2b 32 35 36 2c 2d 31 2c 22 73 |%,SVW%+256,-1,"s|
00000380 61 76 65 5f 73 63 72 69 70 74 22 2c 30 0d 00 fa |ave_script",0...|
00000390 0e 73 76 77 25 21 32 38 3d 2d 31 0d 01 04 2b c8 |.svw%!28=-1...+.|
000003a0 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 57 69 |. "Wimp_CreateWi|
000003b0 6e 64 6f 77 22 2c 2c 73 76 77 25 2b 34 20 b8 20 |ndow",,svw%+4 . |
000003c0 53 56 57 49 4e 25 0d 01 0e 11 73 76 77 25 21 30 |SVWIN%....svw%!0|
000003d0 3d 53 56 57 49 4e 25 0d 01 18 04 0d 01 22 39 c8 |=SVWIN%......"9.|
000003e0 99 20 22 57 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 |. "Wimp_LoadTemp|
000003f0 6c 61 74 65 22 2c 2c 71 25 2c 77 77 25 2c 77 77 |late",,q%,ww%,ww|
00000400 25 2b 32 35 36 2c 2d 31 2c 22 57 61 72 6e 69 6e |%+256,-1,"Warnin|
00000410 67 22 2c 30 0d 01 2c 29 71 25 21 31 30 38 3d 54 |g",0..,)q%!108=T|
00000420 65 78 74 57 61 72 6e 25 3a 71 25 21 31 31 32 3d |extWarn%:q%!112=|
00000430 2d 31 3a 71 25 21 31 31 36 3d 33 30 30 0d 01 36 |-1:q%!116=300..6|
00000440 20 58 51 25 3d 71 25 21 38 2d 71 25 21 30 3a 59 | XQ%=q%!8-q%!0:Y|
00000450 51 25 3d 71 25 21 31 32 2d 71 25 21 34 0d 01 40 |Q%=q%!12-q%!4..@|
00000460 2a c8 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 |*.. "Wimp_Create|
00000470 57 69 6e 64 6f 77 22 2c 2c 71 25 20 b8 20 77 61 |Window",,q% . wa|
00000480 72 6e 69 6e 67 57 25 0d 01 4a 04 0d 01 54 1b c8 |rningW%..J...T..|
00000490 99 20 22 57 69 6d 70 5f 43 6c 6f 73 65 54 65 6d |. "Wimp_CloseTem|
000004a0 70 6c 61 74 65 22 0d 01 5e 11 ee 20 85 20 f2 65 |plate"..^.. . .e|
000004b0 72 72 6f 72 62 6f 78 0d 01 68 04 0d 01 72 0c 41 |rrorbox..h...r.A|
000004c0 6c 6c 6f 63 25 3d 30 0d 01 7c 25 53 50 58 25 3d |lloc%=0..|%SPX%=|
000004d0 32 39 30 3a 20 53 50 59 25 3d 33 32 30 20 3a 20 |290: SPY%=320 : |
000004e0 4f 66 66 53 65 74 25 3d 34 30 36 30 0d 01 86 17 |OffSet%=4060....|
000004f0 24 57 4e 25 3d 22 42 6c 61 6e 6b 20 53 70 72 69 |$WN%="Blank Spri|
00000500 74 65 22 0d 01 90 04 0d 01 9a 0e f2 73 65 74 75 |te".........setu|
00000510 70 6d 65 6e 75 0d 01 a4 14 54 69 6c 65 72 49 63 |pmenu....TilerIc|
00000520 6f 6e 25 3d a4 69 63 6f 6e 0d 01 ae 04 0d 01 b8 |on%=.icon.......|
00000530 41 53 63 50 25 3d 30 20 3a 20 53 61 6c 25 3d 30 |AScP%=0 : Sal%=0|
00000540 20 3a 20 f4 20 53 63 72 61 70 20 6d 65 6d 6f 72 | : . Scrap memor|
00000550 79 20 70 6f 69 6e 74 65 72 20 61 6e 64 20 53 63 |y pointer and Sc|
00000560 72 61 70 20 61 6c 6c 6f 63 61 74 69 6f 6e 0d 01 |rap allocation..|
00000570 c2 17 f2 5f 50 75 74 4e 61 6d 65 28 22 53 70 72 |..._PutName("Spr|
00000580 69 74 65 22 29 0d 01 cc 04 0d 01 d6 12 ee 20 85 |ite")......... .|
00000590 20 f2 65 72 72 6f 72 62 6f 78 32 0d 01 e0 04 0d | .errorbox2.....|
000005a0 01 ea 12 52 69 73 63 50 43 3d a6 28 2d 32 35 36 |...RiscPC=.(-256|
000005b0 29 0d 01 f4 26 e7 20 52 69 73 63 50 43 3c 31 36 |)...&. RiscPC<16|
000005c0 35 20 8c 20 52 69 73 63 50 43 3d a3 20 8b 20 52 |5 . RiscPC=. . R|
000005d0 69 73 63 50 43 3d b9 0d 01 fe 33 e7 20 ac 28 52 |iscPC=....3. .(R|
000005e0 69 73 63 50 43 29 20 8c 20 c8 99 22 4f 53 5f 52 |iscPC) . .."OS_R|
000005f0 65 61 64 44 79 6e 61 6d 69 63 41 72 65 61 22 2c |eadDynamicArea",|
00000600 30 20 b8 20 48 65 61 70 50 25 0d 02 08 04 0d 02 |0 . HeapP%......|
00000610 12 05 f5 0d 02 1c 1f 20 20 c8 99 20 22 57 69 6d |....... .. "Wim|
00000620 70 5f 50 6f 6c 6c 22 2c 25 31 2c 71 25 20 b8 20 |p_Poll",%1,q% . |
00000630 41 25 0d 02 26 0d 20 20 c8 8e 20 41 25 20 ca 0d |A%..&. .. A% ..|
00000640 02 30 18 20 20 c9 20 31 3a f2 5f 44 6f 57 69 6e |.0. . 1:._DoWin|
00000650 64 6f 77 28 71 25 29 0d 02 3a 1a 20 20 c9 20 32 |dow(q%)..:. . 2|
00000660 3a f2 5f 4f 70 65 6e 57 69 6e 64 6f 77 28 71 25 |:._OpenWindow(q%|
00000670 29 0d 02 44 1b 20 20 c9 20 33 3a f2 5f 43 6c 6f |)..D. . 3:._Clo|
00000680 73 65 57 69 6e 64 6f 77 28 71 25 29 0d 02 4e 18 |seWindow(q%)..N.|
00000690 20 20 c9 20 36 3a f2 5f 64 6f 5f 63 6c 69 63 6b | . 6:._do_click|
000006a0 28 71 25 29 0d 02 58 17 20 20 c9 20 37 3a f2 5f |(q%)..X. . 7:._|
000006b0 50 75 74 44 6f 77 6e 28 71 25 29 0d 02 62 14 20 |PutDown(q%)..b. |
000006c0 20 c9 20 38 3a f2 5f 4b 65 79 50 72 65 73 73 0d | . 8:._KeyPress.|
000006d0 02 6c 16 20 20 c9 20 39 3a f2 5f 44 6f 4d 65 6e |.l. . 9:._DoMen|
000006e0 75 28 71 25 29 0d 02 76 1a 20 20 c9 20 31 37 2c |u(q%)..v. . 17,|
000006f0 31 38 3a f2 72 65 63 65 69 76 65 28 71 25 29 0d |18:.receive(q%).|
00000700 02 80 07 20 20 cb 0d 02 8a 07 fd 20 a3 0d 02 94 |... ...... ....|
00000710 04 0d 02 9e 17 dd 20 f2 5f 43 6c 6f 73 65 57 69 |...... ._CloseWi|
00000720 6e 64 6f 77 28 71 25 29 0d 02 a8 20 e7 20 71 25 |ndow(q%)... . q%|
00000730 21 30 3d 57 69 6e 32 35 36 25 20 80 20 41 6c 6c |!0=Win256% . All|
00000740 6f 63 25 3c 3e 30 20 8c 0d 02 b2 0e e7 20 52 69 |oc%<>0 ...... Ri|
00000750 73 63 50 43 20 8c 0d 02 bc 1f c8 99 22 4f 53 5f |scPC ......."OS_|
00000760 44 79 6e 61 6d 69 63 41 72 65 61 22 2c 31 2c 41 |DynamicArea",1,A|
00000770 6c 6c 6f 63 25 0d 02 c6 05 cc 0d 02 d0 1f c8 99 |lloc%...........|
00000780 22 4f 53 5f 48 65 61 70 22 2c 33 2c 48 65 61 70 |"OS_Heap",3,Heap|
00000790 50 25 2c 41 6c 6c 6f 63 25 0d 02 da 05 cd 0d 02 |P%,Alloc%.......|
000007a0 e4 0c 41 6c 6c 6f 63 25 3d 30 0d 02 ee 23 c8 99 |..Alloc%=0...#..|
000007b0 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 49 |"Wimp_GetWindowI|
000007c0 6e 66 6f 22 2c 2c 63 73 77 32 35 36 25 0d 02 f8 |nfo",,csw256%...|
000007d0 05 cd 0d 03 02 04 0d 03 0c 1c c8 99 22 57 69 6d |............"Wim|
000007e0 70 5f 43 6c 6f 73 65 57 69 6e 64 6f 77 22 2c 2c |p_CloseWindow",,|
000007f0 71 25 0d 03 16 05 e1 0d 03 20 04 0d 03 2a 14 dd |q%....... ...*..|
00000800 20 f2 5f 64 6f 5f 63 6c 69 63 6b 28 71 25 29 0d | ._do_click(q%).|
00000810 03 34 04 0d 03 3e 0c 69 25 3d 71 25 21 31 36 0d |.4...>.i%=q%!16.|
00000820 03 48 2a e7 20 71 25 21 31 32 3d 53 56 57 49 4e |.H*. q%!12=SVWIN|
00000830 25 20 8c 20 48 41 4c 46 53 25 3d a3 20 3a 20 f2 |% . HALFS%=. : .|
00000840 5f 44 6f 53 61 76 65 3a e1 0d 03 52 04 0d 03 5c |_DoSave:...R...\|
00000850 24 20 e7 20 71 25 21 31 32 3d 2d 32 20 80 20 71 |$ . q%!12=-2 . q|
00000860 25 21 31 36 3d 54 69 6c 65 72 49 63 6f 6e 25 20 |%!16=TilerIcon% |
00000870 8c 0d 03 66 36 20 e7 20 71 25 21 38 3d 32 20 8c |...f6 . q%!8=2 .|
00000880 20 c8 99 22 57 69 6d 70 5f 43 72 65 61 74 65 4d | .."Wimp_CreateM|
00000890 65 6e 75 22 2c 2c 6d 65 6e 75 25 2c 71 25 21 30 |enu",,menu%,q%!0|
000008a0 2d 35 36 2c 32 30 30 0d 03 70 0b 20 4d 45 4e 25 |-56,200..p. MEN%|
000008b0 3d 31 0d 03 7a 05 cd 0d 03 84 04 0d 03 8e 1e e7 |=1..z...........|
000008c0 20 71 25 21 31 32 3d 77 61 72 6e 69 6e 67 57 25 | q%!12=warningW%|
000008d0 20 80 20 69 25 3d 33 20 8c 0d 03 98 29 20 20 20 | . i%=3 ....) |
000008e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008f0 20 20 20 20 71 25 21 30 3d 77 61 72 6e 69 6e 67 | q%!0=warning|
00000900 57 25 0d 03 a2 2c 20 20 20 20 20 20 20 20 20 20 |W%..., |
00000910 20 20 20 20 20 20 20 20 20 20 20 20 20 f2 5f 43 | ._C|
00000920 6c 6f 73 65 57 69 6e 64 6f 77 28 71 25 29 0d 03 |loseWindow(q%)..|
00000930 ac 25 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.% |
00000940 20 20 20 20 20 20 20 20 20 f2 5f 72 65 73 6d 6f | ._resmo|
00000950 75 73 65 0d 03 b6 09 20 20 20 20 cd 0d 03 c0 23 |use.... ....#|
00000960 e7 20 71 25 21 31 32 3d 77 61 72 6e 69 6e 67 57 |. q%!12=warningW|
00000970 25 20 80 20 69 25 3d 32 20 8c 20 f2 64 69 65 0d |% . i%=2 . .die.|
00000980 03 ca 04 0d 03 d4 1f e7 20 71 25 21 31 32 3d 57 |........ q%!12=W|
00000990 69 6e 32 35 36 25 20 80 20 20 71 25 21 38 3d 32 |in256% . q%!8=2|
000009a0 20 8c 0d 03 de 2e c8 99 22 57 69 6d 70 5f 43 72 | ......."Wimp_Cr|
000009b0 65 61 74 65 4d 65 6e 75 22 2c 2c 6d 65 6e 75 32 |eateMenu",,menu2|
000009c0 35 36 25 2c 71 25 21 30 2d 39 36 2c 71 25 21 34 |56%,q%!0-96,q%!4|
000009d0 0d 03 e8 0a 4d 45 4e 25 3d 32 0d 03 f2 05 cd 0d |....MEN%=2......|
000009e0 03 fc 04 0d 04 06 05 e1 0d 04 10 04 0d 04 1a 12 |................|
000009f0 dd 20 f2 5f 44 6f 4d 65 6e 75 28 71 25 29 0d 04 |. ._DoMenu(q%)..|
00000a00 24 0d c8 8e 20 4d 45 4e 25 20 ca 0d 04 2e 08 c9 |$... MEN% ......|
00000a10 20 31 3a 0d 04 38 0c c8 8e 20 21 71 25 20 ca 0d | 1:..8... !q% ..|
00000a20 04 42 0e 20 20 c9 20 31 3a f2 64 69 65 0d 04 4c |.B. . 1:.die..L|
00000a30 06 20 cb 0d 04 56 04 0d 04 60 08 c9 20 32 3a 0d |. ...V...`.. 2:.|
00000a40 04 6a 0c c8 8e 20 21 71 25 20 ca 0d 04 74 34 20 |.j... !q% ...t4 |
00000a50 20 c9 20 31 3a c8 99 20 22 4f 53 5f 53 70 72 69 | . 1:.. "OS_Spri|
00000a60 74 65 4f 70 22 2c 31 32 2b 32 35 36 2c 53 50 25 |teOp",12+256,SP%|
00000a70 2c 22 3c 57 69 6d 70 24 53 63 72 61 70 3e 22 0d |,"<Wimp$Scrap>".|
00000a80 04 7e 2d 20 20 20 20 20 20 20 20 20 ff 28 22 42 |.~- .("B|
00000a90 61 63 6b 44 72 6f 70 20 2d 74 69 6c 65 20 3c 57 |ackDrop -tile <W|
00000aa0 69 6d 70 24 53 63 72 61 70 3e 22 29 0d 04 88 17 |imp$Scrap>")....|
00000ab0 20 20 c9 20 32 3a 20 f2 5f 45 69 67 68 74 48 69 | . 2: ._EightHi|
00000ac0 28 31 29 0d 04 92 16 20 20 c9 20 33 3a f2 5f 45 |(1).... . 3:._E|
00000ad0 69 67 68 74 48 69 28 32 29 0d 04 9c 16 20 20 c9 |ightHi(2).... .|
00000ae0 20 34 3a f2 5f 45 69 67 68 74 48 69 28 33 29 0d | 4:._EightHi(3).|
00000af0 04 a6 16 20 20 c9 20 35 3a f2 5f 45 69 67 68 74 |... . 5:._Eight|
00000b00 48 69 28 34 29 0d 04 b0 0d 20 20 20 20 20 20 20 |Hi(4).... |
00000b10 20 20 0d 04 ba 11 20 20 c9 20 36 3a f2 5f 4c 6f | .... . 6:._Lo|
00000b20 61 64 53 0d 04 c4 17 20 20 20 20 20 20 20 20 20 |adS.... |
00000b30 f2 5f 46 6f 75 72 46 6f 6c 64 0d 04 ce 3c 20 20 |._FourFold...< |
00000b40 20 20 20 20 20 20 20 c8 99 22 57 69 6d 70 5f 46 | .."Wimp_F|
00000b50 6f 72 63 65 52 65 64 72 61 77 22 2c 57 69 6e 32 |orceRedraw",Win2|
00000b60 35 36 25 2c 30 2c 2d 53 50 59 25 2a 32 2c 53 50 |56%,0,-SPY%*2,SP|
00000b70 58 25 2a 32 2c 30 0d 04 d8 06 20 cb 0d 04 e2 05 |X%*2,0.... .....|
00000b80 cb 0d 04 ec 04 0d 04 f6 05 e1 0d 05 00 04 0d 05 |................|
00000b90 0a 17 dd 20 f2 5f 53 65 74 55 70 57 69 6e 64 6f |... ._SetUpWindo|
00000ba0 77 28 77 25 29 0d 05 14 1d c8 99 28 22 57 69 6d |w(w%)......("Wim|
00000bb0 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 29 2c 2c |p_OpenWindow"),,|
00000bc0 77 25 0d 05 1e 05 e1 0d 05 28 04 0d 05 32 16 dd |w%.......(...2..|
00000bd0 20 f2 5f 4f 70 65 6e 57 69 6e 64 6f 77 28 71 25 | ._OpenWindow(q%|
00000be0 29 0d 05 3c 1e e7 20 71 25 21 30 3d 57 69 6e 32 |)..<.. q%!0=Win2|
00000bf0 35 36 25 20 8c 20 f2 5f 53 65 74 43 6f 6c 73 0d |56% . ._SetCols.|
00000c00 05 46 1e 20 c8 99 28 22 57 69 6d 70 5f 4f 70 65 |.F. ..("Wimp_Ope|
00000c10 6e 57 69 6e 64 6f 77 22 29 2c 2c 71 25 0d 05 50 |nWindow"),,q%..P|
00000c20 05 e1 0d 05 5a 04 0d 05 64 14 dd 20 f2 5f 44 6f |....Z...d.. ._Do|
00000c30 57 69 6e 64 6f 77 28 71 25 29 0d 05 6e 0f ea 20 |Window(q%)..n.. |
00000c40 66 6c 61 67 25 2c 77 68 25 0d 05 78 0b 77 68 25 |flag%,wh%..x.wh%|
00000c50 3d 21 71 25 0d 05 82 27 c8 99 28 22 57 69 6d 70 |=!q%...'..("Wimp|
00000c60 5f 52 65 64 72 61 77 57 69 6e 64 6f 77 22 29 2c |_RedrawWindow"),|
00000c70 2c 71 25 20 b8 20 66 6c 61 67 25 0d 05 8c 04 0d |,q% . flag%.....|
00000c80 05 96 10 f2 5f 66 74 6a 28 66 6c 61 67 25 29 0d |...._ftj(flag%).|
00000c90 05 a0 05 e1 0d 05 aa 04 0d 05 b4 12 dd 20 f2 5f |............. ._|
00000ca0 66 74 6a 28 66 6c 61 67 25 29 0d 05 be 0c c8 95 |ftj(flag%)......|
00000cb0 20 66 6c 61 67 25 0d 05 c8 10 f2 5f 72 65 64 72 | flag%....._redr|
00000cc0 61 77 28 71 25 29 0d 05 d2 26 c8 99 20 22 57 69 |aw(q%)...&.. "Wi|
00000cd0 6d 70 5f 47 65 74 52 65 63 74 61 6e 67 6c 65 22 |mp_GetRectangle"|
00000ce0 2c 2c 71 25 20 b8 20 66 6c 61 67 25 0d 05 dc 05 |,,q% . flag%....|
00000cf0 ce 0d 05 e6 05 e1 0d 05 f0 04 0d 05 fa 12 dd 20 |............... |
00000d00 f2 5f 72 65 64 72 61 77 28 77 25 29 0d 06 04 0e |._redraw(w%)....|
00000d10 ea 20 78 25 2c 79 25 2c 41 25 0d 06 0e 04 0d 06 |. x%,y%,A%......|
00000d20 18 04 0d 06 22 14 e7 20 77 25 21 30 3d 57 69 6e |....".. w%!0=Win|
00000d30 32 35 36 25 20 8c 0d 06 2c 20 c8 99 20 22 57 69 |256% ..., .. "Wi|
00000d40 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 |mp_GetWindowStat|
00000d50 65 22 2c 2c 77 25 0d 06 36 2f 20 20 20 20 20 20 |e",,w%..6/ |
00000d60 78 25 3d 77 25 21 34 2d 77 25 21 32 30 20 3a 20 |x%=w%!4-w%!20 : |
00000d70 79 25 3d 77 25 21 31 36 2d 77 25 21 32 34 2d 53 |y%=w%!16-w%!24-S|
00000d80 50 59 25 2a 32 0d 06 40 3f 20 c8 99 20 22 4f 53 |PY%*2..@? .. "OS|
00000d90 5f 53 70 72 69 74 65 4f 70 22 2c 35 32 2b 32 35 |_SpriteOp",52+25|
00000da0 36 2c 53 50 25 2c 22 54 69 6c 65 72 5f 49 6d 61 |6,SP%,"Tiler_Ima|
00000db0 67 65 22 2c 78 25 2c 79 25 2c 26 31 30 2c 30 2c |ge",x%,y%,&10,0,|
00000dc0 50 54 54 25 0d 06 4a 44 20 c8 99 20 22 4f 53 5f |PTT%..JD .. "OS_|
00000dd0 53 70 72 69 74 65 4f 70 22 2c 35 32 2b 32 35 36 |SpriteOp",52+256|
00000de0 2c 53 50 25 2c 22 54 69 6c 65 72 5f 49 6d 61 67 |,SP%,"Tiler_Imag|
00000df0 65 22 2c 78 25 2c 79 25 2b 53 50 59 25 2c 26 31 |e",x%,y%+SPY%,&1|
00000e00 30 2c 30 2c 50 54 54 25 0d 06 54 49 20 c8 99 20 |0,0,PTT%..TI .. |
00000e10 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 35 32 |"OS_SpriteOp",52|
00000e20 2b 32 35 36 2c 53 50 25 2c 22 54 69 6c 65 72 5f |+256,SP%,"Tiler_|
00000e30 49 6d 61 67 65 22 2c 78 25 2b 53 50 58 25 2c 79 |Image",x%+SPX%,y|
00000e40 25 2b 53 50 59 25 2c 26 31 30 2c 30 2c 50 54 54 |%+SPY%,&10,0,PTT|
00000e50 25 0d 06 5e 44 20 c8 99 20 22 4f 53 5f 53 70 72 |%..^D .. "OS_Spr|
00000e60 69 74 65 4f 70 22 2c 35 32 2b 32 35 36 2c 53 50 |iteOp",52+256,SP|
00000e70 25 2c 22 54 69 6c 65 72 5f 49 6d 61 67 65 22 2c |%,"Tiler_Image",|
00000e80 78 25 2b 53 50 58 25 2c 79 25 2c 26 31 30 2c 30 |x%+SPX%,y%,&10,0|
00000e90 2c 50 54 54 25 0d 06 68 05 cd 0d 06 72 05 e1 0d |,PTT%..h....r...|
00000ea0 06 7c 04 0d 06 86 0a dd a4 69 63 6f 6e 0d 06 90 |.|.......icon...|
00000eb0 0b 71 25 21 30 3d 2d 31 0d 06 9a 0a 71 25 21 34 |.q%!0=-1....q%!4|
00000ec0 3d 30 0d 06 a4 1a 71 25 21 38 3d 30 20 3a 20 f4 |=0....q%!8=0 : .|
00000ed0 20 59 20 44 49 52 45 43 54 49 4f 4e 0d 06 ae 1c | Y DIRECTION....|
00000ee0 71 25 21 31 32 3d 36 34 20 3a 20 f4 20 58 20 44 |q%!12=64 : . X D|
00000ef0 49 52 45 43 54 49 4f 4e 0d 06 b8 0c 71 25 21 31 |IRECTION....q%!1|
00000f00 36 3d 39 36 0d 06 c2 0f 71 25 21 32 30 3d 26 32 |6=96....q%!20=&2|
00000f10 30 30 32 0d 06 cc 15 24 28 71 25 2b 32 34 29 3d |002....$(q%+24)=|
00000f20 22 21 54 69 6c 65 72 22 0d 06 d6 24 c8 99 20 22 |"!Tiler"...$.. "|
00000f30 57 69 6d 70 5f 43 72 65 61 74 65 49 63 6f 6e 22 |Wimp_CreateIcon"|
00000f40 2c 2c 71 25 20 b8 20 69 63 6f 6e 25 0d 06 e0 0a |,,q% . icon%....|
00000f50 3d 69 63 6f 6e 25 0d 06 ea 04 0d 06 f4 0f dd f2 |=icon%..........|
00000f60 73 65 74 75 70 6d 65 6e 75 0d 06 fe 08 ea 20 6d |setupmenu..... m|
00000f70 25 0d 07 08 04 0d 07 12 18 24 6d 65 6e 75 32 35 |%........$menu25|
00000f80 36 25 3d 22 42 61 63 6b 44 72 6f 70 22 0d 07 1c |6%="BackDrop"...|
00000f90 11 6d 65 6e 75 32 35 36 25 3f 31 32 3d 37 0d 07 |.menu256%?12=7..|
00000fa0 26 11 6d 65 6e 75 32 35 36 25 3f 31 33 3d 32 0d |&.menu256%?13=2.|
00000fb0 07 30 11 6d 65 6e 75 32 35 36 25 3f 31 34 3d 37 |.0.menu256%?14=7|
00000fc0 0d 07 3a 11 6d 65 6e 75 32 35 36 25 3f 31 35 3d |..:.menu256%?15=|
00000fd0 30 0d 07 44 13 6d 65 6e 75 32 35 36 25 21 31 36 |0..D.menu256%!16|
00000fe0 3d 31 38 34 0d 07 4e 12 6d 65 6e 75 32 35 36 25 |=184..N.menu256%|
00000ff0 21 32 30 3d 34 30 0d 07 58 11 6d 65 6e 75 32 35 |!20=40..X.menu25|
00001000 36 25 21 32 34 3d 30 0d 07 62 12 6d 25 3d 6d 65 |6%!24=0..b.m%=me|
00001010 6e 75 32 35 36 25 2b 32 38 0d 07 6c 0a 6d 25 21 |nu256%+28..l.m%!|
00001020 30 3d 32 0d 07 76 0f 6d 25 21 34 3d 53 56 57 49 |0=2..v.m%!4=SVWI|
00001030 4e 25 0d 07 80 18 6d 25 21 38 3d 28 37 3c 3c 32 |N%....m%!8=(7<<2|
00001040 34 29 84 20 25 31 30 30 30 31 0d 07 8a 13 24 28 |4). %10001....$(|
00001050 6d 25 2b 31 32 29 3d 22 53 61 76 65 22 0d 07 94 |m%+12)="Save"...|
00001060 04 0d 07 9e 0a 6d 25 2b 3d 32 34 0d 07 a8 0a 6d |.....m%+=24....m|
00001070 25 21 30 3d 30 0d 07 b2 0a 6d 25 21 34 3d 30 0d |%!0=0....m%!4=0.|
00001080 07 bc 18 6d 25 21 38 3d 28 37 3c 3c 32 34 29 84 |...m%!8=(7<<24).|
00001090 20 25 31 30 30 30 31 0d 07 c6 1b 24 28 6d 25 2b | %10001....$(m%+|
000010a0 31 32 29 3d 22 54 72 79 20 42 61 63 6b 64 72 6f |12)="Try Backdro|
000010b0 70 22 0d 07 d0 04 0d 07 da 0a 6d 25 2b 3d 32 34 |p"........m%+=24|
000010c0 0d 07 e4 0a 6d 25 21 30 3d 30 0d 07 ee 0a 6d 25 |....m%!0=0....m%|
000010d0 21 34 3d 30 0d 07 f8 18 6d 25 21 38 3d 28 37 3c |!4=0....m%!8=(7<|
000010e0 3c 32 34 29 84 20 25 31 30 30 30 31 0d 08 02 18 |<24). %10001....|
000010f0 24 28 6d 25 2b 31 32 29 3d 22 38 20 46 6f 6c 64 |$(m%+12)="8 Fold|
00001100 20 50 55 22 0d 08 0c 04 0d 08 16 0a 6d 25 2b 3d | PU"........m%+=|
00001110 32 34 0d 08 20 0a 6d 25 21 30 3d 30 0d 08 2a 0a |24.. .m%!0=0..*.|
00001120 6d 25 21 34 3d 30 0d 08 34 18 6d 25 21 38 3d 28 |m%!4=0..4.m%!8=(|
00001130 37 3c 3c 32 34 29 84 20 25 31 30 30 30 31 0d 08 |7<<24). %10001..|
00001140 3e 18 24 28 6d 25 2b 31 32 29 3d 22 38 20 46 6f |>.$(m%+12)="8 Fo|
00001150 6c 64 20 4e 55 22 0d 08 48 04 0d 08 52 0a 6d 25 |ld NU"..H...R.m%|
00001160 2b 3d 32 34 0d 08 5c 0a 6d 25 21 30 3d 30 0d 08 |+=24..\.m%!0=0..|
00001170 66 0a 6d 25 21 34 3d 30 0d 08 70 18 6d 25 21 38 |f.m%!4=0..p.m%!8|
00001180 3d 28 37 3c 3c 32 34 29 84 20 25 31 30 30 30 31 |=(7<<24). %10001|
00001190 0d 08 7a 18 24 28 6d 25 2b 31 32 29 3d 22 38 20 |..z.$(m%+12)="8 |
000011a0 46 6f 6c 64 20 4e 4c 22 0d 08 84 04 0d 08 8e 0a |Fold NL"........|
000011b0 6d 25 2b 3d 32 34 0d 08 98 0a 6d 25 21 30 3d 30 |m%+=24....m%!0=0|
000011c0 0d 08 a2 0a 6d 25 21 34 3d 30 0d 08 ac 18 6d 25 |....m%!4=0....m%|
000011d0 21 38 3d 28 37 3c 3c 32 34 29 84 20 25 31 30 30 |!8=(7<<24). %100|
000011e0 30 31 0d 08 b6 18 24 28 6d 25 2b 31 32 29 3d 22 |01....$(m%+12)="|
000011f0 38 20 46 6f 6c 64 20 50 4c 22 0d 08 c0 04 0d 08 |8 Fold PL"......|
00001200 ca 0a 6d 25 2b 3d 32 34 0d 08 d4 0c 6d 25 21 30 |..m%+=24....m%!0|
00001210 3d 26 38 30 0d 08 de 0a 6d 25 21 34 3d 30 0d 08 |=&80....m%!4=0..|
00001220 e8 18 6d 25 21 38 3d 28 37 3c 3c 32 34 29 84 20 |..m%!8=(7<<24). |
00001230 25 31 30 30 30 31 0d 08 f2 15 24 28 6d 25 2b 31 |%10001....$(m%+1|
00001240 32 29 3d 22 34 20 46 6f 6c 64 22 0d 08 fc 04 0d |2)="4 Fold".....|
00001250 09 06 12 24 6d 65 6e 75 25 3d 22 54 69 6c 65 72 |...$menu%="Tiler|
00001260 22 0d 09 10 0e 6d 65 6e 75 25 3f 31 32 3d 37 0d |"....menu%?12=7.|
00001270 09 1a 0e 6d 65 6e 75 25 3f 31 33 3d 32 0d 09 24 |...menu%?13=2..$|
00001280 0e 6d 65 6e 75 25 3f 31 34 3d 37 0d 09 2e 0e 6d |.menu%?14=7....m|
00001290 65 6e 75 25 3f 31 35 3d 30 0d 09 38 10 6d 65 6e |enu%?15=0..8.men|
000012a0 75 25 21 31 36 3d 31 38 34 0d 09 42 0f 6d 65 6e |u%!16=184..B.men|
000012b0 75 25 21 32 30 3d 34 30 0d 09 4c 0e 6d 65 6e 75 |u%!20=40..L.menu|
000012c0 25 21 32 34 3d 30 0d 09 56 0f 6d 25 3d 6d 65 6e |%!24=0..V.m%=men|
000012d0 75 25 2b 32 38 0d 09 60 0a 6d 25 21 30 3d 32 0d |u%+28..`.m%!0=2.|
000012e0 09 6a 0e 6d 25 21 34 3d 69 6e 66 6f 25 0d 09 74 |.j.m%!4=info%..t|
000012f0 18 6d 25 21 38 3d 28 37 3c 3c 32 34 29 84 20 25 |.m%!8=(7<<24). %|
00001300 31 30 30 30 31 0d 09 7e 13 24 28 6d 25 2b 31 32 |10001..~.$(m%+12|
00001310 29 3d 22 49 6e 66 6f 22 0d 09 88 04 0d 09 92 0a |)="Info"........|
00001320 6d 25 2b 3d 32 34 0d 09 9c 0c 6d 25 21 30 3d 26 |m%+=24....m%!0=&|
00001330 38 30 0d 09 a6 0a 6d 25 21 34 3d 30 0d 09 b0 18 |80....m%!4=0....|
00001340 6d 25 21 38 3d 28 37 3c 3c 32 34 29 84 20 25 31 |m%!8=(7<<24). %1|
00001350 30 30 30 31 0d 09 ba 13 24 28 6d 25 2b 31 32 29 |0001....$(m%+12)|
00001360 3d 22 51 75 69 74 22 0d 09 c4 05 e1 0d 09 ce 04 |="Quit".........|
00001370 0d 09 d8 12 dd 20 f2 72 65 63 65 69 76 65 28 71 |..... .receive(q|
00001380 25 29 0d 09 e2 08 ea 20 41 25 0d 09 ec 0e c8 8e |%)..... A%......|
00001390 20 71 25 21 31 36 20 ca 0d 09 f6 0c c9 20 30 3a | q%!16 ...... 0:|
000013a0 f2 64 69 65 0d 0a 00 36 c9 20 31 3a 20 71 25 21 |.die...6. 1: q%!|
000013b0 31 36 3d 32 3a 71 25 21 33 36 3d 2d 31 3a f2 5f |16=2:q%!36=-1:._|
000013c0 73 70 75 74 28 71 25 2b 34 34 2c 22 3c 57 69 6d |sput(q%+44,"<Wim|
000013d0 70 24 53 63 72 61 70 3e 22 29 0d 0a 0a 1f 20 20 |p$Scrap>").... |
000013e0 20 20 20 20 20 20 6d 65 73 73 68 25 3d 71 25 21 | messh%=q%!|
000013f0 34 3a 71 25 21 30 3d 36 30 0d 0a 14 19 20 20 20 |4:q%!0=60.... |
00001400 20 20 20 20 20 73 61 76 65 72 65 66 25 3d 71 25 | saveref%=q%|
00001410 21 38 0d 0a 1e 2e 20 20 20 20 20 20 20 20 c8 99 |!8.... ..|
00001420 20 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 | "Wimp_SendMessa|
00001430 67 65 22 2c 31 37 2c 71 25 2c 6d 65 73 73 68 25 |ge",17,q%,messh%|
00001440 0d 0a 28 04 0d 0a 32 1b c9 20 32 3a 20 e7 20 71 |..(...2.. 2: . q|
00001450 25 21 31 32 3d 73 61 76 65 72 65 66 25 20 8c 0d |%!12=saveref% ..|
00001460 0a 3c 1c 20 20 20 20 20 20 20 20 20 20 73 65 63 |.<. sec|
00001470 75 72 65 46 25 3d 71 25 21 33 36 0d 0a 46 25 20 |ureF%=q%!36..F% |
00001480 20 20 20 20 20 20 20 20 20 66 6e 24 3d a4 73 67 | fn$=.sg|
00001490 65 74 28 71 25 2b 34 34 29 3a f2 5f 53 61 76 65 |et(q%+44):._Save|
000014a0 0d 0a 50 38 20 20 20 20 20 20 20 20 20 20 71 25 |..P8 q%|
000014b0 21 31 32 3d 73 61 76 65 72 65 66 25 3a 71 25 21 |!12=saveref%:q%!|
000014c0 31 36 3d 33 3a 71 25 21 30 3d 32 35 36 3a 71 25 |16=3:q%!0=256:q%|
000014d0 21 34 30 3d 26 46 46 39 0d 0a 5a 41 20 20 20 20 |!40=&FF9..ZA |
000014e0 20 20 20 20 20 20 71 25 21 32 30 3d 6d 65 73 73 | q%!20=mess|
000014f0 68 25 3a 71 25 21 32 34 3d 6d 65 73 73 69 25 3a |h%:q%!24=messi%:|
00001500 71 25 21 32 38 3d 6d 65 73 73 78 25 3a 71 25 21 |q%!28=messx%:q%!|
00001510 33 32 3d 6d 65 73 73 79 25 0d 0a 64 37 20 20 20 |32=messy%..d7 |
00001520 20 20 20 20 20 20 20 c8 99 20 22 57 69 6d 70 5f | .. "Wimp_|
00001530 53 65 6e 64 4d 65 73 73 61 67 65 22 2c 31 37 2c |SendMessage",17,|
00001540 71 25 2c 6d 65 73 73 68 25 2c 6d 65 73 73 69 25 |q%,messh%,messi%|
00001550 0d 0a 6e 0f 20 20 20 20 20 20 20 20 20 20 cd 0d |..n. ..|
00001560 0a 78 04 0d 0a 82 17 c9 20 33 3a 6e 24 3d a4 73 |.x...... 3:n$=.s|
00001570 67 65 74 28 71 25 2b 34 34 29 0d 0a 8c 27 20 20 |get(q%+44)...' |
00001580 20 20 20 20 20 73 65 6e 64 74 68 25 3d 71 25 21 | sendth%=q%!|
00001590 34 3a 69 63 6f 6e 74 79 70 65 25 3d 71 25 21 34 |4:icontype%=q%!4|
000015a0 30 0d 0a 96 16 20 20 20 20 20 20 20 6d 79 72 65 |0.... myre|
000015b0 66 25 3d 71 25 21 38 0d 0a a0 2a 20 20 20 20 20 |f%=q%!8...* |
000015c0 20 20 e7 20 71 25 21 32 30 3d 2d 32 20 80 20 71 | . q%!20=-2 . q|
000015d0 25 21 32 34 3d 54 69 6c 65 72 49 63 6f 6e 25 20 |%!24=TilerIcon% |
000015e0 8c 0d 0a aa 1b 20 20 20 20 20 20 20 20 f2 5f 49 |..... ._I|
000015f0 6d 61 67 65 4c 6f 61 64 28 6e 24 29 0d 0a b4 12 |mageLoad(n$)....|
00001600 20 20 20 20 20 20 20 20 f2 5f 44 61 63 6b 0d 0a | ._Dack..|
00001610 be 0c 20 20 20 20 20 20 20 cd 0d 0a c8 33 20 20 |.. ....3 |
00001620 20 20 20 20 20 e7 20 71 25 21 32 30 3d 57 69 6e | . q%!20=Win|
00001630 32 35 36 25 20 8c 20 f2 5f 49 6d 61 67 65 4c 6f |256% . ._ImageLo|
00001640 61 64 28 6e 24 29 3a f2 5f 44 61 63 6b 0d 0a d2 |ad(n$):._Dack...|
00001650 04 0d 0a dc 11 c9 20 26 35 30 32 3a c8 8e 20 b9 |...... &502:.. .|
00001660 20 ca 0d 0a e6 71 20 20 20 20 20 20 20 c9 20 71 | ....q . q|
00001670 25 21 33 32 3d 2d 32 20 80 20 71 25 21 33 36 3d |%!32=-2 . q%!36=|
00001680 54 69 6c 65 72 49 63 6f 6e 25 3a 6d 65 73 24 3d |TilerIcon%:mes$=|
00001690 22 54 68 69 73 20 69 73 20 74 68 65 20 54 69 6c |"This is the Til|
000016a0 65 72 20 69 63 6f 6e 2e 7c 4d 44 72 61 67 20 61 |er icon.|MDrag a|
000016b0 20 66 69 6c 65 20 68 65 72 65 20 74 6f 20 76 69 | file here to vi|
000016c0 65 77 20 69 74 20 61 73 20 61 6e 20 69 6d 61 67 |ew it as an imag|
000016d0 65 2e 22 0d 0a f0 14 20 20 20 20 20 20 20 7f 3a |e.".... .:|
000016e0 6d 65 73 24 3d 22 22 0d 0a fa 0c 20 20 20 20 20 |mes$="".... |
000016f0 20 20 cb 0d 0b 04 14 20 20 20 20 e7 20 6d 65 73 | ..... . mes|
00001700 24 3c 3e 22 22 20 8c 0d 0b 0e 12 20 20 20 20 71 |$<>"" ..... q|
00001710 25 21 31 32 3d 71 25 21 38 0d 0b 18 18 20 20 20 |%!12=q%!8.... |
00001720 20 24 28 71 25 2b 32 30 29 3d 6d 65 73 24 2b bd | $(q%+20)=mes$+.|
00001730 30 0d 0b 22 1e 20 20 20 20 71 25 21 30 3d 28 32 |0..". q%!0=(2|
00001740 30 2b a9 6d 65 73 24 2b 34 29 80 20 ac 20 33 0d |0+.mes$+4). . 3.|
00001750 0b 2c 12 20 20 20 20 71 25 21 31 36 3d 26 35 30 |.,. q%!16=&50|
00001760 33 0d 0b 36 28 20 20 20 20 c8 99 20 22 57 69 6d |3..6( .. "Wim|
00001770 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 22 2c 31 |p_SendMessage",1|
00001780 38 2c 71 25 2c 71 25 21 34 0d 0b 40 05 cb 0d 0b |8,q%,q%!4..@....|
00001790 4a 05 e1 0d 0b 54 04 0d 0b 5e 0c dd 20 f2 5f 44 |J....T...^.. ._D|
000017a0 61 63 6b 0d 0b 68 10 71 25 21 31 32 3d 6d 79 72 |ack..h.q%!12=myr|
000017b0 65 66 25 0d 0b 72 14 71 25 21 31 36 3d 34 3a 71 |ef%..r.q%!16=4:q|
000017c0 25 21 30 3d 32 35 36 0d 0b 7c 27 c8 99 20 22 57 |%!0=256..|'.. "W|
000017d0 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 22 |imp_SendMessage"|
000017e0 2c 31 37 2c 71 25 2c 73 65 6e 64 74 68 25 0d 0b |,17,q%,sendth%..|
000017f0 86 29 e7 20 6e 24 3d 22 3c 57 69 6d 70 24 53 63 |.). n$="<Wimp$Sc|
00001800 72 61 70 3e 22 20 8c 20 ff 28 22 44 45 4c 45 54 |rap>" . .("DELET|
00001810 45 20 22 2b 6e 24 29 0d 0b 90 05 e1 0d 0b 9a 04 |E "+n$).........|
00001820 0d 0b a4 09 dd f2 64 69 65 0d 0b ae 0e e7 20 52 |......die..... R|
00001830 69 73 63 50 43 20 8c 0d 0b b8 2d e7 20 41 6c 6c |iscPC ....-. All|
00001840 6f 63 25 3c 3e 30 20 8c 20 c8 99 22 4f 53 5f 44 |oc%<>0 . .."OS_D|
00001850 79 6e 61 6d 69 63 41 72 65 61 22 2c 31 2c 41 6c |ynamicArea",1,Al|
00001860 6c 6f 63 25 0d 0b c2 05 cc 0d 0b cc 2d e7 20 41 |loc%........-. A|
00001870 6c 6c 6f 63 25 3c 3e 30 20 8c 20 c8 99 22 4f 53 |lloc%<>0 . .."OS|
00001880 5f 48 65 61 70 22 2c 33 2c 48 65 61 70 50 25 2c |_Heap",3,HeapP%,|
00001890 41 6c 6c 6f 63 25 0d 0b d6 05 cd 0d 0b e0 2a c8 |Alloc%........*.|
000018a0 99 20 22 57 69 6d 70 5f 43 6c 6f 73 65 44 6f 77 |. "Wimp_CloseDow|
000018b0 6e 22 2c 74 61 73 6b 68 61 6e 64 25 2c 21 74 61 |n",taskhand%,!ta|
000018c0 73 6b 69 64 25 0d 0b ea 0e f2 5f 72 65 73 6d 6f |skid%....._resmo|
000018d0 75 73 65 0d 0b f4 05 e0 0d 0b fe 05 e1 0d 0c 08 |use.............|
000018e0 04 0d 0c 12 10 dd 20 f2 5f 72 65 73 6d 6f 75 73 |...... ._resmous|
000018f0 65 0d 0c 1c 15 ea 20 78 77 25 2c 79 77 25 2c 78 |e..... xw%,yw%,x|
00001900 73 25 2c 79 73 25 0d 0c 26 29 c8 99 22 4f 53 5f |s%,ys%..&).."OS_|
00001910 52 65 61 64 4d 6f 64 65 56 61 72 69 61 62 6c 65 |ReadModeVariable|
00001920 22 2c 2d 31 2c 31 31 20 b8 20 2c 2c 78 77 25 0d |",-1,11 . ,,xw%.|
00001930 0c 30 29 c8 99 22 4f 53 5f 52 65 61 64 4d 6f 64 |.0).."OS_ReadMod|
00001940 65 56 61 72 69 61 62 6c 65 22 2c 2d 31 2c 31 32 |eVariable",-1,12|
00001950 20 b8 20 2c 2c 79 77 25 0d 0c 3a 28 c8 99 22 4f | . ,,yw%..:(.."O|
00001960 53 5f 52 65 61 64 4d 6f 64 65 56 61 72 69 61 62 |S_ReadModeVariab|
00001970 6c 65 22 2c 2d 31 2c 34 20 b8 20 2c 2c 78 73 25 |le",-1,4 . ,,xs%|
00001980 0d 0c 44 28 c8 99 22 4f 53 5f 52 65 61 64 4d 6f |..D(.."OS_ReadMo|
00001990 64 65 56 61 72 69 61 62 6c 65 22 2c 2d 31 2c 35 |deVariable",-1,5|
000019a0 20 b8 20 2c 2c 79 73 25 0d 0c 4e 10 78 77 25 3d | . ,,ys%..N.xw%=|
000019b0 78 77 25 3c 3c 78 73 25 0d 0c 58 10 79 77 25 3d |xw%<<xs%..X.yw%=|
000019c0 79 77 25 3c 3c 79 73 25 0d 0c 62 14 c8 97 c8 93 |yw%<<ys%..b.....|
000019d0 20 30 2c 30 2c 78 77 25 2c 79 77 25 0d 0c 6c 05 | 0,0,xw%,yw%..l.|
000019e0 e1 0d 0c 76 04 0d 0c 80 0e dd a4 73 67 65 74 28 |...v.......sget(|
000019f0 78 25 29 0d 0c 8a 08 ea 20 78 24 0d 0c 94 21 c8 |x%)..... x$...!.|
00001a00 95 20 3f 78 25 3e 26 31 46 20 78 24 2b 3d bd 28 |. ?x%>&1F x$+=.(|
00001a10 3f 78 25 29 3a 78 25 2b 3d 31 3a ce 0d 0c 9e 07 |?x%):x%+=1:.....|
00001a20 3d 78 24 0d 0c a8 04 0d 0c b2 0c dd a4 70 67 28 |=x$..........pg(|
00001a30 6e 25 29 0d 0c bc 08 ea 20 41 24 0d 0c c6 19 41 |n%)..... A$....A|
00001a40 24 3d a4 73 67 65 74 28 53 50 6f 69 6e 74 25 28 |$=.sget(SPoint%(|
00001a50 6e 25 29 29 0d 0c d0 0a 3d bb 28 41 24 29 0d 0c |n%))....=.(A$)..|
00001a60 da 04 0d 0c e4 2f f4 20 52 45 41 44 53 20 54 48 |...../. READS TH|
00001a70 45 20 49 4d 41 47 45 20 44 41 54 41 20 44 49 52 |E IMAGE DATA DIR|
00001a80 45 43 54 4c 59 20 69 6e 74 6f 20 73 70 72 69 74 |ECTLY into sprit|
00001a90 65 0d 0c ee 15 dd 20 f2 5f 49 6d 61 67 65 4c 6f |e..... ._ImageLo|
00001aa0 61 64 28 44 24 29 0d 0c f8 0b ea 20 41 25 2c 53 |ad(D$)..... A%,S|
00001ab0 24 0d 0d 02 0c 54 61 72 53 24 3d 44 24 0d 0d 0c |$....TarS$=D$...|
00001ac0 1b c8 99 22 48 6f 75 72 67 6c 61 73 73 5f 53 74 |..."Hourglass_St|
00001ad0 61 72 74 22 2c 31 30 30 0d 0d 16 04 0d 0d 20 11 |art",100...... .|
00001ae0 e7 20 41 6c 6c 6f 63 25 3c 3e 30 20 8c 0d 0d 2a |. Alloc%<>0 ...*|
00001af0 10 20 20 e7 20 52 69 73 63 50 43 20 8c 0d 0d 34 |. . RiscPC ...4|
00001b00 22 20 20 20 c8 99 22 4f 53 5f 44 79 6e 61 6d 69 |" .."OS_Dynami|
00001b10 63 41 72 65 61 22 2c 31 2c 41 6c 6c 6f 63 25 0d |cArea",1,Alloc%.|
00001b20 0d 3e 07 20 20 cc 0d 0d 48 22 20 20 20 c8 99 22 |.>. ...H" .."|
00001b30 4f 53 5f 48 65 61 70 22 2c 33 2c 48 65 61 70 50 |OS_Heap",3,HeapP|
00001b40 25 2c 41 6c 6c 6f 63 25 0d 0d 52 07 20 20 cd 0d |%,Alloc%..R. ..|
00001b50 0d 5c 0c 41 6c 6c 6f 63 25 3d 30 0d 0d 66 23 c8 |.\.Alloc%=0..f#.|
00001b60 99 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 |."Wimp_GetWindow|
00001b70 49 6e 66 6f 22 2c 2c 63 73 77 32 35 36 25 0d 0d |Info",,csw256%..|
00001b80 70 21 c8 99 22 57 69 6d 70 5f 43 6c 6f 73 65 57 |p!.."Wimp_CloseW|
00001b90 69 6e 64 6f 77 22 2c 2c 63 73 77 32 35 36 25 0d |indow",,csw256%.|
00001ba0 0d 7a 05 cd 0d 0d 84 1c f4 20 53 50 58 25 20 3d |.z....... SPX% =|
00001bb0 20 78 73 69 7a 65 20 6f 66 20 73 70 72 69 74 65 | xsize of sprite|
00001bc0 0d 0d 8e 1f c8 99 22 4f 53 5f 46 69 6c 65 22 2c |......"OS_File",|
00001bd0 35 2c 44 24 20 b8 20 2c 2c 2c 2c 61 73 7a 25 0d |5,D$ . ,,,,asz%.|
00001be0 0d 98 20 24 64 61 6e 61 6d 65 25 3d 22 54 69 6c |.. $daname%="Til|
00001bf0 65 72 20 53 70 72 69 74 65 22 2b bd 28 30 29 0d |er Sprite"+.(0).|
00001c00 0d a2 14 61 73 7a 25 3d 61 73 7a 25 2a 35 2b 31 |...asz%=asz%*5+1|
00001c10 30 30 30 0d 0d ac 18 f4 20 41 73 6b 20 66 6f 72 |000..... Ask for|
00001c20 20 74 68 65 20 6d 65 6d 6f 72 79 0d 0d b6 0e e7 | the memory.....|
00001c30 20 52 69 73 63 50 43 20 8c 0d 0d c0 4e c8 99 22 | RiscPC ....N.."|
00001c40 4f 53 5f 44 79 6e 61 6d 69 63 41 72 65 61 22 2c |OS_DynamicArea",|
00001c50 30 2c 2d 31 2c 61 73 7a 25 2c 2d 31 2c 26 38 30 |0,-1,asz%,-1,&80|
00001c60 2c 61 73 7a 25 2c 30 2c 30 2c 64 61 6e 61 6d 65 |,asz%,0,0,daname|
00001c70 25 20 b8 20 2c 41 6c 6c 6f 63 25 2c 2c 53 50 25 |% . ,Alloc%,,SP%|
00001c80 2c 2c 61 61 73 7a 25 0d 0d ca 05 cc 0d 0d d4 2a |,,aasz%........*|
00001c90 c8 99 22 58 4f 53 5f 48 65 61 70 22 2c 32 2c 48 |.."XOS_Heap",2,H|
00001ca0 65 61 70 50 25 2c 2c 61 73 7a 25 20 b8 20 2c 2c |eapP%,,asz% . ,,|
00001cb0 41 6c 6c 6f 63 25 0d 0d de 0e 53 50 25 3d 41 6c |Alloc%....SP%=Al|
00001cc0 6c 6f 63 25 0d 0d e8 0e 61 61 73 7a 25 3d 61 73 |loc%....aasz%=as|
00001cd0 7a 25 0d 0d f2 05 cd 0d 0d fc 38 e7 20 28 28 61 |z%........8. ((a|
00001ce0 61 73 7a 25 3c 61 73 7a 25 29 20 80 20 52 69 73 |asz%<asz%) . Ris|
00001cf0 63 50 43 29 20 84 20 28 ac 28 52 69 73 63 50 43 |cPC) . (.(RiscPC|
00001d00 29 20 80 20 41 6c 6c 6f 63 25 3d 30 29 20 8c 0d |) . Alloc%=0) ..|
00001d10 0e 06 10 20 20 e7 20 52 69 73 63 50 43 20 8c 0d |... . RiscPC ..|
00001d20 0e 10 3c 20 20 20 f2 5f 73 65 74 75 70 57 28 22 |..< ._setupW("|
00001d30 4e 65 65 64 20 22 2b c3 28 61 73 7a 25 29 2b 22 |Need "+.(asz%)+"|
00001d40 20 62 79 74 65 73 20 6f 6e 6c 79 20 67 6f 74 20 | bytes only got |
00001d50 22 2b c3 28 61 61 73 7a 25 29 29 0d 0e 1a 22 20 |"+.(aasz%))..." |
00001d60 20 20 c8 99 22 4f 53 5f 44 79 6e 61 6d 69 63 41 | .."OS_DynamicA|
00001d70 72 65 61 22 2c 31 2c 41 6c 6c 6f 63 25 0d 0e 24 |rea",1,Alloc%..$|
00001d80 0f 20 20 20 41 6c 6c 6f 63 25 3d 30 0d 0e 2e 08 |. Alloc%=0....|
00001d90 20 20 20 cc 0d 0e 38 3d 20 20 20 f2 5f 73 65 74 | ...8= ._set|
00001da0 75 70 57 28 22 4e 65 65 64 20 22 2b c3 28 61 73 |upW("Need "+.(as|
00001db0 7a 25 29 2b 22 20 62 79 74 65 73 20 66 72 65 65 |z%)+" bytes free|
00001dc0 20 69 6e 20 53 79 73 74 65 6d 20 48 65 61 70 22 | in System Heap"|
00001dd0 29 0d 0e 42 08 20 20 20 cd 0d 0e 4c 05 cc 0d 0e |)..B. ...L....|
00001de0 56 12 53 6e 61 6d 65 24 3d 22 42 6c 61 6e 6b 22 |V.Sname$="Blank"|
00001df0 0d 0e 60 0e 53 50 25 21 30 3d 61 73 7a 25 0d 0e |..`.SP%!0=asz%..|
00001e00 6a 0c 53 50 25 21 38 3d 31 36 0d 0e 74 1d c8 99 |j.SP%!8=16..t...|
00001e10 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 39 2b |"OS_SpriteOp",9+|
00001e20 35 31 32 2c 53 50 25 0d 0e 7e 04 0d 0e 88 1c f4 |512,SP%..~......|
00001e30 20 4e 6f 77 20 52 65 61 64 20 69 6e 20 74 68 65 | Now Read in the|
00001e40 20 53 70 72 69 74 65 0d 0e 92 0b f2 5f 4c 6f 61 | Sprite....._Loa|
00001e50 64 53 0d 0e 9c 0e f2 5f 46 6f 75 72 46 6f 6c 64 |dS....._FourFold|
00001e60 0d 0e a6 04 0d 0e b0 3b c8 99 22 4f 53 5f 53 70 |.......;.."OS_Sp|
00001e70 72 69 74 65 4f 70 22 2c 34 30 2b 32 35 36 2c 53 |riteOp",40+256,S|
00001e80 50 25 2c 22 54 69 6c 65 72 5f 49 6d 61 67 65 22 |P%,"Tiler_Image"|
00001e90 20 b8 20 2c 2c 2c 53 50 58 25 2c 53 50 59 25 0d | . ,,,SPX%,SPY%.|
00001ea0 0e ba 0d f2 5f 53 65 74 43 6f 6c 73 0d 0e c4 04 |...._SetCols....|
00001eb0 0d 0e ce 04 0d 0e d8 04 0d 0e e2 29 f4 20 43 72 |...........). Cr|
00001ec0 65 61 74 65 20 61 20 77 69 6e 64 6f 77 20 6e 61 |eate a window na|
00001ed0 6d 65 20 66 72 6f 6d 20 66 69 6c 65 20 6e 61 6d |me from file nam|
00001ee0 65 0d 0e ec 0e 53 24 3d 22 22 3a 41 25 3d 30 0d |e....S$="":A%=0.|
00001ef0 0e f6 05 f5 0d 0f 00 10 53 24 3d c2 44 24 2c 31 |........S$=.D$,1|
00001f00 29 2b 53 24 0d 0f 0a 09 41 25 2b 3d 31 0d 0f 14 |)+S$....A%+=1...|
00001f10 13 44 24 3d c0 44 24 2c a9 28 44 24 29 2d 31 29 |.D$=.D$,.(D$)-1)|
00001f20 0d 0f 1e 18 fd 20 c2 44 24 2c 31 29 3d 22 2e 22 |..... .D$,1)="."|
00001f30 20 84 20 41 25 3d 31 30 0d 0f 28 11 f2 5f 50 75 | . A%=10..(.._Pu|
00001f40 74 4e 61 6d 65 28 53 24 29 0d 0f 32 0b 24 57 4e |tName(S$)..2.$WN|
00001f50 25 3d 53 24 0d 0f 3c 04 0d 0f 46 1b 53 50 58 25 |%=S$..<...F.SPX%|
00001f60 3d 53 50 58 25 2a 32 3a 53 50 59 25 3d 53 50 59 |=SPX%*2:SPY%=SPY|
00001f70 25 2a 32 0d 0f 50 1f 63 73 77 32 35 36 25 21 31 |%*2..P.csw256%!1|
00001f80 32 3d 63 73 77 32 35 36 25 21 34 2b 53 50 58 25 |2=csw256%!4+SPX%|
00001f90 2a 32 0d 0f 5a 1f 63 73 77 32 35 36 25 21 31 36 |*2..Z.csw256%!16|
00001fa0 3d 63 73 77 32 35 36 25 21 38 2b 53 50 59 25 2a |=csw256%!8+SPY%*|
00001fb0 32 0d 0f 64 37 74 65 6d 70 25 21 30 3d 30 3a 74 |2..d7temp%!0=0:t|
00001fc0 65 6d 70 25 21 34 3d 2d 53 50 59 25 2a 32 3a 74 |emp%!4=-SPY%*2:t|
00001fd0 65 6d 70 25 21 38 3d 53 50 58 25 2a 32 3a 74 65 |emp%!8=SPX%*2:te|
00001fe0 6d 70 25 21 31 32 3d 30 0d 0f 6e 04 0d 0f 78 04 |mp%!12=0..n...x.|
00001ff0 0d 0f 82 20 c8 99 22 57 69 6d 70 5f 4f 70 65 6e |... .."Wimp_Open|
00002000 57 69 6e 64 6f 77 22 2c 2c 63 73 77 32 35 36 25 |Window",,csw256%|
00002010 0d 0f 8c 24 c8 99 22 57 69 6d 70 5f 53 65 74 45 |...$.."Wimp_SetE|
00002020 78 74 65 6e 74 22 2c 57 69 6e 32 35 36 25 2c 74 |xtent",Win256%,t|
00002030 65 6d 70 25 0d 0f 96 04 0d 0f a0 05 cd 0d 0f aa |emp%............|
00002040 15 c8 99 22 48 6f 75 72 67 6c 61 73 73 5f 4f 66 |..."Hourglass_Of|
00002050 66 22 0d 0f b4 04 0d 0f be 05 e1 0d 0f c8 04 0d |f"..............|
00002060 0f d2 0d dd 20 f2 5f 4c 6f 61 64 53 0d 0f dc 24 |.... ._LoadS...$|
00002070 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |.."OS_SpriteOp",|
00002080 31 30 2b 32 35 36 2c 53 50 25 2c 54 61 72 53 24 |10+256,SP%,TarS$|
00002090 0d 0f e6 13 63 62 25 3d 53 50 25 2b 28 53 50 25 |....cb%=SP%+(SP%|
000020a0 21 38 29 0d 0f f0 30 c8 99 22 4f 53 5f 53 70 72 |!8)...0.."OS_Spr|
000020b0 69 74 65 4f 70 22 2c 32 36 2b 35 31 32 2c 53 50 |iteOp",26+512,SP|
000020c0 25 2c 63 62 25 2c 22 54 69 6c 65 72 5f 49 6d 61 |%,cb%,"Tiler_Ima|
000020d0 67 65 22 0d 0f fa 05 e1 0d 10 04 04 0d 10 0e 13 |ge".............|
000020e0 dd 20 f2 5f 45 69 67 68 74 48 69 28 4e 25 29 0d |. ._EightHi(N%).|
000020f0 10 18 17 ea 20 58 25 2c 59 25 2c 41 25 2c 42 25 |.... X%,Y%,A%,B%|
00002100 2c 43 25 2c 54 25 0d 10 22 0b f2 5f 4c 6f 61 64 |,C%,T%..".._Load|
00002110 53 0d 10 2c 1b c8 99 22 48 6f 75 72 67 6c 61 73 |S..,..."Hourglas|
00002120 73 5f 53 74 61 72 74 22 2c 31 30 30 0d 10 36 37 |s_Start",100..67|
00002130 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |.."OS_SpriteOp",|
00002140 34 30 2b 32 35 36 2c 53 50 25 2c 22 54 69 6c 65 |40+256,SP%,"Tile|
00002150 72 5f 49 6d 61 67 65 22 20 b8 20 2c 2c 2c 58 25 |r_Image" . ,,,X%|
00002160 2c 59 25 0d 10 40 1b e7 20 58 25 3e 59 25 20 8c |,Y%..@.. X%>Y% .|
00002170 20 58 25 3d 59 25 20 8b 20 59 25 3d 58 25 0d 10 | X%=Y% . Y%=X%..|
00002180 4a 0b c8 8e 20 4e 25 20 ca 0d 10 54 08 c9 20 31 |J... N% ...T.. 1|
00002190 3a 0d 10 5e 18 20 20 20 20 20 20 20 e3 20 41 25 |:..^. . A%|
000021a0 3d 30 20 b8 20 58 25 2d 31 0d 10 68 18 20 20 20 |=0 . X%-1..h. |
000021b0 20 20 20 20 e3 20 42 25 3d 30 20 b8 20 59 25 2d | . B%=0 . Y%-|
000021c0 31 0d 10 72 46 20 20 20 20 20 20 20 c8 99 22 4f |1..rF .."O|
000021d0 53 5f 53 70 72 69 74 65 4f 70 22 2c 34 31 2b 32 |S_SpriteOp",41+2|
000021e0 35 36 2c 53 50 25 2c 22 54 69 6c 65 72 5f 49 6d |56,SP%,"Tiler_Im|
000021f0 61 67 65 22 2c 41 25 2c 42 25 20 b8 20 2c 2c 2c |age",A%,B% . ,,,|
00002200 2c 2c 43 25 2c 54 25 0d 10 7c 3f 20 20 20 20 20 |,,C%,T%..|? |
00002210 20 20 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 | .."OS_SpriteOp|
00002220 22 2c 34 32 2b 32 35 36 2c 53 50 25 2c 22 54 69 |",42+256,SP%,"Ti|
00002230 6c 65 72 5f 49 6d 61 67 65 22 2c 42 25 2c 41 25 |ler_Image",B%,A%|
00002240 2c 43 25 2c 54 25 0d 10 86 0e 20 20 20 20 20 20 |,C%,T%.... |
00002250 20 ed 3a ed 0d 10 90 04 0d 10 9a 08 c9 20 32 3a | .:.......... 2:|
00002260 0d 10 a4 18 20 20 20 20 20 20 20 e3 20 41 25 3d |.... . A%=|
00002270 30 20 b8 20 58 25 2d 31 0d 10 ae 18 20 20 20 20 |0 . X%-1.... |
00002280 20 20 20 e3 20 42 25 3d 30 20 b8 20 59 25 2d 31 | . B%=0 . Y%-1|
00002290 0d 10 b8 4b 20 20 20 20 20 20 20 c8 99 22 4f 53 |...K .."OS|
000022a0 5f 53 70 72 69 74 65 4f 70 22 2c 34 31 2b 32 35 |_SpriteOp",41+25|
000022b0 36 2c 53 50 25 2c 22 54 69 6c 65 72 5f 49 6d 61 |6,SP%,"Tiler_Ima|
000022c0 67 65 22 2c 58 25 2d 41 25 2d 31 2c 42 25 20 b8 |ge",X%-A%-1,B% .|
000022d0 20 2c 2c 2c 2c 2c 43 25 2c 54 25 0d 10 c2 3f 20 | ,,,,,C%,T%...? |
000022e0 20 20 20 20 20 20 c8 99 22 4f 53 5f 53 70 72 69 | .."OS_Spri|
000022f0 74 65 4f 70 22 2c 34 32 2b 32 35 36 2c 53 50 25 |teOp",42+256,SP%|
00002300 2c 22 54 69 6c 65 72 5f 49 6d 61 67 65 22 2c 42 |,"Tiler_Image",B|
00002310 25 2c 41 25 2c 43 25 2c 54 25 0d 10 cc 0e 20 20 |%,A%,C%,T%.... |
00002320 20 20 20 20 20 ed 3a ed 0d 10 d6 0b 20 20 20 20 | .:..... |
00002330 20 20 20 0d 10 e0 08 c9 20 33 3a 0d 10 ea 1d 20 | ..... 3:.... |
00002340 20 20 20 20 20 20 e3 20 41 25 3d 58 25 2d 31 20 | . A%=X%-1 |
00002350 b8 20 30 20 88 20 2d 31 0d 10 f4 1d 20 20 20 20 |. 0 . -1.... |
00002360 20 20 20 e3 20 42 25 3d 59 25 2d 31 20 b8 20 30 | . B%=Y%-1 . 0|
00002370 20 88 20 2d 31 0d 10 fe 4b 20 20 20 20 20 20 20 | . -1...K |
00002380 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |.."OS_SpriteOp",|
00002390 34 31 2b 32 35 36 2c 53 50 25 2c 22 54 69 6c 65 |41+256,SP%,"Tile|
000023a0 72 5f 49 6d 61 67 65 22 2c 58 25 2d 41 25 2d 31 |r_Image",X%-A%-1|
000023b0 2c 42 25 20 b8 20 2c 2c 2c 2c 2c 43 25 2c 54 25 |,B% . ,,,,,C%,T%|
000023c0 0d 11 08 3f 20 20 20 20 20 20 20 c8 99 22 4f 53 |...? .."OS|
000023d0 5f 53 70 72 69 74 65 4f 70 22 2c 34 32 2b 32 35 |_SpriteOp",42+25|
000023e0 36 2c 53 50 25 2c 22 54 69 6c 65 72 5f 49 6d 61 |6,SP%,"Tiler_Ima|
000023f0 67 65 22 2c 42 25 2c 41 25 2c 43 25 2c 54 25 0d |ge",B%,A%,C%,T%.|
00002400 11 12 0e 20 20 20 20 20 20 20 ed 3a ed 0d 11 1c |... .:....|
00002410 08 c9 20 34 3a 0d 11 26 1d 20 20 20 20 20 20 20 |.. 4:..&. |
00002420 e3 20 41 25 3d 58 25 2d 31 20 b8 20 30 20 88 20 |. A%=X%-1 . 0 . |
00002430 2d 31 0d 11 3a 1d 20 20 20 20 20 20 20 e3 20 42 |-1..:. . B|
00002440 25 3d 59 25 2d 31 20 b8 20 30 20 88 20 2d 31 0d |%=Y%-1 . 0 . -1.|
00002450 11 44 46 20 20 20 20 20 20 20 c8 99 22 4f 53 5f |.DF .."OS_|
00002460 53 70 72 69 74 65 4f 70 22 2c 34 31 2b 32 35 36 |SpriteOp",41+256|
00002470 2c 53 50 25 2c 22 54 69 6c 65 72 5f 49 6d 61 67 |,SP%,"Tiler_Imag|
00002480 65 22 2c 41 25 2c 42 25 20 b8 20 2c 2c 2c 2c 2c |e",A%,B% . ,,,,,|
00002490 43 25 2c 54 25 0d 11 4e 3f 20 20 20 20 20 20 20 |C%,T%..N? |
000024a0 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |.."OS_SpriteOp",|
000024b0 34 32 2b 32 35 36 2c 53 50 25 2c 22 54 69 6c 65 |42+256,SP%,"Tile|
000024c0 72 5f 49 6d 61 67 65 22 2c 42 25 2c 41 25 2c 43 |r_Image",B%,A%,C|
000024d0 25 2c 54 25 0d 11 58 0e 20 20 20 20 20 20 20 ed |%,T%..X. .|
000024e0 3a ed 0d 11 62 04 0d 11 6c 04 0d 11 76 05 cb 0d |:...b...l...v...|
000024f0 11 80 15 c8 99 22 48 6f 75 72 67 6c 61 73 73 5f |....."Hourglass_|
00002500 4f 66 66 22 0d 11 8a 0e f2 5f 46 6f 75 72 46 6f |Off"....._FourFo|
00002510 6c 64 0d 11 94 33 c8 99 22 57 69 6d 70 5f 46 6f |ld...3.."Wimp_Fo|
00002520 72 63 65 52 65 64 72 61 77 22 2c 57 69 6e 32 35 |rceRedraw",Win25|
00002530 36 25 2c 30 2c 2d 53 50 59 25 2a 32 2c 53 50 58 |6%,0,-SPY%*2,SPX|
00002540 25 2a 32 2c 30 0d 11 9e 05 e1 0d 11 a8 04 0d 11 |%*2,0...........|
00002550 b2 10 dd 20 f2 5f 46 6f 75 72 46 6f 6c 64 0d 11 |... ._FourFold..|
00002560 bc 18 f4 20 50 72 6f 63 65 73 73 20 74 68 65 20 |... Process the |
00002570 73 70 72 69 74 65 0d 11 c6 40 c8 99 22 4f 53 5f |sprite...@.."OS_|
00002580 53 70 72 69 74 65 4f 70 22 2c 32 37 2b 32 35 36 |SpriteOp",27+256|
00002590 2c 53 50 25 2c 22 54 69 6c 65 72 5f 49 6d 61 67 |,SP%,"Tiler_Imag|
000025a0 65 22 2c 22 73 31 22 20 3a f4 20 43 6f 70 79 20 |e","s1" :. Copy |
000025b0 73 70 72 69 74 65 0d 11 d0 31 c8 99 22 4f 53 5f |sprite...1.."OS_|
000025c0 53 70 72 69 74 65 4f 70 22 2c 32 37 2b 32 35 36 |SpriteOp",27+256|
000025d0 2c 53 50 25 2c 22 54 69 6c 65 72 5f 49 6d 61 67 |,SP%,"Tiler_Imag|
000025e0 65 22 2c 22 73 32 22 0d 11 da 31 c8 99 22 4f 53 |e","s2"...1.."OS|
000025f0 5f 53 70 72 69 74 65 4f 70 22 2c 32 37 2b 32 35 |_SpriteOp",27+25|
00002600 36 2c 53 50 25 2c 22 54 69 6c 65 72 5f 49 6d 61 |6,SP%,"Tiler_Ima|
00002610 67 65 22 2c 22 73 33 22 0d 11 e4 2f c8 99 22 4f |ge","s3".../.."O|
00002620 53 5f 53 70 72 69 74 65 4f 70 22 2c 33 33 2b 32 |S_SpriteOp",33+2|
00002630 35 36 2c 53 50 25 2c 22 73 31 22 20 20 3a 20 f4 |56,SP%,"s1" : .|
00002640 20 46 6c 69 70 20 58 0d 11 ee 45 c8 99 22 4f 53 | Flip X...E.."OS|
00002650 5f 53 70 72 69 74 65 4f 70 22 2c 33 35 2b 32 35 |_SpriteOp",35+25|
00002660 36 2c 53 50 25 2c 22 54 69 6c 65 72 5f 49 6d 61 |6,SP%,"Tiler_Ima|
00002670 67 65 22 2c 22 73 31 22 2c 31 20 3a f4 20 4d 65 |ge","s1",1 :. Me|
00002680 72 67 65 20 74 6f 67 65 74 68 65 72 0d 11 f8 04 |rge together....|
00002690 0d 12 02 2f c8 99 22 4f 53 5f 53 70 72 69 74 65 |.../.."OS_Sprite|
000026a0 4f 70 22 2c 33 33 2b 32 35 36 2c 53 50 25 2c 22 |Op",33+256,SP%,"|
000026b0 73 33 22 20 20 3a 20 f4 20 46 6c 69 70 20 58 0d |s3" : . Flip X.|
000026c0 12 0c 2f c8 99 22 4f 53 5f 53 70 72 69 74 65 4f |../.."OS_SpriteO|
000026d0 70 22 2c 34 37 2b 32 35 36 2c 53 50 25 2c 22 73 |p",47+256,SP%,"s|
000026e0 32 22 20 20 3a 20 f4 20 46 6c 69 70 20 59 0d 12 |2" : . Flip Y..|
000026f0 16 2f c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 |./.."OS_SpriteOp|
00002700 22 2c 34 37 2b 32 35 36 2c 53 50 25 2c 22 73 33 |",47+256,SP%,"s3|
00002710 22 20 20 3a 20 f4 20 46 6c 69 70 20 59 0d 12 20 |" : . Flip Y.. |
00002720 3c c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 |<.."OS_SpriteOp"|
00002730 2c 33 35 2b 32 35 36 2c 53 50 25 2c 22 73 32 22 |,35+256,SP%,"s2"|
00002740 2c 22 73 33 22 2c 31 20 3a f4 20 4d 65 72 67 65 |,"s3",1 :. Merge|
00002750 20 74 6f 67 65 74 68 65 72 0d 12 2a 45 c8 99 22 | together..*E.."|
00002760 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 33 35 2b |OS_SpriteOp",35+|
00002770 32 35 36 2c 53 50 25 2c 22 54 69 6c 65 72 5f 49 |256,SP%,"Tiler_I|
00002780 6d 61 67 65 22 2c 22 73 32 22 2c 30 20 3a f4 20 |mage","s2",0 :. |
00002790 4d 65 72 67 65 20 74 6f 67 65 74 68 65 72 0d 12 |Merge together..|
000027a0 34 05 e1 0d 12 3e 04 0d 12 48 10 dd 20 f2 65 72 |4....>...H.. .er|
000027b0 72 6f 72 62 6f 78 32 0d 12 52 22 c8 99 22 4f 53 |rorbox2..R".."OS|
000027c0 5f 53 70 72 69 74 65 4f 70 22 2c 36 30 2b 32 35 |_SpriteOp",60+25|
000027d0 36 2c 53 50 25 2c 30 2c 30 0d 12 5c 22 e7 20 9f |6,SP%,0,0..\". .|
000027e0 3d 26 31 30 38 44 35 20 84 20 9f 3d 26 31 30 38 |=&108D5 . .=&108|
000027f0 44 34 20 8c 20 e5 20 8d 54 52 42 0d 12 66 16 45 |D4 . . .TRB..f.E|
00002800 24 3d f6 24 2b 22 20 61 74 20 22 2b c3 9e 2b bd |$=.$+" at "+..+.|
00002810 30 0d 12 70 10 f2 5f 73 65 74 75 70 57 28 45 24 |0..p.._setupW(E$|
00002820 29 0d 12 7a 0a e5 20 8d 54 52 42 0d 12 84 05 e1 |)..z.. .TRB.....|
00002830 0d 12 8e 04 0d 12 98 0f dd 20 f2 65 72 72 6f 72 |......... .error|
00002840 62 6f 78 0d 12 a2 09 ee 20 85 20 87 0d 12 ac 19 |box..... . .....|
00002850 c8 99 20 22 57 69 6d 70 5f 44 72 61 67 42 6f 78 |.. "Wimp_DragBox|
00002860 22 2c 2c 2d 31 0d 12 b6 2f 21 62 75 66 66 65 72 |",,-1.../!buffer|
00002870 73 25 3d 9f 3a 24 28 62 75 66 66 65 72 73 25 2b |s%=.:$(buffers%+|
00002880 34 29 3d f6 24 2b 22 20 6c 69 6e 65 20 22 2b c3 |4)=.$+" line "+.|
00002890 9e 2b bd 30 0d 12 c0 31 c8 99 20 22 57 69 6d 70 |.+.0...1.. "Wimp|
000028a0 5f 52 65 70 6f 72 74 45 72 72 6f 72 22 2c 62 75 |_ReportError",bu|
000028b0 66 66 65 72 73 25 2c 31 2c 22 54 69 6c 65 72 20 |ffers%,1,"Tiler |
000028c0 52 65 61 64 22 0d 12 ca 04 0d 12 d4 08 f2 64 69 |Read".........di|
000028d0 65 0d 12 de 05 e1 0d 12 e8 04 0d 12 f2 10 dd 20 |e.............. |
000028e0 f2 5f 4b 65 79 50 72 65 73 73 0d 12 fc 08 69 25 |._KeyPress....i%|
000028f0 3d 32 0d 13 06 0c f2 5f 44 6f 53 61 76 65 0d 13 |=2....._DoSave..|
00002900 10 05 e1 0d 13 1a 04 0d 13 24 0e dd 20 f2 5f 44 |.........$.. ._D|
00002910 6f 53 61 76 65 0d 13 2e 0c e7 20 69 25 3d 33 20 |oSave..... i%=3 |
00002920 8c 0d 13 38 2c 20 20 20 20 20 20 20 20 20 20 20 |...8, |
00002930 20 c8 99 20 22 57 69 6d 70 5f 47 65 74 50 6f 69 | .. "Wimp_GetPoi|
00002940 6e 74 65 72 49 6e 66 6f 22 2c 2c 71 25 0d 13 42 |nterInfo",,q%..B|
00002950 2e 20 20 20 20 20 20 20 20 20 20 20 20 f2 64 72 |. .dr|
00002960 61 67 69 63 6f 6e 28 71 25 21 30 2c 71 25 21 34 |agicon(q%!0,q%!4|
00002970 2c 53 56 57 49 4e 25 2c 69 25 29 0d 13 4c 06 20 |,SVWIN%,i%)..L. |
00002980 cd 0d 13 56 04 0d 13 60 0c e7 20 69 25 3d 32 20 |...V...`.. i%=2 |
00002990 8c 0d 13 6a 0e 20 f2 5f 47 65 74 4e 61 6d 65 0d |...j. ._GetName.|
000029a0 13 74 46 20 e7 20 a7 66 6e 24 2c 22 3a 22 29 20 |.tF . .fn$,":") |
000029b0 8c 20 f2 5f 53 61 76 65 20 8b 20 f2 5f 73 65 74 |. ._Save . ._set|
000029c0 75 70 57 28 22 44 72 61 67 20 74 68 65 20 49 63 |upW("Drag the Ic|
000029d0 6f 6e 20 69 6e 74 6f 20 61 20 44 69 72 65 63 74 |on into a Direct|
000029e0 6f 72 79 22 29 0d 13 7e 1d 20 c8 99 20 22 57 69 |ory")..~. .. "Wi|
000029f0 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2c |mp_CreateMenu",,|
00002a00 2d 31 0d 13 88 05 cd 0d 13 92 05 e1 0d 13 9c 04 |-1..............|
00002a10 0d 13 a6 0c dd 20 f2 5f 53 61 76 65 0d 13 b0 15 |..... ._Save....|
00002a20 ea 20 63 68 25 2c 73 78 25 2c 73 79 25 2c 73 6d |. ch%,sx%,sy%,sm|
00002a30 25 0d 13 ba 3d e7 20 a9 28 66 6e 24 29 3d 30 20 |%...=. .(fn$)=0 |
00002a40 8c 20 f2 5f 73 65 74 75 70 57 28 22 59 6f 75 20 |. ._setupW("You |
00002a50 6e 65 65 64 20 74 6f 20 70 75 74 20 69 6e 20 61 |need to put in a|
00002a60 20 66 69 6c 65 20 6e 61 6d 65 22 29 3a e1 0d 13 | file name"):...|
00002a70 c4 40 e7 20 c2 66 6e 24 2c 31 29 3d 22 2e 22 20 |.@. .fn$,1)="." |
00002a80 8c 20 f2 5f 73 65 74 75 70 57 28 22 59 6f 75 20 |. ._setupW("You |
00002a90 6e 65 65 64 20 74 6f 20 70 75 74 20 69 6e 20 61 |need to put in a|
00002aa0 20 66 69 6c 65 20 6e 61 6d 65 22 29 3a e1 0d 13 | file name"):...|
00002ab0 ce 0d f4 20 53 61 76 65 20 69 74 0d 13 d8 23 c8 |... Save it...#.|
00002ac0 99 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |. "OS_SpriteOp",|
00002ad0 31 32 2b 32 35 36 2c 53 50 25 2c 66 6e 24 0d 13 |12+256,SP%,fn$..|
00002ae0 e2 12 f2 5f 50 75 74 4e 61 6d 65 28 66 6e 24 29 |..._PutName(fn$)|
00002af0 0d 13 ec 05 e1 0d 13 f6 04 0d 14 00 2e dd 20 f2 |.............. .|
00002b00 64 72 61 67 69 63 6f 6e 28 6d 6f 75 73 65 78 25 |dragicon(mousex%|
00002b10 2c 6d 6f 75 73 65 79 25 2c 68 61 6e 64 6c 65 25 |,mousey%,handle%|
00002b20 2c 69 63 6f 6e 25 29 0d 14 0a 21 ea 20 62 78 25 |,icon%)...!. bx%|
00002b30 2c 62 79 25 2c 69 78 30 25 2c 69 79 30 25 2c 69 |,by%,ix0%,iy0%,i|
00002b40 78 31 25 2c 69 79 31 25 0d 14 14 12 f2 67 65 74 |x1%,iy1%.....get|
00002b50 77 28 68 61 6e 64 6c 65 25 29 0d 14 1e 18 f2 67 |w(handle%).....g|
00002b60 65 74 69 28 68 61 6e 64 6c 65 25 2c 69 63 6f 6e |eti(handle%,icon|
00002b70 25 29 0d 14 28 16 21 71 25 3d 68 61 6e 64 6c 65 |%)..(.!q%=handle|
00002b80 25 3a 71 25 21 34 3d 35 0d 14 32 3e 71 25 21 38 |%:q%!4=5..2>q%!8|
00002b90 3d 62 78 25 2b 69 78 30 25 3a 71 25 21 31 32 3d |=bx%+ix0%:q%!12=|
00002ba0 62 79 25 2b 69 79 30 25 3a 71 25 21 31 36 3d 62 |by%+iy0%:q%!16=b|
00002bb0 78 25 2b 69 78 31 25 3a 71 25 21 32 30 3d 62 79 |x%+ix1%:q%!20=by|
00002bc0 25 2b 69 79 31 25 0d 14 3c 2a 71 25 21 32 34 3d |%+iy1%..<*q%!24=|
00002bd0 71 25 21 38 2d 6d 6f 75 73 65 78 25 3a 71 25 21 |q%!8-mousex%:q%!|
00002be0 32 38 3d 71 25 21 31 32 2d 6d 6f 75 73 65 79 25 |28=q%!12-mousey%|
00002bf0 0d 14 46 19 c8 99 20 22 57 69 6d 70 5f 44 72 61 |..F... "Wimp_Dra|
00002c00 67 42 6f 78 22 2c 2c 71 25 0d 14 50 0c 53 46 4c |gBox",,q%..P.SFL|
00002c10 41 47 25 3d b9 0d 14 5a 05 e1 0d 14 64 04 0d 14 |AG%=...Z....d...|
00002c20 6e 14 dd 20 f2 67 65 74 77 28 68 61 6e 64 6c 65 |n.. .getw(handle|
00002c30 25 29 0d 14 78 38 21 71 25 3d 68 61 6e 64 6c 65 |%)..x8!q%=handle|
00002c40 25 3a c8 99 20 22 57 69 6d 70 5f 47 65 74 57 69 |%:.. "Wimp_GetWi|
00002c50 6e 64 6f 77 53 74 61 74 65 22 2c 2c 71 25 3a f2 |ndowState",,q%:.|
00002c60 69 6e 66 6f 28 71 25 2b 34 29 0d 14 82 05 e1 0d |info(q%+4)......|
00002c70 14 8c 12 dd 20 f2 67 65 74 69 28 68 25 2c 69 25 |.... .geti(h%,i%|
00002c80 29 0d 14 96 2d 21 71 25 3d 68 25 3a 71 25 21 34 |)...-!q%=h%:q%!4|
00002c90 3d 69 25 3a c8 99 20 22 57 69 6d 70 5f 47 65 74 |=i%:.. "Wimp_Get|
00002ca0 49 63 6f 6e 53 74 61 74 65 22 2c 2c 71 25 0d 14 |IconState",,q%..|
00002cb0 a0 2e 69 78 30 25 3d 71 25 21 38 3a 69 79 30 25 |..ix0%=q%!8:iy0%|
00002cc0 3d 71 25 21 31 32 3a 69 78 31 25 3d 71 25 21 31 |=q%!12:ix1%=q%!1|
00002cd0 36 3a 69 79 31 25 3d 71 25 21 32 30 0d 14 aa 1e |6:iy1%=q%!20....|
00002ce0 69 66 6c 61 67 73 25 3d 71 25 21 32 34 3a 69 64 |iflags%=q%!24:id|
00002cf0 61 74 61 25 3d 71 25 2b 32 38 0d 14 b4 05 e1 0d |ata%=q%+28......|
00002d00 14 be 04 0d 14 c8 0f dd 20 f2 69 6e 66 6f 28 70 |........ .info(p|
00002d10 25 29 0d 14 d2 0d ea 20 78 30 25 2c 79 30 25 0d |%)..... x0%,y0%.|
00002d20 14 dc 27 78 30 25 3d 21 70 25 3a 79 30 25 3d 70 |..'x0%=!p%:y0%=p|
00002d30 25 21 34 3a 78 31 25 3d 70 25 21 38 3a 79 31 25 |%!4:x1%=p%!8:y1%|
00002d40 3d 70 25 21 31 32 0d 14 e6 35 73 63 78 25 3d 70 |=p%!12...5scx%=p|
00002d50 25 21 31 36 3a 73 63 79 25 3d 70 25 21 32 30 3a |%!16:scy%=p%!20:|
00002d60 62 68 61 6e 64 6c 65 25 3d 70 25 21 32 34 3a 66 |bhandle%=p%!24:f|
00002d70 6c 61 67 73 25 3d 70 25 21 32 38 0d 14 f0 1d 62 |lags%=p%!28....b|
00002d80 78 25 3d 78 30 25 2d 73 63 78 25 3a 62 79 25 3d |x%=x0%-scx%:by%=|
00002d90 79 31 25 2d 73 63 79 25 0d 14 fa 05 e1 0d 15 04 |y1%-scy%........|
00002da0 04 0d 15 0e 04 0d 15 18 0f dd 20 f2 5f 47 65 74 |.......... ._Get|
00002db0 4e 61 6d 65 0d 15 22 0e ea 20 54 25 2c 41 25 2c |Name..".. T%,A%,|
00002dc0 46 24 0d 15 2c 10 46 24 3d 22 22 3a 66 6e 24 3d |F$..,.F$="":fn$=|
00002dd0 22 22 0d 15 36 16 71 25 21 30 3d 53 56 57 49 4e |""..6.q%!0=SVWIN|
00002de0 25 3a 71 25 21 34 3d 31 0d 15 40 1e c8 99 20 22 |%:q%!4=1..@... "|
00002df0 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 |Wimp_GetIconStat|
00002e00 65 22 2c 2c 71 25 0d 15 4a 0c 54 25 3d 71 25 21 |e",,q%..J.T%=q%!|
00002e10 32 38 0d 15 54 09 54 25 2d 3d 31 0d 15 5e 05 f5 |28..T.T%-=1..^..|
00002e20 0d 15 68 09 54 25 2b 3d 31 0d 15 72 10 46 24 3d |..h.T%+=1..r.F$=|
00002e30 46 24 2b bd 28 3f 54 25 29 0d 15 7c 0b fd 20 3f |F$+.(?T%)..|.. ?|
00002e40 54 25 3d 30 0d 15 86 16 66 6e 24 3d c1 46 24 2c |T%=0....fn$=.F$,|
00002e50 31 2c a9 28 46 24 29 2d 31 29 0d 15 90 05 e1 0d |1,.(F$)-1)......|
00002e60 15 9a 04 0d 15 a4 13 dd 20 f2 5f 50 75 74 44 6f |........ ._PutDo|
00002e70 77 6e 28 71 25 29 0d 15 ae 0d f2 5f 47 65 74 4e |wn(q%)....._GetN|
00002e80 61 6d 65 0d 15 b8 20 c8 99 20 22 57 69 6d 70 5f |ame... .. "Wimp_|
00002e90 47 65 74 50 6f 69 6e 74 65 72 49 6e 66 6f 22 2c |GetPointerInfo",|
00002ea0 2c 71 25 0d 15 c2 35 6d 65 73 73 68 25 3d 71 25 |,q%...5messh%=q%|
00002eb0 21 31 32 3a 6d 65 73 73 69 25 3d 71 25 21 31 36 |!12:messi%=q%!16|
00002ec0 3a 6d 65 73 73 78 25 3d 71 25 21 30 3a 6d 65 73 |:messx%=q%!0:mes|
00002ed0 73 79 25 3d 71 25 21 34 0d 15 cc 23 e7 20 a7 20 |sy%=q%!4...#. . |
00002ee0 66 6e 24 2c 22 3a 22 29 20 8c 20 66 6e 24 3d a4 |fn$,":") . fn$=.|
00002ef0 5f 73 70 61 74 68 28 66 6e 24 29 0d 15 d6 10 24 |_spath(fn$)....$|
00002f00 28 71 25 2b 34 34 29 3d 66 6e 24 0d 15 e0 15 3f |(q%+44)=fn$....?|
00002f10 28 71 25 2b 34 34 2b a9 28 66 6e 24 29 29 3d 30 |(q%+44+.(fn$))=0|
00002f20 0d 15 ea 3b 71 25 21 32 30 3d 71 25 21 31 32 3a |...;q%!20=q%!12:|
00002f30 71 25 21 32 38 3d 71 25 21 30 3a 71 25 21 33 32 |q%!28=q%!0:q%!32|
00002f40 3d 71 25 21 34 3a 71 25 21 33 36 3d 61 73 7a 25 |=q%!4:q%!36=asz%|
00002f50 3a 71 25 21 34 30 3d 26 46 46 39 0d 15 f4 1b 71 |:q%!40=&FF9....q|
00002f60 25 21 30 3d 35 36 3a 71 25 21 31 32 3d 30 3a 71 |%!0=56:q%!12=0:q|
00002f70 25 21 31 36 3d 31 0d 15 fe 2d c8 99 20 22 57 69 |%!16=1...-.. "Wi|
00002f80 6d 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 22 2c |mp_SendMessage",|
00002f90 31 37 2c 71 25 2c 6d 65 73 73 68 25 2c 6d 65 73 |17,q%,messh%,mes|
00002fa0 73 69 25 0d 16 08 11 73 61 76 65 72 65 66 25 3d |si%....saveref%=|
00002fb0 71 25 21 38 0d 16 12 1c c8 99 20 22 57 69 6d 70 |q%!8...... "Wimp|
00002fc0 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2c 2d 31 |_CreateMenu",,-1|
00002fd0 0d 16 1c 05 e1 0d 16 26 04 0d 16 30 11 dd 20 a4 |.......&...0.. .|
00002fe0 5f 73 70 61 74 68 28 6e 24 29 0d 16 3a 0f c8 95 |_spath(n$)..:...|
00002ff0 20 a7 6e 24 2c 22 2e 22 29 0d 16 44 13 6e 24 3d | .n$,".")..D.n$=|
00003000 c2 6e 24 2c a9 28 6e 24 29 2d 31 29 0d 16 4e 05 |.n$,.(n$)-1)..N.|
00003010 ce 0d 16 58 1b e7 20 a9 28 6e 24 29 3e 31 30 20 |...X.. .(n$)>10 |
00003020 8c 20 6e 24 3d c2 6e 24 2c 31 30 29 0d 16 62 07 |. n$=.n$,10)..b.|
00003030 3d 6e 24 0d 16 6c 04 0d 16 76 13 dd 20 f2 5f 50 |=n$..l...v.. ._P|
00003040 75 74 4e 61 6d 65 28 70 24 29 0d 16 80 08 ea 20 |utName(p$)..... |
00003050 54 25 0d 16 8a 16 71 25 21 30 3d 53 56 57 49 4e |T%....q%!0=SVWIN|
00003060 25 3a 71 25 21 34 3d 31 0d 16 94 1e c8 99 20 22 |%:q%!4=1...... "|
00003070 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 |Wimp_GetIconStat|
00003080 65 22 2c 2c 71 25 0d 16 9e 0c 54 25 3d 71 25 21 |e",,q%....T%=q%!|
00003090 32 38 0d 16 a8 0a 24 54 25 3d 70 24 0d 16 b2 11 |28....$T%=p$....|
000030a0 21 28 54 25 2b a9 28 70 24 29 29 3d 30 0d 16 bc |!(T%+.(p$))=0...|
000030b0 05 e1 0d 16 c6 04 0d 16 d0 12 dd 20 f2 5f 73 65 |........... ._se|
000030c0 74 75 70 57 28 74 24 29 0d 16 da 58 21 71 25 3d |tupW(t$)...X!q%=|
000030d0 77 61 72 6e 69 6e 67 57 25 3a 71 25 21 34 3d 32 |warningW%:q%!4=2|
000030e0 30 30 3a 71 25 21 38 3d 32 30 30 3a 71 25 21 31 |00:q%!8=200:q%!1|
000030f0 32 3d 32 30 30 2b 58 51 25 3a 71 25 21 31 36 3d |2=200+XQ%:q%!16=|
00003100 32 30 30 2b 59 51 25 3a 71 25 21 32 30 3d 30 3a |200+YQ%:q%!20=0:|
00003110 71 25 21 32 34 3d 30 3a 71 25 21 32 38 3d 2d 31 |q%!24=0:q%!28=-1|
00003120 0d 16 e4 11 24 54 65 78 74 57 61 72 6e 25 3d 74 |....$TextWarn%=t|
00003130 24 0d 16 ee 15 54 65 78 74 57 61 72 6e 25 3f a9 |$....TextWarn%?.|
00003140 28 74 24 29 3d 30 0d 16 f8 07 ef 20 37 0d 17 02 |(t$)=0..... 7...|
00003150 1c c8 99 20 22 57 69 6d 70 5f 4f 70 65 6e 57 69 |... "Wimp_OpenWi|
00003160 6e 64 6f 77 22 2c 2c 71 25 0d 17 0c 19 c8 97 20 |ndow",,q%...... |
00003170 c8 93 20 32 30 30 2c 32 30 30 2c 58 51 25 2c 59 |.. 200,200,XQ%,Y|
00003180 51 25 0d 17 16 05 e1 0d 17 20 04 0d 17 2a 0e dd |Q%....... ...*..|
00003190 20 f2 5f 50 75 74 50 61 6c 0d 17 34 10 e3 20 41 | ._PutPal..4.. A|
000031a0 25 3d 30 20 b8 20 32 35 35 0d 17 3e 42 42 25 3d |%=0 . 255..>BB%=|
000031b0 28 55 50 25 3f 28 41 25 2a 34 2b 31 29 29 3c 3c |(UP%?(A%*4+1))<<|
000031c0 38 20 84 20 28 55 50 25 3f 28 41 25 2a 34 2b 32 |8 . (UP%?(A%*4+2|
000031d0 29 29 3c 3c 31 36 20 84 20 28 55 50 25 3f 28 41 |))<<16 . (UP%?(A|
000031e0 25 2a 34 2b 33 29 29 3c 3c 32 34 0d 17 48 12 70 |%*4+3))<<24..H.p|
000031f0 61 6c 25 21 28 41 25 2a 38 29 3d 42 25 0d 17 52 |al%!(A%*8)=B%..R|
00003200 14 70 61 6c 25 21 28 41 25 2a 38 2b 34 29 3d 42 |.pal%!(A%*8+4)=B|
00003210 25 0d 17 5c 05 ed 0d 17 66 05 e1 0d 17 70 04 0d |%..\....f....p..|
00003220 17 7a 13 dd 20 f2 5f 73 70 75 74 28 78 25 2c 58 |.z.. ._sput(x%,X|
00003230 24 29 0d 17 84 08 ea 20 41 25 0d 17 8e 12 e3 20 |$)..... A%..... |
00003240 41 25 3d 31 20 b8 20 a9 28 58 24 29 0d 17 98 14 |A%=1 . .(X$)....|
00003250 3f 78 25 3d 97 28 c1 58 24 2c 41 25 2c 31 29 29 |?x%=.(.X$,A%,1))|
00003260 0d 17 a2 09 78 25 2b 3d 31 0d 17 ac 05 ed 0d 17 |....x%+=1.......|
00003270 b6 09 3f 78 25 3d 30 0d 17 c0 05 e1 0d 17 ca 04 |..?x%=0.........|
00003280 0d 17 d4 0f dd 20 f2 5f 53 65 74 43 6f 6c 73 0d |..... ._SetCols.|
00003290 17 de 0e ea 20 67 72 61 62 25 2c 41 25 0d 17 e8 |.... grab%,A%...|
000032a0 04 0d 17 f2 2e c8 99 22 4f 53 5f 52 65 61 64 4d |......."OS_ReadM|
000032b0 6f 64 65 56 61 72 69 61 62 6c 65 22 2c 2d 31 2c |odeVariable",-1,|
000032c0 33 20 b8 20 2c 2c 4e 63 6f 6c 6f 75 72 73 25 0d |3 . ,,Ncolours%.|
000032d0 17 fc 04 0d 18 06 3e c8 99 22 43 6f 6c 6f 75 72 |......>.."Colour|
000032e0 54 72 61 6e 73 5f 53 65 6c 65 63 74 54 61 62 6c |Trans_SelectTabl|
000032f0 65 22 2c 53 50 25 2c 22 54 69 6c 65 72 5f 49 6d |e",SP%,"Tiler_Im|
00003300 61 67 65 22 2c 2d 31 2c 2d 31 2c 50 54 54 25 2c |age",-1,-1,PTT%,|
00003310 30 0d 18 10 05 e1 0d ff |0.......|
00003318 
.