Xmas35/Compile

Home » Personal collection » Acorn ADFS disks » Electron » EUG_submission.ADF » Xmas35/Compile

Xmas35/Compile

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 ADFS disks » Electron » EUG_submission.ADF
Filename:	Xmas35/Compile
Read OK:	✔
File size:	05B9 bytes
Load address:	FFFF1900
Exec address:	FFFF8023

Duplicates

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

Personal collection » Acorn ADFS disks » Electron » EUG_submission.ADF » Xmas35/Compile
Personal collection » Acorn hard disk » misc » misc3 » eug_titles/Xmas35/Compile

File contents

   40 MODE1:HIMEM=&2400:*LO. WORDS 2800
   45 VDU19,3,2,0,0,0,23,64,255,255,255,255,255,255,255,255,23,1,0;0;0;0;
   50 PROCas:GCOL0,3:FORt=1TO4:MOVE400,1000*SIN(1.5+t/3.5):MOVE400-SIN(t/5)*450,1000*SIN(1.5+(t+1.2)/3.5):PLOT85,400+SIN(t/5)*450,1000*SIN(1.5+(t+1.2)/3.5):NEXT
   60 GCOL0,2:FORt=0.1TO2*PI STEP1/3*PI:MOVE400+16*SIN(t+0.5*t),975+16*COS(t+0.5*t):MOVE400-16*SIN(t+0.5*t),975-16*COS(t+0.5*t):PLOT85,400+40*SIN(t),975+40*COS(t):NEXT
   70 GCOL0,1:MOVE360,155:MOVE440,155:PLOT85,360,120:PLOT85,440,120:MOVE300,120:MOVE500,120:PLOT85,325,64:PLOT85,475,64
   80 MOVE0,64:DRAW1280,64:MOVE0,72:DRAW1280,72:GCOL0,0:MOVE0,68:DRAW1280,68
   90 COLOUR1:PRINTTAB(24,3)"@@@ @ @ @@@";TAB(24,4)"@   @ @ @";TAB(24,5)"@@  @ @ @ @";TAB(24,6)"@   @ @ @ @";TAB(24,7)"@@@ @@@ @@@"
  100 PRINTTAB(26,9)"@@@ @@@";TAB(26,10)"  @ @";TAB(26,11)" @@ @@@";TAB(26,12)"  @   @";TAB(26,13)"@@@ @@@":*FX20
  110 PRINTTAB(25,15)"Season' s";TAB(25,17)"greetings";TAB(25,19)"from EUG.";TAB(23,25)"Press <SPACE>"
  200 *SAVE Title2 2400 8000
  210 END
  400 DEFPROCas:FORp=0TO2STEP2:P%=&2400
  401 [OPTp:JMPreads:JMPreadn:JMPclr:JMPhlight:EQUDxpos:EQUDleng
  402 .reads LDY#0:.rslop LDA(&80),Y:INY:CMP#13:BNErslop:STY&70:LDA&80:CLC:ADC&70:STA&80:LDA&81:ADC#0:STA&81:RTS
  403 .readn LDY#0:LDA(&80),Y:PHA:LDA&80:CLC:ADC#1:STA&80:LDA&81:ADC#0:STA&81:PLA:RTS
  410 .clr LDA#&7B:STA&71:LDY#0:STYxpos:STYleng:STY&70:TYA:.loop STA(&70),Y:INY:BNEloop:INC&71:LDX&71:CPX#&80:BNEloop:RTS
  415 .hlight LDY#0:STY&71:LDAxpos:ASLA:ASLA:ASLA:STA&70:ROL&71:ASL&70:ROL&71:LDA&71:CLC:ADC#&7B:STA&71:LDAleng:ASLA:ASLA:ASLA:ASLA:TAY:.hlop DEY:BMIhend:LDA(&70),Y:EOR#&FF:STA(&70),Y:JMPhlop:.hend RTS
  417 .leng EQUB0:.xpos EQUB0
  420 ]:NEXT:ENDPROC

( �1:�=&2400:*LO. WORDS 2800
-F �19,3,2,0,0,0,23,64,255,255,255,255,255,255,255,255,23,1,0;0;0;0;
2� �as:�0,3:�t=1�4:�400,1000*�(1.5+t/3.5):�400-�(t/5)*450,1000*�(1.5+(t+1.2)/3.5):�85,400+�(t/5)*450,1000*�(1.5+(t+1.2)/3.5):�
<� �0,2:�t=0.1�2*� �1/3*�:�400+16*�(t+0.5*t),975+16*�(t+0.5*t):�400-16*�(t+0.5*t),975-16*�(t+0.5*t):�85,400+40*�(t),975+40*�(t):�
F[ �0,1:�360,155:�440,155:�85,360,120:�85,440,120:�300,120:�500,120:�85,325,64:�85,475,64
P6 �0,64:�1280,64:�0,72:�1280,72:�0,0:�0,68:�1280,68
Zj �1:�24,3)"@@@ @ @ @@@";�24,4)"@   @ @ @";�24,5)"@@  @ @ @ @";�24,6)"@   @ @ @ @";�24,7)"@@@ @@@ @@@"
d] �26,9)"@@@ @@@";�26,10)"  @ @";�26,11)" @@ @@@";�26,12)"  @   @";�26,13)"@@@ @@@":*FX20
nU �25,15)"Season' s";�25,17)"greetings";�25,19)"from EUG.";�23,25)"Press <SPACE>"
� *SAVE Title2 2400 8000
� �
� ��as:�p=0�2�2:P%=&2400
�? [OPTp:JMPreads:JMPreadn:JMPclr:JMPhlight:EQUDxpos:EQUDleng
�o .reads LDY#0:.rslop LDA(&80),Y:INY:CMP#13:BNErslop:STY&70:LDA&80:CLC:ADC&70:STA&80:LDA&81:ADC#0:STA&81:RTS
�T .readn LDY#0:LDA(&80),Y:PHA:LDA&80:CLC:ADC#1:STA&80:LDA&81:ADC#0:STA&81:PLA:RTS
�x .clr LDA#&7B:STA&71:LDY#0:STYxpos:STYleng:STY&70:TYA:.loop STA(&70),Y:INY:BNEloop:INC&71:LDX&71:CPX#&80:BNEloop:RTS
�� .hlight LDY#0:STY&71:LDAxpos:ASLA:ASLA:ASLA:STA&70:ROL&71:ASL&70:ROL&71:LDA&71:CLC:ADC#&7B:STA&71:LDAleng:ASLA:ASLA:ASLA:ASLA:TAY:.hlop DEY:BMIhend:LDA(&70),Y:�#&FF:STA(&70),Y:JMPhlop:.hend RTS
� .leng EQUB0:.xpos EQUB0
�
 ]:�:�
�

00000000  0d 00 28 1f 20 eb 31 3a  d3 3d 26 32 34 30 30 3a  |..(. .1:.=&2400:|
00000010  2a 4c 4f 2e 20 57 4f 52  44 53 20 32 38 30 30 0d  |*LO. WORDS 2800.|
00000020  00 2d 46 20 ef 31 39 2c  33 2c 32 2c 30 2c 30 2c  |.-F .19,3,2,0,0,|
00000030  30 2c 32 33 2c 36 34 2c  32 35 35 2c 32 35 35 2c  |0,23,64,255,255,|
00000040  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |255,255,255,255,|
00000050  32 35 35 2c 32 35 35 2c  32 33 2c 31 2c 30 3b 30  |255,255,23,1,0;0|
00000060  3b 30 3b 30 3b 0d 00 32  80 20 f2 61 73 3a e6 30  |;0;0;..2. .as:.0|
00000070  2c 33 3a e3 74 3d 31 b8  34 3a ec 34 30 30 2c 31  |,3:.t=1.4:.400,1|
00000080  30 30 30 2a b5 28 31 2e  35 2b 74 2f 33 2e 35 29  |000*.(1.5+t/3.5)|
00000090  3a ec 34 30 30 2d b5 28  74 2f 35 29 2a 34 35 30  |:.400-.(t/5)*450|
000000a0  2c 31 30 30 30 2a b5 28  31 2e 35 2b 28 74 2b 31  |,1000*.(1.5+(t+1|
000000b0  2e 32 29 2f 33 2e 35 29  3a f0 38 35 2c 34 30 30  |.2)/3.5):.85,400|
000000c0  2b b5 28 74 2f 35 29 2a  34 35 30 2c 31 30 30 30  |+.(t/5)*450,1000|
000000d0  2a b5 28 31 2e 35 2b 28  74 2b 31 2e 32 29 2f 33  |*.(1.5+(t+1.2)/3|
000000e0  2e 35 29 3a ed 0d 00 3c  83 20 e6 30 2c 32 3a e3  |.5):...<. .0,2:.|
000000f0  74 3d 30 2e 31 b8 32 2a  af 20 88 31 2f 33 2a af  |t=0.1.2*. .1/3*.|
00000100  3a ec 34 30 30 2b 31 36  2a b5 28 74 2b 30 2e 35  |:.400+16*.(t+0.5|
00000110  2a 74 29 2c 39 37 35 2b  31 36 2a 9b 28 74 2b 30  |*t),975+16*.(t+0|
00000120  2e 35 2a 74 29 3a ec 34  30 30 2d 31 36 2a b5 28  |.5*t):.400-16*.(|
00000130  74 2b 30 2e 35 2a 74 29  2c 39 37 35 2d 31 36 2a  |t+0.5*t),975-16*|
00000140  9b 28 74 2b 30 2e 35 2a  74 29 3a f0 38 35 2c 34  |.(t+0.5*t):.85,4|
00000150  30 30 2b 34 30 2a b5 28  74 29 2c 39 37 35 2b 34  |00+40*.(t),975+4|
00000160  30 2a 9b 28 74 29 3a ed  0d 00 46 5b 20 e6 30 2c  |0*.(t):...F[ .0,|
00000170  31 3a ec 33 36 30 2c 31  35 35 3a ec 34 34 30 2c  |1:.360,155:.440,|
00000180  31 35 35 3a f0 38 35 2c  33 36 30 2c 31 32 30 3a  |155:.85,360,120:|
00000190  f0 38 35 2c 34 34 30 2c  31 32 30 3a ec 33 30 30  |.85,440,120:.300|
000001a0  2c 31 32 30 3a ec 35 30  30 2c 31 32 30 3a f0 38  |,120:.500,120:.8|
000001b0  35 2c 33 32 35 2c 36 34  3a f0 38 35 2c 34 37 35  |5,325,64:.85,475|
000001c0  2c 36 34 0d 00 50 36 20  ec 30 2c 36 34 3a df 31  |,64..P6 .0,64:.1|
000001d0  32 38 30 2c 36 34 3a ec  30 2c 37 32 3a df 31 32  |280,64:.0,72:.12|
000001e0  38 30 2c 37 32 3a e6 30  2c 30 3a ec 30 2c 36 38  |80,72:.0,0:.0,68|
000001f0  3a df 31 32 38 30 2c 36  38 0d 00 5a 6a 20 fb 31  |:.1280,68..Zj .1|
00000200  3a f1 8a 32 34 2c 33 29  22 40 40 40 20 40 20 40  |:..24,3)"@@@ @ @|
00000210  20 40 40 40 22 3b 8a 32  34 2c 34 29 22 40 20 20  | @@@";.24,4)"@  |
00000220  20 40 20 40 20 40 22 3b  8a 32 34 2c 35 29 22 40  | @ @ @";.24,5)"@|
00000230  40 20 20 40 20 40 20 40  20 40 22 3b 8a 32 34 2c  |@  @ @ @ @";.24,|
00000240  36 29 22 40 20 20 20 40  20 40 20 40 20 40 22 3b  |6)"@   @ @ @ @";|
00000250  8a 32 34 2c 37 29 22 40  40 40 20 40 40 40 20 40  |.24,7)"@@@ @@@ @|
00000260  40 40 22 0d 00 64 5d 20  f1 8a 32 36 2c 39 29 22  |@@"..d] ..26,9)"|
00000270  40 40 40 20 40 40 40 22  3b 8a 32 36 2c 31 30 29  |@@@ @@@";.26,10)|
00000280  22 20 20 40 20 40 22 3b  8a 32 36 2c 31 31 29 22  |"  @ @";.26,11)"|
00000290  20 40 40 20 40 40 40 22  3b 8a 32 36 2c 31 32 29  | @@ @@@";.26,12)|
000002a0  22 20 20 40 20 20 20 40  22 3b 8a 32 36 2c 31 33  |"  @   @";.26,13|
000002b0  29 22 40 40 40 20 40 40  40 22 3a 2a 46 58 32 30  |)"@@@ @@@":*FX20|
000002c0  0d 00 6e 55 20 f1 8a 32  35 2c 31 35 29 22 53 65  |..nU ..25,15)"Se|
000002d0  61 73 6f 6e 27 20 73 22  3b 8a 32 35 2c 31 37 29  |ason' s";.25,17)|
000002e0  22 67 72 65 65 74 69 6e  67 73 22 3b 8a 32 35 2c  |"greetings";.25,|
000002f0  31 39 29 22 66 72 6f 6d  20 45 55 47 2e 22 3b 8a  |19)"from EUG.";.|
00000300  32 33 2c 32 35 29 22 50  72 65 73 73 20 3c 53 50  |23,25)"Press <SP|
00000310  41 43 45 3e 22 0d 00 c8  1b 20 2a 53 41 56 45 20  |ACE>".... *SAVE |
00000320  54 69 74 6c 65 32 20 32  34 30 30 20 38 30 30 30  |Title2 2400 8000|
00000330  0d 00 d2 06 20 e0 0d 01  90 1b 20 dd f2 61 73 3a  |.... ..... ..as:|
00000340  e3 70 3d 30 b8 32 88 32  3a 50 25 3d 26 32 34 30  |.p=0.2.2:P%=&240|
00000350  30 0d 01 91 3f 20 5b 4f  50 54 70 3a 4a 4d 50 72  |0...? [OPTp:JMPr|
00000360  65 61 64 73 3a 4a 4d 50  72 65 61 64 6e 3a 4a 4d  |eads:JMPreadn:JM|
00000370  50 63 6c 72 3a 4a 4d 50  68 6c 69 67 68 74 3a 45  |Pclr:JMPhlight:E|
00000380  51 55 44 78 70 6f 73 3a  45 51 55 44 6c 65 6e 67  |QUDxpos:EQUDleng|
00000390  0d 01 92 6f 20 2e 72 65  61 64 73 20 4c 44 59 23  |...o .reads LDY#|
000003a0  30 3a 2e 72 73 6c 6f 70  20 4c 44 41 28 26 38 30  |0:.rslop LDA(&80|
000003b0  29 2c 59 3a 49 4e 59 3a  43 4d 50 23 31 33 3a 42  |),Y:INY:CMP#13:B|
000003c0  4e 45 72 73 6c 6f 70 3a  53 54 59 26 37 30 3a 4c  |NErslop:STY&70:L|
000003d0  44 41 26 38 30 3a 43 4c  43 3a 41 44 43 26 37 30  |DA&80:CLC:ADC&70|
000003e0  3a 53 54 41 26 38 30 3a  4c 44 41 26 38 31 3a 41  |:STA&80:LDA&81:A|
000003f0  44 43 23 30 3a 53 54 41  26 38 31 3a 52 54 53 0d  |DC#0:STA&81:RTS.|
00000400  01 93 54 20 2e 72 65 61  64 6e 20 4c 44 59 23 30  |..T .readn LDY#0|
00000410  3a 4c 44 41 28 26 38 30  29 2c 59 3a 50 48 41 3a  |:LDA(&80),Y:PHA:|
00000420  4c 44 41 26 38 30 3a 43  4c 43 3a 41 44 43 23 31  |LDA&80:CLC:ADC#1|
00000430  3a 53 54 41 26 38 30 3a  4c 44 41 26 38 31 3a 41  |:STA&80:LDA&81:A|
00000440  44 43 23 30 3a 53 54 41  26 38 31 3a 50 4c 41 3a  |DC#0:STA&81:PLA:|
00000450  52 54 53 0d 01 9a 78 20  2e 63 6c 72 20 4c 44 41  |RTS...x .clr LDA|
00000460  23 26 37 42 3a 53 54 41  26 37 31 3a 4c 44 59 23  |#&7B:STA&71:LDY#|
00000470  30 3a 53 54 59 78 70 6f  73 3a 53 54 59 6c 65 6e  |0:STYxpos:STYlen|
00000480  67 3a 53 54 59 26 37 30  3a 54 59 41 3a 2e 6c 6f  |g:STY&70:TYA:.lo|
00000490  6f 70 20 53 54 41 28 26  37 30 29 2c 59 3a 49 4e  |op STA(&70),Y:IN|
000004a0  59 3a 42 4e 45 6c 6f 6f  70 3a 49 4e 43 26 37 31  |Y:BNEloop:INC&71|
000004b0  3a 4c 44 58 26 37 31 3a  43 50 58 23 26 38 30 3a  |:LDX&71:CPX#&80:|
000004c0  42 4e 45 6c 6f 6f 70 3a  52 54 53 0d 01 9f c6 20  |BNEloop:RTS.... |
000004d0  2e 68 6c 69 67 68 74 20  4c 44 59 23 30 3a 53 54  |.hlight LDY#0:ST|
000004e0  59 26 37 31 3a 4c 44 41  78 70 6f 73 3a 41 53 4c  |Y&71:LDAxpos:ASL|
000004f0  41 3a 41 53 4c 41 3a 41  53 4c 41 3a 53 54 41 26  |A:ASLA:ASLA:STA&|
00000500  37 30 3a 52 4f 4c 26 37  31 3a 41 53 4c 26 37 30  |70:ROL&71:ASL&70|
00000510  3a 52 4f 4c 26 37 31 3a  4c 44 41 26 37 31 3a 43  |:ROL&71:LDA&71:C|
00000520  4c 43 3a 41 44 43 23 26  37 42 3a 53 54 41 26 37  |LC:ADC#&7B:STA&7|
00000530  31 3a 4c 44 41 6c 65 6e  67 3a 41 53 4c 41 3a 41  |1:LDAleng:ASLA:A|
00000540  53 4c 41 3a 41 53 4c 41  3a 41 53 4c 41 3a 54 41  |SLA:ASLA:ASLA:TA|
00000550  59 3a 2e 68 6c 6f 70 20  44 45 59 3a 42 4d 49 68  |Y:.hlop DEY:BMIh|
00000560  65 6e 64 3a 4c 44 41 28  26 37 30 29 2c 59 3a 82  |end:LDA(&70),Y:.|
00000570  23 26 46 46 3a 53 54 41  28 26 37 30 29 2c 59 3a  |#&FF:STA(&70),Y:|
00000580  4a 4d 50 68 6c 6f 70 3a  2e 68 65 6e 64 20 52 54  |JMPhlop:.hend RT|
00000590  53 0d 01 a1 1c 20 2e 6c  65 6e 67 20 45 51 55 42  |S.... .leng EQUB|
000005a0  30 3a 2e 78 70 6f 73 20  45 51 55 42 30 0d 01 a4  |0:.xpos EQUB0...|
000005b0  0a 20 5d 3a ed 3a e1 0d  ff                       |. ]:.:...|
000005b9

Xmas35/Compile.m0

Xmas35/Compile.m1

Xmas35/Compile.m2

Xmas35/Compile.m4

Xmas35/Compile.m5

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