!Fresco/!RunConfig

Home » Archimedes archive » Archimedes World » archimedes_world_volume_15_issue_5_scp.adf » Argosp » !Fresco/!RunConfig

!Fresco/!RunConfig

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Archimedes archive » Archimedes World » archimedes_world_volume_15_issue_5_scp.adf » Argosp
Filename:	!Fresco/!RunConfig
Read OK:	✔
File size:	0394 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM > OneFresco
   20
   30DIM B% 256,D% 20
   40
   50fresco%=0
   60
   70!D%=&4AF88
   80D%!4=&4A43F
   90D%!8=&4A43E
  100D%!12=&400C3
  110D%!16=0
  120
  130SYS "Wimp_Initialise",310,&4B534154,"Fresco configuration",D%
  140
  150!B%=24
  160B%!12=0
  170B%!16=&4A43F
  180B%!20=4 : REM me, I'm the configuration program
  190SYS "Wimp_SendMessage",17,B%,0
  200
  210PROCmessage
  220
  230Q%=FALSE
  240REPEAT
  250    SYS "Wimp_Poll",1,B% TO A%
  260    CASE A% OF
  270    WHEN 17,18:
  280        IF B%!16=0 THEN Q%=TRUE
  290        IF B%!16=&4AF88 AND B%!20=2 THEN fresco%=B%!4
  300        IF B%!16=&400C3 AND B%!4=fresco% AND fresco%<>0 THEN Q%=TRUE
  310        IF B%!16=&4A43E THEN PROCmessage : REM voyager_reload
  320    WHEN 19:
  330        IF B%!16=&4AF88 THEN
  340            SYS "Wimp_StartTask","Run <Fresco$Dir> -config" TO fresco%
  350        ENDIF
  360    ENDCASE
  370UNTIL Q%
  380
  390SYS "Wimp_CloseDown"
  400
  410END
  420
  430DEF PROCmessage
  440!B%=24
  450B%!12=0
  460B%!16=&4AF88 : REM wimp_mfresco
  470B%!20=0
  480SYS "Wimp_SendMessage",18,B%,0
  490ENDPROC


� > OneFresco

� B% 256,D% 20
(
2
fresco%=0
<
F!D%=&4AF88
PD%!4=&4A43F
ZD%!8=&4A43E
dD%!12=&400C3
nD%!16=0
x
�@ș "Wimp_Initialise",310,&4B534154,"Fresco configuration",D%
�
�
!B%=24
�B%!12=0
�B%!16=&4A43F
�1B%!20=4 : � me, I'm the configuration program
�!ș "Wimp_SendMessage",17,B%,0
�
��message
�
�Q%=�
��
�     ș "Wimp_Poll",1,B% � A%
    Ȏ A% �
    � 17,18:
        � B%!16=0 � Q%=�
"3        � B%!16=&4AF88 � B%!20=2 � fresco%=B%!4
,=        � B%!16=&400C3 � B%!4=fresco% � fresco%<>0 � Q%=�
68        � B%!16=&4A43E � �message : � voyager_reload
@
    � 19:
J        � B%!16=&4AF88 �
TH            ș "Wimp_StartTask","Run <Fresco$Dir> -config" � fresco%
^
        �
h	    �
r� Q%
|
�ș "Wimp_CloseDown"
�
��
�
�� �message
�
!B%=24
�B%!12=0
�!B%!16=&4AF88 : � wimp_mfresco
�B%!20=0
�!ș "Wimp_SendMessage",18,B%,0
��
�

00000000  0d 00 0a 11 f4 20 3e 20  4f 6e 65 46 72 65 73 63  |..... > OneFresc|
00000010  6f 0d 00 14 04 0d 00 1e  12 de 20 42 25 20 32 35  |o......... B% 25|
00000020  36 2c 44 25 20 32 30 0d  00 28 04 0d 00 32 0d 66  |6,D% 20..(...2.f|
00000030  72 65 73 63 6f 25 3d 30  0d 00 3c 04 0d 00 46 0e  |resco%=0..<...F.|
00000040  21 44 25 3d 26 34 41 46  38 38 0d 00 50 0f 44 25  |!D%=&4AF88..P.D%|
00000050  21 34 3d 26 34 41 34 33  46 0d 00 5a 0f 44 25 21  |!4=&4A43F..Z.D%!|
00000060  38 3d 26 34 41 34 33 45  0d 00 64 10 44 25 21 31  |8=&4A43E..d.D%!1|
00000070  32 3d 26 34 30 30 43 33  0d 00 6e 0b 44 25 21 31  |2=&400C3..n.D%!1|
00000080  36 3d 30 0d 00 78 04 0d  00 82 40 c8 99 20 22 57  |6=0..x....@.. "W|
00000090  69 6d 70 5f 49 6e 69 74  69 61 6c 69 73 65 22 2c  |imp_Initialise",|
000000a0  33 31 30 2c 26 34 42 35  33 34 31 35 34 2c 22 46  |310,&4B534154,"F|
000000b0  72 65 73 63 6f 20 63 6f  6e 66 69 67 75 72 61 74  |resco configurat|
000000c0  69 6f 6e 22 2c 44 25 0d  00 8c 04 0d 00 96 0a 21  |ion",D%........!|
000000d0  42 25 3d 32 34 0d 00 a0  0b 42 25 21 31 32 3d 30  |B%=24....B%!12=0|
000000e0  0d 00 aa 10 42 25 21 31  36 3d 26 34 41 34 33 46  |....B%!16=&4A43F|
000000f0  0d 00 b4 31 42 25 21 32  30 3d 34 20 3a 20 f4 20  |...1B%!20=4 : . |
00000100  6d 65 2c 20 49 27 6d 20  74 68 65 20 63 6f 6e 66  |me, I'm the conf|
00000110  69 67 75 72 61 74 69 6f  6e 20 70 72 6f 67 72 61  |iguration progra|
00000120  6d 0d 00 be 21 c8 99 20  22 57 69 6d 70 5f 53 65  |m...!.. "Wimp_Se|
00000130  6e 64 4d 65 73 73 61 67  65 22 2c 31 37 2c 42 25  |ndMessage",17,B%|
00000140  2c 30 0d 00 c8 04 0d 00  d2 0c f2 6d 65 73 73 61  |,0.........messa|
00000150  67 65 0d 00 dc 04 0d 00  e6 08 51 25 3d a3 0d 00  |ge........Q%=...|
00000160  f0 05 f5 0d 00 fa 20 20  20 20 20 c8 99 20 22 57  |......     .. "W|
00000170  69 6d 70 5f 50 6f 6c 6c  22 2c 31 2c 42 25 20 b8  |imp_Poll",1,B% .|
00000180  20 41 25 0d 01 04 0f 20  20 20 20 c8 8e 20 41 25  | A%....    .. A%|
00000190  20 ca 0d 01 0e 10 20 20  20 20 c9 20 31 37 2c 31  | .....    . 17,1|
000001a0  38 3a 0d 01 18 1c 20 20  20 20 20 20 20 20 e7 20  |8:....        . |
000001b0  42 25 21 31 36 3d 30 20  8c 20 51 25 3d b9 0d 01  |B%!16=0 . Q%=...|
000001c0  22 33 20 20 20 20 20 20  20 20 e7 20 42 25 21 31  |"3        . B%!1|
000001d0  36 3d 26 34 41 46 38 38  20 80 20 42 25 21 32 30  |6=&4AF88 . B%!20|
000001e0  3d 32 20 8c 20 66 72 65  73 63 6f 25 3d 42 25 21  |=2 . fresco%=B%!|
000001f0  34 0d 01 2c 3d 20 20 20  20 20 20 20 20 e7 20 42  |4..,=        . B|
00000200  25 21 31 36 3d 26 34 30  30 43 33 20 80 20 42 25  |%!16=&400C3 . B%|
00000210  21 34 3d 66 72 65 73 63  6f 25 20 80 20 66 72 65  |!4=fresco% . fre|
00000220  73 63 6f 25 3c 3e 30 20  8c 20 51 25 3d b9 0d 01  |sco%<>0 . Q%=...|
00000230  36 38 20 20 20 20 20 20  20 20 e7 20 42 25 21 31  |68        . B%!1|
00000240  36 3d 26 34 41 34 33 45  20 8c 20 f2 6d 65 73 73  |6=&4A43E . .mess|
00000250  61 67 65 20 3a 20 f4 20  76 6f 79 61 67 65 72 5f  |age : . voyager_|
00000260  72 65 6c 6f 61 64 0d 01  40 0d 20 20 20 20 c9 20  |reload..@.    . |
00000270  31 39 3a 0d 01 4a 1c 20  20 20 20 20 20 20 20 e7  |19:..J.        .|
00000280  20 42 25 21 31 36 3d 26  34 41 46 38 38 20 8c 0d  | B%!16=&4AF88 ..|
00000290  01 54 48 20 20 20 20 20  20 20 20 20 20 20 20 c8  |.TH            .|
000002a0  99 20 22 57 69 6d 70 5f  53 74 61 72 74 54 61 73  |. "Wimp_StartTas|
000002b0  6b 22 2c 22 52 75 6e 20  3c 46 72 65 73 63 6f 24  |k","Run <Fresco$|
000002c0  44 69 72 3e 20 2d 63 6f  6e 66 69 67 22 20 b8 20  |Dir> -config" . |
000002d0  66 72 65 73 63 6f 25 0d  01 5e 0d 20 20 20 20 20  |fresco%..^.     |
000002e0  20 20 20 cd 0d 01 68 09  20 20 20 20 cb 0d 01 72  |   ...h.    ...r|
000002f0  08 fd 20 51 25 0d 01 7c  04 0d 01 86 17 c8 99 20  |.. Q%..|....... |
00000300  22 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |"Wimp_CloseDown"|
00000310  0d 01 90 04 0d 01 9a 05  e0 0d 01 a4 04 0d 01 ae  |................|
00000320  0e dd 20 f2 6d 65 73 73  61 67 65 0d 01 b8 0a 21  |.. .message....!|
00000330  42 25 3d 32 34 0d 01 c2  0b 42 25 21 31 32 3d 30  |B%=24....B%!12=0|
00000340  0d 01 cc 21 42 25 21 31  36 3d 26 34 41 46 38 38  |...!B%!16=&4AF88|
00000350  20 3a 20 f4 20 77 69 6d  70 5f 6d 66 72 65 73 63  | : . wimp_mfresc|
00000360  6f 0d 01 d6 0b 42 25 21  32 30 3d 30 0d 01 e0 21  |o....B%!20=0...!|
00000370  c8 99 20 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |.. "Wimp_SendMes|
00000380  73 61 67 65 22 2c 31 38  2c 42 25 2c 30 0d 01 ea  |sage",18,B%,0...|
00000390  05 e1 0d ff                                       |....|
00000394

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