Home » Archimedes archive » Acorn User » AU 1996-01.adf » TopModel » !TMViewer/StartUp/Starter
!TMViewer/StartUp/Starter
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 » Acorn User » AU 1996-01.adf » TopModel |
| Filename: | !TMViewer/StartUp/Starter |
| Read OK: | ✔ |
| File size: | 19F5 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM>!RunImage
20DIM w% 256
30ON ERROR PROCerror(STR$REPORT$+" At "+STR$ERL):END
40SYS "Wimp_Initialise",200,&4B534154,"Starter",0 TO versione%,task_hdl%
50DIM q% 256,q1% 256,q2% 256 , tempz% 3048,tempbuff% 5000
60PROCsetup_for_mode:I%=FNLoadTemplates
70SYS"OS_GetEnv" TO A$:A%=INSTR(A$,"Starter"+CHR$(34)+" "):A%+=8:A$=RIGHT$(A$,LENA$-A%)
80OSCLI("Set TopViewer$OK 0")
90filename$=A$:IF INSTR(A$,".")=0 THEN filename$="NONE"
100A1%=0:B1%=0:C1%=0:IF filename$<>"NONE" THEN
110 A%=OPENIN(filename$):A$=GET$#A%:IF A$="3DModel" THEN
120 A$=GET$#A%:A$=GET$#A%
130 IFLEFT$(A$,4)="View"ORLEFT$(A$,4)="VIEW"ORLEFT$(A$,4)="view"THENA$=GET$#A%
140 IFLEFT$(A$,4)="Ambi"ORLEFT$(A$,4)="AMBI"ORLEFT$(A$,4)="ambi"THENA$=GET$#A%
150 IFLEFT$(A$,4)="Sola"ORLEFT$(A$,4)="SOLA"ORLEFT$(A$,4)="sola"THENA$=GET$#A%
160 IFLEFT$(A$,4)="Grid"ORLEFT$(A$,4)="GRID"ORLEFT$(A$,4)="grid"THENA$=GET$#A%
170 D1%=VALA$+200*32:E1%=VALGET$#A%+200*40:A1%=INT(D1%/32+.5):B1%=INT(E1%/40+.5):C1%=215000
180 ELSE
190 filename$="NONE"
200 ENDIF
210 CLOSE#A%
220ENDIF
230IF A1%=0ANDB1%=0ANDC1%=0 THEN A1%=300:B1%=500:C1%=215000:D1%=A1%*32:E1%=B1%*40
240IF B1%*8+200>C1% THEN C1%=B1%*8+200
250occupazione%=608*1024
260SYS"Wimp_SlotSize",-1,-1 TO ,,reg3%:reg3%-=occupazione%:flag7%=FALSE
270IF reg3%<C1%+D1%+E1%+2000ANDfilename$<>"NONE"ANDreg3%>240000 THENPROCerror("Warning: not enought memory to load the file"):A1%=300:B1%=500:C1%=205000:D1%=A1%*32:E1%=B1%*40:filename$="NONE"
280IF reg3%<C1%+D1%+E1%+2000 THEN w_quanti%=w_errore%:VDU7:reg3%=0
290maxpti%=(reg3%-C1%)/32:maxpoly%=(reg3%-C1%)/40:minpti%=A1%:minpoly%=B1%:minbuffer%=C1%
300q%!0=w_quanti%:SYS"Wimp_GetWindowState",,q%:lx%=q%!12-q%!4:ly%=q%!16-q%!8
310q%!4=Xresolution%/2-lx%/2:q%!8=Yresolution%/2-ly%/2:q%!12=q%!4+lx%:q%!16=q%!8+ly%
320q%!28=-1:SYS"Wimp_OpenWindow",,q%
330IF reg3%>0 THEN
340 PROCsetta_slider(w_quanti%,4 ,A1%/maxpti% *100)
350 PROCsetta_slider(w_quanti%,11,B1%/maxpoly%*100)
360 PROCsetta_slider(w_quanti%,20,C1%/reg3%*100)
370 PROCOvIcTxt(w_quanti%,24,STR$INT((reg3%+occupazione%)/1024))
380 PROCOvIcTxt(w_quanti%,2 ,STR$INT((C1%+D1%+E1%+occupazione%)/1024))
390 PROCOvIcTxt(w_quanti%,7 ,STR$A1%)
400 PROCOvIcTxt(w_quanti%,9 ,STR$B1%)
410 PROCOvIcTxt(w_quanti%,18,STR$INT(C1%/1024))
420ENDIF
430REPEAT
440SYS"Wimp_Poll",0,q% TO poll_code%
450IF poll_code%=6AND(q%!16=2ORq%!16=14)THENpoll_code%=17:q%!16=0
460CASE poll_code% OF
470 WHEN1:SYS"Wimp_RedrawWindow",,q% TO flag%
480 WHILE flag%
490 SYS"Wimp_GetRectangle",,q% TO flag%
500 ENDWHILE
510 WHEN2:PROCopen_window(q%):REM(q%!12,q%!16)
520 WHEN6:CASE q%!16 OF
530 WHEN15 :IF reg3%>C1%+D1%+E1%+4000 THEN
540 flag7%=TRUE:REM OK
550 PROCclose_window(w_quanti%)
560 ELSE
570 PROCerror("There is not enough memory for this configuration: "+STR$(reg3%+occupazione%)+" bytes available, "+STR$(C1%+D1%+E1%+occupazione%)+" needed.")
580 ENDIF
590 WHEN3,4,5:A%=FNvalore_slider(w_quanti%,4,q%!0)
600 A1%=maxpti%*A%/100:IF A1%<minpti%THENA1%=minpti%:PROCsetta_slider(w_quanti%,4 ,A1%/maxpti% *100)
610 D1%=A1%*32:PROCOvIcTxt(w_quanti%,2,STR$INT((C1%+D1%+E1%+occupazione%)/1024))
620 PROCOvIcTxt(w_quanti%,7,STR$(A1%))
630 WHEN10,11,12:A%=FNvalore_slider(w_quanti%,11,q%!0)
640 B1%=maxpoly%*A%/100:IF B1%<minpoly%THENB1%=minpoly%:PROCsetta_slider(w_quanti%,11,B1%/maxpoly%*100)
650 IF C1%<B1%*8+200 THEN C1%=B1%*8+200:PROCsetta_slider(w_quanti%,20,C1%/reg3%*100):PROCOvIcTxt(w_quanti%,18,STR$INT(C1%/1024))
660 E1%=B1%*40:PROCOvIcTxt(w_quanti%,2,STR$INT((C1%+D1%+E1%+occupazione%)/1024))
670 PROCOvIcTxt(w_quanti%,9,STR$(B1%))
680 WHEN19,20,21:A%=FNvalore_slider(q%!12,20,q%!0):B%=0
690 C1%=reg3%*A%/100:IF C1%<minbuffer%THENC1%=minbuffer%:B%=1
700 IF C1%<B1%*8+200 THEN C1%=B1%*8+200:B%=1
710 IF B%<>0THENPROCsetta_slider(w_quanti%,20,C1%/reg3%*100)
720 PROCOvIcTxt(w_quanti%,2,STR$INT((C1%+D1%+E1%+occupazione%)/1024))
730 PROCOvIcTxt(w_quanti%,18,STR$INT(C1%/1024))
740 ENDCASE
750 WHEN17,18,19:IF q%!16=0 OR q%!16=14 THEN SYS "Wimp_CloseDown":END
760ENDCASE
770UNTIL flag7%
780
790IF versione%<350 THEN occupazione%+=C1%+D1%+E1%
800OSCLI"WimpSlot -min "+STR$occupazione%+" -max "+STR$occupazione%
810OSCLI"Set TopViewer$BUFFER "+STR$C1%
820OSCLI"Set TopViewer$POINT "+STR$D1%
830OSCLI"Set TopViewer$POLY "+STR$E1%
840OSCLI"Set TopViewer$FILE "+filename$
850OSCLI"Set TopViewer$OK 1"
860SYS"Wimp_CloseDown":END
870
880DEFPROCsetup_for_mode
890LOCAL h%,lx%,ly%,A%
900q2%!0 =148:q2%!4 =-1:SYS"OS_ReadVduVariables",q2%,q2%:screen%=!q2%
910SYS"OS_ReadModeVariable",-1,4 TO,,Xfactor%:Xfactor%=2^Xfactor%
920SYS"OS_ReadModeVariable",-1,5 TO,,Yfactor%:Yfactor%=2^Yfactor%
930SYS"OS_ReadModeVariable",-1,11TO,,h%:Xresolution%=(h%+1)*Xfactor%
940SYS"OS_ReadModeVariable",-1,12TO,,h%:Yresolution%=(h%+1)*Yfactor%
950ENDPROC
960
970DEFPROCsetta_slider(hdl%,ic%,A%)
980REM questa disegna uno slider contenuto nell'icona ic% della finestra hdl%
990REM A% dice la percentuale in cui va disegnato lo slider (A% e' moltiplicato per 100)
1000LOCAL lx%,A1%,A2%
1010q1%!0=hdl%:q1%!4=ic%-1:SYS"Wimp_GetIconState",,q1%:A1%=q1%+8:lx%=A1%!8-A1%!0
1020q2%!0=hdl%:q2%!4=ic%+0:SYS"Wimp_GetIconState",,q2%:A2%=q2%+8
1030SYS"Wimp_DeleteIcon",,q2%
1040A2%!8=A2%!0+lx%*A%/100:q2%!4=hdl%:SYS"Wimp_CreateIcon",ic%,q2%+4
1050q2%!0=hdl%:q2%!4=ic%-1:q2%!8=0:q2%!12=0:SYS"Wimp_SetIconState",,q2%
1060q2%!0=hdl%:q2%!4=ic%+0:q2%!8=0:q2%!12=0:SYS"Wimp_SetIconState",,q2%
1070ENDPROC
1080
1090DEFFNvalore_slider(hdl%,ic%,mousex%)
1100LOCAL I%,x%,lx%,A%,A1%,A2%
1110q1%!0=hdl%:SYS"Wimp_GetWindowState",,q1%
1120q2%!0=hdl%:q2%!4=ic%-1:SYS"Wimp_GetIconState",,q2%:I%=q2%+8
1130lx%=I%!8-I%!0:x%=q1%!4+I%!0
1140x%=mousex%-x%:A%=x%/lx%*100:IF A%<0 THEN A%=0
1150IF A%>100 THEN A%=100
1160PROCsetta_slider(hdl%,ic%,A%)
1170=A%
1180
1190DEFPROCerror(A$)
1200LOCAL I%
1210LOCAL ERROR
1220ON ERROR LOCAL SYS "Wimp_CloseDown":END
1230!w%=ERR:$(w%+4)=A$+CHR$(0)
1240SYS"Wimp_ReportError",w%,1,"TopViewer loader" TO ,I%
1250IF I%=2 THEN SYS "Wimp_CloseDown":END
1260RESTORE ERROR
1270ENDPROC
1280
1290DEFFNLoadTemplates
1300REM questa restituisce 0 se tutto OK o -1 se default to UK
1310I%=0:tempend%=tempbuff%+4096
1320SYS"OS_Byte",70,127 TO ,I%:TopModCountry$=STR$I%
1330IF FNc_e_file("<TopViewer$DIR>.Resources."+TopModCountry$+".StartTemp") <= 0 THEN
1340 TopModCountry$="1"
1350ENDIF
1360SYS"Wimp_OpenTemplate",,"<TopViewer$DIR>.Resources."+TopModCountry$+".StartTemp"
1370w_quanti%=FNAddTemplate("DimMemoria")
1380w_errore%=FNAddTemplate("Errore")
1390SYS"Wimp_CloseTemplate"
1400=I%
1410
1420DEFFNc_e_file(A$)
1430LOCAL I%,dx%,value%
1440SYS"OS_File",5,A$ TO I%,,dx%
1450IF I%=0 THEN value%= 0
1460IF I%=2 THEN value%=-1
1470IF I%=1 THEN value%=(dx%<<12)>>>20
1480=value%
1490
1500DEFFNAddTemplate(A$)
1510LOCAL I%:SYS"Wimp_LoadTemplate",,tempz%,tempbuff%,tempend%,-1,A$+STRING$(12,CHR$0),0 TO ,,tempbuff%
1520tempz%!64=0:SYS"Wimp_CreateWindow",,tempz% TO I%:=I%
1530
1540DEFPROCOvIcTxt(hdl%,ic%,A$)
1550LOCAL A%:q1%!0=hdl%:q1%!4=ic%:SYS "Wimp_GetIconState",,q1%
1560IF (q1%!24 AND (1<<8))<>0 THEN A%=q1%!28:ELSE:A%=q1%+28
1570$A%=A$:q1%!8=0:q1%!12=0:SYS "Wimp_SetIconState",,q1%
1580ENDPROC
1590
1600DEFPROCopen_window(q%):SYS"Wimp_OpenWindow",,q%:ENDPROC
1610
1620DEFPROCclose_window(hdl%):!q1%=hdl%:SYS"Wimp_CloseWindow",,q1%:ENDPROC
�>!RunImage
� w% 256
� � �error(�$+" At "+Þ):�
(Hș "Wimp_Initialise",200,&4B534154,"Starter",0 � versione%,task_hdl%
29� q% 256,q1% 256,q2% 256 , tempz% 3048,tempbuff% 5000
<%�setup_for_mode:I%=�LoadTemplates
FGș"OS_GetEnv" � A$:A%=�A$,"Starter"+�(34)+" "):A%+=8:A$=�A$,�A$-A%)
P�("Set TopViewer$OK 0")
Z0filename$=A$:� �A$,".")=0 � filename$="NONE"
d+A1%=0:B1%=0:C1%=0:� filename$<>"NONE" �
n- A%=�(filename$):A$=�#A%:� A$="3DModel" �
x A$=�#A%:A$=�#A%
�8 �A$,4)="View"��A$,4)="VIEW"��A$,4)="view"�A$=�#A%
�8 �A$,4)="Ambi"��A$,4)="AMBI"��A$,4)="ambi"�A$=�#A%
�8 �A$,4)="Sola"��A$,4)="SOLA"��A$,4)="sola"�A$=�#A%
�8 �A$,4)="Grid"��A$,4)="GRID"��A$,4)="grid"�A$=�#A%
�R D1%=�A$+200*32:E1%=��#A%+200*40:A1%=�(D1%/32+.5):B1%=�(E1%/40+.5):C1%=215000
� �
� filename$="NONE"
� �
� �#A%
��
�J� A1%=0�B1%=0�C1%=0 � A1%=300:B1%=500:C1%=215000:D1%=A1%*32:E1%=B1%*40
�#� B1%*8+200>C1% � C1%=B1%*8+200
�occupazione%=608*1024
Bș"Wimp_SlotSize",-1,-1 � ,,reg3%:reg3%-=occupazione%:flag7%=�
�� reg3%<C1%+D1%+E1%+2000�filename$<>"NONE"�reg3%>240000 ��error("Warning: not enought memory to load the file"):A1%=300:B1%=500:C1%=205000:D1%=A1%*32:E1%=B1%*40:filename$="NONE"
=� reg3%<C1%+D1%+E1%+2000 � w_quanti%=w_errore%:�7:reg3%=0
"Zmaxpti%=(reg3%-C1%)/32:maxpoly%=(reg3%-C1%)/40:minpti%=A1%:minpoly%=B1%:minbuffer%=C1%
,Lq%!0=w_quanti%:ș"Wimp_GetWindowState",,q%:lx%=q%!12-q%!4:ly%=q%!16-q%!8
6Uq%!4=Xresolution%/2-lx%/2:q%!8=Yresolution%/2-ly%/2:q%!12=q%!4+lx%:q%!16=q%!8+ly%
@$q%!28=-1:ș"Wimp_OpenWindow",,q%
J� reg3%>0 �
T1 �setta_slider(w_quanti%,4 ,A1%/maxpti% *100)
^1 �setta_slider(w_quanti%,11,B1%/maxpoly%*100)
h. �setta_slider(w_quanti%,20,C1%/reg3%*100)
r9 �OvIcTxt(w_quanti%,24,è((reg3%+occupazione%)/1024))
|? �OvIcTxt(w_quanti%,2 ,è((C1%+D1%+E1%+occupazione%)/1024))
� �OvIcTxt(w_quanti%,7 ,�A1%)
� �OvIcTxt(w_quanti%,9 ,�B1%)
�( �OvIcTxt(w_quanti%,18,è(C1%/1024))
��
��
�#ș"Wimp_Poll",0,q% � poll_code%
�;� poll_code%=6�(q%!16=2�q%!16=14)�poll_code%=17:q%!16=0
�Ȏ poll_code% �
�) �1:ș"Wimp_RedrawWindow",,q% � flag%
� ȕ flag%
�- ș"Wimp_GetRectangle",,q% � flag%
� �
�' �2:�open_window(q%):�(q%!12,q%!16)
�6:Ȏ q%!16 �
+ �15 :� reg3%>C1%+D1%+E1%+4000 �
" flag7%=�:� OK
&- �close_window(w_quanti%)
0 �
:� �error("There is not enough memory for this configuration: "+�(reg3%+occupazione%)+" bytes available, "+�(C1%+D1%+E1%+occupazione%)+" needed.")
D �
N5 �3,4,5:A%=�valore_slider(w_quanti%,4,q%!0)
Xm A1%=maxpti%*A%/100:� A1%<minpti%�A1%=minpti%:�setta_slider(w_quanti%,4 ,A1%/maxpti% *100)
bX D1%=A1%*32:�OvIcTxt(w_quanti%,2,è((C1%+D1%+E1%+occupazione%)/1024))
l0 �OvIcTxt(w_quanti%,7,�(A1%))
v9 �10,11,12:A%=�valore_slider(w_quanti%,11,q%!0)
�p B1%=maxpoly%*A%/100:� B1%<minpoly%�B1%=minpoly%:�setta_slider(w_quanti%,11,B1%/maxpoly%*100)
�� � C1%<B1%*8+200 � C1%=B1%*8+200:�setta_slider(w_quanti%,20,C1%/reg3%*100):�OvIcTxt(w_quanti%,18,è(C1%/1024))
�X E1%=B1%*40:�OvIcTxt(w_quanti%,2,è((C1%+D1%+E1%+occupazione%)/1024))
�0 �OvIcTxt(w_quanti%,9,�(B1%))
�: �19,20,21:A%=�valore_slider(q%!12,20,q%!0):B%=0
�I C1%=reg3%*A%/100:� C1%<minbuffer%�C1%=minbuffer%:B%=1
�8 � C1%<B1%*8+200 � C1%=B1%*8+200:B%=1
�E � B%<>0��setta_slider(w_quanti%,20,C1%/reg3%*100)
�M �OvIcTxt(w_quanti%,2,è((C1%+D1%+E1%+occupazione%)/1024))
�7 �OvIcTxt(w_quanti%,18,è(C1%/1024))
� �
�; �17,18,19:� q%!16=0 � q%!16=14 � ș "Wimp_CloseDown":�
��
� flag7%
/� versione%<350 � occupazione%+=C1%+D1%+E1%
:�"WimpSlot -min "+�occupazione%+" -max "+�occupazione%
*!�"Set TopViewer$BUFFER "+�C1%
4 �"Set TopViewer$POINT "+�D1%
> �"Set TopViewer$POLY "+�E1%
H$�"Set TopViewer$FILE "+filename$
R�"Set TopViewer$OK 1"
\ș"Wimp_CloseDown":�
f
p��setup_for_mode
z� h%,lx%,ly%,A%
�Eq2%!0 =148:q2%!4 =-1:ș"OS_ReadVduVariables",q2%,q2%:screen%=!q2%
�@ș"OS_ReadModeVariable",-1,4 �,,Xfactor%:Xfactor%=2^Xfactor%
�@ș"OS_ReadModeVariable",-1,5 �,,Yfactor%:Yfactor%=2^Yfactor%
�Cș"OS_ReadModeVariable",-1,11�,,h%:Xresolution%=(h%+1)*Xfactor%
�Cș"OS_ReadModeVariable",-1,12�,,h%:Yresolution%=(h%+1)*Yfactor%
��
�
� ��setta_slider(hdl%,ic%,A%)
�L� questa disegna uno slider contenuto nell'icona ic% della finestra hdl%
�W� A% dice la percentuale in cui va disegnato lo slider (A% e' moltiplicato per 100)
�� lx%,A1%,A2%
�Oq1%!0=hdl%:q1%!4=ic%-1:ș"Wimp_GetIconState",,q1%:A1%=q1%+8:lx%=A1%!8-A1%!0
�?q2%!0=hdl%:q2%!4=ic%+0:ș"Wimp_GetIconState",,q2%:A2%=q2%+8
ș"Wimp_DeleteIcon",,q2%
CA2%!8=A2%!0+lx%*A%/100:q2%!4=hdl%:ș"Wimp_CreateIcon",ic%,q2%+4
Fq2%!0=hdl%:q2%!4=ic%-1:q2%!8=0:q2%!12=0:ș"Wimp_SetIconState",,q2%
$Fq2%!0=hdl%:q2%!4=ic%+0:q2%!8=0:q2%!12=0:ș"Wimp_SetIconState",,q2%
.�
8
B%ݤvalore_slider(hdl%,ic%,mousex%)
L� I%,x%,lx%,A%,A1%,A2%
V+q1%!0=hdl%:ș"Wimp_GetWindowState",,q1%
`>q2%!0=hdl%:q2%!4=ic%-1:ș"Wimp_GetIconState",,q2%:I%=q2%+8
j lx%=I%!8-I%!0:x%=q1%!4+I%!0
t-x%=mousex%-x%:A%=x%/lx%*100:� A%<0 � A%=0
~� A%>100 � A%=100
� �setta_slider(hdl%,ic%,A%)
�=A%
�
���error(A$)
�� I%
�� �
� � � � ș "Wimp_CloseDown":�
�!w%=�:$(w%+4)=A$+�(0)
�6ș"Wimp_ReportError",w%,1,"TopViewer loader" � ,I%
�"� I%=2 � ș "Wimp_CloseDown":�
�� �
��
ݤLoadTemplates
<� questa restituisce 0 se tutto OK o -1 se default to UK
I%=0:tempend%=tempbuff%+4096
(/ș"OS_Byte",70,127 � ,I%:TopModCountry$=�I%
2P� �c_e_file("<TopViewer$DIR>.Resources."+TopModCountry$+".StartTemp") <= 0 �
< TopModCountry$="1"
F�
PSș"Wimp_OpenTemplate",,"<TopViewer$DIR>.Resources."+TopModCountry$+".StartTemp"
Z(w_quanti%=�AddTemplate("DimMemoria")
d$w_errore%=�AddTemplate("Errore")
nș"Wimp_CloseTemplate"
x=I%
�
�ݤc_e_file(A$)
�� I%,dx%,value%
� ș"OS_File",5,A$ � I%,,dx%
�� I%=0 � value%= 0
�� I%=2 � value%=-1
�"� I%=1 � value%=(dx%<<12)>>>20
� =value%
�
�ݤAddTemplate(A$)
�W� I%:ș"Wimp_LoadTemplate",,tempz%,tempbuff%,tempend%,-1,A$+�12,�0),0 � ,,tempbuff%
�6tempz%!64=0:ș"Wimp_CreateWindow",,tempz% � I%:=I%
�
��OvIcTxt(hdl%,ic%,A$)
9� A%:q1%!0=hdl%:q1%!4=ic%:ș "Wimp_GetIconState",,q1%
2� (q1%!24 � (1<<8))<>0 � A%=q1%!28:�:A%=q1%+28
"7$A%=A$:q1%!8=0:q1%!12=0:ș "Wimp_SetIconState",,q1%
,�
6
@/��open_window(q%):ș"Wimp_OpenWindow",,q%:�
J
T>��close_window(hdl%):!q1%=hdl%:ș"Wimp_CloseWindow",,q1%:�
� 00000000 0d 00 0a 0f f4 3e 21 52 75 6e 49 6d 61 67 65 0d |.....>!RunImage.|
00000010 00 14 0c de 20 77 25 20 32 35 36 0d 00 1e 1f ee |.... w% 256.....|
00000020 20 85 20 f2 65 72 72 6f 72 28 c3 f6 24 2b 22 20 | . .error(..$+" |
00000030 41 74 20 22 2b c3 9e 29 3a e0 0d 00 28 48 c8 99 |At "+..):...(H..|
00000040 20 22 57 69 6d 70 5f 49 6e 69 74 69 61 6c 69 73 | "Wimp_Initialis|
00000050 65 22 2c 32 30 30 2c 26 34 42 35 33 34 31 35 34 |e",200,&4B534154|
00000060 2c 22 53 74 61 72 74 65 72 22 2c 30 20 b8 20 76 |,"Starter",0 . v|
00000070 65 72 73 69 6f 6e 65 25 2c 74 61 73 6b 5f 68 64 |ersione%,task_hd|
00000080 6c 25 0d 00 32 39 de 20 71 25 20 32 35 36 2c 71 |l%..29. q% 256,q|
00000090 31 25 20 32 35 36 2c 71 32 25 20 32 35 36 20 2c |1% 256,q2% 256 ,|
000000a0 20 74 65 6d 70 7a 25 20 33 30 34 38 2c 74 65 6d | tempz% 3048,tem|
000000b0 70 62 75 66 66 25 20 35 30 30 30 0d 00 3c 25 f2 |pbuff% 5000..<%.|
000000c0 73 65 74 75 70 5f 66 6f 72 5f 6d 6f 64 65 3a 49 |setup_for_mode:I|
000000d0 25 3d a4 4c 6f 61 64 54 65 6d 70 6c 61 74 65 73 |%=.LoadTemplates|
000000e0 0d 00 46 47 c8 99 22 4f 53 5f 47 65 74 45 6e 76 |..FG.."OS_GetEnv|
000000f0 22 20 b8 20 41 24 3a 41 25 3d a7 41 24 2c 22 53 |" . A$:A%=.A$,"S|
00000100 74 61 72 74 65 72 22 2b bd 28 33 34 29 2b 22 20 |tarter"+.(34)+" |
00000110 22 29 3a 41 25 2b 3d 38 3a 41 24 3d c2 41 24 2c |"):A%+=8:A$=.A$,|
00000120 a9 41 24 2d 41 25 29 0d 00 50 1b ff 28 22 53 65 |.A$-A%)..P..("Se|
00000130 74 20 54 6f 70 56 69 65 77 65 72 24 4f 4b 20 30 |t TopViewer$OK 0|
00000140 22 29 0d 00 5a 30 66 69 6c 65 6e 61 6d 65 24 3d |")..Z0filename$=|
00000150 41 24 3a e7 20 a7 41 24 2c 22 2e 22 29 3d 30 20 |A$:. .A$,".")=0 |
00000160 8c 20 66 69 6c 65 6e 61 6d 65 24 3d 22 4e 4f 4e |. filename$="NON|
00000170 45 22 0d 00 64 2b 41 31 25 3d 30 3a 42 31 25 3d |E"..d+A1%=0:B1%=|
00000180 30 3a 43 31 25 3d 30 3a e7 20 66 69 6c 65 6e 61 |0:C1%=0:. filena|
00000190 6d 65 24 3c 3e 22 4e 4f 4e 45 22 20 8c 0d 00 6e |me$<>"NONE" ...n|
000001a0 2d 20 41 25 3d 8e 28 66 69 6c 65 6e 61 6d 65 24 |- A%=.(filename$|
000001b0 29 3a 41 24 3d be 23 41 25 3a e7 20 41 24 3d 22 |):A$=.#A%:. A$="|
000001c0 33 44 4d 6f 64 65 6c 22 20 8c 0d 00 78 15 20 20 |3DModel" ...x. |
000001d0 41 24 3d be 23 41 25 3a 41 24 3d be 23 41 25 0d |A$=.#A%:A$=.#A%.|
000001e0 00 82 38 20 20 e7 c0 41 24 2c 34 29 3d 22 56 69 |..8 ..A$,4)="Vi|
000001f0 65 77 22 84 c0 41 24 2c 34 29 3d 22 56 49 45 57 |ew"..A$,4)="VIEW|
00000200 22 84 c0 41 24 2c 34 29 3d 22 76 69 65 77 22 8c |"..A$,4)="view".|
00000210 41 24 3d be 23 41 25 0d 00 8c 38 20 20 e7 c0 41 |A$=.#A%...8 ..A|
00000220 24 2c 34 29 3d 22 41 6d 62 69 22 84 c0 41 24 2c |$,4)="Ambi"..A$,|
00000230 34 29 3d 22 41 4d 42 49 22 84 c0 41 24 2c 34 29 |4)="AMBI"..A$,4)|
00000240 3d 22 61 6d 62 69 22 8c 41 24 3d be 23 41 25 0d |="ambi".A$=.#A%.|
00000250 00 96 38 20 20 e7 c0 41 24 2c 34 29 3d 22 53 6f |..8 ..A$,4)="So|
00000260 6c 61 22 84 c0 41 24 2c 34 29 3d 22 53 4f 4c 41 |la"..A$,4)="SOLA|
00000270 22 84 c0 41 24 2c 34 29 3d 22 73 6f 6c 61 22 8c |"..A$,4)="sola".|
00000280 41 24 3d be 23 41 25 0d 00 a0 38 20 20 e7 c0 41 |A$=.#A%...8 ..A|
00000290 24 2c 34 29 3d 22 47 72 69 64 22 84 c0 41 24 2c |$,4)="Grid"..A$,|
000002a0 34 29 3d 22 47 52 49 44 22 84 c0 41 24 2c 34 29 |4)="GRID"..A$,4)|
000002b0 3d 22 67 72 69 64 22 8c 41 24 3d be 23 41 25 0d |="grid".A$=.#A%.|
000002c0 00 aa 52 20 20 44 31 25 3d bb 41 24 2b 32 30 30 |..R D1%=.A$+200|
000002d0 2a 33 32 3a 45 31 25 3d bb be 23 41 25 2b 32 30 |*32:E1%=..#A%+20|
000002e0 30 2a 34 30 3a 41 31 25 3d a8 28 44 31 25 2f 33 |0*40:A1%=.(D1%/3|
000002f0 32 2b 2e 35 29 3a 42 31 25 3d a8 28 45 31 25 2f |2+.5):B1%=.(E1%/|
00000300 34 30 2b 2e 35 29 3a 43 31 25 3d 32 31 35 30 30 |40+.5):C1%=21500|
00000310 30 0d 00 b4 06 20 cc 0d 00 be 16 20 20 66 69 6c |0.... ..... fil|
00000320 65 6e 61 6d 65 24 3d 22 4e 4f 4e 45 22 0d 00 c8 |ename$="NONE"...|
00000330 06 20 cd 0d 00 d2 09 20 d9 23 41 25 0d 00 dc 05 |. ..... .#A%....|
00000340 cd 0d 00 e6 4a e7 20 41 31 25 3d 30 80 42 31 25 |....J. A1%=0.B1%|
00000350 3d 30 80 43 31 25 3d 30 20 8c 20 41 31 25 3d 33 |=0.C1%=0 . A1%=3|
00000360 30 30 3a 42 31 25 3d 35 30 30 3a 43 31 25 3d 32 |00:B1%=500:C1%=2|
00000370 31 35 30 30 30 3a 44 31 25 3d 41 31 25 2a 33 32 |15000:D1%=A1%*32|
00000380 3a 45 31 25 3d 42 31 25 2a 34 30 0d 00 f0 23 e7 |:E1%=B1%*40...#.|
00000390 20 42 31 25 2a 38 2b 32 30 30 3e 43 31 25 20 8c | B1%*8+200>C1% .|
000003a0 20 43 31 25 3d 42 31 25 2a 38 2b 32 30 30 0d 00 | C1%=B1%*8+200..|
000003b0 fa 19 6f 63 63 75 70 61 7a 69 6f 6e 65 25 3d 36 |..occupazione%=6|
000003c0 30 38 2a 31 30 32 34 0d 01 04 42 c8 99 22 57 69 |08*1024...B.."Wi|
000003d0 6d 70 5f 53 6c 6f 74 53 69 7a 65 22 2c 2d 31 2c |mp_SlotSize",-1,|
000003e0 2d 31 20 b8 20 2c 2c 72 65 67 33 25 3a 72 65 67 |-1 . ,,reg3%:reg|
000003f0 33 25 2d 3d 6f 63 63 75 70 61 7a 69 6f 6e 65 25 |3%-=occupazione%|
00000400 3a 66 6c 61 67 37 25 3d a3 0d 01 0e b5 e7 20 72 |:flag7%=...... r|
00000410 65 67 33 25 3c 43 31 25 2b 44 31 25 2b 45 31 25 |eg3%<C1%+D1%+E1%|
00000420 2b 32 30 30 30 80 66 69 6c 65 6e 61 6d 65 24 3c |+2000.filename$<|
00000430 3e 22 4e 4f 4e 45 22 80 72 65 67 33 25 3e 32 34 |>"NONE".reg3%>24|
00000440 30 30 30 30 20 8c f2 65 72 72 6f 72 28 22 57 61 |0000 ..error("Wa|
00000450 72 6e 69 6e 67 3a 20 6e 6f 74 20 65 6e 6f 75 67 |rning: not enoug|
00000460 68 74 20 6d 65 6d 6f 72 79 20 74 6f 20 6c 6f 61 |ht memory to loa|
00000470 64 20 74 68 65 20 66 69 6c 65 22 29 3a 41 31 25 |d the file"):A1%|
00000480 3d 33 30 30 3a 42 31 25 3d 35 30 30 3a 43 31 25 |=300:B1%=500:C1%|
00000490 3d 32 30 35 30 30 30 3a 44 31 25 3d 41 31 25 2a |=205000:D1%=A1%*|
000004a0 33 32 3a 45 31 25 3d 42 31 25 2a 34 30 3a 66 69 |32:E1%=B1%*40:fi|
000004b0 6c 65 6e 61 6d 65 24 3d 22 4e 4f 4e 45 22 0d 01 |lename$="NONE"..|
000004c0 18 3d e7 20 72 65 67 33 25 3c 43 31 25 2b 44 31 |.=. reg3%<C1%+D1|
000004d0 25 2b 45 31 25 2b 32 30 30 30 20 8c 20 77 5f 71 |%+E1%+2000 . w_q|
000004e0 75 61 6e 74 69 25 3d 77 5f 65 72 72 6f 72 65 25 |uanti%=w_errore%|
000004f0 3a ef 37 3a 72 65 67 33 25 3d 30 0d 01 22 5a 6d |:.7:reg3%=0.."Zm|
00000500 61 78 70 74 69 25 3d 28 72 65 67 33 25 2d 43 31 |axpti%=(reg3%-C1|
00000510 25 29 2f 33 32 3a 6d 61 78 70 6f 6c 79 25 3d 28 |%)/32:maxpoly%=(|
00000520 72 65 67 33 25 2d 43 31 25 29 2f 34 30 3a 6d 69 |reg3%-C1%)/40:mi|
00000530 6e 70 74 69 25 3d 41 31 25 3a 6d 69 6e 70 6f 6c |npti%=A1%:minpol|
00000540 79 25 3d 42 31 25 3a 6d 69 6e 62 75 66 66 65 72 |y%=B1%:minbuffer|
00000550 25 3d 43 31 25 0d 01 2c 4c 71 25 21 30 3d 77 5f |%=C1%..,Lq%!0=w_|
00000560 71 75 61 6e 74 69 25 3a c8 99 22 57 69 6d 70 5f |quanti%:.."Wimp_|
00000570 47 65 74 57 69 6e 64 6f 77 53 74 61 74 65 22 2c |GetWindowState",|
00000580 2c 71 25 3a 6c 78 25 3d 71 25 21 31 32 2d 71 25 |,q%:lx%=q%!12-q%|
00000590 21 34 3a 6c 79 25 3d 71 25 21 31 36 2d 71 25 21 |!4:ly%=q%!16-q%!|
000005a0 38 0d 01 36 55 71 25 21 34 3d 58 72 65 73 6f 6c |8..6Uq%!4=Xresol|
000005b0 75 74 69 6f 6e 25 2f 32 2d 6c 78 25 2f 32 3a 71 |ution%/2-lx%/2:q|
000005c0 25 21 38 3d 59 72 65 73 6f 6c 75 74 69 6f 6e 25 |%!8=Yresolution%|
000005d0 2f 32 2d 6c 79 25 2f 32 3a 71 25 21 31 32 3d 71 |/2-ly%/2:q%!12=q|
000005e0 25 21 34 2b 6c 78 25 3a 71 25 21 31 36 3d 71 25 |%!4+lx%:q%!16=q%|
000005f0 21 38 2b 6c 79 25 0d 01 40 24 71 25 21 32 38 3d |!8+ly%..@$q%!28=|
00000600 2d 31 3a c8 99 22 57 69 6d 70 5f 4f 70 65 6e 57 |-1:.."Wimp_OpenW|
00000610 69 6e 64 6f 77 22 2c 2c 71 25 0d 01 4a 10 e7 20 |indow",,q%..J.. |
00000620 20 72 65 67 33 25 3e 30 20 8c 0d 01 54 31 20 f2 | reg3%>0 ...T1 .|
00000630 73 65 74 74 61 5f 73 6c 69 64 65 72 28 77 5f 71 |setta_slider(w_q|
00000640 75 61 6e 74 69 25 2c 34 20 2c 41 31 25 2f 6d 61 |uanti%,4 ,A1%/ma|
00000650 78 70 74 69 25 20 2a 31 30 30 29 0d 01 5e 31 20 |xpti% *100)..^1 |
00000660 f2 73 65 74 74 61 5f 73 6c 69 64 65 72 28 77 5f |.setta_slider(w_|
00000670 71 75 61 6e 74 69 25 2c 31 31 2c 42 31 25 2f 6d |quanti%,11,B1%/m|
00000680 61 78 70 6f 6c 79 25 2a 31 30 30 29 0d 01 68 2e |axpoly%*100)..h.|
00000690 20 f2 73 65 74 74 61 5f 73 6c 69 64 65 72 28 77 | .setta_slider(w|
000006a0 5f 71 75 61 6e 74 69 25 2c 32 30 2c 43 31 25 2f |_quanti%,20,C1%/|
000006b0 72 65 67 33 25 2a 31 30 30 29 0d 01 72 39 20 f2 |reg3%*100)..r9 .|
000006c0 4f 76 49 63 54 78 74 28 77 5f 71 75 61 6e 74 69 |OvIcTxt(w_quanti|
000006d0 25 2c 32 34 2c c3 a8 28 28 72 65 67 33 25 2b 6f |%,24,..((reg3%+o|
000006e0 63 63 75 70 61 7a 69 6f 6e 65 25 29 2f 31 30 32 |ccupazione%)/102|
000006f0 34 29 29 0d 01 7c 3f 20 f2 4f 76 49 63 54 78 74 |4))..|? .OvIcTxt|
00000700 28 77 5f 71 75 61 6e 74 69 25 2c 32 20 2c c3 a8 |(w_quanti%,2 ,..|
00000710 28 28 43 31 25 2b 44 31 25 2b 45 31 25 2b 6f 63 |((C1%+D1%+E1%+oc|
00000720 63 75 70 61 7a 69 6f 6e 65 25 29 2f 31 30 32 34 |cupazione%)/1024|
00000730 29 29 0d 01 86 20 20 f2 4f 76 49 63 54 78 74 28 |))... .OvIcTxt(|
00000740 77 5f 71 75 61 6e 74 69 25 2c 37 20 2c c3 41 31 |w_quanti%,7 ,.A1|
00000750 25 29 0d 01 90 20 20 f2 4f 76 49 63 54 78 74 28 |%)... .OvIcTxt(|
00000760 77 5f 71 75 61 6e 74 69 25 2c 39 20 2c c3 42 31 |w_quanti%,9 ,.B1|
00000770 25 29 0d 01 9a 28 20 f2 4f 76 49 63 54 78 74 28 |%)...( .OvIcTxt(|
00000780 77 5f 71 75 61 6e 74 69 25 2c 31 38 2c c3 a8 28 |w_quanti%,18,..(|
00000790 43 31 25 2f 31 30 32 34 29 29 0d 01 a4 05 cd 0d |C1%/1024))......|
000007a0 01 ae 05 f5 0d 01 b8 23 c8 99 22 57 69 6d 70 5f |.......#.."Wimp_|
000007b0 50 6f 6c 6c 22 2c 30 2c 71 25 20 b8 20 70 6f 6c |Poll",0,q% . pol|
000007c0 6c 5f 63 6f 64 65 25 0d 01 c2 3b e7 20 70 6f 6c |l_code%...;. pol|
000007d0 6c 5f 63 6f 64 65 25 3d 36 80 28 71 25 21 31 36 |l_code%=6.(q%!16|
000007e0 3d 32 84 71 25 21 31 36 3d 31 34 29 8c 70 6f 6c |=2.q%!16=14).pol|
000007f0 6c 5f 63 6f 64 65 25 3d 31 37 3a 71 25 21 31 36 |l_code%=17:q%!16|
00000800 3d 30 0d 01 cc 13 c8 8e 20 70 6f 6c 6c 5f 63 6f |=0...... poll_co|
00000810 64 65 25 20 ca 0d 01 d6 29 20 c9 31 3a c8 99 22 |de% ....) .1:.."|
00000820 57 69 6d 70 5f 52 65 64 72 61 77 57 69 6e 64 6f |Wimp_RedrawWindo|
00000830 77 22 2c 2c 71 25 20 b8 20 66 6c 61 67 25 0d 01 |w",,q% . flag%..|
00000840 e0 13 20 20 20 20 20 20 20 c8 95 20 66 6c 61 67 |.. .. flag|
00000850 25 0d 01 ea 2d 20 20 20 20 20 20 20 20 c8 99 22 |%...- .."|
00000860 57 69 6d 70 5f 47 65 74 52 65 63 74 61 6e 67 6c |Wimp_GetRectangl|
00000870 65 22 2c 2c 71 25 20 b8 20 66 6c 61 67 25 0d 01 |e",,q% . flag%..|
00000880 f4 0c 20 20 20 20 20 20 20 ce 0d 01 fe 27 20 c9 |.. ....' .|
00000890 32 3a f2 6f 70 65 6e 5f 77 69 6e 64 6f 77 28 71 |2:.open_window(q|
000008a0 25 29 3a f4 28 71 25 21 31 32 2c 71 25 21 31 36 |%):.(q%!12,q%!16|
000008b0 29 0d 02 08 12 20 c9 36 3a c8 8e 20 71 25 21 31 |).... .6:.. q%!1|
000008c0 36 20 ca 0d 02 12 2b 20 20 20 20 20 20 20 c9 31 |6 ....+ .1|
000008d0 35 20 20 3a e7 20 72 65 67 33 25 3e 43 31 25 2b |5 :. reg3%>C1%+|
000008e0 44 31 25 2b 45 31 25 2b 34 30 30 30 20 8c 0d 02 |D1%+E1%+4000 ...|
000008f0 1c 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00000900 20 20 20 66 6c 61 67 37 25 3d b9 3a f4 20 4f 4b | flag7%=.:. OK|
00000910 0d 02 26 2d 20 20 20 20 20 20 20 20 20 20 20 20 |..&- |
00000920 20 20 20 20 20 f2 63 6c 6f 73 65 5f 77 69 6e 64 | .close_wind|
00000930 6f 77 28 77 5f 71 75 61 6e 74 69 25 29 0d 02 30 |ow(w_quanti%)..0|
00000940 15 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000950 20 cc 0d 02 3a a4 20 20 20 20 20 20 20 20 20 20 | ...:. |
00000960 20 20 20 20 20 20 20 f2 65 72 72 6f 72 28 22 54 | .error("T|
00000970 68 65 72 65 20 69 73 20 6e 6f 74 20 65 6e 6f 75 |here is not enou|
00000980 67 68 20 6d 65 6d 6f 72 79 20 66 6f 72 20 74 68 |gh memory for th|
00000990 69 73 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e |is configuration|
000009a0 3a 20 22 2b c3 28 72 65 67 33 25 2b 6f 63 63 75 |: "+.(reg3%+occu|
000009b0 70 61 7a 69 6f 6e 65 25 29 2b 22 20 62 79 74 65 |pazione%)+" byte|
000009c0 73 20 61 76 61 69 6c 61 62 6c 65 2c 20 22 2b c3 |s available, "+.|
000009d0 28 43 31 25 2b 44 31 25 2b 45 31 25 2b 6f 63 63 |(C1%+D1%+E1%+occ|
000009e0 75 70 61 7a 69 6f 6e 65 25 29 2b 22 20 6e 65 65 |upazione%)+" nee|
000009f0 64 65 64 2e 22 29 0d 02 44 15 20 20 20 20 20 20 |ded.")..D. |
00000a00 20 20 20 20 20 20 20 20 20 20 cd 0d 02 4e 35 20 | ...N5 |
00000a10 20 20 20 20 20 20 c9 33 2c 34 2c 35 3a 41 25 3d | .3,4,5:A%=|
00000a20 a4 76 61 6c 6f 72 65 5f 73 6c 69 64 65 72 28 77 |.valore_slider(w|
00000a30 5f 71 75 61 6e 74 69 25 2c 34 2c 71 25 21 30 29 |_quanti%,4,q%!0)|
00000a40 0d 02 58 6d 20 20 20 20 20 20 20 20 20 20 20 20 |..Xm |
00000a50 20 20 20 20 41 31 25 3d 6d 61 78 70 74 69 25 2a | A1%=maxpti%*|
00000a60 41 25 2f 31 30 30 3a e7 20 41 31 25 3c 6d 69 6e |A%/100:. A1%<min|
00000a70 70 74 69 25 8c 41 31 25 3d 6d 69 6e 70 74 69 25 |pti%.A1%=minpti%|
00000a80 3a f2 73 65 74 74 61 5f 73 6c 69 64 65 72 28 77 |:.setta_slider(w|
00000a90 5f 71 75 61 6e 74 69 25 2c 34 20 2c 41 31 25 2f |_quanti%,4 ,A1%/|
00000aa0 6d 61 78 70 74 69 25 20 2a 31 30 30 29 0d 02 62 |maxpti% *100)..b|
00000ab0 58 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |X |
00000ac0 20 44 31 25 3d 41 31 25 2a 33 32 3a f2 4f 76 49 | D1%=A1%*32:.OvI|
00000ad0 63 54 78 74 28 77 5f 71 75 61 6e 74 69 25 2c 32 |cTxt(w_quanti%,2|
00000ae0 2c c3 a8 28 28 43 31 25 2b 44 31 25 2b 45 31 25 |,..((C1%+D1%+E1%|
00000af0 2b 6f 63 63 75 70 61 7a 69 6f 6e 65 25 29 2f 31 |+occupazione%)/1|
00000b00 30 32 34 29 29 0d 02 6c 30 20 20 20 20 20 20 20 |024))..l0 |
00000b10 20 20 20 20 20 20 20 20 20 f2 4f 76 49 63 54 78 | .OvIcTx|
00000b20 74 28 77 5f 71 75 61 6e 74 69 25 2c 37 2c c3 28 |t(w_quanti%,7,.(|
00000b30 41 31 25 29 29 0d 02 76 39 20 20 20 20 20 20 20 |A1%))..v9 |
00000b40 c9 31 30 2c 31 31 2c 31 32 3a 41 25 3d a4 76 61 |.10,11,12:A%=.va|
00000b50 6c 6f 72 65 5f 73 6c 69 64 65 72 28 77 5f 71 75 |lore_slider(w_qu|
00000b60 61 6e 74 69 25 2c 31 31 2c 71 25 21 30 29 0d 02 |anti%,11,q%!0)..|
00000b70 80 70 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.p |
00000b80 20 20 42 31 25 3d 6d 61 78 70 6f 6c 79 25 2a 41 | B1%=maxpoly%*A|
00000b90 25 2f 31 30 30 3a e7 20 42 31 25 3c 6d 69 6e 70 |%/100:. B1%<minp|
00000ba0 6f 6c 79 25 8c 42 31 25 3d 6d 69 6e 70 6f 6c 79 |oly%.B1%=minpoly|
00000bb0 25 3a f2 73 65 74 74 61 5f 73 6c 69 64 65 72 28 |%:.setta_slider(|
00000bc0 77 5f 71 75 61 6e 74 69 25 2c 31 31 2c 42 31 25 |w_quanti%,11,B1%|
00000bd0 2f 6d 61 78 70 6f 6c 79 25 2a 31 30 30 29 0d 02 |/maxpoly%*100)..|
00000be0 8a 81 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00000bf0 20 20 e7 20 43 31 25 3c 42 31 25 2a 38 2b 32 30 | . C1%<B1%*8+20|
00000c00 30 20 8c 20 43 31 25 3d 42 31 25 2a 38 2b 32 30 |0 . C1%=B1%*8+20|
00000c10 30 3a f2 73 65 74 74 61 5f 73 6c 69 64 65 72 28 |0:.setta_slider(|
00000c20 77 5f 71 75 61 6e 74 69 25 2c 32 30 2c 43 31 25 |w_quanti%,20,C1%|
00000c30 2f 72 65 67 33 25 2a 31 30 30 29 3a f2 4f 76 49 |/reg3%*100):.OvI|
00000c40 63 54 78 74 28 77 5f 71 75 61 6e 74 69 25 2c 31 |cTxt(w_quanti%,1|
00000c50 38 2c c3 a8 28 43 31 25 2f 31 30 32 34 29 29 0d |8,..(C1%/1024)).|
00000c60 02 94 58 20 20 20 20 20 20 20 20 20 20 20 20 20 |..X |
00000c70 20 20 20 45 31 25 3d 42 31 25 2a 34 30 3a f2 4f | E1%=B1%*40:.O|
00000c80 76 49 63 54 78 74 28 77 5f 71 75 61 6e 74 69 25 |vIcTxt(w_quanti%|
00000c90 2c 32 2c c3 a8 28 28 43 31 25 2b 44 31 25 2b 45 |,2,..((C1%+D1%+E|
00000ca0 31 25 2b 6f 63 63 75 70 61 7a 69 6f 6e 65 25 29 |1%+occupazione%)|
00000cb0 2f 31 30 32 34 29 29 0d 02 9e 30 20 20 20 20 20 |/1024))...0 |
00000cc0 20 20 20 20 20 20 20 20 20 20 20 f2 4f 76 49 63 | .OvIc|
00000cd0 54 78 74 28 77 5f 71 75 61 6e 74 69 25 2c 39 2c |Txt(w_quanti%,9,|
00000ce0 c3 28 42 31 25 29 29 0d 02 a8 3a 20 20 20 20 20 |.(B1%))...: |
00000cf0 20 20 c9 31 39 2c 32 30 2c 32 31 3a 41 25 3d a4 | .19,20,21:A%=.|
00000d00 76 61 6c 6f 72 65 5f 73 6c 69 64 65 72 28 71 25 |valore_slider(q%|
00000d10 21 31 32 2c 32 30 2c 71 25 21 30 29 3a 42 25 3d |!12,20,q%!0):B%=|
00000d20 30 0d 02 b2 49 20 20 20 20 20 20 20 20 20 20 20 |0...I |
00000d30 20 20 20 20 20 43 31 25 3d 72 65 67 33 25 2a 41 | C1%=reg3%*A|
00000d40 25 2f 31 30 30 3a e7 20 43 31 25 3c 6d 69 6e 62 |%/100:. C1%<minb|
00000d50 75 66 66 65 72 25 8c 43 31 25 3d 6d 69 6e 62 75 |uffer%.C1%=minbu|
00000d60 66 66 65 72 25 3a 42 25 3d 31 0d 02 bc 38 20 20 |ffer%:B%=1...8 |
00000d70 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e7 20 | . |
00000d80 43 31 25 3c 42 31 25 2a 38 2b 32 30 30 20 8c 20 |C1%<B1%*8+200 . |
00000d90 43 31 25 3d 42 31 25 2a 38 2b 32 30 30 3a 42 25 |C1%=B1%*8+200:B%|
00000da0 3d 31 0d 02 c6 45 20 20 20 20 20 20 20 20 20 20 |=1...E |
00000db0 20 20 20 20 20 20 e7 20 42 25 3c 3e 30 8c f2 73 | . B%<>0..s|
00000dc0 65 74 74 61 5f 73 6c 69 64 65 72 28 77 5f 71 75 |etta_slider(w_qu|
00000dd0 61 6e 74 69 25 2c 32 30 2c 43 31 25 2f 72 65 67 |anti%,20,C1%/reg|
00000de0 33 25 2a 31 30 30 29 0d 02 d0 4d 20 20 20 20 20 |3%*100)...M |
00000df0 20 20 20 20 20 20 20 20 20 20 20 f2 4f 76 49 63 | .OvIc|
00000e00 54 78 74 28 77 5f 71 75 61 6e 74 69 25 2c 32 2c |Txt(w_quanti%,2,|
00000e10 c3 a8 28 28 43 31 25 2b 44 31 25 2b 45 31 25 2b |..((C1%+D1%+E1%+|
00000e20 6f 63 63 75 70 61 7a 69 6f 6e 65 25 29 2f 31 30 |occupazione%)/10|
00000e30 32 34 29 29 0d 02 da 37 20 20 20 20 20 20 20 20 |24))...7 |
00000e40 20 20 20 20 20 20 20 20 f2 4f 76 49 63 54 78 74 | .OvIcTxt|
00000e50 28 77 5f 71 75 61 6e 74 69 25 2c 31 38 2c c3 a8 |(w_quanti%,18,..|
00000e60 28 43 31 25 2f 31 30 32 34 29 29 0d 02 e4 0c 20 |(C1%/1024)).... |
00000e70 20 20 20 20 20 20 cb 0d 02 ee 3b 20 c9 31 37 2c | ....; .17,|
00000e80 31 38 2c 31 39 3a e7 20 71 25 21 31 36 3d 30 20 |18,19:. q%!16=0 |
00000e90 84 20 71 25 21 31 36 3d 31 34 20 8c 20 c8 99 20 |. q%!16=14 . .. |
00000ea0 22 57 69 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e 22 |"Wimp_CloseDown"|
00000eb0 3a e0 0d 02 f8 05 cb 0d 03 02 0c fd 20 66 6c 61 |:........... fla|
00000ec0 67 37 25 0d 03 0c 04 0d 03 16 2f e7 20 76 65 72 |g7%......./. ver|
00000ed0 73 69 6f 6e 65 25 3c 33 35 30 20 8c 20 6f 63 63 |sione%<350 . occ|
00000ee0 75 70 61 7a 69 6f 6e 65 25 2b 3d 43 31 25 2b 44 |upazione%+=C1%+D|
00000ef0 31 25 2b 45 31 25 0d 03 20 3a ff 22 57 69 6d 70 |1%+E1%.. :."Wimp|
00000f00 53 6c 6f 74 20 2d 6d 69 6e 20 22 2b c3 6f 63 63 |Slot -min "+.occ|
00000f10 75 70 61 7a 69 6f 6e 65 25 2b 22 20 2d 6d 61 78 |upazione%+" -max|
00000f20 20 22 2b c3 6f 63 63 75 70 61 7a 69 6f 6e 65 25 | "+.occupazione%|
00000f30 0d 03 2a 21 ff 22 53 65 74 20 54 6f 70 56 69 65 |..*!."Set TopVie|
00000f40 77 65 72 24 42 55 46 46 45 52 20 22 2b c3 43 31 |wer$BUFFER "+.C1|
00000f50 25 0d 03 34 20 ff 22 53 65 74 20 54 6f 70 56 69 |%..4 ."Set TopVi|
00000f60 65 77 65 72 24 50 4f 49 4e 54 20 22 2b c3 44 31 |ewer$POINT "+.D1|
00000f70 25 0d 03 3e 1f ff 22 53 65 74 20 54 6f 70 56 69 |%..>.."Set TopVi|
00000f80 65 77 65 72 24 50 4f 4c 59 20 22 2b c3 45 31 25 |ewer$POLY "+.E1%|
00000f90 0d 03 48 24 ff 22 53 65 74 20 54 6f 70 56 69 65 |..H$."Set TopVie|
00000fa0 77 65 72 24 46 49 4c 45 20 22 2b 66 69 6c 65 6e |wer$FILE "+filen|
00000fb0 61 6d 65 24 0d 03 52 19 ff 22 53 65 74 20 54 6f |ame$..R.."Set To|
00000fc0 70 56 69 65 77 65 72 24 4f 4b 20 31 22 0d 03 5c |pViewer$OK 1"..\|
00000fd0 18 c8 99 22 57 69 6d 70 5f 43 6c 6f 73 65 44 6f |..."Wimp_CloseDo|
00000fe0 77 6e 22 3a e0 0d 03 66 04 0d 03 70 14 dd f2 73 |wn":...f...p...s|
00000ff0 65 74 75 70 5f 66 6f 72 5f 6d 6f 64 65 0d 03 7a |etup_for_mode..z|
00001000 13 ea 20 68 25 2c 6c 78 25 2c 6c 79 25 2c 41 25 |.. h%,lx%,ly%,A%|
00001010 0d 03 84 45 71 32 25 21 30 20 3d 31 34 38 3a 71 |...Eq2%!0 =148:q|
00001020 32 25 21 34 20 3d 2d 31 3a c8 99 22 4f 53 5f 52 |2%!4 =-1:.."OS_R|
00001030 65 61 64 56 64 75 56 61 72 69 61 62 6c 65 73 22 |eadVduVariables"|
00001040 2c 71 32 25 2c 71 32 25 3a 73 63 72 65 65 6e 25 |,q2%,q2%:screen%|
00001050 3d 21 71 32 25 0d 03 8e 40 c8 99 22 4f 53 5f 52 |=!q2%...@.."OS_R|
00001060 65 61 64 4d 6f 64 65 56 61 72 69 61 62 6c 65 22 |eadModeVariable"|
00001070 2c 2d 31 2c 34 20 b8 2c 2c 58 66 61 63 74 6f 72 |,-1,4 .,,Xfactor|
00001080 25 3a 58 66 61 63 74 6f 72 25 3d 32 5e 58 66 61 |%:Xfactor%=2^Xfa|
00001090 63 74 6f 72 25 0d 03 98 40 c8 99 22 4f 53 5f 52 |ctor%...@.."OS_R|
000010a0 65 61 64 4d 6f 64 65 56 61 72 69 61 62 6c 65 22 |eadModeVariable"|
000010b0 2c 2d 31 2c 35 20 b8 2c 2c 59 66 61 63 74 6f 72 |,-1,5 .,,Yfactor|
000010c0 25 3a 59 66 61 63 74 6f 72 25 3d 32 5e 59 66 61 |%:Yfactor%=2^Yfa|
000010d0 63 74 6f 72 25 0d 03 a2 43 c8 99 22 4f 53 5f 52 |ctor%...C.."OS_R|
000010e0 65 61 64 4d 6f 64 65 56 61 72 69 61 62 6c 65 22 |eadModeVariable"|
000010f0 2c 2d 31 2c 31 31 b8 2c 2c 68 25 3a 58 72 65 73 |,-1,11.,,h%:Xres|
00001100 6f 6c 75 74 69 6f 6e 25 3d 28 68 25 2b 31 29 2a |olution%=(h%+1)*|
00001110 58 66 61 63 74 6f 72 25 0d 03 ac 43 c8 99 22 4f |Xfactor%...C.."O|
00001120 53 5f 52 65 61 64 4d 6f 64 65 56 61 72 69 61 62 |S_ReadModeVariab|
00001130 6c 65 22 2c 2d 31 2c 31 32 b8 2c 2c 68 25 3a 59 |le",-1,12.,,h%:Y|
00001140 72 65 73 6f 6c 75 74 69 6f 6e 25 3d 28 68 25 2b |resolution%=(h%+|
00001150 31 29 2a 59 66 61 63 74 6f 72 25 0d 03 b6 05 e1 |1)*Yfactor%.....|
00001160 0d 03 c0 04 0d 03 ca 1f dd f2 73 65 74 74 61 5f |..........setta_|
00001170 73 6c 69 64 65 72 28 68 64 6c 25 2c 69 63 25 2c |slider(hdl%,ic%,|
00001180 41 25 29 0d 03 d4 4c f4 20 71 75 65 73 74 61 20 |A%)...L. questa |
00001190 64 69 73 65 67 6e 61 20 75 6e 6f 20 73 6c 69 64 |disegna uno slid|
000011a0 65 72 20 63 6f 6e 74 65 6e 75 74 6f 20 6e 65 6c |er contenuto nel|
000011b0 6c 27 69 63 6f 6e 61 20 69 63 25 20 64 65 6c 6c |l'icona ic% dell|
000011c0 61 20 66 69 6e 65 73 74 72 61 20 68 64 6c 25 0d |a finestra hdl%.|
000011d0 03 de 57 f4 20 41 25 20 64 69 63 65 20 6c 61 20 |..W. A% dice la |
000011e0 70 65 72 63 65 6e 74 75 61 6c 65 20 69 6e 20 63 |percentuale in c|
000011f0 75 69 20 76 61 20 64 69 73 65 67 6e 61 74 6f 20 |ui va disegnato |
00001200 6c 6f 20 73 6c 69 64 65 72 20 28 41 25 20 65 27 |lo slider (A% e'|
00001210 20 6d 6f 6c 74 69 70 6c 69 63 61 74 6f 20 70 65 | moltiplicato pe|
00001220 72 20 31 30 30 29 0d 03 e8 11 ea 20 6c 78 25 2c |r 100)..... lx%,|
00001230 41 31 25 2c 41 32 25 0d 03 f2 4f 71 31 25 21 30 |A1%,A2%...Oq1%!0|
00001240 3d 68 64 6c 25 3a 71 31 25 21 34 3d 69 63 25 2d |=hdl%:q1%!4=ic%-|
00001250 31 3a c8 99 22 57 69 6d 70 5f 47 65 74 49 63 6f |1:.."Wimp_GetIco|
00001260 6e 53 74 61 74 65 22 2c 2c 71 31 25 3a 41 31 25 |nState",,q1%:A1%|
00001270 3d 71 31 25 2b 38 3a 6c 78 25 3d 41 31 25 21 38 |=q1%+8:lx%=A1%!8|
00001280 2d 41 31 25 21 30 0d 03 fc 3f 71 32 25 21 30 3d |-A1%!0...?q2%!0=|
00001290 68 64 6c 25 3a 71 32 25 21 34 3d 69 63 25 2b 30 |hdl%:q2%!4=ic%+0|
000012a0 3a c8 99 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e |:.."Wimp_GetIcon|
000012b0 53 74 61 74 65 22 2c 2c 71 32 25 3a 41 32 25 3d |State",,q2%:A2%=|
000012c0 71 32 25 2b 38 0d 04 06 1c c8 99 22 57 69 6d 70 |q2%+8......"Wimp|
000012d0 5f 44 65 6c 65 74 65 49 63 6f 6e 22 2c 2c 71 32 |_DeleteIcon",,q2|
000012e0 25 0d 04 10 43 41 32 25 21 38 3d 41 32 25 21 30 |%...CA2%!8=A2%!0|
000012f0 2b 6c 78 25 2a 41 25 2f 31 30 30 3a 71 32 25 21 |+lx%*A%/100:q2%!|
00001300 34 3d 68 64 6c 25 3a c8 99 22 57 69 6d 70 5f 43 |4=hdl%:.."Wimp_C|
00001310 72 65 61 74 65 49 63 6f 6e 22 2c 69 63 25 2c 71 |reateIcon",ic%,q|
00001320 32 25 2b 34 0d 04 1a 46 71 32 25 21 30 3d 68 64 |2%+4...Fq2%!0=hd|
00001330 6c 25 3a 71 32 25 21 34 3d 69 63 25 2d 31 3a 71 |l%:q2%!4=ic%-1:q|
00001340 32 25 21 38 3d 30 3a 71 32 25 21 31 32 3d 30 3a |2%!8=0:q2%!12=0:|
00001350 c8 99 22 57 69 6d 70 5f 53 65 74 49 63 6f 6e 53 |.."Wimp_SetIconS|
00001360 74 61 74 65 22 2c 2c 71 32 25 0d 04 24 46 71 32 |tate",,q2%..$Fq2|
00001370 25 21 30 3d 68 64 6c 25 3a 71 32 25 21 34 3d 69 |%!0=hdl%:q2%!4=i|
00001380 63 25 2b 30 3a 71 32 25 21 38 3d 30 3a 71 32 25 |c%+0:q2%!8=0:q2%|
00001390 21 31 32 3d 30 3a c8 99 22 57 69 6d 70 5f 53 65 |!12=0:.."Wimp_Se|
000013a0 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 71 32 25 |tIconState",,q2%|
000013b0 0d 04 2e 05 e1 0d 04 38 04 0d 04 42 25 dd a4 76 |.......8...B%..v|
000013c0 61 6c 6f 72 65 5f 73 6c 69 64 65 72 28 68 64 6c |alore_slider(hdl|
000013d0 25 2c 69 63 25 2c 6d 6f 75 73 65 78 25 29 0d 04 |%,ic%,mousex%)..|
000013e0 4c 1a ea 20 49 25 2c 78 25 2c 6c 78 25 2c 41 25 |L.. I%,x%,lx%,A%|
000013f0 2c 41 31 25 2c 41 32 25 0d 04 56 2b 71 31 25 21 |,A1%,A2%..V+q1%!|
00001400 30 3d 68 64 6c 25 3a c8 99 22 57 69 6d 70 5f 47 |0=hdl%:.."Wimp_G|
00001410 65 74 57 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c |etWindowState",,|
00001420 71 31 25 0d 04 60 3e 71 32 25 21 30 3d 68 64 6c |q1%..`>q2%!0=hdl|
00001430 25 3a 71 32 25 21 34 3d 69 63 25 2d 31 3a c8 99 |%:q2%!4=ic%-1:..|
00001440 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 |"Wimp_GetIconSta|
00001450 74 65 22 2c 2c 71 32 25 3a 49 25 3d 71 32 25 2b |te",,q2%:I%=q2%+|
00001460 38 0d 04 6a 1f 6c 78 25 3d 49 25 21 38 2d 49 25 |8..j.lx%=I%!8-I%|
00001470 21 30 3a 78 25 3d 71 31 25 21 34 2b 49 25 21 30 |!0:x%=q1%!4+I%!0|
00001480 0d 04 74 2d 78 25 3d 6d 6f 75 73 65 78 25 2d 78 |..t-x%=mousex%-x|
00001490 25 3a 41 25 3d 78 25 2f 6c 78 25 2a 31 30 30 3a |%:A%=x%/lx%*100:|
000014a0 e7 20 41 25 3c 30 20 8c 20 41 25 3d 30 0d 04 7e |. A%<0 . A%=0..~|
000014b0 15 e7 20 41 25 3e 31 30 30 20 8c 20 41 25 3d 31 |.. A%>100 . A%=1|
000014c0 30 30 0d 04 88 1e f2 73 65 74 74 61 5f 73 6c 69 |00.....setta_sli|
000014d0 64 65 72 28 68 64 6c 25 2c 69 63 25 2c 41 25 29 |der(hdl%,ic%,A%)|
000014e0 0d 04 92 07 3d 41 25 0d 04 9c 04 0d 04 a6 0f dd |....=A%.........|
000014f0 f2 65 72 72 6f 72 28 41 24 29 0d 04 b0 08 ea 20 |.error(A$)..... |
00001500 49 25 0d 04 ba 07 ea 20 85 0d 04 c4 1f ee 20 85 |I%..... ...... .|
00001510 20 ea 20 c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 | . .. "Wimp_Clos|
00001520 65 44 6f 77 6e 22 3a e0 0d 04 ce 19 21 77 25 3d |eDown":.....!w%=|
00001530 9f 3a 24 28 77 25 2b 34 29 3d 41 24 2b bd 28 30 |.:$(w%+4)=A$+.(0|
00001540 29 0d 04 d8 36 c8 99 22 57 69 6d 70 5f 52 65 70 |)...6.."Wimp_Rep|
00001550 6f 72 74 45 72 72 6f 72 22 2c 77 25 2c 31 2c 22 |ortError",w%,1,"|
00001560 54 6f 70 56 69 65 77 65 72 20 6c 6f 61 64 65 72 |TopViewer loader|
00001570 22 20 b8 20 2c 49 25 0d 04 e2 22 e7 20 49 25 3d |" . ,I%...". I%=|
00001580 32 20 8c 20 c8 99 20 22 57 69 6d 70 5f 43 6c 6f |2 . .. "Wimp_Clo|
00001590 73 65 44 6f 77 6e 22 3a e0 0d 04 ec 07 f7 20 85 |seDown":...... .|
000015a0 0d 04 f6 05 e1 0d 05 00 04 0d 05 0a 13 dd a4 4c |...............L|
000015b0 6f 61 64 54 65 6d 70 6c 61 74 65 73 0d 05 14 3c |oadTemplates...<|
000015c0 f4 20 71 75 65 73 74 61 20 72 65 73 74 69 74 75 |. questa restitu|
000015d0 69 73 63 65 20 30 20 73 65 20 74 75 74 74 6f 20 |isce 0 se tutto |
000015e0 4f 4b 20 6f 20 2d 31 20 73 65 20 64 65 66 61 75 |OK o -1 se defau|
000015f0 6c 74 20 74 6f 20 55 4b 0d 05 1e 20 49 25 3d 30 |lt to UK... I%=0|
00001600 3a 74 65 6d 70 65 6e 64 25 3d 74 65 6d 70 62 75 |:tempend%=tempbu|
00001610 66 66 25 2b 34 30 39 36 0d 05 28 2f c8 99 22 4f |ff%+4096..(/.."O|
00001620 53 5f 42 79 74 65 22 2c 37 30 2c 31 32 37 20 b8 |S_Byte",70,127 .|
00001630 20 2c 49 25 3a 54 6f 70 4d 6f 64 43 6f 75 6e 74 | ,I%:TopModCount|
00001640 72 79 24 3d c3 49 25 0d 05 32 50 e7 20 a4 63 5f |ry$=.I%..2P. .c_|
00001650 65 5f 66 69 6c 65 28 22 3c 54 6f 70 56 69 65 77 |e_file("<TopView|
00001660 65 72 24 44 49 52 3e 2e 52 65 73 6f 75 72 63 65 |er$DIR>.Resource|
00001670 73 2e 22 2b 54 6f 70 4d 6f 64 43 6f 75 6e 74 72 |s."+TopModCountr|
00001680 79 24 2b 22 2e 53 74 61 72 74 54 65 6d 70 22 29 |y$+".StartTemp")|
00001690 20 3c 3d 20 30 20 8c 0d 05 3c 17 20 54 6f 70 4d | <= 0 ...<. TopM|
000016a0 6f 64 43 6f 75 6e 74 72 79 24 3d 22 31 22 0d 05 |odCountry$="1"..|
000016b0 46 05 cd 0d 05 50 53 c8 99 22 57 69 6d 70 5f 4f |F....PS.."Wimp_O|
000016c0 70 65 6e 54 65 6d 70 6c 61 74 65 22 2c 2c 22 3c |penTemplate",,"<|
000016d0 54 6f 70 56 69 65 77 65 72 24 44 49 52 3e 2e 52 |TopViewer$DIR>.R|
000016e0 65 73 6f 75 72 63 65 73 2e 22 2b 54 6f 70 4d 6f |esources."+TopMo|
000016f0 64 43 6f 75 6e 74 72 79 24 2b 22 2e 53 74 61 72 |dCountry$+".Star|
00001700 74 54 65 6d 70 22 0d 05 5a 28 77 5f 71 75 61 6e |tTemp"..Z(w_quan|
00001710 74 69 25 3d a4 41 64 64 54 65 6d 70 6c 61 74 65 |ti%=.AddTemplate|
00001720 28 22 44 69 6d 4d 65 6d 6f 72 69 61 22 29 0d 05 |("DimMemoria")..|
00001730 64 24 77 5f 65 72 72 6f 72 65 25 3d a4 41 64 64 |d$w_errore%=.Add|
00001740 54 65 6d 70 6c 61 74 65 28 22 45 72 72 6f 72 65 |Template("Errore|
00001750 22 29 0d 05 6e 1a c8 99 22 57 69 6d 70 5f 43 6c |")..n..."Wimp_Cl|
00001760 6f 73 65 54 65 6d 70 6c 61 74 65 22 0d 05 78 07 |oseTemplate"..x.|
00001770 3d 49 25 0d 05 82 04 0d 05 8c 12 dd a4 63 5f 65 |=I%..........c_e|
00001780 5f 66 69 6c 65 28 41 24 29 0d 05 96 13 ea 20 49 |_file(A$)..... I|
00001790 25 2c 64 78 25 2c 76 61 6c 75 65 25 0d 05 a0 1e |%,dx%,value%....|
000017a0 c8 99 22 4f 53 5f 46 69 6c 65 22 2c 35 2c 41 24 |.."OS_File",5,A$|
000017b0 20 b8 20 49 25 2c 2c 64 78 25 0d 05 aa 16 e7 20 | . I%,,dx%..... |
000017c0 49 25 3d 30 20 8c 20 76 61 6c 75 65 25 3d 20 30 |I%=0 . value%= 0|
000017d0 0d 05 b4 16 e7 20 49 25 3d 32 20 8c 20 76 61 6c |..... I%=2 . val|
000017e0 75 65 25 3d 2d 31 0d 05 be 22 e7 20 49 25 3d 31 |ue%=-1...". I%=1|
000017f0 20 8c 20 76 61 6c 75 65 25 3d 28 64 78 25 3c 3c | . value%=(dx%<<|
00001800 31 32 29 3e 3e 3e 32 30 0d 05 c8 0b 3d 76 61 6c |12)>>>20....=val|
00001810 75 65 25 0d 05 d2 04 0d 05 dc 15 dd a4 41 64 64 |ue%..........Add|
00001820 54 65 6d 70 6c 61 74 65 28 41 24 29 0d 05 e6 57 |Template(A$)...W|
00001830 ea 20 49 25 3a c8 99 22 57 69 6d 70 5f 4c 6f 61 |. I%:.."Wimp_Loa|
00001840 64 54 65 6d 70 6c 61 74 65 22 2c 2c 74 65 6d 70 |dTemplate",,temp|
00001850 7a 25 2c 74 65 6d 70 62 75 66 66 25 2c 74 65 6d |z%,tempbuff%,tem|
00001860 70 65 6e 64 25 2c 2d 31 2c 41 24 2b c4 31 32 2c |pend%,-1,A$+.12,|
00001870 bd 30 29 2c 30 20 b8 20 2c 2c 74 65 6d 70 62 75 |.0),0 . ,,tempbu|
00001880 66 66 25 0d 05 f0 36 74 65 6d 70 7a 25 21 36 34 |ff%...6tempz%!64|
00001890 3d 30 3a c8 99 22 57 69 6d 70 5f 43 72 65 61 74 |=0:.."Wimp_Creat|
000018a0 65 57 69 6e 64 6f 77 22 2c 2c 74 65 6d 70 7a 25 |eWindow",,tempz%|
000018b0 20 b8 20 49 25 3a 3d 49 25 0d 05 fa 04 0d 06 04 | . I%:=I%.......|
000018c0 1a dd f2 4f 76 49 63 54 78 74 28 68 64 6c 25 2c |...OvIcTxt(hdl%,|
000018d0 69 63 25 2c 41 24 29 0d 06 0e 39 ea 20 41 25 3a |ic%,A$)...9. A%:|
000018e0 71 31 25 21 30 3d 68 64 6c 25 3a 71 31 25 21 34 |q1%!0=hdl%:q1%!4|
000018f0 3d 69 63 25 3a c8 99 20 22 57 69 6d 70 5f 47 65 |=ic%:.. "Wimp_Ge|
00001900 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 71 31 25 |tIconState",,q1%|
00001910 0d 06 18 32 e7 20 28 71 31 25 21 32 34 20 80 20 |...2. (q1%!24 . |
00001920 28 31 3c 3c 38 29 29 3c 3e 30 20 8c 20 41 25 3d |(1<<8))<>0 . A%=|
00001930 71 31 25 21 32 38 3a 8b 3a 41 25 3d 71 31 25 2b |q1%!28:.:A%=q1%+|
00001940 32 38 0d 06 22 37 24 41 25 3d 41 24 3a 71 31 25 |28.."7$A%=A$:q1%|
00001950 21 38 3d 30 3a 71 31 25 21 31 32 3d 30 3a c8 99 |!8=0:q1%!12=0:..|
00001960 20 22 57 69 6d 70 5f 53 65 74 49 63 6f 6e 53 74 | "Wimp_SetIconSt|
00001970 61 74 65 22 2c 2c 71 31 25 0d 06 2c 05 e1 0d 06 |ate",,q1%..,....|
00001980 36 04 0d 06 40 2f dd f2 6f 70 65 6e 5f 77 69 6e |6...@/..open_win|
00001990 64 6f 77 28 71 25 29 3a c8 99 22 57 69 6d 70 5f |dow(q%):.."Wimp_|
000019a0 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c 71 25 3a |OpenWindow",,q%:|
000019b0 e1 0d 06 4a 04 0d 06 54 3e dd f2 63 6c 6f 73 65 |...J...T>..close|
000019c0 5f 77 69 6e 64 6f 77 28 68 64 6c 25 29 3a 21 71 |_window(hdl%):!q|
000019d0 31 25 3d 68 64 6c 25 3a c8 99 22 57 69 6d 70 5f |1%=hdl%:.."Wimp_|
000019e0 43 6c 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 71 31 |CloseWindow",,q1|
000019f0 25 3a e1 0d ff |%:...|
000019f5 
.