Home » Archimedes archive » Acorn User » AU 1995-05.adf » !StarInfo_StarInfo » Miskin/!SpiroDraw/!RunIm2

Miskin/!SpiroDraw/!RunIm2

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 1995-05.adf » !StarInfo_StarInfo
Filename: Miskin/!SpiroDraw/!RunIm2
Read OK:
File size: 0404 bytes
Load address: 0000
Exec address: 0000
File contents
   10ONERROR REPORT:PRINTERL/10:END
   20LIBRARY "<SpiroDraw$Dir>.Common"
   30PROCvars
   40$B%="TASK":SYS &400C0,200,!B%,prog$ TO ,task%
   50ON ERROR IF FNwimperror THEN END
   60PROCicon
   70PROCloadTemplates
   80PROCdispicon
   90menu2%=FNdrawmenu(3,"Save,<m>[sbx%]DrawFile,<m>[sbx%]Sprite,<m>[sbx%]Parameters",FALSE)
  100menu%=FNdrawmenu(6,prog$+",[ibh%]Info,[menu2%]<s>Save,<s>Undo,Clear,Stop,Quit",TRUE)
  110ON ERROR IF FNwimperror THEN END
  120REPEAT
  130PROCpoll
  140UNTIL quit%
  150PROCclose
  160END
  170:
  180DEFFNourkey
  190IF B%!24<>13:=FALSE
  200IF !B%=sbx% PROCquicksave:=TRUE
  210IF !B%<>opt% :=FALSE
  220icon%=B%!4:jc%=icon%
  230IF icon%<4 icon%+=1 ELSE IF icon%=4 icon%=21
  240IF icon%=21 PROCsetpts
  250SYS &400D2,opt%,icon%,0,0,-1,LEN(FNtext(opt%,21))
  260IF jc%=21 PROCdrawsprite
  270=TRUE
  280:
  290DEFPROCloadTemplates
  300SYS &400D9,,"<SpiroDraw$Dir>.Templates2"
  310maxbuff%=1116:inlen%=634
  320templ%=FNclaim(maxbuff%+4)
  330DIM indir% inlen%
  340data%=indir%:end%=indir%+inlen%
  350ibh%=FNwindow("info")
  360sbx%=FNwindow("save")
  370opt%=FNwindow("main")
  380disp%=FNwindow("preview")
  390PROCsetuppalette
  400PROCdrawnewcol
  410PROCseticon(12):PROCseticon(5)
  420SYS &400DA
  430SYS&1E,7,,templ%
  440ENDPROC

� �:�/10:�
ț "<SpiroDraw$Dir>.Common"
	�vars
(/$B%="TASK":ș &400C0,200,!B%,prog$ � ,task%
2� � � �wimperror � �
<	�icon
F�loadTemplates
P
�dispicon
ZVmenu2%=�drawmenu(3,"Save,<m>[sbx%]DrawFile,<m>[sbx%]Sprite,<m>[sbx%]Parameters",�)
dTmenu%=�drawmenu(6,prog$+",[ibh%]Info,[menu2%]<s>Save,<s>Undo,Clear,Stop,Quit",�)
n� � � �wimperror � �
x�
�	�poll
�� quit%
�
�close
��
�:
�ݤourkey
�� B%!24<>13:=�
�� !B%=sbx% �quicksave:=�
�� !B%<>opt% :=�
�icon%=B%!4:jc%=icon%
�+� icon%<4 icon%+=1 � � icon%=4 icon%=21
�� icon%=21 �setpts
�1ș &400D2,opt%,icon%,0,0,-1,�(�text(opt%,21))
� jc%=21 �drawsprite
=�
:
"��loadTemplates
,+ș &400D9,,"<SpiroDraw$Dir>.Templates2"
6maxbuff%=1116:inlen%=634
@templ%=�claim(maxbuff%+4)
J� indir% inlen%
T#data%=indir%:end%=indir%+inlen%
^ibh%=�window("info")
hsbx%=�window("save")
ropt%=�window("main")
|disp%=�window("preview")
��setuppalette
��drawnewcol
��seticon(12):�seticon(5)
�
ș &400DA
�ș&1E,7,,templ%
��
�
00000000  0d 00 0a 10 ee 85 20 f6  3a f1 9e 2f 31 30 3a e0  |...... .:../10:.|
00000010  0d 00 14 1f c8 9b 20 22  3c 53 70 69 72 6f 44 72  |...... "<SpiroDr|
00000020  61 77 24 44 69 72 3e 2e  43 6f 6d 6d 6f 6e 22 0d  |aw$Dir>.Common".|
00000030  00 1e 09 f2 76 61 72 73  0d 00 28 2f 24 42 25 3d  |....vars..(/$B%=|
00000040  22 54 41 53 4b 22 3a c8  99 20 26 34 30 30 43 30  |"TASK":.. &400C0|
00000050  2c 32 30 30 2c 21 42 25  2c 70 72 6f 67 24 20 b8  |,200,!B%,prog$ .|
00000060  20 2c 74 61 73 6b 25 0d  00 32 18 ee 20 85 20 e7  | ,task%..2.. . .|
00000070  20 a4 77 69 6d 70 65 72  72 6f 72 20 8c 20 e0 0d  | .wimperror . ..|
00000080  00 3c 09 f2 69 63 6f 6e  0d 00 46 12 f2 6c 6f 61  |.<..icon..F..loa|
00000090  64 54 65 6d 70 6c 61 74  65 73 0d 00 50 0d f2 64  |dTemplates..P..d|
000000a0  69 73 70 69 63 6f 6e 0d  00 5a 56 6d 65 6e 75 32  |ispicon..ZVmenu2|
000000b0  25 3d a4 64 72 61 77 6d  65 6e 75 28 33 2c 22 53  |%=.drawmenu(3,"S|
000000c0  61 76 65 2c 3c 6d 3e 5b  73 62 78 25 5d 44 72 61  |ave,<m>[sbx%]Dra|
000000d0  77 46 69 6c 65 2c 3c 6d  3e 5b 73 62 78 25 5d 53  |wFile,<m>[sbx%]S|
000000e0  70 72 69 74 65 2c 3c 6d  3e 5b 73 62 78 25 5d 50  |prite,<m>[sbx%]P|
000000f0  61 72 61 6d 65 74 65 72  73 22 2c a3 29 0d 00 64  |arameters",.)..d|
00000100  54 6d 65 6e 75 25 3d a4  64 72 61 77 6d 65 6e 75  |Tmenu%=.drawmenu|
00000110  28 36 2c 70 72 6f 67 24  2b 22 2c 5b 69 62 68 25  |(6,prog$+",[ibh%|
00000120  5d 49 6e 66 6f 2c 5b 6d  65 6e 75 32 25 5d 3c 73  |]Info,[menu2%]<s|
00000130  3e 53 61 76 65 2c 3c 73  3e 55 6e 64 6f 2c 43 6c  |>Save,<s>Undo,Cl|
00000140  65 61 72 2c 53 74 6f 70  2c 51 75 69 74 22 2c b9  |ear,Stop,Quit",.|
00000150  29 0d 00 6e 18 ee 20 85  20 e7 20 a4 77 69 6d 70  |)..n.. . . .wimp|
00000160  65 72 72 6f 72 20 8c 20  e0 0d 00 78 05 f5 0d 00  |error . ...x....|
00000170  82 09 f2 70 6f 6c 6c 0d  00 8c 0b fd 20 71 75 69  |...poll..... qui|
00000180  74 25 0d 00 96 0a f2 63  6c 6f 73 65 0d 00 a0 05  |t%.....close....|
00000190  e0 0d 00 aa 05 3a 0d 00  b4 0c dd a4 6f 75 72 6b  |.....:......ourk|
000001a0  65 79 0d 00 be 12 e7 20  42 25 21 32 34 3c 3e 31  |ey..... B%!24<>1|
000001b0  33 3a 3d a3 0d 00 c8 1c  e7 20 21 42 25 3d 73 62  |3:=...... !B%=sb|
000001c0  78 25 20 f2 71 75 69 63  6b 73 61 76 65 3a 3d b9  |x% .quicksave:=.|
000001d0  0d 00 d2 13 e7 20 21 42  25 3c 3e 6f 70 74 25 20  |..... !B%<>opt% |
000001e0  3a 3d a3 0d 00 dc 18 69  63 6f 6e 25 3d 42 25 21  |:=.....icon%=B%!|
000001f0  34 3a 6a 63 25 3d 69 63  6f 6e 25 0d 00 e6 2b e7  |4:jc%=icon%...+.|
00000200  20 69 63 6f 6e 25 3c 34  20 69 63 6f 6e 25 2b 3d  | icon%<4 icon%+=|
00000210  31 20 8b 20 e7 20 69 63  6f 6e 25 3d 34 20 69 63  |1 . . icon%=4 ic|
00000220  6f 6e 25 3d 32 31 0d 00  f0 16 e7 20 69 63 6f 6e  |on%=21..... icon|
00000230  25 3d 32 31 20 f2 73 65  74 70 74 73 0d 00 fa 31  |%=21 .setpts...1|
00000240  c8 99 20 26 34 30 30 44  32 2c 6f 70 74 25 2c 69  |.. &400D2,opt%,i|
00000250  63 6f 6e 25 2c 30 2c 30  2c 2d 31 2c a9 28 a4 74  |con%,0,0,-1,.(.t|
00000260  65 78 74 28 6f 70 74 25  2c 32 31 29 29 0d 01 04  |ext(opt%,21))...|
00000270  18 e7 20 6a 63 25 3d 32  31 20 f2 64 72 61 77 73  |.. jc%=21 .draws|
00000280  70 72 69 74 65 0d 01 0e  06 3d b9 0d 01 18 05 3a  |prite....=.....:|
00000290  0d 01 22 13 dd f2 6c 6f  61 64 54 65 6d 70 6c 61  |.."...loadTempla|
000002a0  74 65 73 0d 01 2c 2b c8  99 20 26 34 30 30 44 39  |tes..,+.. &400D9|
000002b0  2c 2c 22 3c 53 70 69 72  6f 44 72 61 77 24 44 69  |,,"<SpiroDraw$Di|
000002c0  72 3e 2e 54 65 6d 70 6c  61 74 65 73 32 22 0d 01  |r>.Templates2"..|
000002d0  36 1c 6d 61 78 62 75 66  66 25 3d 31 31 31 36 3a  |6.maxbuff%=1116:|
000002e0  69 6e 6c 65 6e 25 3d 36  33 34 0d 01 40 1d 74 65  |inlen%=634..@.te|
000002f0  6d 70 6c 25 3d a4 63 6c  61 69 6d 28 6d 61 78 62  |mpl%=.claim(maxb|
00000300  75 66 66 25 2b 34 29 0d  01 4a 13 de 20 69 6e 64  |uff%+4)..J.. ind|
00000310  69 72 25 20 69 6e 6c 65  6e 25 0d 01 54 23 64 61  |ir% inlen%..T#da|
00000320  74 61 25 3d 69 6e 64 69  72 25 3a 65 6e 64 25 3d  |ta%=indir%:end%=|
00000330  69 6e 64 69 72 25 2b 69  6e 6c 65 6e 25 0d 01 5e  |indir%+inlen%..^|
00000340  18 69 62 68 25 3d a4 77  69 6e 64 6f 77 28 22 69  |.ibh%=.window("i|
00000350  6e 66 6f 22 29 0d 01 68  18 73 62 78 25 3d a4 77  |nfo")..h.sbx%=.w|
00000360  69 6e 64 6f 77 28 22 73  61 76 65 22 29 0d 01 72  |indow("save")..r|
00000370  18 6f 70 74 25 3d a4 77  69 6e 64 6f 77 28 22 6d  |.opt%=.window("m|
00000380  61 69 6e 22 29 0d 01 7c  1c 64 69 73 70 25 3d a4  |ain")..|.disp%=.|
00000390  77 69 6e 64 6f 77 28 22  70 72 65 76 69 65 77 22  |window("preview"|
000003a0  29 0d 01 86 11 f2 73 65  74 75 70 70 61 6c 65 74  |).....setuppalet|
000003b0  74 65 0d 01 90 0f f2 64  72 61 77 6e 65 77 63 6f  |te.....drawnewco|
000003c0  6c 0d 01 9a 1c f2 73 65  74 69 63 6f 6e 28 31 32  |l.....seticon(12|
000003d0  29 3a f2 73 65 74 69 63  6f 6e 28 35 29 0d 01 a4  |):.seticon(5)...|
000003e0  0d c8 99 20 26 34 30 30  44 41 0d 01 ae 13 c8 99  |... &400DA......|
000003f0  26 31 45 2c 37 2c 2c 74  65 6d 70 6c 25 0d 01 b8  |&1E,7,,templ%...|
00000400  05 e1 0d ff                                       |....|
00000404