RTR/Rambles/!TextConv/!RunImage

Home » Archimedes archive » Acorn User » AU 1998-10.adf » Regulars » RTR/Rambles/!TextConv/!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 » Acorn User » AU 1998-10.adf » Regulars
Filename:	RTR/Rambles/!TextConv/!RunImage
Read OK:	✔
File size:	0B4E bytes
Load address:	0000
Exec address:	0000

File contents

   10REM > !TextConv.!RunImage
   20REM Version 1.0 By Mike Cook - Musbury Consultants
   30ON ERROR PROCerrorbox
   40DIM taskid%4:$taskid%="TASK"
   50SYS "Wimp_Initialise",200,!taskid%,"AppleConvert" TO version%,taskhand%
   60DIM q% &300,temp% 256,buffers% 512,menu% 128
   70SYS "Wimp_OpenTemplate",,"<Tc$Dir>.Templates"
   80ON ERROR SYS "Wimp_CloseTemplate":PROCerrorbox
   90SYS "Wimp_LoadTemplate",,q%,temp%,temp%+256,-1,"Info",0
  100SYS "Wimp_CreateWindow",,q% TO info%
  110SYS "Wimp_CloseTemplate"
  120ref%=0
  130ON ERROR PROCerrorbox
  140PROCsetupmenu
  150basicon%=FNicon
  160
  170REPEAT
  180  SYS "Wimp_Poll",NOT((3<<17)OR(1<<9)OR(1<<6)OR(1<<1)),q% TO A%
  190  CASE A% OF
  200  WHEN 1:SYS "Wimp_RedrawWindow",,q%
  210  WHEN 6:IF q%!12=-2 AND q%!16=basicon% THEN PROC_do_click(q%)
  220  WHEN 9:IF !q%=1 THEN PROCdie
  230  WHEN 17,18:PROCreceive(q%)
  240  ENDCASE
  250UNTIL FALSE
  260
  270DEF PROC_do_click(q%)
  280IF q%!8=2 THEN SYS"Wimp_CreateMenu",,menu%,q%!0-64,190
  290ENDPROC
  300
  310DEFFNicon
  320q%!0=-1
  330q%!4=0
  340q%!8=0 : REM Y DIRECTION
  350q%!12=52 : REM X DIRECTION
  360q%!16=96
  370q%!20=&2002
  380$(q%+24)="!TextConv"
  390SYS "Wimp_CreateIcon",,q% TO icon%
  400=icon%
  410
  420DEFPROCsetupmenu
  430LOCAL m%
  440$menu%="TextConvert"
  450menu%?12=7
  460menu%?13=2
  470menu%?14=7
  480menu%?15=0
  490menu%!16=128
  500menu%!20=40
  510menu%!24=0
  520m%=menu%+28
  530m%!0=0
  540m%!4=info%
  550m%!8=(7<<24)OR %11001
  560$(m%+12)="Info"
  570
  580m%+=24
  590m%!0=&80
  600m%!4=0
  610m%!8=(7<<24)OR %11001
  620$(m%+12)="Quit"
  630ENDPROC
  640
  650DEF PROCreceive(q%)
  660LOCAL A%
  670CASE q%!16 OF
  680WHEN 0:PROCdie
  690WHEN 3:IF q%!20=-2 AND q%!24=basicon% AND q%!40=&FFF THEN
  700        IF (q%!40=&000) THEN FT%=&AFF ELSE FT%=0
  710        n$=FNsget(q%+44)
  720        PROC_Dack
  730        PROC_TC
  740        REM OSCLI("SETTYPE "+n$+" "+STR$~(FT%))
  750        ref%=0
  760       ENDIF
  770WHEN &502:CASE TRUE OF
  780       WHEN q%!32=-2 AND q%!36=basicon%:mes$="This is the Text Convert icon.|MDrag a Text file here to convert it from Mac to Arc"
  790       OTHERWISE:mes$=""
  800       ENDCASE
  810    IF mes$<>"" THEN
  820    q%!12=q%!8
  830    $(q%+20)=mes$+CHR$0
  840    q%!0=(20+LENmes$+4)AND NOT 3
  850    q%!16=&503
  860    SYS "Wimp_SendMessage",18,q%,q%!4
  870ENDCASE
  880ENDPROC
  890
  900DEF PROC_Dack
  910sendth%=q%!4
  920myref%=q%!8
  930SYS "Wimp_GetPointerInfo",,q%+8
  940q%!28=q%!8
  950q%!32=q%!12
  960q%!0=(44+LENn$+4)AND NOT 3
  970q%!12=myref%
  980q%!16=4
  990q%!36=-1
 1000q%!40=&FF9
 1010$(q%+44)=n$+CHR$0
 1020SYS "Wimp_SendMessage",17,q%,sendth%
 1030ENDIF
 1040ENDPROC
 1050
 1060DEF PROCerrorbox
 1070SYS "Wimp_DragBox",,-1
 1080!buffers%=ERR:$(buffers%+4)=REPORT$+" at line "+STR$ERL+CHR$0
 1090SYS "Wimp_ReportError",buffers%,1,"TextConvert"
 1100PROCdie
 1110ENDPROC
 1120
 1130DEFPROCdie
 1140SYS "Wimp_CloseDown",taskhand%,!taskid%
 1150END
 1160ENDPROC
 1170
 1180DEFFNsget(x%)
 1190LOCAL x$
 1200WHILE ?x% x$+=CHR$(?x%):x%+=1:ENDWHILE
 1210=x$
 1220
 1230
 1240DEF PROC_TC
 1250REM Strips out the apostrophes and quotes and puts CR LF in for CR
 1260IF MID$(n$,LEN(n$)-1,1)<>"." THEN c$=LEFT$(n$,LEN(n$)-1) ELSE c$=n$+"T"
 1270FO%=OPENOUT(c$)
 1280FI%=OPENIN(n$)
 1290REPEAT
 1300C%=BGET#FI%
 1310IF C%=&D5 THEN C%=&27
 1311IF C%=&D3 THEN C%=&22
 1312IF C%=&D2 THEN C%=&22
 1313IF C%=&0D THEN C%=&0A
 1320BPUT#FO%,C%
 1330UNTIL EOF#FI%
 1340CLOSE#FO%
 1350CLOSE#FI%
 1351OSCLI("DELETE "+n$)
 1352OSCLI("RENAME "+c$+" "+n$)
 1360OSCLI("SETTYPE "+n$+" &FFF")
 1361ENDPROC


� > !TextConv.!RunImage
4� Version 1.0 By Mike Cook - Musbury Consultants
� � �errorbox
(� taskid%4:$taskid%="TASK"
2Iș "Wimp_Initialise",200,!taskid%,"AppleConvert" � version%,taskhand%
<.� q% &300,temp% 256,buffers% 512,menu% 128
F0ș "Wimp_OpenTemplate",,"<Tc$Dir>.Templates"
P)� � ș "Wimp_CloseTemplate":�errorbox
Z:ș "Wimp_LoadTemplate",,q%,temp%,temp%+256,-1,"Info",0
d&ș "Wimp_CreateWindow",,q% � info%
nș "Wimp_CloseTemplate"
x
ref%=0
�� � �errorbox
��setupmenu
�basicon%=�icon
�
��
�<  ș "Wimp_Poll",�((3<<17)�(1<<9)�(1<<6)�(1<<1)),q% � A%
�
  Ȏ A% �
�$  � 1:ș "Wimp_RedrawWindow",,q%
�6  � 6:� q%!12=-2 � q%!16=basicon% � �_do_click(q%)
�  � 9:� !q%=1 � �die
�  � 17,18:�receive(q%)
�  �
�� �

� �_do_click(q%)
5� q%!8=2 � ș"Wimp_CreateMenu",,menu%,q%!0-64,190
"�
,
6
ݤicon
@q%!0=-1
J
q%!4=0
Tq%!8=0 : � Y DIRECTION
^q%!12=52 : � X DIRECTION
hq%!16=96
rq%!20=&2002
|$(q%+24)="!TextConv"
�$ș "Wimp_CreateIcon",,q% � icon%
�
=icon%
�
���setupmenu
�� m%
�$menu%="TextConvert"
�menu%?12=7
�menu%?13=2
�menu%?14=7
�menu%?15=0
�menu%!16=128
�menu%!20=40
�menu%!24=0
m%=menu%+28

m%!0=0
m%!4=info%
&m%!8=(7<<24)� %11001
0$(m%+12)="Info"
:
D
m%+=24
Nm%!0=&80
X
m%!4=0
bm%!8=(7<<24)� %11001
l$(m%+12)="Quit"
v�
�
�� �receive(q%)
�� A%
�Ȏ q%!16 �
�� 0:�die
�2� 3:� q%!20=-2 � q%!24=basicon% � q%!40=&FFF �
�-        � (q%!40=&000) � FT%=&AFF � FT%=0
�        n$=�sget(q%+44)
�        �_Dack
�        �_TC
�1        � OSCLI("SETTYPE "+n$+" "+STR$~(FT%))
�        ref%=0
�       �
� &502:Ȏ � �
�       � q%!32=-2 � q%!36=basicon%:mes$="This is the Text Convert icon.|MDrag a Text file here to convert it from Mac to Arc"
       :mes$=""
        �
*    � mes$<>"" �
4    q%!12=q%!8
>    $(q%+20)=mes$+�0
H    q%!0=(20+�mes$+4)� � 3
R    q%!16=&503
\(    ș "Wimp_SendMessage",18,q%,q%!4
f�
p�
z
�� �_Dack
�sendth%=q%!4
�myref%=q%!8
�"ș "Wimp_GetPointerInfo",,q%+8
�q%!28=q%!8
�q%!32=q%!12
�q%!0=(44+�n$+4)� � 3
�q%!12=myref%
�q%!16=4
�q%!36=-1
�q%!40=&FF9
�$(q%+44)=n$+�0
�'ș "Wimp_SendMessage",17,q%,sendth%
�
�

$� �errorbox
.ș "Wimp_DragBox",,-1
82!buffers%=�:$(buffers%+4)=�$+" at line "+Þ+�0
B2ș "Wimp_ReportError",buffers%,1,"TextConvert"
L�die
V�
`
j	��die
t*ș "Wimp_CloseDown",taskhand%,!taskid%
~�
��
�
�ݤsget(x%)
�� x$
�ȕ ?x% x$+=�(?x%):x%+=1:�
�=x$
�
�
�
� �_TC
�D� Strips out the apostrophes and quotes and puts CR LF in for CR
�7� �n$,�(n$)-1,1)<>"." � c$=�n$,�(n$)-1) � c$=n$+"T"
�
FO%=�(c$)

FI%=�(n$)

�
C%=�#FI%
� C%=&D5 � C%=&27
� C%=&D3 � C%=&22
 � C%=&D2 � C%=&22
!� C%=&0D � C%=&0A
(�#FO%,C%
2� �#FI%
<	�#FO%
F	�#FI%
G�("DELETE "+n$)
H�("RENAME "+c$+" "+n$)
P�("SETTYPE "+n$+" &FFF")
Q�
�

00000000  0d 00 0a 1b f4 20 3e 20  21 54 65 78 74 43 6f 6e  |..... > !TextCon|
00000010  76 2e 21 52 75 6e 49 6d  61 67 65 0d 00 14 34 f4  |v.!RunImage...4.|
00000020  20 56 65 72 73 69 6f 6e  20 31 2e 30 20 42 79 20  | Version 1.0 By |
00000030  4d 69 6b 65 20 43 6f 6f  6b 20 2d 20 4d 75 73 62  |Mike Cook - Musb|
00000040  75 72 79 20 43 6f 6e 73  75 6c 74 61 6e 74 73 0d  |ury Consultants.|
00000050  00 1e 11 ee 20 85 20 f2  65 72 72 6f 72 62 6f 78  |.... . .errorbox|
00000060  0d 00 28 1e de 20 74 61  73 6b 69 64 25 34 3a 24  |..(.. taskid%4:$|
00000070  74 61 73 6b 69 64 25 3d  22 54 41 53 4b 22 0d 00  |taskid%="TASK"..|
00000080  32 49 c8 99 20 22 57 69  6d 70 5f 49 6e 69 74 69  |2I.. "Wimp_Initi|
00000090  61 6c 69 73 65 22 2c 32  30 30 2c 21 74 61 73 6b  |alise",200,!task|
000000a0  69 64 25 2c 22 41 70 70  6c 65 43 6f 6e 76 65 72  |id%,"AppleConver|
000000b0  74 22 20 b8 20 76 65 72  73 69 6f 6e 25 2c 74 61  |t" . version%,ta|
000000c0  73 6b 68 61 6e 64 25 0d  00 3c 2e de 20 71 25 20  |skhand%..<.. q% |
000000d0  26 33 30 30 2c 74 65 6d  70 25 20 32 35 36 2c 62  |&300,temp% 256,b|
000000e0  75 66 66 65 72 73 25 20  35 31 32 2c 6d 65 6e 75  |uffers% 512,menu|
000000f0  25 20 31 32 38 0d 00 46  30 c8 99 20 22 57 69 6d  |% 128..F0.. "Wim|
00000100  70 5f 4f 70 65 6e 54 65  6d 70 6c 61 74 65 22 2c  |p_OpenTemplate",|
00000110  2c 22 3c 54 63 24 44 69  72 3e 2e 54 65 6d 70 6c  |,"<Tc$Dir>.Templ|
00000120  61 74 65 73 22 0d 00 50  29 ee 20 85 20 c8 99 20  |ates"..P). . .. |
00000130  22 57 69 6d 70 5f 43 6c  6f 73 65 54 65 6d 70 6c  |"Wimp_CloseTempl|
00000140  61 74 65 22 3a f2 65 72  72 6f 72 62 6f 78 0d 00  |ate":.errorbox..|
00000150  5a 3a c8 99 20 22 57 69  6d 70 5f 4c 6f 61 64 54  |Z:.. "Wimp_LoadT|
00000160  65 6d 70 6c 61 74 65 22  2c 2c 71 25 2c 74 65 6d  |emplate",,q%,tem|
00000170  70 25 2c 74 65 6d 70 25  2b 32 35 36 2c 2d 31 2c  |p%,temp%+256,-1,|
00000180  22 49 6e 66 6f 22 2c 30  0d 00 64 26 c8 99 20 22  |"Info",0..d&.. "|
00000190  57 69 6d 70 5f 43 72 65  61 74 65 57 69 6e 64 6f  |Wimp_CreateWindo|
000001a0  77 22 2c 2c 71 25 20 b8  20 69 6e 66 6f 25 0d 00  |w",,q% . info%..|
000001b0  6e 1b c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |n... "Wimp_Close|
000001c0  54 65 6d 70 6c 61 74 65  22 0d 00 78 0a 72 65 66  |Template"..x.ref|
000001d0  25 3d 30 0d 00 82 11 ee  20 85 20 f2 65 72 72 6f  |%=0..... . .erro|
000001e0  72 62 6f 78 0d 00 8c 0e  f2 73 65 74 75 70 6d 65  |rbox.....setupme|
000001f0  6e 75 0d 00 96 12 62 61  73 69 63 6f 6e 25 3d a4  |nu....basicon%=.|
00000200  69 63 6f 6e 0d 00 a0 04  0d 00 aa 05 f5 0d 00 b4  |icon............|
00000210  3c 20 20 c8 99 20 22 57  69 6d 70 5f 50 6f 6c 6c  |<  .. "Wimp_Poll|
00000220  22 2c ac 28 28 33 3c 3c  31 37 29 84 28 31 3c 3c  |",.((3<<17).(1<<|
00000230  39 29 84 28 31 3c 3c 36  29 84 28 31 3c 3c 31 29  |9).(1<<6).(1<<1)|
00000240  29 2c 71 25 20 b8 20 41  25 0d 00 be 0d 20 20 c8  |),q% . A%....  .|
00000250  8e 20 41 25 20 ca 0d 00  c8 24 20 20 c9 20 31 3a  |. A% ....$  . 1:|
00000260  c8 99 20 22 57 69 6d 70  5f 52 65 64 72 61 77 57  |.. "Wimp_RedrawW|
00000270  69 6e 64 6f 77 22 2c 2c  71 25 0d 00 d2 36 20 20  |indow",,q%...6  |
00000280  c9 20 36 3a e7 20 71 25  21 31 32 3d 2d 32 20 80  |. 6:. q%!12=-2 .|
00000290  20 71 25 21 31 36 3d 62  61 73 69 63 6f 6e 25 20  | q%!16=basicon% |
000002a0  8c 20 f2 5f 64 6f 5f 63  6c 69 63 6b 28 71 25 29  |. ._do_click(q%)|
000002b0  0d 00 dc 18 20 20 c9 20  39 3a e7 20 21 71 25 3d  |....  . 9:. !q%=|
000002c0  31 20 8c 20 f2 64 69 65  0d 00 e6 1a 20 20 c9 20  |1 . .die....  . |
000002d0  31 37 2c 31 38 3a f2 72  65 63 65 69 76 65 28 71  |17,18:.receive(q|
000002e0  25 29 0d 00 f0 07 20 20  cb 0d 00 fa 07 fd 20 a3  |%)....  ...... .|
000002f0  0d 01 04 04 0d 01 0e 14  dd 20 f2 5f 64 6f 5f 63  |......... ._do_c|
00000300  6c 69 63 6b 28 71 25 29  0d 01 18 35 e7 20 71 25  |lick(q%)...5. q%|
00000310  21 38 3d 32 20 8c 20 c8  99 22 57 69 6d 70 5f 43  |!8=2 . .."Wimp_C|
00000320  72 65 61 74 65 4d 65 6e  75 22 2c 2c 6d 65 6e 75  |reateMenu",,menu|
00000330  25 2c 71 25 21 30 2d 36  34 2c 31 39 30 0d 01 22  |%,q%!0-64,190.."|
00000340  05 e1 0d 01 2c 04 0d 01  36 0a dd a4 69 63 6f 6e  |....,...6...icon|
00000350  0d 01 40 0b 71 25 21 30  3d 2d 31 0d 01 4a 0a 71  |..@.q%!0=-1..J.q|
00000360  25 21 34 3d 30 0d 01 54  1a 71 25 21 38 3d 30 20  |%!4=0..T.q%!8=0 |
00000370  3a 20 f4 20 59 20 44 49  52 45 43 54 49 4f 4e 0d  |: . Y DIRECTION.|
00000380  01 5e 1c 71 25 21 31 32  3d 35 32 20 3a 20 f4 20  |.^.q%!12=52 : . |
00000390  58 20 44 49 52 45 43 54  49 4f 4e 0d 01 68 0c 71  |X DIRECTION..h.q|
000003a0  25 21 31 36 3d 39 36 0d  01 72 0f 71 25 21 32 30  |%!16=96..r.q%!20|
000003b0  3d 26 32 30 30 32 0d 01  7c 18 24 28 71 25 2b 32  |=&2002..|.$(q%+2|
000003c0  34 29 3d 22 21 54 65 78  74 43 6f 6e 76 22 0d 01  |4)="!TextConv"..|
000003d0  86 24 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.$.. "Wimp_Creat|
000003e0  65 49 63 6f 6e 22 2c 2c  71 25 20 b8 20 69 63 6f  |eIcon",,q% . ico|
000003f0  6e 25 0d 01 90 0a 3d 69  63 6f 6e 25 0d 01 9a 04  |n%....=icon%....|
00000400  0d 01 a4 0f dd f2 73 65  74 75 70 6d 65 6e 75 0d  |......setupmenu.|
00000410  01 ae 08 ea 20 6d 25 0d  01 b8 18 24 6d 65 6e 75  |.... m%....$menu|
00000420  25 3d 22 54 65 78 74 43  6f 6e 76 65 72 74 22 0d  |%="TextConvert".|
00000430  01 c2 0e 6d 65 6e 75 25  3f 31 32 3d 37 0d 01 cc  |...menu%?12=7...|
00000440  0e 6d 65 6e 75 25 3f 31  33 3d 32 0d 01 d6 0e 6d  |.menu%?13=2....m|
00000450  65 6e 75 25 3f 31 34 3d  37 0d 01 e0 0e 6d 65 6e  |enu%?14=7....men|
00000460  75 25 3f 31 35 3d 30 0d  01 ea 10 6d 65 6e 75 25  |u%?15=0....menu%|
00000470  21 31 36 3d 31 32 38 0d  01 f4 0f 6d 65 6e 75 25  |!16=128....menu%|
00000480  21 32 30 3d 34 30 0d 01  fe 0e 6d 65 6e 75 25 21  |!20=40....menu%!|
00000490  32 34 3d 30 0d 02 08 0f  6d 25 3d 6d 65 6e 75 25  |24=0....m%=menu%|
000004a0  2b 32 38 0d 02 12 0a 6d  25 21 30 3d 30 0d 02 1c  |+28....m%!0=0...|
000004b0  0e 6d 25 21 34 3d 69 6e  66 6f 25 0d 02 26 18 6d  |.m%!4=info%..&.m|
000004c0  25 21 38 3d 28 37 3c 3c  32 34 29 84 20 25 31 31  |%!8=(7<<24). %11|
000004d0  30 30 31 0d 02 30 13 24  28 6d 25 2b 31 32 29 3d  |001..0.$(m%+12)=|
000004e0  22 49 6e 66 6f 22 0d 02  3a 04 0d 02 44 0a 6d 25  |"Info"..:...D.m%|
000004f0  2b 3d 32 34 0d 02 4e 0c  6d 25 21 30 3d 26 38 30  |+=24..N.m%!0=&80|
00000500  0d 02 58 0a 6d 25 21 34  3d 30 0d 02 62 18 6d 25  |..X.m%!4=0..b.m%|
00000510  21 38 3d 28 37 3c 3c 32  34 29 84 20 25 31 31 30  |!8=(7<<24). %110|
00000520  30 31 0d 02 6c 13 24 28  6d 25 2b 31 32 29 3d 22  |01..l.$(m%+12)="|
00000530  51 75 69 74 22 0d 02 76  05 e1 0d 02 80 04 0d 02  |Quit"..v........|
00000540  8a 12 dd 20 f2 72 65 63  65 69 76 65 28 71 25 29  |... .receive(q%)|
00000550  0d 02 94 08 ea 20 41 25  0d 02 9e 0e c8 8e 20 71  |..... A%...... q|
00000560  25 21 31 36 20 ca 0d 02  a8 0c c9 20 30 3a f2 64  |%!16 ...... 0:.d|
00000570  69 65 0d 02 b2 32 c9 20  33 3a e7 20 71 25 21 32  |ie...2. 3:. q%!2|
00000580  30 3d 2d 32 20 80 20 71  25 21 32 34 3d 62 61 73  |0=-2 . q%!24=bas|
00000590  69 63 6f 6e 25 20 80 20  71 25 21 34 30 3d 26 46  |icon% . q%!40=&F|
000005a0  46 46 20 8c 0d 02 bc 2d  20 20 20 20 20 20 20 20  |FF ....-        |
000005b0  e7 20 28 71 25 21 34 30  3d 26 30 30 30 29 20 8c  |. (q%!40=&000) .|
000005c0  20 46 54 25 3d 26 41 46  46 20 8b 20 46 54 25 3d  | FT%=&AFF . FT%=|
000005d0  30 0d 02 c6 1b 20 20 20  20 20 20 20 20 6e 24 3d  |0....        n$=|
000005e0  a4 73 67 65 74 28 71 25  2b 34 34 29 0d 02 d0 12  |.sget(q%+44)....|
000005f0  20 20 20 20 20 20 20 20  f2 5f 44 61 63 6b 0d 02  |        ._Dack..|
00000600  da 10 20 20 20 20 20 20  20 20 f2 5f 54 43 0d 02  |..        ._TC..|
00000610  e4 31 20 20 20 20 20 20  20 20 f4 20 4f 53 43 4c  |.1        . OSCL|
00000620  49 28 22 53 45 54 54 59  50 45 20 22 2b 6e 24 2b  |I("SETTYPE "+n$+|
00000630  22 20 22 2b 53 54 52 24  7e 28 46 54 25 29 29 0d  |" "+STR$~(FT%)).|
00000640  02 ee 12 20 20 20 20 20  20 20 20 72 65 66 25 3d  |...        ref%=|
00000650  30 0d 02 f8 0c 20 20 20  20 20 20 20 cd 0d 03 02  |0....       ....|
00000660  11 c9 20 26 35 30 32 3a  c8 8e 20 b9 20 ca 0d 03  |.. &502:.. . ...|
00000670  0c 81 20 20 20 20 20 20  20 c9 20 71 25 21 33 32  |..       . q%!32|
00000680  3d 2d 32 20 80 20 71 25  21 33 36 3d 62 61 73 69  |=-2 . q%!36=basi|
00000690  63 6f 6e 25 3a 6d 65 73  24 3d 22 54 68 69 73 20  |con%:mes$="This |
000006a0  69 73 20 74 68 65 20 54  65 78 74 20 43 6f 6e 76  |is the Text Conv|
000006b0  65 72 74 20 69 63 6f 6e  2e 7c 4d 44 72 61 67 20  |ert icon.|MDrag |
000006c0  61 20 54 65 78 74 20 66  69 6c 65 20 68 65 72 65  |a Text file here|
000006d0  20 74 6f 20 63 6f 6e 76  65 72 74 20 69 74 20 66  | to convert it f|
000006e0  72 6f 6d 20 4d 61 63 20  74 6f 20 41 72 63 22 0d  |rom Mac to Arc".|
000006f0  03 16 14 20 20 20 20 20  20 20 7f 3a 6d 65 73 24  |...       .:mes$|
00000700  3d 22 22 0d 03 20 0c 20  20 20 20 20 20 20 cb 0d  |="".. .       ..|
00000710  03 2a 14 20 20 20 20 e7  20 6d 65 73 24 3c 3e 22  |.*.    . mes$<>"|
00000720  22 20 8c 0d 03 34 12 20  20 20 20 71 25 21 31 32  |" ...4.    q%!12|
00000730  3d 71 25 21 38 0d 03 3e  18 20 20 20 20 24 28 71  |=q%!8..>.    $(q|
00000740  25 2b 32 30 29 3d 6d 65  73 24 2b bd 30 0d 03 48  |%+20)=mes$+.0..H|
00000750  1e 20 20 20 20 71 25 21  30 3d 28 32 30 2b a9 6d  |.    q%!0=(20+.m|
00000760  65 73 24 2b 34 29 80 20  ac 20 33 0d 03 52 12 20  |es$+4). . 3..R. |
00000770  20 20 20 71 25 21 31 36  3d 26 35 30 33 0d 03 5c  |   q%!16=&503..\|
00000780  28 20 20 20 20 c8 99 20  22 57 69 6d 70 5f 53 65  |(    .. "Wimp_Se|
00000790  6e 64 4d 65 73 73 61 67  65 22 2c 31 38 2c 71 25  |ndMessage",18,q%|
000007a0  2c 71 25 21 34 0d 03 66  05 cb 0d 03 70 05 e1 0d  |,q%!4..f....p...|
000007b0  03 7a 04 0d 03 84 0c dd  20 f2 5f 44 61 63 6b 0d  |.z...... ._Dack.|
000007c0  03 8e 10 73 65 6e 64 74  68 25 3d 71 25 21 34 0d  |...sendth%=q%!4.|
000007d0  03 98 0f 6d 79 72 65 66  25 3d 71 25 21 38 0d 03  |...myref%=q%!8..|
000007e0  a2 22 c8 99 20 22 57 69  6d 70 5f 47 65 74 50 6f  |.".. "Wimp_GetPo|
000007f0  69 6e 74 65 72 49 6e 66  6f 22 2c 2c 71 25 2b 38  |interInfo",,q%+8|
00000800  0d 03 ac 0e 71 25 21 32  38 3d 71 25 21 38 0d 03  |....q%!28=q%!8..|
00000810  b6 0f 71 25 21 33 32 3d  71 25 21 31 32 0d 03 c0  |..q%!32=q%!12...|
00000820  18 71 25 21 30 3d 28 34  34 2b a9 6e 24 2b 34 29  |.q%!0=(44+.n$+4)|
00000830  80 20 ac 20 33 0d 03 ca  10 71 25 21 31 32 3d 6d  |. . 3....q%!12=m|
00000840  79 72 65 66 25 0d 03 d4  0b 71 25 21 31 36 3d 34  |yref%....q%!16=4|
00000850  0d 03 de 0c 71 25 21 33  36 3d 2d 31 0d 03 e8 0e  |....q%!36=-1....|
00000860  71 25 21 34 30 3d 26 46  46 39 0d 03 f2 12 24 28  |q%!40=&FF9....$(|
00000870  71 25 2b 34 34 29 3d 6e  24 2b bd 30 0d 03 fc 27  |q%+44)=n$+.0...'|
00000880  c8 99 20 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |.. "Wimp_SendMes|
00000890  73 61 67 65 22 2c 31 37  2c 71 25 2c 73 65 6e 64  |sage",17,q%,send|
000008a0  74 68 25 0d 04 06 05 cd  0d 04 10 05 e1 0d 04 1a  |th%.............|
000008b0  04 0d 04 24 0f dd 20 f2  65 72 72 6f 72 62 6f 78  |...$.. .errorbox|
000008c0  0d 04 2e 19 c8 99 20 22  57 69 6d 70 5f 44 72 61  |...... "Wimp_Dra|
000008d0  67 42 6f 78 22 2c 2c 2d  31 0d 04 38 32 21 62 75  |gBox",,-1..82!bu|
000008e0  66 66 65 72 73 25 3d 9f  3a 24 28 62 75 66 66 65  |ffers%=.:$(buffe|
000008f0  72 73 25 2b 34 29 3d f6  24 2b 22 20 61 74 20 6c  |rs%+4)=.$+" at l|
00000900  69 6e 65 20 22 2b c3 9e  2b bd 30 0d 04 42 32 c8  |ine "+..+.0..B2.|
00000910  99 20 22 57 69 6d 70 5f  52 65 70 6f 72 74 45 72  |. "Wimp_ReportEr|
00000920  72 6f 72 22 2c 62 75 66  66 65 72 73 25 2c 31 2c  |ror",buffers%,1,|
00000930  22 54 65 78 74 43 6f 6e  76 65 72 74 22 0d 04 4c  |"TextConvert"..L|
00000940  08 f2 64 69 65 0d 04 56  05 e1 0d 04 60 04 0d 04  |..die..V....`...|
00000950  6a 09 dd f2 64 69 65 0d  04 74 2a c8 99 20 22 57  |j...die..t*.. "W|
00000960  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 22 2c 74  |imp_CloseDown",t|
00000970  61 73 6b 68 61 6e 64 25  2c 21 74 61 73 6b 69 64  |askhand%,!taskid|
00000980  25 0d 04 7e 05 e0 0d 04  88 05 e1 0d 04 92 04 0d  |%..~............|
00000990  04 9c 0e dd a4 73 67 65  74 28 78 25 29 0d 04 a6  |.....sget(x%)...|
000009a0  08 ea 20 78 24 0d 04 b0  1d c8 95 20 3f 78 25 20  |.. x$...... ?x% |
000009b0  78 24 2b 3d bd 28 3f 78  25 29 3a 78 25 2b 3d 31  |x$+=.(?x%):x%+=1|
000009c0  3a ce 0d 04 ba 07 3d 78  24 0d 04 c4 04 0d 04 ce  |:.....=x$.......|
000009d0  04 0d 04 d8 0a dd 20 f2  5f 54 43 0d 04 e2 44 f4  |...... ._TC...D.|
000009e0  20 53 74 72 69 70 73 20  6f 75 74 20 74 68 65 20  | Strips out the |
000009f0  61 70 6f 73 74 72 6f 70  68 65 73 20 61 6e 64 20  |apostrophes and |
00000a00  71 75 6f 74 65 73 20 61  6e 64 20 70 75 74 73 20  |quotes and puts |
00000a10  43 52 20 4c 46 20 69 6e  20 66 6f 72 20 43 52 0d  |CR LF in for CR.|
00000a20  04 ec 37 e7 20 c1 6e 24  2c a9 28 6e 24 29 2d 31  |..7. .n$,.(n$)-1|
00000a30  2c 31 29 3c 3e 22 2e 22  20 8c 20 63 24 3d c0 6e  |,1)<>"." . c$=.n|
00000a40  24 2c a9 28 6e 24 29 2d  31 29 20 8b 20 63 24 3d  |$,.(n$)-1) . c$=|
00000a50  6e 24 2b 22 54 22 0d 04  f6 0d 46 4f 25 3d ae 28  |n$+"T"....FO%=.(|
00000a60  63 24 29 0d 05 00 0d 46  49 25 3d 8e 28 6e 24 29  |c$)....FI%=.(n$)|
00000a70  0d 05 0a 05 f5 0d 05 14  0c 43 25 3d 9a 23 46 49  |.........C%=.#FI|
00000a80  25 0d 05 1e 15 e7 20 43  25 3d 26 44 35 20 8c 20  |%..... C%=&D5 . |
00000a90  43 25 3d 26 32 37 0d 05  1f 15 e7 20 43 25 3d 26  |C%=&27..... C%=&|
00000aa0  44 33 20 8c 20 43 25 3d  26 32 32 0d 05 20 15 e7  |D3 . C%=&22.. ..|
00000ab0  20 43 25 3d 26 44 32 20  8c 20 43 25 3d 26 32 32  | C%=&D2 . C%=&22|
00000ac0  0d 05 21 15 e7 20 43 25  3d 26 30 44 20 8c 20 43  |..!.. C%=&0D . C|
00000ad0  25 3d 26 30 41 0d 05 28  0c d5 23 46 4f 25 2c 43  |%=&0A..(..#FO%,C|
00000ae0  25 0d 05 32 0b fd 20 c5  23 46 49 25 0d 05 3c 09  |%..2.. .#FI%..<.|
00000af0  d9 23 46 4f 25 0d 05 46  09 d9 23 46 49 25 0d 05  |.#FO%..F..#FI%..|
00000b00  47 13 ff 28 22 44 45 4c  45 54 45 20 22 2b 6e 24  |G..("DELETE "+n$|
00000b10  29 0d 05 48 1a ff 28 22  52 45 4e 41 4d 45 20 22  |)..H..("RENAME "|
00000b20  2b 63 24 2b 22 20 22 2b  6e 24 29 0d 05 50 1c ff  |+c$+" "+n$)..P..|
00000b30  28 22 53 45 54 54 59 50  45 20 22 2b 6e 24 2b 22  |("SETTYPE "+n$+"|
00000b40  20 26 46 46 46 22 29 0d  05 51 05 e1 0d ff        | &FFF")..Q....|
00000b4e

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