Home » Archimedes archive » Micro User » MU 1990-08.adf » July\BBC/DESKTOP

July\BBC/DESKTOP

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 1990-08.adf
Filename: July\BBC/DESKTOP
Read OK: ✔
File size: 02BC bytes
Load address: FFFFFB43
Exec address: 6D39430F
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10 REM   Listing I
   20 REM   By Glenn Marshall
   30 REM   (C) The Micro User
   40 :
   50 IF PAGE<>&2100 THEN END
   60 :
   70 IF A%=0 THEN MODE 3:PROCfirst_run
   80 IF A%=1 THEN PROCsecond_run
   90 END
  100 :
  110 DEFPROCfirst_run
  120 *LOAD "DESK-MC"
  130 PROCmc_variables
  140 CALL desktop
  150 A%=1
  160 IF ?icon=1 THEN PROCload_calculator
  170 IF ?icon=2 THEN PROCload_calendar
  180 ENDPROC
  190 :
  200 DEFPROCsecond_run
  210 PROCmc_variables
  220 *FX3
  230 CALL desktop_loop
  240 IF ?icon=1 THEN PROCload_calculator
  250 IF ?icon=2 THEN PROCload_calendar
  260 ENDPROC
  270 :
  280 DEFPROCload_calculator
  290 *FX3,6
  300 *LOAD "CALC-MC"
  310 CHAIN "CALC-BA"
  320 ENDPROC
  330 :
  340 DEFPROCload_calendar
  350 *FX3,6
  360 *LOAD "CALE-MC"
  370 CHAIN "CALE-BA"
  380 ENDPROC
  390 :
  400 DEFPROCmc_variables
  410 desktop=&1D7A
  420 desktop_loop=&1D92
  430 icon=&63
  440 ENDPROC


 �   Listing I
 �   By Glenn Marshall
 �   (C) The Micro User
( :
2 � �<>&2100 � �
< :
F � A%=0 � � 3:�first_run
P � A%=1 � �second_run
Z �
d :
n ��first_run
x *LOAD "DESK-MC"
� �mc_variables
� � desktop
�	 A%=1
�! � ?icon=1 � �load_calculator
� � ?icon=2 � �load_calendar
� �
� :
� ��second_run
� �mc_variables
�	 *FX3
� � desktop_loop
�! � ?icon=1 � �load_calculator
� � ?icon=2 � �load_calendar
 �
 :
 ��load_calculator
" *FX3,6
, *LOAD "CALC-MC"
6 � "CALC-BA"
@ �
J :
T ��load_calendar
^ *FX3,6
h *LOAD "CALE-MC"
r � "CALE-BA"
| �
� :
� ��mc_variables
� desktop=&1D7A
� desktop_loop=&1D92
�
 icon=&63
� �
�
00000000  0d 00 0a 12 20 f4 20 20  20 4c 69 73 74 69 6e 67  |.... .   Listing|
00000010  20 49 0d 00 14 1a 20 f4  20 20 20 42 79 20 47 6c  | I.... .   By Gl|
00000020  65 6e 6e 20 4d 61 72 73  68 61 6c 6c 0d 00 1e 1b  |enn Marshall....|
00000030  20 f4 20 20 20 28 43 29  20 54 68 65 20 4d 69 63  | .   (C) The Mic|
00000040  72 6f 20 55 73 65 72 0d  00 28 06 20 3a 0d 00 32  |ro User..(. :..2|
00000050  13 20 e7 20 90 3c 3e 26  32 31 30 30 20 8c 20 e0  |. . .<>&2100 . .|
00000060  0d 00 3c 06 20 3a 0d 00  46 1c 20 e7 20 41 25 3d  |..<. :..F. . A%=|
00000070  30 20 8c 20 eb 20 33 3a  f2 66 69 72 73 74 5f 72  |0 . . 3:.first_r|
00000080  75 6e 0d 00 50 19 20 e7  20 41 25 3d 31 20 8c 20  |un..P. . A%=1 . |
00000090  f2 73 65 63 6f 6e 64 5f  72 75 6e 0d 00 5a 06 20  |.second_run..Z. |
000000a0  e0 0d 00 64 06 20 3a 0d  00 6e 10 20 dd f2 66 69  |...d. :..n. ..fi|
000000b0  72 73 74 5f 72 75 6e 0d  00 78 14 20 2a 4c 4f 41  |rst_run..x. *LOA|
000000c0  44 20 22 44 45 53 4b 2d  4d 43 22 0d 00 82 12 20  |D "DESK-MC".... |
000000d0  f2 6d 63 5f 76 61 72 69  61 62 6c 65 73 0d 00 8c  |.mc_variables...|
000000e0  0e 20 d6 20 64 65 73 6b  74 6f 70 0d 00 96 09 20  |. . desktop.... |
000000f0  41 25 3d 31 0d 00 a0 21  20 e7 20 3f 69 63 6f 6e  |A%=1...! . ?icon|
00000100  3d 31 20 8c 20 f2 6c 6f  61 64 5f 63 61 6c 63 75  |=1 . .load_calcu|
00000110  6c 61 74 6f 72 0d 00 aa  1f 20 e7 20 3f 69 63 6f  |lator.... . ?ico|
00000120  6e 3d 32 20 8c 20 f2 6c  6f 61 64 5f 63 61 6c 65  |n=2 . .load_cale|
00000130  6e 64 61 72 0d 00 b4 06  20 e1 0d 00 be 06 20 3a  |ndar.... ..... :|
00000140  0d 00 c8 11 20 dd f2 73  65 63 6f 6e 64 5f 72 75  |.... ..second_ru|
00000150  6e 0d 00 d2 12 20 f2 6d  63 5f 76 61 72 69 61 62  |n.... .mc_variab|
00000160  6c 65 73 0d 00 dc 09 20  2a 46 58 33 0d 00 e6 13  |les.... *FX3....|
00000170  20 d6 20 64 65 73 6b 74  6f 70 5f 6c 6f 6f 70 0d  | . desktop_loop.|
00000180  00 f0 21 20 e7 20 3f 69  63 6f 6e 3d 31 20 8c 20  |..! . ?icon=1 . |
00000190  f2 6c 6f 61 64 5f 63 61  6c 63 75 6c 61 74 6f 72  |.load_calculator|
000001a0  0d 00 fa 1f 20 e7 20 3f  69 63 6f 6e 3d 32 20 8c  |.... . ?icon=2 .|
000001b0  20 f2 6c 6f 61 64 5f 63  61 6c 65 6e 64 61 72 0d  | .load_calendar.|
000001c0  01 04 06 20 e1 0d 01 0e  06 20 3a 0d 01 18 16 20  |... ..... :.... |
000001d0  dd f2 6c 6f 61 64 5f 63  61 6c 63 75 6c 61 74 6f  |..load_calculato|
000001e0  72 0d 01 22 0b 20 2a 46  58 33 2c 36 0d 01 2c 14  |r..". *FX3,6..,.|
000001f0  20 2a 4c 4f 41 44 20 22  43 41 4c 43 2d 4d 43 22  | *LOAD "CALC-MC"|
00000200  0d 01 36 10 20 d7 20 22  43 41 4c 43 2d 42 41 22  |..6. . "CALC-BA"|
00000210  0d 01 40 06 20 e1 0d 01  4a 06 20 3a 0d 01 54 14  |..@. ...J. :..T.|
00000220  20 dd f2 6c 6f 61 64 5f  63 61 6c 65 6e 64 61 72  | ..load_calendar|
00000230  0d 01 5e 0b 20 2a 46 58  33 2c 36 0d 01 68 14 20  |..^. *FX3,6..h. |
00000240  2a 4c 4f 41 44 20 22 43  41 4c 45 2d 4d 43 22 0d  |*LOAD "CALE-MC".|
00000250  01 72 10 20 d7 20 22 43  41 4c 45 2d 42 41 22 0d  |.r. . "CALE-BA".|
00000260  01 7c 06 20 e1 0d 01 86  06 20 3a 0d 01 90 13 20  |.|. ..... :.... |
00000270  dd f2 6d 63 5f 76 61 72  69 61 62 6c 65 73 0d 01  |..mc_variables..|
00000280  9a 12 20 64 65 73 6b 74  6f 70 3d 26 31 44 37 41  |.. desktop=&1D7A|
00000290  0d 01 a4 17 20 64 65 73  6b 74 6f 70 5f 6c 6f 6f  |.... desktop_loo|
000002a0  70 3d 26 31 44 39 32 0d  01 ae 0d 20 69 63 6f 6e  |p=&1D92.... icon|
000002b0  3d 26 36 33 0d 01 b8 06  20 e1 0d ff              |=&63.... ...|
000002bc

© Dominic Ford 2021–2025.

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