Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_35.ADF » TITLE
TITLE
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_User_Group » EUG_35.ADF |
Filename: | TITLE |
Read OK: | ✔ |
File size: | 0FD5 bytes |
Load address: | FFFF0E00 |
Exec address: | FFFF802B |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_35.ADF » TITLE
- Personal collection » Acorn hard disk » zipped_disks » elk03 » eug35/TITLE
File contents
10REM SCREENS 20MODE6 30PRINT" ATTENTION ALL EUG MEMBERS.":PRINT:PRINT" TWO EXCELLENT SCREENS HAVE BEEN SENT":PRINT:PRINT" IN FOR EUG35":PRINT:PRINT" ONE FROM RICHARD DIMOND,":PRINT:PRINT" THE OTHER FROM ROBERT SPROWSON" 35PRINT:PRINT" SINCE BOTH ARE RATHER SEASONAL IT WILL":PRINT:PRINT" BE SAD TO KEEP EITHER FOR NEXT YEAR" 40PRINT:PRINT:PRINT"SELECT YOUR OPTION":PRINT"1.........RICHARD'S SCREEN":PRINT:PRINT"2.........ROBERT'S SCREEN":PRINT:PRINT"SPACE.....SKIP THIS AND GOTO THE MENU":PRINT" (and miss all the fun)" 50A=GET 60IF A=49 GOTO 100 70IF A=50 GOTO 1000 80IF A= 32 CHAIN"MENU" 100REM SCREEN BY Richard Dimond 110ONERRORMODE6:OSCLI"FX13,4":END 120MODE2:VDU23,1,0;0;0;0; 130VDU23,236,2,7,7,2,0,0,0,0 140VDU28,0,31,79,31 150*LOAD SCREEN1 160PROCstoredata:PROCassemble 170PROCmove 180REPEATUNTILINKEY-99 190MODE6 200IFINKEY-256<>1 ?&220=&AA ELSE?&220=&A2 210?&221=&FF 220MODE6 230CHAIN"MENU" 240END 250DEFPROCmove 260YG%=104 270REPEAT 280FORN%=1TO15 290FORC2%=8TO15 300IFINKEY-99 ENDPROC 310C3%=C2%-1:IFC2%=8 C3%=15 320VDU19,C2%,7,0,0,0,19,C3%,6,0,0,0 330change%=RND(2)+3 340VDU19,change%,RND(7),0,0,0 350IFYG%>135 YG%=104 360VDU5,18,0,7,25,4,RND(1319)-40;YG%;236 370IF?&FFFF=&DB d%=650 ELSEd%=150 380FORD%=0TOd%:NEXT 390sound%=INKEY(15) 400IFsound%=81 THEN *FX13,4 410IFsound%=83 THEN *FX14,4 420NEXT:NEXT 430YG%=YG%+16 440UNTILINKEY-99 450ENDPROC 460DEFPROCstoredata 470RESTORE880 480?&70=144:FORI%=144TO1STEP-1:READJ%:I%?&A00=J%:NEXT 490ENDPROC 500DEFPROCassemble 510pointer=&70:sound=&71:!sound=1:sound!2=-15:osword=&FFF1:osbyte=&FFF4 520?&220=&00:?&221=&09 530FORpass=0TO2STEP2 540P%=&900 550[OPTpass 560PHP:PHA 570TXA:PHA 580TYA:PHA 590LDA#&80 600LDX#&FA 610LDY#&FF 620JSRosbyte 630CPX#10 640BMIend 650LDYpointer 660LDA&A00,Y 670STAsound+4 680DEY 690LDA&A00,Y 700STAsound+6 710LDA#7 720LDX#sound MOD256 730LDY#sound DIV256 740JSRosword 750DECpointer 760DECpointer 770BNEend 780LDA#144:STApointer 790.end 800PLA:TAY 810PLA:TAX 820PLA:PLP 830RTS 840] 850NEXT 860*FX14,4 870ENDPROC 880DATA 176,4,168,4,164,4,156,4,148,4,144,4,168,4,176,4,156,4,164,4,144,4,148,4,168,4,156,4,176,4,144,4,164,4,148,4,156,4,168,4,144,4,176,4,148,4,164,4,156,4,144,4,168,4,148,4,176,4,164,4,144,4,156,4,148,4,168,4,176,4,164,4,144,4,148,4 890DATA 164,4,168,4,176,4,148,4,144,4,164,4,156,4,176,4,168,4,148,4,164,4,144,4,176,4,156,4,168,4,164,4,148,4,176,4,144,4,168,4,156,4,164,4,176,4,148,4,168,4,144,4,156,4,176,4,164,4,168,4,148,4,156,4,144,4,176,4 1000 REM Swirly Xmas EUG 35 1010 REM by Dominic Ford 1020 : 1030 ON ERROR GOTO 1110 1040 MODE2:HIMEM=&2C00 1050IFINKEY-256<>1 ?&220=&AA ELSE?&220=&A2 1060?&221=&FF 1070 VDU23,1,0;0;0;0;:PROCass 1080 FORr=0TO15:VDU19,r,0,0,0,0,0:NEXT 1090 *LO. SCREEN2 1100 CALLswirl 1110 CHAIN"MENU" 1120 : 1130 DEFPROCass 1140 osbyte=&FFF4:osword=&FFF1 1150 FORpass=0TO2STEP2:P%=&2C00 1160 [OPTpass 1170 .swirl LDA#0:STA&80:STA&81:STA&84:STA&85:SEI:LDA&204:STAvector:LDA&205:STAvector+1:LDA#irq MOD 256:STA&204:LDA#irq DIV 256:STA&205:CLI 1180 .loop LDA&82:STA&83:LDA&80:CLC:ADC&81:STAdata:LDY&81:LDAcols,Y:STAdata+1:LDA#&C:LDX#data MOD 256:LDY#data DIV 256:JSRosword 1190 INC&81:LDA&81:CMP#&10:BNEloop:LDA#0:STA&81 1200 INC&84:LDA&84:CMP#4:BNEnosnd:LDA#0:STA&84:LDY&85:INC&85:LDAnotes,Y:CMP#255:BEQfinale:CMPp:BEQnosnd:STAp:PHA:LDA#21:LDX#5:JSRosbyte:PLA:CMP#0:BEQnosnd:LDA#7:LDX#(sdata MOD 256):LDY#(sdata DIV 256):JSRosword:.nosnd 1210 LDA&83:CLC:ADC#5:TAX:.wait TXA:SEC:SBC&82:BPLwait:LDA#&81:LDX#&9D:LDY#&FF:JSRosbyte:BCSstop:LDA#&81:LDX#&8F:LDY#&FF:JSRosbyte:BCSstop 1220 LDA&80:CLC:ADC#1:AND#&F:STA&80:JMPloop 1230 .stop SEI:LDAvector:STA&204:LDAvector+1:STA&205:CLI:RTS 1240 .finale LDA#0:STA&85:JMPnosnd 1250 .irq INC&82:JMP(vector) 1260 .vector EQUW0:.cols EQUB0:EQUB0:EQUB4:EQUB4:EQUB4:EQUB6:EQUB6:EQUB6:EQUB7:EQUB7:EQUB7:EQUB6:EQUB6:EQUB4:EQUB4:EQUB0 1270 .data EQUD0 1280 .sdata EQUW1:EQUW-5:.p EQUW0:EQUW-1:.notes 1290 ]:NEXT 1300 REPEAT:READd:?P%=d:P%=P%+1:UNTILd=255 1310 ENDPROC 1320 : 1330 DATA76,68,60,60,60,68,76,80,88,88,88,88,96,104,108,108,104,104,96,96,88,88,88,88,96,104,108,108,104,104,96,96,88,88,96,96,104,104,108,108,88,88,80,80,76,76 1340 DATA0,0,76,68,60,60,60,68,76,80,88,88,88,88,96,104,108,108,104,104,96,96,88,88,88,88,96,104,108,108,104,104,96,96,88,88,96,96,104,104,108,108,88,88,80,80,76,76,76,76,0,76,68,60,60,60,68,76,80 1350 DATA88,88,88,88,108,104,96,96,96,96,0,96,96,88,88,88,88,88,88,108,108,104,104,96,96,88,88,96,96,104,104,108,108,88,88,80,80,76,76,76,76,0,0,0,0,0,0,0,0 1360 DATA 255
� SCREENS �6 ��" ATTENTION ALL EUG MEMBERS.":�:�" TWO EXCELLENT SCREENS HAVE BEEN SENT":�:�" IN FOR EUG35":�:�" ONE FROM RICHARD DIMOND,":�:�" THE OTHER FROM ROBERT SPROWSON" #[�:�" SINCE BOTH ARE RATHER SEASONAL IT WILL":�:�" BE SAD TO KEEP EITHER FOR NEXT YEAR" (��:�:�"SELECT YOUR OPTION":�"1.........RICHARD'S SCREEN":�:�"2.........ROBERT'S SCREEN":�:�"SPACE.....SKIP THIS AND GOTO THE MENU":�" (and miss all the fun)" 2A=� <� A=49 � �Dd@ F� A=50 � �dhC P� A= 32 �"MENU" d� SCREEN BY Richard Dimond n��6:�"FX13,4":� x�2:�23,1,0;0;0;0; ��23,236,2,7,7,2,0,0,0,0 ��28,0,31,79,31 �*LOAD SCREEN1 ��storedata:�assemble � �move � ���-99 ��6 �"�-256<>1 ?&220=&AA �?&220=&A2 � ?&221=&FF ��6 ��"MENU" �� � ��move YG%=104 � �N%=1�15 " �C2%=8�15 ,�-99 � 6C3%=C2%-1:�C2%=8 C3%=15 @"�19,C2%,7,0,0,0,19,C3%,6,0,0,0 Jchange%=�(2)+3 T�19,change%,�(7),0,0,0 ^�YG%>135 YG%=104 h%�5,18,0,7,25,4,�(1319)-40;YG%;236 r�?&FFFF=&DB d%=650 �d%=150 |�D%=0�d%:� �sound%=�(15) ��sound%=81 � *FX13,4 ��sound%=83 � *FX14,4 ��:� �YG%=YG%+16 � ��-99 �� ���storedata � ��DpC �*?&70=144:�I%=144�1�-1:�J%:I%?&A00=J%:� �� ���assemble �Hpointer=&70:sound=&71:!sound=1:sound!2=-15:osword=&FFF1:osbyte=&FFF4 ?&220=&00:?&221=&09 �pass=0�2�2 P%=&900 &[OPTpass 0PHP:PHA :TXA:PHA DTYA:PHA NLDA#&80 XLDX#&FA bLDY#&FF l JSRosbyte v CPX#10 � BMIend �LDYpointer � LDA&A00,Y �STAsound+4 �DEY � LDA&A00,Y �STAsound+6 � LDA#7 �LDX#sound �256 �LDY#sound �256 � JSRosword �DECpointer �DECpointer BNEend LDA#144:STApointer .end PLA:TAY *PLA:TAX 4PLA:PLP >RTS H] R� \*FX14,4 f� p�� 176,4,168,4,164,4,156,4,148,4,144,4,168,4,176,4,156,4,164,4,144,4,148,4,168,4,156,4,176,4,144,4,164,4,148,4,156,4,168,4,144,4,176,4,148,4,164,4,156,4,144,4,168,4,148,4,176,4,164,4,144,4,156,4,148,4,168,4,176,4,164,4,144,4,148,4 z�� 164,4,168,4,176,4,148,4,144,4,164,4,156,4,176,4,168,4,148,4,164,4,144,4,176,4,156,4,168,4,164,4,148,4,176,4,144,4,168,4,156,4,164,4,176,4,148,4,168,4,144,4,156,4,176,4,164,4,168,4,148,4,156,4,144,4,176,4 � � Swirly Xmas EUG 35 � � by Dominic Ford � : � � � �DVD �2:�=&2C00 "�-256<>1 ?&220=&AA �?&220=&A2 $ ?&221=&FF . �23,1,0;0;0;0;:�ass 8 �r=0�15:�19,r,0,0,0,0,0:� B *LO. SCREEN2 L �swirl V �"MENU" ` : j ��ass t osbyte=&FFF4:osword=&FFF1 ~ �pass=0�2�2:P%=&2C00 � [OPTpass �� .swirl LDA#0:STA&80:STA&81:STA&84:STA&85:SEI:LDA&204:STAvector:LDA&205:STAvector+1:LDA#irq � 256:STA&204:LDA#irq � 256:STA&205:CLI �| .loop LDA&82:STA&83:LDA&80:CLC:ADC&81:STAdata:LDY&81:LDAcols,Y:STAdata+1:LDA#&C:LDX#data � 256:LDY#data � 256:JSRosword �/ INC&81:LDA&81:CMP#&10:BNEloop:LDA#0:STA&81 �� INC&84:LDA&84:CMP#4:BNEnosnd:LDA#0:STA&84:LDY&85:INC&85:LDAnotes,Y:CMP#255:BEQfinale:CMPp:BEQnosnd:STAp:PHA:LDA#21:LDX#5:JSRosbyte:PLA:CMP#0:BEQnosnd:LDA#7:LDX#(sdata � 256):LDY#(sdata � 256):JSRosword:.nosnd �� LDA&83:CLC:ADC#5:TAX:.wait TXA:SEC:SBC&82:BPLwait:LDA#&81:LDX#&9D:LDY#&FF:JSRosbyte:BCSstop:LDA#&81:LDX#&8F:LDY#&FF:JSRosbyte:BCSstop �) LDA&80:CLC:ADC#1:�#&F:STA&80:JMPloop �< .stop SEI:LDAvector:STA&204:LDAvector+1:STA&205:CLI:RTS �" .finale LDA#0:STA&85:JMPnosnd � .irq INC&82:JMP(vector) �x .vector EQUW0:.cols EQUB0:EQUB0:EQUB4:EQUB4:EQUB4:EQUB6:EQUB6:EQUB6:EQUB7:EQUB7:EQUB7:EQUB6:EQUB6:EQUB4:EQUB4:EQUB0 � .data EQUD0 / .sdata EQUW1:EQUW-5:.p EQUW0:EQUW-1:.notes ]:� �:�d:?P%=d:P%=P%+1:�d=255 � ( : 2� �76,68,60,60,60,68,76,80,88,88,88,88,96,104,108,108,104,104,96,96,88,88,88,88,96,104,108,108,104,104,96,96,88,88,96,96,104,104,108,108,88,88,80,80,76,76 <� �0,0,76,68,60,60,60,68,76,80,88,88,88,88,96,104,108,108,104,104,96,96,88,88,88,88,96,104,108,108,104,104,96,96,88,88,96,96,104,104,108,108,88,88,80,80,76,76,76,76,0,76,68,60,60,60,68,76,80 F� �88,88,88,88,108,104,96,96,96,96,0,96,96,88,88,88,88,88,88,108,108,104,104,96,96,88,88,96,96,104,104,108,108,88,88,80,80,76,76,76,76,0,0,0,0,0,0,0,0 P � 255 �
00000000 0d 00 0a 0d f4 20 53 43 52 45 45 4e 53 0d 00 14 |..... SCREENS...| 00000010 06 eb 36 0d 00 1e c2 f1 22 20 20 20 20 20 20 41 |..6....." A| 00000020 54 54 45 4e 54 49 4f 4e 20 41 4c 4c 20 45 55 47 |TTENTION ALL EUG| 00000030 20 4d 45 4d 42 45 52 53 2e 22 3a f1 3a f1 22 20 | MEMBERS.":.:." | 00000040 20 54 57 4f 20 45 58 43 45 4c 4c 45 4e 54 20 53 | TWO EXCELLENT S| 00000050 43 52 45 45 4e 53 20 48 41 56 45 20 42 45 45 4e |CREENS HAVE BEEN| 00000060 20 53 45 4e 54 22 3a f1 3a f1 22 20 20 20 20 20 | SENT":.:." | 00000070 20 20 20 20 20 20 20 20 20 49 4e 20 46 4f 52 20 | IN FOR | 00000080 45 55 47 33 35 22 3a f1 3a f1 22 20 20 20 20 20 |EUG35":.:." | 00000090 20 20 20 4f 4e 45 20 46 52 4f 4d 20 52 49 43 48 | ONE FROM RICH| 000000a0 41 52 44 20 44 49 4d 4f 4e 44 2c 22 3a f1 3a f1 |ARD DIMOND,":.:.| 000000b0 22 20 20 20 20 20 54 48 45 20 4f 54 48 45 52 20 |" THE OTHER | 000000c0 46 52 4f 4d 20 52 4f 42 45 52 54 20 53 50 52 4f |FROM ROBERT SPRO| 000000d0 57 53 4f 4e 22 0d 00 23 5b f1 3a f1 22 20 53 49 |WSON"..#[.:." SI| 000000e0 4e 43 45 20 42 4f 54 48 20 41 52 45 20 52 41 54 |NCE BOTH ARE RAT| 000000f0 48 45 52 20 53 45 41 53 4f 4e 41 4c 20 49 54 20 |HER SEASONAL IT | 00000100 57 49 4c 4c 22 3a f1 3a f1 22 20 20 42 45 20 53 |WILL":.:." BE S| 00000110 41 44 20 54 4f 20 4b 45 45 50 20 45 49 54 48 45 |AD TO KEEP EITHE| 00000120 52 20 46 4f 52 20 4e 45 58 54 20 59 45 41 52 22 |R FOR NEXT YEAR"| 00000130 0d 00 28 a9 f1 3a f1 3a f1 22 53 45 4c 45 43 54 |..(..:.:."SELECT| 00000140 20 59 4f 55 52 20 4f 50 54 49 4f 4e 22 3a f1 22 | YOUR OPTION":."| 00000150 31 2e 2e 2e 2e 2e 2e 2e 2e 2e 52 49 43 48 41 52 |1.........RICHAR| 00000160 44 27 53 20 53 43 52 45 45 4e 22 3a f1 3a f1 22 |D'S SCREEN":.:."| 00000170 32 2e 2e 2e 2e 2e 2e 2e 2e 2e 52 4f 42 45 52 54 |2.........ROBERT| 00000180 27 53 20 53 43 52 45 45 4e 22 3a f1 3a f1 22 53 |'S SCREEN":.:."S| 00000190 50 41 43 45 2e 2e 2e 2e 2e 53 4b 49 50 20 54 48 |PACE.....SKIP TH| 000001a0 49 53 20 41 4e 44 20 47 4f 54 4f 20 54 48 45 20 |IS AND GOTO THE | 000001b0 4d 45 4e 55 22 3a f1 22 20 20 20 20 20 20 20 20 |MENU":." | 000001c0 20 20 28 61 6e 64 20 6d 69 73 73 20 61 6c 6c 20 | (and miss all | 000001d0 74 68 65 20 66 75 6e 29 22 0d 00 32 07 41 3d a5 |the fun)"..2.A=.| 000001e0 0d 00 3c 11 e7 20 41 3d 34 39 20 e5 20 8d 44 64 |..<.. A=49 . .Dd| 000001f0 40 0d 00 46 11 e7 20 41 3d 35 30 20 e5 20 8d 64 |@..F.. A=50 . .d| 00000200 68 43 0d 00 50 13 e7 20 41 3d 20 33 32 20 d7 22 |hC..P.. A= 32 ."| 00000210 4d 45 4e 55 22 0d 00 64 1e f4 20 53 43 52 45 45 |MENU"..d.. SCREE| 00000220 4e 20 42 59 20 52 69 63 68 61 72 64 20 44 69 6d |N BY Richard Dim| 00000230 6f 6e 64 0d 00 6e 14 ee 85 eb 36 3a ff 22 46 58 |ond..n....6:."FX| 00000240 31 33 2c 34 22 3a e0 0d 00 78 15 eb 32 3a ef 32 |13,4":...x..2:.2| 00000250 33 2c 31 2c 30 3b 30 3b 30 3b 30 3b 0d 00 82 1b |3,1,0;0;0;0;....| 00000260 ef 32 33 2c 32 33 36 2c 32 2c 37 2c 37 2c 32 2c |.23,236,2,7,7,2,| 00000270 30 2c 30 2c 30 2c 30 0d 00 8c 12 ef 32 38 2c 30 |0,0,0,0.....28,0| 00000280 2c 33 31 2c 37 39 2c 33 31 0d 00 96 11 2a 4c 4f |,31,79,31....*LO| 00000290 41 44 20 53 43 52 45 45 4e 31 0d 00 a0 18 f2 73 |AD SCREEN1.....s| 000002a0 74 6f 72 65 64 61 74 61 3a f2 61 73 73 65 6d 62 |toredata:.assemb| 000002b0 6c 65 0d 00 aa 09 f2 6d 6f 76 65 0d 00 b4 0a f5 |le.....move.....| 000002c0 fd a6 2d 39 39 0d 00 be 06 eb 36 0d 00 c8 22 e7 |..-99.....6...".| 000002d0 a6 2d 32 35 36 3c 3e 31 20 3f 26 32 32 30 3d 26 |.-256<>1 ?&220=&| 000002e0 41 41 20 8b 3f 26 32 32 30 3d 26 41 32 0d 00 d2 |AA .?&220=&A2...| 000002f0 0d 3f 26 32 32 31 3d 26 46 46 0d 00 dc 06 eb 36 |.?&221=&FF.....6| 00000300 0d 00 e6 0b d7 22 4d 45 4e 55 22 0d 00 f0 05 e0 |....."MENU".....| 00000310 0d 00 fa 0a dd f2 6d 6f 76 65 0d 01 04 0b 59 47 |......move....YG| 00000320 25 3d 31 30 34 0d 01 0e 05 f5 0d 01 18 0c e3 4e |%=104..........N| 00000330 25 3d 31 b8 31 35 0d 01 22 0d e3 43 32 25 3d 38 |%=1.15.."..C2%=8| 00000340 b8 31 35 0d 01 2c 0b e7 a6 2d 39 39 20 e1 0d 01 |.15..,...-99 ...| 00000350 36 1b 43 33 25 3d 43 32 25 2d 31 3a e7 43 32 25 |6.C3%=C2%-1:.C2%| 00000360 3d 38 20 43 33 25 3d 31 35 0d 01 40 22 ef 31 39 |=8 C3%=15..@".19| 00000370 2c 43 32 25 2c 37 2c 30 2c 30 2c 30 2c 31 39 2c |,C2%,7,0,0,0,19,| 00000380 43 33 25 2c 36 2c 30 2c 30 2c 30 0d 01 4a 12 63 |C3%,6,0,0,0..J.c| 00000390 68 61 6e 67 65 25 3d b3 28 32 29 2b 33 0d 01 54 |hange%=.(2)+3..T| 000003a0 1a ef 31 39 2c 63 68 61 6e 67 65 25 2c b3 28 37 |..19,change%,.(7| 000003b0 29 2c 30 2c 30 2c 30 0d 01 5e 14 e7 59 47 25 3e |),0,0,0..^..YG%>| 000003c0 31 33 35 20 59 47 25 3d 31 30 34 0d 01 68 25 ef |135 YG%=104..h%.| 000003d0 35 2c 31 38 2c 30 2c 37 2c 32 35 2c 34 2c b3 28 |5,18,0,7,25,4,.(| 000003e0 31 33 31 39 29 2d 34 30 3b 59 47 25 3b 32 33 36 |1319)-40;YG%;236| 000003f0 0d 01 72 1e e7 3f 26 46 46 46 46 3d 26 44 42 20 |..r..?&FFFF=&DB | 00000400 64 25 3d 36 35 30 20 8b 64 25 3d 31 35 30 0d 01 |d%=650 .d%=150..| 00000410 7c 0e e3 44 25 3d 30 b8 64 25 3a ed 0d 01 86 10 ||..D%=0.d%:.....| 00000420 73 6f 75 6e 64 25 3d a6 28 31 35 29 0d 01 90 18 |sound%=.(15)....| 00000430 e7 73 6f 75 6e 64 25 3d 38 31 20 8c 20 2a 46 58 |.sound%=81 . *FX| 00000440 31 33 2c 34 0d 01 9a 18 e7 73 6f 75 6e 64 25 3d |13,4.....sound%=| 00000450 38 33 20 8c 20 2a 46 58 31 34 2c 34 0d 01 a4 07 |83 . *FX14,4....| 00000460 ed 3a ed 0d 01 ae 0e 59 47 25 3d 59 47 25 2b 31 |.:.....YG%=YG%+1| 00000470 36 0d 01 b8 09 fd a6 2d 39 39 0d 01 c2 05 e1 0d |6......-99......| 00000480 01 cc 0f dd f2 73 74 6f 72 65 64 61 74 61 0d 01 |.....storedata..| 00000490 d6 09 f7 8d 44 70 43 0d 01 e0 2a 3f 26 37 30 3d |....DpC...*?&70=| 000004a0 31 34 34 3a e3 49 25 3d 31 34 34 b8 31 88 2d 31 |144:.I%=144.1.-1| 000004b0 3a f3 4a 25 3a 49 25 3f 26 41 30 30 3d 4a 25 3a |:.J%:I%?&A00=J%:| 000004c0 ed 0d 01 ea 05 e1 0d 01 f4 0e dd f2 61 73 73 65 |............asse| 000004d0 6d 62 6c 65 0d 01 fe 48 70 6f 69 6e 74 65 72 3d |mble...Hpointer=| 000004e0 26 37 30 3a 73 6f 75 6e 64 3d 26 37 31 3a 21 73 |&70:sound=&71:!s| 000004f0 6f 75 6e 64 3d 31 3a 73 6f 75 6e 64 21 32 3d 2d |ound=1:sound!2=-| 00000500 31 35 3a 6f 73 77 6f 72 64 3d 26 46 46 46 31 3a |15:osword=&FFF1:| 00000510 6f 73 62 79 74 65 3d 26 46 46 46 34 0d 02 08 17 |osbyte=&FFF4....| 00000520 3f 26 32 32 30 3d 26 30 30 3a 3f 26 32 32 31 3d |?&220=&00:?&221=| 00000530 26 30 39 0d 02 12 0f e3 70 61 73 73 3d 30 b8 32 |&09.....pass=0.2| 00000540 88 32 0d 02 1c 0b 50 25 3d 26 39 30 30 0d 02 26 |.2....P%=&900..&| 00000550 0c 5b 4f 50 54 70 61 73 73 0d 02 30 0b 50 48 50 |.[OPTpass..0.PHP| 00000560 3a 50 48 41 0d 02 3a 0b 54 58 41 3a 50 48 41 0d |:PHA..:.TXA:PHA.| 00000570 02 44 0b 54 59 41 3a 50 48 41 0d 02 4e 0b 4c 44 |.D.TYA:PHA..N.LD| 00000580 41 23 26 38 30 0d 02 58 0b 4c 44 58 23 26 46 41 |A#&80..X.LDX#&FA| 00000590 0d 02 62 0b 4c 44 59 23 26 46 46 0d 02 6c 0d 4a |..b.LDY#&FF..l.J| 000005a0 53 52 6f 73 62 79 74 65 0d 02 76 0a 43 50 58 23 |SRosbyte..v.CPX#| 000005b0 31 30 0d 02 80 0a 42 4d 49 65 6e 64 0d 02 8a 0e |10....BMIend....| 000005c0 4c 44 59 70 6f 69 6e 74 65 72 0d 02 94 0d 4c 44 |LDYpointer....LD| 000005d0 41 26 41 30 30 2c 59 0d 02 9e 0e 53 54 41 73 6f |A&A00,Y....STAso| 000005e0 75 6e 64 2b 34 0d 02 a8 07 44 45 59 0d 02 b2 0d |und+4....DEY....| 000005f0 4c 44 41 26 41 30 30 2c 59 0d 02 bc 0e 53 54 41 |LDA&A00,Y....STA| 00000600 73 6f 75 6e 64 2b 36 0d 02 c6 09 4c 44 41 23 37 |sound+6....LDA#7| 00000610 0d 02 d0 12 4c 44 58 23 73 6f 75 6e 64 20 83 32 |....LDX#sound .2| 00000620 35 36 0d 02 da 12 4c 44 59 23 73 6f 75 6e 64 20 |56....LDY#sound | 00000630 81 32 35 36 0d 02 e4 0d 4a 53 52 6f 73 77 6f 72 |.256....JSRoswor| 00000640 64 0d 02 ee 0e 44 45 43 70 6f 69 6e 74 65 72 0d |d....DECpointer.| 00000650 02 f8 0e 44 45 43 70 6f 69 6e 74 65 72 0d 03 02 |...DECpointer...| 00000660 0a 42 4e 45 65 6e 64 0d 03 0c 16 4c 44 41 23 31 |.BNEend....LDA#1| 00000670 34 34 3a 53 54 41 70 6f 69 6e 74 65 72 0d 03 16 |44:STApointer...| 00000680 08 2e 65 6e 64 0d 03 20 0b 50 4c 41 3a 54 41 59 |..end.. .PLA:TAY| 00000690 0d 03 2a 0b 50 4c 41 3a 54 41 58 0d 03 34 0b 50 |..*.PLA:TAX..4.P| 000006a0 4c 41 3a 50 4c 50 0d 03 3e 07 52 54 53 0d 03 48 |LA:PLP..>.RTS..H| 000006b0 05 5d 0d 03 52 05 ed 0d 03 5c 0b 2a 46 58 31 34 |.]..R....\.*FX14| 000006c0 2c 34 0d 03 66 05 e1 0d 03 70 e9 dc 20 31 37 36 |,4..f....p.. 176| 000006d0 2c 34 2c 31 36 38 2c 34 2c 31 36 34 2c 34 2c 31 |,4,168,4,164,4,1| 000006e0 35 36 2c 34 2c 31 34 38 2c 34 2c 31 34 34 2c 34 |56,4,148,4,144,4| 000006f0 2c 31 36 38 2c 34 2c 31 37 36 2c 34 2c 31 35 36 |,168,4,176,4,156| 00000700 2c 34 2c 31 36 34 2c 34 2c 31 34 34 2c 34 2c 31 |,4,164,4,144,4,1| 00000710 34 38 2c 34 2c 31 36 38 2c 34 2c 31 35 36 2c 34 |48,4,168,4,156,4| 00000720 2c 31 37 36 2c 34 2c 31 34 34 2c 34 2c 31 36 34 |,176,4,144,4,164| 00000730 2c 34 2c 31 34 38 2c 34 2c 31 35 36 2c 34 2c 31 |,4,148,4,156,4,1| 00000740 36 38 2c 34 2c 31 34 34 2c 34 2c 31 37 36 2c 34 |68,4,144,4,176,4| 00000750 2c 31 34 38 2c 34 2c 31 36 34 2c 34 2c 31 35 36 |,148,4,164,4,156| 00000760 2c 34 2c 31 34 34 2c 34 2c 31 36 38 2c 34 2c 31 |,4,144,4,168,4,1| 00000770 34 38 2c 34 2c 31 37 36 2c 34 2c 31 36 34 2c 34 |48,4,176,4,164,4| 00000780 2c 31 34 34 2c 34 2c 31 35 36 2c 34 2c 31 34 38 |,144,4,156,4,148| 00000790 2c 34 2c 31 36 38 2c 34 2c 31 37 36 2c 34 2c 31 |,4,168,4,176,4,1| 000007a0 36 34 2c 34 2c 31 34 34 2c 34 2c 31 34 38 2c 34 |64,4,144,4,148,4| 000007b0 0d 03 7a d1 dc 20 31 36 34 2c 34 2c 31 36 38 2c |..z.. 164,4,168,| 000007c0 34 2c 31 37 36 2c 34 2c 31 34 38 2c 34 2c 31 34 |4,176,4,148,4,14| 000007d0 34 2c 34 2c 31 36 34 2c 34 2c 31 35 36 2c 34 2c |4,4,164,4,156,4,| 000007e0 31 37 36 2c 34 2c 31 36 38 2c 34 2c 31 34 38 2c |176,4,168,4,148,| 000007f0 34 2c 31 36 34 2c 34 2c 31 34 34 2c 34 2c 31 37 |4,164,4,144,4,17| 00000800 36 2c 34 2c 31 35 36 2c 34 2c 31 36 38 2c 34 2c |6,4,156,4,168,4,| 00000810 31 36 34 2c 34 2c 31 34 38 2c 34 2c 31 37 36 2c |164,4,148,4,176,| 00000820 34 2c 31 34 34 2c 34 2c 31 36 38 2c 34 2c 31 35 |4,144,4,168,4,15| 00000830 36 2c 34 2c 31 36 34 2c 34 2c 31 37 36 2c 34 2c |6,4,164,4,176,4,| 00000840 31 34 38 2c 34 2c 31 36 38 2c 34 2c 31 34 34 2c |148,4,168,4,144,| 00000850 34 2c 31 35 36 2c 34 2c 31 37 36 2c 34 2c 31 36 |4,156,4,176,4,16| 00000860 34 2c 34 2c 31 36 38 2c 34 2c 31 34 38 2c 34 2c |4,4,168,4,148,4,| 00000870 31 35 36 2c 34 2c 31 34 34 2c 34 2c 31 37 36 2c |156,4,144,4,176,| 00000880 34 0d 03 e8 19 20 f4 20 53 77 69 72 6c 79 20 58 |4.... . Swirly X| 00000890 6d 61 73 20 45 55 47 20 33 35 0d 03 f2 16 20 f4 |mas EUG 35.... .| 000008a0 20 62 79 20 44 6f 6d 69 6e 69 63 20 46 6f 72 64 | by Dominic Ford| 000008b0 0d 03 fc 06 20 3a 0d 04 06 0f 20 ee 20 85 20 e5 |.... :.... . . .| 000008c0 20 8d 44 56 44 0d 04 10 0f 20 eb 32 3a d3 3d 26 | .DVD.... .2:.=&| 000008d0 32 43 30 30 0d 04 1a 22 e7 a6 2d 32 35 36 3c 3e |2C00..."..-256<>| 000008e0 31 20 3f 26 32 32 30 3d 26 41 41 20 8b 3f 26 32 |1 ?&220=&AA .?&2| 000008f0 32 30 3d 26 41 32 0d 04 24 0d 3f 26 32 32 31 3d |20=&A2..$.?&221=| 00000900 26 46 46 0d 04 2e 18 20 ef 32 33 2c 31 2c 30 3b |&FF.... .23,1,0;| 00000910 30 3b 30 3b 30 3b 3a f2 61 73 73 0d 04 38 1e 20 |0;0;0;:.ass..8. | 00000920 e3 72 3d 30 b8 31 35 3a ef 31 39 2c 72 2c 30 2c |.r=0.15:.19,r,0,| 00000930 30 2c 30 2c 30 2c 30 3a ed 0d 04 42 11 20 2a 4c |0,0,0,0:...B. *L| 00000940 4f 2e 20 53 43 52 45 45 4e 32 0d 04 4c 0b 20 d6 |O. SCREEN2..L. .| 00000950 73 77 69 72 6c 0d 04 56 0c 20 d7 22 4d 45 4e 55 |swirl..V. ."MENU| 00000960 22 0d 04 60 06 20 3a 0d 04 6a 0a 20 dd f2 61 73 |"..`. :..j. ..as| 00000970 73 0d 04 74 1e 20 6f 73 62 79 74 65 3d 26 46 46 |s..t. osbyte=&FF| 00000980 46 34 3a 6f 73 77 6f 72 64 3d 26 46 46 46 31 0d |F4:osword=&FFF1.| 00000990 04 7e 19 20 e3 70 61 73 73 3d 30 b8 32 88 32 3a |.~. .pass=0.2.2:| 000009a0 50 25 3d 26 32 43 30 30 0d 04 88 0d 20 5b 4f 50 |P%=&2C00.... [OP| 000009b0 54 70 61 73 73 0d 04 92 87 20 2e 73 77 69 72 6c |Tpass.... .swirl| 000009c0 20 4c 44 41 23 30 3a 53 54 41 26 38 30 3a 53 54 | LDA#0:STA&80:ST| 000009d0 41 26 38 31 3a 53 54 41 26 38 34 3a 53 54 41 26 |A&81:STA&84:STA&| 000009e0 38 35 3a 53 45 49 3a 4c 44 41 26 32 30 34 3a 53 |85:SEI:LDA&204:S| 000009f0 54 41 76 65 63 74 6f 72 3a 4c 44 41 26 32 30 35 |TAvector:LDA&205| 00000a00 3a 53 54 41 76 65 63 74 6f 72 2b 31 3a 4c 44 41 |:STAvector+1:LDA| 00000a10 23 69 72 71 20 83 20 32 35 36 3a 53 54 41 26 32 |#irq . 256:STA&2| 00000a20 30 34 3a 4c 44 41 23 69 72 71 20 81 20 32 35 36 |04:LDA#irq . 256| 00000a30 3a 53 54 41 26 32 30 35 3a 43 4c 49 0d 04 9c 7c |:STA&205:CLI...|| 00000a40 20 2e 6c 6f 6f 70 20 4c 44 41 26 38 32 3a 53 54 | .loop LDA&82:ST| 00000a50 41 26 38 33 3a 4c 44 41 26 38 30 3a 43 4c 43 3a |A&83:LDA&80:CLC:| 00000a60 41 44 43 26 38 31 3a 53 54 41 64 61 74 61 3a 4c |ADC&81:STAdata:L| 00000a70 44 59 26 38 31 3a 4c 44 41 63 6f 6c 73 2c 59 3a |DY&81:LDAcols,Y:| 00000a80 53 54 41 64 61 74 61 2b 31 3a 4c 44 41 23 26 43 |STAdata+1:LDA#&C| 00000a90 3a 4c 44 58 23 64 61 74 61 20 83 20 32 35 36 3a |:LDX#data . 256:| 00000aa0 4c 44 59 23 64 61 74 61 20 81 20 32 35 36 3a 4a |LDY#data . 256:J| 00000ab0 53 52 6f 73 77 6f 72 64 0d 04 a6 2f 20 49 4e 43 |SRosword.../ INC| 00000ac0 26 38 31 3a 4c 44 41 26 38 31 3a 43 4d 50 23 26 |&81:LDA&81:CMP#&| 00000ad0 31 30 3a 42 4e 45 6c 6f 6f 70 3a 4c 44 41 23 30 |10:BNEloop:LDA#0| 00000ae0 3a 53 54 41 26 38 31 0d 04 b0 d5 20 49 4e 43 26 |:STA&81.... INC&| 00000af0 38 34 3a 4c 44 41 26 38 34 3a 43 4d 50 23 34 3a |84:LDA&84:CMP#4:| 00000b00 42 4e 45 6e 6f 73 6e 64 3a 4c 44 41 23 30 3a 53 |BNEnosnd:LDA#0:S| 00000b10 54 41 26 38 34 3a 4c 44 59 26 38 35 3a 49 4e 43 |TA&84:LDY&85:INC| 00000b20 26 38 35 3a 4c 44 41 6e 6f 74 65 73 2c 59 3a 43 |&85:LDAnotes,Y:C| 00000b30 4d 50 23 32 35 35 3a 42 45 51 66 69 6e 61 6c 65 |MP#255:BEQfinale| 00000b40 3a 43 4d 50 70 3a 42 45 51 6e 6f 73 6e 64 3a 53 |:CMPp:BEQnosnd:S| 00000b50 54 41 70 3a 50 48 41 3a 4c 44 41 23 32 31 3a 4c |TAp:PHA:LDA#21:L| 00000b60 44 58 23 35 3a 4a 53 52 6f 73 62 79 74 65 3a 50 |DX#5:JSRosbyte:P| 00000b70 4c 41 3a 43 4d 50 23 30 3a 42 45 51 6e 6f 73 6e |LA:CMP#0:BEQnosn| 00000b80 64 3a 4c 44 41 23 37 3a 4c 44 58 23 28 73 64 61 |d:LDA#7:LDX#(sda| 00000b90 74 61 20 83 20 32 35 36 29 3a 4c 44 59 23 28 73 |ta . 256):LDY#(s| 00000ba0 64 61 74 61 20 81 20 32 35 36 29 3a 4a 53 52 6f |data . 256):JSRo| 00000bb0 73 77 6f 72 64 3a 2e 6e 6f 73 6e 64 0d 04 ba 8a |sword:.nosnd....| 00000bc0 20 4c 44 41 26 38 33 3a 43 4c 43 3a 41 44 43 23 | LDA&83:CLC:ADC#| 00000bd0 35 3a 54 41 58 3a 2e 77 61 69 74 20 54 58 41 3a |5:TAX:.wait TXA:| 00000be0 53 45 43 3a 53 42 43 26 38 32 3a 42 50 4c 77 61 |SEC:SBC&82:BPLwa| 00000bf0 69 74 3a 4c 44 41 23 26 38 31 3a 4c 44 58 23 26 |it:LDA#&81:LDX#&| 00000c00 39 44 3a 4c 44 59 23 26 46 46 3a 4a 53 52 6f 73 |9D:LDY#&FF:JSRos| 00000c10 62 79 74 65 3a 42 43 53 73 74 6f 70 3a 4c 44 41 |byte:BCSstop:LDA| 00000c20 23 26 38 31 3a 4c 44 58 23 26 38 46 3a 4c 44 59 |#&81:LDX#&8F:LDY| 00000c30 23 26 46 46 3a 4a 53 52 6f 73 62 79 74 65 3a 42 |#&FF:JSRosbyte:B| 00000c40 43 53 73 74 6f 70 0d 04 c4 29 20 4c 44 41 26 38 |CSstop...) LDA&8| 00000c50 30 3a 43 4c 43 3a 41 44 43 23 31 3a 80 23 26 46 |0:CLC:ADC#1:.#&F| 00000c60 3a 53 54 41 26 38 30 3a 4a 4d 50 6c 6f 6f 70 0d |:STA&80:JMPloop.| 00000c70 04 ce 3c 20 2e 73 74 6f 70 20 53 45 49 3a 4c 44 |..< .stop SEI:LD| 00000c80 41 76 65 63 74 6f 72 3a 53 54 41 26 32 30 34 3a |Avector:STA&204:| 00000c90 4c 44 41 76 65 63 74 6f 72 2b 31 3a 53 54 41 26 |LDAvector+1:STA&| 00000ca0 32 30 35 3a 43 4c 49 3a 52 54 53 0d 04 d8 22 20 |205:CLI:RTS..." | 00000cb0 2e 66 69 6e 61 6c 65 20 4c 44 41 23 30 3a 53 54 |.finale LDA#0:ST| 00000cc0 41 26 38 35 3a 4a 4d 50 6e 6f 73 6e 64 0d 04 e2 |A&85:JMPnosnd...| 00000cd0 1c 20 2e 69 72 71 20 49 4e 43 26 38 32 3a 4a 4d |. .irq INC&82:JM| 00000ce0 50 28 76 65 63 74 6f 72 29 0d 04 ec 78 20 2e 76 |P(vector)...x .v| 00000cf0 65 63 74 6f 72 20 45 51 55 57 30 3a 2e 63 6f 6c |ector EQUW0:.col| 00000d00 73 20 45 51 55 42 30 3a 45 51 55 42 30 3a 45 51 |s EQUB0:EQUB0:EQ| 00000d10 55 42 34 3a 45 51 55 42 34 3a 45 51 55 42 34 3a |UB4:EQUB4:EQUB4:| 00000d20 45 51 55 42 36 3a 45 51 55 42 36 3a 45 51 55 42 |EQUB6:EQUB6:EQUB| 00000d30 36 3a 45 51 55 42 37 3a 45 51 55 42 37 3a 45 51 |6:EQUB7:EQUB7:EQ| 00000d40 55 42 37 3a 45 51 55 42 36 3a 45 51 55 42 36 3a |UB7:EQUB6:EQUB6:| 00000d50 45 51 55 42 34 3a 45 51 55 42 34 3a 45 51 55 42 |EQUB4:EQUB4:EQUB| 00000d60 30 0d 04 f6 10 20 2e 64 61 74 61 20 45 51 55 44 |0.... .data EQUD| 00000d70 30 0d 05 00 2f 20 2e 73 64 61 74 61 20 45 51 55 |0.../ .sdata EQU| 00000d80 57 31 3a 45 51 55 57 2d 35 3a 2e 70 20 45 51 55 |W1:EQUW-5:.p EQU| 00000d90 57 30 3a 45 51 55 57 2d 31 3a 2e 6e 6f 74 65 73 |W0:EQUW-1:.notes| 00000da0 0d 05 0a 08 20 5d 3a ed 0d 05 14 1e 20 f5 3a f3 |.... ]:..... .:.| 00000db0 64 3a 3f 50 25 3d 64 3a 50 25 3d 50 25 2b 31 3a |d:?P%=d:P%=P%+1:| 00000dc0 fd 64 3d 32 35 35 0d 05 1e 06 20 e1 0d 05 28 06 |.d=255.... ...(.| 00000dd0 20 3a 0d 05 32 9d 20 dc 37 36 2c 36 38 2c 36 30 | :..2. .76,68,60| 00000de0 2c 36 30 2c 36 30 2c 36 38 2c 37 36 2c 38 30 2c |,60,60,68,76,80,| 00000df0 38 38 2c 38 38 2c 38 38 2c 38 38 2c 39 36 2c 31 |88,88,88,88,96,1| 00000e00 30 34 2c 31 30 38 2c 31 30 38 2c 31 30 34 2c 31 |04,108,108,104,1| 00000e10 30 34 2c 39 36 2c 39 36 2c 38 38 2c 38 38 2c 38 |04,96,96,88,88,8| 00000e20 38 2c 38 38 2c 39 36 2c 31 30 34 2c 31 30 38 2c |8,88,96,104,108,| 00000e30 31 30 38 2c 31 30 34 2c 31 30 34 2c 39 36 2c 39 |108,104,104,96,9| 00000e40 36 2c 38 38 2c 38 38 2c 39 36 2c 39 36 2c 31 30 |6,88,88,96,96,10| 00000e50 34 2c 31 30 34 2c 31 30 38 2c 31 30 38 2c 38 38 |4,104,108,108,88| 00000e60 2c 38 38 2c 38 30 2c 38 30 2c 37 36 2c 37 36 0d |,88,80,80,76,76.| 00000e70 05 3c c1 20 dc 30 2c 30 2c 37 36 2c 36 38 2c 36 |.<. .0,0,76,68,6| 00000e80 30 2c 36 30 2c 36 30 2c 36 38 2c 37 36 2c 38 30 |0,60,60,68,76,80| 00000e90 2c 38 38 2c 38 38 2c 38 38 2c 38 38 2c 39 36 2c |,88,88,88,88,96,| 00000ea0 31 30 34 2c 31 30 38 2c 31 30 38 2c 31 30 34 2c |104,108,108,104,| 00000eb0 31 30 34 2c 39 36 2c 39 36 2c 38 38 2c 38 38 2c |104,96,96,88,88,| 00000ec0 38 38 2c 38 38 2c 39 36 2c 31 30 34 2c 31 30 38 |88,88,96,104,108| 00000ed0 2c 31 30 38 2c 31 30 34 2c 31 30 34 2c 39 36 2c |,108,104,104,96,| 00000ee0 39 36 2c 38 38 2c 38 38 2c 39 36 2c 39 36 2c 31 |96,88,88,96,96,1| 00000ef0 30 34 2c 31 30 34 2c 31 30 38 2c 31 30 38 2c 38 |04,104,108,108,8| 00000f00 38 2c 38 38 2c 38 30 2c 38 30 2c 37 36 2c 37 36 |8,88,80,80,76,76| 00000f10 2c 37 36 2c 37 36 2c 30 2c 37 36 2c 36 38 2c 36 |,76,76,0,76,68,6| 00000f20 30 2c 36 30 2c 36 30 2c 36 38 2c 37 36 2c 38 30 |0,60,60,68,76,80| 00000f30 0d 05 46 99 20 dc 38 38 2c 38 38 2c 38 38 2c 38 |..F. .88,88,88,8| 00000f40 38 2c 31 30 38 2c 31 30 34 2c 39 36 2c 39 36 2c |8,108,104,96,96,| 00000f50 39 36 2c 39 36 2c 30 2c 39 36 2c 39 36 2c 38 38 |96,96,0,96,96,88| 00000f60 2c 38 38 2c 38 38 2c 38 38 2c 38 38 2c 38 38 2c |,88,88,88,88,88,| 00000f70 31 30 38 2c 31 30 38 2c 31 30 34 2c 31 30 34 2c |108,108,104,104,| 00000f80 39 36 2c 39 36 2c 38 38 2c 38 38 2c 39 36 2c 39 |96,96,88,88,96,9| 00000f90 36 2c 31 30 34 2c 31 30 34 2c 31 30 38 2c 31 30 |6,104,104,108,10| 00000fa0 38 2c 38 38 2c 38 38 2c 38 30 2c 38 30 2c 37 36 |8,88,88,80,80,76| 00000fb0 2c 37 36 2c 37 36 2c 37 36 2c 30 2c 30 2c 30 2c |,76,76,76,0,0,0,| 00000fc0 30 2c 30 2c 30 2c 30 2c 30 0d 05 50 0a 20 dc 20 |0,0,0,0,0..P. . | 00000fd0 32 35 35 0d ff |255..| 00000fd5