!AWMar94/Goodies/yass/!Yass2/Savers/Time

Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199403_2.adf » Disk2Mar94 » !AWMar94/Goodies/yass/!Yass2/Savers/Time

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 » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199403_2.adf » Disk2Mar94
Filename:	!AWMar94/Goodies/yass/!Yass2/Savers/Time
Read OK:	✔
File size:	02B2 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM Time
   20
   30DEFFNtime_start
   40tim_t%=FNmalloc(24)
   50SYS "Font_FindFont",,"Trinity.Medium",256,256,0,0 TO tim_f%
   60tim_t$="":PROCclearscreen(-1)
   70=0
   80
   90DEFFNtime_poll
  100LOCAL A%,T$
  110T$=MID$(TIME$,17,8)
  120IF T$<>tim_t$ THEN
  130  PROCclearscreen(0)
  140  tim_t$=T$:A%=RND(91)-46:!tim_t%=COSRAD(A%)*&10000:tim_t%!4=SINRAD(A%)*&10000
  150  tim_t%!8=-SINRAD(A%)*&10000:tim_t%!12=COSRAD(A%)*&10000:tim_t%!16=1<<16
  160  tim_t%!20=0:SYS "ColourTrans_SetFontColours",0,0,&FFFFFF00,14
  170  T$=MID$(TIME$,17,8)
  180  SYS "Font_Paint",tim_f%,tim_t$,%0111000000,400*(RND(max_x%-256)),400*(RND(max_y%-256)),,tim_t%,LEN(tim_t$)
  190  tim_p%=1
  220ENDIF
  221IF now_going%>12000 THEN =TRUE
  230=1
  240
  250DEFFNtime_stop
  260SYS "Font_LoseFont",tim_f%:PROCfree(tim_t%)
  270=0
  280



� Time

ݤtime_start
(tim_t%=�malloc(24)
2=ș "Font_FindFont",,"Trinity.Medium",256,256,0,0 � tim_f%
<tim_t$="":�clearscreen(-1)
F=0
P
Zݤtime_poll
d� A%,T$
nT$=��$,17,8)
x� T$<>tim_t$ �
�  �clearscreen(0)
�H  tim_t$=T$:A%=�(91)-46:!tim_t%=��(A%)*&10000:tim_t%!4=��(A%)*&10000
�E  tim_t%!8=-��(A%)*&10000:tim_t%!12=��(A%)*&10000:tim_t%!16=1<<16
�B  tim_t%!20=0:ș "ColourTrans_SetFontColours",0,0,&FFFFFF00,14
�  T$=��$,17,8)
�i  ș "Font_Paint",tim_f%,tim_t$,%0111000000,400*(�(max_x%-256)),400*(�(max_y%-256)),,tim_t%,�(tim_t$)
�  tim_p%=1
��
�� now_going%>12000 � =�
�=1
�
�ݤtime_stop
+ș "Font_LoseFont",tim_f%:�free(tim_t%)
=0

�

00000000  0d 00 0a 0a f4 20 54 69  6d 65 0d 00 14 04 0d 00  |..... Time......|
00000010  1e 10 dd a4 74 69 6d 65  5f 73 74 61 72 74 0d 00  |....time_start..|
00000020  28 16 74 69 6d 5f 74 25  3d a4 6d 61 6c 6c 6f 63  |(.tim_t%=.malloc|
00000030  28 32 34 29 0d 00 32 3d  c8 99 20 22 46 6f 6e 74  |(24)..2=.. "Font|
00000040  5f 46 69 6e 64 46 6f 6e  74 22 2c 2c 22 54 72 69  |_FindFont",,"Tri|
00000050  6e 69 74 79 2e 4d 65 64  69 75 6d 22 2c 32 35 36  |nity.Medium",256|
00000060  2c 32 35 36 2c 30 2c 30  20 b8 20 74 69 6d 5f 66  |,256,0,0 . tim_f|
00000070  25 0d 00 3c 1e 74 69 6d  5f 74 24 3d 22 22 3a f2  |%..<.tim_t$="":.|
00000080  63 6c 65 61 72 73 63 72  65 65 6e 28 2d 31 29 0d  |clearscreen(-1).|
00000090  00 46 06 3d 30 0d 00 50  04 0d 00 5a 0f dd a4 74  |.F.=0..P...Z...t|
000000a0  69 6d 65 5f 70 6f 6c 6c  0d 00 64 0b ea 20 41 25  |ime_poll..d.. A%|
000000b0  2c 54 24 0d 00 6e 10 54  24 3d c1 91 24 2c 31 37  |,T$..n.T$=..$,17|
000000c0  2c 38 29 0d 00 78 12 e7  20 54 24 3c 3e 74 69 6d  |,8)..x.. T$<>tim|
000000d0  5f 74 24 20 8c 0d 00 82  15 20 20 f2 63 6c 65 61  |_t$ .....  .clea|
000000e0  72 73 63 72 65 65 6e 28  30 29 0d 00 8c 48 20 20  |rscreen(0)...H  |
000000f0  74 69 6d 5f 74 24 3d 54  24 3a 41 25 3d b3 28 39  |tim_t$=T$:A%=.(9|
00000100  31 29 2d 34 36 3a 21 74  69 6d 5f 74 25 3d 9b b2  |1)-46:!tim_t%=..|
00000110  28 41 25 29 2a 26 31 30  30 30 30 3a 74 69 6d 5f  |(A%)*&10000:tim_|
00000120  74 25 21 34 3d b5 b2 28  41 25 29 2a 26 31 30 30  |t%!4=..(A%)*&100|
00000130  30 30 0d 00 96 45 20 20  74 69 6d 5f 74 25 21 38  |00...E  tim_t%!8|
00000140  3d 2d b5 b2 28 41 25 29  2a 26 31 30 30 30 30 3a  |=-..(A%)*&10000:|
00000150  74 69 6d 5f 74 25 21 31  32 3d 9b b2 28 41 25 29  |tim_t%!12=..(A%)|
00000160  2a 26 31 30 30 30 30 3a  74 69 6d 5f 74 25 21 31  |*&10000:tim_t%!1|
00000170  36 3d 31 3c 3c 31 36 0d  00 a0 42 20 20 74 69 6d  |6=1<<16...B  tim|
00000180  5f 74 25 21 32 30 3d 30  3a c8 99 20 22 43 6f 6c  |_t%!20=0:.. "Col|
00000190  6f 75 72 54 72 61 6e 73  5f 53 65 74 46 6f 6e 74  |ourTrans_SetFont|
000001a0  43 6f 6c 6f 75 72 73 22  2c 30 2c 30 2c 26 46 46  |Colours",0,0,&FF|
000001b0  46 46 46 46 30 30 2c 31  34 0d 00 aa 12 20 20 54  |FFFF00,14....  T|
000001c0  24 3d c1 91 24 2c 31 37  2c 38 29 0d 00 b4 69 20  |$=..$,17,8)...i |
000001d0  20 c8 99 20 22 46 6f 6e  74 5f 50 61 69 6e 74 22  | .. "Font_Paint"|
000001e0  2c 74 69 6d 5f 66 25 2c  74 69 6d 5f 74 24 2c 25  |,tim_f%,tim_t$,%|
000001f0  30 31 31 31 30 30 30 30  30 30 2c 34 30 30 2a 28  |0111000000,400*(|
00000200  b3 28 6d 61 78 5f 78 25  2d 32 35 36 29 29 2c 34  |.(max_x%-256)),4|
00000210  30 30 2a 28 b3 28 6d 61  78 5f 79 25 2d 32 35 36  |00*(.(max_y%-256|
00000220  29 29 2c 2c 74 69 6d 5f  74 25 2c a9 28 74 69 6d  |)),,tim_t%,.(tim|
00000230  5f 74 24 29 0d 00 be 0e  20 20 74 69 6d 5f 70 25  |_t$)....  tim_p%|
00000240  3d 31 0d 00 dc 05 cd 0d  00 dd 1b e7 20 6e 6f 77  |=1.......... now|
00000250  5f 67 6f 69 6e 67 25 3e  31 32 30 30 30 20 8c 20  |_going%>12000 . |
00000260  3d b9 0d 00 e6 06 3d 31  0d 00 f0 04 0d 00 fa 0f  |=.....=1........|
00000270  dd a4 74 69 6d 65 5f 73  74 6f 70 0d 01 04 2b c8  |..time_stop...+.|
00000280  99 20 22 46 6f 6e 74 5f  4c 6f 73 65 46 6f 6e 74  |. "Font_LoseFont|
00000290  22 2c 74 69 6d 5f 66 25  3a f2 66 72 65 65 28 74  |",tim_f%:.free(t|
000002a0  69 6d 5f 74 25 29 0d 01  0e 06 3d 30 0d 01 18 04  |im_t%)....=0....|
000002b0  0d ff                                             |..|
000002b2

Our privacy policy is here.
Last updated: 10 Jun 2024, 13:20 UTC
Website designed by .