!AWOct93/Goodies/Edit+/!Edit+/Edit+

Home » Archimedes archive » Archimedes World » AW-1993-10.adf » AWOct93 » !AWOct93/Goodies/Edit+/!Edit+/Edit+

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-1993-10.adf » AWOct93
Filename:	!AWOct93/Goodies/Edit+/!Edit+/Edit+
Read OK:	✔
File size:	625B bytes
Load address:	0000
Exec address:	0000

File contents

   10REM --> Edit+
   20
   30REMLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOG
   40REMVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL
   50REM This program and all documentation LEN David Holden 1993
   60REMLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOG
   70REMVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL
   80
   90version$="Edit Plus Ver 0.31"
  100cprt$="� David Holden 1993"
  110purpose$="Extras for Edit"
  120
  130ON ERROR PROCreport_error(TRUE)
  140
  150PROCinitialise
  160filename$=FNcheck_env:IF filename$<>"" PROCinit_load
  170
  180REPEAT
  190SYS "Wimp_Poll",mask%,blk% TO reason%
  200CASE reason% OF
  210 WHEN 1:IF !blk%=view_w% B%=3:CALLcode%  :REM rdv
  220 WHEN 2:SYS"Wimp_OpenWindow",,blk%
  230 WHEN 3:SYS"Wimp_CloseWindow",,blk%:IF !blk%=layout_w% PROCget_page_layout
  240 WHEN 6:PROCclick
  250 WHEN 7:PROCdrag_term(save_w%)
  260 WHEN 8:SYS"Wimp_ProcessKey",blk%!24
  270 WHEN 9:PROCselect
  280 WHEN 17,18:CASE blk%!16 OF
  290     WHEN 0:PROCdie
  300     WHEN 2:I%=blk%+44:WHILE?I%>31:I%+=1:ENDWHILE:?I%=13:PROCsave($(blk%+44))
  310     WHEN 3:PROCload_file
  320     WHEN 5:IF blk%!40=&28A PROCload_file
  330            ENDCASE
  340ENDCASE
  350IF mask%=0 mask%=FNprint
  360UNTIL FALSE
  370
  380DEFPROCselect
  390SYS"Wimp_GetPointerInfo",,blk%+&C0:mb%=blk%!&C8
  400CASE menu_h% OF
  410WHEN main_m%:
  420 IF blk%!4=-1 THEN
  430   CASE !blk% OF
  440     WHEN 2:!blk%=styles_w%:SYS "Wimp_GetWindowState",,blk%
  450            blk%!28=-1:SYS "Wimp_OpenWindow",,blk%
  460     WHEN 3:PROCstart_print(FALSE)
  470     WHEN 4:!blk%=layout_w%:SYS "Wimp_GetWindowState",,blk%
  480            blk%!28=-1:SYS "Wimp_OpenWindow",,blk%
  490     WHEN 5:IF file%=0 I%=FNalert(1,"No file!") ELSE PROCpreview
  500     WHEN 6:CASE file% OF
  510             WHEN 0:
  520             WHEN 1:IF FNalert(3,"Are you sure, file not printed?")=1 PROCclear_file
  530             WHEN 2:IF FNalert(3,"Are you sure, file still being printed?")=1 PROCclear_file
  540             WHEN 3:PROCclear_file
  550            ENDCASE
  560     WHEN 8:PROCdie
  570   ENDCASE
  580 ELSE
  590  CASE !blk% OF
  600   WHEN 0:PROCimmed_code(blk%!4)
  610   WHEN 1:CASE blk%!4 OF
  620           WHEN 0:SYS "OS_Byte",138,0,15
  630           WHEN 1:SYS "OS_Byte",138,0,18
  640           WHEN 2:SYS "OS_Byte",138,0,20
  650           WHEN 3:SYS "OS_Byte",138,0,6
  660           WHEN 4:SYS "OS_Byte",138,0,16
  670           WHEN 5:SYS "OS_Byte",138,0,12
  680          ENDCASE
  690  ENDCASE
  700 ENDIF
  710WHEN view_m%:
  720  IF blk%!4=-1 THEN
  730   CASE !blk% OF
  740    WHEN 0:IF po% B%=5:IF USRcode% I%=FNalert(1,"No visible page break")
  750    WHEN 1:IF po% B%=4:IF USRcode% I%=FNalert(1,"No visible page break")
  760    WHEN 2:I%=remove_m%+4:A%=0:J%=1
  770           REPEAT
  780            I%+=24:IF !I%AND1 A%=A% OR J%
  790            J%=J%<<1
  800           UNTIL !I% AND &80
  810            IF FNalert(3,"Are you sure you want to remove these codes?")=1 B%=6:end%=USRcode%:!blk%=view_w%:B%=3:CALLcode%  :REM rdv
  820    WHEN 3:B%=1:CALLcode%:!blk%=view_w%:B%=3:CALLcode%  :REM rdv
  830   ENDCASE
  840  ELSE
  850   IF !blk%=2 I%=remove_m%+28+(24*blk%!4):!I%=!I%EOR1
  860  ENDIF
  870 ENDIF
  880ENDCASE
  890IF mb%=1 SYS"Wimp_CreateMenu",,menu_h%,mx%,mh%
  900ENDPROC
  910
  920DEFPROCclick
  930SYS"Wimp_GetPointerInfo",,blk%+&C0:mb%=blk%!&C8
  940CASE blk%!12 OF
  950 WHEN -2:IF blk%!16=icon% THEN
  960          CASE mb% OF
  970           WHEN 2:mx%=blk%!&C0-140:mh%=504:menu_h%=main_m%
  980                  SYS"Wimp_CreateMenu",,menu_h%,mx%,mh%
  990           WHEN 4:!blk%=status_w%:SYS "Wimp_GetWindowState",,blk%
 1000                  blk%!28=-1:SYS "Wimp_OpenWindow",,blk%
 1010                  IF eop_paused% THEN
 1020                   !blk%=newpage_w%:SYS "Wimp_GetWindowState",,blk%
 1030                   blk%!28=-1:SYS "Wimp_OpenWindow",,blk%
 1040                  ENDIF
 1050          ENDCASE
 1060         ENDIF
 1070 WHEN layout_w%:
 1080     CASE blk%!16 OF
 1090      WHEN 11,12,13:PROClayout_toggle(blk%!16)
 1100      WHEN 23,24,27,28,31,32:PROClayout_arrow(blk%!16)
 1110      WHEN 25,26,29,30,33,34,35,36,37,38:PROClayout_arrow(blk%!16)
 1120      WHEN 22:PROCsave_layout
 1130      WHEN 42:SYS"OS_File",13,app_dir$+".layout" TO F%
 1140              IF F%=1 PROCload_layout(app_dir$+".layout")ELSE I%=FNalert(1,"No valid layout file")
 1150     ENDCASE
 1160 WHEN styles_w%:SYS "Wimp_ProcessKey",style_table%?(blk%!16)
 1170 WHEN newpage_w%
 1180      CASE blk%!16 OF
 1190       WHEN 2:eop_paused%=FALSE:!blk%=newpage_w%:SYS"Wimp_CloseWindow",,blk%
 1200       WHEN 3:IF FNalert(3,"Are you sure you want to stop printing?")=2 file%=1:!blk%=newpage_w%:SYS"Wimp_CloseWindow",,blk%:mask%=%110000110001
 1210      ENDCASE
 1220         ELSE
 1230 WHEN view_w%:IF mb%=2 THEN
 1240               IF hdl% THEN
 1250                VDU 7
 1260               ELSE
 1270                mx%=blk%!&C0-100:mh%=blk%!&C4+56:menu_h%=view_m%
 1280                SYS"Wimp_CreateMenu",,menu_h%,mx%,mh%
 1290               ENDIF
 1300              ENDIF
 1310 WHEN saveT_w%,saveP_w%:IF blk%!16=0 AND blk%!8=4 save_w%=blk%!12:PROCdrag_file(blk%!12)
 1320
 1330ENDCASE
 1340ENDPROC
 1350
 1360DEFPROCimmed_code(num%)
 1370IF file%=2 I%=FNalert(1,"Printing file, can't send codes"):ENDPROC
 1380IF NOT FNprinter_on ENDPROC
 1390I%=immed_codes%
 1400WHILE num%:I%+=?I%:num%-=1:ENDWHILE
 1410FOR J%=1 TO (?I%)-1:SYS"OS_PrintChar",I%?J%:NEXT
 1420ENDPROC
 1430
 1440DEFPROCget_page_layout
 1450pl%=FNget_layout_value(3)
 1460lm%=FNget_layout_value(4):code%!16=lm%
 1470ts%=FNget_layout_value(5)
 1480hl%=FNget_layout_value(6)
 1490bs%=FNget_layout_value(7)
 1500fl%=FNget_layout_value(8)
 1510sp%=FNget_layout_value(9)
 1520mll%=FNget_layout_value(10):code%!20=mll%
 1530ff%=FNget_layout_toggle(11)
 1540po%=FNget_layout_toggle(12)
 1550pp%=FNget_layout_toggle(13)
 1560!blk%=layout_w%:blk%!4=1:SYS "Wimp_GetIconState",,blk%
 1570p%=blk%!28:A%=FNget_codes(pre_print%)
 1580!blk%=layout_w%:blk%!4=2:SYS "Wimp_GetIconState",,blk%
 1590p%=blk%!28:A%=FNget_codes(post_print%)
 1600SYS"OS_Byte",182,0,255 TO ,I%:ignore%=I%AND&7F
 1610IF po% THEN
 1620 sp%-=1:bl%=pl%-bs%
 1630 IF hl%>ts% OR hl%<0 hl%=0
 1640 IF fl%>pl% OR fl%<bl% fl%=0
 1650 code%!12=bl%-ts%
 1660ELSE
 1670 bl%=&10000:hl%=0:ts%=0:code%!12=&10000
 1680ENDIF
 1690ENDPROC
 1700
 1710DEFPROCsend_code(i%)
 1720IF ?i%<2 ENDPROC
 1730FOR J%=1 TO (?i%)-1:SYS"OS_PrintChar",i%?J%:NEXT
 1740ENDPROC
 1750
 1760DEFPROCpreview
 1770PROCget_page_layout
 1780B%=2:I%=(USRcode%)
 1790!blk%=0:blk%!4=-(I%*32)-1:blk%!8=(mll%+lm%+2)*16:blk%!12=0
 1800SYS"Wimp_SetExtent",view_w%,blk%
 1810!blk%=view_w%:SYS"Wimp_GetWindowState",,blk%
 1820IF new% blk%!20=0:blk%!24=0:new%=FALSE
 1830blk%!28=-1:SYS"Wimp_OpenWindow",,blk%
 1840ENDPROC
 1850
 1860DEFPROCstart_print(hdl%)
 1870IF file%=2 IF FNalert(3,"Already printing, do you want to quit?")=2 ENDPROC
 1880IF file%=0 I%=FNalert(1,"No file loaded"):ENDPROC
 1890PROCget_page_layout
 1900line%=0:ptr%=buffer%:eop_paused%=FALSE
 1910header_flg%=0:header_ptr%=0:footer_flg%=0:footer_ptr%=0
 1920IF po% THEN
 1930 I%=buffer%:L%=0
 1940 REPEAT
 1950  IF ?I%=20 header_ptr%=I%+1
 1960  I%+=1:IF ?I%=13 OR ?I%=10 L%+=1
 1970 UNTIL L%>10 OR header_ptr%>0 OR I%>end%
 1980ENDIF
 1990IF hdl% THEN
 2000 pp%=FALSE:free%=&1000000
 2010 file%=4:I%=FNprint
 2020ELSE
 2030 IF NOT FNprinter_on ENDPROC
 2040 B%=0:IF USRcode% >mll% IF FNalert(3,"Lines longer than the maximum defined found, do you want to continue or cancel?")=2 ENDPROC
 2050 B%=2:CALLcode%
 2060 PROCsend_code(pre_print%)
 2070 PROCupdate_status(4,"Printing")
 2080 file%=2:mask%=FNprint
 2090ENDIF
 2100ENDPROC
 2110
 2120DEFFNprint
 2130LOCAL c%
 2140IF hdl%=FALSE SYS"OS_Byte",128,252 TO ,L%,H%:free%=L%+(H%<<8)
 2150IF free%<&200 OR eop_paused%:=0
 2160REPEAT
 2170IF line%=0 PROCprint_newpage
 2180 c%=?ptr%:ptr%+=1
 2190 CASE c% OF
 2200  WHEN 6 :footer_ptr%=ptr%:PROCfind_sol
 2210  WHEN 10,13:PROCprint_eol
 2220  WHEN 11,12:PROCprint_eop
 2230  WHEN 15:I%=ptr%:C%=0
 2240          WHILE (?I%>13 OR ?I%<10) AND ?I%<>18
 2250           IF ?I%>31 AND style_table%?(?I%)=0 C%+=1
 2260           IF ?I%=16 C%+=2
 2270           I%+=1
 2280          ENDWHILE
 2290          J%=((mll%-C%)DIV2)-len%
 2300          IF hdl% THEN
 2310           WHILE J%>0:SYS"OS_BPut",32,hdl%:len%+=1:J%-=1:ENDWHILE
 2320          ELSE
 2330           WHILE J%>0:SYS"OS_PrintChar",32:free%-=1:len%+=1:J%-=1:ENDWHILE
 2340          ENDIF
 2350  WHEN 16:SYS "OS_ConvertCardinal1",sp%,blk%+&100,32 TO I%,J%
 2360          IF hdl% THEN
 2370           WHILE I%<J%:SYS"OS_BPut",?I%,hdl%:I%+=1:len%+=1:ENDWHILE
 2380          ELSE
 2390           WHILE I%<J%:SYS"OS_PrintChar",?I%:I%+=1:free%-=1:len%+=1:ENDWHILE
 2400          ENDIF
 2410  WHEN 18:I%=ptr%:C%=len%
 2420          WHILE ?I%>13 OR ?I%<10
 2430           IF ?I%>31 AND style_table%?(?I%)=0 C%+=1
 2440           IF ?I%=16 C%+=2
 2450           I%+=1
 2460          ENDWHILE
 2470          J%=mll%-C%
 2480          IF hdl% THEN
 2490           WHILE J%>0:SYS"OS_BPut",32,hdl%:len%+=1:J%-=1:ENDWHILE
 2500          ELSE
 2510           WHILE J%>0:SYS"OS_PrintChar",32:free%-=1:len%+=1:J%-=1:ENDWHILE
 2520          ENDIF
 2530  WHEN 20:header_ptr%=ptr%:PROCfind_sol
 2540 OTHERWISE
 2550   IF code_index%?c% >0 THEN
 2560    IF hdl%=FALSE THEN
 2570     J%=code_index%?c%:I%=codes%
 2580     WHILE J%>1:I%+=?I%:J%-=1:ENDWHILE
 2590     FOR J%=1 TO (?I%)-1:SYS"OS_PrintChar",I%?J%:free%-=1:NEXT
 2600     IF trans_index%?c% len%+=1
 2610    ELSE
 2620     IF trans_index%?c% SYS"OS_BPut",c%,hdl%:len%+=1
 2630    ENDIF
 2640   ELSE
 2650    len%+=1:IF hdl% SYS"OS_BPut",c%,hdl% ELSE SYS"OS_PrintChar",c%:free%-=1
 2660   ENDIF
 2670 ENDCASE
 2680UNTIL free%<20 OR ptr%>=end% OR eop_paused%
 2690
 2700IF ptr%>=end% THEN
 2710 IF hdl% THEN
 2720  IF po% IF file%<>3 PROCprint_eop:file%=3:I%=FNprint:=%110000110001
 2730  SYS"OS_Find",0,hdl%:SYS"OS_File",18,splsv$,&FFF
 2740  SYS"Hourglass_Off":hdl%=FALSE
 2750 ELSE
 2760  PROCsend_code(post_print%)
 2770  IF po% IF file%<>3 PROCprint_eop:file%=3:=0
 2780  file%=3:PROCstatus_value(3,0):PROCupdate_status(4,"Waiting")
 2790 ENDIF
 2800=%110000110001
 2810ELSE
 2820 IF eop_paused% PROCupdate_status(4,"!Paper")
 2830 PROCstatus_value(3,end%-ptr%)
 2840ENDIF
 2850=0
 2860
 2870DEFPROCprint_eop
 2880IF NOT po% PROCprint_eol:ENDPROC
 2890IF fl% THEN
 2900 WHILE line%<fl%:PROCprint_newline:ENDWHILE
 2910 PROCprint_sol
 2920ELSE
 2930 PROCprint_page_bottom
 2940ENDIF
 2950ENDPROC
 2960
 2970DEFPROCprint_newline
 2980IF hdl% THEN
 2990 SYS"OS_BPut",10,hdl%
 3000ELSE
 3010 SYS"OS_PrintChar",13:free%-=1
 3020 IF ignore% <>10 SYS"OS_PrintChar",10:free%-=1
 3030ENDIF
 3040line%+=1
 3050ENDPROC
 3060
 3070DEFPROCprint_eol
 3080PROCprint_newline
 3090IF header_flg% THEN
 3100 ptr%=header_flg%:header_flg%=0
 3110 WHILE line%<ts%:PROCprint_newline:ENDWHILE
 3120 PROCprint_sol
 3130ELSE
 3140 IF footer_flg% THEN
 3150  ptr%=footer_flg%:footer_flg%=0:PROCprint_page_bottom
 3160 ELSE
 3170  PROCprint_sol
 3180 ENDIF
 3190ENDIF
 3200ENDPROC
 3210
 3220DEFPROCprint_page_bottom
 3230IF ff% THEN
 3240 IF hdl% SYS"OS_BPut",12,hdl% ELSE SYS"OS_PrintChar",12:free%-=1
 3250ELSE
 3260 WHILE line%<=pl%:PROCprint_newline:ENDWHILE
 3270ENDIF
 3280IF pp% THEN
 3290 PROCupdate_status(4,"!Paper")
 3300 !blk%=newpage_w%:SYS "Wimp_GetWindowState",,blk%
 3310 blk%!28=-1:SYS "Wimp_OpenWindow",,blk%
 3320 VDU 7:eop_paused%=TRUE
 3330ENDIF
 3340line%=0
 3350ENDPROC
 3360
 3370DEFPROCprint_sol
 3380IF po% THEN
 3390 CASE line% OF
 3400  WHEN 0  :PROCprint_newpage
 3410  WHEN hl%:IF header_ptr% header_flg%=ptr%:ptr%=header_ptr%
 3420  WHEN fl%:IF footer_ptr% footer_flg%=ptr%:ptr%=footer_ptr%
 3430  WHEN bl%:IF fl%>0 AND footer_ptr%>0 THEN
 3440            WHILE line%<fl%:PROCprint_newline:ENDWHILE
 3450            footer_flg%=ptr%:ptr%=footer_ptr%
 3460           ELSE
 3470            PROCprint_page_bottom:ENDPROC
 3480           ENDIF
 3490  WHEN pl%:PROCprint_newpage
 3500 ENDCASE
 3510ENDIF
 3520I%=lm%:len%=0
 3530IF ?ptr%<14 IF ?ptr%>9 ENDPROC
 3540IF hdl% THEN
 3550 WHILE I%:SYS"OS_BPut",32,hdl%:I%-=1:ENDWHILE
 3560ELSE
 3570 WHILE I%:SYS"OS_PrintChar",32:I%-=1:ENDWHILE
 3580ENDIF
 3590ENDPROC
 3600
 3610DEFPROCprint_newpage
 3620line%=1:sp%+=1:len%=0
 3630IF po%=FALSE PROCprint_sol:ENDPROC
 3640IF file%=3 ENDPROC
 3650IF hl% >0 THEN
 3660 WHILE line%<hl%:PROCprint_newline:ENDWHILE
 3670ELSE
 3680 WHILE line%<=ts%:PROCprint_newline:ENDWHILE
 3690ENDIF
 3700PROCprint_sol
 3710ENDPROC
 3720
 3730DEFPROCfind_sol
 3740WHILE (?ptr%>13 OR ?ptr%<10) AND ptr%<end%:ptr%+=1:ENDWHILE
 3750ptr%+=1
 3760ENDPROC
 3770 
 3780DEFPROClayout_toggle(num%)
 3790IF FNget_layout_toggle(num%) $(blk%!28)="optoff" ELSE $(blk%!28)="opton"
 3800blk%!8=0:blk%!12=0
 3810SYS "Wimp_SetIconState",,blk%
 3820ENDPROC
 3830
 3840DEFFNget_layout_toggle(num%)
 3850!blk%=layout_w%:blk%!4=num%
 3860SYS "Wimp_GetIconState",,blk%
 3870IF $(blk%!28)="opton":=TRUE:ELSE:=FALSE
 3880
 3890DEFFNget_layout_value(num%)
 3900!blk%=layout_w%:blk%!4=num%
 3910SYS "Wimp_GetIconState",,blk%
 3920=VAL($(blk%!28))
 3930
 3940DEFPROCset_layout_value(num%,val%)
 3950!blk%=layout_w%:blk%!4=num%
 3960SYS "Wimp_GetIconState",,blk%
 3970$(blk%!28)=STR$(val%)
 3980blk%!8=0:blk%!12=0
 3990SYS "Wimp_SetIconState",,blk%
 4000ENDPROC
 4010
 4020DEFPROClayout_arrow(num%)
 4030LOCAL val%
 4040I%=num%MOD2:IF I%=0 I%=-1
 4050num%=((num%+1)DIV2)-9
 4060PROCset_layout_value(num%,FNget_layout_value(num%)+I%)
 4070ENDPROC
 4080
 4090================================================================
 4100
 4110DEFPROCdrag_file(w%)
 4120!blk%=w%:SYS"Wimp_GetWindowState",,blk%
 4130X%=blk%!4-blk%!20:Y%=blk%!16-blk%!24
 4140blk%!4=0:SYS"Wimp_GetIconState",,blk%
 4150!blk%=w%:blk%!4=5:blk%!8=blk%!8+X%:blk%!12=blk%!12+Y%
 4160blk%!16=blk%!16+X%:blk%!20=blk%!20+Y%:blk%!24=0:blk%!28=0
 4170blk%!32=&7FFFFFFF:blk%!36=&7FFFFFFF
 4180SYS"Wimp_DragBox",,blk%
 4190ENDPROC
 4200
 4210DEFPROCdrag_term(w%)
 4220blk%!&80=w%:blk%!&84=1:SYS"Wimp_GetIconState",,blk%+&80
 4230I%=(blk%!&9C):WHILE INSTR($(I%),"."):I%+=1:ENDWHILE:leaf$=$(I%)
 4240SYS"Wimp_GetPointerInfo",,blk%
 4250blk%!20=blk%!12:blk%!24=blk%!16:blk%!28=!blk%:blk%!32=blk%!4
 4260blk%!36=end%-buffer%:blk%!40=&FFD:blk%!16=1:$(blk%+44)=leaf$
 4270!blk%=(LEN(leaf$)+49)ANDNOT3:blk%!12=0
 4280SYS"Wimp_SendMessage",17,blk%,blk%!20,blk%!24
 4290ENDPROC
 4300
 4310DEFPROCsave(name$)
 4320 PROCget_page_layout
 4330IF save_w%=saveT_w% THEN
 4340 splsv$=name$
 4350 SYS "XOS_Find",&83,name$ TO err%;F%
 4360 IF F%AND1 PROCx_error:ENDPROC
 4370 SYS"Hourglass_On"
 4380 PROCstart_print(err%)
 4390ELSE
 4400 p%=buffer%-110
 4410 PROCinsert_param("PL",FNget_layout_value(3))
 4420 PROCinsert_param("TS",FNget_layout_value(5))
 4430 PROCinsert_param("BS",FNget_layout_value(7))
 4440 PROCinsert_param("HL",FNget_layout_value(6))
 4450 PROCinsert_param("FL",FNget_layout_value(8))
 4460 PROCinsert_param("LM",FNget_layout_value(4))
 4470 PROCinsert_param("LL",FNget_layout_value(10))
 4480 PROCinsert_param("SP",FNget_layout_value(9))
 4490 IF FNget_layout_toggle(11) PROCinsert_param("FF",-&300) ELSE PROCinsert_param("FF",-&200)
 4500 IF FNget_layout_toggle(12) PROCinsert_param("PG",-&300) ELSE PROCinsert_param("PG",-&200)
 4510 IF FNget_layout_toggle(13) PROCinsert_param("PP",-&300) ELSE PROCinsert_param("PP",-&200)
 4520 SYS "XOS_File",10,name$,&28A,,buffer%-110,end% TO err%;F%
 4530 IF F%AND1 PROCx_error:ENDPROC
 4540ENDIF
 4550ENDPROC
 4560
 4570DEFPROCinsert_param(par$,par%)
 4580$p%=".."+par$+"     "
 4590CASE par% OF
 4600 WHEN -&200:$(p%+5)="OFF"
 4610 WHEN -&300:$(p%+5)="ON"
 4620OTHERWISE
 4630 $(p%+5)=STR$(par%)
 4640ENDCASE
 4650I%=p%:REPEAT:I%+=1:UNTIL?I%<32:?I%=32
 4660p%+=10:p%?-1=10
 4670ENDPROC
 4680
 4690DEFPROCsetcaret(w%,i%)
 4700!blk%=w%:blk%!4=i%:SYS"Wimp_GetIconState",,blk%
 4710SYS"Wimp_SetCaretPosition",w%,i%,,,-1,LEN$(blk%!28)
 4720ENDPROC
 4730
 4740========================================================================
 4750
 4760DEFPROCmain_menu
 4770LOCAL tick,line,write,last:tick=1:line=2:write=4:last=&80
 4780code_m%=FNnew_menu (menubuff%,"Send Code",200)
 4790m%=FNmenu_item ("Form Feed",0,0)
 4800m%=FNmenu_item ("Reset",last,0)
 4810FOR I%=1TO30:m%=FNmenu_item("",last,0):NEXT
 4820effect_m%=FNnew_menu (m%,"Effect Menu",180)
 4830m%=FNmenu_item ("Centre",0,0)
 4840m%=FNmenu_item ("Right align",0,0)
 4850m%=FNmenu_item ("Make Header",0,0)
 4860m%=FNmenu_item ("Make Footer",0,0)
 4870m%=FNmenu_item ("Page number",0,0)
 4880m%=FNmenu_item ("New page",last,0)
 4890main_m%=FNnew_menu (m%,"Edit Plus",180)
 4900m%=FNmenu_item ("Immed Code",0,code_m%)
 4910m%=FNmenu_item ("Effect",0,effect_m%)
 4920m%=FNmenu_item ("Styles",line,0)
 4930m%=FNmenu_item ("Print",0,0)
 4940m%=FNmenu_item ("Page layout",0,0)
 4950m%=FNmenu_item ("Preview",0,0)
 4960m%=FNmenu_item ("Clear text",line,0)
 4970m%=FNmenu_item ("Info",0,info_w%)
 4980m%=FNmenu_item ("Quit",last,0)
 4990remove_m%=FNnew_menu (m%,"Remove Code",200)
 5000m%=FNmenu_item ("Style codes",0,0)
 5010m%=FNmenu_item ("Cntr/R.align",0,0)
 5020m%=FNmenu_item ("Page breaks",0,0)
 5030m%=FNmenu_item ("Headers",0,0)
 5040m%=FNmenu_item ("Footers",last,0)
 5050view_m%=FNnew_menu (m%,"Edit Plus",200)
 5060m%=FNmenu_item ("Page Brk �",0,0)
 5070m%=FNmenu_item ("Page Brk �",line,0)
 5080m%=FNmenu_item ("Remove codes",0,remove_m%)
 5090m%=FNmenu_item ("Repaginate",line,0)
 5100m%=FNmenu_item ("Save Text",0,saveT_w%)
 5110m%=FNmenu_item ("Save Edit+",&80,saveP_w%)
 5120ENDPROC
 5130
 5140======================================================================
 5150
 5160DEFFNnew_menu (a%,menutitle$,menuwidth%)
 5170$a%=menutitle$:a%!12=&70207:a%!16=menuwidth%:a%!20=40:a%!24=0
 5180m%=a%+28
 5190=a%
 5200
 5210DEFFNmenu_item (itemname$,menuflags%,submenu%)
 5220m%!0=menuflags%:m%!4=submenu%:m%!8=&7000001:$(m%+12)=itemname$
 5230=m%+24
 5240
 5250DEFFNindirect (indir$,flags%,indir%)
 5260m%!0=flags%:m%!4=0:m%!8=&7000101:m%!12=indir%:m%!16=-1:m%!20=127
 5270IF indir$ <>"?" $indir%=indir$
 5280=m%+24
 5290
 5300DEFPROCtick_item(m%,i%)
 5310I%=m%+4
 5320REPEAT:I%+=24:!I%=!I%AND NOT 1:UNTIL !I%AND&80
 5330IF NOT i% I%=m%+28+(i%*24):!I%=!I%OR1
 5340ENDPROC
 5350
 5360DEFFNwkspc(sz%)
 5370SYS"Wimp_SlotSize",memsz%+sz%,-1 TO e%
 5380IF e%<(memsz%+sz%):=FALSE:ELSE:=TRUE
 5390
 5400DEFFNiconbar (sprite$,pos%)
 5410!blk%=pos%:blk%!4=-8:blk%!8=0:blk%!12=56
 5420blk%!16=96:blk%!20=&2002:$(blk%+24)="!"+sprite$
 5430SYS "Wimp_CreateIcon",,blk% TO I%
 5440=I%
 5450
 5460DEFPROCreport_error (fatal%)
 5470SYS"Hourglass_Smash"
 5480!blk%=ERR:$(blk%+4)=REPORT$+" at line "+STR$(ERL)+CHR$0
 5490SYS "Wimp_ReportError",blk%,1,title%
 5500IF NOT fatal% ENDPROC
 5510DEFPROCdie
 5520ONERROROFF:SYS "Wimp_CloseDown",hand%,&4B534154
 5530END
 5540
 5550DEFFNalert(flg%,a$)
 5560blk%!&80=0:$(blk%+&84)=a$+CHR$0
 5570SYS"Wimp_ReportError",blk%+&80,16ORflg%,title% TO ,flg%
 5580=flg%
 5590
 5600DEFPROCx_error
 5610SYS"Wimp_ReportError",err%,17,title%
 5620ENDPROC
 5630
 5640DEFPROCtemplates (indirsz%)
 5650DIM indir% indirsz%:E%=indir%+indirsz%
 5660SYS "Wimp_OpenTemplate",,app_dir$+".Templates"
 5670SYS "Wimp_LoadTemplate",,buffer%,indir%,E%,-1,"info",0 TO ,,R%
 5680SYS "Wimp_CreateWindow",,buffer% TO info_w%
 5690SYS "Wimp_LoadTemplate",,buffer%,R%,E%,-1,"layout",0 TO ,,R%
 5700SYS "Wimp_CreateWindow",,buffer% TO layout_w%
 5710SYS "Wimp_LoadTemplate",,buffer%,R%,E%,-1,"status",0 TO ,,R%
 5720SYS "Wimp_CreateWindow",,buffer% TO status_w%
 5730SYS "Wimp_LoadTemplate",,buffer%,R%,E%,-1,"newpage",0 TO ,,R%
 5740SYS "Wimp_CreateWindow",,buffer% TO newpage_w%
 5750SYS "Wimp_LoadTemplate",,buffer%,R%,E%,-1,"styles",0 TO ,,R%
 5760SYS "Wimp_CreateWindow",,buffer% TO styles_w%
 5770SYS "Wimp_LoadTemplate",,buffer%,R%,E%,-1,"view",0 TO ,,R%
 5780SYS "Wimp_CreateWindow",,buffer% TO view_w%
 5790SYS "Wimp_LoadTemplate",,buffer%,R%,E%,-1,"saveP",0 TO ,,R%
 5800SYS "Wimp_CreateWindow",,buffer% TO saveP_w%
 5810SYS "Wimp_LoadTemplate",,buffer%,R%,E%,-1,"saveT",0 TO ,,R%
 5820SYS "Wimp_CreateWindow",,buffer% TO saveT_w%
 5830SYS "Wimp_CloseTemplate"
 5840!blk%=layout_w%:blk%!4=1:SYS "Wimp_GetIconState",,blk%:$(blk%!28)=""
 5850!blk%=layout_w%:blk%!4=2:SYS "Wimp_GetIconState",,blk%:$(blk%!28)=""
 5860!blk%=info_w%:blk%!4=0:SYS "Wimp_GetIconState",,blk%:$(blk%!28)=version$
 5870!blk%=info_w%:blk%!4=1:SYS "Wimp_GetIconState",,blk%:$(blk%!28)=cprt$
 5880!blk%=info_w%:blk%!4=2:SYS "Wimp_GetIconState",,blk%:$(blk%!28)=purpose$
 5890ENDPROC
 5900
 5910DEFPROCdefault_codes
 5920LOCAL DATA
 5930I%=immed_codes%
 5940REPEAT:READ J%:?I%=J%:I%+=1:UNTIL J%=255
 5950I%=0
 5960REPEAT
 5970 READ J%
 5980 IF J%<>163 style_table%?I%=J%
 5990 I%+=1
 6000 code_index%?J%=I%
 6010UNTIL J%=0
 6020trans_index?163=1
 6030I%=codes%
 6040REPEAT:READ J%:?I%=J%:I%+=1:UNTIL J%=255
 6050FOR I%=0TO5:READ a$:PROCstyle_icon(a$,I%):NEXT
 6060PROCset_style_ext(-220)
 6070DATA 2,12, 3,27,64, 0,255
 6080DATA 201,200,218,217,205,204,163,0
 6090DATA 4,27,45,1, 4,27,45,0, 3,27,71, 3,27,72, 3,27,52, 3,27,53
 6100DATA 8,27,82,3,35,27,82,0, 0,255
 6110DATA "Start U/line","End U/line","Start Bold","End Bold","Start Italic","End Italic"
 6120ENDPROC
 6130
 6140DEFPROCinitialise
 6150SYS "Wimp_Initialise",200,&4B534154,"Edit Plus" TO ,hand%
 6160DIM blk% &200, title% 32
 6170$title%="Edit Plus":icon_pos%=-1
 6180layout_id$="Edit Plus v1 Page Layout"
 6190DIM menubuff% &680, code% &800, pre_print% 48, post_print% 48
 6200DIM style_table% 48, code_index% &100, codes% &400, trans_index% &100
 6210DIM immed_codes% &200
 6220LOCALERROR:ONERRORLOCAL PROCreport_error(TRUE)
 6230file%=FALSE:eop_paused%=FALSE:fh%=FALSE
 6240FORI%=0TO252STEP4:code_index%!I%=0:trans_index%!I%=0:NEXT
 6250FORI%=0TO44STEP4:style_table%!I%=0:NEXT
 6260SYS "OS_ReadVarVal","Obey$Dir",blk%,256,0,3 TO ,,I%
 6270blk%?I%=13:app_dir$=$blk%
 6280memsz%=HIMEM-&8000:buffer%=HIMEM+&80
 6290SYS"Hourglass_On"
 6300IF FNwkspc(&2000)=FALSE I%=FNalert(1,"Not enough RAM to run Edit+"):PROCdie
 6310PROCtemplates (&300):PROCmain_menu
 6320SYS"OS_File",13,app_dir$+".DataC" TO F%
 6330IF F%=1 SYS "OS_File",16,app_dir$+".DataC",code% ELSE I%=FNalert(1,"File DataC not present, unable to continue"):PROCdie
 6340SYS"OS_File",13,app_dir$+".config" TO F%
 6350IF F%=1 PROCconfigure ELSE PROCdefault_codes:IF FNalert(3,"Config file not found. Continue using Default configuration?")=2 PROCdie
 6360SYS"OS_File",13,app_dir$+".layout" TO F%
 6370IF F%=1 PROCload_layout(app_dir$+".layout")
 6380icon%=FNiconbar("edit+",icon_pos%)
 6390code%!4=buffer%:code%!24=blk%:code%!28=trans_index%
 6400code%!32=code_index%:code%!48=view_w%
 6410PROCclear_file:SYS"Hourglass_Off"
 6420ENDPROC
 6430
 6440DEFPROCclear_file
 6450PROCupdate_status(1,"")
 6460PROCupdate_status(2,"0")
 6470PROCupdate_status(3,"0")
 6480PROCupdate_status(4,"No File")
 6490blk%!&100=view_w%:SYS"Wimp_CloseWindow",,blk%+&100
 6500filename$="":mask%=%110000110001:new%=TRUE
 6510IF file%=2 SYS "OS_Byte",21,3:SYS"OS_PrintChar",13
 6520file%=FALSE:page_ok%=FALSE:hdl%=FALSE:I%=FNwkspc(0)
 6530ENDPROC
 6540
 6550DEFFNprinter_on
 6560SYS"OS_Byte",128,252 TO ,L%,H%:F%=L%+(H%<<8)
 6570FOR I%=0TO4:SYS"OS_PrintChar",0:NEXT
 6580TIME=0:REPEAT:UNTIL TIME>20
 6590SYS"OS_Byte",128,252 TO ,L%,H%
 6600IF L%+(H%<<8) >=F%:=TRUE
 6610IF FNalert(3,"Printer not ready")=2:=FALSE
 6620=FNprinter_on
 6630
 6640DEFPROCsave_layout
 6650LOCALERROR:ONERRORLOCAL:CLOSE#H%:PROCreport_error(FALSE):ENDPROC
 6660H%=OPENOUT(app_dir$+".layout")
 6670FOR I%=1TOLEN(layout_id$):BPUT#H%,ASC(MID$(layout_id$,I%,1)):NEXT
 6680BPUT#H%,13
 6690FOR I%=1TO13
 6700 !blk%=layout_w%:blk%!4=I%:SYS "Wimp_GetIconState",,blk%
 6710 J%=blk%!28:REPEAT:BPUT#H%,?J%:J%+=1:UNTIL J%?-1 <32
 6720NEXT
 6730CLOSE#H%
 6740ENDPROC
 6750
 6760DEFPROCupdate_status(num%,s$)
 6770blk%!&100=status_w%:blk%!&104=num%
 6780SYS "Wimp_GetIconState",,blk%+&100
 6790$(blk%!&11C)=s$:blk%!&108=0:blk%!&10C=0
 6800SYS "Wimp_SetIconState",,blk%+&100
 6810ENDPROC
 6820
 6830DEFPROCstatus_value(num%,val%)
 6840IF val%<0 val%=0
 6850PROCupdate_status(num%,LEFT$(STR$(val%)+"        ",8))
 6860ENDPROC
 6870
 6880DEFPROCload_layout(f$)
 6890H%=OPENIN(f$):$blk%=GET$#H%
 6900IF $blk%<>layout_id$ CLOSE#H%:I%=FNalert(1,"Bad page layout file"):ENDPROC
 6910FOR I%=1TO13
 6920 $(blk%+&50)=GET$#H%:!blk%=layout_w%: blk%!4=I%:SYS "Wimp_GetIconState",,blk%
 6930 $(blk%!28)=$(blk%+&50):blk%!8=0:blk%!12=0:SYS "Wimp_SetIconState",,blk%
 6940NEXT
 6950CLOSE#H%
 6960ENDPROC
 6970
 6980DEFPROCconfigure
 6990LOCAL icn%,m2%,tc%,tt%,ic%,sc%,wid%
 7000H%=OPENIN(app_dir$+".config")
 7010M%=0:line%=0:W%=40:icn%=0:m2%=code_m%+28:wid%=252
 7020tc%=codes%:tn%=0:sn%=0:ic%=immed_codes%
 7030LOCALERROR:ONERRORLOCAL:CLOSE#H%:I%=FNalert(1,REPORT$+" at line "+STR$(line%)+" in Config file"):PROCdie
 7040REPEAT
 7050 $blk%=GET$#H%:p%=blk%:line%+=1
 7060 WHILE ?p%=32:p%+=1:ENDWHILE
 7070 CASE TRUE OF
 7080  WHEN ?p%<32:line%+=1  :  REM blank line
 7090  WHEN ?p%=92:    REM backslash so ignore line
 7100  WHEN LEFT$($p%,5)="STYLE":M%=1
 7110  WHEN LEFT$($p%,5)="IMMED":M%=2
 7120  WHEN LEFT$($p%,5)="TRANS":M%=3
 7130  WHEN LEFT$($p%,5)="ICONL":icon_pos%=-2
 7140 OTHERWISE
 7150  CASE M% OF
 7160   WHEN 0:
 7170   WHEN 1:WHILE ?p%<33:p%+=1:ENDWHILE
 7180          IF ?p%=62 THEN
 7190           X%=250:Y%=0:p%+=1:wid%=496
 7200           WHILE ?p%<33:p%+=1:ENDWHILE
 7210          ELSE
 7220           X%=0:Y%=44
 7230           ENDIF
 7240          PROCstyle_icon(LEFT$($p%,12),icn%,X%,Y%)
 7250          icn%+=1:p%+=12
 7260          C%=FNtrans_code
 7270          style_table%?sn%=C%:sn%+=1
 7280          tn%+=1:code_index%?C%=tn%
 7290          tc%=FNget_codes(tc%)
 7300   WHEN 2:m%=m2%:m2%=FNmenu_item(LEFT$($p%,12),0,0)
 7310          p%+=12:ic%=FNget_codes(ic%)
 7320   WHEN 3:C%=FNtrans_code:tn%+=1
 7330          code_index%?C%=tn%:trans_index%?C%=1
 7340          tc%=FNget_codes(tc%)
 7350  ENDCASE
 7360 ENDCASE
 7370UNTIL EOF#H%
 7380IF m2%>code_m%+28 m2%!-24=&80
 7390CLOSE#H%
 7400IF W%<40 PROCset_style_ext(W%-48)
 7410ENDIF
 7420ENDPROC
 7430
 7440DEFPROCstyle_icon(str$,num%,x%,y%)
 7450W%-=y%
 7460blk%!&100=styles_w%:blk%!&104=16+x%:blk%!&10C=232+x%
 7470blk%!&110=W%:blk%!&108=blk%!&110-44
 7480blk%!&114=(49OR9<<12OR1<<16OR7<<24):$(blk%+&118)=str$
 7490SYS "Wimp_CreateIcon",,blk%+&100
 7500ENDPROC
 7510
 7520DEFPROCset_style_ext(h%)
 7530blk%!&100=0:blk%!&104=h%:blk%!&108=wid%:blk%!&10C=0
 7540SYS"Wimp_SetExtent",styles_w%,blk%+&100
 7550ENDPROC
 7560
 7570DEFFNget_codes(codes%)
 7580LOCAL count%:count%=1
 7590REPEAT
 7600 codes%?count%=FNtrans_code
 7610 IF codes%?count%<>-1 count%+=1
 7620UNTIL ?p%<32 OR ?p%=ASC"\"
 7630?codes%=count%
 7640=codes%+count%
 7650
 7660DEFFNtrans_code
 7670WHILE ?p%=32 OR ?p%=ASC",":p%+=1:ENDWHILE
 7680CASE ?p% OF
 7690 WHEN ASC"e":I%=27
 7700 WHEN 34,39:p%+=1:I%=?p%
 7710 WHEN 48:SYS"OS_ReadUnsigned",16,p% TO ,,I%
 7720 WHEN 65:SYS"OS_ReadUnsigned",16,p% TO ,,I%
 7730 WHEN 66:SYS"OS_ReadUnsigned",16,p% TO ,,I%
 7740 WHEN 67:SYS"OS_ReadUnsigned",16,p% TO ,,I%
 7750 WHEN 68:SYS"OS_ReadUnsigned",16,p% TO ,,I%
 7760 WHEN 69:SYS"OS_ReadUnsigned",16,p% TO ,,I%
 7770 WHEN 70:SYS"OS_ReadUnsigned",16,p% TO ,,I%
 7780 WHEN 10,13,0:I%=-1:p%-=1
 7790OTHERWISE
 7800 SYS "OS_ReadUnsigned",0,p% TO ,,I%
 7810ENDCASE
 7820REPEAT:p%+=1:UNTIL ?p%<33 OR ?p%=ASC","
 7830=I%
 7840
 7850DEFFNcheck_env
 7860SYS "OS_GetEnv" TO I%
 7870FOR J%=0TO1
 7880 REPEAT:I%+=1:UNTIL ?I%=34 OR ?I%<32:IF ?I%<32:=""
 7890NEXT
 7900REPEAT:I%+=1:UNTIL ?I%<>32:IF ?I%<32:=""
 7910J%=I%:REPEAT:J%+=1:UNTIL ?J%<32:?J%=13
 7920=$I%
 7930
 7940DEFPROCload_file
 7950IF file% IF FNalert(3,"Are you sure, file still loaded?")=2 ENDPROC
 7960LOCALERROR:ONERRORLOCAL:PROCreport_error(FALSE):PROCclear_file:ENDPROC
 7970blk%!12=blk%!8:blk%!16=4:f_type%=blk%!40
 7980I%=blk%+44:filename$="":WHILE ?I%:filename$+=CHR$(?I%):I%+=1:ENDWHILE
 7990SYS "Wimp_SendMessage",17,blk%,blk%!4
 8000IF f_type%<>&FFF AND f_type%<>&28A IF FNalert(3,"This is not a Text file, are you sure you want to print it?")=2 ENDPROC
 8010DEFPROCinit_load
 8020SYS"OS_File",17,filename$ TO I%,,,,len%
 8030IF I%=0 I%=FNalert(1,"File not found"):ENDPROC
 8040IF I%=2 I%=FNalert(1,"Can't print a directory!"):ENDPROC
 8050IF FNwkspc(len%)=FALSE I%=FNalert(1,"Not enough memory to load file"):ENDPROC
 8060SYS"OS_File",16,filename$,buffer% TO ,,,,len%
 8070!blk%=view_w%:SYS"Wimp_CloseWindow",,blk%
 8080file%=1:end%=buffer%+len%
 8090p%=buffer%
 8100WHILE (!p%AND&FFFF)=&2E2E
 8110 CASE (!p% >>16) OF
 8120  WHEN &4C50:PROCget_dot(3)
 8130  WHEN &5354:PROCget_dot(5)
 8140  WHEN &5342:PROCget_dot(7)
 8150  WHEN &4C54:PROCget_dot(6)
 8160  WHEN &4C46:PROCget_dot(8)
 8170  WHEN &4D4C:PROCget_dot(4)
 8180  WHEN &4C4C:PROCget_dot(10)
 8190  WHEN &5053:PROCget_dot(9)
 8200  WHEN &4646:PROCget_onoff(11)
 8210  WHEN &5050:PROCget_onoff(13)
 8220  WHEN &4750:PROCget_onoff(12)
 8230 ENDCASE
 8240 REPEAT:p%+=1:UNTIL p%?-1=10 OR p%?-1=13
 8250ENDWHILE
 8260IF p%>buffer% I%=p%-buffer%:end%-=I%:FOR J%=buffer% TO end%:?J%=J%?I%:NEXT
 8270code%!8=end%
 8280I%=LEN(filename$)
 8290REPEAT:I%-=1:UNTIL INSTR(filename$,".",I%) <>0
 8300leaf$=RIGHT$(filename$,LEN(filename$)-I%)
 8310!blk%=saveT_w%:blk%!4=1:SYS "Wimp_GetIconState",,blk%
 8320$(blk%!28)=leaf$:blk%!8=0:blk%!12=0:SYS "Wimp_SetIconState",,blk%
 8330!blk%=saveP_w%:blk%!4=1:SYS "Wimp_GetIconState",,blk%
 8340$(blk%!28)=leaf$:blk%!8=0:blk%!12=0:SYS "Wimp_SetIconState",,blk%
 8350PROCupdate_status(1,filename$):PROCupdate_status(4,"Waiting")
 8360PROCstatus_value(2,len%):PROCstatus_value(3,len%)
 8370!blk%=status_w%:SYS "Wimp_GetWindowState",,blk%
 8380blk%!28=-1:SYS "Wimp_OpenWindow",,blk%:new%=TRUE
 8390ENDPROC
 8400
 8410DEFPROCget_onoff(i%)
 8420p%+=4:WHILE ?p%=32:p%+=1:ENDWHILE
 8430IF (!p%AND&FFFF)=&4E4F IF FNget_layout_toggle(i%)=FALSE PROClayout_toggle(i%)
 8440IF (!p%AND&FFFF)=&464F IF FNget_layout_toggle(i%) PROClayout_toggle(i%)
 8450ENDPROC
 8460
 8470DEFPROCget_dot(i%)
 8480p%+=4:WHILE ?p%=32:p%+=1:ENDWHILE
 8490IF ?p%=13 OR ?p%=10:ENDPROC
 8500IF (?p%<48 OR ?p%>57) AND ?p%<>45:ENDPROC
 8510SYS"OS_EvaluateExpression",p%,buffer%-&50,&40 TO ,A%,J%:IF A% ENDPROC
 8520PROCset_layout_value(i%,J%)
 8530ENDPROC


� --> Edit+

<�����������������������������������������������������
(<�����������������������������������������������������
2<� This program and all documentation � David Holden 1993
<<�����������������������������������������������������
F<�����������������������������������������������������
P
Z!version$="Edit Plus Ver 0.31"
dcprt$="� David Holden 1993"
npurpose$="Extras for Edit"
x
�� � �report_error(�)
�
��initialise
�3filename$=�check_env:� filename$<>"" �init_load
�
��
�'ș "Wimp_Poll",mask%,blk% � reason%
�Ȏ reason% �
�, � 1:� !blk%=view_w% B%=3:�code%  :� rdv
�" � 2:ș"Wimp_OpenWindow",,blk%
�F � 3:ș"Wimp_CloseWindow",,blk%:� !blk%=layout_w% �get_page_layout
� � 6:�click
� � 7:�drag_term(save_w%)
$ � 8:ș"Wimp_ProcessKey",blk%!24
 � 9:�select
 � 17,18:Ȏ blk%!16 �
"     � 0:�die
,A     � 2:I%=blk%+44:ȕ?I%>31:I%+=1:�:?I%=13:�save($(blk%+44))
6     � 3:�load_file
@&     � 5:� blk%!40=&28A �load_file
J            �
T�
^� mask%=0 mask%=�print
h� �
r
|��select
�2ș"Wimp_GetPointerInfo",,blk%+&C0:mb%=blk%!&C8
�Ȏ menu_h% �
�� main_m%:
� � blk%!4=-1 �
�   Ȏ !blk% �
�;     � 2:!blk%=styles_w%:ș "Wimp_GetWindowState",,blk%
�5            blk%!28=-1:ș "Wimp_OpenWindow",,blk%
�     � 3:�start_print(�)
�;     � 4:!blk%=layout_w%:ș "Wimp_GetWindowState",,blk%
�5            blk%!28=-1:ș "Wimp_OpenWindow",,blk%
�9     � 5:� file%=0 I%=�alert(1,"No file!") � �preview
�     � 6:Ȏ file% �
�             � 0:
P             � 1:� �alert(3,"Are you sure, file not printed?")=1 �clear_file
X             � 2:� �alert(3,"Are you sure, file still being printed?")=1 �clear_file
              � 3:�clear_file
&            �
0     � 8:�die
:   �
D �
N  Ȏ !blk% �
X   � 0:�immed_code(blk%!4)
b   � 1:Ȏ blk%!4 �
l(           � 0:ș "OS_Byte",138,0,15
v(           � 1:ș "OS_Byte",138,0,18
�(           � 2:ș "OS_Byte",138,0,20
�'           � 3:ș "OS_Byte",138,0,6
�(           � 4:ș "OS_Byte",138,0,16
�(           � 5:ș "OS_Byte",138,0,12
�          �
�  �
� �
�� view_m%:
�  � blk%!4=-1 �
�   Ȏ !blk% �
�D    � 0:� po% B%=5:� �code% I%=�alert(1,"No visible page break")
�D    � 1:� po% B%=4:� �code% I%=�alert(1,"No visible page break")
�$    � 2:I%=remove_m%+4:A%=0:J%=1
           �
)            I%+=24:� !I%�1 A%=A% � J%
            J%=J%<<1
            � !I% � &80
*            � �alert(3,"Are you sure you want to remove these codes?")=1 B%=6:end%=�code%:!blk%=view_w%:B%=3:�code%  :� rdv
49    � 3:B%=1:�code%:!blk%=view_w%:B%=3:�code%  :� rdv
>   �
H  �
R6   � !blk%=2 I%=remove_m%+28+(24*blk%!4):!I%=!I%�1
\  �
f �
p�
z0� mb%=1 ș"Wimp_CreateMenu",,menu_h%,mx%,mh%
��
�
���click
�2ș"Wimp_GetPointerInfo",,blk%+&C0:mb%=blk%!&C8
�Ȏ blk%!12 �
� � -2:� blk%!16=icon% �
�          Ȏ mb% �
�;           � 2:mx%=blk%!&C0-140:mh%=504:menu_h%=main_m%
�:                  ș"Wimp_CreateMenu",,menu_h%,mx%,mh%
�A           � 4:!blk%=status_w%:ș "Wimp_GetWindowState",,blk%
�;                  blk%!28=-1:ș "Wimp_OpenWindow",,blk%
�%                  � eop_paused% �
�F                   !blk%=newpage_w%:ș "Wimp_GetWindowState",,blk%
<                   blk%!28=-1:ș "Wimp_OpenWindow",,blk%
                  �
          �
$         �
. � layout_w%:
8     Ȏ blk%!16 �
B,      � 11,12,13:�layout_toggle(blk%!16)
L4      � 23,24,27,28,31,32:�layout_arrow(blk%!16)
V@      � 25,26,29,30,33,34,35,36,37,38:�layout_arrow(blk%!16)
`      � 22:�save_layout
j5      � 42:ș"OS_File",13,app_dir$+".layout" � F%
t^              � F%=1 �load_layout(app_dir$+".layout")� I%=�alert(1,"No valid layout file")
~
     �
�< � styles_w%:ș "Wimp_ProcessKey",style_table%?(blk%!16)
� � newpage_w%
�      Ȏ blk%!16 �
�H       � 2:eop_paused%=�:!blk%=newpage_w%:ș"Wimp_CloseWindow",,blk%
��       � 3:� �alert(3,"Are you sure you want to stop printing?")=2 file%=1:!blk%=newpage_w%:ș"Wimp_CloseWindow",,blk%:mask%=%110000110001
�      �
�         �
� � view_w%:� mb%=2 �
�               � hdl% �
�                � 7
�               �
�D                mx%=blk%!&C0-100:mh%=blk%!&C4+56:menu_h%=view_m%
8                ș"Wimp_CreateMenu",,menu_h%,mx%,mh%

               �
              �
S � saveT_w%,saveP_w%:� blk%!16=0 � blk%!8=4 save_w%=blk%!12:�drag_file(blk%!12)
(
2�
<�
F
P��immed_code(num%)
Z>� file%=2 I%=�alert(1,"Printing file, can't send codes"):�
d� � �printer_on �
nI%=immed_codes%
xȕ num%:I%+=?I%:num%-=1:�
�-� J%=1 � (?I%)-1:ș"OS_PrintChar",I%?J%:�
��
�
���get_page_layout
�pl%=�get_layout_value(3)
�)lm%=�get_layout_value(4):code%!16=lm%
�ts%=�get_layout_value(5)
�hl%=�get_layout_value(6)
�bs%=�get_layout_value(7)
�fl%=�get_layout_value(8)
�sp%=�get_layout_value(9)
�,mll%=�get_layout_value(10):code%!20=mll%
�ff%=�get_layout_toggle(11)
po%=�get_layout_toggle(12)
pp%=�get_layout_toggle(13)
9!blk%=layout_w%:blk%!4=1:ș "Wimp_GetIconState",,blk%
"(p%=blk%!28:A%=�get_codes(pre_print%)
,9!blk%=layout_w%:blk%!4=2:ș "Wimp_GetIconState",,blk%
6)p%=blk%!28:A%=�get_codes(post_print%)
@.ș"OS_Byte",182,0,255 � ,I%:ignore%=I%�&7F
J� po% �
T sp%-=1:bl%=pl%-bs%
^ � hl%>ts% � hl%<0 hl%=0
h � fl%>pl% � fl%<bl% fl%=0
r code%!12=bl%-ts%
|�
�+ bl%=&10000:hl%=0:ts%=0:code%!12=&10000
��
��
�
���send_code(i%)
�
� ?i%<2 �
�-� J%=1 � (?i%)-1:ș"OS_PrintChar",i%?J%:�
��
�
�
��preview
��get_page_layout
�B%=2:I%=(�code%)
�>!blk%=0:blk%!4=-(I%*32)-1:blk%!8=(mll%+lm%+2)*16:blk%!12=0
#ș"Wimp_SetExtent",view_w%,blk%
/!blk%=view_w%:ș"Wimp_GetWindowState",,blk%
%� new% blk%!20=0:blk%!24=0:new%=�
&(blk%!28=-1:ș"Wimp_OpenWindow",,blk%
0�
:
D��start_print(hdl%)
NF� file%=2 � �alert(3,"Already printing, do you want to quit?")=2 �
X-� file%=0 I%=�alert(1,"No file loaded"):�
b�get_page_layout
l&line%=0:ptr%=buffer%:eop_paused%=�
v;header_flg%=0:header_ptr%=0:footer_flg%=0:footer_ptr%=0
�� po% �
� I%=buffer%:L%=0
� �
�  � ?I%=20 header_ptr%=I%+1
�#  I%+=1:� ?I%=13 � ?I%=10 L%+=1
�& � L%>10 � header_ptr%>0 � I%>end%
��
�� hdl% �
� pp%=�:free%=&1000000
� file%=4:I%=�print
��
� � � �printer_on �
�z B%=0:� �code% >mll% � �alert(3,"Lines longer than the maximum defined found, do you want to continue or cancel?")=2 �
 B%=2:�code%
 �send_code(pre_print%)
! �update_status(4,"Printing")
  file%=2:mask%=�print
*�
4�
>
Hݤprint
R� c%
\:� hdl%=� ș"OS_Byte",128,252 � ,L%,H%:free%=L%+(H%<<8)
f!� free%<&200 � eop_paused%:=0
p�
z� line%=0 �print_newpage
� c%=?ptr%:ptr%+=1
� Ȏ c% �
�%  � 6 :footer_ptr%=ptr%:�find_sol
�  � 10,13:�print_eol
�  � 11,12:�print_eop
�  � 15:I%=ptr%:C%=0
�,          ȕ (?I%>13 � ?I%<10) � ?I%<>18
�4           � ?I%>31 � style_table%?(?I%)=0 C%+=1
�           � ?I%=16 C%+=2
�           I%+=1
�          �
�#          J%=((mll%-C%)�2)-len%
�          � hdl% �
	:           ȕ J%>0:ș"OS_BPut",32,hdl%:len%+=1:J%-=1:�
	          �
	C           ȕ J%>0:ș"OS_PrintChar",32:free%-=1:len%+=1:J%-=1:�
	$          �
	.<  � 16:ș "OS_ConvertCardinal1",sp%,blk%+&100,32 � I%,J%
	8          � hdl% �
	B<           ȕ I%<J%:ș"OS_BPut",?I%,hdl%:I%+=1:len%+=1:�
	L          �
	VE           ȕ I%<J%:ș"OS_PrintChar",?I%:I%+=1:free%-=1:len%+=1:�
	`          �
	j  � 18:I%=ptr%:C%=len%
	t           ȕ ?I%>13 � ?I%<10
	~4           � ?I%>31 � style_table%?(?I%)=0 C%+=1
	�           � ?I%=16 C%+=2
	�           I%+=1
	�          �
	�          J%=mll%-C%
	�          � hdl% �
	�:           ȕ J%>0:ș"OS_BPut",32,hdl%:len%+=1:J%-=1:�
	�          �
	�C           ȕ J%>0:ș"OS_PrintChar",32:free%-=1:len%+=1:J%-=1:�
	�          �
	�%  � 20:header_ptr%=ptr%:�find_sol
	� 
	�   � code_index%?c% >0 �
    � hdl%=� �

$     J%=code_index%?c%:I%=codes%
      ȕ J%>1:I%+=?I%:J%-=1:�
;     � J%=1 � (?I%)-1:ș"OS_PrintChar",I%?J%:free%-=1:�
("     � trans_index%?c% len%+=1
2	    �
<6     � trans_index%?c% ș"OS_BPut",c%,hdl%:len%+=1
F	    �
P   �
ZI    len%+=1:� hdl% ș"OS_BPut",c%,hdl% � ș"OS_PrintChar",c%:free%-=1
d   �
n �
x)� free%<20 � ptr%>=end% � eop_paused%
�
�� ptr%>=end% �
�
 � hdl% �
�B  � po% � file%<>3 �print_eop:file%=3:I%=�print:=%110000110001
�3  ș"OS_Find",0,hdl%:ș"OS_File",18,splsv$,&FFF
�  ș"Hourglass_Off":hdl%=�
� �
�  �send_code(post_print%)
�,  � po% � file%<>3 �print_eop:file%=3:=0
�<  file%=3:�status_value(3,0):�update_status(4,"Waiting")
� �
�=%110000110001
��
- � eop_paused% �update_status(4,"!Paper")
 �status_value(3,end%-ptr%)
�
"=0
,
6��print_eop
@� � po% �print_eol:�
J� fl% �
T" ȕ line%<fl%:�print_newline:�
^ �print_sol
h�
r �print_page_bottom
|�
��
�
���print_newline
�� hdl% �
� ș"OS_BPut",10,hdl%
��
�! ș"OS_PrintChar",13:free%-=1
�0 � ignore% <>10 ș"OS_PrintChar",10:free%-=1
��
�line%+=1
��
�
���print_eol
�print_newline
� header_flg% �
# ptr%=header_flg%:header_flg%=0
&" ȕ line%<ts%:�print_newline:�
0 �print_sol
:�
D � footer_flg% �
N7  ptr%=footer_flg%:footer_flg%=0:�print_page_bottom
X �
b  �print_sol
l �
v�
��
�
���print_page_bottom
�� ff% �
�> � hdl% ș"OS_BPut",12,hdl% � ș"OS_PrintChar",12:free%-=1
��
�# ȕ line%<=pl%:�print_newline:�
��
�� pp% �
� �update_status(4,"!Paper")
�4 !blk%=newpage_w%:ș "Wimp_GetWindowState",,blk%
�* blk%!28=-1:ș "Wimp_OpenWindow",,blk%
� � 7:eop_paused%=�

�

line%=0

�

 

*��print_sol

4� po% �

> Ȏ line% �

H  � 0  :�print_newpage

R;  � hl%:� header_ptr% header_flg%=ptr%:ptr%=header_ptr%

\;  � fl%:� footer_ptr% footer_flg%=ptr%:ptr%=footer_ptr%

f%  � bl%:� fl%>0 � footer_ptr%>0 �

p-            ȕ line%<fl%:�print_newline:�

z1            footer_flg%=ptr%:ptr%=footer_ptr%

�           �

�$            �print_page_bottom:�

�           �

�  � pl%:�print_newpage

� �

��

�I%=lm%:len%=0

�� ?ptr%<14 � ?ptr%>9 �

�� hdl% �

�& ȕ I%:ș"OS_BPut",32,hdl%:I%-=1:�

��

�& ȕ I%:ș"OS_PrintChar",32:I%-=1:�

��
�

��print_newpage
$line%=1:sp%+=1:len%=0
.� po%=� �print_sol:�
8� file%=3 �
B� hl% >0 �
L" ȕ line%<hl%:�print_newline:�
V�
`# ȕ line%<=ts%:�print_newline:�
j�
t�print_sol
~�
�
���find_sol
�2ȕ (?ptr%>13 � ?ptr%<10) � ptr%<end%:ptr%+=1:�
�ptr%+=1
��
� 
���layout_toggle(num%)
�G� �get_layout_toggle(num%) $(blk%!28)="optoff" � $(blk%!28)="opton"
�blk%!8=0:blk%!12=0
� ș "Wimp_SetIconState",,blk%
��
�
ݤget_layout_toggle(num%)

!blk%=layout_w%:blk%!4=num%
 ș "Wimp_GetIconState",,blk%
 � $(blk%!28)="opton":=�:�:=�
(
2ݤget_layout_value(num%)
<!blk%=layout_w%:blk%!4=num%
F ș "Wimp_GetIconState",,blk%
P=�($(blk%!28))
Z
d!��set_layout_value(num%,val%)
n!blk%=layout_w%:blk%!4=num%
x ș "Wimp_GetIconState",,blk%
�$(blk%!28)=�(val%)
�blk%!8=0:blk%!12=0
� ș "Wimp_SetIconState",,blk%
��
�
���layout_arrow(num%)
�
� val%
�I%=num%�2:� I%=0 I%=-1
�num%=((num%+1)�2)-9
�6�set_layout_value(num%,�get_layout_value(num%)+I%)
��
�
�D================================================================

��drag_file(w%)
*!blk%=w%:ș"Wimp_GetWindowState",,blk%
"(X%=blk%!4-blk%!20:Y%=blk%!16-blk%!24
,(blk%!4=0:ș"Wimp_GetIconState",,blk%
69!blk%=w%:blk%!4=5:blk%!8=blk%!8+X%:blk%!12=blk%!12+Y%
@=blk%!16=blk%!16+X%:blk%!20=blk%!20+Y%:blk%!24=0:blk%!28=0
J'blk%!32=&7FFFFFFF:blk%!36=&7FFFFFFF
Tș"Wimp_DragBox",,blk%
^�
h
r��drag_term(w%)
|:blk%!&80=w%:blk%!&84=1:ș"Wimp_GetIconState",,blk%+&80
�4I%=(blk%!&9C):ȕ �$(I%),"."):I%+=1:�:leaf$=$(I%)
�!ș"Wimp_GetPointerInfo",,blk%
�@blk%!20=blk%!12:blk%!24=blk%!16:blk%!28=!blk%:blk%!32=blk%!4
�@blk%!36=end%-buffer%:blk%!40=&FFD:blk%!16=1:$(blk%+44)=leaf$
�$!blk%=(�(leaf$)+49)��3:blk%!12=0
�0ș"Wimp_SendMessage",17,blk%,blk%!20,blk%!24
��
�
���save(name$)
� �get_page_layout
�� save_w%=saveT_w% �
� splsv$=name$
�& ș "XOS_Find",&83,name$ � err%;F%
 � F%�1 �x_error:�
 ș"Hourglass_On"
 �start_print(err%)
&�
0 p%=buffer%-110
:- �insert_param("PL",�get_layout_value(3))
D- �insert_param("TS",�get_layout_value(5))
N- �insert_param("BS",�get_layout_value(7))
X- �insert_param("HL",�get_layout_value(6))
b- �insert_param("FL",�get_layout_value(8))
l- �insert_param("LM",�get_layout_value(4))
v. �insert_param("LL",�get_layout_value(10))
�- �insert_param("SP",�get_layout_value(9))
�S � �get_layout_toggle(11) �insert_param("FF",-&300) � �insert_param("FF",-&200)
�S � �get_layout_toggle(12) �insert_param("PG",-&300) � �insert_param("PG",-&200)
�S � �get_layout_toggle(13) �insert_param("PP",-&300) � �insert_param("PP",-&200)
�< ș "XOS_File",10,name$,&28A,,buffer%-110,end% � err%;F%
� � F%�1 �x_error:�
��
��
�
���insert_param(par$,par%)
�$p%=".."+par$+"     "
�
Ȏ par% �
� � -&200:$(p%+5)="OFF"
 � -&300:$(p%+5)="ON"

 $(p%+5)=�(par%)
 �
* I%=p%:�:I%+=1:�?I%<32:?I%=32
4p%+=10:p%?-1=10
>�
H
R��setcaret(w%,i%)
\2!blk%=w%:blk%!4=i%:ș"Wimp_GetIconState",,blk%
f4ș"Wimp_SetCaretPosition",w%,i%,,,-1,�$(blk%!28)
p�
z
�L========================================================================
�
���main_menu
�9� tick,line,write,last:tick=1:line=2:write=4:last=&80
�1code_m%=�new_menu (menubuff%,"Send Code",200)
�#m%=�menu_item ("Form Feed",0,0)
�"m%=�menu_item ("Reset",last,0)
�(� I%=1�30:m%=�menu_item("",last,0):�
�.effect_m%=�new_menu (m%,"Effect Menu",180)
� m%=�menu_item ("Centre",0,0)
�%m%=�menu_item ("Right align",0,0)
�%m%=�menu_item ("Make Header",0,0)
�%m%=�menu_item ("Make Footer",0,0)
%m%=�menu_item ("Page number",0,0)
%m%=�menu_item ("New page",last,0)
*main_m%=�new_menu (m%,"Edit Plus",180)
$*m%=�menu_item ("Immed Code",0,code_m%)
.(m%=�menu_item ("Effect",0,effect_m%)
8#m%=�menu_item ("Styles",line,0)
Bm%=�menu_item ("Print",0,0)
L%m%=�menu_item ("Page layout",0,0)
V!m%=�menu_item ("Preview",0,0)
`'m%=�menu_item ("Clear text",line,0)
j$m%=�menu_item ("Info",0,info_w%)
t!m%=�menu_item ("Quit",last,0)
~.remove_m%=�new_menu (m%,"Remove Code",200)
�%m%=�menu_item ("Style codes",0,0)
�&m%=�menu_item ("Cntr/R.align",0,0)
�%m%=�menu_item ("Page breaks",0,0)
�!m%=�menu_item ("Headers",0,0)
�$m%=�menu_item ("Footers",last,0)
�*view_m%=�new_menu (m%,"Edit Plus",200)
�$m%=�menu_item ("Page Brk �",0,0)
�'m%=�menu_item ("Page Brk �",line,0)
�.m%=�menu_item ("Remove codes",0,remove_m%)
�'m%=�menu_item ("Repaginate",line,0)
�*m%=�menu_item ("Save Text",0,saveT_w%)
�-m%=�menu_item ("Save Edit+",&80,saveP_w%)
�


J======================================================================

()ݤnew_menu (a%,menutitle$,menuwidth%)
2A$a%=menutitle$:a%!12=&70207:a%!16=menuwidth%:a%!20=40:a%!24=0
<m%=a%+28
F=a%
P
Z/ݤmenu_item (itemname$,menuflags%,submenu%)
dBm%!0=menuflags%:m%!4=submenu%:m%!8=&7000001:$(m%+12)=itemname$
n
=m%+24
x
�%ݤindirect (indir$,flags%,indir%)
�Dm%!0=flags%:m%!4=0:m%!8=&7000101:m%!12=indir%:m%!16=-1:m%!20=127
�!� indir$ <>"?" $indir%=indir$
�
=m%+24
�
���tick_item(m%,i%)
�I%=m%+4
�#�:I%+=24:!I%=!I%� � 1:� !I%�&80
�%� � i% I%=m%+28+(i%*24):!I%=!I%�1
��
�
�ݤwkspc(sz%)
�(ș"Wimp_SlotSize",memsz%+sz%,-1 � e%
� e%<(memsz%+sz%):=�:�:=�

ݤiconbar (sprite$,pos%)
",!blk%=pos%:blk%!4=-8:blk%!8=0:blk%!12=56
,3blk%!16=96:blk%!20=&2002:$(blk%+24)="!"+sprite$
6#ș "Wimp_CreateIcon",,blk% � I%
@=I%
J
T��report_error (fatal%)
^ș"Hourglass_Smash"
h,!blk%=�:$(blk%+4)=�$+" at line "+�(�)+�0
r'ș "Wimp_ReportError",blk%,1,title%
|� � fatal% �
�	��die
�+:ș "Wimp_CloseDown",hand%,&4B534154
��
�
�ݤalert(flg%,a$)
� blk%!&80=0:$(blk%+&84)=a$+�0
�8ș"Wimp_ReportError",blk%+&80,16�flg%,title% � ,flg%
�	=flg%
�
�
��x_error
�'ș"Wimp_ReportError",err%,17,title%
��
�
��templates (indirsz%)
(� indir% indirsz%:E%=indir%+indirsz%
1ș "Wimp_OpenTemplate",,app_dir$+".Templates"
&@ș "Wimp_LoadTemplate",,buffer%,indir%,E%,-1,"info",0 � ,,R%
0-ș "Wimp_CreateWindow",,buffer% � info_w%
:>ș "Wimp_LoadTemplate",,buffer%,R%,E%,-1,"layout",0 � ,,R%
D/ș "Wimp_CreateWindow",,buffer% � layout_w%
N>ș "Wimp_LoadTemplate",,buffer%,R%,E%,-1,"status",0 � ,,R%
X/ș "Wimp_CreateWindow",,buffer% � status_w%
b?ș "Wimp_LoadTemplate",,buffer%,R%,E%,-1,"newpage",0 � ,,R%
l0ș "Wimp_CreateWindow",,buffer% � newpage_w%
v>ș "Wimp_LoadTemplate",,buffer%,R%,E%,-1,"styles",0 � ,,R%
�/ș "Wimp_CreateWindow",,buffer% � styles_w%
�<ș "Wimp_LoadTemplate",,buffer%,R%,E%,-1,"view",0 � ,,R%
�-ș "Wimp_CreateWindow",,buffer% � view_w%
�=ș "Wimp_LoadTemplate",,buffer%,R%,E%,-1,"saveP",0 � ,,R%
�.ș "Wimp_CreateWindow",,buffer% � saveP_w%
�=ș "Wimp_LoadTemplate",,buffer%,R%,E%,-1,"saveT",0 � ,,R%
�.ș "Wimp_CreateWindow",,buffer% � saveT_w%
�ș "Wimp_CloseTemplate"
�G!blk%=layout_w%:blk%!4=1:ș "Wimp_GetIconState",,blk%:$(blk%!28)=""
�G!blk%=layout_w%:blk%!4=2:ș "Wimp_GetIconState",,blk%:$(blk%!28)=""
�K!blk%=info_w%:blk%!4=0:ș "Wimp_GetIconState",,blk%:$(blk%!28)=version$
�H!blk%=info_w%:blk%!4=1:ș "Wimp_GetIconState",,blk%:$(blk%!28)=cprt$
�K!blk%=info_w%:blk%!4=2:ș "Wimp_GetIconState",,blk%:$(blk%!28)=purpose$
�

��default_codes
 � �
*I%=immed_codes%
4 �:� J%:?I%=J%:I%+=1:� J%=255
>I%=0
H�
R	 � J%
\! � J%<>163 style_table%?I%=J%
f
 I%+=1
p code_index%?J%=I%
z
� J%=0
�trans_index?163=1
�
I%=codes%
� �:� J%:?I%=J%:I%+=1:� J%=255
�&� I%=0�5:� a$:�style_icon(a$,I%):�
��set_style_ext(-220)
�� 2,12, 3,27,64, 0,255
�#� 201,200,218,217,205,204,163,0
�>� 4,27,45,1, 4,27,45,0, 3,27,71, 3,27,72, 3,27,52, 3,27,53
�!� 8,27,82,3,35,27,82,0, 0,255
�U� "Start U/line","End U/line","Start Bold","End Bold","Start Italic","End Italic"
��
�
���initialise
;ș "Wimp_Initialise",200,&4B534154,"Edit Plus" � ,hand%
� blk% &200, title% 32
$$title%="Edit Plus":icon_pos%=-1
$)layout_id$="Edit Plus v1 Page Layout"
.?� menubuff% &680, code% &800, pre_print% 48, post_print% 48
8G� style_table% 48, code_index% &100, codes% &400, trans_index% &100
B� immed_codes% &200
L�:�� �report_error(�)
Vfile%=�:eop_paused%=�:fh%=�
`4�I%=0�252�4:code_index%!I%=0:trans_index%!I%=0:�
j"�I%=0�44�4:style_table%!I%=0:�
t5ș "OS_ReadVarVal","Obey$Dir",blk%,256,0,3 � ,,I%
~blk%?I%=13:app_dir$=$blk%
� memsz%=�-&8000:buffer%=�+&80
�ș"Hourglass_On"
�E� �wkspc(&2000)=� I%=�alert(1,"Not enough RAM to run Edit+"):�die
� �templates (&300):�main_menu
�)ș"OS_File",13,app_dir$+".DataC" � F%
�s� F%=1 ș "OS_File",16,app_dir$+".DataC",code% � I%=�alert(1,"File DataC not present, unable to continue"):�die
�*ș"OS_File",13,app_dir$+".config" � F%
�x� F%=1 �configure � �default_codes:� �alert(3,"Config file not found. Continue using Default configuration?")=2 �die
�*ș"OS_File",13,app_dir$+".layout" � F%
�+� F%=1 �load_layout(app_dir$+".layout")
�%icon%=�iconbar("edit+",icon_pos%)
�7code%!4=buffer%:code%!24=blk%:code%!28=trans_index%
)code%!32=code_index%:code%!48=view_w%

!�clear_file:ș"Hourglass_Off"
�

(��clear_file
2�update_status(1,"")
<�update_status(2,"0")
F�update_status(3,"0")
P�update_status(4,"No File")
Z5blk%!&100=view_w%:ș"Wimp_CloseWindow",,blk%+&100
d+filename$="":mask%=%110000110001:new%=�
n3� file%=2 ș "OS_Byte",21,3:ș"OS_PrintChar",13
x*file%=�:page_ok%=�:hdl%=�:I%=�wkspc(0)
��
�
�ݤprinter_on
�.ș"OS_Byte",128,252 � ,L%,H%:F%=L%+(H%<<8)
�!� I%=0�4:ș"OS_PrintChar",0:�
��=0:�:� �>20
� ș"OS_Byte",128,252 � ,L%,H%
�� L%+(H%<<8) >=F%:=�
�(� �alert(3,"Printer not ready")=2:=�
�=�printer_on
�
���save_layout
�"�:��:�#H%:�report_error(�):�
H%=�(app_dir$+".layout")
4� I%=1��(layout_id$):�#H%,�(�layout_id$,I%,1)):�
�#H%,13
"
� I%=1�13
,; !blk%=layout_w%:blk%!4=I%:ș "Wimp_GetIconState",,blk%
6, J%=blk%!28:�:�#H%,?J%:J%+=1:� J%?-1 <32
@�
J�#H%
T�
^
h��update_status(num%,s$)
r&blk%!&100=status_w%:blk%!&104=num%
|%ș "Wimp_GetIconState",,blk%+&100
�+$(blk%!&11C)=s$:blk%!&108=0:blk%!&10C=0
�%ș "Wimp_SetIconState",,blk%+&100
��
�
���status_value(num%,val%)
�� val%<0 val%=0
�/�update_status(num%,��(val%)+"        ",8))
��
�
���load_layout(f$)
�H%=�(f$):$blk%=�#H%
�B� $blk%<>layout_id$ �#H%:I%=�alert(1,"Bad page layout file"):�
�
� I%=1�13
M $(blk%+&50)=�#H%:!blk%=layout_w%: blk%!4=I%:ș "Wimp_GetIconState",,blk%
K $(blk%!28)=$(blk%+&50):blk%!8=0:blk%!12=0:ș "Wimp_SetIconState",,blk%
�
&�#H%
0�
:
D��configure
N#� icn%,m2%,tc%,tt%,ic%,sc%,wid%
XH%=�(app_dir$+".config")
b5M%=0:line%=0:W%=40:icn%=0:m2%=code_m%+28:wid%=252
l+tc%=codes%:tn%=0:sn%=0:ic%=immed_codes%
vK�:��:�#H%:I%=�alert(1,�$+" at line "+�(line%)+" in Config file"):�die
��
�  $blk%=�#H%:p%=blk%:line%+=1
� ȕ ?p%=32:p%+=1:�
� Ȏ � �
�(  � ?p%<32:line%+=1  :  � blank line
�-  � ?p%=92:    � backslash so ignore line
�  � �$p%,5)="STYLE":M%=1
�  � �$p%,5)="IMMED":M%=2
�  � �$p%,5)="TRANS":M%=3
�$  � �$p%,5)="ICONL":icon_pos%=-2
� 
�
  Ȏ M% �
�   � 0:
   � 1:ȕ ?p%<33:p%+=1:�
          � ?p%=62 �
)           X%=250:Y%=0:p%+=1:wid%=496
             ȕ ?p%<33:p%+=1:�
*          �
4           X%=0:Y%=44
>           �
H.          �style_icon(�$p%,12),icn%,X%,Y%)
R          icn%+=1:p%+=12
\          C%=�trans_code
f(          style_table%?sn%=C%:sn%+=1
p'          tn%+=1:code_index%?C%=tn%
z!          tc%=�get_codes(tc%)
�.   � 2:m%=m2%:m2%=�menu_item(�$p%,12),0,0)
�(          p%+=12:ic%=�get_codes(ic%)
�    � 3:C%=�trans_code:tn%+=1
�2          code_index%?C%=tn%:trans_index%?C%=1
�!          tc%=�get_codes(tc%)
�  �
� �
�
� �#H%
� � m2%>code_m%+28 m2%!-24=&80
��#H%
�!� W%<40 �set_style_ext(W%-48)
��
��

!��style_icon(str$,num%,x%,y%)

W%-=y%
$8blk%!&100=styles_w%:blk%!&104=16+x%:blk%!&10C=232+x%
.'blk%!&110=W%:blk%!&108=blk%!&110-44
86blk%!&114=(49�9<<12�1<<16�7<<24):$(blk%+&118)=str$
B#ș "Wimp_CreateIcon",,blk%+&100
L�
V
`��set_style_ext(h%)
j7blk%!&100=0:blk%!&104=h%:blk%!&108=wid%:blk%!&10C=0
t*ș"Wimp_SetExtent",styles_w%,blk%+&100
~�
�
�ݤget_codes(codes%)
�� count%:count%=1
��
� codes%?count%=�trans_code
�" � codes%?count%<>-1 count%+=1
�� ?p%<32 � ?p%=�"\"
�?codes%=count%
�=codes%+count%
�
�ݤtrans_code
� ȕ ?p%=32 � ?p%=�",":p%+=1:�
Ȏ ?p% �

 � �"e":I%=27
 � 34,39:p%+=1:I%=?p%
* � 48:ș"OS_ReadUnsigned",16,p% � ,,I%
(* � 65:ș"OS_ReadUnsigned",16,p% � ,,I%
2* � 66:ș"OS_ReadUnsigned",16,p% � ,,I%
<* � 67:ș"OS_ReadUnsigned",16,p% � ,,I%
F* � 68:ș"OS_ReadUnsigned",16,p% � ,,I%
P* � 69:ș"OS_ReadUnsigned",16,p% � ,,I%
Z* � 70:ș"OS_ReadUnsigned",16,p% � ,,I%
d � 10,13,0:I%=-1:p%-=1
n
x% ș "OS_ReadUnsigned",0,p% � ,,I%
��
��:p%+=1:� ?p%<33 � ?p%=�","
�=I%
�
�ݤcheck_env
�ș "OS_GetEnv" � I%
�� J%=0�1
�+ �:I%+=1:� ?I%=34 � ?I%<32:� ?I%<32:=""
��
�"�:I%+=1:� ?I%<>32:� ?I%<32:=""
�!J%=I%:�:J%+=1:� ?J%<32:?J%=13
�=$I%
�
��load_file
>� file% � �alert(3,"Are you sure, file still loaded?")=2 �
)�:��:�report_error(�):�clear_file:�
",blk%!12=blk%!8:blk%!16=4:f_type%=blk%!40
,<I%=blk%+44:filename$="":ȕ ?I%:filename$+=�(?I%):I%+=1:�
6(ș "Wimp_SendMessage",17,blk%,blk%!4
@q� f_type%<>&FFF � f_type%<>&28A � �alert(3,"This is not a Text file, are you sure you want to print it?")=2 �
J��init_load
T)ș"OS_File",17,filename$ � I%,,,,len%
^*� I%=0 I%=�alert(1,"File not found"):�
h4� I%=2 I%=�alert(1,"Can't print a directory!"):�
rD� �wkspc(len%)=� I%=�alert(1,"Not enough memory to load file"):�
|/ș"OS_File",16,filename$,buffer% � ,,,,len%
�,!blk%=view_w%:ș"Wimp_CloseWindow",,blk%
�file%=1:end%=buffer%+len%
�p%=buffer%
�ȕ (!p%�&FFFF)=&2E2E
� Ȏ (!p% >>16) �
�  � &4C50:�get_dot(3)
�  � &5354:�get_dot(5)
�  � &5342:�get_dot(7)
�  � &4C54:�get_dot(6)
�  � &4C46:�get_dot(8)
�  � &4D4C:�get_dot(4)
�  � &4C4C:�get_dot(10)
�  � &5053:�get_dot(9)
   � &4646:�get_onoff(11)
   � &5050:�get_onoff(13)
   � &4750:�get_onoff(12)
 & �
 0" �:p%+=1:� p%?-1=10 � p%?-1=13
 :�
 DG� p%>buffer% I%=p%-buffer%:end%-=I%:� J%=buffer% � end%:?J%=J%?I%:�
 Ncode%!8=end%
 XI%=�(filename$)
 b$�:I%-=1:� �filename$,".",I%) <>0
 l%leaf$=�filename$,�(filename$)-I%)
 v8!blk%=saveT_w%:blk%!4=1:ș "Wimp_GetIconState",,blk%
 �D$(blk%!28)=leaf$:blk%!8=0:blk%!12=0:ș "Wimp_SetIconState",,blk%
 �8!blk%=saveP_w%:blk%!4=1:ș "Wimp_GetIconState",,blk%
 �D$(blk%!28)=leaf$:blk%!8=0:blk%!12=0:ș "Wimp_SetIconState",,blk%
 �;�update_status(1,filename$):�update_status(4,"Waiting")
 �/�status_value(2,len%):�status_value(3,len%)
 �2!blk%=status_w%:ș "Wimp_GetWindowState",,blk%
 �0blk%!28=-1:ș "Wimp_OpenWindow",,blk%:new%=�
 ��
 �
 ���get_onoff(i%)
 �p%+=4:ȕ ?p%=32:p%+=1:�
 �E� (!p%�&FFFF)=&4E4F � �get_layout_toggle(i%)=� �layout_toggle(i%)
 �C� (!p%�&FFFF)=&464F � �get_layout_toggle(i%) �layout_toggle(i%)
!�
!
!��get_dot(i%)
! p%+=4:ȕ ?p%=32:p%+=1:�
!*� ?p%=13 � ?p%=10:�
!4#� (?p%<48 � ?p%>57) � ?p%<>45:�
!>@ș"OS_EvaluateExpression",p%,buffer%-&50,&40 � ,A%,J%:� A% �
!H�set_layout_value(i%,J%)
!R�
�

00000000  0d 00 0a 0f f4 20 2d 2d  3e 20 45 64 69 74 2b 0d  |..... --> Edit+.|
00000010  00 14 04 0d 00 1e 3c f4  ab ab ab ab ab ab ab ab  |......<.........|
00000020  ab ab ab ab ab ab ab ab  ab ab ab ab ab ab ab ab  |................|
*
00000040  ab ab ab ab ab ab ab ab  ab ab ab ab ab ab ab 0d  |................|
00000050  00 28 3c f4 bb bb bb bb  bb bb bb bb bb bb bb bb  |.(<.............|
00000060  bb bb bb bb bb bb bb bb  bb bb bb bb bb bb bb bb  |................|
*
00000080  bb bb bb bb bb bb bb bb  bb bb bb 0d 00 32 3c f4  |.............2<.|
00000090  20 54 68 69 73 20 70 72  6f 67 72 61 6d 20 61 6e  | This program an|
000000a0  64 20 61 6c 6c 20 64 6f  63 75 6d 65 6e 74 61 74  |d all documentat|
000000b0  69 6f 6e 20 a9 20 44 61  76 69 64 20 48 6f 6c 64  |ion . David Hold|
000000c0  65 6e 20 31 39 39 33 0d  00 3c 3c f4 ab ab ab ab  |en 1993..<<.....|
000000d0  ab ab ab ab ab ab ab ab  ab ab ab ab ab ab ab ab  |................|
*
00000100  ab ab ab 0d 00 46 3c f4  bb bb bb bb bb bb bb bb  |.....F<.........|
00000110  bb bb bb bb bb bb bb bb  bb bb bb bb bb bb bb bb  |................|
*
00000130  bb bb bb bb bb bb bb bb  bb bb bb bb bb bb bb 0d  |................|
00000140  00 50 04 0d 00 5a 21 76  65 72 73 69 6f 6e 24 3d  |.P...Z!version$=|
00000150  22 45 64 69 74 20 50 6c  75 73 20 56 65 72 20 30  |"Edit Plus Ver 0|
00000160  2e 33 31 22 0d 00 64 1f  63 70 72 74 24 3d 22 a9  |.31"..d.cprt$=".|
00000170  20 44 61 76 69 64 20 48  6f 6c 64 65 6e 20 31 39  | David Holden 19|
00000180  39 33 22 0d 00 6e 1e 70  75 72 70 6f 73 65 24 3d  |93"..n.purpose$=|
00000190  22 45 78 74 72 61 73 20  66 6f 72 20 45 64 69 74  |"Extras for Edit|
000001a0  22 0d 00 78 04 0d 00 82  18 ee 20 85 20 f2 72 65  |"..x...... . .re|
000001b0  70 6f 72 74 5f 65 72 72  6f 72 28 b9 29 0d 00 8c  |port_error(.)...|
000001c0  04 0d 00 96 0f f2 69 6e  69 74 69 61 6c 69 73 65  |......initialise|
000001d0  0d 00 a0 33 66 69 6c 65  6e 61 6d 65 24 3d a4 63  |...3filename$=.c|
000001e0  68 65 63 6b 5f 65 6e 76  3a e7 20 66 69 6c 65 6e  |heck_env:. filen|
000001f0  61 6d 65 24 3c 3e 22 22  20 f2 69 6e 69 74 5f 6c  |ame$<>"" .init_l|
00000200  6f 61 64 0d 00 aa 04 0d  00 b4 05 f5 0d 00 be 27  |oad............'|
00000210  c8 99 20 22 57 69 6d 70  5f 50 6f 6c 6c 22 2c 6d  |.. "Wimp_Poll",m|
00000220  61 73 6b 25 2c 62 6c 6b  25 20 b8 20 72 65 61 73  |ask%,blk% . reas|
00000230  6f 6e 25 0d 00 c8 10 c8  8e 20 72 65 61 73 6f 6e  |on%...... reason|
00000240  25 20 ca 0d 00 d2 2c 20  c9 20 31 3a e7 20 21 62  |% ...., . 1:. !b|
00000250  6c 6b 25 3d 76 69 65 77  5f 77 25 20 42 25 3d 33  |lk%=view_w% B%=3|
00000260  3a d6 63 6f 64 65 25 20  20 3a f4 20 72 64 76 0d  |:.code%  :. rdv.|
00000270  00 dc 22 20 c9 20 32 3a  c8 99 22 57 69 6d 70 5f  |.." . 2:.."Wimp_|
00000280  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 62 6c 6b  |OpenWindow",,blk|
00000290  25 0d 00 e6 46 20 c9 20  33 3a c8 99 22 57 69 6d  |%...F . 3:.."Wim|
000002a0  70 5f 43 6c 6f 73 65 57  69 6e 64 6f 77 22 2c 2c  |p_CloseWindow",,|
000002b0  62 6c 6b 25 3a e7 20 21  62 6c 6b 25 3d 6c 61 79  |blk%:. !blk%=lay|
000002c0  6f 75 74 5f 77 25 20 f2  67 65 74 5f 70 61 67 65  |out_w% .get_page|
000002d0  5f 6c 61 79 6f 75 74 0d  00 f0 0f 20 c9 20 36 3a  |_layout.... . 6:|
000002e0  f2 63 6c 69 63 6b 0d 00  fa 1c 20 c9 20 37 3a f2  |.click.... . 7:.|
000002f0  64 72 61 67 5f 74 65 72  6d 28 73 61 76 65 5f 77  |drag_term(save_w|
00000300  25 29 0d 01 04 24 20 c9  20 38 3a c8 99 22 57 69  |%)...$ . 8:.."Wi|
00000310  6d 70 5f 50 72 6f 63 65  73 73 4b 65 79 22 2c 62  |mp_ProcessKey",b|
00000320  6c 6b 25 21 32 34 0d 01  0e 10 20 c9 20 39 3a f2  |lk%!24.... . 9:.|
00000330  73 65 6c 65 63 74 0d 01  18 19 20 c9 20 31 37 2c  |select.... . 17,|
00000340  31 38 3a c8 8e 20 62 6c  6b 25 21 31 36 20 ca 0d  |18:.. blk%!16 ..|
00000350  01 22 11 20 20 20 20 20  c9 20 30 3a f2 64 69 65  |.".     . 0:.die|
00000360  0d 01 2c 41 20 20 20 20  20 c9 20 32 3a 49 25 3d  |..,A     . 2:I%=|
00000370  62 6c 6b 25 2b 34 34 3a  c8 95 3f 49 25 3e 33 31  |blk%+44:..?I%>31|
00000380  3a 49 25 2b 3d 31 3a ce  3a 3f 49 25 3d 31 33 3a  |:I%+=1:.:?I%=13:|
00000390  f2 73 61 76 65 28 24 28  62 6c 6b 25 2b 34 34 29  |.save($(blk%+44)|
000003a0  29 0d 01 36 17 20 20 20  20 20 c9 20 33 3a f2 6c  |)..6.     . 3:.l|
000003b0  6f 61 64 5f 66 69 6c 65  0d 01 40 26 20 20 20 20  |oad_file..@&    |
000003c0  20 c9 20 35 3a e7 20 62  6c 6b 25 21 34 30 3d 26  | . 5:. blk%!40=&|
000003d0  32 38 41 20 f2 6c 6f 61  64 5f 66 69 6c 65 0d 01  |28A .load_file..|
000003e0  4a 11 20 20 20 20 20 20  20 20 20 20 20 20 cb 0d  |J.            ..|
000003f0  01 54 05 cb 0d 01 5e 1a  e7 20 6d 61 73 6b 25 3d  |.T....^.. mask%=|
00000400  30 20 6d 61 73 6b 25 3d  a4 70 72 69 6e 74 0d 01  |0 mask%=.print..|
00000410  68 07 fd 20 a3 0d 01 72  04 0d 01 7c 0c dd f2 73  |h.. ...r...|...s|
00000420  65 6c 65 63 74 0d 01 86  32 c8 99 22 57 69 6d 70  |elect...2.."Wimp|
00000430  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
00000440  2c 2c 62 6c 6b 25 2b 26  43 30 3a 6d 62 25 3d 62  |,,blk%+&C0:mb%=b|
00000450  6c 6b 25 21 26 43 38 0d  01 90 10 c8 8e 20 6d 65  |lk%!&C8...... me|
00000460  6e 75 5f 68 25 20 ca 0d  01 9a 0e c9 20 6d 61 69  |nu_h% ...... mai|
00000470  6e 5f 6d 25 3a 0d 01 a4  12 20 e7 20 62 6c 6b 25  |n_m%:.... . blk%|
00000480  21 34 3d 2d 31 20 8c 0d  01 ae 11 20 20 20 c8 8e  |!4=-1 .....   ..|
00000490  20 21 62 6c 6b 25 20 ca  0d 01 b8 3b 20 20 20 20  | !blk% ....;    |
000004a0  20 c9 20 32 3a 21 62 6c  6b 25 3d 73 74 79 6c 65  | . 2:!blk%=style|
000004b0  73 5f 77 25 3a c8 99 20  22 57 69 6d 70 5f 47 65  |s_w%:.. "Wimp_Ge|
000004c0  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 62  |tWindowState",,b|
000004d0  6c 6b 25 0d 01 c2 35 20  20 20 20 20 20 20 20 20  |lk%...5         |
000004e0  20 20 20 62 6c 6b 25 21  32 38 3d 2d 31 3a c8 99  |   blk%!28=-1:..|
000004f0  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
00000500  77 22 2c 2c 62 6c 6b 25  0d 01 cc 1c 20 20 20 20  |w",,blk%....    |
00000510  20 c9 20 33 3a f2 73 74  61 72 74 5f 70 72 69 6e  | . 3:.start_prin|
00000520  74 28 a3 29 0d 01 d6 3b  20 20 20 20 20 c9 20 34  |t(.)...;     . 4|
00000530  3a 21 62 6c 6b 25 3d 6c  61 79 6f 75 74 5f 77 25  |:!blk%=layout_w%|
00000540  3a c8 99 20 22 57 69 6d  70 5f 47 65 74 57 69 6e  |:.. "Wimp_GetWin|
00000550  64 6f 77 53 74 61 74 65  22 2c 2c 62 6c 6b 25 0d  |dowState",,blk%.|
00000560  01 e0 35 20 20 20 20 20  20 20 20 20 20 20 20 62  |..5            b|
00000570  6c 6b 25 21 32 38 3d 2d  31 3a c8 99 20 22 57 69  |lk%!28=-1:.. "Wi|
00000580  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
00000590  62 6c 6b 25 0d 01 ea 39  20 20 20 20 20 c9 20 35  |blk%...9     . 5|
000005a0  3a e7 20 66 69 6c 65 25  3d 30 20 49 25 3d a4 61  |:. file%=0 I%=.a|
000005b0  6c 65 72 74 28 31 2c 22  4e 6f 20 66 69 6c 65 21  |lert(1,"No file!|
000005c0  22 29 20 8b 20 f2 70 72  65 76 69 65 77 0d 01 f4  |") . .preview...|
000005d0  17 20 20 20 20 20 c9 20  36 3a c8 8e 20 66 69 6c  |.     . 6:.. fil|
000005e0  65 25 20 ca 0d 01 fe 15  20 20 20 20 20 20 20 20  |e% .....        |
000005f0  20 20 20 20 20 c9 20 30  3a 0d 02 08 50 20 20 20  |     . 0:...P   |
00000600  20 20 20 20 20 20 20 20  20 20 c9 20 31 3a e7 20  |          . 1:. |
00000610  a4 61 6c 65 72 74 28 33  2c 22 41 72 65 20 79 6f  |.alert(3,"Are yo|
00000620  75 20 73 75 72 65 2c 20  66 69 6c 65 20 6e 6f 74  |u sure, file not|
00000630  20 70 72 69 6e 74 65 64  3f 22 29 3d 31 20 f2 63  | printed?")=1 .c|
00000640  6c 65 61 72 5f 66 69 6c  65 0d 02 12 58 20 20 20  |lear_file...X   |
00000650  20 20 20 20 20 20 20 20  20 20 c9 20 32 3a e7 20  |          . 2:. |
00000660  a4 61 6c 65 72 74 28 33  2c 22 41 72 65 20 79 6f  |.alert(3,"Are yo|
00000670  75 20 73 75 72 65 2c 20  66 69 6c 65 20 73 74 69  |u sure, file sti|
00000680  6c 6c 20 62 65 69 6e 67  20 70 72 69 6e 74 65 64  |ll being printed|
00000690  3f 22 29 3d 31 20 f2 63  6c 65 61 72 5f 66 69 6c  |?")=1 .clear_fil|
000006a0  65 0d 02 1c 20 20 20 20  20 20 20 20 20 20 20 20  |e...            |
000006b0  20 20 c9 20 33 3a f2 63  6c 65 61 72 5f 66 69 6c  |  . 3:.clear_fil|
000006c0  65 0d 02 26 11 20 20 20  20 20 20 20 20 20 20 20  |e..&.           |
000006d0  20 cb 0d 02 30 11 20 20  20 20 20 c9 20 38 3a f2  | ...0.     . 8:.|
000006e0  64 69 65 0d 02 3a 08 20  20 20 cb 0d 02 44 06 20  |die..:.   ...D. |
000006f0  cc 0d 02 4e 10 20 20 c8  8e 20 21 62 6c 6b 25 20  |...N.  .. !blk% |
00000700  ca 0d 02 58 1e 20 20 20  c9 20 30 3a f2 69 6d 6d  |...X.   . 0:.imm|
00000710  65 64 5f 63 6f 64 65 28  62 6c 6b 25 21 34 29 0d  |ed_code(blk%!4).|
00000720  02 62 16 20 20 20 c9 20  31 3a c8 8e 20 62 6c 6b  |.b.   . 1:.. blk|
00000730  25 21 34 20 ca 0d 02 6c  28 20 20 20 20 20 20 20  |%!4 ...l(       |
00000740  20 20 20 20 c9 20 30 3a  c8 99 20 22 4f 53 5f 42  |    . 0:.. "OS_B|
00000750  79 74 65 22 2c 31 33 38  2c 30 2c 31 35 0d 02 76  |yte",138,0,15..v|
00000760  28 20 20 20 20 20 20 20  20 20 20 20 c9 20 31 3a  |(           . 1:|
00000770  c8 99 20 22 4f 53 5f 42  79 74 65 22 2c 31 33 38  |.. "OS_Byte",138|
00000780  2c 30 2c 31 38 0d 02 80  28 20 20 20 20 20 20 20  |,0,18...(       |
00000790  20 20 20 20 c9 20 32 3a  c8 99 20 22 4f 53 5f 42  |    . 2:.. "OS_B|
000007a0  79 74 65 22 2c 31 33 38  2c 30 2c 32 30 0d 02 8a  |yte",138,0,20...|
000007b0  27 20 20 20 20 20 20 20  20 20 20 20 c9 20 33 3a  |'           . 3:|
000007c0  c8 99 20 22 4f 53 5f 42  79 74 65 22 2c 31 33 38  |.. "OS_Byte",138|
000007d0  2c 30 2c 36 0d 02 94 28  20 20 20 20 20 20 20 20  |,0,6...(        |
000007e0  20 20 20 c9 20 34 3a c8  99 20 22 4f 53 5f 42 79  |   . 4:.. "OS_By|
000007f0  74 65 22 2c 31 33 38 2c  30 2c 31 36 0d 02 9e 28  |te",138,0,16...(|
00000800  20 20 20 20 20 20 20 20  20 20 20 c9 20 35 3a c8  |           . 5:.|
00000810  99 20 22 4f 53 5f 42 79  74 65 22 2c 31 33 38 2c  |. "OS_Byte",138,|
00000820  30 2c 31 32 0d 02 a8 0f  20 20 20 20 20 20 20 20  |0,12....        |
00000830  20 20 cb 0d 02 b2 07 20  20 cb 0d 02 bc 06 20 cd  |  .....  ..... .|
00000840  0d 02 c6 0e c9 20 76 69  65 77 5f 6d 25 3a 0d 02  |..... view_m%:..|
00000850  d0 13 20 20 e7 20 62 6c  6b 25 21 34 3d 2d 31 20  |..  . blk%!4=-1 |
00000860  8c 0d 02 da 11 20 20 20  c8 8e 20 21 62 6c 6b 25  |.....   .. !blk%|
00000870  20 ca 0d 02 e4 44 20 20  20 20 c9 20 30 3a e7 20  | ....D    . 0:. |
00000880  70 6f 25 20 42 25 3d 35  3a e7 20 ba 63 6f 64 65  |po% B%=5:. .code|
00000890  25 20 49 25 3d a4 61 6c  65 72 74 28 31 2c 22 4e  |% I%=.alert(1,"N|
000008a0  6f 20 76 69 73 69 62 6c  65 20 70 61 67 65 20 62  |o visible page b|
000008b0  72 65 61 6b 22 29 0d 02  ee 44 20 20 20 20 c9 20  |reak")...D    . |
000008c0  31 3a e7 20 70 6f 25 20  42 25 3d 34 3a e7 20 ba  |1:. po% B%=4:. .|
000008d0  63 6f 64 65 25 20 49 25  3d a4 61 6c 65 72 74 28  |code% I%=.alert(|
000008e0  31 2c 22 4e 6f 20 76 69  73 69 62 6c 65 20 70 61  |1,"No visible pa|
000008f0  67 65 20 62 72 65 61 6b  22 29 0d 02 f8 24 20 20  |ge break")...$  |
00000900  20 20 c9 20 32 3a 49 25  3d 72 65 6d 6f 76 65 5f  |  . 2:I%=remove_|
00000910  6d 25 2b 34 3a 41 25 3d  30 3a 4a 25 3d 31 0d 03  |m%+4:A%=0:J%=1..|
00000920  02 10 20 20 20 20 20 20  20 20 20 20 20 f5 0d 03  |..           ...|
00000930  0c 29 20 20 20 20 20 20  20 20 20 20 20 20 49 25  |.)            I%|
00000940  2b 3d 32 34 3a e7 20 21  49 25 80 31 20 41 25 3d  |+=24:. !I%.1 A%=|
00000950  41 25 20 84 20 4a 25 0d  03 16 18 20 20 20 20 20  |A% . J%....     |
00000960  20 20 20 20 20 20 20 4a  25 3d 4a 25 3c 3c 31 0d  |       J%=J%<<1.|
00000970  03 20 1a 20 20 20 20 20  20 20 20 20 20 20 fd 20  |. .           . |
00000980  21 49 25 20 80 20 26 38  30 0d 03 2a 7f 20 20 20  |!I% . &80..*.   |
00000990  20 20 20 20 20 20 20 20  20 e7 20 a4 61 6c 65 72  |         . .aler|
000009a0  74 28 33 2c 22 41 72 65  20 79 6f 75 20 73 75 72  |t(3,"Are you sur|
000009b0  65 20 79 6f 75 20 77 61  6e 74 20 74 6f 20 72 65  |e you want to re|
000009c0  6d 6f 76 65 20 74 68 65  73 65 20 63 6f 64 65 73  |move these codes|
000009d0  3f 22 29 3d 31 20 42 25  3d 36 3a 65 6e 64 25 3d  |?")=1 B%=6:end%=|
000009e0  ba 63 6f 64 65 25 3a 21  62 6c 6b 25 3d 76 69 65  |.code%:!blk%=vie|
000009f0  77 5f 77 25 3a 42 25 3d  33 3a d6 63 6f 64 65 25  |w_w%:B%=3:.code%|
00000a00  20 20 3a f4 20 72 64 76  0d 03 34 39 20 20 20 20  |  :. rdv..49    |
00000a10  c9 20 33 3a 42 25 3d 31  3a d6 63 6f 64 65 25 3a  |. 3:B%=1:.code%:|
00000a20  21 62 6c 6b 25 3d 76 69  65 77 5f 77 25 3a 42 25  |!blk%=view_w%:B%|
00000a30  3d 33 3a d6 63 6f 64 65  25 20 20 3a f4 20 72 64  |=3:.code%  :. rd|
00000a40  76 0d 03 3e 08 20 20 20  cb 0d 03 48 07 20 20 cc  |v..>.   ...H.  .|
00000a50  0d 03 52 36 20 20 20 e7  20 21 62 6c 6b 25 3d 32  |..R6   . !blk%=2|
00000a60  20 49 25 3d 72 65 6d 6f  76 65 5f 6d 25 2b 32 38  | I%=remove_m%+28|
00000a70  2b 28 32 34 2a 62 6c 6b  25 21 34 29 3a 21 49 25  |+(24*blk%!4):!I%|
00000a80  3d 21 49 25 82 31 0d 03  5c 07 20 20 cd 0d 03 66  |=!I%.1..\.  ...f|
00000a90  06 20 cd 0d 03 70 05 cb  0d 03 7a 30 e7 20 6d 62  |. ...p....z0. mb|
00000aa0  25 3d 31 20 c8 99 22 57  69 6d 70 5f 43 72 65 61  |%=1 .."Wimp_Crea|
00000ab0  74 65 4d 65 6e 75 22 2c  2c 6d 65 6e 75 5f 68 25  |teMenu",,menu_h%|
00000ac0  2c 6d 78 25 2c 6d 68 25  0d 03 84 05 e1 0d 03 8e  |,mx%,mh%........|
00000ad0  04 0d 03 98 0b dd f2 63  6c 69 63 6b 0d 03 a2 32  |.......click...2|
00000ae0  c8 99 22 57 69 6d 70 5f  47 65 74 50 6f 69 6e 74  |.."Wimp_GetPoint|
00000af0  65 72 49 6e 66 6f 22 2c  2c 62 6c 6b 25 2b 26 43  |erInfo",,blk%+&C|
00000b00  30 3a 6d 62 25 3d 62 6c  6b 25 21 26 43 38 0d 03  |0:mb%=blk%!&C8..|
00000b10  ac 10 c8 8e 20 62 6c 6b  25 21 31 32 20 ca 0d 03  |.... blk%!12 ...|
00000b20  b6 1b 20 c9 20 2d 32 3a  e7 20 62 6c 6b 25 21 31  |.. . -2:. blk%!1|
00000b30  36 3d 69 63 6f 6e 25 20  8c 0d 03 c0 16 20 20 20  |6=icon% .....   |
00000b40  20 20 20 20 20 20 20 c8  8e 20 6d 62 25 20 ca 0d  |       .. mb% ..|
00000b50  03 ca 3b 20 20 20 20 20  20 20 20 20 20 20 c9 20  |..;           . |
00000b60  32 3a 6d 78 25 3d 62 6c  6b 25 21 26 43 30 2d 31  |2:mx%=blk%!&C0-1|
00000b70  34 30 3a 6d 68 25 3d 35  30 34 3a 6d 65 6e 75 5f  |40:mh%=504:menu_|
00000b80  68 25 3d 6d 61 69 6e 5f  6d 25 0d 03 d4 3a 20 20  |h%=main_m%...:  |
00000b90  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000ba0  c8 99 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |.."Wimp_CreateMe|
00000bb0  6e 75 22 2c 2c 6d 65 6e  75 5f 68 25 2c 6d 78 25  |nu",,menu_h%,mx%|
00000bc0  2c 6d 68 25 0d 03 de 41  20 20 20 20 20 20 20 20  |,mh%...A        |
00000bd0  20 20 20 c9 20 34 3a 21  62 6c 6b 25 3d 73 74 61  |   . 4:!blk%=sta|
00000be0  74 75 73 5f 77 25 3a c8  99 20 22 57 69 6d 70 5f  |tus_w%:.. "Wimp_|
00000bf0  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00000c00  2c 62 6c 6b 25 0d 03 e8  3b 20 20 20 20 20 20 20  |,blk%...;       |
00000c10  20 20 20 20 20 20 20 20  20 20 20 62 6c 6b 25 21  |           blk%!|
00000c20  32 38 3d 2d 31 3a c8 99  20 22 57 69 6d 70 5f 4f  |28=-1:.. "Wimp_O|
00000c30  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 62 6c 6b 25  |penWindow",,blk%|
00000c40  0d 03 f2 25 20 20 20 20  20 20 20 20 20 20 20 20  |...%            |
00000c50  20 20 20 20 20 20 e7 20  65 6f 70 5f 70 61 75 73  |      . eop_paus|
00000c60  65 64 25 20 8c 0d 03 fc  46 20 20 20 20 20 20 20  |ed% ....F       |
00000c70  20 20 20 20 20 20 20 20  20 20 20 20 21 62 6c 6b  |            !blk|
00000c80  25 3d 6e 65 77 70 61 67  65 5f 77 25 3a c8 99 20  |%=newpage_w%:.. |
00000c90  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
00000ca0  74 61 74 65 22 2c 2c 62  6c 6b 25 0d 04 06 3c 20  |tate",,blk%...< |
00000cb0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000cc0  20 20 62 6c 6b 25 21 32  38 3d 2d 31 3a c8 99 20  |  blk%!28=-1:.. |
00000cd0  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
00000ce0  22 2c 2c 62 6c 6b 25 0d  04 10 17 20 20 20 20 20  |",,blk%....     |
00000cf0  20 20 20 20 20 20 20 20  20 20 20 20 20 cd 0d 04  |             ...|
00000d00  1a 0f 20 20 20 20 20 20  20 20 20 20 cb 0d 04 24  |..          ...$|
00000d10  0e 20 20 20 20 20 20 20  20 20 cd 0d 04 2e 11 20  |.         ..... |
00000d20  c9 20 6c 61 79 6f 75 74  5f 77 25 3a 0d 04 38 15  |. layout_w%:..8.|
00000d30  20 20 20 20 20 c8 8e 20  62 6c 6b 25 21 31 36 20  |     .. blk%!16 |
00000d40  ca 0d 04 42 2c 20 20 20  20 20 20 c9 20 31 31 2c  |...B,      . 11,|
00000d50  31 32 2c 31 33 3a f2 6c  61 79 6f 75 74 5f 74 6f  |12,13:.layout_to|
00000d60  67 67 6c 65 28 62 6c 6b  25 21 31 36 29 0d 04 4c  |ggle(blk%!16)..L|
00000d70  34 20 20 20 20 20 20 c9  20 32 33 2c 32 34 2c 32  |4      . 23,24,2|
00000d80  37 2c 32 38 2c 33 31 2c  33 32 3a f2 6c 61 79 6f  |7,28,31,32:.layo|
00000d90  75 74 5f 61 72 72 6f 77  28 62 6c 6b 25 21 31 36  |ut_arrow(blk%!16|
00000da0  29 0d 04 56 40 20 20 20  20 20 20 c9 20 32 35 2c  |)..V@      . 25,|
00000db0  32 36 2c 32 39 2c 33 30  2c 33 33 2c 33 34 2c 33  |26,29,30,33,34,3|
00000dc0  35 2c 33 36 2c 33 37 2c  33 38 3a f2 6c 61 79 6f  |5,36,37,38:.layo|
00000dd0  75 74 5f 61 72 72 6f 77  28 62 6c 6b 25 21 31 36  |ut_arrow(blk%!16|
00000de0  29 0d 04 60 1b 20 20 20  20 20 20 c9 20 32 32 3a  |)..`.      . 22:|
00000df0  f2 73 61 76 65 5f 6c 61  79 6f 75 74 0d 04 6a 35  |.save_layout..j5|
00000e00  20 20 20 20 20 20 c9 20  34 32 3a c8 99 22 4f 53  |      . 42:.."OS|
00000e10  5f 46 69 6c 65 22 2c 31  33 2c 61 70 70 5f 64 69  |_File",13,app_di|
00000e20  72 24 2b 22 2e 6c 61 79  6f 75 74 22 20 b8 20 46  |r$+".layout" . F|
00000e30  25 0d 04 74 5e 20 20 20  20 20 20 20 20 20 20 20  |%..t^           |
00000e40  20 20 20 e7 20 46 25 3d  31 20 f2 6c 6f 61 64 5f  |   . F%=1 .load_|
00000e50  6c 61 79 6f 75 74 28 61  70 70 5f 64 69 72 24 2b  |layout(app_dir$+|
00000e60  22 2e 6c 61 79 6f 75 74  22 29 8b 20 49 25 3d a4  |".layout"). I%=.|
00000e70  61 6c 65 72 74 28 31 2c  22 4e 6f 20 76 61 6c 69  |alert(1,"No vali|
00000e80  64 20 6c 61 79 6f 75 74  20 66 69 6c 65 22 29 0d  |d layout file").|
00000e90  04 7e 0a 20 20 20 20 20  cb 0d 04 88 3c 20 c9 20  |.~.     ....< . |
00000ea0  73 74 79 6c 65 73 5f 77  25 3a c8 99 20 22 57 69  |styles_w%:.. "Wi|
00000eb0  6d 70 5f 50 72 6f 63 65  73 73 4b 65 79 22 2c 73  |mp_ProcessKey",s|
00000ec0  74 79 6c 65 5f 74 61 62  6c 65 25 3f 28 62 6c 6b  |tyle_table%?(blk|
00000ed0  25 21 31 36 29 0d 04 92  11 20 c9 20 6e 65 77 70  |%!16).... . newp|
00000ee0  61 67 65 5f 77 25 0d 04  9c 16 20 20 20 20 20 20  |age_w%....      |
00000ef0  c8 8e 20 62 6c 6b 25 21  31 36 20 ca 0d 04 a6 48  |.. blk%!16 ....H|
00000f00  20 20 20 20 20 20 20 c9  20 32 3a 65 6f 70 5f 70  |       . 2:eop_p|
00000f10  61 75 73 65 64 25 3d a3  3a 21 62 6c 6b 25 3d 6e  |aused%=.:!blk%=n|
00000f20  65 77 70 61 67 65 5f 77  25 3a c8 99 22 57 69 6d  |ewpage_w%:.."Wim|
00000f30  70 5f 43 6c 6f 73 65 57  69 6e 64 6f 77 22 2c 2c  |p_CloseWindow",,|
00000f40  62 6c 6b 25 0d 04 b0 8e  20 20 20 20 20 20 20 c9  |blk%....       .|
00000f50  20 33 3a e7 20 a4 61 6c  65 72 74 28 33 2c 22 41  | 3:. .alert(3,"A|
00000f60  72 65 20 79 6f 75 20 73  75 72 65 20 79 6f 75 20  |re you sure you |
00000f70  77 61 6e 74 20 74 6f 20  73 74 6f 70 20 70 72 69  |want to stop pri|
00000f80  6e 74 69 6e 67 3f 22 29  3d 32 20 66 69 6c 65 25  |nting?")=2 file%|
00000f90  3d 31 3a 21 62 6c 6b 25  3d 6e 65 77 70 61 67 65  |=1:!blk%=newpage|
00000fa0  5f 77 25 3a c8 99 22 57  69 6d 70 5f 43 6c 6f 73  |_w%:.."Wimp_Clos|
00000fb0  65 57 69 6e 64 6f 77 22  2c 2c 62 6c 6b 25 3a 6d  |eWindow",,blk%:m|
00000fc0  61 73 6b 25 3d 25 31 31  30 30 30 30 31 31 30 30  |ask%=%1100001100|
00000fd0  30 31 0d 04 ba 0b 20 20  20 20 20 20 cb 0d 04 c4  |01....      ....|
00000fe0  0e 20 20 20 20 20 20 20  20 20 cc 0d 04 ce 18 20  |.         ..... |
00000ff0  c9 20 76 69 65 77 5f 77  25 3a e7 20 6d 62 25 3d  |. view_w%:. mb%=|
00001000  32 20 8c 0d 04 d8 1b 20  20 20 20 20 20 20 20 20  |2 .....         |
00001010  20 20 20 20 20 20 e7 20  68 64 6c 25 20 8c 0d 04  |      . hdl% ...|
00001020  e2 17 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |..              |
00001030  20 20 ef 20 37 0d 04 ec  14 20 20 20 20 20 20 20  |  . 7....       |
00001040  20 20 20 20 20 20 20 20  cc 0d 04 f6 44 20 20 20  |        ....D   |
00001050  20 20 20 20 20 20 20 20  20 20 20 20 20 6d 78 25  |             mx%|
00001060  3d 62 6c 6b 25 21 26 43  30 2d 31 30 30 3a 6d 68  |=blk%!&C0-100:mh|
00001070  25 3d 62 6c 6b 25 21 26  43 34 2b 35 36 3a 6d 65  |%=blk%!&C4+56:me|
00001080  6e 75 5f 68 25 3d 76 69  65 77 5f 6d 25 0d 05 00  |nu_h%=view_m%...|
00001090  38 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |8               |
000010a0  20 c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  | .."Wimp_CreateM|
000010b0  65 6e 75 22 2c 2c 6d 65  6e 75 5f 68 25 2c 6d 78  |enu",,menu_h%,mx|
000010c0  25 2c 6d 68 25 0d 05 0a  14 20 20 20 20 20 20 20  |%,mh%....       |
000010d0  20 20 20 20 20 20 20 20  cd 0d 05 14 13 20 20 20  |        .....   |
000010e0  20 20 20 20 20 20 20 20  20 20 20 cd 0d 05 1e 53  |           ....S|
000010f0  20 c9 20 73 61 76 65 54  5f 77 25 2c 73 61 76 65  | . saveT_w%,save|
00001100  50 5f 77 25 3a e7 20 62  6c 6b 25 21 31 36 3d 30  |P_w%:. blk%!16=0|
00001110  20 80 20 62 6c 6b 25 21  38 3d 34 20 73 61 76 65  | . blk%!8=4 save|
00001120  5f 77 25 3d 62 6c 6b 25  21 31 32 3a f2 64 72 61  |_w%=blk%!12:.dra|
00001130  67 5f 66 69 6c 65 28 62  6c 6b 25 21 31 32 29 0d  |g_file(blk%!12).|
00001140  05 28 04 0d 05 32 05 cb  0d 05 3c 05 e1 0d 05 46  |.(...2....<....F|
00001150  04 0d 05 50 16 dd f2 69  6d 6d 65 64 5f 63 6f 64  |...P...immed_cod|
00001160  65 28 6e 75 6d 25 29 0d  05 5a 3e e7 20 66 69 6c  |e(num%)..Z>. fil|
00001170  65 25 3d 32 20 49 25 3d  a4 61 6c 65 72 74 28 31  |e%=2 I%=.alert(1|
00001180  2c 22 50 72 69 6e 74 69  6e 67 20 66 69 6c 65 2c  |,"Printing file,|
00001190  20 63 61 6e 27 74 20 73  65 6e 64 20 63 6f 64 65  | can't send code|
000011a0  73 22 29 3a e1 0d 05 64  15 e7 20 ac 20 a4 70 72  |s"):...d.. . .pr|
000011b0  69 6e 74 65 72 5f 6f 6e  20 e1 0d 05 6e 13 49 25  |inter_on ...n.I%|
000011c0  3d 69 6d 6d 65 64 5f 63  6f 64 65 73 25 0d 05 78  |=immed_codes%..x|
000011d0  1d c8 95 20 6e 75 6d 25  3a 49 25 2b 3d 3f 49 25  |... num%:I%+=?I%|
000011e0  3a 6e 75 6d 25 2d 3d 31  3a ce 0d 05 82 2d e3 20  |:num%-=1:....-. |
000011f0  4a 25 3d 31 20 b8 20 28  3f 49 25 29 2d 31 3a c8  |J%=1 . (?I%)-1:.|
00001200  99 22 4f 53 5f 50 72 69  6e 74 43 68 61 72 22 2c  |."OS_PrintChar",|
00001210  49 25 3f 4a 25 3a ed 0d  05 8c 05 e1 0d 05 96 04  |I%?J%:..........|
00001220  0d 05 a0 15 dd f2 67 65  74 5f 70 61 67 65 5f 6c  |......get_page_l|
00001230  61 79 6f 75 74 0d 05 aa  1c 70 6c 25 3d a4 67 65  |ayout....pl%=.ge|
00001240  74 5f 6c 61 79 6f 75 74  5f 76 61 6c 75 65 28 33  |t_layout_value(3|
00001250  29 0d 05 b4 29 6c 6d 25  3d a4 67 65 74 5f 6c 61  |)...)lm%=.get_la|
00001260  79 6f 75 74 5f 76 61 6c  75 65 28 34 29 3a 63 6f  |yout_value(4):co|
00001270  64 65 25 21 31 36 3d 6c  6d 25 0d 05 be 1c 74 73  |de%!16=lm%....ts|
00001280  25 3d a4 67 65 74 5f 6c  61 79 6f 75 74 5f 76 61  |%=.get_layout_va|
00001290  6c 75 65 28 35 29 0d 05  c8 1c 68 6c 25 3d a4 67  |lue(5)....hl%=.g|
000012a0  65 74 5f 6c 61 79 6f 75  74 5f 76 61 6c 75 65 28  |et_layout_value(|
000012b0  36 29 0d 05 d2 1c 62 73  25 3d a4 67 65 74 5f 6c  |6)....bs%=.get_l|
000012c0  61 79 6f 75 74 5f 76 61  6c 75 65 28 37 29 0d 05  |ayout_value(7)..|
000012d0  dc 1c 66 6c 25 3d a4 67  65 74 5f 6c 61 79 6f 75  |..fl%=.get_layou|
000012e0  74 5f 76 61 6c 75 65 28  38 29 0d 05 e6 1c 73 70  |t_value(8)....sp|
000012f0  25 3d a4 67 65 74 5f 6c  61 79 6f 75 74 5f 76 61  |%=.get_layout_va|
00001300  6c 75 65 28 39 29 0d 05  f0 2c 6d 6c 6c 25 3d a4  |lue(9)...,mll%=.|
00001310  67 65 74 5f 6c 61 79 6f  75 74 5f 76 61 6c 75 65  |get_layout_value|
00001320  28 31 30 29 3a 63 6f 64  65 25 21 32 30 3d 6d 6c  |(10):code%!20=ml|
00001330  6c 25 0d 05 fa 1e 66 66  25 3d a4 67 65 74 5f 6c  |l%....ff%=.get_l|
00001340  61 79 6f 75 74 5f 74 6f  67 67 6c 65 28 31 31 29  |ayout_toggle(11)|
00001350  0d 06 04 1e 70 6f 25 3d  a4 67 65 74 5f 6c 61 79  |....po%=.get_lay|
00001360  6f 75 74 5f 74 6f 67 67  6c 65 28 31 32 29 0d 06  |out_toggle(12)..|
00001370  0e 1e 70 70 25 3d a4 67  65 74 5f 6c 61 79 6f 75  |..pp%=.get_layou|
00001380  74 5f 74 6f 67 67 6c 65  28 31 33 29 0d 06 18 39  |t_toggle(13)...9|
00001390  21 62 6c 6b 25 3d 6c 61  79 6f 75 74 5f 77 25 3a  |!blk%=layout_w%:|
000013a0  62 6c 6b 25 21 34 3d 31  3a c8 99 20 22 57 69 6d  |blk%!4=1:.. "Wim|
000013b0  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
000013c0  2c 62 6c 6b 25 0d 06 22  28 70 25 3d 62 6c 6b 25  |,blk%.."(p%=blk%|
000013d0  21 32 38 3a 41 25 3d a4  67 65 74 5f 63 6f 64 65  |!28:A%=.get_code|
000013e0  73 28 70 72 65 5f 70 72  69 6e 74 25 29 0d 06 2c  |s(pre_print%)..,|
000013f0  39 21 62 6c 6b 25 3d 6c  61 79 6f 75 74 5f 77 25  |9!blk%=layout_w%|
00001400  3a 62 6c 6b 25 21 34 3d  32 3a c8 99 20 22 57 69  |:blk%!4=2:.. "Wi|
00001410  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00001420  2c 2c 62 6c 6b 25 0d 06  36 29 70 25 3d 62 6c 6b  |,,blk%..6)p%=blk|
00001430  25 21 32 38 3a 41 25 3d  a4 67 65 74 5f 63 6f 64  |%!28:A%=.get_cod|
00001440  65 73 28 70 6f 73 74 5f  70 72 69 6e 74 25 29 0d  |es(post_print%).|
00001450  06 40 2e c8 99 22 4f 53  5f 42 79 74 65 22 2c 31  |.@..."OS_Byte",1|
00001460  38 32 2c 30 2c 32 35 35  20 b8 20 2c 49 25 3a 69  |82,0,255 . ,I%:i|
00001470  67 6e 6f 72 65 25 3d 49  25 80 26 37 46 0d 06 4a  |gnore%=I%.&7F..J|
00001480  0b e7 20 70 6f 25 20 8c  0d 06 54 17 20 73 70 25  |.. po% ...T. sp%|
00001490  2d 3d 31 3a 62 6c 25 3d  70 6c 25 2d 62 73 25 0d  |-=1:bl%=pl%-bs%.|
000014a0  06 5e 1c 20 e7 20 68 6c  25 3e 74 73 25 20 84 20  |.^. . hl%>ts% . |
000014b0  68 6c 25 3c 30 20 68 6c  25 3d 30 0d 06 68 1e 20  |hl%<0 hl%=0..h. |
000014c0  e7 20 66 6c 25 3e 70 6c  25 20 84 20 66 6c 25 3c  |. fl%>pl% . fl%<|
000014d0  62 6c 25 20 66 6c 25 3d  30 0d 06 72 15 20 63 6f  |bl% fl%=0..r. co|
000014e0  64 65 25 21 31 32 3d 62  6c 25 2d 74 73 25 0d 06  |de%!12=bl%-ts%..|
000014f0  7c 05 cc 0d 06 86 2b 20  62 6c 25 3d 26 31 30 30  ||.....+ bl%=&100|
00001500  30 30 3a 68 6c 25 3d 30  3a 74 73 25 3d 30 3a 63  |00:hl%=0:ts%=0:c|
00001510  6f 64 65 25 21 31 32 3d  26 31 30 30 30 30 0d 06  |ode%!12=&10000..|
00001520  90 05 cd 0d 06 9a 05 e1  0d 06 a4 04 0d 06 ae 13  |................|
00001530  dd f2 73 65 6e 64 5f 63  6f 64 65 28 69 25 29 0d  |..send_code(i%).|
00001540  06 b8 0d e7 20 3f 69 25  3c 32 20 e1 0d 06 c2 2d  |.... ?i%<2 ....-|
00001550  e3 20 4a 25 3d 31 20 b8  20 28 3f 69 25 29 2d 31  |. J%=1 . (?i%)-1|
00001560  3a c8 99 22 4f 53 5f 50  72 69 6e 74 43 68 61 72  |:.."OS_PrintChar|
00001570  22 2c 69 25 3f 4a 25 3a  ed 0d 06 cc 05 e1 0d 06  |",i%?J%:........|
00001580  d6 04 0d 06 e0 0d dd f2  70 72 65 76 69 65 77 0d  |........preview.|
00001590  06 ea 14 f2 67 65 74 5f  70 61 67 65 5f 6c 61 79  |....get_page_lay|
000015a0  6f 75 74 0d 06 f4 14 42  25 3d 32 3a 49 25 3d 28  |out....B%=2:I%=(|
000015b0  ba 63 6f 64 65 25 29 0d  06 fe 3e 21 62 6c 6b 25  |.code%)...>!blk%|
000015c0  3d 30 3a 62 6c 6b 25 21  34 3d 2d 28 49 25 2a 33  |=0:blk%!4=-(I%*3|
000015d0  32 29 2d 31 3a 62 6c 6b  25 21 38 3d 28 6d 6c 6c  |2)-1:blk%!8=(mll|
000015e0  25 2b 6c 6d 25 2b 32 29  2a 31 36 3a 62 6c 6b 25  |%+lm%+2)*16:blk%|
000015f0  21 31 32 3d 30 0d 07 08  23 c8 99 22 57 69 6d 70  |!12=0...#.."Wimp|
00001600  5f 53 65 74 45 78 74 65  6e 74 22 2c 76 69 65 77  |_SetExtent",view|
00001610  5f 77 25 2c 62 6c 6b 25  0d 07 12 2f 21 62 6c 6b  |_w%,blk%.../!blk|
00001620  25 3d 76 69 65 77 5f 77  25 3a c8 99 22 57 69 6d  |%=view_w%:.."Wim|
00001630  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00001640  22 2c 2c 62 6c 6b 25 0d  07 1c 25 e7 20 6e 65 77  |",,blk%...%. new|
00001650  25 20 62 6c 6b 25 21 32  30 3d 30 3a 62 6c 6b 25  |% blk%!20=0:blk%|
00001660  21 32 34 3d 30 3a 6e 65  77 25 3d a3 0d 07 26 28  |!24=0:new%=...&(|
00001670  62 6c 6b 25 21 32 38 3d  2d 31 3a c8 99 22 57 69  |blk%!28=-1:.."Wi|
00001680  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
00001690  62 6c 6b 25 0d 07 30 05  e1 0d 07 3a 04 0d 07 44  |blk%..0....:...D|
000016a0  17 dd f2 73 74 61 72 74  5f 70 72 69 6e 74 28 68  |...start_print(h|
000016b0  64 6c 25 29 0d 07 4e 46  e7 20 66 69 6c 65 25 3d  |dl%)..NF. file%=|
000016c0  32 20 e7 20 a4 61 6c 65  72 74 28 33 2c 22 41 6c  |2 . .alert(3,"Al|
000016d0  72 65 61 64 79 20 70 72  69 6e 74 69 6e 67 2c 20  |ready printing, |
000016e0  64 6f 20 79 6f 75 20 77  61 6e 74 20 74 6f 20 71  |do you want to q|
000016f0  75 69 74 3f 22 29 3d 32  20 e1 0d 07 58 2d e7 20  |uit?")=2 ...X-. |
00001700  66 69 6c 65 25 3d 30 20  49 25 3d a4 61 6c 65 72  |file%=0 I%=.aler|
00001710  74 28 31 2c 22 4e 6f 20  66 69 6c 65 20 6c 6f 61  |t(1,"No file loa|
00001720  64 65 64 22 29 3a e1 0d  07 62 14 f2 67 65 74 5f  |ded"):...b..get_|
00001730  70 61 67 65 5f 6c 61 79  6f 75 74 0d 07 6c 26 6c  |page_layout..l&l|
00001740  69 6e 65 25 3d 30 3a 70  74 72 25 3d 62 75 66 66  |ine%=0:ptr%=buff|
00001750  65 72 25 3a 65 6f 70 5f  70 61 75 73 65 64 25 3d  |er%:eop_paused%=|
00001760  a3 0d 07 76 3b 68 65 61  64 65 72 5f 66 6c 67 25  |...v;header_flg%|
00001770  3d 30 3a 68 65 61 64 65  72 5f 70 74 72 25 3d 30  |=0:header_ptr%=0|
00001780  3a 66 6f 6f 74 65 72 5f  66 6c 67 25 3d 30 3a 66  |:footer_flg%=0:f|
00001790  6f 6f 74 65 72 5f 70 74  72 25 3d 30 0d 07 80 0b  |ooter_ptr%=0....|
000017a0  e7 20 70 6f 25 20 8c 0d  07 8a 14 20 49 25 3d 62  |. po% ..... I%=b|
000017b0  75 66 66 65 72 25 3a 4c  25 3d 30 0d 07 94 06 20  |uffer%:L%=0.... |
000017c0  f5 0d 07 9e 1f 20 20 e7  20 3f 49 25 3d 32 30 20  |.....  . ?I%=20 |
000017d0  68 65 61 64 65 72 5f 70  74 72 25 3d 49 25 2b 31  |header_ptr%=I%+1|
000017e0  0d 07 a8 23 20 20 49 25  2b 3d 31 3a e7 20 3f 49  |...#  I%+=1:. ?I|
000017f0  25 3d 31 33 20 84 20 3f  49 25 3d 31 30 20 4c 25  |%=13 . ?I%=10 L%|
00001800  2b 3d 31 0d 07 b2 26 20  fd 20 4c 25 3e 31 30 20  |+=1...& . L%>10 |
00001810  84 20 68 65 61 64 65 72  5f 70 74 72 25 3e 30 20  |. header_ptr%>0 |
00001820  84 20 49 25 3e 65 6e 64  25 0d 07 bc 05 cd 0d 07  |. I%>end%.......|
00001830  c6 0c e7 20 68 64 6c 25  20 8c 0d 07 d0 19 20 70  |... hdl% ..... p|
00001840  70 25 3d a3 3a 66 72 65  65 25 3d 26 31 30 30 30  |p%=.:free%=&1000|
00001850  30 30 30 0d 07 da 16 20  66 69 6c 65 25 3d 34 3a  |000.... file%=4:|
00001860  49 25 3d a4 70 72 69 6e  74 0d 07 e4 05 cc 0d 07  |I%=.print.......|
00001870  ee 16 20 e7 20 ac 20 a4  70 72 69 6e 74 65 72 5f  |.. . . .printer_|
00001880  6f 6e 20 e1 0d 07 f8 7a  20 42 25 3d 30 3a e7 20  |on ....z B%=0:. |
00001890  ba 63 6f 64 65 25 20 3e  6d 6c 6c 25 20 e7 20 a4  |.code% >mll% . .|
000018a0  61 6c 65 72 74 28 33 2c  22 4c 69 6e 65 73 20 6c  |alert(3,"Lines l|
000018b0  6f 6e 67 65 72 20 74 68  61 6e 20 74 68 65 20 6d  |onger than the m|
000018c0  61 78 69 6d 75 6d 20 64  65 66 69 6e 65 64 20 66  |aximum defined f|
000018d0  6f 75 6e 64 2c 20 64 6f  20 79 6f 75 20 77 61 6e  |ound, do you wan|
000018e0  74 20 74 6f 20 63 6f 6e  74 69 6e 75 65 20 6f 72  |t to continue or|
000018f0  20 63 61 6e 63 65 6c 3f  22 29 3d 32 20 e1 0d 08  | cancel?")=2 ...|
00001900  02 10 20 42 25 3d 32 3a  d6 63 6f 64 65 25 0d 08  |.. B%=2:.code%..|
00001910  0c 1b 20 f2 73 65 6e 64  5f 63 6f 64 65 28 70 72  |.. .send_code(pr|
00001920  65 5f 70 72 69 6e 74 25  29 0d 08 16 21 20 f2 75  |e_print%)...! .u|
00001930  70 64 61 74 65 5f 73 74  61 74 75 73 28 34 2c 22  |pdate_status(4,"|
00001940  50 72 69 6e 74 69 6e 67  22 29 0d 08 20 19 20 66  |Printing").. . f|
00001950  69 6c 65 25 3d 32 3a 6d  61 73 6b 25 3d a4 70 72  |ile%=2:mask%=.pr|
00001960  69 6e 74 0d 08 2a 05 cd  0d 08 34 05 e1 0d 08 3e  |int..*....4....>|
00001970  04 0d 08 48 0b dd a4 70  72 69 6e 74 0d 08 52 08  |...H...print..R.|
00001980  ea 20 63 25 0d 08 5c 3a  e7 20 68 64 6c 25 3d a3  |. c%..\:. hdl%=.|
00001990  20 c8 99 22 4f 53 5f 42  79 74 65 22 2c 31 32 38  | .."OS_Byte",128|
000019a0  2c 32 35 32 20 b8 20 2c  4c 25 2c 48 25 3a 66 72  |,252 . ,L%,H%:fr|
000019b0  65 65 25 3d 4c 25 2b 28  48 25 3c 3c 38 29 0d 08  |ee%=L%+(H%<<8)..|
000019c0  66 21 e7 20 66 72 65 65  25 3c 26 32 30 30 20 84  |f!. free%<&200 .|
000019d0  20 65 6f 70 5f 70 61 75  73 65 64 25 3a 3d 30 0d  | eop_paused%:=0.|
000019e0  08 70 05 f5 0d 08 7a 1c  e7 20 6c 69 6e 65 25 3d  |.p....z.. line%=|
000019f0  30 20 f2 70 72 69 6e 74  5f 6e 65 77 70 61 67 65  |0 .print_newpage|
00001a00  0d 08 84 15 20 63 25 3d  3f 70 74 72 25 3a 70 74  |.... c%=?ptr%:pt|
00001a10  72 25 2b 3d 31 0d 08 8e  0c 20 c8 8e 20 63 25 20  |r%+=1.... .. c% |
00001a20  ca 0d 08 98 25 20 20 c9  20 36 20 3a 66 6f 6f 74  |....%  . 6 :foot|
00001a30  65 72 5f 70 74 72 25 3d  70 74 72 25 3a f2 66 69  |er_ptr%=ptr%:.fi|
00001a40  6e 64 5f 73 6f 6c 0d 08  a2 18 20 20 c9 20 31 30  |nd_sol....  . 10|
00001a50  2c 31 33 3a f2 70 72 69  6e 74 5f 65 6f 6c 0d 08  |,13:.print_eol..|
00001a60  ac 18 20 20 c9 20 31 31  2c 31 32 3a f2 70 72 69  |..  . 11,12:.pri|
00001a70  6e 74 5f 65 6f 70 0d 08  b6 17 20 20 c9 20 31 35  |nt_eop....  . 15|
00001a80  3a 49 25 3d 70 74 72 25  3a 43 25 3d 30 0d 08 c0  |:I%=ptr%:C%=0...|
00001a90  2c 20 20 20 20 20 20 20  20 20 20 c8 95 20 28 3f  |,          .. (?|
00001aa0  49 25 3e 31 33 20 84 20  3f 49 25 3c 31 30 29 20  |I%>13 . ?I%<10) |
00001ab0  80 20 3f 49 25 3c 3e 31  38 0d 08 ca 34 20 20 20  |. ?I%<>18...4   |
00001ac0  20 20 20 20 20 20 20 20  e7 20 3f 49 25 3e 33 31  |        . ?I%>31|
00001ad0  20 80 20 73 74 79 6c 65  5f 74 61 62 6c 65 25 3f  | . style_table%?|
00001ae0  28 3f 49 25 29 3d 30 20  43 25 2b 3d 31 0d 08 d4  |(?I%)=0 C%+=1...|
00001af0  1d 20 20 20 20 20 20 20  20 20 20 20 e7 20 3f 49  |.           . ?I|
00001b00  25 3d 31 36 20 43 25 2b  3d 32 0d 08 de 14 20 20  |%=16 C%+=2....  |
00001b10  20 20 20 20 20 20 20 20  20 49 25 2b 3d 31 0d 08  |         I%+=1..|
00001b20  e8 0f 20 20 20 20 20 20  20 20 20 20 ce 0d 08 f2  |..          ....|
00001b30  23 20 20 20 20 20 20 20  20 20 20 4a 25 3d 28 28  |#          J%=((|
00001b40  6d 6c 6c 25 2d 43 25 29  81 32 29 2d 6c 65 6e 25  |mll%-C%).2)-len%|
00001b50  0d 08 fc 16 20 20 20 20  20 20 20 20 20 20 e7 20  |....          . |
00001b60  68 64 6c 25 20 8c 0d 09  06 3a 20 20 20 20 20 20  |hdl% ....:      |
00001b70  20 20 20 20 20 c8 95 20  4a 25 3e 30 3a c8 99 22  |     .. J%>0:.."|
00001b80  4f 53 5f 42 50 75 74 22  2c 33 32 2c 68 64 6c 25  |OS_BPut",32,hdl%|
00001b90  3a 6c 65 6e 25 2b 3d 31  3a 4a 25 2d 3d 31 3a ce  |:len%+=1:J%-=1:.|
00001ba0  0d 09 10 0f 20 20 20 20  20 20 20 20 20 20 cc 0d  |....          ..|
00001bb0  09 1a 43 20 20 20 20 20  20 20 20 20 20 20 c8 95  |..C           ..|
00001bc0  20 4a 25 3e 30 3a c8 99  22 4f 53 5f 50 72 69 6e  | J%>0:.."OS_Prin|
00001bd0  74 43 68 61 72 22 2c 33  32 3a 66 72 65 65 25 2d  |tChar",32:free%-|
00001be0  3d 31 3a 6c 65 6e 25 2b  3d 31 3a 4a 25 2d 3d 31  |=1:len%+=1:J%-=1|
00001bf0  3a ce 0d 09 24 0f 20 20  20 20 20 20 20 20 20 20  |:...$.          |
00001c00  cd 0d 09 2e 3c 20 20 c9  20 31 36 3a c8 99 20 22  |....<  . 16:.. "|
00001c10  4f 53 5f 43 6f 6e 76 65  72 74 43 61 72 64 69 6e  |OS_ConvertCardin|
00001c20  61 6c 31 22 2c 73 70 25  2c 62 6c 6b 25 2b 26 31  |al1",sp%,blk%+&1|
00001c30  30 30 2c 33 32 20 b8 20  49 25 2c 4a 25 0d 09 38  |00,32 . I%,J%..8|
00001c40  16 20 20 20 20 20 20 20  20 20 20 e7 20 68 64 6c  |.          . hdl|
00001c50  25 20 8c 0d 09 42 3c 20  20 20 20 20 20 20 20 20  |% ...B<         |
00001c60  20 20 c8 95 20 49 25 3c  4a 25 3a c8 99 22 4f 53  |  .. I%<J%:.."OS|
00001c70  5f 42 50 75 74 22 2c 3f  49 25 2c 68 64 6c 25 3a  |_BPut",?I%,hdl%:|
00001c80  49 25 2b 3d 31 3a 6c 65  6e 25 2b 3d 31 3a ce 0d  |I%+=1:len%+=1:..|
00001c90  09 4c 0f 20 20 20 20 20  20 20 20 20 20 cc 0d 09  |.L.          ...|
00001ca0  56 45 20 20 20 20 20 20  20 20 20 20 20 c8 95 20  |VE           .. |
00001cb0  49 25 3c 4a 25 3a c8 99  22 4f 53 5f 50 72 69 6e  |I%<J%:.."OS_Prin|
00001cc0  74 43 68 61 72 22 2c 3f  49 25 3a 49 25 2b 3d 31  |tChar",?I%:I%+=1|
00001cd0  3a 66 72 65 65 25 2d 3d  31 3a 6c 65 6e 25 2b 3d  |:free%-=1:len%+=|
00001ce0  31 3a ce 0d 09 60 0f 20  20 20 20 20 20 20 20 20  |1:...`.         |
00001cf0  20 cd 0d 09 6a 1a 20 20  c9 20 31 38 3a 49 25 3d  | ...j.  . 18:I%=|
00001d00  70 74 72 25 3a 43 25 3d  6c 65 6e 25 0d 09 74 20  |ptr%:C%=len%..t |
00001d10  20 20 20 20 20 20 20 20  20 20 c8 95 20 3f 49 25  |          .. ?I%|
00001d20  3e 31 33 20 84 20 3f 49  25 3c 31 30 0d 09 7e 34  |>13 . ?I%<10..~4|
00001d30  20 20 20 20 20 20 20 20  20 20 20 e7 20 3f 49 25  |           . ?I%|
00001d40  3e 33 31 20 80 20 73 74  79 6c 65 5f 74 61 62 6c  |>31 . style_tabl|
00001d50  65 25 3f 28 3f 49 25 29  3d 30 20 43 25 2b 3d 31  |e%?(?I%)=0 C%+=1|
00001d60  0d 09 88 1d 20 20 20 20  20 20 20 20 20 20 20 e7  |....           .|
00001d70  20 3f 49 25 3d 31 36 20  43 25 2b 3d 32 0d 09 92  | ?I%=16 C%+=2...|
00001d80  14 20 20 20 20 20 20 20  20 20 20 20 49 25 2b 3d  |.           I%+=|
00001d90  31 0d 09 9c 0f 20 20 20  20 20 20 20 20 20 20 ce  |1....          .|
00001da0  0d 09 a6 18 20 20 20 20  20 20 20 20 20 20 4a 25  |....          J%|
00001db0  3d 6d 6c 6c 25 2d 43 25  0d 09 b0 16 20 20 20 20  |=mll%-C%....    |
00001dc0  20 20 20 20 20 20 e7 20  68 64 6c 25 20 8c 0d 09  |      . hdl% ...|
00001dd0  ba 3a 20 20 20 20 20 20  20 20 20 20 20 c8 95 20  |.:           .. |
00001de0  4a 25 3e 30 3a c8 99 22  4f 53 5f 42 50 75 74 22  |J%>0:.."OS_BPut"|
00001df0  2c 33 32 2c 68 64 6c 25  3a 6c 65 6e 25 2b 3d 31  |,32,hdl%:len%+=1|
00001e00  3a 4a 25 2d 3d 31 3a ce  0d 09 c4 0f 20 20 20 20  |:J%-=1:.....    |
00001e10  20 20 20 20 20 20 cc 0d  09 ce 43 20 20 20 20 20  |      ....C     |
00001e20  20 20 20 20 20 20 c8 95  20 4a 25 3e 30 3a c8 99  |      .. J%>0:..|
00001e30  22 4f 53 5f 50 72 69 6e  74 43 68 61 72 22 2c 33  |"OS_PrintChar",3|
00001e40  32 3a 66 72 65 65 25 2d  3d 31 3a 6c 65 6e 25 2b  |2:free%-=1:len%+|
00001e50  3d 31 3a 4a 25 2d 3d 31  3a ce 0d 09 d8 0f 20 20  |=1:J%-=1:.....  |
00001e60  20 20 20 20 20 20 20 20  cd 0d 09 e2 25 20 20 c9  |        ....%  .|
00001e70  20 32 30 3a 68 65 61 64  65 72 5f 70 74 72 25 3d  | 20:header_ptr%=|
00001e80  70 74 72 25 3a f2 66 69  6e 64 5f 73 6f 6c 0d 09  |ptr%:.find_sol..|
00001e90  ec 06 20 7f 0d 09 f6 1c  20 20 20 e7 20 63 6f 64  |.. .....   . cod|
00001ea0  65 5f 69 6e 64 65 78 25  3f 63 25 20 3e 30 20 8c  |e_index%?c% >0 .|
00001eb0  0d 0a 00 12 20 20 20 20  e7 20 68 64 6c 25 3d a3  |....    . hdl%=.|
00001ec0  20 8c 0d 0a 0a 24 20 20  20 20 20 4a 25 3d 63 6f  | ....$     J%=co|
00001ed0  64 65 5f 69 6e 64 65 78  25 3f 63 25 3a 49 25 3d  |de_index%?c%:I%=|
00001ee0  63 6f 64 65 73 25 0d 0a  14 20 20 20 20 20 20 c8  |codes%...      .|
00001ef0  95 20 4a 25 3e 31 3a 49  25 2b 3d 3f 49 25 3a 4a  |. J%>1:I%+=?I%:J|
00001f00  25 2d 3d 31 3a ce 0d 0a  1e 3b 20 20 20 20 20 e3  |%-=1:....;     .|
00001f10  20 4a 25 3d 31 20 b8 20  28 3f 49 25 29 2d 31 3a  | J%=1 . (?I%)-1:|
00001f20  c8 99 22 4f 53 5f 50 72  69 6e 74 43 68 61 72 22  |.."OS_PrintChar"|
00001f30  2c 49 25 3f 4a 25 3a 66  72 65 65 25 2d 3d 31 3a  |,I%?J%:free%-=1:|
00001f40  ed 0d 0a 28 22 20 20 20  20 20 e7 20 74 72 61 6e  |...("     . tran|
00001f50  73 5f 69 6e 64 65 78 25  3f 63 25 20 6c 65 6e 25  |s_index%?c% len%|
00001f60  2b 3d 31 0d 0a 32 09 20  20 20 20 cc 0d 0a 3c 36  |+=1..2.    ...<6|
00001f70  20 20 20 20 20 e7 20 74  72 61 6e 73 5f 69 6e 64  |     . trans_ind|
00001f80  65 78 25 3f 63 25 20 c8  99 22 4f 53 5f 42 50 75  |ex%?c% .."OS_BPu|
00001f90  74 22 2c 63 25 2c 68 64  6c 25 3a 6c 65 6e 25 2b  |t",c%,hdl%:len%+|
00001fa0  3d 31 0d 0a 46 09 20 20  20 20 cd 0d 0a 50 08 20  |=1..F.    ...P. |
00001fb0  20 20 cc 0d 0a 5a 49 20  20 20 20 6c 65 6e 25 2b  |  ...ZI    len%+|
00001fc0  3d 31 3a e7 20 68 64 6c  25 20 c8 99 22 4f 53 5f  |=1:. hdl% .."OS_|
00001fd0  42 50 75 74 22 2c 63 25  2c 68 64 6c 25 20 8b 20  |BPut",c%,hdl% . |
00001fe0  c8 99 22 4f 53 5f 50 72  69 6e 74 43 68 61 72 22  |.."OS_PrintChar"|
00001ff0  2c 63 25 3a 66 72 65 65  25 2d 3d 31 0d 0a 64 08  |,c%:free%-=1..d.|
00002000  20 20 20 cd 0d 0a 6e 06  20 cb 0d 0a 78 29 fd 20  |   ...n. ...x). |
00002010  66 72 65 65 25 3c 32 30  20 84 20 70 74 72 25 3e  |free%<20 . ptr%>|
00002020  3d 65 6e 64 25 20 84 20  65 6f 70 5f 70 61 75 73  |=end% . eop_paus|
00002030  65 64 25 0d 0a 82 04 0d  0a 8c 12 e7 20 70 74 72  |ed%......... ptr|
00002040  25 3e 3d 65 6e 64 25 20  8c 0d 0a 96 0d 20 e7 20  |%>=end% ..... . |
00002050  68 64 6c 25 20 8c 0d 0a  a0 42 20 20 e7 20 70 6f  |hdl% ....B  . po|
00002060  25 20 e7 20 66 69 6c 65  25 3c 3e 33 20 f2 70 72  |% . file%<>3 .pr|
00002070  69 6e 74 5f 65 6f 70 3a  66 69 6c 65 25 3d 33 3a  |int_eop:file%=3:|
00002080  49 25 3d a4 70 72 69 6e  74 3a 3d 25 31 31 30 30  |I%=.print:=%1100|
00002090  30 30 31 31 30 30 30 31  0d 0a aa 33 20 20 c8 99  |00110001...3  ..|
000020a0  22 4f 53 5f 46 69 6e 64  22 2c 30 2c 68 64 6c 25  |"OS_Find",0,hdl%|
000020b0  3a c8 99 22 4f 53 5f 46  69 6c 65 22 2c 31 38 2c  |:.."OS_File",18,|
000020c0  73 70 6c 73 76 24 2c 26  46 46 46 0d 0a b4 1e 20  |splsv$,&FFF.... |
000020d0  20 c8 99 22 48 6f 75 72  67 6c 61 73 73 5f 4f 66  | .."Hourglass_Of|
000020e0  66 22 3a 68 64 6c 25 3d  a3 0d 0a be 06 20 cc 0d  |f":hdl%=..... ..|
000020f0  0a c8 1d 20 20 f2 73 65  6e 64 5f 63 6f 64 65 28  |...  .send_code(|
00002100  70 6f 73 74 5f 70 72 69  6e 74 25 29 0d 0a d2 2c  |post_print%)...,|
00002110  20 20 e7 20 70 6f 25 20  e7 20 66 69 6c 65 25 3c  |  . po% . file%<|
00002120  3e 33 20 f2 70 72 69 6e  74 5f 65 6f 70 3a 66 69  |>3 .print_eop:fi|
00002130  6c 65 25 3d 33 3a 3d 30  0d 0a dc 3c 20 20 66 69  |le%=3:=0...<  fi|
00002140  6c 65 25 3d 33 3a f2 73  74 61 74 75 73 5f 76 61  |le%=3:.status_va|
00002150  6c 75 65 28 33 2c 30 29  3a f2 75 70 64 61 74 65  |lue(3,0):.update|
00002160  5f 73 74 61 74 75 73 28  34 2c 22 57 61 69 74 69  |_status(4,"Waiti|
00002170  6e 67 22 29 0d 0a e6 06  20 cd 0d 0a f0 12 3d 25  |ng").... .....=%|
00002180  31 31 30 30 30 30 31 31  30 30 30 31 0d 0a fa 05  |110000110001....|
00002190  cc 0d 0b 04 2d 20 e7 20  65 6f 70 5f 70 61 75 73  |....- . eop_paus|
000021a0  65 64 25 20 f2 75 70 64  61 74 65 5f 73 74 61 74  |ed% .update_stat|
000021b0  75 73 28 34 2c 22 21 50  61 70 65 72 22 29 0d 0b  |us(4,"!Paper")..|
000021c0  0e 1f 20 f2 73 74 61 74  75 73 5f 76 61 6c 75 65  |.. .status_value|
000021d0  28 33 2c 65 6e 64 25 2d  70 74 72 25 29 0d 0b 18  |(3,end%-ptr%)...|
000021e0  05 cd 0d 0b 22 06 3d 30  0d 0b 2c 04 0d 0b 36 0f  |....".=0..,...6.|
000021f0  dd f2 70 72 69 6e 74 5f  65 6f 70 0d 0b 40 18 e7  |..print_eop..@..|
00002200  20 ac 20 70 6f 25 20 f2  70 72 69 6e 74 5f 65 6f  | . po% .print_eo|
00002210  6c 3a e1 0d 0b 4a 0b e7  20 66 6c 25 20 8c 0d 0b  |l:...J.. fl% ...|
00002220  54 22 20 c8 95 20 6c 69  6e 65 25 3c 66 6c 25 3a  |T" .. line%<fl%:|
00002230  f2 70 72 69 6e 74 5f 6e  65 77 6c 69 6e 65 3a ce  |.print_newline:.|
00002240  0d 0b 5e 0f 20 f2 70 72  69 6e 74 5f 73 6f 6c 0d  |..^. .print_sol.|
00002250  0b 68 05 cc 0d 0b 72 17  20 f2 70 72 69 6e 74 5f  |.h....r. .print_|
00002260  70 61 67 65 5f 62 6f 74  74 6f 6d 0d 0b 7c 05 cd  |page_bottom..|..|
00002270  0d 0b 86 05 e1 0d 0b 90  04 0d 0b 9a 13 dd f2 70  |...............p|
00002280  72 69 6e 74 5f 6e 65 77  6c 69 6e 65 0d 0b a4 0c  |rint_newline....|
00002290  e7 20 68 64 6c 25 20 8c  0d 0b ae 18 20 c8 99 22  |. hdl% ..... .."|
000022a0  4f 53 5f 42 50 75 74 22  2c 31 30 2c 68 64 6c 25  |OS_BPut",10,hdl%|
000022b0  0d 0b b8 05 cc 0d 0b c2  21 20 c8 99 22 4f 53 5f  |........! .."OS_|
000022c0  50 72 69 6e 74 43 68 61  72 22 2c 31 33 3a 66 72  |PrintChar",13:fr|
000022d0  65 65 25 2d 3d 31 0d 0b  cc 30 20 e7 20 69 67 6e  |ee%-=1...0 . ign|
000022e0  6f 72 65 25 20 3c 3e 31  30 20 c8 99 22 4f 53 5f  |ore% <>10 .."OS_|
000022f0  50 72 69 6e 74 43 68 61  72 22 2c 31 30 3a 66 72  |PrintChar",10:fr|
00002300  65 65 25 2d 3d 31 0d 0b  d6 05 cd 0d 0b e0 0c 6c  |ee%-=1.........l|
00002310  69 6e 65 25 2b 3d 31 0d  0b ea 05 e1 0d 0b f4 04  |ine%+=1.........|
00002320  0d 0b fe 0f dd f2 70 72  69 6e 74 5f 65 6f 6c 0d  |......print_eol.|
00002330  0c 08 12 f2 70 72 69 6e  74 5f 6e 65 77 6c 69 6e  |....print_newlin|
00002340  65 0d 0c 12 13 e7 20 68  65 61 64 65 72 5f 66 6c  |e..... header_fl|
00002350  67 25 20 8c 0d 0c 1c 23  20 70 74 72 25 3d 68 65  |g% ....# ptr%=he|
00002360  61 64 65 72 5f 66 6c 67  25 3a 68 65 61 64 65 72  |ader_flg%:header|
00002370  5f 66 6c 67 25 3d 30 0d  0c 26 22 20 c8 95 20 6c  |_flg%=0..&" .. l|
00002380  69 6e 65 25 3c 74 73 25  3a f2 70 72 69 6e 74 5f  |ine%<ts%:.print_|
00002390  6e 65 77 6c 69 6e 65 3a  ce 0d 0c 30 0f 20 f2 70  |newline:...0. .p|
000023a0  72 69 6e 74 5f 73 6f 6c  0d 0c 3a 05 cc 0d 0c 44  |rint_sol..:....D|
000023b0  14 20 e7 20 66 6f 6f 74  65 72 5f 66 6c 67 25 20  |. . footer_flg% |
000023c0  8c 0d 0c 4e 37 20 20 70  74 72 25 3d 66 6f 6f 74  |...N7  ptr%=foot|
000023d0  65 72 5f 66 6c 67 25 3a  66 6f 6f 74 65 72 5f 66  |er_flg%:footer_f|
000023e0  6c 67 25 3d 30 3a f2 70  72 69 6e 74 5f 70 61 67  |lg%=0:.print_pag|
000023f0  65 5f 62 6f 74 74 6f 6d  0d 0c 58 06 20 cc 0d 0c  |e_bottom..X. ...|
00002400  62 10 20 20 f2 70 72 69  6e 74 5f 73 6f 6c 0d 0c  |b.  .print_sol..|
00002410  6c 06 20 cd 0d 0c 76 05  cd 0d 0c 80 05 e1 0d 0c  |l. ...v.........|
00002420  8a 04 0d 0c 94 17 dd f2  70 72 69 6e 74 5f 70 61  |........print_pa|
00002430  67 65 5f 62 6f 74 74 6f  6d 0d 0c 9e 0b e7 20 66  |ge_bottom..... f|
00002440  66 25 20 8c 0d 0c a8 3e  20 e7 20 68 64 6c 25 20  |f% ....> . hdl% |
00002450  c8 99 22 4f 53 5f 42 50  75 74 22 2c 31 32 2c 68  |.."OS_BPut",12,h|
00002460  64 6c 25 20 8b 20 c8 99  22 4f 53 5f 50 72 69 6e  |dl% . .."OS_Prin|
00002470  74 43 68 61 72 22 2c 31  32 3a 66 72 65 65 25 2d  |tChar",12:free%-|
00002480  3d 31 0d 0c b2 05 cc 0d  0c bc 23 20 c8 95 20 6c  |=1........# .. l|
00002490  69 6e 65 25 3c 3d 70 6c  25 3a f2 70 72 69 6e 74  |ine%<=pl%:.print|
000024a0  5f 6e 65 77 6c 69 6e 65  3a ce 0d 0c c6 05 cd 0d  |_newline:.......|
000024b0  0c d0 0b e7 20 70 70 25  20 8c 0d 0c da 1f 20 f2  |.... pp% ..... .|
000024c0  75 70 64 61 74 65 5f 73  74 61 74 75 73 28 34 2c  |update_status(4,|
000024d0  22 21 50 61 70 65 72 22  29 0d 0c e4 34 20 21 62  |"!Paper")...4 !b|
000024e0  6c 6b 25 3d 6e 65 77 70  61 67 65 5f 77 25 3a c8  |lk%=newpage_w%:.|
000024f0  99 20 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |. "Wimp_GetWindo|
00002500  77 53 74 61 74 65 22 2c  2c 62 6c 6b 25 0d 0c ee  |wState",,blk%...|
00002510  2a 20 62 6c 6b 25 21 32  38 3d 2d 31 3a c8 99 20  |* blk%!28=-1:.. |
00002520  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
00002530  22 2c 2c 62 6c 6b 25 0d  0c f8 16 20 ef 20 37 3a  |",,blk%.... . 7:|
00002540  65 6f 70 5f 70 61 75 73  65 64 25 3d b9 0d 0d 02  |eop_paused%=....|
00002550  05 cd 0d 0d 0c 0b 6c 69  6e 65 25 3d 30 0d 0d 16  |......line%=0...|
00002560  05 e1 0d 0d 20 04 0d 0d  2a 0f dd f2 70 72 69 6e  |.... ...*...prin|
00002570  74 5f 73 6f 6c 0d 0d 34  0b e7 20 70 6f 25 20 8c  |t_sol..4.. po% .|
00002580  0d 0d 3e 0f 20 c8 8e 20  6c 69 6e 65 25 20 ca 0d  |..>. .. line% ..|
00002590  0d 48 1a 20 20 c9 20 30  20 20 3a f2 70 72 69 6e  |.H.  . 0  :.prin|
000025a0  74 5f 6e 65 77 70 61 67  65 0d 0d 52 3b 20 20 c9  |t_newpage..R;  .|
000025b0  20 68 6c 25 3a e7 20 68  65 61 64 65 72 5f 70 74  | hl%:. header_pt|
000025c0  72 25 20 68 65 61 64 65  72 5f 66 6c 67 25 3d 70  |r% header_flg%=p|
000025d0  74 72 25 3a 70 74 72 25  3d 68 65 61 64 65 72 5f  |tr%:ptr%=header_|
000025e0  70 74 72 25 0d 0d 5c 3b  20 20 c9 20 66 6c 25 3a  |ptr%..\;  . fl%:|
000025f0  e7 20 66 6f 6f 74 65 72  5f 70 74 72 25 20 66 6f  |. footer_ptr% fo|
00002600  6f 74 65 72 5f 66 6c 67  25 3d 70 74 72 25 3a 70  |oter_flg%=ptr%:p|
00002610  74 72 25 3d 66 6f 6f 74  65 72 5f 70 74 72 25 0d  |tr%=footer_ptr%.|
00002620  0d 66 25 20 20 c9 20 62  6c 25 3a e7 20 66 6c 25  |.f%  . bl%:. fl%|
00002630  3e 30 20 80 20 66 6f 6f  74 65 72 5f 70 74 72 25  |>0 . footer_ptr%|
00002640  3e 30 20 8c 0d 0d 70 2d  20 20 20 20 20 20 20 20  |>0 ...p-        |
00002650  20 20 20 20 c8 95 20 6c  69 6e 65 25 3c 66 6c 25  |    .. line%<fl%|
00002660  3a f2 70 72 69 6e 74 5f  6e 65 77 6c 69 6e 65 3a  |:.print_newline:|
00002670  ce 0d 0d 7a 31 20 20 20  20 20 20 20 20 20 20 20  |...z1           |
00002680  20 66 6f 6f 74 65 72 5f  66 6c 67 25 3d 70 74 72  | footer_flg%=ptr|
00002690  25 3a 70 74 72 25 3d 66  6f 6f 74 65 72 5f 70 74  |%:ptr%=footer_pt|
000026a0  72 25 0d 0d 84 10 20 20  20 20 20 20 20 20 20 20  |r%....          |
000026b0  20 cc 0d 0d 8e 24 20 20  20 20 20 20 20 20 20 20  | ....$          |
000026c0  20 20 f2 70 72 69 6e 74  5f 70 61 67 65 5f 62 6f  |  .print_page_bo|
000026d0  74 74 6f 6d 3a e1 0d 0d  98 10 20 20 20 20 20 20  |ttom:.....      |
000026e0  20 20 20 20 20 cd 0d 0d  a2 1a 20 20 c9 20 70 6c  |     .....  . pl|
000026f0  25 3a f2 70 72 69 6e 74  5f 6e 65 77 70 61 67 65  |%:.print_newpage|
00002700  0d 0d ac 06 20 cb 0d 0d  b6 05 cd 0d 0d c0 11 49  |.... ..........I|
00002710  25 3d 6c 6d 25 3a 6c 65  6e 25 3d 30 0d 0d ca 1a  |%=lm%:len%=0....|
00002720  e7 20 3f 70 74 72 25 3c  31 34 20 e7 20 3f 70 74  |. ?ptr%<14 . ?pt|
00002730  72 25 3e 39 20 e1 0d 0d  d4 0c e7 20 68 64 6c 25  |r%>9 ...... hdl%|
00002740  20 8c 0d 0d de 26 20 c8  95 20 49 25 3a c8 99 22  | ....& .. I%:.."|
00002750  4f 53 5f 42 50 75 74 22  2c 33 32 2c 68 64 6c 25  |OS_BPut",32,hdl%|
00002760  3a 49 25 2d 3d 31 3a ce  0d 0d e8 05 cc 0d 0d f2  |:I%-=1:.........|
00002770  26 20 c8 95 20 49 25 3a  c8 99 22 4f 53 5f 50 72  |& .. I%:.."OS_Pr|
00002780  69 6e 74 43 68 61 72 22  2c 33 32 3a 49 25 2d 3d  |intChar",32:I%-=|
00002790  31 3a ce 0d 0d fc 05 cd  0d 0e 06 05 e1 0d 0e 10  |1:..............|
000027a0  04 0d 0e 1a 13 dd f2 70  72 69 6e 74 5f 6e 65 77  |.......print_new|
000027b0  70 61 67 65 0d 0e 24 19  6c 69 6e 65 25 3d 31 3a  |page..$.line%=1:|
000027c0  73 70 25 2b 3d 31 3a 6c  65 6e 25 3d 30 0d 0e 2e  |sp%+=1:len%=0...|
000027d0  18 e7 20 70 6f 25 3d a3  20 f2 70 72 69 6e 74 5f  |.. po%=. .print_|
000027e0  73 6f 6c 3a e1 0d 0e 38  0f e7 20 66 69 6c 65 25  |sol:...8.. file%|
000027f0  3d 33 20 e1 0d 0e 42 0e  e7 20 68 6c 25 20 3e 30  |=3 ...B.. hl% >0|
00002800  20 8c 0d 0e 4c 22 20 c8  95 20 6c 69 6e 65 25 3c  | ...L" .. line%<|
00002810  68 6c 25 3a f2 70 72 69  6e 74 5f 6e 65 77 6c 69  |hl%:.print_newli|
00002820  6e 65 3a ce 0d 0e 56 05  cc 0d 0e 60 23 20 c8 95  |ne:...V....`# ..|
00002830  20 6c 69 6e 65 25 3c 3d  74 73 25 3a f2 70 72 69  | line%<=ts%:.pri|
00002840  6e 74 5f 6e 65 77 6c 69  6e 65 3a ce 0d 0e 6a 05  |nt_newline:...j.|
00002850  cd 0d 0e 74 0e f2 70 72  69 6e 74 5f 73 6f 6c 0d  |...t..print_sol.|
00002860  0e 7e 05 e1 0d 0e 88 04  0d 0e 92 0e dd f2 66 69  |.~............fi|
00002870  6e 64 5f 73 6f 6c 0d 0e  9c 32 c8 95 20 28 3f 70  |nd_sol...2.. (?p|
00002880  74 72 25 3e 31 33 20 84  20 3f 70 74 72 25 3c 31  |tr%>13 . ?ptr%<1|
00002890  30 29 20 80 20 70 74 72  25 3c 65 6e 64 25 3a 70  |0) . ptr%<end%:p|
000028a0  74 72 25 2b 3d 31 3a ce  0d 0e a6 0b 70 74 72 25  |tr%+=1:.....ptr%|
000028b0  2b 3d 31 0d 0e b0 05 e1  0d 0e ba 05 20 0d 0e c4  |+=1......... ...|
000028c0  19 dd f2 6c 61 79 6f 75  74 5f 74 6f 67 67 6c 65  |...layout_toggle|
000028d0  28 6e 75 6d 25 29 0d 0e  ce 47 e7 20 a4 67 65 74  |(num%)...G. .get|
000028e0  5f 6c 61 79 6f 75 74 5f  74 6f 67 67 6c 65 28 6e  |_layout_toggle(n|
000028f0  75 6d 25 29 20 24 28 62  6c 6b 25 21 32 38 29 3d  |um%) $(blk%!28)=|
00002900  22 6f 70 74 6f 66 66 22  20 8b 20 24 28 62 6c 6b  |"optoff" . $(blk|
00002910  25 21 32 38 29 3d 22 6f  70 74 6f 6e 22 0d 0e d8  |%!28)="opton"...|
00002920  16 62 6c 6b 25 21 38 3d  30 3a 62 6c 6b 25 21 31  |.blk%!8=0:blk%!1|
00002930  32 3d 30 0d 0e e2 20 c8  99 20 22 57 69 6d 70 5f  |2=0... .. "Wimp_|
00002940  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |SetIconState",,b|
00002950  6c 6b 25 0d 0e ec 05 e1  0d 0e f6 04 0d 0f 00 1d  |lk%.............|
00002960  dd a4 67 65 74 5f 6c 61  79 6f 75 74 5f 74 6f 67  |..get_layout_tog|
00002970  67 6c 65 28 6e 75 6d 25  29 0d 0f 0a 1f 21 62 6c  |gle(num%)....!bl|
00002980  6b 25 3d 6c 61 79 6f 75  74 5f 77 25 3a 62 6c 6b  |k%=layout_w%:blk|
00002990  25 21 34 3d 6e 75 6d 25  0d 0f 14 20 c8 99 20 22  |%!4=num%... .. "|
000029a0  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
000029b0  65 22 2c 2c 62 6c 6b 25  0d 0f 1e 20 e7 20 24 28  |e",,blk%... . $(|
000029c0  62 6c 6b 25 21 32 38 29  3d 22 6f 70 74 6f 6e 22  |blk%!28)="opton"|
000029d0  3a 3d b9 3a 8b 3a 3d a3  0d 0f 28 04 0d 0f 32 1c  |:=.:.:=...(...2.|
000029e0  dd a4 67 65 74 5f 6c 61  79 6f 75 74 5f 76 61 6c  |..get_layout_val|
000029f0  75 65 28 6e 75 6d 25 29  0d 0f 3c 1f 21 62 6c 6b  |ue(num%)..<.!blk|
00002a00  25 3d 6c 61 79 6f 75 74  5f 77 25 3a 62 6c 6b 25  |%=layout_w%:blk%|
00002a10  21 34 3d 6e 75 6d 25 0d  0f 46 20 c8 99 20 22 57  |!4=num%..F .. "W|
00002a20  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
00002a30  22 2c 2c 62 6c 6b 25 0d  0f 50 12 3d bb 28 24 28  |",,blk%..P.=.($(|
00002a40  62 6c 6b 25 21 32 38 29  29 0d 0f 5a 04 0d 0f 64  |blk%!28))..Z...d|
00002a50  21 dd f2 73 65 74 5f 6c  61 79 6f 75 74 5f 76 61  |!..set_layout_va|
00002a60  6c 75 65 28 6e 75 6d 25  2c 76 61 6c 25 29 0d 0f  |lue(num%,val%)..|
00002a70  6e 1f 21 62 6c 6b 25 3d  6c 61 79 6f 75 74 5f 77  |n.!blk%=layout_w|
00002a80  25 3a 62 6c 6b 25 21 34  3d 6e 75 6d 25 0d 0f 78  |%:blk%!4=num%..x|
00002a90  20 c8 99 20 22 57 69 6d  70 5f 47 65 74 49 63 6f  | .. "Wimp_GetIco|
00002aa0  6e 53 74 61 74 65 22 2c  2c 62 6c 6b 25 0d 0f 82  |nState",,blk%...|
00002ab0  16 24 28 62 6c 6b 25 21  32 38 29 3d c3 28 76 61  |.$(blk%!28)=.(va|
00002ac0  6c 25 29 0d 0f 8c 16 62  6c 6b 25 21 38 3d 30 3a  |l%)....blk%!8=0:|
00002ad0  62 6c 6b 25 21 31 32 3d  30 0d 0f 96 20 c8 99 20  |blk%!12=0... .. |
00002ae0  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00002af0  74 65 22 2c 2c 62 6c 6b  25 0d 0f a0 05 e1 0d 0f  |te",,blk%.......|
00002b00  aa 04 0d 0f b4 18 dd f2  6c 61 79 6f 75 74 5f 61  |........layout_a|
00002b10  72 72 6f 77 28 6e 75 6d  25 29 0d 0f be 0a ea 20  |rrow(num%)..... |
00002b20  76 61 6c 25 0d 0f c8 1a  49 25 3d 6e 75 6d 25 83  |val%....I%=num%.|
00002b30  32 3a e7 20 49 25 3d 30  20 49 25 3d 2d 31 0d 0f  |2:. I%=0 I%=-1..|
00002b40  d2 17 6e 75 6d 25 3d 28  28 6e 75 6d 25 2b 31 29  |..num%=((num%+1)|
00002b50  81 32 29 2d 39 0d 0f dc  36 f2 73 65 74 5f 6c 61  |.2)-9...6.set_la|
00002b60  79 6f 75 74 5f 76 61 6c  75 65 28 6e 75 6d 25 2c  |yout_value(num%,|
00002b70  a4 67 65 74 5f 6c 61 79  6f 75 74 5f 76 61 6c 75  |.get_layout_valu|
00002b80  65 28 6e 75 6d 25 29 2b  49 25 29 0d 0f e6 05 e1  |e(num%)+I%).....|
00002b90  0d 0f f0 04 0d 0f fa 44  3d 3d 3d 3d 3d 3d 3d 3d  |.......D========|
00002ba0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00002bd0  3d 3d 3d 3d 3d 3d 3d 3d  0d 10 04 04 0d 10 0e 13  |========........|
00002be0  dd f2 64 72 61 67 5f 66  69 6c 65 28 77 25 29 0d  |..drag_file(w%).|
00002bf0  10 18 2a 21 62 6c 6b 25  3d 77 25 3a c8 99 22 57  |..*!blk%=w%:.."W|
00002c00  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
00002c10  74 65 22 2c 2c 62 6c 6b  25 0d 10 22 28 58 25 3d  |te",,blk%.."(X%=|
00002c20  62 6c 6b 25 21 34 2d 62  6c 6b 25 21 32 30 3a 59  |blk%!4-blk%!20:Y|
00002c30  25 3d 62 6c 6b 25 21 31  36 2d 62 6c 6b 25 21 32  |%=blk%!16-blk%!2|
00002c40  34 0d 10 2c 28 62 6c 6b  25 21 34 3d 30 3a c8 99  |4..,(blk%!4=0:..|
00002c50  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00002c60  74 65 22 2c 2c 62 6c 6b  25 0d 10 36 39 21 62 6c  |te",,blk%..69!bl|
00002c70  6b 25 3d 77 25 3a 62 6c  6b 25 21 34 3d 35 3a 62  |k%=w%:blk%!4=5:b|
00002c80  6c 6b 25 21 38 3d 62 6c  6b 25 21 38 2b 58 25 3a  |lk%!8=blk%!8+X%:|
00002c90  62 6c 6b 25 21 31 32 3d  62 6c 6b 25 21 31 32 2b  |blk%!12=blk%!12+|
00002ca0  59 25 0d 10 40 3d 62 6c  6b 25 21 31 36 3d 62 6c  |Y%..@=blk%!16=bl|
00002cb0  6b 25 21 31 36 2b 58 25  3a 62 6c 6b 25 21 32 30  |k%!16+X%:blk%!20|
00002cc0  3d 62 6c 6b 25 21 32 30  2b 59 25 3a 62 6c 6b 25  |=blk%!20+Y%:blk%|
00002cd0  21 32 34 3d 30 3a 62 6c  6b 25 21 32 38 3d 30 0d  |!24=0:blk%!28=0.|
00002ce0  10 4a 27 62 6c 6b 25 21  33 32 3d 26 37 46 46 46  |.J'blk%!32=&7FFF|
00002cf0  46 46 46 46 3a 62 6c 6b  25 21 33 36 3d 26 37 46  |FFFF:blk%!36=&7F|
00002d00  46 46 46 46 46 46 0d 10  54 1a c8 99 22 57 69 6d  |FFFFFF..T..."Wim|
00002d10  70 5f 44 72 61 67 42 6f  78 22 2c 2c 62 6c 6b 25  |p_DragBox",,blk%|
00002d20  0d 10 5e 05 e1 0d 10 68  04 0d 10 72 13 dd f2 64  |..^....h...r...d|
00002d30  72 61 67 5f 74 65 72 6d  28 77 25 29 0d 10 7c 3a  |rag_term(w%)..|:|
00002d40  62 6c 6b 25 21 26 38 30  3d 77 25 3a 62 6c 6b 25  |blk%!&80=w%:blk%|
00002d50  21 26 38 34 3d 31 3a c8  99 22 57 69 6d 70 5f 47  |!&84=1:.."Wimp_G|
00002d60  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 6c  |etIconState",,bl|
00002d70  6b 25 2b 26 38 30 0d 10  86 34 49 25 3d 28 62 6c  |k%+&80...4I%=(bl|
00002d80  6b 25 21 26 39 43 29 3a  c8 95 20 a7 24 28 49 25  |k%!&9C):.. .$(I%|
00002d90  29 2c 22 2e 22 29 3a 49  25 2b 3d 31 3a ce 3a 6c  |),"."):I%+=1:.:l|
00002da0  65 61 66 24 3d 24 28 49  25 29 0d 10 90 21 c8 99  |eaf$=$(I%)...!..|
00002db0  22 57 69 6d 70 5f 47 65  74 50 6f 69 6e 74 65 72  |"Wimp_GetPointer|
00002dc0  49 6e 66 6f 22 2c 2c 62  6c 6b 25 0d 10 9a 40 62  |Info",,blk%...@b|
00002dd0  6c 6b 25 21 32 30 3d 62  6c 6b 25 21 31 32 3a 62  |lk%!20=blk%!12:b|
00002de0  6c 6b 25 21 32 34 3d 62  6c 6b 25 21 31 36 3a 62  |lk%!24=blk%!16:b|
00002df0  6c 6b 25 21 32 38 3d 21  62 6c 6b 25 3a 62 6c 6b  |lk%!28=!blk%:blk|
00002e00  25 21 33 32 3d 62 6c 6b  25 21 34 0d 10 a4 40 62  |%!32=blk%!4...@b|
00002e10  6c 6b 25 21 33 36 3d 65  6e 64 25 2d 62 75 66 66  |lk%!36=end%-buff|
00002e20  65 72 25 3a 62 6c 6b 25  21 34 30 3d 26 46 46 44  |er%:blk%!40=&FFD|
00002e30  3a 62 6c 6b 25 21 31 36  3d 31 3a 24 28 62 6c 6b  |:blk%!16=1:$(blk|
00002e40  25 2b 34 34 29 3d 6c 65  61 66 24 0d 10 ae 24 21  |%+44)=leaf$...$!|
00002e50  62 6c 6b 25 3d 28 a9 28  6c 65 61 66 24 29 2b 34  |blk%=(.(leaf$)+4|
00002e60  39 29 80 ac 33 3a 62 6c  6b 25 21 31 32 3d 30 0d  |9)..3:blk%!12=0.|
00002e70  10 b8 30 c8 99 22 57 69  6d 70 5f 53 65 6e 64 4d  |..0.."Wimp_SendM|
00002e80  65 73 73 61 67 65 22 2c  31 37 2c 62 6c 6b 25 2c  |essage",17,blk%,|
00002e90  62 6c 6b 25 21 32 30 2c  62 6c 6b 25 21 32 34 0d  |blk%!20,blk%!24.|
00002ea0  10 c2 05 e1 0d 10 cc 04  0d 10 d6 11 dd f2 73 61  |..............sa|
00002eb0  76 65 28 6e 61 6d 65 24  29 0d 10 e0 15 20 f2 67  |ve(name$).... .g|
00002ec0  65 74 5f 70 61 67 65 5f  6c 61 79 6f 75 74 0d 10  |et_page_layout..|
00002ed0  ea 18 e7 20 73 61 76 65  5f 77 25 3d 73 61 76 65  |... save_w%=save|
00002ee0  54 5f 77 25 20 8c 0d 10  f4 11 20 73 70 6c 73 76  |T_w% ..... splsv|
00002ef0  24 3d 6e 61 6d 65 24 0d  10 fe 26 20 c8 99 20 22  |$=name$...& .. "|
00002f00  58 4f 53 5f 46 69 6e 64  22 2c 26 38 33 2c 6e 61  |XOS_Find",&83,na|
00002f10  6d 65 24 20 b8 20 65 72  72 25 3b 46 25 0d 11 08  |me$ . err%;F%...|
00002f20  16 20 e7 20 46 25 80 31  20 f2 78 5f 65 72 72 6f  |. . F%.1 .x_erro|
00002f30  72 3a e1 0d 11 12 15 20  c8 99 22 48 6f 75 72 67  |r:..... .."Hourg|
00002f40  6c 61 73 73 5f 4f 6e 22  0d 11 1c 17 20 f2 73 74  |lass_On".... .st|
00002f50  61 72 74 5f 70 72 69 6e  74 28 65 72 72 25 29 0d  |art_print(err%).|
00002f60  11 26 05 cc 0d 11 30 13  20 70 25 3d 62 75 66 66  |.&....0. p%=buff|
00002f70  65 72 25 2d 31 31 30 0d  11 3a 2d 20 f2 69 6e 73  |er%-110..:- .ins|
00002f80  65 72 74 5f 70 61 72 61  6d 28 22 50 4c 22 2c a4  |ert_param("PL",.|
00002f90  67 65 74 5f 6c 61 79 6f  75 74 5f 76 61 6c 75 65  |get_layout_value|
00002fa0  28 33 29 29 0d 11 44 2d  20 f2 69 6e 73 65 72 74  |(3))..D- .insert|
00002fb0  5f 70 61 72 61 6d 28 22  54 53 22 2c a4 67 65 74  |_param("TS",.get|
00002fc0  5f 6c 61 79 6f 75 74 5f  76 61 6c 75 65 28 35 29  |_layout_value(5)|
00002fd0  29 0d 11 4e 2d 20 f2 69  6e 73 65 72 74 5f 70 61  |)..N- .insert_pa|
00002fe0  72 61 6d 28 22 42 53 22  2c a4 67 65 74 5f 6c 61  |ram("BS",.get_la|
00002ff0  79 6f 75 74 5f 76 61 6c  75 65 28 37 29 29 0d 11  |yout_value(7))..|
00003000  58 2d 20 f2 69 6e 73 65  72 74 5f 70 61 72 61 6d  |X- .insert_param|
00003010  28 22 48 4c 22 2c a4 67  65 74 5f 6c 61 79 6f 75  |("HL",.get_layou|
00003020  74 5f 76 61 6c 75 65 28  36 29 29 0d 11 62 2d 20  |t_value(6))..b- |
00003030  f2 69 6e 73 65 72 74 5f  70 61 72 61 6d 28 22 46  |.insert_param("F|
00003040  4c 22 2c a4 67 65 74 5f  6c 61 79 6f 75 74 5f 76  |L",.get_layout_v|
00003050  61 6c 75 65 28 38 29 29  0d 11 6c 2d 20 f2 69 6e  |alue(8))..l- .in|
00003060  73 65 72 74 5f 70 61 72  61 6d 28 22 4c 4d 22 2c  |sert_param("LM",|
00003070  a4 67 65 74 5f 6c 61 79  6f 75 74 5f 76 61 6c 75  |.get_layout_valu|
00003080  65 28 34 29 29 0d 11 76  2e 20 f2 69 6e 73 65 72  |e(4))..v. .inser|
00003090  74 5f 70 61 72 61 6d 28  22 4c 4c 22 2c a4 67 65  |t_param("LL",.ge|
000030a0  74 5f 6c 61 79 6f 75 74  5f 76 61 6c 75 65 28 31  |t_layout_value(1|
000030b0  30 29 29 0d 11 80 2d 20  f2 69 6e 73 65 72 74 5f  |0))...- .insert_|
000030c0  70 61 72 61 6d 28 22 53  50 22 2c a4 67 65 74 5f  |param("SP",.get_|
000030d0  6c 61 79 6f 75 74 5f 76  61 6c 75 65 28 39 29 29  |layout_value(9))|
000030e0  0d 11 8a 53 20 e7 20 a4  67 65 74 5f 6c 61 79 6f  |...S . .get_layo|
000030f0  75 74 5f 74 6f 67 67 6c  65 28 31 31 29 20 f2 69  |ut_toggle(11) .i|
00003100  6e 73 65 72 74 5f 70 61  72 61 6d 28 22 46 46 22  |nsert_param("FF"|
00003110  2c 2d 26 33 30 30 29 20  8b 20 f2 69 6e 73 65 72  |,-&300) . .inser|
00003120  74 5f 70 61 72 61 6d 28  22 46 46 22 2c 2d 26 32  |t_param("FF",-&2|
00003130  30 30 29 0d 11 94 53 20  e7 20 a4 67 65 74 5f 6c  |00)...S . .get_l|
00003140  61 79 6f 75 74 5f 74 6f  67 67 6c 65 28 31 32 29  |ayout_toggle(12)|
00003150  20 f2 69 6e 73 65 72 74  5f 70 61 72 61 6d 28 22  | .insert_param("|
00003160  50 47 22 2c 2d 26 33 30  30 29 20 8b 20 f2 69 6e  |PG",-&300) . .in|
00003170  73 65 72 74 5f 70 61 72  61 6d 28 22 50 47 22 2c  |sert_param("PG",|
00003180  2d 26 32 30 30 29 0d 11  9e 53 20 e7 20 a4 67 65  |-&200)...S . .ge|
00003190  74 5f 6c 61 79 6f 75 74  5f 74 6f 67 67 6c 65 28  |t_layout_toggle(|
000031a0  31 33 29 20 f2 69 6e 73  65 72 74 5f 70 61 72 61  |13) .insert_para|
000031b0  6d 28 22 50 50 22 2c 2d  26 33 30 30 29 20 8b 20  |m("PP",-&300) . |
000031c0  f2 69 6e 73 65 72 74 5f  70 61 72 61 6d 28 22 50  |.insert_param("P|
000031d0  50 22 2c 2d 26 32 30 30  29 0d 11 a8 3c 20 c8 99  |P",-&200)...< ..|
000031e0  20 22 58 4f 53 5f 46 69  6c 65 22 2c 31 30 2c 6e  | "XOS_File",10,n|
000031f0  61 6d 65 24 2c 26 32 38  41 2c 2c 62 75 66 66 65  |ame$,&28A,,buffe|
00003200  72 25 2d 31 31 30 2c 65  6e 64 25 20 b8 20 65 72  |r%-110,end% . er|
00003210  72 25 3b 46 25 0d 11 b2  16 20 e7 20 46 25 80 31  |r%;F%.... . F%.1|
00003220  20 f2 78 5f 65 72 72 6f  72 3a e1 0d 11 bc 05 cd  | .x_error:......|
00003230  0d 11 c6 05 e1 0d 11 d0  04 0d 11 da 1d dd f2 69  |...............i|
00003240  6e 73 65 72 74 5f 70 61  72 61 6d 28 70 61 72 24  |nsert_param(par$|
00003250  2c 70 61 72 25 29 0d 11  e4 19 24 70 25 3d 22 2e  |,par%)....$p%=".|
00003260  2e 22 2b 70 61 72 24 2b  22 20 20 20 20 20 22 0d  |."+par$+"     ".|
00003270  11 ee 0d c8 8e 20 70 61  72 25 20 ca 0d 11 f8 1a  |..... par% .....|
00003280  20 c9 20 2d 26 32 30 30  3a 24 28 70 25 2b 35 29  | . -&200:$(p%+5)|
00003290  3d 22 4f 46 46 22 0d 12  02 19 20 c9 20 2d 26 33  |="OFF".... . -&3|
000032a0  30 30 3a 24 28 70 25 2b  35 29 3d 22 4f 4e 22 0d  |00:$(p%+5)="ON".|
000032b0  12 0c 05 7f 0d 12 16 14  20 24 28 70 25 2b 35 29  |........ $(p%+5)|
000032c0  3d c3 28 70 61 72 25 29  0d 12 20 05 cb 0d 12 2a  |=.(par%).. ....*|
000032d0  20 49 25 3d 70 25 3a f5  3a 49 25 2b 3d 31 3a fd  | I%=p%:.:I%+=1:.|
000032e0  3f 49 25 3c 33 32 3a 3f  49 25 3d 33 32 0d 12 34  |?I%<32:?I%=32..4|
000032f0  13 70 25 2b 3d 31 30 3a  70 25 3f 2d 31 3d 31 30  |.p%+=10:p%?-1=10|
00003300  0d 12 3e 05 e1 0d 12 48  04 0d 12 52 15 dd f2 73  |..>....H...R...s|
00003310  65 74 63 61 72 65 74 28  77 25 2c 69 25 29 0d 12  |etcaret(w%,i%)..|
00003320  5c 32 21 62 6c 6b 25 3d  77 25 3a 62 6c 6b 25 21  |\2!blk%=w%:blk%!|
00003330  34 3d 69 25 3a c8 99 22  57 69 6d 70 5f 47 65 74  |4=i%:.."Wimp_Get|
00003340  49 63 6f 6e 53 74 61 74  65 22 2c 2c 62 6c 6b 25  |IconState",,blk%|
00003350  0d 12 66 34 c8 99 22 57  69 6d 70 5f 53 65 74 43  |..f4.."Wimp_SetC|
00003360  61 72 65 74 50 6f 73 69  74 69 6f 6e 22 2c 77 25  |aretPosition",w%|
00003370  2c 69 25 2c 2c 2c 2d 31  2c a9 24 28 62 6c 6b 25  |,i%,,,-1,.$(blk%|
00003380  21 32 38 29 0d 12 70 05  e1 0d 12 7a 04 0d 12 84  |!28)..p....z....|
00003390  4c 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |L===============|
000033a0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
000033d0  3d 3d 3d 3d 3d 3d 3d 3d  3d 0d 12 8e 04 0d 12 98  |=========.......|
000033e0  0f dd f2 6d 61 69 6e 5f  6d 65 6e 75 0d 12 a2 39  |...main_menu...9|
000033f0  ea 20 74 69 63 6b 2c 6c  69 6e 65 2c 77 72 69 74  |. tick,line,writ|
00003400  65 2c 6c 61 73 74 3a 74  69 63 6b 3d 31 3a 6c 69  |e,last:tick=1:li|
00003410  6e 65 3d 32 3a 77 72 69  74 65 3d 34 3a 6c 61 73  |ne=2:write=4:las|
00003420  74 3d 26 38 30 0d 12 ac  31 63 6f 64 65 5f 6d 25  |t=&80...1code_m%|
00003430  3d a4 6e 65 77 5f 6d 65  6e 75 20 28 6d 65 6e 75  |=.new_menu (menu|
00003440  62 75 66 66 25 2c 22 53  65 6e 64 20 43 6f 64 65  |buff%,"Send Code|
00003450  22 2c 32 30 30 29 0d 12  b6 23 6d 25 3d a4 6d 65  |",200)...#m%=.me|
00003460  6e 75 5f 69 74 65 6d 20  28 22 46 6f 72 6d 20 46  |nu_item ("Form F|
00003470  65 65 64 22 2c 30 2c 30  29 0d 12 c0 22 6d 25 3d  |eed",0,0)..."m%=|
00003480  a4 6d 65 6e 75 5f 69 74  65 6d 20 28 22 52 65 73  |.menu_item ("Res|
00003490  65 74 22 2c 6c 61 73 74  2c 30 29 0d 12 ca 28 e3  |et",last,0)...(.|
000034a0  20 49 25 3d 31 b8 33 30  3a 6d 25 3d a4 6d 65 6e  | I%=1.30:m%=.men|
000034b0  75 5f 69 74 65 6d 28 22  22 2c 6c 61 73 74 2c 30  |u_item("",last,0|
000034c0  29 3a ed 0d 12 d4 2e 65  66 66 65 63 74 5f 6d 25  |):.....effect_m%|
000034d0  3d a4 6e 65 77 5f 6d 65  6e 75 20 28 6d 25 2c 22  |=.new_menu (m%,"|
000034e0  45 66 66 65 63 74 20 4d  65 6e 75 22 2c 31 38 30  |Effect Menu",180|
000034f0  29 0d 12 de 20 6d 25 3d  a4 6d 65 6e 75 5f 69 74  |)... m%=.menu_it|
00003500  65 6d 20 28 22 43 65 6e  74 72 65 22 2c 30 2c 30  |em ("Centre",0,0|
00003510  29 0d 12 e8 25 6d 25 3d  a4 6d 65 6e 75 5f 69 74  |)...%m%=.menu_it|
00003520  65 6d 20 28 22 52 69 67  68 74 20 61 6c 69 67 6e  |em ("Right align|
00003530  22 2c 30 2c 30 29 0d 12  f2 25 6d 25 3d a4 6d 65  |",0,0)...%m%=.me|
00003540  6e 75 5f 69 74 65 6d 20  28 22 4d 61 6b 65 20 48  |nu_item ("Make H|
00003550  65 61 64 65 72 22 2c 30  2c 30 29 0d 12 fc 25 6d  |eader",0,0)...%m|
00003560  25 3d a4 6d 65 6e 75 5f  69 74 65 6d 20 28 22 4d  |%=.menu_item ("M|
00003570  61 6b 65 20 46 6f 6f 74  65 72 22 2c 30 2c 30 29  |ake Footer",0,0)|
00003580  0d 13 06 25 6d 25 3d a4  6d 65 6e 75 5f 69 74 65  |...%m%=.menu_ite|
00003590  6d 20 28 22 50 61 67 65  20 6e 75 6d 62 65 72 22  |m ("Page number"|
000035a0  2c 30 2c 30 29 0d 13 10  25 6d 25 3d a4 6d 65 6e  |,0,0)...%m%=.men|
000035b0  75 5f 69 74 65 6d 20 28  22 4e 65 77 20 70 61 67  |u_item ("New pag|
000035c0  65 22 2c 6c 61 73 74 2c  30 29 0d 13 1a 2a 6d 61  |e",last,0)...*ma|
000035d0  69 6e 5f 6d 25 3d a4 6e  65 77 5f 6d 65 6e 75 20  |in_m%=.new_menu |
000035e0  28 6d 25 2c 22 45 64 69  74 20 50 6c 75 73 22 2c  |(m%,"Edit Plus",|
000035f0  31 38 30 29 0d 13 24 2a  6d 25 3d a4 6d 65 6e 75  |180)..$*m%=.menu|
00003600  5f 69 74 65 6d 20 28 22  49 6d 6d 65 64 20 43 6f  |_item ("Immed Co|
00003610  64 65 22 2c 30 2c 63 6f  64 65 5f 6d 25 29 0d 13  |de",0,code_m%)..|
00003620  2e 28 6d 25 3d a4 6d 65  6e 75 5f 69 74 65 6d 20  |.(m%=.menu_item |
00003630  28 22 45 66 66 65 63 74  22 2c 30 2c 65 66 66 65  |("Effect",0,effe|
00003640  63 74 5f 6d 25 29 0d 13  38 23 6d 25 3d a4 6d 65  |ct_m%)..8#m%=.me|
00003650  6e 75 5f 69 74 65 6d 20  28 22 53 74 79 6c 65 73  |nu_item ("Styles|
00003660  22 2c 6c 69 6e 65 2c 30  29 0d 13 42 1f 6d 25 3d  |",line,0)..B.m%=|
00003670  a4 6d 65 6e 75 5f 69 74  65 6d 20 28 22 50 72 69  |.menu_item ("Pri|
00003680  6e 74 22 2c 30 2c 30 29  0d 13 4c 25 6d 25 3d a4  |nt",0,0)..L%m%=.|
00003690  6d 65 6e 75 5f 69 74 65  6d 20 28 22 50 61 67 65  |menu_item ("Page|
000036a0  20 6c 61 79 6f 75 74 22  2c 30 2c 30 29 0d 13 56  | layout",0,0)..V|
000036b0  21 6d 25 3d a4 6d 65 6e  75 5f 69 74 65 6d 20 28  |!m%=.menu_item (|
000036c0  22 50 72 65 76 69 65 77  22 2c 30 2c 30 29 0d 13  |"Preview",0,0)..|
000036d0  60 27 6d 25 3d a4 6d 65  6e 75 5f 69 74 65 6d 20  |`'m%=.menu_item |
000036e0  28 22 43 6c 65 61 72 20  74 65 78 74 22 2c 6c 69  |("Clear text",li|
000036f0  6e 65 2c 30 29 0d 13 6a  24 6d 25 3d a4 6d 65 6e  |ne,0)..j$m%=.men|
00003700  75 5f 69 74 65 6d 20 28  22 49 6e 66 6f 22 2c 30  |u_item ("Info",0|
00003710  2c 69 6e 66 6f 5f 77 25  29 0d 13 74 21 6d 25 3d  |,info_w%)..t!m%=|
00003720  a4 6d 65 6e 75 5f 69 74  65 6d 20 28 22 51 75 69  |.menu_item ("Qui|
00003730  74 22 2c 6c 61 73 74 2c  30 29 0d 13 7e 2e 72 65  |t",last,0)..~.re|
00003740  6d 6f 76 65 5f 6d 25 3d  a4 6e 65 77 5f 6d 65 6e  |move_m%=.new_men|
00003750  75 20 28 6d 25 2c 22 52  65 6d 6f 76 65 20 43 6f  |u (m%,"Remove Co|
00003760  64 65 22 2c 32 30 30 29  0d 13 88 25 6d 25 3d a4  |de",200)...%m%=.|
00003770  6d 65 6e 75 5f 69 74 65  6d 20 28 22 53 74 79 6c  |menu_item ("Styl|
00003780  65 20 63 6f 64 65 73 22  2c 30 2c 30 29 0d 13 92  |e codes",0,0)...|
00003790  26 6d 25 3d a4 6d 65 6e  75 5f 69 74 65 6d 20 28  |&m%=.menu_item (|
000037a0  22 43 6e 74 72 2f 52 2e  61 6c 69 67 6e 22 2c 30  |"Cntr/R.align",0|
000037b0  2c 30 29 0d 13 9c 25 6d  25 3d a4 6d 65 6e 75 5f  |,0)...%m%=.menu_|
000037c0  69 74 65 6d 20 28 22 50  61 67 65 20 62 72 65 61  |item ("Page brea|
000037d0  6b 73 22 2c 30 2c 30 29  0d 13 a6 21 6d 25 3d a4  |ks",0,0)...!m%=.|
000037e0  6d 65 6e 75 5f 69 74 65  6d 20 28 22 48 65 61 64  |menu_item ("Head|
000037f0  65 72 73 22 2c 30 2c 30  29 0d 13 b0 24 6d 25 3d  |ers",0,0)...$m%=|
00003800  a4 6d 65 6e 75 5f 69 74  65 6d 20 28 22 46 6f 6f  |.menu_item ("Foo|
00003810  74 65 72 73 22 2c 6c 61  73 74 2c 30 29 0d 13 ba  |ters",last,0)...|
00003820  2a 76 69 65 77 5f 6d 25  3d a4 6e 65 77 5f 6d 65  |*view_m%=.new_me|
00003830  6e 75 20 28 6d 25 2c 22  45 64 69 74 20 50 6c 75  |nu (m%,"Edit Plu|
00003840  73 22 2c 32 30 30 29 0d  13 c4 24 6d 25 3d a4 6d  |s",200)...$m%=.m|
00003850  65 6e 75 5f 69 74 65 6d  20 28 22 50 61 67 65 20  |enu_item ("Page |
00003860  42 72 6b 20 8b 22 2c 30  2c 30 29 0d 13 ce 27 6d  |Brk .",0,0)...'m|
00003870  25 3d a4 6d 65 6e 75 5f  69 74 65 6d 20 28 22 50  |%=.menu_item ("P|
00003880  61 67 65 20 42 72 6b 20  8a 22 2c 6c 69 6e 65 2c  |age Brk .",line,|
00003890  30 29 0d 13 d8 2e 6d 25  3d a4 6d 65 6e 75 5f 69  |0)....m%=.menu_i|
000038a0  74 65 6d 20 28 22 52 65  6d 6f 76 65 20 63 6f 64  |tem ("Remove cod|
000038b0  65 73 22 2c 30 2c 72 65  6d 6f 76 65 5f 6d 25 29  |es",0,remove_m%)|
000038c0  0d 13 e2 27 6d 25 3d a4  6d 65 6e 75 5f 69 74 65  |...'m%=.menu_ite|
000038d0  6d 20 28 22 52 65 70 61  67 69 6e 61 74 65 22 2c  |m ("Repaginate",|
000038e0  6c 69 6e 65 2c 30 29 0d  13 ec 2a 6d 25 3d a4 6d  |line,0)...*m%=.m|
000038f0  65 6e 75 5f 69 74 65 6d  20 28 22 53 61 76 65 20  |enu_item ("Save |
00003900  54 65 78 74 22 2c 30 2c  73 61 76 65 54 5f 77 25  |Text",0,saveT_w%|
00003910  29 0d 13 f6 2d 6d 25 3d  a4 6d 65 6e 75 5f 69 74  |)...-m%=.menu_it|
00003920  65 6d 20 28 22 53 61 76  65 20 45 64 69 74 2b 22  |em ("Save Edit+"|
00003930  2c 26 38 30 2c 73 61 76  65 50 5f 77 25 29 0d 14  |,&80,saveP_w%)..|
00003940  00 05 e1 0d 14 0a 04 0d  14 14 4a 3d 3d 3d 3d 3d  |..........J=====|
00003950  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00003990  3d 0d 14 1e 04 0d 14 28  29 dd a4 6e 65 77 5f 6d  |=......()..new_m|
000039a0  65 6e 75 20 28 61 25 2c  6d 65 6e 75 74 69 74 6c  |enu (a%,menutitl|
000039b0  65 24 2c 6d 65 6e 75 77  69 64 74 68 25 29 0d 14  |e$,menuwidth%)..|
000039c0  32 41 24 61 25 3d 6d 65  6e 75 74 69 74 6c 65 24  |2A$a%=menutitle$|
000039d0  3a 61 25 21 31 32 3d 26  37 30 32 30 37 3a 61 25  |:a%!12=&70207:a%|
000039e0  21 31 36 3d 6d 65 6e 75  77 69 64 74 68 25 3a 61  |!16=menuwidth%:a|
000039f0  25 21 32 30 3d 34 30 3a  61 25 21 32 34 3d 30 0d  |%!20=40:a%!24=0.|
00003a00  14 3c 0c 6d 25 3d 61 25  2b 32 38 0d 14 46 07 3d  |.<.m%=a%+28..F.=|
00003a10  61 25 0d 14 50 04 0d 14  5a 2f dd a4 6d 65 6e 75  |a%..P...Z/..menu|
00003a20  5f 69 74 65 6d 20 28 69  74 65 6d 6e 61 6d 65 24  |_item (itemname$|
00003a30  2c 6d 65 6e 75 66 6c 61  67 73 25 2c 73 75 62 6d  |,menuflags%,subm|
00003a40  65 6e 75 25 29 0d 14 64  42 6d 25 21 30 3d 6d 65  |enu%)..dBm%!0=me|
00003a50  6e 75 66 6c 61 67 73 25  3a 6d 25 21 34 3d 73 75  |nuflags%:m%!4=su|
00003a60  62 6d 65 6e 75 25 3a 6d  25 21 38 3d 26 37 30 30  |bmenu%:m%!8=&700|
00003a70  30 30 30 31 3a 24 28 6d  25 2b 31 32 29 3d 69 74  |0001:$(m%+12)=it|
00003a80  65 6d 6e 61 6d 65 24 0d  14 6e 0a 3d 6d 25 2b 32  |emname$..n.=m%+2|
00003a90  34 0d 14 78 04 0d 14 82  25 dd a4 69 6e 64 69 72  |4..x....%..indir|
00003aa0  65 63 74 20 28 69 6e 64  69 72 24 2c 66 6c 61 67  |ect (indir$,flag|
00003ab0  73 25 2c 69 6e 64 69 72  25 29 0d 14 8c 44 6d 25  |s%,indir%)...Dm%|
00003ac0  21 30 3d 66 6c 61 67 73  25 3a 6d 25 21 34 3d 30  |!0=flags%:m%!4=0|
00003ad0  3a 6d 25 21 38 3d 26 37  30 30 30 31 30 31 3a 6d  |:m%!8=&7000101:m|
00003ae0  25 21 31 32 3d 69 6e 64  69 72 25 3a 6d 25 21 31  |%!12=indir%:m%!1|
00003af0  36 3d 2d 31 3a 6d 25 21  32 30 3d 31 32 37 0d 14  |6=-1:m%!20=127..|
00003b00  96 21 e7 20 69 6e 64 69  72 24 20 3c 3e 22 3f 22  |.!. indir$ <>"?"|
00003b10  20 24 69 6e 64 69 72 25  3d 69 6e 64 69 72 24 0d  | $indir%=indir$.|
00003b20  14 a0 0a 3d 6d 25 2b 32  34 0d 14 aa 04 0d 14 b4  |...=m%+24.......|
00003b30  16 dd f2 74 69 63 6b 5f  69 74 65 6d 28 6d 25 2c  |...tick_item(m%,|
00003b40  69 25 29 0d 14 be 0b 49  25 3d 6d 25 2b 34 0d 14  |i%)....I%=m%+4..|
00003b50  c8 23 f5 3a 49 25 2b 3d  32 34 3a 21 49 25 3d 21  |.#.:I%+=24:!I%=!|
00003b60  49 25 80 20 ac 20 31 3a  fd 20 21 49 25 80 26 38  |I%. . 1:. !I%.&8|
00003b70  30 0d 14 d2 25 e7 20 ac  20 69 25 20 49 25 3d 6d  |0...%. . i% I%=m|
00003b80  25 2b 32 38 2b 28 69 25  2a 32 34 29 3a 21 49 25  |%+28+(i%*24):!I%|
00003b90  3d 21 49 25 84 31 0d 14  dc 05 e1 0d 14 e6 04 0d  |=!I%.1..........|
00003ba0  14 f0 10 dd a4 77 6b 73  70 63 28 73 7a 25 29 0d  |.....wkspc(sz%).|
00003bb0  14 fa 28 c8 99 22 57 69  6d 70 5f 53 6c 6f 74 53  |..(.."Wimp_SlotS|
00003bc0  69 7a 65 22 2c 6d 65 6d  73 7a 25 2b 73 7a 25 2c  |ize",memsz%+sz%,|
00003bd0  2d 31 20 b8 20 65 25 0d  15 04 1d e7 20 65 25 3c  |-1 . e%..... e%<|
00003be0  28 6d 65 6d 73 7a 25 2b  73 7a 25 29 3a 3d a3 3a  |(memsz%+sz%):=.:|
00003bf0  8b 3a 3d b9 0d 15 0e 04  0d 15 18 1c dd a4 69 63  |.:=...........ic|
00003c00  6f 6e 62 61 72 20 28 73  70 72 69 74 65 24 2c 70  |onbar (sprite$,p|
00003c10  6f 73 25 29 0d 15 22 2c  21 62 6c 6b 25 3d 70 6f  |os%)..",!blk%=po|
00003c20  73 25 3a 62 6c 6b 25 21  34 3d 2d 38 3a 62 6c 6b  |s%:blk%!4=-8:blk|
00003c30  25 21 38 3d 30 3a 62 6c  6b 25 21 31 32 3d 35 36  |%!8=0:blk%!12=56|
00003c40  0d 15 2c 33 62 6c 6b 25  21 31 36 3d 39 36 3a 62  |..,3blk%!16=96:b|
00003c50  6c 6b 25 21 32 30 3d 26  32 30 30 32 3a 24 28 62  |lk%!20=&2002:$(b|
00003c60  6c 6b 25 2b 32 34 29 3d  22 21 22 2b 73 70 72 69  |lk%+24)="!"+spri|
00003c70  74 65 24 0d 15 36 23 c8  99 20 22 57 69 6d 70 5f  |te$..6#.. "Wimp_|
00003c80  43 72 65 61 74 65 49 63  6f 6e 22 2c 2c 62 6c 6b  |CreateIcon",,blk|
00003c90  25 20 b8 20 49 25 0d 15  40 07 3d 49 25 0d 15 4a  |% . I%..@.=I%..J|
00003ca0  04 0d 15 54 1b dd f2 72  65 70 6f 72 74 5f 65 72  |...T...report_er|
00003cb0  72 6f 72 20 28 66 61 74  61 6c 25 29 0d 15 5e 17  |ror (fatal%)..^.|
00003cc0  c8 99 22 48 6f 75 72 67  6c 61 73 73 5f 53 6d 61  |.."Hourglass_Sma|
00003cd0  73 68 22 0d 15 68 2c 21  62 6c 6b 25 3d 9f 3a 24  |sh"..h,!blk%=.:$|
00003ce0  28 62 6c 6b 25 2b 34 29  3d f6 24 2b 22 20 61 74  |(blk%+4)=.$+" at|
00003cf0  20 6c 69 6e 65 20 22 2b  c3 28 9e 29 2b bd 30 0d  | line "+.(.)+.0.|
00003d00  15 72 27 c8 99 20 22 57  69 6d 70 5f 52 65 70 6f  |.r'.. "Wimp_Repo|
00003d10  72 74 45 72 72 6f 72 22  2c 62 6c 6b 25 2c 31 2c  |rtError",blk%,1,|
00003d20  74 69 74 6c 65 25 0d 15  7c 10 e7 20 ac 20 66 61  |title%..|.. . fa|
00003d30  74 61 6c 25 20 e1 0d 15  86 09 dd f2 64 69 65 0d  |tal% .......die.|
00003d40  15 90 2b ee 85 87 3a c8  99 20 22 57 69 6d 70 5f  |..+...:.. "Wimp_|
00003d50  43 6c 6f 73 65 44 6f 77  6e 22 2c 68 61 6e 64 25  |CloseDown",hand%|
00003d60  2c 26 34 42 35 33 34 31  35 34 0d 15 9a 05 e0 0d  |,&4B534154......|
00003d70  15 a4 04 0d 15 ae 14 dd  a4 61 6c 65 72 74 28 66  |.........alert(f|
00003d80  6c 67 25 2c 61 24 29 0d  15 b8 20 62 6c 6b 25 21  |lg%,a$)... blk%!|
00003d90  26 38 30 3d 30 3a 24 28  62 6c 6b 25 2b 26 38 34  |&80=0:$(blk%+&84|
00003da0  29 3d 61 24 2b bd 30 0d  15 c2 38 c8 99 22 57 69  |)=a$+.0...8.."Wi|
00003db0  6d 70 5f 52 65 70 6f 72  74 45 72 72 6f 72 22 2c  |mp_ReportError",|
00003dc0  62 6c 6b 25 2b 26 38 30  2c 31 36 84 66 6c 67 25  |blk%+&80,16.flg%|
00003dd0  2c 74 69 74 6c 65 25 20  b8 20 2c 66 6c 67 25 0d  |,title% . ,flg%.|
00003de0  15 cc 09 3d 66 6c 67 25  0d 15 d6 04 0d 15 e0 0d  |...=flg%........|
00003df0  dd f2 78 5f 65 72 72 6f  72 0d 15 ea 27 c8 99 22  |..x_error...'.."|
00003e00  57 69 6d 70 5f 52 65 70  6f 72 74 45 72 72 6f 72  |Wimp_ReportError|
00003e10  22 2c 65 72 72 25 2c 31  37 2c 74 69 74 6c 65 25  |",err%,17,title%|
00003e20  0d 15 f4 05 e1 0d 15 fe  04 0d 16 08 1a dd f2 74  |...............t|
00003e30  65 6d 70 6c 61 74 65 73  20 28 69 6e 64 69 72 73  |emplates (indirs|
00003e40  7a 25 29 0d 16 12 28 de  20 69 6e 64 69 72 25 20  |z%)...(. indir% |
00003e50  69 6e 64 69 72 73 7a 25  3a 45 25 3d 69 6e 64 69  |indirsz%:E%=indi|
00003e60  72 25 2b 69 6e 64 69 72  73 7a 25 0d 16 1c 31 c8  |r%+indirsz%...1.|
00003e70  99 20 22 57 69 6d 70 5f  4f 70 65 6e 54 65 6d 70  |. "Wimp_OpenTemp|
00003e80  6c 61 74 65 22 2c 2c 61  70 70 5f 64 69 72 24 2b  |late",,app_dir$+|
00003e90  22 2e 54 65 6d 70 6c 61  74 65 73 22 0d 16 26 40  |".Templates"..&@|
00003ea0  c8 99 20 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |.. "Wimp_LoadTem|
00003eb0  70 6c 61 74 65 22 2c 2c  62 75 66 66 65 72 25 2c  |plate",,buffer%,|
00003ec0  69 6e 64 69 72 25 2c 45  25 2c 2d 31 2c 22 69 6e  |indir%,E%,-1,"in|
00003ed0  66 6f 22 2c 30 20 b8 20  2c 2c 52 25 0d 16 30 2d  |fo",0 . ,,R%..0-|
00003ee0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |.. "Wimp_CreateW|
00003ef0  69 6e 64 6f 77 22 2c 2c  62 75 66 66 65 72 25 20  |indow",,buffer% |
00003f00  b8 20 69 6e 66 6f 5f 77  25 0d 16 3a 3e c8 99 20  |. info_w%..:>.. |
00003f10  22 57 69 6d 70 5f 4c 6f  61 64 54 65 6d 70 6c 61  |"Wimp_LoadTempla|
00003f20  74 65 22 2c 2c 62 75 66  66 65 72 25 2c 52 25 2c  |te",,buffer%,R%,|
00003f30  45 25 2c 2d 31 2c 22 6c  61 79 6f 75 74 22 2c 30  |E%,-1,"layout",0|
00003f40  20 b8 20 2c 2c 52 25 0d  16 44 2f c8 99 20 22 57  | . ,,R%..D/.. "W|
00003f50  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
00003f60  22 2c 2c 62 75 66 66 65  72 25 20 b8 20 6c 61 79  |",,buffer% . lay|
00003f70  6f 75 74 5f 77 25 0d 16  4e 3e c8 99 20 22 57 69  |out_w%..N>.. "Wi|
00003f80  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
00003f90  2c 2c 62 75 66 66 65 72  25 2c 52 25 2c 45 25 2c  |,,buffer%,R%,E%,|
00003fa0  2d 31 2c 22 73 74 61 74  75 73 22 2c 30 20 b8 20  |-1,"status",0 . |
00003fb0  2c 2c 52 25 0d 16 58 2f  c8 99 20 22 57 69 6d 70  |,,R%..X/.. "Wimp|
00003fc0  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
00003fd0  62 75 66 66 65 72 25 20  b8 20 73 74 61 74 75 73  |buffer% . status|
00003fe0  5f 77 25 0d 16 62 3f c8  99 20 22 57 69 6d 70 5f  |_w%..b?.. "Wimp_|
00003ff0  4c 6f 61 64 54 65 6d 70  6c 61 74 65 22 2c 2c 62  |LoadTemplate",,b|
00004000  75 66 66 65 72 25 2c 52  25 2c 45 25 2c 2d 31 2c  |uffer%,R%,E%,-1,|
00004010  22 6e 65 77 70 61 67 65  22 2c 30 20 b8 20 2c 2c  |"newpage",0 . ,,|
00004020  52 25 0d 16 6c 30 c8 99  20 22 57 69 6d 70 5f 43  |R%..l0.. "Wimp_C|
00004030  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 62 75  |reateWindow",,bu|
00004040  66 66 65 72 25 20 b8 20  6e 65 77 70 61 67 65 5f  |ffer% . newpage_|
00004050  77 25 0d 16 76 3e c8 99  20 22 57 69 6d 70 5f 4c  |w%..v>.. "Wimp_L|
00004060  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 62 75  |oadTemplate",,bu|
00004070  66 66 65 72 25 2c 52 25  2c 45 25 2c 2d 31 2c 22  |ffer%,R%,E%,-1,"|
00004080  73 74 79 6c 65 73 22 2c  30 20 b8 20 2c 2c 52 25  |styles",0 . ,,R%|
00004090  0d 16 80 2f c8 99 20 22  57 69 6d 70 5f 43 72 65  |.../.. "Wimp_Cre|
000040a0  61 74 65 57 69 6e 64 6f  77 22 2c 2c 62 75 66 66  |ateWindow",,buff|
000040b0  65 72 25 20 b8 20 73 74  79 6c 65 73 5f 77 25 0d  |er% . styles_w%.|
000040c0  16 8a 3c c8 99 20 22 57  69 6d 70 5f 4c 6f 61 64  |..<.. "Wimp_Load|
000040d0  54 65 6d 70 6c 61 74 65  22 2c 2c 62 75 66 66 65  |Template",,buffe|
000040e0  72 25 2c 52 25 2c 45 25  2c 2d 31 2c 22 76 69 65  |r%,R%,E%,-1,"vie|
000040f0  77 22 2c 30 20 b8 20 2c  2c 52 25 0d 16 94 2d c8  |w",0 . ,,R%...-.|
00004100  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
00004110  6e 64 6f 77 22 2c 2c 62  75 66 66 65 72 25 20 b8  |ndow",,buffer% .|
00004120  20 76 69 65 77 5f 77 25  0d 16 9e 3d c8 99 20 22  | view_w%...=.. "|
00004130  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
00004140  65 22 2c 2c 62 75 66 66  65 72 25 2c 52 25 2c 45  |e",,buffer%,R%,E|
00004150  25 2c 2d 31 2c 22 73 61  76 65 50 22 2c 30 20 b8  |%,-1,"saveP",0 .|
00004160  20 2c 2c 52 25 0d 16 a8  2e c8 99 20 22 57 69 6d  | ,,R%...... "Wim|
00004170  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00004180  2c 62 75 66 66 65 72 25  20 b8 20 73 61 76 65 50  |,buffer% . saveP|
00004190  5f 77 25 0d 16 b2 3d c8  99 20 22 57 69 6d 70 5f  |_w%...=.. "Wimp_|
000041a0  4c 6f 61 64 54 65 6d 70  6c 61 74 65 22 2c 2c 62  |LoadTemplate",,b|
000041b0  75 66 66 65 72 25 2c 52  25 2c 45 25 2c 2d 31 2c  |uffer%,R%,E%,-1,|
000041c0  22 73 61 76 65 54 22 2c  30 20 b8 20 2c 2c 52 25  |"saveT",0 . ,,R%|
000041d0  0d 16 bc 2e c8 99 20 22  57 69 6d 70 5f 43 72 65  |...... "Wimp_Cre|
000041e0  61 74 65 57 69 6e 64 6f  77 22 2c 2c 62 75 66 66  |ateWindow",,buff|
000041f0  65 72 25 20 b8 20 73 61  76 65 54 5f 77 25 0d 16  |er% . saveT_w%..|
00004200  c6 1b c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |.... "Wimp_Close|
00004210  54 65 6d 70 6c 61 74 65  22 0d 16 d0 47 21 62 6c  |Template"...G!bl|
00004220  6b 25 3d 6c 61 79 6f 75  74 5f 77 25 3a 62 6c 6b  |k%=layout_w%:blk|
00004230  25 21 34 3d 31 3a c8 99  20 22 57 69 6d 70 5f 47  |%!4=1:.. "Wimp_G|
00004240  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 6c  |etIconState",,bl|
00004250  6b 25 3a 24 28 62 6c 6b  25 21 32 38 29 3d 22 22  |k%:$(blk%!28)=""|
00004260  0d 16 da 47 21 62 6c 6b  25 3d 6c 61 79 6f 75 74  |...G!blk%=layout|
00004270  5f 77 25 3a 62 6c 6b 25  21 34 3d 32 3a c8 99 20  |_w%:blk%!4=2:.. |
00004280  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00004290  74 65 22 2c 2c 62 6c 6b  25 3a 24 28 62 6c 6b 25  |te",,blk%:$(blk%|
000042a0  21 32 38 29 3d 22 22 0d  16 e4 4b 21 62 6c 6b 25  |!28)=""...K!blk%|
000042b0  3d 69 6e 66 6f 5f 77 25  3a 62 6c 6b 25 21 34 3d  |=info_w%:blk%!4=|
000042c0  30 3a c8 99 20 22 57 69  6d 70 5f 47 65 74 49 63  |0:.. "Wimp_GetIc|
000042d0  6f 6e 53 74 61 74 65 22  2c 2c 62 6c 6b 25 3a 24  |onState",,blk%:$|
000042e0  28 62 6c 6b 25 21 32 38  29 3d 76 65 72 73 69 6f  |(blk%!28)=versio|
000042f0  6e 24 0d 16 ee 48 21 62  6c 6b 25 3d 69 6e 66 6f  |n$...H!blk%=info|
00004300  5f 77 25 3a 62 6c 6b 25  21 34 3d 31 3a c8 99 20  |_w%:blk%!4=1:.. |
00004310  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00004320  74 65 22 2c 2c 62 6c 6b  25 3a 24 28 62 6c 6b 25  |te",,blk%:$(blk%|
00004330  21 32 38 29 3d 63 70 72  74 24 0d 16 f8 4b 21 62  |!28)=cprt$...K!b|
00004340  6c 6b 25 3d 69 6e 66 6f  5f 77 25 3a 62 6c 6b 25  |lk%=info_w%:blk%|
00004350  21 34 3d 32 3a c8 99 20  22 57 69 6d 70 5f 47 65  |!4=2:.. "Wimp_Ge|
00004360  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 6c 6b  |tIconState",,blk|
00004370  25 3a 24 28 62 6c 6b 25  21 32 38 29 3d 70 75 72  |%:$(blk%!28)=pur|
00004380  70 6f 73 65 24 0d 17 02  05 e1 0d 17 0c 04 0d 17  |pose$...........|
00004390  16 13 dd f2 64 65 66 61  75 6c 74 5f 63 6f 64 65  |....default_code|
000043a0  73 0d 17 20 07 ea 20 dc  0d 17 2a 13 49 25 3d 69  |s.. .. ...*.I%=i|
000043b0  6d 6d 65 64 5f 63 6f 64  65 73 25 0d 17 34 20 f5  |mmed_codes%..4 .|
000043c0  3a f3 20 4a 25 3a 3f 49  25 3d 4a 25 3a 49 25 2b  |:. J%:?I%=J%:I%+|
000043d0  3d 31 3a fd 20 4a 25 3d  32 35 35 0d 17 3e 08 49  |=1:. J%=255..>.I|
000043e0  25 3d 30 0d 17 48 05 f5  0d 17 52 09 20 f3 20 4a  |%=0..H....R. . J|
000043f0  25 0d 17 5c 21 20 e7 20  4a 25 3c 3e 31 36 33 20  |%..\! . J%<>163 |
00004400  73 74 79 6c 65 5f 74 61  62 6c 65 25 3f 49 25 3d  |style_table%?I%=|
00004410  4a 25 0d 17 66 0a 20 49  25 2b 3d 31 0d 17 70 16  |J%..f. I%+=1..p.|
00004420  20 63 6f 64 65 5f 69 6e  64 65 78 25 3f 4a 25 3d  | code_index%?J%=|
00004430  49 25 0d 17 7a 0a fd 20  4a 25 3d 30 0d 17 84 15  |I%..z.. J%=0....|
00004440  74 72 61 6e 73 5f 69 6e  64 65 78 3f 31 36 33 3d  |trans_index?163=|
00004450  31 0d 17 8e 0d 49 25 3d  63 6f 64 65 73 25 0d 17  |1....I%=codes%..|
00004460  98 20 f5 3a f3 20 4a 25  3a 3f 49 25 3d 4a 25 3a  |. .:. J%:?I%=J%:|
00004470  49 25 2b 3d 31 3a fd 20  4a 25 3d 32 35 35 0d 17  |I%+=1:. J%=255..|
00004480  a2 26 e3 20 49 25 3d 30  b8 35 3a f3 20 61 24 3a  |.&. I%=0.5:. a$:|
00004490  f2 73 74 79 6c 65 5f 69  63 6f 6e 28 61 24 2c 49  |.style_icon(a$,I|
000044a0  25 29 3a ed 0d 17 ac 18  f2 73 65 74 5f 73 74 79  |%):......set_sty|
000044b0  6c 65 5f 65 78 74 28 2d  32 32 30 29 0d 17 b6 1a  |le_ext(-220)....|
000044c0  dc 20 32 2c 31 32 2c 20  33 2c 32 37 2c 36 34 2c  |. 2,12, 3,27,64,|
000044d0  20 30 2c 32 35 35 0d 17  c0 23 dc 20 32 30 31 2c  | 0,255...#. 201,|
000044e0  32 30 30 2c 32 31 38 2c  32 31 37 2c 32 30 35 2c  |200,218,217,205,|
000044f0  32 30 34 2c 31 36 33 2c  30 0d 17 ca 3e dc 20 34  |204,163,0...>. 4|
00004500  2c 32 37 2c 34 35 2c 31  2c 20 34 2c 32 37 2c 34  |,27,45,1, 4,27,4|
00004510  35 2c 30 2c 20 33 2c 32  37 2c 37 31 2c 20 33 2c  |5,0, 3,27,71, 3,|
00004520  32 37 2c 37 32 2c 20 33  2c 32 37 2c 35 32 2c 20  |27,72, 3,27,52, |
00004530  33 2c 32 37 2c 35 33 0d  17 d4 21 dc 20 38 2c 32  |3,27,53...!. 8,2|
00004540  37 2c 38 32 2c 33 2c 33  35 2c 32 37 2c 38 32 2c  |7,82,3,35,27,82,|
00004550  30 2c 20 30 2c 32 35 35  0d 17 de 55 dc 20 22 53  |0, 0,255...U. "S|
00004560  74 61 72 74 20 55 2f 6c  69 6e 65 22 2c 22 45 6e  |tart U/line","En|
00004570  64 20 55 2f 6c 69 6e 65  22 2c 22 53 74 61 72 74  |d U/line","Start|
00004580  20 42 6f 6c 64 22 2c 22  45 6e 64 20 42 6f 6c 64  | Bold","End Bold|
00004590  22 2c 22 53 74 61 72 74  20 49 74 61 6c 69 63 22  |","Start Italic"|
000045a0  2c 22 45 6e 64 20 49 74  61 6c 69 63 22 0d 17 e8  |,"End Italic"...|
000045b0  05 e1 0d 17 f2 04 0d 17  fc 10 dd f2 69 6e 69 74  |............init|
000045c0  69 61 6c 69 73 65 0d 18  06 3b c8 99 20 22 57 69  |ialise...;.. "Wi|
000045d0  6d 70 5f 49 6e 69 74 69  61 6c 69 73 65 22 2c 32  |mp_Initialise",2|
000045e0  30 30 2c 26 34 42 35 33  34 31 35 34 2c 22 45 64  |00,&4B534154,"Ed|
000045f0  69 74 20 50 6c 75 73 22  20 b8 20 2c 68 61 6e 64  |it Plus" . ,hand|
00004600  25 0d 18 10 1a de 20 62  6c 6b 25 20 26 32 30 30  |%..... blk% &200|
00004610  2c 20 74 69 74 6c 65 25  20 33 32 0d 18 1a 24 24  |, title% 32...$$|
00004620  74 69 74 6c 65 25 3d 22  45 64 69 74 20 50 6c 75  |title%="Edit Plu|
00004630  73 22 3a 69 63 6f 6e 5f  70 6f 73 25 3d 2d 31 0d  |s":icon_pos%=-1.|
00004640  18 24 29 6c 61 79 6f 75  74 5f 69 64 24 3d 22 45  |.$)layout_id$="E|
00004650  64 69 74 20 50 6c 75 73  20 76 31 20 50 61 67 65  |dit Plus v1 Page|
00004660  20 4c 61 79 6f 75 74 22  0d 18 2e 3f de 20 6d 65  | Layout"...?. me|
00004670  6e 75 62 75 66 66 25 20  26 36 38 30 2c 20 63 6f  |nubuff% &680, co|
00004680  64 65 25 20 26 38 30 30  2c 20 70 72 65 5f 70 72  |de% &800, pre_pr|
00004690  69 6e 74 25 20 34 38 2c  20 70 6f 73 74 5f 70 72  |int% 48, post_pr|
000046a0  69 6e 74 25 20 34 38 0d  18 38 47 de 20 73 74 79  |int% 48..8G. sty|
000046b0  6c 65 5f 74 61 62 6c 65  25 20 34 38 2c 20 63 6f  |le_table% 48, co|
000046c0  64 65 5f 69 6e 64 65 78  25 20 26 31 30 30 2c 20  |de_index% &100, |
000046d0  63 6f 64 65 73 25 20 26  34 30 30 2c 20 74 72 61  |codes% &400, tra|
000046e0  6e 73 5f 69 6e 64 65 78  25 20 26 31 30 30 0d 18  |ns_index% &100..|
000046f0  42 17 de 20 69 6d 6d 65  64 5f 63 6f 64 65 73 25  |B.. immed_codes%|
00004700  20 26 32 30 30 0d 18 4c  1b ea 85 3a ee 85 ea 20  | &200..L...:... |
00004710  f2 72 65 70 6f 72 74 5f  65 72 72 6f 72 28 b9 29  |.report_error(.)|
00004720  0d 18 56 1f 66 69 6c 65  25 3d a3 3a 65 6f 70 5f  |..V.file%=.:eop_|
00004730  70 61 75 73 65 64 25 3d  a3 3a 66 68 25 3d a3 0d  |paused%=.:fh%=..|
00004740  18 60 34 e3 49 25 3d 30  b8 32 35 32 88 34 3a 63  |.`4.I%=0.252.4:c|
00004750  6f 64 65 5f 69 6e 64 65  78 25 21 49 25 3d 30 3a  |ode_index%!I%=0:|
00004760  74 72 61 6e 73 5f 69 6e  64 65 78 25 21 49 25 3d  |trans_index%!I%=|
00004770  30 3a ed 0d 18 6a 22 e3  49 25 3d 30 b8 34 34 88  |0:...j".I%=0.44.|
00004780  34 3a 73 74 79 6c 65 5f  74 61 62 6c 65 25 21 49  |4:style_table%!I|
00004790  25 3d 30 3a ed 0d 18 74  35 c8 99 20 22 4f 53 5f  |%=0:...t5.. "OS_|
000047a0  52 65 61 64 56 61 72 56  61 6c 22 2c 22 4f 62 65  |ReadVarVal","Obe|
000047b0  79 24 44 69 72 22 2c 62  6c 6b 25 2c 32 35 36 2c  |y$Dir",blk%,256,|
000047c0  30 2c 33 20 b8 20 2c 2c  49 25 0d 18 7e 1d 62 6c  |0,3 . ,,I%..~.bl|
000047d0  6b 25 3f 49 25 3d 31 33  3a 61 70 70 5f 64 69 72  |k%?I%=13:app_dir|
000047e0  24 3d 24 62 6c 6b 25 0d  18 88 20 6d 65 6d 73 7a  |$=$blk%... memsz|
000047f0  25 3d 93 2d 26 38 30 30  30 3a 62 75 66 66 65 72  |%=.-&8000:buffer|
00004800  25 3d 93 2b 26 38 30 0d  18 92 14 c8 99 22 48 6f  |%=.+&80......"Ho|
00004810  75 72 67 6c 61 73 73 5f  4f 6e 22 0d 18 9c 45 e7  |urglass_On"...E.|
00004820  20 a4 77 6b 73 70 63 28  26 32 30 30 30 29 3d a3  | .wkspc(&2000)=.|
00004830  20 49 25 3d a4 61 6c 65  72 74 28 31 2c 22 4e 6f  | I%=.alert(1,"No|
00004840  74 20 65 6e 6f 75 67 68  20 52 41 4d 20 74 6f 20  |t enough RAM to |
00004850  72 75 6e 20 45 64 69 74  2b 22 29 3a f2 64 69 65  |run Edit+"):.die|
00004860  0d 18 a6 20 f2 74 65 6d  70 6c 61 74 65 73 20 28  |... .templates (|
00004870  26 33 30 30 29 3a f2 6d  61 69 6e 5f 6d 65 6e 75  |&300):.main_menu|
00004880  0d 18 b0 29 c8 99 22 4f  53 5f 46 69 6c 65 22 2c  |...).."OS_File",|
00004890  31 33 2c 61 70 70 5f 64  69 72 24 2b 22 2e 44 61  |13,app_dir$+".Da|
000048a0  74 61 43 22 20 b8 20 46  25 0d 18 ba 73 e7 20 46  |taC" . F%...s. F|
000048b0  25 3d 31 20 c8 99 20 22  4f 53 5f 46 69 6c 65 22  |%=1 .. "OS_File"|
000048c0  2c 31 36 2c 61 70 70 5f  64 69 72 24 2b 22 2e 44  |,16,app_dir$+".D|
000048d0  61 74 61 43 22 2c 63 6f  64 65 25 20 8b 20 49 25  |ataC",code% . I%|
000048e0  3d a4 61 6c 65 72 74 28  31 2c 22 46 69 6c 65 20  |=.alert(1,"File |
000048f0  44 61 74 61 43 20 6e 6f  74 20 70 72 65 73 65 6e  |DataC not presen|
00004900  74 2c 20 75 6e 61 62 6c  65 20 74 6f 20 63 6f 6e  |t, unable to con|
00004910  74 69 6e 75 65 22 29 3a  f2 64 69 65 0d 18 c4 2a  |tinue"):.die...*|
00004920  c8 99 22 4f 53 5f 46 69  6c 65 22 2c 31 33 2c 61  |.."OS_File",13,a|
00004930  70 70 5f 64 69 72 24 2b  22 2e 63 6f 6e 66 69 67  |pp_dir$+".config|
00004940  22 20 b8 20 46 25 0d 18  ce 78 e7 20 46 25 3d 31  |" . F%...x. F%=1|
00004950  20 f2 63 6f 6e 66 69 67  75 72 65 20 8b 20 f2 64  | .configure . .d|
00004960  65 66 61 75 6c 74 5f 63  6f 64 65 73 3a e7 20 a4  |efault_codes:. .|
00004970  61 6c 65 72 74 28 33 2c  22 43 6f 6e 66 69 67 20  |alert(3,"Config |
00004980  66 69 6c 65 20 6e 6f 74  20 66 6f 75 6e 64 2e 20  |file not found. |
00004990  43 6f 6e 74 69 6e 75 65  20 75 73 69 6e 67 20 44  |Continue using D|
000049a0  65 66 61 75 6c 74 20 63  6f 6e 66 69 67 75 72 61  |efault configura|
000049b0  74 69 6f 6e 3f 22 29 3d  32 20 f2 64 69 65 0d 18  |tion?")=2 .die..|
000049c0  d8 2a c8 99 22 4f 53 5f  46 69 6c 65 22 2c 31 33  |.*.."OS_File",13|
000049d0  2c 61 70 70 5f 64 69 72  24 2b 22 2e 6c 61 79 6f  |,app_dir$+".layo|
000049e0  75 74 22 20 b8 20 46 25  0d 18 e2 2b e7 20 46 25  |ut" . F%...+. F%|
000049f0  3d 31 20 f2 6c 6f 61 64  5f 6c 61 79 6f 75 74 28  |=1 .load_layout(|
00004a00  61 70 70 5f 64 69 72 24  2b 22 2e 6c 61 79 6f 75  |app_dir$+".layou|
00004a10  74 22 29 0d 18 ec 25 69  63 6f 6e 25 3d a4 69 63  |t")...%icon%=.ic|
00004a20  6f 6e 62 61 72 28 22 65  64 69 74 2b 22 2c 69 63  |onbar("edit+",ic|
00004a30  6f 6e 5f 70 6f 73 25 29  0d 18 f6 37 63 6f 64 65  |on_pos%)...7code|
00004a40  25 21 34 3d 62 75 66 66  65 72 25 3a 63 6f 64 65  |%!4=buffer%:code|
00004a50  25 21 32 34 3d 62 6c 6b  25 3a 63 6f 64 65 25 21  |%!24=blk%:code%!|
00004a60  32 38 3d 74 72 61 6e 73  5f 69 6e 64 65 78 25 0d  |28=trans_index%.|
00004a70  19 00 29 63 6f 64 65 25  21 33 32 3d 63 6f 64 65  |..)code%!32=code|
00004a80  5f 69 6e 64 65 78 25 3a  63 6f 64 65 25 21 34 38  |_index%:code%!48|
00004a90  3d 76 69 65 77 5f 77 25  0d 19 0a 21 f2 63 6c 65  |=view_w%...!.cle|
00004aa0  61 72 5f 66 69 6c 65 3a  c8 99 22 48 6f 75 72 67  |ar_file:.."Hourg|
00004ab0  6c 61 73 73 5f 4f 66 66  22 0d 19 14 05 e1 0d 19  |lass_Off".......|
00004ac0  1e 04 0d 19 28 10 dd f2  63 6c 65 61 72 5f 66 69  |....(...clear_fi|
00004ad0  6c 65 0d 19 32 18 f2 75  70 64 61 74 65 5f 73 74  |le..2..update_st|
00004ae0  61 74 75 73 28 31 2c 22  22 29 0d 19 3c 19 f2 75  |atus(1,"")..<..u|
00004af0  70 64 61 74 65 5f 73 74  61 74 75 73 28 32 2c 22  |pdate_status(2,"|
00004b00  30 22 29 0d 19 46 19 f2  75 70 64 61 74 65 5f 73  |0")..F..update_s|
00004b10  74 61 74 75 73 28 33 2c  22 30 22 29 0d 19 50 1f  |tatus(3,"0")..P.|
00004b20  f2 75 70 64 61 74 65 5f  73 74 61 74 75 73 28 34  |.update_status(4|
00004b30  2c 22 4e 6f 20 46 69 6c  65 22 29 0d 19 5a 35 62  |,"No File")..Z5b|
00004b40  6c 6b 25 21 26 31 30 30  3d 76 69 65 77 5f 77 25  |lk%!&100=view_w%|
00004b50  3a c8 99 22 57 69 6d 70  5f 43 6c 6f 73 65 57 69  |:.."Wimp_CloseWi|
00004b60  6e 64 6f 77 22 2c 2c 62  6c 6b 25 2b 26 31 30 30  |ndow",,blk%+&100|
00004b70  0d 19 64 2b 66 69 6c 65  6e 61 6d 65 24 3d 22 22  |..d+filename$=""|
00004b80  3a 6d 61 73 6b 25 3d 25  31 31 30 30 30 30 31 31  |:mask%=%11000011|
00004b90  30 30 30 31 3a 6e 65 77  25 3d b9 0d 19 6e 33 e7  |0001:new%=...n3.|
00004ba0  20 66 69 6c 65 25 3d 32  20 c8 99 20 22 4f 53 5f  | file%=2 .. "OS_|
00004bb0  42 79 74 65 22 2c 32 31  2c 33 3a c8 99 22 4f 53  |Byte",21,3:.."OS|
00004bc0  5f 50 72 69 6e 74 43 68  61 72 22 2c 31 33 0d 19  |_PrintChar",13..|
00004bd0  78 2a 66 69 6c 65 25 3d  a3 3a 70 61 67 65 5f 6f  |x*file%=.:page_o|
00004be0  6b 25 3d a3 3a 68 64 6c  25 3d a3 3a 49 25 3d a4  |k%=.:hdl%=.:I%=.|
00004bf0  77 6b 73 70 63 28 30 29  0d 19 82 05 e1 0d 19 8c  |wkspc(0)........|
00004c00  04 0d 19 96 10 dd a4 70  72 69 6e 74 65 72 5f 6f  |.......printer_o|
00004c10  6e 0d 19 a0 2e c8 99 22  4f 53 5f 42 79 74 65 22  |n......"OS_Byte"|
00004c20  2c 31 32 38 2c 32 35 32  20 b8 20 2c 4c 25 2c 48  |,128,252 . ,L%,H|
00004c30  25 3a 46 25 3d 4c 25 2b  28 48 25 3c 3c 38 29 0d  |%:F%=L%+(H%<<8).|
00004c40  19 aa 21 e3 20 49 25 3d  30 b8 34 3a c8 99 22 4f  |..!. I%=0.4:.."O|
00004c50  53 5f 50 72 69 6e 74 43  68 61 72 22 2c 30 3a ed  |S_PrintChar",0:.|
00004c60  0d 19 b4 10 d1 3d 30 3a  f5 3a fd 20 91 3e 32 30  |.....=0:.:. .>20|
00004c70  0d 19 be 20 c8 99 22 4f  53 5f 42 79 74 65 22 2c  |... .."OS_Byte",|
00004c80  31 32 38 2c 32 35 32 20  b8 20 2c 4c 25 2c 48 25  |128,252 . ,L%,H%|
00004c90  0d 19 c8 18 e7 20 4c 25  2b 28 48 25 3c 3c 38 29  |..... L%+(H%<<8)|
00004ca0  20 3e 3d 46 25 3a 3d b9  0d 19 d2 28 e7 20 a4 61  | >=F%:=....(. .a|
00004cb0  6c 65 72 74 28 33 2c 22  50 72 69 6e 74 65 72 20  |lert(3,"Printer |
00004cc0  6e 6f 74 20 72 65 61 64  79 22 29 3d 32 3a 3d a3  |not ready")=2:=.|
00004cd0  0d 19 dc 10 3d a4 70 72  69 6e 74 65 72 5f 6f 6e  |....=.printer_on|
00004ce0  0d 19 e6 04 0d 19 f0 11  dd f2 73 61 76 65 5f 6c  |..........save_l|
00004cf0  61 79 6f 75 74 0d 19 fa  22 ea 85 3a ee 85 ea 3a  |ayout..."..:...:|
00004d00  d9 23 48 25 3a f2 72 65  70 6f 72 74 5f 65 72 72  |.#H%:.report_err|
00004d10  6f 72 28 a3 29 3a e1 0d  1a 04 1c 48 25 3d ae 28  |or(.):.....H%=.(|
00004d20  61 70 70 5f 64 69 72 24  2b 22 2e 6c 61 79 6f 75  |app_dir$+".layou|
00004d30  74 22 29 0d 1a 0e 34 e3  20 49 25 3d 31 b8 a9 28  |t")...4. I%=1..(|
00004d40  6c 61 79 6f 75 74 5f 69  64 24 29 3a d5 23 48 25  |layout_id$):.#H%|
00004d50  2c 97 28 c1 6c 61 79 6f  75 74 5f 69 64 24 2c 49  |,.(.layout_id$,I|
00004d60  25 2c 31 29 29 3a ed 0d  1a 18 0b d5 23 48 25 2c  |%,1)):......#H%,|
00004d70  31 33 0d 1a 22 0d e3 20  49 25 3d 31 b8 31 33 0d  |13..".. I%=1.13.|
00004d80  1a 2c 3b 20 21 62 6c 6b  25 3d 6c 61 79 6f 75 74  |.,; !blk%=layout|
00004d90  5f 77 25 3a 62 6c 6b 25  21 34 3d 49 25 3a c8 99  |_w%:blk%!4=I%:..|
00004da0  20 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  | "Wimp_GetIconSt|
00004db0  61 74 65 22 2c 2c 62 6c  6b 25 0d 1a 36 2c 20 4a  |ate",,blk%..6, J|
00004dc0  25 3d 62 6c 6b 25 21 32  38 3a f5 3a d5 23 48 25  |%=blk%!28:.:.#H%|
00004dd0  2c 3f 4a 25 3a 4a 25 2b  3d 31 3a fd 20 4a 25 3f  |,?J%:J%+=1:. J%?|
00004de0  2d 31 20 3c 33 32 0d 1a  40 05 ed 0d 1a 4a 08 d9  |-1 <32..@....J..|
00004df0  23 48 25 0d 1a 54 05 e1  0d 1a 5e 04 0d 1a 68 1c  |#H%..T....^...h.|
00004e00  dd f2 75 70 64 61 74 65  5f 73 74 61 74 75 73 28  |..update_status(|
00004e10  6e 75 6d 25 2c 73 24 29  0d 1a 72 26 62 6c 6b 25  |num%,s$)..r&blk%|
00004e20  21 26 31 30 30 3d 73 74  61 74 75 73 5f 77 25 3a  |!&100=status_w%:|
00004e30  62 6c 6b 25 21 26 31 30  34 3d 6e 75 6d 25 0d 1a  |blk%!&104=num%..|
00004e40  7c 25 c8 99 20 22 57 69  6d 70 5f 47 65 74 49 63  ||%.. "Wimp_GetIc|
00004e50  6f 6e 53 74 61 74 65 22  2c 2c 62 6c 6b 25 2b 26  |onState",,blk%+&|
00004e60  31 30 30 0d 1a 86 2b 24  28 62 6c 6b 25 21 26 31  |100...+$(blk%!&1|
00004e70  31 43 29 3d 73 24 3a 62  6c 6b 25 21 26 31 30 38  |1C)=s$:blk%!&108|
00004e80  3d 30 3a 62 6c 6b 25 21  26 31 30 43 3d 30 0d 1a  |=0:blk%!&10C=0..|
00004e90  90 25 c8 99 20 22 57 69  6d 70 5f 53 65 74 49 63  |.%.. "Wimp_SetIc|
00004ea0  6f 6e 53 74 61 74 65 22  2c 2c 62 6c 6b 25 2b 26  |onState",,blk%+&|
00004eb0  31 30 30 0d 1a 9a 05 e1  0d 1a a4 04 0d 1a ae 1d  |100.............|
00004ec0  dd f2 73 74 61 74 75 73  5f 76 61 6c 75 65 28 6e  |..status_value(n|
00004ed0  75 6d 25 2c 76 61 6c 25  29 0d 1a b8 13 e7 20 76  |um%,val%)..... v|
00004ee0  61 6c 25 3c 30 20 76 61  6c 25 3d 30 0d 1a c2 2f  |al%<0 val%=0.../|
00004ef0  f2 75 70 64 61 74 65 5f  73 74 61 74 75 73 28 6e  |.update_status(n|
00004f00  75 6d 25 2c c0 c3 28 76  61 6c 25 29 2b 22 20 20  |um%,..(val%)+"  |
00004f10  20 20 20 20 20 20 22 2c  38 29 29 0d 1a cc 05 e1  |      ",8)).....|
00004f20  0d 1a d6 04 0d 1a e0 15  dd f2 6c 6f 61 64 5f 6c  |..........load_l|
00004f30  61 79 6f 75 74 28 66 24  29 0d 1a ea 17 48 25 3d  |ayout(f$)....H%=|
00004f40  8e 28 66 24 29 3a 24 62  6c 6b 25 3d be 23 48 25  |.(f$):$blk%=.#H%|
00004f50  0d 1a f4 42 e7 20 24 62  6c 6b 25 3c 3e 6c 61 79  |...B. $blk%<>lay|
00004f60  6f 75 74 5f 69 64 24 20  d9 23 48 25 3a 49 25 3d  |out_id$ .#H%:I%=|
00004f70  a4 61 6c 65 72 74 28 31  2c 22 42 61 64 20 70 61  |.alert(1,"Bad pa|
00004f80  67 65 20 6c 61 79 6f 75  74 20 66 69 6c 65 22 29  |ge layout file")|
00004f90  3a e1 0d 1a fe 0d e3 20  49 25 3d 31 b8 31 33 0d  |:...... I%=1.13.|
00004fa0  1b 08 4d 20 24 28 62 6c  6b 25 2b 26 35 30 29 3d  |..M $(blk%+&50)=|
00004fb0  be 23 48 25 3a 21 62 6c  6b 25 3d 6c 61 79 6f 75  |.#H%:!blk%=layou|
00004fc0  74 5f 77 25 3a 20 62 6c  6b 25 21 34 3d 49 25 3a  |t_w%: blk%!4=I%:|
00004fd0  c8 99 20 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |.. "Wimp_GetIcon|
00004fe0  53 74 61 74 65 22 2c 2c  62 6c 6b 25 0d 1b 12 4b  |State",,blk%...K|
00004ff0  20 24 28 62 6c 6b 25 21  32 38 29 3d 24 28 62 6c  | $(blk%!28)=$(bl|
00005000  6b 25 2b 26 35 30 29 3a  62 6c 6b 25 21 38 3d 30  |k%+&50):blk%!8=0|
00005010  3a 62 6c 6b 25 21 31 32  3d 30 3a c8 99 20 22 57  |:blk%!12=0:.. "W|
00005020  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00005030  22 2c 2c 62 6c 6b 25 0d  1b 1c 05 ed 0d 1b 26 08  |",,blk%.......&.|
00005040  d9 23 48 25 0d 1b 30 05  e1 0d 1b 3a 04 0d 1b 44  |.#H%..0....:...D|
00005050  0f dd f2 63 6f 6e 66 69  67 75 72 65 0d 1b 4e 23  |...configure..N#|
00005060  ea 20 69 63 6e 25 2c 6d  32 25 2c 74 63 25 2c 74  |. icn%,m2%,tc%,t|
00005070  74 25 2c 69 63 25 2c 73  63 25 2c 77 69 64 25 0d  |t%,ic%,sc%,wid%.|
00005080  1b 58 1c 48 25 3d 8e 28  61 70 70 5f 64 69 72 24  |.X.H%=.(app_dir$|
00005090  2b 22 2e 63 6f 6e 66 69  67 22 29 0d 1b 62 35 4d  |+".config")..b5M|
000050a0  25 3d 30 3a 6c 69 6e 65  25 3d 30 3a 57 25 3d 34  |%=0:line%=0:W%=4|
000050b0  30 3a 69 63 6e 25 3d 30  3a 6d 32 25 3d 63 6f 64  |0:icn%=0:m2%=cod|
000050c0  65 5f 6d 25 2b 32 38 3a  77 69 64 25 3d 32 35 32  |e_m%+28:wid%=252|
000050d0  0d 1b 6c 2b 74 63 25 3d  63 6f 64 65 73 25 3a 74  |..l+tc%=codes%:t|
000050e0  6e 25 3d 30 3a 73 6e 25  3d 30 3a 69 63 25 3d 69  |n%=0:sn%=0:ic%=i|
000050f0  6d 6d 65 64 5f 63 6f 64  65 73 25 0d 1b 76 4b ea  |mmed_codes%..vK.|
00005100  85 3a ee 85 ea 3a d9 23  48 25 3a 49 25 3d a4 61  |.:...:.#H%:I%=.a|
00005110  6c 65 72 74 28 31 2c f6  24 2b 22 20 61 74 20 6c  |lert(1,.$+" at l|
00005120  69 6e 65 20 22 2b c3 28  6c 69 6e 65 25 29 2b 22  |ine "+.(line%)+"|
00005130  20 69 6e 20 43 6f 6e 66  69 67 20 66 69 6c 65 22  | in Config file"|
00005140  29 3a f2 64 69 65 0d 1b  80 05 f5 0d 1b 8a 20 20  |):.die........  |
00005150  24 62 6c 6b 25 3d be 23  48 25 3a 70 25 3d 62 6c  |$blk%=.#H%:p%=bl|
00005160  6b 25 3a 6c 69 6e 65 25  2b 3d 31 0d 1b 94 16 20  |k%:line%+=1.... |
00005170  c8 95 20 3f 70 25 3d 33  32 3a 70 25 2b 3d 31 3a  |.. ?p%=32:p%+=1:|
00005180  ce 0d 1b 9e 0b 20 c8 8e  20 b9 20 ca 0d 1b a8 28  |..... .. . ....(|
00005190  20 20 c9 20 3f 70 25 3c  33 32 3a 6c 69 6e 65 25  |  . ?p%<32:line%|
000051a0  2b 3d 31 20 20 3a 20 20  f4 20 62 6c 61 6e 6b 20  |+=1  :  . blank |
000051b0  6c 69 6e 65 0d 1b b2 2d  20 20 c9 20 3f 70 25 3d  |line...-  . ?p%=|
000051c0  39 32 3a 20 20 20 20 f4  20 62 61 63 6b 73 6c 61  |92:    . backsla|
000051d0  73 68 20 73 6f 20 69 67  6e 6f 72 65 20 6c 69 6e  |sh so ignore lin|
000051e0  65 0d 1b bc 1c 20 20 c9  20 c0 24 70 25 2c 35 29  |e....  . .$p%,5)|
000051f0  3d 22 53 54 59 4c 45 22  3a 4d 25 3d 31 0d 1b c6  |="STYLE":M%=1...|
00005200  1c 20 20 c9 20 c0 24 70  25 2c 35 29 3d 22 49 4d  |.  . .$p%,5)="IM|
00005210  4d 45 44 22 3a 4d 25 3d  32 0d 1b d0 1c 20 20 c9  |MED":M%=2....  .|
00005220  20 c0 24 70 25 2c 35 29  3d 22 54 52 41 4e 53 22  | .$p%,5)="TRANS"|
00005230  3a 4d 25 3d 33 0d 1b da  24 20 20 c9 20 c0 24 70  |:M%=3...$  . .$p|
00005240  25 2c 35 29 3d 22 49 43  4f 4e 4c 22 3a 69 63 6f  |%,5)="ICONL":ico|
00005250  6e 5f 70 6f 73 25 3d 2d  32 0d 1b e4 06 20 7f 0d  |n_pos%=-2.... ..|
00005260  1b ee 0d 20 20 c8 8e 20  4d 25 20 ca 0d 1b f8 0b  |...  .. M% .....|
00005270  20 20 20 c9 20 30 3a 0d  1c 02 1c 20 20 20 c9 20  |   . 0:....   . |
00005280  31 3a c8 95 20 3f 70 25  3c 33 33 3a 70 25 2b 3d  |1:.. ?p%<33:p%+=|
00005290  31 3a ce 0d 1c 0c 18 20  20 20 20 20 20 20 20 20  |1:.....         |
000052a0  20 e7 20 3f 70 25 3d 36  32 20 8c 0d 1c 16 29 20  | . ?p%=62 ....) |
000052b0  20 20 20 20 20 20 20 20  20 20 58 25 3d 32 35 30  |          X%=250|
000052c0  3a 59 25 3d 30 3a 70 25  2b 3d 31 3a 77 69 64 25  |:Y%=0:p%+=1:wid%|
000052d0  3d 34 39 36 0d 1c 20 20  20 20 20 20 20 20 20 20  |=496..          |
000052e0  20 20 20 c8 95 20 3f 70  25 3c 33 33 3a 70 25 2b  |   .. ?p%<33:p%+|
000052f0  3d 31 3a ce 0d 1c 2a 0f  20 20 20 20 20 20 20 20  |=1:...*.        |
00005300  20 20 cc 0d 1c 34 19 20  20 20 20 20 20 20 20 20  |  ...4.         |
00005310  20 20 58 25 3d 30 3a 59  25 3d 34 34 0d 1c 3e 10  |  X%=0:Y%=44..>.|
00005320  20 20 20 20 20 20 20 20  20 20 20 cd 0d 1c 48 2e  |           ...H.|
00005330  20 20 20 20 20 20 20 20  20 20 f2 73 74 79 6c 65  |          .style|
00005340  5f 69 63 6f 6e 28 c0 24  70 25 2c 31 32 29 2c 69  |_icon(.$p%,12),i|
00005350  63 6e 25 2c 58 25 2c 59  25 29 0d 1c 52 1c 20 20  |cn%,X%,Y%)..R.  |
00005360  20 20 20 20 20 20 20 20  69 63 6e 25 2b 3d 31 3a  |        icn%+=1:|
00005370  70 25 2b 3d 31 32 0d 1c  5c 1c 20 20 20 20 20 20  |p%+=12..\.      |
00005380  20 20 20 20 43 25 3d a4  74 72 61 6e 73 5f 63 6f  |    C%=.trans_co|
00005390  64 65 0d 1c 66 28 20 20  20 20 20 20 20 20 20 20  |de..f(          |
000053a0  73 74 79 6c 65 5f 74 61  62 6c 65 25 3f 73 6e 25  |style_table%?sn%|
000053b0  3d 43 25 3a 73 6e 25 2b  3d 31 0d 1c 70 27 20 20  |=C%:sn%+=1..p'  |
000053c0  20 20 20 20 20 20 20 20  74 6e 25 2b 3d 31 3a 63  |        tn%+=1:c|
000053d0  6f 64 65 5f 69 6e 64 65  78 25 3f 43 25 3d 74 6e  |ode_index%?C%=tn|
000053e0  25 0d 1c 7a 21 20 20 20  20 20 20 20 20 20 20 74  |%..z!          t|
000053f0  63 25 3d a4 67 65 74 5f  63 6f 64 65 73 28 74 63  |c%=.get_codes(tc|
00005400  25 29 0d 1c 84 2e 20 20  20 c9 20 32 3a 6d 25 3d  |%)....   . 2:m%=|
00005410  6d 32 25 3a 6d 32 25 3d  a4 6d 65 6e 75 5f 69 74  |m2%:m2%=.menu_it|
00005420  65 6d 28 c0 24 70 25 2c  31 32 29 2c 30 2c 30 29  |em(.$p%,12),0,0)|
00005430  0d 1c 8e 28 20 20 20 20  20 20 20 20 20 20 70 25  |...(          p%|
00005440  2b 3d 31 32 3a 69 63 25  3d a4 67 65 74 5f 63 6f  |+=12:ic%=.get_co|
00005450  64 65 73 28 69 63 25 29  0d 1c 98 20 20 20 20 c9  |des(ic%)...    .|
00005460  20 33 3a 43 25 3d a4 74  72 61 6e 73 5f 63 6f 64  | 3:C%=.trans_cod|
00005470  65 3a 74 6e 25 2b 3d 31  0d 1c a2 32 20 20 20 20  |e:tn%+=1...2    |
00005480  20 20 20 20 20 20 63 6f  64 65 5f 69 6e 64 65 78  |      code_index|
00005490  25 3f 43 25 3d 74 6e 25  3a 74 72 61 6e 73 5f 69  |%?C%=tn%:trans_i|
000054a0  6e 64 65 78 25 3f 43 25  3d 31 0d 1c ac 21 20 20  |ndex%?C%=1...!  |
000054b0  20 20 20 20 20 20 20 20  74 63 25 3d a4 67 65 74  |        tc%=.get|
000054c0  5f 63 6f 64 65 73 28 74  63 25 29 0d 1c b6 07 20  |_codes(tc%).... |
000054d0  20 cb 0d 1c c0 06 20 cb  0d 1c ca 0a fd 20 c5 23  | ..... ...... .#|
000054e0  48 25 0d 1c d4 20 e7 20  6d 32 25 3e 63 6f 64 65  |H%... . m2%>code|
000054f0  5f 6d 25 2b 32 38 20 6d  32 25 21 2d 32 34 3d 26  |_m%+28 m2%!-24=&|
00005500  38 30 0d 1c de 08 d9 23  48 25 0d 1c e8 21 e7 20  |80.....#H%...!. |
00005510  57 25 3c 34 30 20 f2 73  65 74 5f 73 74 79 6c 65  |W%<40 .set_style|
00005520  5f 65 78 74 28 57 25 2d  34 38 29 0d 1c f2 05 cd  |_ext(W%-48).....|
00005530  0d 1c fc 05 e1 0d 1d 06  04 0d 1d 10 21 dd f2 73  |............!..s|
00005540  74 79 6c 65 5f 69 63 6f  6e 28 73 74 72 24 2c 6e  |tyle_icon(str$,n|
00005550  75 6d 25 2c 78 25 2c 79  25 29 0d 1d 1a 0a 57 25  |um%,x%,y%)....W%|
00005560  2d 3d 79 25 0d 1d 24 38  62 6c 6b 25 21 26 31 30  |-=y%..$8blk%!&10|
00005570  30 3d 73 74 79 6c 65 73  5f 77 25 3a 62 6c 6b 25  |0=styles_w%:blk%|
00005580  21 26 31 30 34 3d 31 36  2b 78 25 3a 62 6c 6b 25  |!&104=16+x%:blk%|
00005590  21 26 31 30 43 3d 32 33  32 2b 78 25 0d 1d 2e 27  |!&10C=232+x%...'|
000055a0  62 6c 6b 25 21 26 31 31  30 3d 57 25 3a 62 6c 6b  |blk%!&110=W%:blk|
000055b0  25 21 26 31 30 38 3d 62  6c 6b 25 21 26 31 31 30  |%!&108=blk%!&110|
000055c0  2d 34 34 0d 1d 38 36 62  6c 6b 25 21 26 31 31 34  |-44..86blk%!&114|
000055d0  3d 28 34 39 84 39 3c 3c  31 32 84 31 3c 3c 31 36  |=(49.9<<12.1<<16|
000055e0  84 37 3c 3c 32 34 29 3a  24 28 62 6c 6b 25 2b 26  |.7<<24):$(blk%+&|
000055f0  31 31 38 29 3d 73 74 72  24 0d 1d 42 23 c8 99 20  |118)=str$..B#.. |
00005600  22 57 69 6d 70 5f 43 72  65 61 74 65 49 63 6f 6e  |"Wimp_CreateIcon|
00005610  22 2c 2c 62 6c 6b 25 2b  26 31 30 30 0d 1d 4c 05  |",,blk%+&100..L.|
00005620  e1 0d 1d 56 04 0d 1d 60  17 dd f2 73 65 74 5f 73  |...V...`...set_s|
00005630  74 79 6c 65 5f 65 78 74  28 68 25 29 0d 1d 6a 37  |tyle_ext(h%)..j7|
00005640  62 6c 6b 25 21 26 31 30  30 3d 30 3a 62 6c 6b 25  |blk%!&100=0:blk%|
00005650  21 26 31 30 34 3d 68 25  3a 62 6c 6b 25 21 26 31  |!&104=h%:blk%!&1|
00005660  30 38 3d 77 69 64 25 3a  62 6c 6b 25 21 26 31 30  |08=wid%:blk%!&10|
00005670  43 3d 30 0d 1d 74 2a c8  99 22 57 69 6d 70 5f 53  |C=0..t*.."Wimp_S|
00005680  65 74 45 78 74 65 6e 74  22 2c 73 74 79 6c 65 73  |etExtent",styles|
00005690  5f 77 25 2c 62 6c 6b 25  2b 26 31 30 30 0d 1d 7e  |_w%,blk%+&100..~|
000056a0  05 e1 0d 1d 88 04 0d 1d  92 17 dd a4 67 65 74 5f  |............get_|
000056b0  63 6f 64 65 73 28 63 6f  64 65 73 25 29 0d 1d 9c  |codes(codes%)...|
000056c0  15 ea 20 63 6f 75 6e 74  25 3a 63 6f 75 6e 74 25  |.. count%:count%|
000056d0  3d 31 0d 1d a6 05 f5 0d  1d b0 1e 20 63 6f 64 65  |=1......... code|
000056e0  73 25 3f 63 6f 75 6e 74  25 3d a4 74 72 61 6e 73  |s%?count%=.trans|
000056f0  5f 63 6f 64 65 0d 1d ba  22 20 e7 20 63 6f 64 65  |_code..." . code|
00005700  73 25 3f 63 6f 75 6e 74  25 3c 3e 2d 31 20 63 6f  |s%?count%<>-1 co|
00005710  75 6e 74 25 2b 3d 31 0d  1d c4 17 fd 20 3f 70 25  |unt%+=1..... ?p%|
00005720  3c 33 32 20 84 20 3f 70  25 3d 97 22 5c 22 0d 1d  |<32 . ?p%=."\"..|
00005730  ce 12 3f 63 6f 64 65 73  25 3d 63 6f 75 6e 74 25  |..?codes%=count%|
00005740  0d 1d d8 12 3d 63 6f 64  65 73 25 2b 63 6f 75 6e  |....=codes%+coun|
00005750  74 25 0d 1d e2 04 0d 1d  ec 10 dd a4 74 72 61 6e  |t%..........tran|
00005760  73 5f 63 6f 64 65 0d 1d  f6 20 c8 95 20 3f 70 25  |s_code... .. ?p%|
00005770  3d 33 32 20 84 20 3f 70  25 3d 97 22 2c 22 3a 70  |=32 . ?p%=.",":p|
00005780  25 2b 3d 31 3a ce 0d 1e  00 0c c8 8e 20 3f 70 25  |%+=1:....... ?p%|
00005790  20 ca 0d 1e 0a 11 20 c9  20 97 22 65 22 3a 49 25  | ..... . ."e":I%|
000057a0  3d 32 37 0d 1e 14 19 20  c9 20 33 34 2c 33 39 3a  |=27.... . 34,39:|
000057b0  70 25 2b 3d 31 3a 49 25  3d 3f 70 25 0d 1e 1e 2a  |p%+=1:I%=?p%...*|
000057c0  20 c9 20 34 38 3a c8 99  22 4f 53 5f 52 65 61 64  | . 48:.."OS_Read|
000057d0  55 6e 73 69 67 6e 65 64  22 2c 31 36 2c 70 25 20  |Unsigned",16,p% |
000057e0  b8 20 2c 2c 49 25 0d 1e  28 2a 20 c9 20 36 35 3a  |. ,,I%..(* . 65:|
000057f0  c8 99 22 4f 53 5f 52 65  61 64 55 6e 73 69 67 6e  |.."OS_ReadUnsign|
00005800  65 64 22 2c 31 36 2c 70  25 20 b8 20 2c 2c 49 25  |ed",16,p% . ,,I%|
00005810  0d 1e 32 2a 20 c9 20 36  36 3a c8 99 22 4f 53 5f  |..2* . 66:.."OS_|
00005820  52 65 61 64 55 6e 73 69  67 6e 65 64 22 2c 31 36  |ReadUnsigned",16|
00005830  2c 70 25 20 b8 20 2c 2c  49 25 0d 1e 3c 2a 20 c9  |,p% . ,,I%..<* .|
00005840  20 36 37 3a c8 99 22 4f  53 5f 52 65 61 64 55 6e  | 67:.."OS_ReadUn|
00005850  73 69 67 6e 65 64 22 2c  31 36 2c 70 25 20 b8 20  |signed",16,p% . |
00005860  2c 2c 49 25 0d 1e 46 2a  20 c9 20 36 38 3a c8 99  |,,I%..F* . 68:..|
00005870  22 4f 53 5f 52 65 61 64  55 6e 73 69 67 6e 65 64  |"OS_ReadUnsigned|
00005880  22 2c 31 36 2c 70 25 20  b8 20 2c 2c 49 25 0d 1e  |",16,p% . ,,I%..|
00005890  50 2a 20 c9 20 36 39 3a  c8 99 22 4f 53 5f 52 65  |P* . 69:.."OS_Re|
000058a0  61 64 55 6e 73 69 67 6e  65 64 22 2c 31 36 2c 70  |adUnsigned",16,p|
000058b0  25 20 b8 20 2c 2c 49 25  0d 1e 5a 2a 20 c9 20 37  |% . ,,I%..Z* . 7|
000058c0  30 3a c8 99 22 4f 53 5f  52 65 61 64 55 6e 73 69  |0:.."OS_ReadUnsi|
000058d0  67 6e 65 64 22 2c 31 36  2c 70 25 20 b8 20 2c 2c  |gned",16,p% . ,,|
000058e0  49 25 0d 1e 64 1a 20 c9  20 31 30 2c 31 33 2c 30  |I%..d. . 10,13,0|
000058f0  3a 49 25 3d 2d 31 3a 70  25 2d 3d 31 0d 1e 6e 05  |:I%=-1:p%-=1..n.|
00005900  7f 0d 1e 78 25 20 c8 99  20 22 4f 53 5f 52 65 61  |...x% .. "OS_Rea|
00005910  64 55 6e 73 69 67 6e 65  64 22 2c 30 2c 70 25 20  |dUnsigned",0,p% |
00005920  b8 20 2c 2c 49 25 0d 1e  82 05 cb 0d 1e 8c 1f f5  |. ,,I%..........|
00005930  3a 70 25 2b 3d 31 3a fd  20 3f 70 25 3c 33 33 20  |:p%+=1:. ?p%<33 |
00005940  84 20 3f 70 25 3d 97 22  2c 22 0d 1e 96 07 3d 49  |. ?p%=.","....=I|
00005950  25 0d 1e a0 04 0d 1e aa  0f dd a4 63 68 65 63 6b  |%..........check|
00005960  5f 65 6e 76 0d 1e b4 17  c8 99 20 22 4f 53 5f 47  |_env...... "OS_G|
00005970  65 74 45 6e 76 22 20 b8  20 49 25 0d 1e be 0c e3  |etEnv" . I%.....|
00005980  20 4a 25 3d 30 b8 31 0d  1e c8 2b 20 f5 3a 49 25  | J%=0.1...+ .:I%|
00005990  2b 3d 31 3a fd 20 3f 49  25 3d 33 34 20 84 20 3f  |+=1:. ?I%=34 . ?|
000059a0  49 25 3c 33 32 3a e7 20  3f 49 25 3c 33 32 3a 3d  |I%<32:. ?I%<32:=|
000059b0  22 22 0d 1e d2 05 ed 0d  1e dc 22 f5 3a 49 25 2b  |""........".:I%+|
000059c0  3d 31 3a fd 20 3f 49 25  3c 3e 33 32 3a e7 20 3f  |=1:. ?I%<>32:. ?|
000059d0  49 25 3c 33 32 3a 3d 22  22 0d 1e e6 21 4a 25 3d  |I%<32:=""...!J%=|
000059e0  49 25 3a f5 3a 4a 25 2b  3d 31 3a fd 20 3f 4a 25  |I%:.:J%+=1:. ?J%|
000059f0  3c 33 32 3a 3f 4a 25 3d  31 33 0d 1e f0 08 3d 24  |<32:?J%=13....=$|
00005a00  49 25 0d 1e fa 04 0d 1f  04 0f dd f2 6c 6f 61 64  |I%..........load|
00005a10  5f 66 69 6c 65 0d 1f 0e  3e e7 20 66 69 6c 65 25  |_file...>. file%|
00005a20  20 e7 20 a4 61 6c 65 72  74 28 33 2c 22 41 72 65  | . .alert(3,"Are|
00005a30  20 79 6f 75 20 73 75 72  65 2c 20 66 69 6c 65 20  | you sure, file |
00005a40  73 74 69 6c 6c 20 6c 6f  61 64 65 64 3f 22 29 3d  |still loaded?")=|
00005a50  32 20 e1 0d 1f 18 29 ea  85 3a ee 85 ea 3a f2 72  |2 ....)..:...:.r|
00005a60  65 70 6f 72 74 5f 65 72  72 6f 72 28 a3 29 3a f2  |eport_error(.):.|
00005a70  63 6c 65 61 72 5f 66 69  6c 65 3a e1 0d 1f 22 2c  |clear_file:...",|
00005a80  62 6c 6b 25 21 31 32 3d  62 6c 6b 25 21 38 3a 62  |blk%!12=blk%!8:b|
00005a90  6c 6b 25 21 31 36 3d 34  3a 66 5f 74 79 70 65 25  |lk%!16=4:f_type%|
00005aa0  3d 62 6c 6b 25 21 34 30  0d 1f 2c 3c 49 25 3d 62  |=blk%!40..,<I%=b|
00005ab0  6c 6b 25 2b 34 34 3a 66  69 6c 65 6e 61 6d 65 24  |lk%+44:filename$|
00005ac0  3d 22 22 3a c8 95 20 3f  49 25 3a 66 69 6c 65 6e  |="":.. ?I%:filen|
00005ad0  61 6d 65 24 2b 3d bd 28  3f 49 25 29 3a 49 25 2b  |ame$+=.(?I%):I%+|
00005ae0  3d 31 3a ce 0d 1f 36 28  c8 99 20 22 57 69 6d 70  |=1:...6(.. "Wimp|
00005af0  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 37  |_SendMessage",17|
00005b00  2c 62 6c 6b 25 2c 62 6c  6b 25 21 34 0d 1f 40 71  |,blk%,blk%!4..@q|
00005b10  e7 20 66 5f 74 79 70 65  25 3c 3e 26 46 46 46 20  |. f_type%<>&FFF |
00005b20  80 20 66 5f 74 79 70 65  25 3c 3e 26 32 38 41 20  |. f_type%<>&28A |
00005b30  e7 20 a4 61 6c 65 72 74  28 33 2c 22 54 68 69 73  |. .alert(3,"This|
00005b40  20 69 73 20 6e 6f 74 20  61 20 54 65 78 74 20 66  | is not a Text f|
00005b50  69 6c 65 2c 20 61 72 65  20 79 6f 75 20 73 75 72  |ile, are you sur|
00005b60  65 20 79 6f 75 20 77 61  6e 74 20 74 6f 20 70 72  |e you want to pr|
00005b70  69 6e 74 20 69 74 3f 22  29 3d 32 20 e1 0d 1f 4a  |int it?")=2 ...J|
00005b80  0f dd f2 69 6e 69 74 5f  6c 6f 61 64 0d 1f 54 29  |...init_load..T)|
00005b90  c8 99 22 4f 53 5f 46 69  6c 65 22 2c 31 37 2c 66  |.."OS_File",17,f|
00005ba0  69 6c 65 6e 61 6d 65 24  20 b8 20 49 25 2c 2c 2c  |ilename$ . I%,,,|
00005bb0  2c 6c 65 6e 25 0d 1f 5e  2a e7 20 49 25 3d 30 20  |,len%..^*. I%=0 |
00005bc0  49 25 3d a4 61 6c 65 72  74 28 31 2c 22 46 69 6c  |I%=.alert(1,"Fil|
00005bd0  65 20 6e 6f 74 20 66 6f  75 6e 64 22 29 3a e1 0d  |e not found"):..|
00005be0  1f 68 34 e7 20 49 25 3d  32 20 49 25 3d a4 61 6c  |.h4. I%=2 I%=.al|
00005bf0  65 72 74 28 31 2c 22 43  61 6e 27 74 20 70 72 69  |ert(1,"Can't pri|
00005c00  6e 74 20 61 20 64 69 72  65 63 74 6f 72 79 21 22  |nt a directory!"|
00005c10  29 3a e1 0d 1f 72 44 e7  20 a4 77 6b 73 70 63 28  |):...rD. .wkspc(|
00005c20  6c 65 6e 25 29 3d a3 20  49 25 3d a4 61 6c 65 72  |len%)=. I%=.aler|
00005c30  74 28 31 2c 22 4e 6f 74  20 65 6e 6f 75 67 68 20  |t(1,"Not enough |
00005c40  6d 65 6d 6f 72 79 20 74  6f 20 6c 6f 61 64 20 66  |memory to load f|
00005c50  69 6c 65 22 29 3a e1 0d  1f 7c 2f c8 99 22 4f 53  |ile"):...|/.."OS|
00005c60  5f 46 69 6c 65 22 2c 31  36 2c 66 69 6c 65 6e 61  |_File",16,filena|
00005c70  6d 65 24 2c 62 75 66 66  65 72 25 20 b8 20 2c 2c  |me$,buffer% . ,,|
00005c80  2c 2c 6c 65 6e 25 0d 1f  86 2c 21 62 6c 6b 25 3d  |,,len%...,!blk%=|
00005c90  76 69 65 77 5f 77 25 3a  c8 99 22 57 69 6d 70 5f  |view_w%:.."Wimp_|
00005ca0  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 62 6c  |CloseWindow",,bl|
00005cb0  6b 25 0d 1f 90 1d 66 69  6c 65 25 3d 31 3a 65 6e  |k%....file%=1:en|
00005cc0  64 25 3d 62 75 66 66 65  72 25 2b 6c 65 6e 25 0d  |d%=buffer%+len%.|
00005cd0  1f 9a 0e 70 25 3d 62 75  66 66 65 72 25 0d 1f a4  |...p%=buffer%...|
00005ce0  18 c8 95 20 28 21 70 25  80 26 46 46 46 46 29 3d  |... (!p%.&FFFF)=|
00005cf0  26 32 45 32 45 0d 1f ae  14 20 c8 8e 20 28 21 70  |&2E2E.... .. (!p|
00005d00  25 20 3e 3e 31 36 29 20  ca 0d 1f b8 19 20 20 c9  |% >>16) .....  .|
00005d10  20 26 34 43 35 30 3a f2  67 65 74 5f 64 6f 74 28  | &4C50:.get_dot(|
00005d20  33 29 0d 1f c2 19 20 20  c9 20 26 35 33 35 34 3a  |3)....  . &5354:|
00005d30  f2 67 65 74 5f 64 6f 74  28 35 29 0d 1f cc 19 20  |.get_dot(5).... |
00005d40  20 c9 20 26 35 33 34 32  3a f2 67 65 74 5f 64 6f  | . &5342:.get_do|
00005d50  74 28 37 29 0d 1f d6 19  20 20 c9 20 26 34 43 35  |t(7)....  . &4C5|
00005d60  34 3a f2 67 65 74 5f 64  6f 74 28 36 29 0d 1f e0  |4:.get_dot(6)...|
00005d70  19 20 20 c9 20 26 34 43  34 36 3a f2 67 65 74 5f  |.  . &4C46:.get_|
00005d80  64 6f 74 28 38 29 0d 1f  ea 19 20 20 c9 20 26 34  |dot(8)....  . &4|
00005d90  44 34 43 3a f2 67 65 74  5f 64 6f 74 28 34 29 0d  |D4C:.get_dot(4).|
00005da0  1f f4 1a 20 20 c9 20 26  34 43 34 43 3a f2 67 65  |...  . &4C4C:.ge|
00005db0  74 5f 64 6f 74 28 31 30  29 0d 1f fe 19 20 20 c9  |t_dot(10)....  .|
00005dc0  20 26 35 30 35 33 3a f2  67 65 74 5f 64 6f 74 28  | &5053:.get_dot(|
00005dd0  39 29 0d 20 08 1c 20 20  c9 20 26 34 36 34 36 3a  |9). ..  . &4646:|
00005de0  f2 67 65 74 5f 6f 6e 6f  66 66 28 31 31 29 0d 20  |.get_onoff(11). |
00005df0  12 1c 20 20 c9 20 26 35  30 35 30 3a f2 67 65 74  |..  . &5050:.get|
00005e00  5f 6f 6e 6f 66 66 28 31  33 29 0d 20 1c 1c 20 20  |_onoff(13). ..  |
00005e10  c9 20 26 34 37 35 30 3a  f2 67 65 74 5f 6f 6e 6f  |. &4750:.get_ono|
00005e20  66 66 28 31 32 29 0d 20  26 06 20 cb 0d 20 30 22  |ff(12). &. .. 0"|
00005e30  20 f5 3a 70 25 2b 3d 31  3a fd 20 70 25 3f 2d 31  | .:p%+=1:. p%?-1|
00005e40  3d 31 30 20 84 20 70 25  3f 2d 31 3d 31 33 0d 20  |=10 . p%?-1=13. |
00005e50  3a 05 ce 0d 20 44 47 e7  20 70 25 3e 62 75 66 66  |:... DG. p%>buff|
00005e60  65 72 25 20 49 25 3d 70  25 2d 62 75 66 66 65 72  |er% I%=p%-buffer|
00005e70  25 3a 65 6e 64 25 2d 3d  49 25 3a e3 20 4a 25 3d  |%:end%-=I%:. J%=|
00005e80  62 75 66 66 65 72 25 20  b8 20 65 6e 64 25 3a 3f  |buffer% . end%:?|
00005e90  4a 25 3d 4a 25 3f 49 25  3a ed 0d 20 4e 10 63 6f  |J%=J%?I%:.. N.co|
00005ea0  64 65 25 21 38 3d 65 6e  64 25 0d 20 58 13 49 25  |de%!8=end%. X.I%|
00005eb0  3d a9 28 66 69 6c 65 6e  61 6d 65 24 29 0d 20 62  |=.(filename$). b|
00005ec0  24 f5 3a 49 25 2d 3d 31  3a fd 20 a7 66 69 6c 65  |$.:I%-=1:. .file|
00005ed0  6e 61 6d 65 24 2c 22 2e  22 2c 49 25 29 20 3c 3e  |name$,".",I%) <>|
00005ee0  30 0d 20 6c 25 6c 65 61  66 24 3d c2 66 69 6c 65  |0. l%leaf$=.file|
00005ef0  6e 61 6d 65 24 2c a9 28  66 69 6c 65 6e 61 6d 65  |name$,.(filename|
00005f00  24 29 2d 49 25 29 0d 20  76 38 21 62 6c 6b 25 3d  |$)-I%). v8!blk%=|
00005f10  73 61 76 65 54 5f 77 25  3a 62 6c 6b 25 21 34 3d  |saveT_w%:blk%!4=|
00005f20  31 3a c8 99 20 22 57 69  6d 70 5f 47 65 74 49 63  |1:.. "Wimp_GetIc|
00005f30  6f 6e 53 74 61 74 65 22  2c 2c 62 6c 6b 25 0d 20  |onState",,blk%. |
00005f40  80 44 24 28 62 6c 6b 25  21 32 38 29 3d 6c 65 61  |.D$(blk%!28)=lea|
00005f50  66 24 3a 62 6c 6b 25 21  38 3d 30 3a 62 6c 6b 25  |f$:blk%!8=0:blk%|
00005f60  21 31 32 3d 30 3a c8 99  20 22 57 69 6d 70 5f 53  |!12=0:.. "Wimp_S|
00005f70  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 6c  |etIconState",,bl|
00005f80  6b 25 0d 20 8a 38 21 62  6c 6b 25 3d 73 61 76 65  |k%. .8!blk%=save|
00005f90  50 5f 77 25 3a 62 6c 6b  25 21 34 3d 31 3a c8 99  |P_w%:blk%!4=1:..|
00005fa0  20 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  | "Wimp_GetIconSt|
00005fb0  61 74 65 22 2c 2c 62 6c  6b 25 0d 20 94 44 24 28  |ate",,blk%. .D$(|
00005fc0  62 6c 6b 25 21 32 38 29  3d 6c 65 61 66 24 3a 62  |blk%!28)=leaf$:b|
00005fd0  6c 6b 25 21 38 3d 30 3a  62 6c 6b 25 21 31 32 3d  |lk%!8=0:blk%!12=|
00005fe0  30 3a c8 99 20 22 57 69  6d 70 5f 53 65 74 49 63  |0:.. "Wimp_SetIc|
00005ff0  6f 6e 53 74 61 74 65 22  2c 2c 62 6c 6b 25 0d 20  |onState",,blk%. |
00006000  9e 3b f2 75 70 64 61 74  65 5f 73 74 61 74 75 73  |.;.update_status|
00006010  28 31 2c 66 69 6c 65 6e  61 6d 65 24 29 3a f2 75  |(1,filename$):.u|
00006020  70 64 61 74 65 5f 73 74  61 74 75 73 28 34 2c 22  |pdate_status(4,"|
00006030  57 61 69 74 69 6e 67 22  29 0d 20 a8 2f f2 73 74  |Waiting"). ./.st|
00006040  61 74 75 73 5f 76 61 6c  75 65 28 32 2c 6c 65 6e  |atus_value(2,len|
00006050  25 29 3a f2 73 74 61 74  75 73 5f 76 61 6c 75 65  |%):.status_value|
00006060  28 33 2c 6c 65 6e 25 29  0d 20 b2 32 21 62 6c 6b  |(3,len%). .2!blk|
00006070  25 3d 73 74 61 74 75 73  5f 77 25 3a c8 99 20 22  |%=status_w%:.. "|
00006080  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00006090  61 74 65 22 2c 2c 62 6c  6b 25 0d 20 bc 30 62 6c  |ate",,blk%. .0bl|
000060a0  6b 25 21 32 38 3d 2d 31  3a c8 99 20 22 57 69 6d  |k%!28=-1:.. "Wim|
000060b0  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 62  |p_OpenWindow",,b|
000060c0  6c 6b 25 3a 6e 65 77 25  3d b9 0d 20 c6 05 e1 0d  |lk%:new%=.. ....|
000060d0  20 d0 04 0d 20 da 13 dd  f2 67 65 74 5f 6f 6e 6f  | ... ....get_ono|
000060e0  66 66 28 69 25 29 0d 20  e4 1b 70 25 2b 3d 34 3a  |ff(i%). ..p%+=4:|
000060f0  c8 95 20 3f 70 25 3d 33  32 3a 70 25 2b 3d 31 3a  |.. ?p%=32:p%+=1:|
00006100  ce 0d 20 ee 45 e7 20 28  21 70 25 80 26 46 46 46  |.. .E. (!p%.&FFF|
00006110  46 29 3d 26 34 45 34 46  20 e7 20 a4 67 65 74 5f  |F)=&4E4F . .get_|
00006120  6c 61 79 6f 75 74 5f 74  6f 67 67 6c 65 28 69 25  |layout_toggle(i%|
00006130  29 3d a3 20 f2 6c 61 79  6f 75 74 5f 74 6f 67 67  |)=. .layout_togg|
00006140  6c 65 28 69 25 29 0d 20  f8 43 e7 20 28 21 70 25  |le(i%). .C. (!p%|
00006150  80 26 46 46 46 46 29 3d  26 34 36 34 46 20 e7 20  |.&FFFF)=&464F . |
00006160  a4 67 65 74 5f 6c 61 79  6f 75 74 5f 74 6f 67 67  |.get_layout_togg|
00006170  6c 65 28 69 25 29 20 f2  6c 61 79 6f 75 74 5f 74  |le(i%) .layout_t|
00006180  6f 67 67 6c 65 28 69 25  29 0d 21 02 05 e1 0d 21  |oggle(i%).!....!|
00006190  0c 04 0d 21 16 11 dd f2  67 65 74 5f 64 6f 74 28  |...!....get_dot(|
000061a0  69 25 29 0d 21 20 1b 70  25 2b 3d 34 3a c8 95 20  |i%).! .p%+=4:.. |
000061b0  3f 70 25 3d 33 32 3a 70  25 2b 3d 31 3a ce 0d 21  |?p%=32:p%+=1:..!|
000061c0  2a 17 e7 20 3f 70 25 3d  31 33 20 84 20 3f 70 25  |*.. ?p%=13 . ?p%|
000061d0  3d 31 30 3a e1 0d 21 34  23 e7 20 28 3f 70 25 3c  |=10:..!4#. (?p%<|
000061e0  34 38 20 84 20 3f 70 25  3e 35 37 29 20 80 20 3f  |48 . ?p%>57) . ?|
000061f0  70 25 3c 3e 34 35 3a e1  0d 21 3e 40 c8 99 22 4f  |p%<>45:..!>@.."O|
00006200  53 5f 45 76 61 6c 75 61  74 65 45 78 70 72 65 73  |S_EvaluateExpres|
00006210  73 69 6f 6e 22 2c 70 25  2c 62 75 66 66 65 72 25  |sion",p%,buffer%|
00006220  2d 26 35 30 2c 26 34 30  20 b8 20 2c 41 25 2c 4a  |-&50,&40 . ,A%,J|
00006230  25 3a e7 20 41 25 20 e1  0d 21 48 1c f2 73 65 74  |%:. A% ..!H..set|
00006240  5f 6c 61 79 6f 75 74 5f  76 61 6c 75 65 28 69 25  |_layout_value(i%|
00006250  2c 4a 25 29 0d 21 52 05  e1 0d ff                 |,J%).!R....|
0000625b

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