Home » Personal collection » Acorn tapes » Commercial_Releases » boxed_acornsoft_tape09a_acorn_desk_diary.wav » INDEX

INDEX

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 » Personal collection » Acorn tapes » Commercial_Releases » boxed_acornsoft_tape09a_acorn_desk_diary.wav
Filename: INDEX
Read OK: ✔
File size: 0678 bytes
Load address: 0E00
Exec address: 8023
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
   10REM  ...Desk Diary...
   20 
   30REM      ...Electron Version 1...
   40 
   50REM  Copyright (C) Acornsoft 1984
   60 
   70HIMEM=&6000: CALL PAGE+&4E0
   80ONERRORGOTO110
   90*FX15 1
  100A%=INKEY500
  110MODE6
  120RESTORE
  130READA$
  140PRINTTAB(18-LENA$/2,I%+2)A$
  150I%=1
  160READA$
  170REPEAT
  180PRINTTAB(3,I%*2+6);I%;SPC(5);A$
  190I%=I%+1
  200READA$
  210UNTILA$=""
  220PRINT''"Which program do you want ?";
  230P%=POS
  240V%=VPOS
  250A%=1
  260REPEAT
  270G%=GET-48
  280UNTILG%>=A% AND G%<=I%
  290PRINTTAB(P%,V%);SPC10;TAB(P%,V%);FNNAME(G%);
  300N%=GET
  310IFN%>=A%+48 AND N%<=I%+48 THEN G%=N%-48:GOTO290
  320IFN%<>13 THEN 300
  330PRINT''
  340VDU28,11,22,30,20
  350CHAINFNNAME(G%)
  360END
  370DEF FNNAME(Q%) RESTORE 450
  380LOCALN%,Z$
  390FORN%=1TOQ%
  400READZ$
  410NEXT
  420=Z$
  430DATA "Desk Diary"
  440REM Programs on pack
  450DATAADDRESS,PLANNER
  460DATA""


�  ...Desk Diary...
 
#�      ...Electron Version 1...
( 
2#�  Copyright (C) Acornsoft 1984
< 
F�=&6000: � �+&4E0
P��Dn@
Z*FX15 1
dA%=�500
n�6
x�
��A$
��18-�A$/2,I%+2)A$
�I%=1
��A$
��
��3,I%*2+6);I%;�(5);A$
�I%=I%+1
��A$
�
�A$=""
�%�''"Which program do you want ?";
�P%=�
�V%=�
�A%=1
�
G%=�-48
�G%>=A% � G%<=I%
"#�P%,V%);�10;�P%,V%);�NAME(G%);
,N%=�
6+�N%>=A%+48 � N%<=I%+48 � G%=N%-48:�TbA
@�N%<>13 � �TlA
J�''
T�28,11,22,30,20
^פNAME(G%)
h�
r� �NAME(Q%) � �dBA
|
�N%,Z$
��N%=1�Q%
��Z$
��
�=Z$
�� "Desk Diary"
�� Programs on pack
��ADDRESS,PLANNER
��""
�q ��������qi�q��r� � � {
 ꩑�v '$p0& {



��Desk Diary����Desk Diary�` {

Desk ����������������������������������������������������������������������������������������१�������������������			




	

















�h�������q����l��� �q8�(�q�r��r�c�qeq��ȱqer�����eq����悡�er���}������(1�q8��q�r��r��p���� ���!�p��� �JJJ	� �q ��������qi�q��r� � � {
 ꩑�v '$p0& {



��Desk Diary����Desk Diary�` {

Desk Diary�` 0 � � 6 ��&$p0
�v �� ���  �q$p0	�s��q�s�	� �������$p�  ����v`h�th�u�t��u��t��� ���lt
00000000  0d 00 0a 17 f4 20 20 2e  2e 2e 44 65 73 6b 20 44  |.....  ...Desk D|
00000010  69 61 72 79 2e 2e 2e 0d  00 14 05 20 0d 00 1e 23  |iary....... ...#|
00000020  f4 20 20 20 20 20 20 2e  2e 2e 45 6c 65 63 74 72  |.      ...Electr|
00000030  6f 6e 20 56 65 72 73 69  6f 6e 20 31 2e 2e 2e 0d  |on Version 1....|
00000040  00 28 05 20 0d 00 32 23  f4 20 20 43 6f 70 79 72  |.(. ..2#.  Copyr|
00000050  69 67 68 74 20 28 43 29  20 41 63 6f 72 6e 73 6f  |ight (C) Acornso|
00000060  66 74 20 31 39 38 34 0d  00 3c 05 20 0d 00 46 15  |ft 1984..<. ..F.|
00000070  d3 3d 26 36 30 30 30 3a  20 d6 20 90 2b 26 34 45  |.=&6000: . .+&4E|
00000080  30 0d 00 50 0b ee 85 e5  8d 44 6e 40 0d 00 5a 0b  |0..P.....Dn@..Z.|
00000090  2a 46 58 31 35 20 31 0d  00 64 0b 41 25 3d a6 35  |*FX15 1..d.A%=.5|
000000a0  30 30 0d 00 6e 06 eb 36  0d 00 78 05 f7 0d 00 82  |00..n..6..x.....|
000000b0  07 f3 41 24 0d 00 8c 16  f1 8a 31 38 2d a9 41 24  |..A$......18-.A$|
000000c0  2f 32 2c 49 25 2b 32 29  41 24 0d 00 96 08 49 25  |/2,I%+2)A$....I%|
000000d0  3d 31 0d 00 a0 07 f3 41  24 0d 00 aa 05 f5 0d 00  |=1.....A$.......|
000000e0  b4 1a f1 8a 33 2c 49 25  2a 32 2b 36 29 3b 49 25  |....3,I%*2+6);I%|
000000f0  3b 89 28 35 29 3b 41 24  0d 00 be 0b 49 25 3d 49  |;.(5);A$....I%=I|
00000100  25 2b 31 0d 00 c8 07 f3  41 24 0d 00 d2 0a fd 41  |%+1.....A$.....A|
00000110  24 3d 22 22 0d 00 dc 25  f1 27 27 22 57 68 69 63  |$=""...%.''"Whic|
00000120  68 20 70 72 6f 67 72 61  6d 20 64 6f 20 79 6f 75  |h program do you|
00000130  20 77 61 6e 74 20 3f 22  3b 0d 00 e6 08 50 25 3d  | want ?";....P%=|
00000140  b1 0d 00 f0 08 56 25 3d  bc 0d 00 fa 08 41 25 3d  |.....V%=.....A%=|
00000150  31 0d 01 04 05 f5 0d 01  0e 0b 47 25 3d a5 2d 34  |1.........G%=.-4|
00000160  38 0d 01 18 14 fd 47 25  3e 3d 41 25 20 80 20 47  |8.....G%>=A% . G|
00000170  25 3c 3d 49 25 0d 01 22  23 f1 8a 50 25 2c 56 25  |%<=I%.."#..P%,V%|
00000180  29 3b 89 31 30 3b 8a 50  25 2c 56 25 29 3b a4 4e  |);.10;.P%,V%);.N|
00000190  41 4d 45 28 47 25 29 3b  0d 01 2c 08 4e 25 3d a5  |AME(G%);..,.N%=.|
000001a0  0d 01 36 2b e7 4e 25 3e  3d 41 25 2b 34 38 20 80  |..6+.N%>=A%+48 .|
000001b0  20 4e 25 3c 3d 49 25 2b  34 38 20 8c 20 47 25 3d  | N%<=I%+48 . G%=|
000001c0  4e 25 2d 34 38 3a e5 8d  54 62 41 0d 01 40 12 e7  |N%-48:..TbA..@..|
000001d0  4e 25 3c 3e 31 33 20 8c  20 8d 54 6c 41 0d 01 4a  |N%<>13 . .TlA..J|
000001e0  07 f1 27 27 0d 01 54 13  ef 32 38 2c 31 31 2c 32  |..''..T..28,11,2|
000001f0  32 2c 33 30 2c 32 30 0d  01 5e 0e d7 a4 4e 41 4d  |2,30,20..^...NAM|
00000200  45 28 47 25 29 0d 01 68  05 e0 0d 01 72 16 dd 20  |E(G%)..h....r.. |
00000210  a4 4e 41 4d 45 28 51 25  29 20 f7 20 8d 64 42 41  |.NAME(Q%) . .dBA|
00000220  0d 01 7c 0a ea 4e 25 2c  5a 24 0d 01 86 0c e3 4e  |..|..N%,Z$.....N|
00000230  25 3d 31 b8 51 25 0d 01  90 07 f3 5a 24 0d 01 9a  |%=1.Q%.....Z$...|
00000240  05 ed 0d 01 a4 07 3d 5a  24 0d 01 ae 12 dc 20 22  |......=Z$..... "|
00000250  44 65 73 6b 20 44 69 61  72 79 22 0d 01 b8 16 f4  |Desk Diary".....|
00000260  20 50 72 6f 67 72 61 6d  73 20 6f 6e 20 70 61 63  | Programs on pac|
00000270  6b 0d 01 c2 14 dc 41 44  44 52 45 53 53 2c 50 4c  |k.....ADDRESS,PL|
00000280  41 4e 4e 45 52 0d 01 cc  07 dc 22 22 0d ff 71 20  |ANNER.....""..q |
00000290  ee ff c8 ca 10 f7 c0 e0  d0 e3 a5 71 18 69 e0 85  |...........q.i..|
000002a0  71 90 02 e6 72 a9 16 20  ee ff a9 07 20 ee ff 20  |q...r.. .... .. |
000002b0  7b 01 17 00 0a 20 00 00  00 00 00 00 ea a9 91 85  |{.... ..........|
000002c0  76 20 27 01 24 70 30 26  20 7b 01 1c 0d 0d 1a 0a  |v '.$p0& {......|
000002d0  0c 0a 87 8d 44 65 73 6b  20 44 69 61 72 79 8c 92  |....Desk Diary..|
000002e0  87 8d 44 65 73 6b 20 44  69 61 72 79 ea 60 20 7b  |..Desk Diary.` {|
000002f0  01 1c 0d 0c 1a 0a 0c 1a  1f 0f 0b 44 65 73 6b 20  |...........Desk |
00000300  00 00 00 00 00 00 00 00  e0 e0 00 00 00 00 00 00  |................|
00000310  0e 0e 00 00 00 00 00 00  00 00 00 00 00 00 0e 0e  |................|
00000320  e0 e0 00 e0 e0 00 00 00  ee ee 00 e0 e0 00 00 00  |................|
00000330  ee ee 00 0e 0e 00 00 00  00 00 00 00 00 00 e0 e0  |................|
00000340  e0 e0 00 00 00 00 e0 e0  00 00 00 e0 e0 00 e0 e0  |................|
00000350  e0 e0 00 e0 e0 00 e0 e0  ee ee 00 e0 e0 00 e0 e0  |................|
00000360  ee ee 00 ee ee 00 e0 e0  ee ee 00 00 00 00 00 00  |................|
00000370  00 00 00 0e 0e 00 0e 0e  0e 0e 00 0e 0e 00 0e 0e  |................|
00000380  ee ee 00 0e 0e 00 0e 0e  ee ee 00 ee ee 00 0e 0e  |................|
00000390  00 00 00 00 00 00 ee ee  ee ee 00 00 00 00 ee ee  |................|
000003a0  00 00 00 e0 e0 00 ee ee  e0 e0 00 e0 e0 00 ee ee  |................|
000003b0  00 00 00 0e 0e 00 ee ee  0e 0e 00 0e 0e 00 ee ee  |................|
000003c0  00 00 00 ee ee 00 ee ee  e0 e0 00 ee ee 00 ee ee  |................|
000003d0  0e 0e 00 ee ee 00 ee ee  ee ee 00 ee ee 00 ee ee  |................|
000003e0  a0 a1 a2 e0 a5 a7 ab b0  b1 b4 b5 b7 bf a3 e8 ea  |................|
000003f0  eb ef f0 f3 f4 f5 f8 fa  fc fd fe ff 00 00 00 18  |................|
00000400  09 03 18 18 07 00 16 18  14 00 18 18 18 07 0e 14  |................|
00000410  00 0e 09 16 18 18 07 00  1a 1b 09 00 18 18 18 18  |................|
00000420  18 18 00 00 17 1b 0a 1b  05 06 1b 0f 0c 0d 11 0a  |................|
00000430  1b 0d 10 0a 0f 1b 09 0f  0a 1b 08 06 04 0f 1b 1b  |................|
00000440  1b 00 1b 0d 0d 0d 1b 0d  00 0e 0c 10 0a 1b 00 00  |................|
00000450  00 0f 0a 00 0f 0a 1b 18  1a 04 0f 0c 1b 17 0a 06  |................|
00000460  1b 19 07 1b 1b 1b 1b 0a  1b 1b 1b 00 1b 00 03 1b  |................|
00000470  19 1a 0a 1b 07 03 18 0f  15 00 17 0a 1b 06 19 00  |................|
00000480  0f 0a 10 1b 0a 12 00 10  1b 13 13 13 13 08 1b 00  |................|
00000490  00 00 1b 00 1a 0b 00 0f  0a 06 1b 1b 05 02 11 1b  |................|
000004a0  0c 01 1b 00 10 15 0f 0a  00 11 0a 11 1b 1b 04 11  |................|
000004b0  1b 1b 1b 04 1b 00 00 00  1b 00 00 00 00 00 00 00  |................|
000004c0  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
000004d0  00 00 00 00 00 00 02 0d  00 00 00 00 00 00 00 00  |................|
000004e0  a9 68 8d 00 01 8d 03 01  a9 85 8d 01 01 8d 04 01  |.h..............|
000004f0  a2 71 8e 07 01 8e 02 01  e8 8e 05 01 a9 6c 8d 06  |.q...........l..|
00000500  01 a9 00 8d 08 01 20 00  01 00 a5 71 38 e9 28 85  |...... ....q8.(.|
00000510  71 a5 72 e9 00 85 72 a0  63 b1 71 18 65 71 85 81  |q.r...r.c.q.eq..|
00000520  c8 b1 71 65 72 85 82 a2  00 a1 81 18 65 71 81 81  |..qer.......eq..|
00000530  e6 81 d0 02 e6 82 a1 81  65 72 81 81 c8 c0 7d d0  |........er....}.|
00000540  d8 f0 1a d0 00 e2 00 e9  00 0f 01 28 01 31 01 00  |...........(.1..|
00000550  00 00 00 00 00 00 00 00  00 00 00 00 00 a5 71 38  |..............q8|
00000560  e9 e0 85 71 a5 72 e9 01  85 72 a2 00 86 70 a0 ff  |...q.r...r...p..|
00000570  a9 81 20 f4 ff e0 01 d0  21 c6 70 a0 00 a2 07 a9  |.. .....!.p.....|
00000580  17 20 ee ff 98 4a 4a 4a  09 e0 20 ee ff b1 71 20  |. ...JJJ.. ...q |
00000590  ee ff c8 ca 10 f7 c0 e0  d0 e3 a5 71 18 69 e0 85  |...........q.i..|
000005a0  71 90 02 e6 72 a9 16 20  ee ff a9 07 20 ee ff 20  |q...r.. .... .. |
000005b0  7b 01 17 00 0a 20 00 00  00 00 00 00 ea a9 91 85  |{.... ..........|
000005c0  76 20 27 01 24 70 30 26  20 7b 01 1c 0d 0d 1a 0a  |v '.$p0& {......|
000005d0  0c 0a 87 8d 44 65 73 6b  20 44 69 61 72 79 8c 92  |....Desk Diary..|
000005e0  87 8d 44 65 73 6b 20 44  69 61 72 79 ea 60 20 7b  |..Desk Diary.` {|
000005f0  01 1c 0d 0c 1a 0a 0c 1a  1f 0f 0b 44 65 73 6b 20  |...........Desk |
00000600  44 69 61 72 79 ea 60 20  30 01 20 e7 ff 20 e7 ff  |Diary.` 0. .. ..|
00000610  20 36 01 20 e7 ff a0 1c  a2 26 24 70 30 0d a5 76  | 6. .....&$p0..v|
00000620  20 ee ff a9 9a 20 ee ff  18 90 05 a9 20 20 ee ff  | .... ......  ..|
00000630  b1 71 24 70 30 09 84 73  a8 b1 71 a4 73 d0 02 09  |.q$p0..s..q.s...|
00000640  e0 20 ee ff c8 c0 ff f0  0f ca d0 e4 24 70 10 05  |. ..........$p..|
00000650  a9 20 20 ee ff 18 90 c0  e6 76 60 68 85 74 68 85  |.  ......v`h.th.|
00000660  75 e6 74 d0 02 e6 75 a0  00 b1 74 c9 ea f0 06 20  |u.t...u...t.... |
00000670  ee ff 18 90 ec 6c 74 00                           |.....lt.|
00000678
INDEX.m0
INDEX.m1
INDEX.m2
INDEX.m4
INDEX.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .