Home » Archimedes archive » Micro User » MU 1991-03.adf » PD-Stuff » Utilities/!Wiper/!RunImage
Utilities/!Wiper/!RunImage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Micro User » MU 1991-03.adf » PD-Stuff |
| Filename: | Utilities/!Wiper/!RunImage |
| Read OK: | ✔ |
| File size: | 0D25 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
D��< ��40�� � �Q��Z �� �BASIC -Quit @00009000,00009CD8 (� � � > !RunImage ș "OS_GetEnv" � com$ (params$="" 2I%=�com$," -quit ") <4� I% � params$=�com$,�com$," ",I%+�" -quit ")+1) F P� q% &100, errblk% &100 Z� t 4:$t="TASK" d n1ș "Wimp_Initialise",200,!t,"Directory Wiper" x � icons 511, sprites 2559 � � icons1 511, sprites1 2559 �6ș "OS_File",15,"<Obey$Dir>.Templates" � templates ��� templates<>0 ș "Wimp_OpenTemplate",,"<Obey$Dir>.Templates":ș "Wimp_LoadTemplate",,sprites,icons,icons+512,-1,"Info",0 � ,,i:ș "Wimp_CreateWindow",,sprites � info �� templates<>0 ș "Wimp_LoadTemplate",,sprites1,icons1,icons1+512,-1,"Wipe",0 � ,,i:ș "Wimp_CreateWindow",,sprites1 � wipe �,� templates<>0 � ș "Wimp_CloseTemplate" � �menus � �install � �?� � ș "Wimp_ReportError",�errblk(�,�$),1,"Directory Wiper" � �� �!ș "Wimp_Poll",0,q% � action% �Ȏ action% � � 2:ș "Wimp_OpenWindow",,q% !� 3:ș "Wimp_CloseWindow",,q% � 6 : �mouse(q%) " � 9 : �decodemenu(q%) ,� 17,18 : �message(q%) 6� @� � J T��mouse(q%) ^ mx%=q%!0 h my%=q%!4 r mb%=q%!8 | iw%=q%!12 � ii%=q%!16 ��� iw%=wipe � ii%=2 � mb%!2 � �"WIPE "+fname$+" ~CFR~V":�closewindow(wipe):ș "Wimp_ReportError",�errblk(�,"The directory and contents (including subdirectorys) have been deleted"),1,"Directory Wiper":� �� q%!12<>-2 � � � Ȏ mb% � �� &02 : menuicon%=q%!16 �H ș "Wimp_CreateMenu",,iconmenu%,mx%-iconmenu%!16/2-24,180 �� �� � ���decodemenu(q%) � Ȏ !q% � � � 1 :ș "Wimp_CloseDown":� �� �� ��message(q%) Ȏ q%!16 � & � 0 : ș "Wimp_CloseDown":� 0>� 3 : filename$=�string(q%+44):�deletefile(�string(q%+44)) :� D� N X��deletefile(file$) bfiletype=q%!40 l�� filetype<>4096 � filetype<>8192 � ș "Wimp_ReportError",�errblk(1,"This file does not appear to be a directory !"),1,"Directory Wiper":� v1� *****************HERE ! ******************* � �put(file$,icons1+32,59) �fname$=file$ ��closewindow(wipe) ��openwindow(wipe) �file$=file$ �� � � ��install �� sx%,sy%,sm%,px%,py% �sprite$ = "!Wiper" �4ș "Wimp_SpriteOp",40,,sprite$ � ,,,sx%,sy%,,sm% �9ș "OS_ReadModeVariable",sm%,4 � ,,px% : sx%=sx%<<px% �9ș "OS_ReadModeVariable",sm%,5 � ,,py% : sy%=sy%<<py% �-� �(sprite$)*16 > sx% � sx%=�(sprite$)*16 � !q%=-2 #q%!4=0:q%!8=0:q%!12=86:q%!16=86 q%!20=2 $(q%+24)=sprite$ "ș "Wimp_CreateIcon",,q% � !q% *� 4 > ��menus H� iconmenu% 1024 R$iconmenu% = "Wiper" \iconmenu%?12 = 7 ficonmenu%?13 = 2 piconmenu%?14 = 7 ziconmenu%?15 = 0 �#iconmenu%!16 = �"SPAMPER"*16+12 �iconmenu%!20 = 44 �iconmenu%!24 = 0 �m%=iconmenu%+28 � m%!0 = 0 �m%!4 = info �m%!8 = &07000001 �$(m%+12)=" Info" � m%=m%+24 �m%!0 = &80 � m%!4 = -1 �m%!8 = &07000001 �$(m%+12)=" Quit" � ݤstring(a%) $-� b$:b$="":ȕ ?a%<>0:b$+=�?a%:a%+=1:�:=b$ . 8ݤerrblk(err%,report$) B>!errblk%=err%:$(errblk%+4)=report$ :� +" at line "+STR$ERL L errblk%?(4+�$(errblk%+4))=0 V =errblk% `� �openwindow(handle%) jq%!0=handle% t ș"Wimp_GetWindowState",,q% ~ș"Wimp_OpenWindow",,q% �� �� �closewindow(handle%) �q%!0=handle% � ș"Wimp_GetWindowState",,q% � ș"Wimp_CloseWindow",,q% �� �(� �put(t$,a,l):� �(t$)>l � t$=�t$,l) �aa=a �� I=1 � � t$ �?aa=�(�t$,I,1)) � aa=aa+1 �� I ?aa=13 � �
00000000 44 10 9f e5 3c 20 9f e5 34 30 9f e5 04 00 12 e4 |D...< ..40......| 00000010 04 00 03 e4 04 10 51 e2 fb ff ff 5a 00 00 8f e2 |......Q....Z....| 00000020 05 00 00 ef 42 41 53 49 43 20 2d 51 75 69 74 20 |....BASIC -Quit | 00000030 40 30 30 30 30 39 30 30 30 2c 30 30 30 30 39 43 |@00009000,00009C| 00000040 44 38 00 00 d8 9c 00 00 28 8d 00 00 d8 0c 00 00 |D8......(.......| 00000050 0d 00 0a 11 f4 20 3e 20 21 52 75 6e 49 6d 61 67 |..... > !RunImag| 00000060 65 0d 00 14 04 0d 00 1e 19 c8 99 20 22 4f 53 5f |e.......... "OS_| 00000070 47 65 74 45 6e 76 22 20 b8 20 63 6f 6d 24 0d 00 |GetEnv" . com$..| 00000080 28 0e 70 61 72 61 6d 73 24 3d 22 22 0d 00 32 17 |(.params$=""..2.| 00000090 49 25 3d a7 63 6f 6d 24 2c 22 20 2d 71 75 69 74 |I%=.com$," -quit| 000000a0 20 22 29 0d 00 3c 34 e7 20 49 25 20 8c 20 70 61 | ")..<4. I% . pa| 000000b0 72 61 6d 73 24 3d c1 63 6f 6d 24 2c a7 63 6f 6d |rams$=.com$,.com| 000000c0 24 2c 22 20 22 2c 49 25 2b a9 22 20 2d 71 75 69 |$," ",I%+." -qui| 000000d0 74 20 22 29 2b 31 29 0d 00 46 04 0d 00 50 1b de |t ")+1)..F...P..| 000000e0 20 71 25 20 26 31 30 30 2c 20 65 72 72 62 6c 6b | q% &100, errblk| 000000f0 25 20 26 31 30 30 0d 00 5a 13 de 20 74 20 34 3a |% &100..Z.. t 4:| 00000100 24 74 3d 22 54 41 53 4b 22 0d 00 64 04 0d 00 6e |$t="TASK"..d...n| 00000110 31 c8 99 20 22 57 69 6d 70 5f 49 6e 69 74 69 61 |1.. "Wimp_Initia| 00000120 6c 69 73 65 22 2c 32 30 30 2c 21 74 2c 22 44 69 |lise",200,!t,"Di| 00000130 72 65 63 74 6f 72 79 20 57 69 70 65 72 22 0d 00 |rectory Wiper"..| 00000140 78 1d de 20 69 63 6f 6e 73 20 35 31 31 2c 20 73 |x.. icons 511, s| 00000150 70 72 69 74 65 73 20 32 35 35 39 0d 00 82 1f de |prites 2559.....| 00000160 20 69 63 6f 6e 73 31 20 35 31 31 2c 20 73 70 72 | icons1 511, spr| 00000170 69 74 65 73 31 20 32 35 35 39 0d 00 8c 36 c8 99 |ites1 2559...6..| 00000180 20 22 4f 53 5f 46 69 6c 65 22 2c 31 35 2c 22 3c | "OS_File",15,"<| 00000190 4f 62 65 79 24 44 69 72 3e 2e 54 65 6d 70 6c 61 |Obey$Dir>.Templa| 000001a0 74 65 73 22 20 b8 20 74 65 6d 70 6c 61 74 65 73 |tes" . templates| 000001b0 0d 00 96 aa e7 20 74 65 6d 70 6c 61 74 65 73 3c |..... templates<| 000001c0 3e 30 20 c8 99 20 22 57 69 6d 70 5f 4f 70 65 6e |>0 .. "Wimp_Open| 000001d0 54 65 6d 70 6c 61 74 65 22 2c 2c 22 3c 4f 62 65 |Template",,"<Obe| 000001e0 79 24 44 69 72 3e 2e 54 65 6d 70 6c 61 74 65 73 |y$Dir>.Templates| 000001f0 22 3a c8 99 20 22 57 69 6d 70 5f 4c 6f 61 64 54 |":.. "Wimp_LoadT| 00000200 65 6d 70 6c 61 74 65 22 2c 2c 73 70 72 69 74 65 |emplate",,sprite| 00000210 73 2c 69 63 6f 6e 73 2c 69 63 6f 6e 73 2b 35 31 |s,icons,icons+51| 00000220 32 2c 2d 31 2c 22 49 6e 66 6f 22 2c 30 20 b8 20 |2,-1,"Info",0 . | 00000230 2c 2c 69 3a c8 99 20 22 57 69 6d 70 5f 43 72 65 |,,i:.. "Wimp_Cre| 00000240 61 74 65 57 69 6e 64 6f 77 22 2c 2c 73 70 72 69 |ateWindow",,spri| 00000250 74 65 73 20 b8 20 69 6e 66 6f 0d 00 a0 7f e7 20 |tes . info..... | 00000260 74 65 6d 70 6c 61 74 65 73 3c 3e 30 20 c8 99 20 |templates<>0 .. | 00000270 22 57 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c 61 |"Wimp_LoadTempla| 00000280 74 65 22 2c 2c 73 70 72 69 74 65 73 31 2c 69 63 |te",,sprites1,ic| 00000290 6f 6e 73 31 2c 69 63 6f 6e 73 31 2b 35 31 32 2c |ons1,icons1+512,| 000002a0 2d 31 2c 22 57 69 70 65 22 2c 30 20 b8 20 2c 2c |-1,"Wipe",0 . ,,| 000002b0 69 3a c8 99 20 22 57 69 6d 70 5f 43 72 65 61 74 |i:.. "Wimp_Creat| 000002c0 65 57 69 6e 64 6f 77 22 2c 2c 73 70 72 69 74 65 |eWindow",,sprite| 000002d0 73 31 20 b8 20 77 69 70 65 0d 00 aa 2c e7 20 74 |s1 . wipe...,. t| 000002e0 65 6d 70 6c 61 74 65 73 3c 3e 30 20 8c 20 c8 99 |emplates<>0 . ..| 000002f0 20 22 57 69 6d 70 5f 43 6c 6f 73 65 54 65 6d 70 | "Wimp_CloseTemp| 00000300 6c 61 74 65 22 0d 00 b4 0a f2 6d 65 6e 75 73 0d |late".....menus.| 00000310 00 be 0c f2 69 6e 73 74 61 6c 6c 0d 00 c8 04 0d |....install.....| 00000320 00 d2 3f ee 20 85 20 c8 99 20 22 57 69 6d 70 5f |..?. . .. "Wimp_| 00000330 52 65 70 6f 72 74 45 72 72 6f 72 22 2c a4 65 72 |ReportError",.er| 00000340 72 62 6c 6b 28 9f 2c f6 24 29 2c 31 2c 22 44 69 |rblk(.,.$),1,"Di| 00000350 72 65 63 74 6f 72 79 20 57 69 70 65 72 22 0d 00 |rectory Wiper"..| 00000360 dc 04 0d 00 e6 05 f5 0d 00 f0 21 c8 99 20 22 57 |..........!.. "W| 00000370 69 6d 70 5f 50 6f 6c 6c 22 2c 30 2c 71 25 20 b8 |imp_Poll",0,q% .| 00000380 20 61 63 74 69 6f 6e 25 0d 00 fa 10 c8 8e 20 61 | action%...... a| 00000390 63 74 69 6f 6e 25 20 ca 0d 01 04 20 c9 20 32 3a |ction% .... . 2:| 000003a0 c8 99 20 22 57 69 6d 70 5f 4f 70 65 6e 57 69 6e |.. "Wimp_OpenWin| 000003b0 64 6f 77 22 2c 2c 71 25 0d 01 0e 21 c9 20 33 3a |dow",,q%...!. 3:| 000003c0 c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 65 57 69 |.. "Wimp_CloseWi| 000003d0 6e 64 6f 77 22 2c 2c 71 25 0d 01 18 18 c9 20 20 |ndow",,q%..... | 000003e0 36 20 20 20 20 3a 20 f2 6d 6f 75 73 65 28 71 25 |6 : .mouse(q%| 000003f0 29 0d 01 22 1d c9 20 20 39 20 20 20 20 3a 20 f2 |)..".. 9 : .| 00000400 64 65 63 6f 64 65 6d 65 6e 75 28 71 25 29 0d 01 |decodemenu(q%)..| 00000410 2c 1a c9 20 31 37 2c 31 38 20 3a 20 f2 6d 65 73 |,.. 17,18 : .mes| 00000420 73 61 67 65 28 71 25 29 0d 01 36 05 cb 0d 01 40 |sage(q%)..6....@| 00000430 07 fd 20 a3 0d 01 4a 04 0d 01 54 0f dd f2 6d 6f |.. ...J...T...mo| 00000440 75 73 65 28 71 25 29 0d 01 5e 0c 6d 78 25 3d 71 |use(q%)..^.mx%=q| 00000450 25 21 30 0d 01 68 0c 6d 79 25 3d 71 25 21 34 0d |%!0..h.my%=q%!4.| 00000460 01 72 0c 6d 62 25 3d 71 25 21 38 0d 01 7c 0d 69 |.r.mb%=q%!8..|.i| 00000470 77 25 3d 71 25 21 31 32 0d 01 86 0d 69 69 25 3d |w%=q%!12....ii%=| 00000480 71 25 21 31 36 0d 01 8b cd e7 20 69 77 25 3d 77 |q%!16..... iw%=w| 00000490 69 70 65 20 80 20 69 69 25 3d 32 20 80 20 6d 62 |ipe . ii%=2 . mb| 000004a0 25 21 32 20 8c 20 ff 22 57 49 50 45 20 22 2b 66 |%!2 . ."WIPE "+f| 000004b0 6e 61 6d 65 24 2b 22 20 7e 43 46 52 7e 56 22 3a |name$+" ~CFR~V":| 000004c0 f2 63 6c 6f 73 65 77 69 6e 64 6f 77 28 77 69 70 |.closewindow(wip| 000004d0 65 29 3a c8 99 20 22 57 69 6d 70 5f 52 65 70 6f |e):.. "Wimp_Repo| 000004e0 72 74 45 72 72 6f 72 22 2c a4 65 72 72 62 6c 6b |rtError",.errblk| 000004f0 28 9f 2c 22 54 68 65 20 64 69 72 65 63 74 6f 72 |(.,"The director| 00000500 79 20 61 6e 64 20 63 6f 6e 74 65 6e 74 73 20 28 |y and contents (| 00000510 69 6e 63 6c 75 64 69 6e 67 20 73 75 62 64 69 72 |including subdir| 00000520 65 63 74 6f 72 79 73 29 20 68 61 76 65 20 62 65 |ectorys) have be| 00000530 65 6e 20 64 65 6c 65 74 65 64 22 29 2c 31 2c 22 |en deleted"),1,"| 00000540 44 69 72 65 63 74 6f 72 79 20 57 69 70 65 72 22 |Directory Wiper"| 00000550 3a e1 0d 01 90 13 e7 20 71 25 21 31 32 3c 3e 2d |:...... q%!12<>-| 00000560 32 20 8c 20 e1 0d 01 9a 0c c8 8e 20 6d 62 25 20 |2 . ....... mb% | 00000570 ca 0d 01 a4 1b c9 20 26 30 32 20 3a 20 6d 65 6e |...... &02 : men| 00000580 75 69 63 6f 6e 25 3d 71 25 21 31 36 0d 01 ae 48 |uicon%=q%!16...H| 00000590 20 20 20 20 20 20 20 20 20 20 20 c8 99 20 22 57 | .. "W| 000005a0 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c |imp_CreateMenu",| 000005b0 2c 69 63 6f 6e 6d 65 6e 75 25 2c 6d 78 25 2d 69 |,iconmenu%,mx%-i| 000005c0 63 6f 6e 6d 65 6e 75 25 21 31 36 2f 32 2d 32 34 |conmenu%!16/2-24| 000005d0 2c 31 38 30 0d 01 b8 05 cb 0d 01 c2 05 e1 0d 01 |,180............| 000005e0 cc 04 0d 01 d6 14 dd f2 64 65 63 6f 64 65 6d 65 |........decodeme| 000005f0 6e 75 28 71 25 29 0d 01 e0 0c c8 8e 20 21 71 25 |nu(q%)...... !q%| 00000600 20 ca 0d 01 ea 1e c9 20 31 20 3a c8 99 20 22 57 | ...... 1 :.. "W| 00000610 69 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e 22 3a e0 |imp_CloseDown":.| 00000620 0d 01 f4 05 cb 0d 01 fe 05 e1 0d 02 08 04 0d 02 |................| 00000630 12 11 dd f2 6d 65 73 73 61 67 65 28 71 25 29 0d |....message(q%).| 00000640 02 1c 0e c8 8e 20 71 25 21 31 36 20 ca 0d 02 26 |..... q%!16 ...&| 00000650 1f c9 20 30 20 3a 20 c8 99 20 22 57 69 6d 70 5f |.. 0 : .. "Wimp_| 00000660 43 6c 6f 73 65 44 6f 77 6e 22 3a e0 0d 02 30 3e |CloseDown":...0>| 00000670 c9 20 33 20 3a 20 66 69 6c 65 6e 61 6d 65 24 3d |. 3 : filename$=| 00000680 a4 73 74 72 69 6e 67 28 71 25 2b 34 34 29 3a f2 |.string(q%+44):.| 00000690 64 65 6c 65 74 65 66 69 6c 65 28 a4 73 74 72 69 |deletefile(.stri| 000006a0 6e 67 28 71 25 2b 34 34 29 29 0d 02 3a 05 cb 0d |ng(q%+44))..:...| 000006b0 02 44 05 e1 0d 02 4e 04 0d 02 58 17 dd f2 64 65 |.D....N...X...de| 000006c0 6c 65 74 65 66 69 6c 65 28 66 69 6c 65 24 29 0d |letefile(file$).| 000006d0 02 62 12 66 69 6c 65 74 79 70 65 3d 71 25 21 34 |.b.filetype=q%!4| 000006e0 30 0d 02 6c 8e e7 20 66 69 6c 65 74 79 70 65 3c |0..l.. filetype<| 000006f0 3e 34 30 39 36 20 80 20 66 69 6c 65 74 79 70 65 |>4096 . filetype| 00000700 3c 3e 38 31 39 32 20 8c 20 c8 99 20 22 57 69 6d |<>8192 . .. "Wim| 00000710 70 5f 52 65 70 6f 72 74 45 72 72 6f 72 22 2c a4 |p_ReportError",.| 00000720 65 72 72 62 6c 6b 28 31 2c 22 54 68 69 73 20 66 |errblk(1,"This f| 00000730 69 6c 65 20 64 6f 65 73 20 6e 6f 74 20 61 70 70 |ile does not app| 00000740 65 61 72 20 74 6f 20 62 65 20 61 20 64 69 72 65 |ear to be a dire| 00000750 63 74 6f 72 79 20 21 22 29 2c 31 2c 22 44 69 72 |ctory !"),1,"Dir| 00000760 65 63 74 6f 72 79 20 57 69 70 65 72 22 3a e1 0d |ectory Wiper":..| 00000770 02 76 31 f4 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |.v1. ***********| 00000780 2a 2a 2a 2a 2a 2a 48 45 52 45 20 21 20 2a 2a 2a |******HERE ! ***| 00000790 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************| 000007a0 0d 02 80 1d 20 f2 70 75 74 28 66 69 6c 65 24 2c |.... .put(file$,| 000007b0 69 63 6f 6e 73 31 2b 33 32 2c 35 39 29 0d 02 81 |icons1+32,59)...| 000007c0 10 66 6e 61 6d 65 24 3d 66 69 6c 65 24 0d 02 85 |.fname$=file$...| 000007d0 16 f2 63 6c 6f 73 65 77 69 6e 64 6f 77 28 77 69 |..closewindow(wi| 000007e0 70 65 29 0d 02 8a 15 f2 6f 70 65 6e 77 69 6e 64 |pe).....openwind| 000007f0 6f 77 28 77 69 70 65 29 0d 02 94 0f 66 69 6c 65 |ow(wipe)....file| 00000800 24 3d 66 69 6c 65 24 0d 02 9e 05 e1 0d 02 a8 04 |$=file$.........| 00000810 0d 02 b2 0d dd f2 69 6e 73 74 61 6c 6c 0d 02 bc |......install...| 00000820 19 ea 20 73 78 25 2c 73 79 25 2c 73 6d 25 2c 70 |.. sx%,sy%,sm%,p| 00000830 78 25 2c 70 79 25 0d 02 c6 16 73 70 72 69 74 65 |x%,py%....sprite| 00000840 24 20 3d 20 22 21 57 69 70 65 72 22 0d 02 d0 34 |$ = "!Wiper"...4| 00000850 c8 99 20 22 57 69 6d 70 5f 53 70 72 69 74 65 4f |.. "Wimp_SpriteO| 00000860 70 22 2c 34 30 2c 2c 73 70 72 69 74 65 24 20 b8 |p",40,,sprite$ .| 00000870 20 2c 2c 2c 73 78 25 2c 73 79 25 2c 2c 73 6d 25 | ,,,sx%,sy%,,sm%| 00000880 0d 02 da 39 c8 99 20 22 4f 53 5f 52 65 61 64 4d |...9.. "OS_ReadM| 00000890 6f 64 65 56 61 72 69 61 62 6c 65 22 2c 73 6d 25 |odeVariable",sm%| 000008a0 2c 34 20 b8 20 2c 2c 70 78 25 20 3a 20 73 78 25 |,4 . ,,px% : sx%| 000008b0 3d 73 78 25 3c 3c 70 78 25 0d 02 e4 39 c8 99 20 |=sx%<<px%...9.. | 000008c0 22 4f 53 5f 52 65 61 64 4d 6f 64 65 56 61 72 69 |"OS_ReadModeVari| 000008d0 61 62 6c 65 22 2c 73 6d 25 2c 35 20 b8 20 2c 2c |able",sm%,5 . ,,| 000008e0 70 79 25 20 3a 20 73 79 25 3d 73 79 25 3c 3c 70 |py% : sy%=sy%<<p| 000008f0 79 25 0d 02 ee 2d e7 20 a9 28 73 70 72 69 74 65 |y%...-. .(sprite| 00000900 24 29 2a 31 36 20 3e 20 73 78 25 20 8c 20 73 78 |$)*16 > sx% . sx| 00000910 25 3d a9 28 73 70 72 69 74 65 24 29 2a 31 36 0d |%=.(sprite$)*16.| 00000920 02 f8 0a 21 71 25 3d 2d 32 0d 03 02 23 71 25 21 |...!q%=-2...#q%!| 00000930 34 3d 30 3a 71 25 21 38 3d 30 3a 71 25 21 31 32 |4=0:q%!8=0:q%!12| 00000940 3d 38 36 3a 71 25 21 31 36 3d 38 36 0d 03 0c 0b |=86:q%!16=86....| 00000950 71 25 21 32 30 3d 32 0d 03 16 14 24 28 71 25 2b |q%!20=2....$(q%+| 00000960 32 34 29 3d 73 70 72 69 74 65 24 0d 03 20 22 c8 |24)=sprite$.. ".| 00000970 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 49 63 |. "Wimp_CreateIc| 00000980 6f 6e 22 2c 2c 71 25 20 b8 20 21 71 25 0d 03 2a |on",,q% . !q%..*| 00000990 05 e1 0d 03 34 04 0d 03 3e 0b dd f2 6d 65 6e 75 |....4...>...menu| 000009a0 73 0d 03 48 14 de 20 69 63 6f 6e 6d 65 6e 75 25 |s..H.. iconmenu%| 000009b0 20 31 30 32 34 0d 03 52 18 24 69 63 6f 6e 6d 65 | 1024..R.$iconme| 000009c0 6e 75 25 20 3d 20 22 57 69 70 65 72 22 0d 03 5c |nu% = "Wiper"..\| 000009d0 14 69 63 6f 6e 6d 65 6e 75 25 3f 31 32 20 3d 20 |.iconmenu%?12 = | 000009e0 37 0d 03 66 14 69 63 6f 6e 6d 65 6e 75 25 3f 31 |7..f.iconmenu%?1| 000009f0 33 20 3d 20 32 0d 03 70 14 69 63 6f 6e 6d 65 6e |3 = 2..p.iconmen| 00000a00 75 25 3f 31 34 20 3d 20 37 0d 03 7a 14 69 63 6f |u%?14 = 7..z.ico| 00000a10 6e 6d 65 6e 75 25 3f 31 35 20 3d 20 30 0d 03 84 |nmenu%?15 = 0...| 00000a20 23 69 63 6f 6e 6d 65 6e 75 25 21 31 36 20 3d 20 |#iconmenu%!16 = | 00000a30 a9 22 53 50 41 4d 50 45 52 22 2a 31 36 2b 31 32 |."SPAMPER"*16+12| 00000a40 0d 03 8e 15 69 63 6f 6e 6d 65 6e 75 25 21 32 30 |....iconmenu%!20| 00000a50 20 3d 20 34 34 0d 03 98 14 69 63 6f 6e 6d 65 6e | = 44....iconmen| 00000a60 75 25 21 32 34 20 3d 20 30 0d 03 a2 13 6d 25 3d |u%!24 = 0....m%=| 00000a70 69 63 6f 6e 6d 65 6e 75 25 2b 32 38 0d 03 ac 0c |iconmenu%+28....| 00000a80 6d 25 21 30 20 3d 20 30 0d 03 b6 0f 6d 25 21 34 |m%!0 = 0....m%!4| 00000a90 20 3d 20 69 6e 66 6f 0d 03 c0 14 6d 25 21 38 20 | = info....m%!8 | 00000aa0 3d 20 26 30 37 30 30 30 30 30 31 0d 03 ca 14 24 |= &07000001....$| 00000ab0 28 6d 25 2b 31 32 29 3d 22 20 49 6e 66 6f 22 0d |(m%+12)=" Info".| 00000ac0 03 d4 0c 6d 25 3d 6d 25 2b 32 34 0d 03 de 0e 6d |...m%=m%+24....m| 00000ad0 25 21 30 20 3d 20 26 38 30 0d 03 e8 0d 6d 25 21 |%!0 = &80....m%!| 00000ae0 34 20 3d 20 2d 31 0d 03 f2 14 6d 25 21 38 20 3d |4 = -1....m%!8 =| 00000af0 20 26 30 37 30 30 30 30 30 31 0d 03 fc 14 24 28 | &07000001....$(| 00000b00 6d 25 2b 31 32 29 3d 22 20 51 75 69 74 22 0d 04 |m%+12)=" Quit"..| 00000b10 06 05 e1 0d 04 10 04 0d 04 1a 10 dd a4 73 74 72 |.............str| 00000b20 69 6e 67 28 61 25 29 0d 04 24 2d ea 20 62 24 3a |ing(a%)..$-. b$:| 00000b30 62 24 3d 22 22 3a c8 95 20 3f 61 25 3c 3e 30 3a |b$="":.. ?a%<>0:| 00000b40 62 24 2b 3d bd 3f 61 25 3a 61 25 2b 3d 31 3a ce |b$+=.?a%:a%+=1:.| 00000b50 3a 3d 62 24 0d 04 2e 04 0d 04 38 1a dd a4 65 72 |:=b$......8...er| 00000b60 72 62 6c 6b 28 65 72 72 25 2c 72 65 70 6f 72 74 |rblk(err%,report| 00000b70 24 29 0d 04 42 3e 21 65 72 72 62 6c 6b 25 3d 65 |$)..B>!errblk%=e| 00000b80 72 72 25 3a 24 28 65 72 72 62 6c 6b 25 2b 34 29 |rr%:$(errblk%+4)| 00000b90 3d 72 65 70 6f 72 74 24 20 3a f4 20 2b 22 20 61 |=report$ :. +" a| 00000ba0 74 20 6c 69 6e 65 20 22 2b 53 54 52 24 45 52 4c |t line "+STR$ERL| 00000bb0 0d 04 4c 1f 65 72 72 62 6c 6b 25 3f 28 34 2b a9 |..L.errblk%?(4+.| 00000bc0 24 28 65 72 72 62 6c 6b 25 2b 34 29 29 3d 30 0d |$(errblk%+4))=0.| 00000bd0 04 56 0c 3d 65 72 72 62 6c 6b 25 0d 04 60 1a dd |.V.=errblk%..`..| 00000be0 20 f2 6f 70 65 6e 77 69 6e 64 6f 77 28 68 61 6e | .openwindow(han| 00000bf0 64 6c 65 25 29 0d 04 6a 10 71 25 21 30 3d 68 61 |dle%)..j.q%!0=ha| 00000c00 6e 64 6c 65 25 0d 04 74 1f c8 99 22 57 69 6d 70 |ndle%..t..."Wimp| 00000c10 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 65 22 |_GetWindowState"| 00000c20 2c 2c 71 25 0d 04 7e 1b c8 99 22 57 69 6d 70 5f |,,q%..~..."Wimp_| 00000c30 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c 71 25 0d |OpenWindow",,q%.| 00000c40 04 88 05 e1 0d 04 92 1b dd 20 f2 63 6c 6f 73 65 |......... .close| 00000c50 77 69 6e 64 6f 77 28 68 61 6e 64 6c 65 25 29 0d |window(handle%).| 00000c60 04 9c 10 71 25 21 30 3d 68 61 6e 64 6c 65 25 0d |...q%!0=handle%.| 00000c70 04 a6 1f c8 99 22 57 69 6d 70 5f 47 65 74 57 69 |....."Wimp_GetWi| 00000c80 6e 64 6f 77 53 74 61 74 65 22 2c 2c 71 25 0d 04 |ndowState",,q%..| 00000c90 b0 1c c8 99 22 57 69 6d 70 5f 43 6c 6f 73 65 57 |...."Wimp_CloseW| 00000ca0 69 6e 64 6f 77 22 2c 2c 71 25 0d 04 ba 05 e1 0d |indow",,q%......| 00000cb0 04 c4 28 dd 20 f2 70 75 74 28 74 24 2c 61 2c 6c |..(. .put(t$,a,l| 00000cc0 29 3a e7 20 a9 28 74 24 29 3e 6c 20 8c 20 74 24 |):. .(t$)>l . t$| 00000cd0 3d c0 74 24 2c 6c 29 0d 04 ce 08 61 61 3d 61 0d |=.t$,l)....aa=a.| 00000ce0 04 d8 10 e3 20 49 3d 31 20 b8 20 a9 20 74 24 0d |.... I=1 . . t$.| 00000cf0 04 e2 13 3f 61 61 3d 97 28 c1 74 24 2c 49 2c 31 |...?aa=.(.t$,I,1| 00000d00 29 29 0d 04 ec 0b 61 61 3d 61 61 2b 31 0d 04 f6 |))....aa=aa+1...| 00000d10 07 ed 20 49 0d 05 00 0a 3f 61 61 3d 31 33 0d 05 |.. I....?aa=13..| 00000d20 0a 05 e1 0d ff |.....| 00000d25
.