Duplicates

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

• Personal collection » Acorn ADFS disks » Electron » Programs_B.ADF » Graphics/PicDraw
• Personal collection » Acorn ADFS disks » Electron » Programs.ADF » Graphics/PicDraw
• Personal collection » Acorn ADFS disks » Electron » Programs_V2.ADF » Graphics/PicDraw
• Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Programs.adf » Graphics/PicDraw
• Personal collection » Acorn hard disk » misc » misc2 » dcfprogs/Graphics/PicDraw
• Personal collection » Acorn hard disk » misc » misc3 » dcfprog3/Graphics/PicDraw
• Personal collection » Acorn tapes » Own_Work » drawer_tl_tape04a_c15_acorn_henry1.wav » PICDRAW

File contents

• BASIC
• Preview
• Hex Dump

   10MODE6:PRINT:PRINT "Acorn Electron"
   20DIMd%(39,28)
   30INPUT"Time Hours(24 HOUR)";h
   40IFh>23 THEN PRINT"Silly":GOTO30
   50INPUT"Time Minutes";m
   60IFm>59 THEN PRINT"Silly":GOTO50
   70INPUT"Time Seconds";s
   80IFs>60THENPRINT"Silly":GOTO70
   90TIME=s*100+(m*100*60)+(h*100*60*60)
  100INPUT"Alarm Hours(24 HOUR)";ah
  110IFah>23 THENPRINT"Silly":GOTO100
  120INPUT"Alarm Minutes";am
  130IFam>60 THEN PRINT"Silly":GOTO120
  140INPUT"Alarm Seconds";as
  150IFas>60 THEN PRINT"Silly":GOTO140
  160a=as*100+(am*100*60)+(ah*100*60*60)
  170CLS:PRINT:PRINT "Acorn Electron"
  180PRINT:PRINT"ASCII CODE":PRINT
  190PRINT"BASIC ASCII":PRINT
  200PRINT"1>";:INPUTasc$
  210IF TIME>a-1000 THENIF TIME<a-1000THENPROCalarm
  220IFTIME>8640000 THEN TIME=TIME-8640000
  230IFasc$="*P."THENPROCdump
  240IFasc$="*Sc"THENPROCscreen
  250IFasc$="Cle"THENPROCclear
  260IFasc$="Pok"THENPROCpoke
  270IFasc$="Rec"THENPROCrectangle
  280IFasc$="Sav"THENPROCsave
  290IFasc$="Lod"THENPROCLoad
  300GOTO200
  310DEFPROCalarm
  320FORlo=1 TO 5:VDU7:FORlo2=1TO500
  330NEXT,:ENDPROC

�6:�:� "Acorn Electron"
�d%(39,28)
�"Time Hours(24 HOUR)";h
(�h>23 � �"Silly":�T^@
2�"Time Minutes";m
<�m>59 � �"Silly":�Tr@
F�"Time Seconds";s
P�s>60��"Silly":�DF@
Z$�=s*100+(m*100*60)+(h*100*60*60)
d�"Alarm Hours(24 HOUR)";ah
n�ah>23 ��"Silly":�Dd@
x�"Alarm Minutes";am
��am>60 � �"Silly":�Dx@
��"Alarm Seconds";as
��as>60 � �"Silly":�tL@
�'a=as*100+(am*100*60)+(ah*100*60*60)
��:�:� "Acorn Electron"
��:�"ASCII CODE":�
��"BASIC ASCII":�
��"1>";:�asc$
�!� �>a-1000 �� �<a-1000��alarm
��>8640000 � �=�-8640000
��asc$="*P."��dump
��asc$="*Sc"��screen
��asc$="Cle"��clear

�asc$="Pok"��poke

�asc$="Rec"��rectangle

�asc$="Sav"��save

"�asc$="Lod"��Load

,	�dH@

6��alarm

@�lo=1 � 5:�7:�lo2=1�500

J�,:�
�

00000000  0d 00 0a 1b eb 36 3a f1  3a f1 20 22 41 63 6f 72  |.....6:.:. "Acor|
00000010  6e 20 45 6c 65 63 74 72  6f 6e 22 0d 00 14 0e de  |n Electron".....|
00000020  64 25 28 33 39 2c 32 38  29 0d 00 1e 1c e8 22 54  |d%(39,28)....."T|
00000030  69 6d 65 20 48 6f 75 72  73 28 32 34 20 48 4f 55  |ime Hours(24 HOU|
00000040  52 29 22 3b 68 0d 00 28  1a e7 68 3e 32 33 20 8c  |R)";h..(..h>23 .|
00000050  20 f1 22 53 69 6c 6c 79  22 3a e5 8d 54 5e 40 0d  | ."Silly":..T^@.|
00000060  00 32 15 e8 22 54 69 6d  65 20 4d 69 6e 75 74 65  |.2.."Time Minute|
00000070  73 22 3b 6d 0d 00 3c 1a  e7 6d 3e 35 39 20 8c 20  |s";m..<..m>59 . |
00000080  f1 22 53 69 6c 6c 79 22  3a e5 8d 54 72 40 0d 00  |."Silly":..Tr@..|
00000090  46 15 e8 22 54 69 6d 65  20 53 65 63 6f 6e 64 73  |F.."Time Seconds|
000000a0  22 3b 73 0d 00 50 18 e7  73 3e 36 30 8c f1 22 53  |";s..P..s>60.."S|
000000b0  69 6c 6c 79 22 3a e5 8d  44 46 40 0d 00 5a 24 d1  |illy":..DF@..Z$.|
000000c0  3d 73 2a 31 30 30 2b 28  6d 2a 31 30 30 2a 36 30  |=s*100+(m*100*60|
000000d0  29 2b 28 68 2a 31 30 30  2a 36 30 2a 36 30 29 0d  |)+(h*100*60*60).|
000000e0  00 64 1e e8 22 41 6c 61  72 6d 20 48 6f 75 72 73  |.d.."Alarm Hours|
000000f0  28 32 34 20 48 4f 55 52  29 22 3b 61 68 0d 00 6e  |(24 HOUR)";ah..n|
00000100  1a e7 61 68 3e 32 33 20  8c f1 22 53 69 6c 6c 79  |..ah>23 .."Silly|
00000110  22 3a e5 8d 44 64 40 0d  00 78 17 e8 22 41 6c 61  |":..Dd@..x.."Ala|
00000120  72 6d 20 4d 69 6e 75 74  65 73 22 3b 61 6d 0d 00  |rm Minutes";am..|
00000130  82 1b e7 61 6d 3e 36 30  20 8c 20 f1 22 53 69 6c  |...am>60 . ."Sil|
00000140  6c 79 22 3a e5 8d 44 78  40 0d 00 8c 17 e8 22 41  |ly":..Dx@....."A|
00000150  6c 61 72 6d 20 53 65 63  6f 6e 64 73 22 3b 61 73  |larm Seconds";as|
00000160  0d 00 96 1b e7 61 73 3e  36 30 20 8c 20 f1 22 53  |.....as>60 . ."S|
00000170  69 6c 6c 79 22 3a e5 8d  74 4c 40 0d 00 a0 27 61  |illy":..tL@...'a|
00000180  3d 61 73 2a 31 30 30 2b  28 61 6d 2a 31 30 30 2a  |=as*100+(am*100*|
00000190  36 30 29 2b 28 61 68 2a  31 30 30 2a 36 30 2a 36  |60)+(ah*100*60*6|
000001a0  30 29 0d 00 aa 1a db 3a  f1 3a f1 20 22 41 63 6f  |0).....:.:. "Aco|
000001b0  72 6e 20 45 6c 65 63 74  72 6f 6e 22 0d 00 b4 15  |rn Electron"....|
000001c0  f1 3a f1 22 41 53 43 49  49 20 43 4f 44 45 22 3a  |.:."ASCII CODE":|
000001d0  f1 0d 00 be 14 f1 22 42  41 53 49 43 20 41 53 43  |......"BASIC ASC|
000001e0  49 49 22 3a f1 0d 00 c8  10 f1 22 31 3e 22 3b 3a  |II":......"1>";:|
000001f0  e8 61 73 63 24 0d 00 d2  21 e7 20 91 3e 61 2d 31  |.asc$...!. .>a-1|
00000200  30 30 30 20 8c e7 20 91  3c 61 2d 31 30 30 30 8c  |000 .. .<a-1000.|
00000210  f2 61 6c 61 72 6d 0d 00  dc 1c e7 91 3e 38 36 34  |.alarm......>864|
00000220  30 30 30 30 20 8c 20 d1  3d 91 2d 38 36 34 30 30  |0000 . .=.-86400|
00000230  30 30 0d 00 e6 15 e7 61  73 63 24 3d 22 2a 50 2e  |00.....asc$="*P.|
00000240  22 8c f2 64 75 6d 70 0d  00 f0 17 e7 61 73 63 24  |"..dump.....asc$|
00000250  3d 22 2a 53 63 22 8c f2  73 63 72 65 65 6e 0d 00  |="*Sc"..screen..|
00000260  fa 16 e7 61 73 63 24 3d  22 43 6c 65 22 8c f2 63  |...asc$="Cle"..c|
00000270  6c 65 61 72 0d 01 04 15  e7 61 73 63 24 3d 22 50  |lear.....asc$="P|
00000280  6f 6b 22 8c f2 70 6f 6b  65 0d 01 0e 1a e7 61 73  |ok"..poke.....as|
00000290  63 24 3d 22 52 65 63 22  8c f2 72 65 63 74 61 6e  |c$="Rec"..rectan|
000002a0  67 6c 65 0d 01 18 15 e7  61 73 63 24 3d 22 53 61  |gle.....asc$="Sa|
000002b0  76 22 8c f2 73 61 76 65  0d 01 22 15 e7 61 73 63  |v"..save.."..asc|
000002c0  24 3d 22 4c 6f 64 22 8c  f2 4c 6f 61 64 0d 01 2c  |$="Lod"..Load..,|
000002d0  09 e5 8d 64 48 40 0d 01  36 0b dd f2 61 6c 61 72  |...dH@..6...alar|
000002e0  6d 0d 01 40 1b e3 6c 6f  3d 31 20 b8 20 35 3a ef  |m..@..lo=1 . 5:.|
000002f0  37 3a e3 6c 6f 32 3d 31  b8 35 30 30 0d 01 4a 08  |7:.lo2=1.500..J.|
00000300  ed 2c 3a e1 0d ff                                 |.,:...|
00000306