!AWMar94/Goodies/Alerion/!Alerion/!RunImage

Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199403.adf » Disk1Mar94 » !AWMar94/Goodies/Alerion/!Alerion/!RunImage

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.adf » Disk1Mar94
Filename:	!AWMar94/Goodies/Alerion/!Alerion/!RunImage
Read OK:	✔
File size:	1840 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM > <Alerion$Dir>.!RunImage
   20
   30MODE 0
   40
   50X%=OPENIN "<Alerion$Dir>.Font"
   60
   70REPEAT
   80 VDU BGET#X%
   90UNTIL EOF#X%
  100
  110CLOSE #X%
  120
  130REM (C) Felix Andrew 88
  140
  150VOICES 4
  160HIMEM=&E000-1
  170code=&11434:PROCcode
  180play=&26ABC:keys=&1E06C
  190MODE 13
  200*POINTER 0
  210*FX113 1
  220*FX4 2
  230OFF:M%=FALSE:PROCmenu(TRUE)
  240DIM P$(7),P%(7)
  250DIM B%(100,4),box$(100),int(&FF):Q%=0:DIM J% &10
  260ON ERROR PROCmenu(TRUE)
  270PROCnow:H%=4*4+C%
  280VDU4:OFF:MOUSE IX%,IY%,Z%
  290REPEAT:TIME=0:REPEAT
  300MOUSE X%,Y%,Z%
  310IF M%=FALSE THEN
  320IF X%<>IX% OR Y%<>IY% THEN M%=TRUE:*POINTER 1
  330ENDIF
  340IF Z%<>0 AND X%>410 AND X%<852 THEN
  350IF Y%>600-H% AND Y%<600+H% THEN PROCdemo:GOTO380
  360IF Y%>400-H% AND Y%<400+H% THEN PROCstupid_keys:GOTO380
  370IF Y%>200-H% AND Y%<200+H% THEN PROCplay:GOTO380
  380ENDIF
  390A$=INKEY$(1)
  400CASE A$ OF
  410WHEN "D","d":PROCdemo
  420WHEN "S","s":M%=0:PROCstupid_keys
  430WHEN "P","p":PROCplay
  440ENDCASE
  450UNTIL TIME>30*100
  460PROCdemo
  470UNTIL FALSE
  480ENDPROC
  490
  500DEF PROCmenu(YES)
  510*FX 112 1
  520GCOL 128 TINT 0
  530COLOUR 128 TINT 0
  540IF YES THEN
  550*LOAD <ALERION$DIR>.CODE
  560VDU26,12
  570CALL code
  580ELSE
  590VDU26,12
  600ENDIF
  610VDU5:OFF
  615PRINTTAB(7,10)"(C) Archimedes World 1994"
  620PROCbox(%00110011,%11000011,"Demo Mode",640,600)
  630PROCbox(%00001111,%01000011,"Setup Keys",640,400)
  640PROCbox(%11111111,%11010101,"Play Alerion",640,200)
  660IF M% THEN *POINTER 1
  670TIME=0
  680ENDPROC
  690
  700DEF PROCbox(F%,B%,A$,X%,Y%)
  710GCOL 0,F%>>2 TINT F%<<6
  720GCOL 0,128+(B%>>2) TINT B%<<6
  730Y%=Y%+12
  740P%=32
  750L%=X%-LEN A$*(P%/2):R%=X%+LEN A$*(P%/2)
  760T%=Y%:B%=Y%-8*4
  770D%=LEN A$*P%:C%=32
  780H%=8*4
  790PROCgbox(L%-C%,T%,C%)
  800PROCp(4,L%,T%):PROCp(&9B,C%,0)
  810PROCp(4,L%,T%):PROCp(&91,C%,0)
  820PROCgbox(R%,T%,C%)
  830PROCp(4,R%,T%):PROCp(&9B,C%,0)
  840PROCp(4,R%,T%):PROCp(&91,C%,0)
  850PROCgbox(L%-C%,B%-C%,C%)
  860PROCp(4,L%,B%):PROCp(&9B,C%,0)
  870PROCp(4,L%,B%):PROCp(&91,C%,0)
  880PROCgbox(R%,B%-C%,C%)
  890PROCp(4,R%,B%):PROCp(&9B,C%,0)
  900PROCp(4,R%,B%):PROCp(&91,C%,0)
  910VDU26
  920PROCp(4,L%-C%,B%+4):PROCp(&63,D%+2*C%,C%)
  930PROCp(4,L%-C%,B%+4):PROCp(1,0,H%)
  940PROCp(4,R%+C%,B%+4):PROCp(1,0,H%)
  950PROCp(4,L%,B%-C%):PROCp(&63,D%,H%+2*C%)
  960PROCp(4,L%,B%-C%):PROCp(1,D%,0)
  970PROCp(4,L%,T%+C%):PROCp(1,D%,0)
  980PROCp(4,X%-LEN A$*16,Y%):PRINTA$
  990ENDPROC
 1000
 1010DEF PROCgbox(X%,Y%,W%)
 1020VDU24,X%;Y%;X%+W%;Y%+W%;
 1030ENDPROC
 1040
 1050DEF PROCp(K%,X%,Y%)
 1060VDU25,K%,X%,X% DIV 256,Y%,Y% DIV 256:ENDPROC
 1070
 1080DEF PROCplay
 1090*POINTER 0
 1100PROCinitg
 1110CALL play
 1120PROCmenu(TRUE)
 1130ENDPROC
 1140
 1150DEF PROCdemo
 1160*POINTER 0
 1170PROCinitg
 1180CALL play-8
 1190PROCmenu(TRUE)
 1200ENDPROC
 1210
 1220DEF PROCinitg
 1230CALL &E000
 1240*LOAD <ALERION$DIR>.G2 1FEC000
 1250CALL C:VDU26:*L. <ALERION$DIR>.G
 1260PROCsetkeys(keys):PROCd
 1270ENDPROC
 1280
 1290DEF PROCsetkeys(M%):FOR K%=0 TO 6:?(M%+K%)=P%(K%+1):NEXT:?(M%+K%)=(S%=305):ENDPROC
 1300
 1310DEF PROCd
 1320GCOL 128 TINT 0:COLOUR 128 TINT 0
 1330VDU4:OFF
 1340ENDPROC
 1350
 1360DEF PROCstupid_keys
 1370IF M%=0 THEN *POINTER 0
 1380PROCd
 1390VDU5:Z%=0:VDU28,0,32,39,10:CLS:VDU26:OFF
 1400PROCnow:PROCkeys:KS%=1:PROCmovements(KS%):PROCmark(3,%101010):LS=3
 1410VDU4:OFF:REPEAT:PROCkeysel:UNTIL Z%=2
 1420*FX21,0
 1430PROCmenu(FALSE)
 1440ENDPROC
 1450
 1460DEF PROCnow:RESTORE 1490:FOR N%=1 TO 7:READ P$(N%),P%(N%):NEXT
 1470ENDPROC
 1480
 1490DATA Z,-98
 1500DATA X,-67
 1510DATA ',-80
 1520DATA /,-105
 1530DATA Return,-74
 1540DATA Alt,-3
 1550DATA Space,-99
 1560
 1570DEFPROCmovements(P%)
 1580VDU4:OFF:RESTORE 1630:FOR K%=1 TO 7
 1590IF K%=P% THEN COLOUR K% TINT &FF ELSE COLOUR63 TINT &FF
 1600READ K$:K$+=" "+P$(K%):PRINTTAB(0,8+K%*2)SPC(39)
 1610PRINTTAB((40-LEN K$)/2,8+K%*2);K$:NEXT:ENDPROC
 1620
 1630DATA Left
 1640DATA Right
 1650DATA Forwards
 1660DATA Backwards
 1670DATA Air fire
 1680DATA Ground fire
 1690DATA Activate FAC
 1700
 1710DEF PROCkeysel
 1720Z%=0
 1730IF INKEY-61 THEN Z%=2:ENDPROC
 1740IF M% THEN
 1750MOUSE X%,Y%,Z%
 1760L%=Y% DIV (kh+8)
 1770CASE L% OF
 1780WHEN 0:PROCcase(0,6)
 1790WHEN 1:PROCcase(7,18)
 1800WHEN 2:PROCcase(19,31)
 1810WHEN 3:PROCcase(32,45)
 1820WHEN 4:PROCcase(46,60)
 1830ENDCASE
 1840ELSE
 1850SYS "OS_Byte",&79,0 TO ,ink
 1860IF ink=60 THEN Z%=2:ENDPROC
 1870IF ink<>&FF THEN
 1880IF int(ink)=0 THEN GOTO1910
 1890LS=int(ink)
 1900Z%=4
 1910ENDIF
 1920ENDIF
 1930
 1940IF Z%=2 THEN ENDPROC
 1950
 1960IF Z%=4 AND B%(LS,3)=0 THEN
 1970CASE LS OF
 1980WHEN 19,6:B%(19,3)=1:B%(6,3)=1:PROCmark(19,KS%):PROCmark(6,KS%)
 1990WHEN 18,7:B%(18,3)=1:B%(7,3)=1:PROCmark(18,KS%):PROCmark(7,KS%)
 2000WHEN 4,2:B%(4,3)=1:B%(2,3)=1:PROCmark(4,KS%):PROCmark(2,KS%)
 2010OTHERWISE
 2020B%(LS,3)=1:PROCmark(LS,KS%)
 2030ENDCASE
 2040P$(KS%)=box$(LS):P%(KS%)=B%(LS,4):KS%=1+(KS% MOD 7):PROCmovements(KS%)
 2050IF KS%=1 THEN Z%=2
 2060ENDIF
 2070ENDPROC
 2080
 2090DEF PROCcase(s%,f%)
 2100FOR P%=s% TO f%
 2110IF FNin(P%) THEN PROClight(P%)
 2120NEXT
 2130ENDPROC
 2140
 2150DEF PROClight(B%)
 2160IF B%(B%,3) THEN ENDPROC
 2170IF LS=B% THEN ENDPROC
 2180IF B%(LS,3)=0 THEN PROCmark(LS,%111111)
 2190LS=B%
 2200PROCmark(LS,%101010)
 2210ENDPROC
 2220
 2230DEF PROCmark(B%,C%)
 2240GCOL C%
 2250VDU5
 2260w%=B%(B%,2)-B%(B%,0)
 2270MOVE B%(B%,0)+(w%-32*LEN box$(B%))/2,B%(B%,1)+kh-8
 2280PRINTbox$(B%)
 2290ENDPROC
 2300
 2310DEF FNin(B%)
 2320IF B%(B%,4)=0 THEN =FALSE
 2330IF X%<B%(B%,0) THEN =FALSE
 2340IF Y%<B%(B%,1) THEN =FALSE
 2350IF X%>B%(B%,2) THEN =FALSE
 2360IF Y%>B%(B%,1)+kh THEN =FALSE
 2370=TRUE
 2380
 2390DEF PROCkeys
 2400RESTORE 2670:Q%=0
 2410MOVE 0,0
 2420kw=16*3.1
 2430kh=16*3.1
 2440TKW=1.6
 2450FOR K%=1 TO 7:READ W,KT$,IV:PROCrect(W,KT$,IV):NEXT
 2460MOVE 0,1*(kh+8)
 2470FOR K%=1 TO 12:READ W,KT$,IV:PROCrect(W,KT$,IV):NEXT
 2480MOVE 0,2*(kh+8)
 2490FOR K%=1 TO 13:READ W,KT$,IV:PROCrect(W,KT$,IV):NEXT
 2500MOVE 0,3*(kh+8)
 2510FOR K%=1 TO 14:READ W,KT$,IV:PROCrect(W,KT$,IV):NEXT
 2520MOVE 0,4*(kh+8)
 2530FOR K%=1 TO 15:READ W,KT$,IV:PROCrect(W,KT$,IV):NEXT
 2540ENDPROC
 2550
 2560DEF PROCrect(H,T$,IV)
 2570B%(Q%,4)=-IV:J%!0=144:J%!4=145:J%!8=-1:SYS &31,J%,J%
 2580XP=4*J%!0:YP=4*J%!4:B%(Q%,0)=XP:B%(Q%,1)=YP
 2590B%(Q%,2)=H*kw+XP:box$(Q%)=T$:B%(Q%,3)=0:IF IV>0 THEN int(IV-1)=Q%
 2600Q%+=1:PLOT1,kw*H,0:PLOT1,0,kh:PLOT1,-kw*H,0:PLOT1,0,-kh:PLOT0,kw*H+8,0
 2610J%!0=144:J%!4=145:J%!8=-1:SYS &31,J%,J%
 2620MOVE XP+(kw*H-32*LEN T$)/2,YP+kh-8:PRINTT$:MOVE 4*J%!0,4*J%!4
 2630ENDPROC
 2640
 2650REM IF YOU USE THIS THEN PLEASE RESPECT THE TIME I SPENT DOING IT
 2660REM A CREDIT OR THANKS WOULD BE NICE, RING ME THROUGH DABS ....
 2670DATA 2,"",0
 2680DATA 2,"",0
 2690DATA 2.1,"Alt",3
 2700DATA 12.5,"Space",99
 2710DATA 2.1,"Alt",3
 2720DATA 2,"",0
 2730DATA 2,"Ctl",2
 2740
 2750DATA 3.5,"Shift",1
 2760DATA TKW,"Z",98
 2770DATA TKW,"X",67
 2780DATA TKW,"C",83
 2790DATA TKW,"V",100
 2800DATA TKW,"B",101
 2810DATA TKW,"N",86
 2820DATA TKW,"M",102
 2830DATA TKW,",",103
 2840DATA TKW,".",104
 2850DATA TKW,"/",105
 2860DATA 4.5,"Shift",1
 2870
 2880DATA 2.5,"Ctl",2
 2890DATA TKW,"A",66
 2900DATA TKW,"S",82
 2910DATA TKW,"D",51
 2920DATA TKW,"F",68
 2930DATA TKW,"G",84
 2940DATA TKW,"H",85
 2950DATA TKW,"J",70
 2960DATA TKW,"K",71
 2970DATA TKW,"L",87
 2980DATA TKW,";",88
 2990DATA TKW,"'",80
 3000DATA 3.5,"RET",74
 3010
 3020DATA 2,"Tab",97
 3030DATA TKW,"Q",17
 3040DATA TKW,"W",34
 3050DATA TKW,"E",35
 3060DATA TKW,"R",52
 3070DATA TKW,"T",36
 3080DATA TKW,"Y",69
 3090DATA TKW,"U",54
 3100DATA TKW,"I",38
 3110DATA TKW,"O",55
 3120DATA TKW,"P",56
 3130DATA TKW,"[",57
 3140DATA TKW,"]",89
 3150DATA 2,"\",121
 3160
 3170DATA TKW,"`",46
 3180DATA TKW,"1",49
 3190DATA TKW,"2",50
 3200DATA TKW,"3",18
 3210DATA TKW,"4",19
 3220DATA TKW,"5",20
 3230DATA TKW,"6",53
 3240DATA TKW,"7",37
 3250DATA TKW,"8",22
 3260DATA TKW,"9",39
 3270DATA TKW,"0",40
 3280DATA TKW,"-",24
 3290DATA TKW,"",0
 3300DATA TKW,"�",47
 3310DATA 1,"",0
 3320
 3330DEF PROCcode
 3340DIM C &100:FOR pass=0 TO 2 STEP2:P%=C:[OPT pass
 3350LDR R0,start:LDR R1,dest:MOV R2,#80*&400
 3360.cl LDR R3,[R0],#4:STR R3,[R1],#4:SUBS R2,R2,#4:BNE cl:MOV PC,R14
 3370.start EQUD &1FEC000:.dest EQUD &1FD8000
 3380:]:NEXT:ENDPROC


� > <Alerion$Dir>.!RunImage

� 0
(
2X%=� "<Alerion$Dir>.Font"
<
F�
P � �#X%
Z
� �#X%
d
n	� #X%
x
�� (C) Felix Andrew 88
�
�Ƞ 4
�
�=&E000-1
�code=&11434:�code
�play=&26ABC:keys=&1E06C
�� 13
�*POINTER 0
�*FX113 1
�
*FX4 2
��:M%=�:�menu(�)
�� P$(7),P%(7)
�0� B%(100,4),box$(100),int(&FF):Q%=0:� J% &10
� � �menu(�)
�now:H%=4*4+C%
�4:�:ȗ IX%,IY%,Z%
"�:�=0:�
,ȗ X%,Y%,Z%
6� M%=� �
@)� X%<>IX% � Y%<>IY% � M%=�:*POINTER 1
J�
T� Z%<>0 � X%>410 � X%<852 �
^)� Y%>600-H% � Y%<600+H% � �demo:�D|A
h0� Y%>400-H% � Y%<400+H% � �stupid_keys:�D|A
r)� Y%>200-H% � Y%<200+H% � �play:�D|A
|�
�A$=�(1)
�Ȏ A$ �
�� "D","d":�demo
�� "S","s":M%=0:�stupid_keys
�� "P","p":�play
��
�� �>30*100
�	�demo
�� �
��
�
�� �menu(YES)
�
*FX 112 1
� 128 Ȝ 0
� 128 Ȝ 0
� YES �
&*LOAD <ALERION$DIR>.CODE
0
�26,12
:
� code
D�
N
�26,12
X�
b�5:�
g&�7,10)"(C) Archimedes World 1994"
l1�box(%00110011,%11000011,"Demo Mode",640,600)
v2�box(%00001111,%01000011,"Setup Keys",640,400)
�4�box(%11111111,%11010101,"Play Alerion",640,200)
�� M% � *POINTER 1
��=0
��
�
�� �box(F%,B%,A$,X%,Y%)
�� 0,F%>>2 Ȝ F%<<6
�� 0,128+(B%>>2) Ȝ B%<<6
�Y%=Y%+12
�	P%=32
�'L%=X%-� A$*(P%/2):R%=X%+� A$*(P%/2)
�T%=Y%:B%=Y%-8*4
D%=� A$*P%:C%=32

H%=8*4
�gbox(L%-C%,T%,C%)
 �p(4,L%,T%):�p(&9B,C%,0)
*�p(4,L%,T%):�p(&91,C%,0)
4�gbox(R%,T%,C%)
>�p(4,R%,T%):�p(&9B,C%,0)
H�p(4,R%,T%):�p(&91,C%,0)
R�gbox(L%-C%,B%-C%,C%)
\�p(4,L%,B%):�p(&9B,C%,0)
f�p(4,L%,B%):�p(&91,C%,0)
p�gbox(R%,B%-C%,C%)
z�p(4,R%,B%):�p(&9B,C%,0)
��p(4,R%,B%):�p(&91,C%,0)
��26
�'�p(4,L%-C%,B%+4):�p(&63,D%+2*C%,C%)
��p(4,L%-C%,B%+4):�p(1,0,H%)
��p(4,R%+C%,B%+4):�p(1,0,H%)
�%�p(4,L%,B%-C%):�p(&63,D%,H%+2*C%)
��p(4,L%,B%-C%):�p(1,D%,0)
��p(4,L%,T%+C%):�p(1,D%,0)
��p(4,X%-� A$*16,Y%):�A$
��
�
�� �gbox(X%,Y%,W%)
��24,X%;Y%;X%+W%;Y%+W%;
�

� �p(K%,X%,Y%)
$$�25,K%,X%,X% � 256,Y%,Y% � 256:�
.
8� �play
B*POINTER 0
L
�initg
V
� play
`�menu(�)
j�
t
~� �demo
�*POINTER 0
�
�initg
�� play-8
��menu(�)
��
�
�� �initg
�� &E000
�"*LOAD <ALERION$DIR>.G2 1FEC000
�� C:�26:*L. <ALERION$DIR>.G
��setkeys(keys):�d
��


E� �setkeys(M%):� K%=0 � 6:?(M%+K%)=P%(K%+1):�:?(M%+K%)=(S%=305):�

� �d
(� 128 Ȝ 0:� 128 Ȝ 0
2�4:�
<�
F
P� �stupid_keys
Z� M%=0 � *POINTER 0
d�d
n"�5:Z%=0:�28,0,32,39,10:�:�26:�
x:�now:�keys:KS%=1:�movements(KS%):�mark(3,%101010):LS=3
��4:�:�:�keysel:� Z%=2
�*FX21,0
��menu(�)
��
�
�.� �now:� �dRE:� N%=1 � 7:� P$(N%),P%(N%):�
��
�
�� Z,-98
�� X,-67
�� ',-80
�� /,-105
�� Return,-74
� Alt,-3
� Space,-99

"��movements(P%)
,�4:�:� �D^F:� K%=1 � 7
6&� K%=P% � � K% Ȝ &FF � �63 Ȝ &FF
@(� K$:K$+=" "+P$(K%):�0,8+K%*2)�(39)
J �(40-� K$)/2,8+K%*2);K$:�:�
T
^
� Left
h� Right
r� Forwards
|� Backwards
�� Air fire
�� Ground fire
�� Activate FAC
�
�
� �keysel
�Z%=0
�� �-61 � Z%=2:�
�
� M% �
�ȗ X%,Y%,Z%
�L%=Y% � (kh+8)
�Ȏ L% �
�� 0:�case(0,6)
�� 1:�case(7,18)
� 2:�case(19,31)
� 3:�case(32,45)
� 4:�case(46,60)
&�
0�
:ș "OS_Byte",&79,0 � ,ink
D� ink=60 � Z%=2:�
N� ink<>&FF �
X� int(ink)=0 � �DvG
bLS=int(ink)
lZ%=4
v�
��
�
�� Z%=2 � �
�
�� Z%=4 � B%(LS,3)=0 �
�Ȏ LS �
�:� 19,6:B%(19,3)=1:B%(6,3)=1:�mark(19,KS%):�mark(6,KS%)
�:� 18,7:B%(18,3)=1:B%(7,3)=1:�mark(18,KS%):�mark(7,KS%)
�7� 4,2:B%(4,3)=1:B%(2,3)=1:�mark(4,KS%):�mark(2,KS%)
�
�B%(LS,3)=1:�mark(LS,KS%)
��
�EP$(KS%)=box$(LS):P%(KS%)=B%(LS,4):KS%=1+(KS% � 7):�movements(KS%)
� KS%=1 � Z%=2
�
�
 
*� �case(s%,f%)
4� P%=s% � f%
>� �in(P%) � �light(P%)
H�
R�
\
f� �light(B%)
p� B%(B%,3) � �
z� LS=B% � �
�$� B%(LS,3)=0 � �mark(LS,%111111)
�	LS=B%
��mark(LS,%101010)
��
�
�� �mark(B%,C%)
�� C%
��5
�w%=B%(B%,2)-B%(B%,0)
�1� B%(B%,0)+(w%-32*� box$(B%))/2,B%(B%,1)+kh-8
�
�box$(B%)
��
�
	
� �in(B%)
	� B%(B%,4)=0 � =�
	� X%<B%(B%,0) � =�
	$� Y%<B%(B%,1) � =�
	.� X%>B%(B%,2) � =�
	8� Y%>B%(B%,1)+kh � =�
	B=�
	L
	V� �keys
	`� �DnJ:Q%=0
	j	� 0,0
	t
kw=16*3.1
	~
kh=16*3.1
	�TKW=1.6
	�+� K%=1 � 7:� W,KT$,IV:�rect(W,KT$,IV):�
	�� 0,1*(kh+8)
	�,� K%=1 � 12:� W,KT$,IV:�rect(W,KT$,IV):�
	�� 0,2*(kh+8)
	�,� K%=1 � 13:� W,KT$,IV:�rect(W,KT$,IV):�
	�� 0,3*(kh+8)
	�,� K%=1 � 14:� W,KT$,IV:�rect(W,KT$,IV):�
	�� 0,4*(kh+8)
	�,� K%=1 � 15:� W,KT$,IV:�rect(W,KT$,IV):�
	��
	�
� �rect(H,T$,IV)

7B%(Q%,4)=-IV:J%!0=144:J%!4=145:J%!8=-1:ș &31,J%,J%
/XP=4*J%!0:YP=4*J%!4:B%(Q%,0)=XP:B%(Q%,1)=YP
AB%(Q%,2)=H*kw+XP:box$(Q%)=T$:B%(Q%,3)=0:� IV>0 � int(IV-1)=Q%
(;Q%+=1:�1,kw*H,0:�1,0,kh:�1,-kw*H,0:�1,0,-kh:�0,kw*H+8,0
2*J%!0=144:J%!4=145:J%!8=-1:ș &31,J%,J%
<5� XP+(kw*H-32*� T$)/2,YP+kh-8:�T$:� 4*J%!0,4*J%!4
F�
P
ZC� IF YOU USE THIS THEN PLEASE RESPECT THE TIME I SPENT DOING IT
dA� A CREDIT OR THANKS WOULD BE NICE, RING ME THROUGH DABS ....
n� 2,"",0
x� 2,"",0
�� 2.1,"Alt",3
�� 12.5,"Space",99
�� 2.1,"Alt",3
�� 2,"",0
�� 2,"Ctl",2
�
�� 3.5,"Shift",1
�� TKW,"Z",98
�� TKW,"X",67
�� TKW,"C",83
�� TKW,"V",100
�� TKW,"B",101
�� TKW,"N",86
� TKW,"M",102
� TKW,",",103
� TKW,".",104
"� TKW,"/",105
,� 4.5,"Shift",1
6
@� 2.5,"Ctl",2
J� TKW,"A",66
T� TKW,"S",82
^� TKW,"D",51
h� TKW,"F",68
r� TKW,"G",84
|� TKW,"H",85
�� TKW,"J",70
�� TKW,"K",71
�� TKW,"L",87
�� TKW,";",88
�� TKW,"'",80
�� 3.5,"RET",74
�
�� 2,"Tab",97
�� TKW,"Q",17
�� TKW,"W",34
�� TKW,"E",35
�� TKW,"R",52
�� TKW,"T",36
� TKW,"Y",69
� TKW,"U",54
� TKW,"I",38
&� TKW,"O",55
0� TKW,"P",56
:� TKW,"[",57
D� TKW,"]",89
N� 2,"\",121
X
b� TKW,"`",46
l� TKW,"1",49
v� TKW,"2",50
�� TKW,"3",18
�� TKW,"4",19
�� TKW,"5",20
�� TKW,"6",53
�� TKW,"7",37
�� TKW,"8",22
�� TKW,"9",39
�� TKW,"0",40
�� TKW,"-",24
�� TKW,"",0
�� TKW,"�",47
�� 1,"",0
�

� �code

+� C &100:� pass=0 � 2 �2:P%=C:[OPT pass

,LDR R0,start:LDR R1,dest:MOV R2,#80*&400

 E.cl LDR R3,[R0],#4:STR R3,[R1],#4:SUBS R2,R2,#4:BNE cl:MOV PC,R14

*,.start EQUD &1FEC000:.dest EQUD &1FD8000

4
:]:�:�
�

00000000  0d 00 0a 1f f4 20 3e 20  3c 41 6c 65 72 69 6f 6e  |..... > <Alerion|
00000010  24 44 69 72 3e 2e 21 52  75 6e 49 6d 61 67 65 0d  |$Dir>.!RunImage.|
00000020  00 14 04 0d 00 1e 07 eb  20 30 0d 00 28 04 0d 00  |........ 0..(...|
00000030  32 1d 58 25 3d 8e 20 22  3c 41 6c 65 72 69 6f 6e  |2.X%=. "<Alerion|
00000040  24 44 69 72 3e 2e 46 6f  6e 74 22 0d 00 3c 04 0d  |$Dir>.Font"..<..|
00000050  00 46 05 f5 0d 00 50 0b  20 ef 20 9a 23 58 25 0d  |.F....P. . .#X%.|
00000060  00 5a 0a fd 20 c5 23 58  25 0d 00 64 04 0d 00 6e  |.Z.. .#X%..d...n|
00000070  09 d9 20 23 58 25 0d 00  78 04 0d 00 82 19 f4 20  |.. #X%..x...... |
00000080  28 43 29 20 46 65 6c 69  78 20 41 6e 64 72 65 77  |(C) Felix Andrew|
00000090  20 38 38 0d 00 8c 04 0d  00 96 08 c8 a0 20 34 0d  | 88.......... 4.|
000000a0  00 a0 0d d3 3d 26 45 30  30 30 2d 31 0d 00 aa 15  |....=&E000-1....|
000000b0  63 6f 64 65 3d 26 31 31  34 33 34 3a f2 63 6f 64  |code=&11434:.cod|
000000c0  65 0d 00 b4 1b 70 6c 61  79 3d 26 32 36 41 42 43  |e....play=&26ABC|
000000d0  3a 6b 65 79 73 3d 26 31  45 30 36 43 0d 00 be 08  |:keys=&1E06C....|
000000e0  eb 20 31 33 0d 00 c8 0e  2a 50 4f 49 4e 54 45 52  |. 13....*POINTER|
000000f0  20 30 0d 00 d2 0c 2a 46  58 31 31 33 20 31 0d 00  | 0....*FX113 1..|
00000100  dc 0a 2a 46 58 34 20 32  0d 00 e6 13 87 3a 4d 25  |..*FX4 2.....:M%|
00000110  3d a3 3a f2 6d 65 6e 75  28 b9 29 0d 00 f0 11 de  |=.:.menu(.).....|
00000120  20 50 24 28 37 29 2c 50  25 28 37 29 0d 00 fa 30  | P$(7),P%(7)...0|
00000130  de 20 42 25 28 31 30 30  2c 34 29 2c 62 6f 78 24  |. B%(100,4),box$|
00000140  28 31 30 30 29 2c 69 6e  74 28 26 46 46 29 3a 51  |(100),int(&FF):Q|
00000150  25 3d 30 3a de 20 4a 25  20 26 31 30 0d 01 04 10  |%=0:. J% &10....|
00000160  ee 20 85 20 f2 6d 65 6e  75 28 b9 29 0d 01 0e 12  |. . .menu(.)....|
00000170  f2 6e 6f 77 3a 48 25 3d  34 2a 34 2b 43 25 0d 01  |.now:H%=4*4+C%..|
00000180  18 16 ef 34 3a 87 3a c8  97 20 49 58 25 2c 49 59  |...4:.:.. IX%,IY|
00000190  25 2c 5a 25 0d 01 22 0b  f5 3a d1 3d 30 3a f5 0d  |%,Z%.."..:.=0:..|
000001a0  01 2c 0f c8 97 20 58 25  2c 59 25 2c 5a 25 0d 01  |.,... X%,Y%,Z%..|
000001b0  36 0c e7 20 4d 25 3d a3  20 8c 0d 01 40 29 e7 20  |6.. M%=. ...@). |
000001c0  58 25 3c 3e 49 58 25 20  84 20 59 25 3c 3e 49 59  |X%<>IX% . Y%<>IY|
000001d0  25 20 8c 20 4d 25 3d b9  3a 2a 50 4f 49 4e 54 45  |% . M%=.:*POINTE|
000001e0  52 20 31 0d 01 4a 05 cd  0d 01 54 1f e7 20 5a 25  |R 1..J....T.. Z%|
000001f0  3c 3e 30 20 80 20 58 25  3e 34 31 30 20 80 20 58  |<>0 . X%>410 . X|
00000200  25 3c 38 35 32 20 8c 0d  01 5e 29 e7 20 59 25 3e  |%<852 ...^). Y%>|
00000210  36 30 30 2d 48 25 20 80  20 59 25 3c 36 30 30 2b  |600-H% . Y%<600+|
00000220  48 25 20 8c 20 f2 64 65  6d 6f 3a e5 8d 44 7c 41  |H% . .demo:..D|A|
00000230  0d 01 68 30 e7 20 59 25  3e 34 30 30 2d 48 25 20  |..h0. Y%>400-H% |
00000240  80 20 59 25 3c 34 30 30  2b 48 25 20 8c 20 f2 73  |. Y%<400+H% . .s|
00000250  74 75 70 69 64 5f 6b 65  79 73 3a e5 8d 44 7c 41  |tupid_keys:..D|A|
00000260  0d 01 72 29 e7 20 59 25  3e 32 30 30 2d 48 25 20  |..r). Y%>200-H% |
00000270  80 20 59 25 3c 32 30 30  2b 48 25 20 8c 20 f2 70  |. Y%<200+H% . .p|
00000280  6c 61 79 3a e5 8d 44 7c  41 0d 01 7c 05 cd 0d 01  |lay:..D|A..|....|
00000290  86 0b 41 24 3d bf 28 31  29 0d 01 90 0b c8 8e 20  |..A$=.(1)...... |
000002a0  41 24 20 ca 0d 01 9a 13  c9 20 22 44 22 2c 22 64  |A$ ...... "D","d|
000002b0  22 3a f2 64 65 6d 6f 0d  01 a4 1f c9 20 22 53 22  |":.demo..... "S"|
000002c0  2c 22 73 22 3a 4d 25 3d  30 3a f2 73 74 75 70 69  |,"s":M%=0:.stupi|
000002d0  64 5f 6b 65 79 73 0d 01  ae 13 c9 20 22 50 22 2c  |d_keys..... "P",|
000002e0  22 70 22 3a f2 70 6c 61  79 0d 01 b8 05 cb 0d 01  |"p":.play.......|
000002f0  c2 0e fd 20 91 3e 33 30  2a 31 30 30 0d 01 cc 09  |... .>30*100....|
00000300  f2 64 65 6d 6f 0d 01 d6  07 fd 20 a3 0d 01 e0 05  |.demo..... .....|
00000310  e1 0d 01 ea 04 0d 01 f4  10 dd 20 f2 6d 65 6e 75  |.......... .menu|
00000320  28 59 45 53 29 0d 01 fe  0d 2a 46 58 20 31 31 32  |(YES)....*FX 112|
00000330  20 31 0d 02 08 0e e6 20  31 32 38 20 c8 9c 20 30  | 1..... 128 .. 0|
00000340  0d 02 12 0e fb 20 31 32  38 20 c8 9c 20 30 0d 02  |..... 128 .. 0..|
00000350  1c 0b e7 20 59 45 53 20  8c 0d 02 26 1c 2a 4c 4f  |... YES ...&.*LO|
00000360  41 44 20 3c 41 4c 45 52  49 4f 4e 24 44 49 52 3e  |AD <ALERION$DIR>|
00000370  2e 43 4f 44 45 0d 02 30  0a ef 32 36 2c 31 32 0d  |.CODE..0..26,12.|
00000380  02 3a 0a d6 20 63 6f 64  65 0d 02 44 05 cc 0d 02  |.:.. code..D....|
00000390  4e 0a ef 32 36 2c 31 32  0d 02 58 05 cd 0d 02 62  |N..26,12..X....b|
000003a0  08 ef 35 3a 87 0d 02 67  26 f1 8a 37 2c 31 30 29  |..5:...g&..7,10)|
000003b0  22 28 43 29 20 41 72 63  68 69 6d 65 64 65 73 20  |"(C) Archimedes |
000003c0  57 6f 72 6c 64 20 31 39  39 34 22 0d 02 6c 31 f2  |World 1994"..l1.|
000003d0  62 6f 78 28 25 30 30 31  31 30 30 31 31 2c 25 31  |box(%00110011,%1|
000003e0  31 30 30 30 30 31 31 2c  22 44 65 6d 6f 20 4d 6f  |1000011,"Demo Mo|
000003f0  64 65 22 2c 36 34 30 2c  36 30 30 29 0d 02 76 32  |de",640,600)..v2|
00000400  f2 62 6f 78 28 25 30 30  30 30 31 31 31 31 2c 25  |.box(%00001111,%|
00000410  30 31 30 30 30 30 31 31  2c 22 53 65 74 75 70 20  |01000011,"Setup |
00000420  4b 65 79 73 22 2c 36 34  30 2c 34 30 30 29 0d 02  |Keys",640,400)..|
00000430  80 34 f2 62 6f 78 28 25  31 31 31 31 31 31 31 31  |.4.box(%11111111|
00000440  2c 25 31 31 30 31 30 31  30 31 2c 22 50 6c 61 79  |,%11010101,"Play|
00000450  20 41 6c 65 72 69 6f 6e  22 2c 36 34 30 2c 32 30  | Alerion",640,20|
00000460  30 29 0d 02 94 15 e7 20  4d 25 20 8c 20 2a 50 4f  |0)..... M% . *PO|
00000470  49 4e 54 45 52 20 31 0d  02 9e 07 d1 3d 30 0d 02  |INTER 1.....=0..|
00000480  a8 05 e1 0d 02 b2 04 0d  02 bc 1a dd 20 f2 62 6f  |............ .bo|
00000490  78 28 46 25 2c 42 25 2c  41 24 2c 58 25 2c 59 25  |x(F%,B%,A$,X%,Y%|
000004a0  29 0d 02 c6 16 e6 20 30  2c 46 25 3e 3e 32 20 c8  |)..... 0,F%>>2 .|
000004b0  9c 20 46 25 3c 3c 36 0d  02 d0 1c e6 20 30 2c 31  |. F%<<6..... 0,1|
000004c0  32 38 2b 28 42 25 3e 3e  32 29 20 c8 9c 20 42 25  |28+(B%>>2) .. B%|
000004d0  3c 3c 36 0d 02 da 0c 59  25 3d 59 25 2b 31 32 0d  |<<6....Y%=Y%+12.|
000004e0  02 e4 09 50 25 3d 33 32  0d 02 ee 27 4c 25 3d 58  |...P%=32...'L%=X|
000004f0  25 2d a9 20 41 24 2a 28  50 25 2f 32 29 3a 52 25  |%-. A$*(P%/2):R%|
00000500  3d 58 25 2b a9 20 41 24  2a 28 50 25 2f 32 29 0d  |=X%+. A$*(P%/2).|
00000510  02 f8 13 54 25 3d 59 25  3a 42 25 3d 59 25 2d 38  |...T%=Y%:B%=Y%-8|
00000520  2a 34 0d 03 02 14 44 25  3d a9 20 41 24 2a 50 25  |*4....D%=. A$*P%|
00000530  3a 43 25 3d 33 32 0d 03  0c 0a 48 25 3d 38 2a 34  |:C%=32....H%=8*4|
00000540  0d 03 16 16 f2 67 62 6f  78 28 4c 25 2d 43 25 2c  |.....gbox(L%-C%,|
00000550  54 25 2c 43 25 29 0d 03  20 1c f2 70 28 34 2c 4c  |T%,C%).. ..p(4,L|
00000560  25 2c 54 25 29 3a f2 70  28 26 39 42 2c 43 25 2c  |%,T%):.p(&9B,C%,|
00000570  30 29 0d 03 2a 1c f2 70  28 34 2c 4c 25 2c 54 25  |0)..*..p(4,L%,T%|
00000580  29 3a f2 70 28 26 39 31  2c 43 25 2c 30 29 0d 03  |):.p(&91,C%,0)..|
00000590  34 13 f2 67 62 6f 78 28  52 25 2c 54 25 2c 43 25  |4..gbox(R%,T%,C%|
000005a0  29 0d 03 3e 1c f2 70 28  34 2c 52 25 2c 54 25 29  |)..>..p(4,R%,T%)|
000005b0  3a f2 70 28 26 39 42 2c  43 25 2c 30 29 0d 03 48  |:.p(&9B,C%,0)..H|
000005c0  1c f2 70 28 34 2c 52 25  2c 54 25 29 3a f2 70 28  |..p(4,R%,T%):.p(|
000005d0  26 39 31 2c 43 25 2c 30  29 0d 03 52 19 f2 67 62  |&91,C%,0)..R..gb|
000005e0  6f 78 28 4c 25 2d 43 25  2c 42 25 2d 43 25 2c 43  |ox(L%-C%,B%-C%,C|
000005f0  25 29 0d 03 5c 1c f2 70  28 34 2c 4c 25 2c 42 25  |%)..\..p(4,L%,B%|
00000600  29 3a f2 70 28 26 39 42  2c 43 25 2c 30 29 0d 03  |):.p(&9B,C%,0)..|
00000610  66 1c f2 70 28 34 2c 4c  25 2c 42 25 29 3a f2 70  |f..p(4,L%,B%):.p|
00000620  28 26 39 31 2c 43 25 2c  30 29 0d 03 70 16 f2 67  |(&91,C%,0)..p..g|
00000630  62 6f 78 28 52 25 2c 42  25 2d 43 25 2c 43 25 29  |box(R%,B%-C%,C%)|
00000640  0d 03 7a 1c f2 70 28 34  2c 52 25 2c 42 25 29 3a  |..z..p(4,R%,B%):|
00000650  f2 70 28 26 39 42 2c 43  25 2c 30 29 0d 03 84 1c  |.p(&9B,C%,0)....|
00000660  f2 70 28 34 2c 52 25 2c  42 25 29 3a f2 70 28 26  |.p(4,R%,B%):.p(&|
00000670  39 31 2c 43 25 2c 30 29  0d 03 8e 07 ef 32 36 0d  |91,C%,0).....26.|
00000680  03 98 27 f2 70 28 34 2c  4c 25 2d 43 25 2c 42 25  |..'.p(4,L%-C%,B%|
00000690  2b 34 29 3a f2 70 28 26  36 33 2c 44 25 2b 32 2a  |+4):.p(&63,D%+2*|
000006a0  43 25 2c 43 25 29 0d 03  a2 1f f2 70 28 34 2c 4c  |C%,C%).....p(4,L|
000006b0  25 2d 43 25 2c 42 25 2b  34 29 3a f2 70 28 31 2c  |%-C%,B%+4):.p(1,|
000006c0  30 2c 48 25 29 0d 03 ac  1f f2 70 28 34 2c 52 25  |0,H%).....p(4,R%|
000006d0  2b 43 25 2c 42 25 2b 34  29 3a f2 70 28 31 2c 30  |+C%,B%+4):.p(1,0|
000006e0  2c 48 25 29 0d 03 b6 25  f2 70 28 34 2c 4c 25 2c  |,H%)...%.p(4,L%,|
000006f0  42 25 2d 43 25 29 3a f2  70 28 26 36 33 2c 44 25  |B%-C%):.p(&63,D%|
00000700  2c 48 25 2b 32 2a 43 25  29 0d 03 c0 1d f2 70 28  |,H%+2*C%).....p(|
00000710  34 2c 4c 25 2c 42 25 2d  43 25 29 3a f2 70 28 31  |4,L%,B%-C%):.p(1|
00000720  2c 44 25 2c 30 29 0d 03  ca 1d f2 70 28 34 2c 4c  |,D%,0).....p(4,L|
00000730  25 2c 54 25 2b 43 25 29  3a f2 70 28 31 2c 44 25  |%,T%+C%):.p(1,D%|
00000740  2c 30 29 0d 03 d4 1b f2  70 28 34 2c 58 25 2d a9  |,0).....p(4,X%-.|
00000750  20 41 24 2a 31 36 2c 59  25 29 3a f1 41 24 0d 03  | A$*16,Y%):.A$..|
00000760  de 05 e1 0d 03 e8 04 0d  03 f2 15 dd 20 f2 67 62  |............ .gb|
00000770  6f 78 28 58 25 2c 59 25  2c 57 25 29 0d 03 fc 1a  |ox(X%,Y%,W%)....|
00000780  ef 32 34 2c 58 25 3b 59  25 3b 58 25 2b 57 25 3b  |.24,X%;Y%;X%+W%;|
00000790  59 25 2b 57 25 3b 0d 04  06 05 e1 0d 04 10 04 0d  |Y%+W%;..........|
000007a0  04 1a 12 dd 20 f2 70 28  4b 25 2c 58 25 2c 59 25  |.... .p(K%,X%,Y%|
000007b0  29 0d 04 24 24 ef 32 35  2c 4b 25 2c 58 25 2c 58  |)..$$.25,K%,X%,X|
000007c0  25 20 81 20 32 35 36 2c  59 25 2c 59 25 20 81 20  |% . 256,Y%,Y% . |
000007d0  32 35 36 3a e1 0d 04 2e  04 0d 04 38 0b dd 20 f2  |256:.......8.. .|
000007e0  70 6c 61 79 0d 04 42 0e  2a 50 4f 49 4e 54 45 52  |play..B.*POINTER|
000007f0  20 30 0d 04 4c 0a f2 69  6e 69 74 67 0d 04 56 0a  | 0..L..initg..V.|
00000800  d6 20 70 6c 61 79 0d 04  60 0c f2 6d 65 6e 75 28  |. play..`..menu(|
00000810  b9 29 0d 04 6a 05 e1 0d  04 74 04 0d 04 7e 0b dd  |.)..j....t...~..|
00000820  20 f2 64 65 6d 6f 0d 04  88 0e 2a 50 4f 49 4e 54  | .demo....*POINT|
00000830  45 52 20 30 0d 04 92 0a  f2 69 6e 69 74 67 0d 04  |ER 0.....initg..|
00000840  9c 0c d6 20 70 6c 61 79  2d 38 0d 04 a6 0c f2 6d  |... play-8.....m|
00000850  65 6e 75 28 b9 29 0d 04  b0 05 e1 0d 04 ba 04 0d  |enu(.)..........|
00000860  04 c4 0c dd 20 f2 69 6e  69 74 67 0d 04 ce 0b d6  |.... .initg.....|
00000870  20 26 45 30 30 30 0d 04  d8 22 2a 4c 4f 41 44 20  | &E000..."*LOAD |
00000880  3c 41 4c 45 52 49 4f 4e  24 44 49 52 3e 2e 47 32  |<ALERION$DIR>.G2|
00000890  20 31 46 45 43 30 30 30  0d 04 e2 1f d6 20 43 3a  | 1FEC000..... C:|
000008a0  ef 32 36 3a 2a 4c 2e 20  3c 41 4c 45 52 49 4f 4e  |.26:*L. <ALERION|
000008b0  24 44 49 52 3e 2e 47 0d  04 ec 15 f2 73 65 74 6b  |$DIR>.G.....setk|
000008c0  65 79 73 28 6b 65 79 73  29 3a f2 64 0d 04 f6 05  |eys(keys):.d....|
000008d0  e1 0d 05 00 04 0d 05 0a  45 dd 20 f2 73 65 74 6b  |........E. .setk|
000008e0  65 79 73 28 4d 25 29 3a  e3 20 4b 25 3d 30 20 b8  |eys(M%):. K%=0 .|
000008f0  20 36 3a 3f 28 4d 25 2b  4b 25 29 3d 50 25 28 4b  | 6:?(M%+K%)=P%(K|
00000900  25 2b 31 29 3a ed 3a 3f  28 4d 25 2b 4b 25 29 3d  |%+1):.:?(M%+K%)=|
00000910  28 53 25 3d 33 30 35 29  3a e1 0d 05 14 04 0d 05  |(S%=305):.......|
00000920  1e 08 dd 20 f2 64 0d 05  28 19 e6 20 31 32 38 20  |... .d..(.. 128 |
00000930  c8 9c 20 30 3a fb 20 31  32 38 20 c8 9c 20 30 0d  |.. 0:. 128 .. 0.|
00000940  05 32 08 ef 34 3a 87 0d  05 3c 05 e1 0d 05 46 04  |.2..4:...<....F.|
00000950  0d 05 50 12 dd 20 f2 73  74 75 70 69 64 5f 6b 65  |..P.. .stupid_ke|
00000960  79 73 0d 05 5a 17 e7 20  4d 25 3d 30 20 8c 20 2a  |ys..Z.. M%=0 . *|
00000970  50 4f 49 4e 54 45 52 20  30 0d 05 64 06 f2 64 0d  |POINTER 0..d..d.|
00000980  05 6e 22 ef 35 3a 5a 25  3d 30 3a ef 32 38 2c 30  |.n".5:Z%=0:.28,0|
00000990  2c 33 32 2c 33 39 2c 31  30 3a db 3a ef 32 36 3a  |,32,39,10:.:.26:|
000009a0  87 0d 05 78 3a f2 6e 6f  77 3a f2 6b 65 79 73 3a  |...x:.now:.keys:|
000009b0  4b 53 25 3d 31 3a f2 6d  6f 76 65 6d 65 6e 74 73  |KS%=1:.movements|
000009c0  28 4b 53 25 29 3a f2 6d  61 72 6b 28 33 2c 25 31  |(KS%):.mark(3,%1|
000009d0  30 31 30 31 30 29 3a 4c  53 3d 33 0d 05 82 19 ef  |01010):LS=3.....|
000009e0  34 3a 87 3a f5 3a f2 6b  65 79 73 65 6c 3a fd 20  |4:.:.:.keysel:. |
000009f0  5a 25 3d 32 0d 05 8c 0b  2a 46 58 32 31 2c 30 0d  |Z%=2....*FX21,0.|
00000a00  05 96 0c f2 6d 65 6e 75  28 a3 29 0d 05 a0 05 e1  |....menu(.).....|
00000a10  0d 05 aa 04 0d 05 b4 2e  dd 20 f2 6e 6f 77 3a f7  |......... .now:.|
00000a20  20 8d 64 52 45 3a e3 20  4e 25 3d 31 20 b8 20 37  | .dRE:. N%=1 . 7|
00000a30  3a f3 20 50 24 28 4e 25  29 2c 50 25 28 4e 25 29  |:. P$(N%),P%(N%)|
00000a40  3a ed 0d 05 be 05 e1 0d  05 c8 04 0d 05 d2 0b dc  |:...............|
00000a50  20 5a 2c 2d 39 38 0d 05  dc 0b dc 20 58 2c 2d 36  | Z,-98..... X,-6|
00000a60  37 0d 05 e6 0b dc 20 27  2c 2d 38 30 0d 05 f0 0c  |7..... ',-80....|
00000a70  dc 20 2f 2c 2d 31 30 35  0d 05 fa 10 dc 20 52 65  |. /,-105..... Re|
00000a80  74 75 72 6e 2c 2d 37 34  0d 06 04 0c dc 20 41 6c  |turn,-74..... Al|
00000a90  74 2c 2d 33 0d 06 0e 0f  dc 20 53 70 61 63 65 2c  |t,-3..... Space,|
00000aa0  2d 39 39 0d 06 18 04 0d  06 22 13 dd f2 6d 6f 76  |-99......"...mov|
00000ab0  65 6d 65 6e 74 73 28 50  25 29 0d 06 2c 1a ef 34  |ements(P%)..,..4|
00000ac0  3a 87 3a f7 20 8d 44 5e  46 3a e3 20 4b 25 3d 31  |:.:. .D^F:. K%=1|
00000ad0  20 b8 20 37 0d 06 36 26  e7 20 4b 25 3d 50 25 20  | . 7..6&. K%=P% |
00000ae0  8c 20 fb 20 4b 25 20 c8  9c 20 26 46 46 20 8b 20  |. . K% .. &FF . |
00000af0  fb 36 33 20 c8 9c 20 26  46 46 0d 06 40 28 f3 20  |.63 .. &FF..@(. |
00000b00  4b 24 3a 4b 24 2b 3d 22  20 22 2b 50 24 28 4b 25  |K$:K$+=" "+P$(K%|
00000b10  29 3a f1 8a 30 2c 38 2b  4b 25 2a 32 29 89 28 33  |):..0,8+K%*2).(3|
00000b20  39 29 0d 06 4a 20 f1 8a  28 34 30 2d a9 20 4b 24  |9)..J ..(40-. K$|
00000b30  29 2f 32 2c 38 2b 4b 25  2a 32 29 3b 4b 24 3a ed  |)/2,8+K%*2);K$:.|
00000b40  3a e1 0d 06 54 04 0d 06  5e 0a dc 20 4c 65 66 74  |:...T...^.. Left|
00000b50  0d 06 68 0b dc 20 52 69  67 68 74 0d 06 72 0e dc  |..h.. Right..r..|
00000b60  20 46 6f 72 77 61 72 64  73 0d 06 7c 0f dc 20 42  | Forwards..|.. B|
00000b70  61 63 6b 77 61 72 64 73  0d 06 86 0e dc 20 41 69  |ackwards..... Ai|
00000b80  72 20 66 69 72 65 0d 06  90 11 dc 20 47 72 6f 75  |r fire..... Grou|
00000b90  6e 64 20 66 69 72 65 0d  06 9a 12 dc 20 41 63 74  |nd fire..... Act|
00000ba0  69 76 61 74 65 20 46 41  43 0d 06 a4 04 0d 06 ae  |ivate FAC.......|
00000bb0  0d dd 20 f2 6b 65 79 73  65 6c 0d 06 b8 08 5a 25  |.. .keysel....Z%|
00000bc0  3d 30 0d 06 c2 13 e7 20  a6 2d 36 31 20 8c 20 5a  |=0..... .-61 . Z|
00000bd0  25 3d 32 3a e1 0d 06 cc  0a e7 20 4d 25 20 8c 0d  |%=2:...... M% ..|
00000be0  06 d6 0f c8 97 20 58 25  2c 59 25 2c 5a 25 0d 06  |..... X%,Y%,Z%..|
00000bf0  e0 12 4c 25 3d 59 25 20  81 20 28 6b 68 2b 38 29  |..L%=Y% . (kh+8)|
00000c00  0d 06 ea 0b c8 8e 20 4c  25 20 ca 0d 06 f4 12 c9  |...... L% ......|
00000c10  20 30 3a f2 63 61 73 65  28 30 2c 36 29 0d 06 fe  | 0:.case(0,6)...|
00000c20  13 c9 20 31 3a f2 63 61  73 65 28 37 2c 31 38 29  |.. 1:.case(7,18)|
00000c30  0d 07 08 14 c9 20 32 3a  f2 63 61 73 65 28 31 39  |..... 2:.case(19|
00000c40  2c 33 31 29 0d 07 12 14  c9 20 33 3a f2 63 61 73  |,31)..... 3:.cas|
00000c50  65 28 33 32 2c 34 35 29  0d 07 1c 14 c9 20 34 3a  |e(32,45)..... 4:|
00000c60  f2 63 61 73 65 28 34 36  2c 36 30 29 0d 07 26 05  |.case(46,60)..&.|
00000c70  cb 0d 07 30 05 cc 0d 07  3a 1d c8 99 20 22 4f 53  |...0....:... "OS|
00000c80  5f 42 79 74 65 22 2c 26  37 39 2c 30 20 b8 20 2c  |_Byte",&79,0 . ,|
00000c90  69 6e 6b 0d 07 44 15 e7  20 69 6e 6b 3d 36 30 20  |ink..D.. ink=60 |
00000ca0  8c 20 5a 25 3d 32 3a e1  0d 07 4e 10 e7 20 69 6e  |. Z%=2:...N.. in|
00000cb0  6b 3c 3e 26 46 46 20 8c  0d 07 58 18 e7 20 69 6e  |k<>&FF ...X.. in|
00000cc0  74 28 69 6e 6b 29 3d 30  20 8c 20 e5 8d 44 76 47  |t(ink)=0 . ..DvG|
00000cd0  0d 07 62 0f 4c 53 3d 69  6e 74 28 69 6e 6b 29 0d  |..b.LS=int(ink).|
00000ce0  07 6c 08 5a 25 3d 34 0d  07 76 05 cd 0d 07 80 05  |.l.Z%=4..v......|
00000cf0  cd 0d 07 8a 04 0d 07 94  0e e7 20 5a 25 3d 32 20  |.......... Z%=2 |
00000d00  8c 20 e1 0d 07 9e 04 0d  07 a8 19 e7 20 5a 25 3d  |. .......... Z%=|
00000d10  34 20 80 20 42 25 28 4c  53 2c 33 29 3d 30 20 8c  |4 . B%(LS,3)=0 .|
00000d20  0d 07 b2 0b c8 8e 20 4c  53 20 ca 0d 07 bc 3a c9  |...... LS ....:.|
00000d30  20 31 39 2c 36 3a 42 25  28 31 39 2c 33 29 3d 31  | 19,6:B%(19,3)=1|
00000d40  3a 42 25 28 36 2c 33 29  3d 31 3a f2 6d 61 72 6b  |:B%(6,3)=1:.mark|
00000d50  28 31 39 2c 4b 53 25 29  3a f2 6d 61 72 6b 28 36  |(19,KS%):.mark(6|
00000d60  2c 4b 53 25 29 0d 07 c6  3a c9 20 31 38 2c 37 3a  |,KS%)...:. 18,7:|
00000d70  42 25 28 31 38 2c 33 29  3d 31 3a 42 25 28 37 2c  |B%(18,3)=1:B%(7,|
00000d80  33 29 3d 31 3a f2 6d 61  72 6b 28 31 38 2c 4b 53  |3)=1:.mark(18,KS|
00000d90  25 29 3a f2 6d 61 72 6b  28 37 2c 4b 53 25 29 0d  |%):.mark(7,KS%).|
00000da0  07 d0 37 c9 20 34 2c 32  3a 42 25 28 34 2c 33 29  |..7. 4,2:B%(4,3)|
00000db0  3d 31 3a 42 25 28 32 2c  33 29 3d 31 3a f2 6d 61  |=1:B%(2,3)=1:.ma|
00000dc0  72 6b 28 34 2c 4b 53 25  29 3a f2 6d 61 72 6b 28  |rk(4,KS%):.mark(|
00000dd0  32 2c 4b 53 25 29 0d 07  da 05 7f 0d 07 e4 1c 42  |2,KS%).........B|
00000de0  25 28 4c 53 2c 33 29 3d  31 3a f2 6d 61 72 6b 28  |%(LS,3)=1:.mark(|
00000df0  4c 53 2c 4b 53 25 29 0d  07 ee 05 cb 0d 07 f8 45  |LS,KS%)........E|
00000e00  50 24 28 4b 53 25 29 3d  62 6f 78 24 28 4c 53 29  |P$(KS%)=box$(LS)|
00000e10  3a 50 25 28 4b 53 25 29  3d 42 25 28 4c 53 2c 34  |:P%(KS%)=B%(LS,4|
00000e20  29 3a 4b 53 25 3d 31 2b  28 4b 53 25 20 83 20 37  |):KS%=1+(KS% . 7|
00000e30  29 3a f2 6d 6f 76 65 6d  65 6e 74 73 28 4b 53 25  |):.movements(KS%|
00000e40  29 0d 08 02 12 e7 20 4b  53 25 3d 31 20 8c 20 5a  |)..... KS%=1 . Z|
00000e50  25 3d 32 0d 08 0c 05 cd  0d 08 16 05 e1 0d 08 20  |%=2............ |
00000e60  04 0d 08 2a 12 dd 20 f2  63 61 73 65 28 73 25 2c  |...*.. .case(s%,|
00000e70  66 25 29 0d 08 34 10 e3  20 50 25 3d 73 25 20 b8  |f%)..4.. P%=s% .|
00000e80  20 66 25 0d 08 3e 1a e7  20 a4 69 6e 28 50 25 29  | f%..>.. .in(P%)|
00000e90  20 8c 20 f2 6c 69 67 68  74 28 50 25 29 0d 08 48  | . .light(P%)..H|
00000ea0  05 ed 0d 08 52 05 e1 0d  08 5c 04 0d 08 66 10 dd  |....R....\...f..|
00000eb0  20 f2 6c 69 67 68 74 28  42 25 29 0d 08 70 12 e7  | .light(B%)..p..|
00000ec0  20 42 25 28 42 25 2c 33  29 20 8c 20 e1 0d 08 7a  | B%(B%,3) . ...z|
00000ed0  0f e7 20 4c 53 3d 42 25  20 8c 20 e1 0d 08 84 24  |.. LS=B% . ....$|
00000ee0  e7 20 42 25 28 4c 53 2c  33 29 3d 30 20 8c 20 f2  |. B%(LS,3)=0 . .|
00000ef0  6d 61 72 6b 28 4c 53 2c  25 31 31 31 31 31 31 29  |mark(LS,%111111)|
00000f00  0d 08 8e 09 4c 53 3d 42  25 0d 08 98 15 f2 6d 61  |....LS=B%.....ma|
00000f10  72 6b 28 4c 53 2c 25 31  30 31 30 31 30 29 0d 08  |rk(LS,%101010)..|
00000f20  a2 05 e1 0d 08 ac 04 0d  08 b6 12 dd 20 f2 6d 61  |............ .ma|
00000f30  72 6b 28 42 25 2c 43 25  29 0d 08 c0 08 e6 20 43  |rk(B%,C%)..... C|
00000f40  25 0d 08 ca 06 ef 35 0d  08 d4 18 77 25 3d 42 25  |%.....5....w%=B%|
00000f50  28 42 25 2c 32 29 2d 42  25 28 42 25 2c 30 29 0d  |(B%,2)-B%(B%,0).|
00000f60  08 de 31 ec 20 42 25 28  42 25 2c 30 29 2b 28 77  |..1. B%(B%,0)+(w|
00000f70  25 2d 33 32 2a a9 20 62  6f 78 24 28 42 25 29 29  |%-32*. box$(B%))|
00000f80  2f 32 2c 42 25 28 42 25  2c 31 29 2b 6b 68 2d 38  |/2,B%(B%,1)+kh-8|
00000f90  0d 08 e8 0d f1 62 6f 78  24 28 42 25 29 0d 08 f2  |.....box$(B%)...|
00000fa0  05 e1 0d 08 fc 04 0d 09  06 0d dd 20 a4 69 6e 28  |........... .in(|
00000fb0  42 25 29 0d 09 10 15 e7  20 42 25 28 42 25 2c 34  |B%)..... B%(B%,4|
00000fc0  29 3d 30 20 8c 20 3d a3  0d 09 1a 16 e7 20 58 25  |)=0 . =...... X%|
00000fd0  3c 42 25 28 42 25 2c 30  29 20 8c 20 3d a3 0d 09  |<B%(B%,0) . =...|
00000fe0  24 16 e7 20 59 25 3c 42  25 28 42 25 2c 31 29 20  |$.. Y%<B%(B%,1) |
00000ff0  8c 20 3d a3 0d 09 2e 16  e7 20 58 25 3e 42 25 28  |. =...... X%>B%(|
00001000  42 25 2c 32 29 20 8c 20  3d a3 0d 09 38 19 e7 20  |B%,2) . =...8.. |
00001010  59 25 3e 42 25 28 42 25  2c 31 29 2b 6b 68 20 8c  |Y%>B%(B%,1)+kh .|
00001020  20 3d a3 0d 09 42 06 3d  b9 0d 09 4c 04 0d 09 56  | =...B.=...L...V|
00001030  0b dd 20 f2 6b 65 79 73  0d 09 60 0f f7 20 8d 44  |.. .keys..`.. .D|
00001040  6e 4a 3a 51 25 3d 30 0d  09 6a 09 ec 20 30 2c 30  |nJ:Q%=0..j.. 0,0|
00001050  0d 09 74 0d 6b 77 3d 31  36 2a 33 2e 31 0d 09 7e  |..t.kw=16*3.1..~|
00001060  0d 6b 68 3d 31 36 2a 33  2e 31 0d 09 88 0b 54 4b  |.kh=16*3.1....TK|
00001070  57 3d 31 2e 36 0d 09 92  2b e3 20 4b 25 3d 31 20  |W=1.6...+. K%=1 |
00001080  b8 20 37 3a f3 20 57 2c  4b 54 24 2c 49 56 3a f2  |. 7:. W,KT$,IV:.|
00001090  72 65 63 74 28 57 2c 4b  54 24 2c 49 56 29 3a ed  |rect(W,KT$,IV):.|
000010a0  0d 09 9c 10 ec 20 30 2c  31 2a 28 6b 68 2b 38 29  |..... 0,1*(kh+8)|
000010b0  0d 09 a6 2c e3 20 4b 25  3d 31 20 b8 20 31 32 3a  |...,. K%=1 . 12:|
000010c0  f3 20 57 2c 4b 54 24 2c  49 56 3a f2 72 65 63 74  |. W,KT$,IV:.rect|
000010d0  28 57 2c 4b 54 24 2c 49  56 29 3a ed 0d 09 b0 10  |(W,KT$,IV):.....|
000010e0  ec 20 30 2c 32 2a 28 6b  68 2b 38 29 0d 09 ba 2c  |. 0,2*(kh+8)...,|
000010f0  e3 20 4b 25 3d 31 20 b8  20 31 33 3a f3 20 57 2c  |. K%=1 . 13:. W,|
00001100  4b 54 24 2c 49 56 3a f2  72 65 63 74 28 57 2c 4b  |KT$,IV:.rect(W,K|
00001110  54 24 2c 49 56 29 3a ed  0d 09 c4 10 ec 20 30 2c  |T$,IV):...... 0,|
00001120  33 2a 28 6b 68 2b 38 29  0d 09 ce 2c e3 20 4b 25  |3*(kh+8)...,. K%|
00001130  3d 31 20 b8 20 31 34 3a  f3 20 57 2c 4b 54 24 2c  |=1 . 14:. W,KT$,|
00001140  49 56 3a f2 72 65 63 74  28 57 2c 4b 54 24 2c 49  |IV:.rect(W,KT$,I|
00001150  56 29 3a ed 0d 09 d8 10  ec 20 30 2c 34 2a 28 6b  |V):...... 0,4*(k|
00001160  68 2b 38 29 0d 09 e2 2c  e3 20 4b 25 3d 31 20 b8  |h+8)...,. K%=1 .|
00001170  20 31 35 3a f3 20 57 2c  4b 54 24 2c 49 56 3a f2  | 15:. W,KT$,IV:.|
00001180  72 65 63 74 28 57 2c 4b  54 24 2c 49 56 29 3a ed  |rect(W,KT$,IV):.|
00001190  0d 09 ec 05 e1 0d 09 f6  04 0d 0a 00 14 dd 20 f2  |.............. .|
000011a0  72 65 63 74 28 48 2c 54  24 2c 49 56 29 0d 0a 0a  |rect(H,T$,IV)...|
000011b0  37 42 25 28 51 25 2c 34  29 3d 2d 49 56 3a 4a 25  |7B%(Q%,4)=-IV:J%|
000011c0  21 30 3d 31 34 34 3a 4a  25 21 34 3d 31 34 35 3a  |!0=144:J%!4=145:|
000011d0  4a 25 21 38 3d 2d 31 3a  c8 99 20 26 33 31 2c 4a  |J%!8=-1:.. &31,J|
000011e0  25 2c 4a 25 0d 0a 14 2f  58 50 3d 34 2a 4a 25 21  |%,J%.../XP=4*J%!|
000011f0  30 3a 59 50 3d 34 2a 4a  25 21 34 3a 42 25 28 51  |0:YP=4*J%!4:B%(Q|
00001200  25 2c 30 29 3d 58 50 3a  42 25 28 51 25 2c 31 29  |%,0)=XP:B%(Q%,1)|
00001210  3d 59 50 0d 0a 1e 41 42  25 28 51 25 2c 32 29 3d  |=YP...AB%(Q%,2)=|
00001220  48 2a 6b 77 2b 58 50 3a  62 6f 78 24 28 51 25 29  |H*kw+XP:box$(Q%)|
00001230  3d 54 24 3a 42 25 28 51  25 2c 33 29 3d 30 3a e7  |=T$:B%(Q%,3)=0:.|
00001240  20 49 56 3e 30 20 8c 20  69 6e 74 28 49 56 2d 31  | IV>0 . int(IV-1|
00001250  29 3d 51 25 0d 0a 28 3b  51 25 2b 3d 31 3a f0 31  |)=Q%..(;Q%+=1:.1|
00001260  2c 6b 77 2a 48 2c 30 3a  f0 31 2c 30 2c 6b 68 3a  |,kw*H,0:.1,0,kh:|
00001270  f0 31 2c 2d 6b 77 2a 48  2c 30 3a f0 31 2c 30 2c  |.1,-kw*H,0:.1,0,|
00001280  2d 6b 68 3a f0 30 2c 6b  77 2a 48 2b 38 2c 30 0d  |-kh:.0,kw*H+8,0.|
00001290  0a 32 2a 4a 25 21 30 3d  31 34 34 3a 4a 25 21 34  |.2*J%!0=144:J%!4|
000012a0  3d 31 34 35 3a 4a 25 21  38 3d 2d 31 3a c8 99 20  |=145:J%!8=-1:.. |
000012b0  26 33 31 2c 4a 25 2c 4a  25 0d 0a 3c 35 ec 20 58  |&31,J%,J%..<5. X|
000012c0  50 2b 28 6b 77 2a 48 2d  33 32 2a a9 20 54 24 29  |P+(kw*H-32*. T$)|
000012d0  2f 32 2c 59 50 2b 6b 68  2d 38 3a f1 54 24 3a ec  |/2,YP+kh-8:.T$:.|
000012e0  20 34 2a 4a 25 21 30 2c  34 2a 4a 25 21 34 0d 0a  | 4*J%!0,4*J%!4..|
000012f0  46 05 e1 0d 0a 50 04 0d  0a 5a 43 f4 20 49 46 20  |F....P...ZC. IF |
00001300  59 4f 55 20 55 53 45 20  54 48 49 53 20 54 48 45  |YOU USE THIS THE|
00001310  4e 20 50 4c 45 41 53 45  20 52 45 53 50 45 43 54  |N PLEASE RESPECT|
00001320  20 54 48 45 20 54 49 4d  45 20 49 20 53 50 45 4e  | THE TIME I SPEN|
00001330  54 20 44 4f 49 4e 47 20  49 54 0d 0a 64 41 f4 20  |T DOING IT..dA. |
00001340  41 20 43 52 45 44 49 54  20 4f 52 20 54 48 41 4e  |A CREDIT OR THAN|
00001350  4b 53 20 57 4f 55 4c 44  20 42 45 20 4e 49 43 45  |KS WOULD BE NICE|
00001360  2c 20 52 49 4e 47 20 4d  45 20 54 48 52 4f 55 47  |, RING ME THROUG|
00001370  48 20 44 41 42 53 20 2e  2e 2e 2e 0d 0a 6e 0c dc  |H DABS ......n..|
00001380  20 32 2c 22 22 2c 30 0d  0a 78 0c dc 20 32 2c 22  | 2,"",0..x.. 2,"|
00001390  22 2c 30 0d 0a 82 11 dc  20 32 2e 31 2c 22 41 6c  |",0..... 2.1,"Al|
000013a0  74 22 2c 33 0d 0a 8c 15  dc 20 31 32 2e 35 2c 22  |t",3..... 12.5,"|
000013b0  53 70 61 63 65 22 2c 39  39 0d 0a 96 11 dc 20 32  |Space",99..... 2|
000013c0  2e 31 2c 22 41 6c 74 22  2c 33 0d 0a a0 0c dc 20  |.1,"Alt",3..... |
000013d0  32 2c 22 22 2c 30 0d 0a  aa 0f dc 20 32 2c 22 43  |2,"",0..... 2,"C|
000013e0  74 6c 22 2c 32 0d 0a b4  04 0d 0a be 13 dc 20 33  |tl",2......... 3|
000013f0  2e 35 2c 22 53 68 69 66  74 22 2c 31 0d 0a c8 10  |.5,"Shift",1....|
00001400  dc 20 54 4b 57 2c 22 5a  22 2c 39 38 0d 0a d2 10  |. TKW,"Z",98....|
00001410  dc 20 54 4b 57 2c 22 58  22 2c 36 37 0d 0a dc 10  |. TKW,"X",67....|
00001420  dc 20 54 4b 57 2c 22 43  22 2c 38 33 0d 0a e6 11  |. TKW,"C",83....|
00001430  dc 20 54 4b 57 2c 22 56  22 2c 31 30 30 0d 0a f0  |. TKW,"V",100...|
00001440  11 dc 20 54 4b 57 2c 22  42 22 2c 31 30 31 0d 0a  |.. TKW,"B",101..|
00001450  fa 10 dc 20 54 4b 57 2c  22 4e 22 2c 38 36 0d 0b  |... TKW,"N",86..|
00001460  04 11 dc 20 54 4b 57 2c  22 4d 22 2c 31 30 32 0d  |... TKW,"M",102.|
00001470  0b 0e 11 dc 20 54 4b 57  2c 22 2c 22 2c 31 30 33  |.... TKW,",",103|
00001480  0d 0b 18 11 dc 20 54 4b  57 2c 22 2e 22 2c 31 30  |..... TKW,".",10|
00001490  34 0d 0b 22 11 dc 20 54  4b 57 2c 22 2f 22 2c 31  |4..".. TKW,"/",1|
000014a0  30 35 0d 0b 2c 13 dc 20  34 2e 35 2c 22 53 68 69  |05..,.. 4.5,"Shi|
000014b0  66 74 22 2c 31 0d 0b 36  04 0d 0b 40 11 dc 20 32  |ft",1..6...@.. 2|
000014c0  2e 35 2c 22 43 74 6c 22  2c 32 0d 0b 4a 10 dc 20  |.5,"Ctl",2..J.. |
000014d0  54 4b 57 2c 22 41 22 2c  36 36 0d 0b 54 10 dc 20  |TKW,"A",66..T.. |
000014e0  54 4b 57 2c 22 53 22 2c  38 32 0d 0b 5e 10 dc 20  |TKW,"S",82..^.. |
000014f0  54 4b 57 2c 22 44 22 2c  35 31 0d 0b 68 10 dc 20  |TKW,"D",51..h.. |
00001500  54 4b 57 2c 22 46 22 2c  36 38 0d 0b 72 10 dc 20  |TKW,"F",68..r.. |
00001510  54 4b 57 2c 22 47 22 2c  38 34 0d 0b 7c 10 dc 20  |TKW,"G",84..|.. |
00001520  54 4b 57 2c 22 48 22 2c  38 35 0d 0b 86 10 dc 20  |TKW,"H",85..... |
00001530  54 4b 57 2c 22 4a 22 2c  37 30 0d 0b 90 10 dc 20  |TKW,"J",70..... |
00001540  54 4b 57 2c 22 4b 22 2c  37 31 0d 0b 9a 10 dc 20  |TKW,"K",71..... |
00001550  54 4b 57 2c 22 4c 22 2c  38 37 0d 0b a4 10 dc 20  |TKW,"L",87..... |
00001560  54 4b 57 2c 22 3b 22 2c  38 38 0d 0b ae 10 dc 20  |TKW,";",88..... |
00001570  54 4b 57 2c 22 27 22 2c  38 30 0d 0b b8 12 dc 20  |TKW,"'",80..... |
00001580  33 2e 35 2c 22 52 45 54  22 2c 37 34 0d 0b c2 04  |3.5,"RET",74....|
00001590  0d 0b cc 10 dc 20 32 2c  22 54 61 62 22 2c 39 37  |..... 2,"Tab",97|
000015a0  0d 0b d6 10 dc 20 54 4b  57 2c 22 51 22 2c 31 37  |..... TKW,"Q",17|
000015b0  0d 0b e0 10 dc 20 54 4b  57 2c 22 57 22 2c 33 34  |..... TKW,"W",34|
000015c0  0d 0b ea 10 dc 20 54 4b  57 2c 22 45 22 2c 33 35  |..... TKW,"E",35|
000015d0  0d 0b f4 10 dc 20 54 4b  57 2c 22 52 22 2c 35 32  |..... TKW,"R",52|
000015e0  0d 0b fe 10 dc 20 54 4b  57 2c 22 54 22 2c 33 36  |..... TKW,"T",36|
000015f0  0d 0c 08 10 dc 20 54 4b  57 2c 22 59 22 2c 36 39  |..... TKW,"Y",69|
00001600  0d 0c 12 10 dc 20 54 4b  57 2c 22 55 22 2c 35 34  |..... TKW,"U",54|
00001610  0d 0c 1c 10 dc 20 54 4b  57 2c 22 49 22 2c 33 38  |..... TKW,"I",38|
00001620  0d 0c 26 10 dc 20 54 4b  57 2c 22 4f 22 2c 35 35  |..&.. TKW,"O",55|
00001630  0d 0c 30 10 dc 20 54 4b  57 2c 22 50 22 2c 35 36  |..0.. TKW,"P",56|
00001640  0d 0c 3a 10 dc 20 54 4b  57 2c 22 5b 22 2c 35 37  |..:.. TKW,"[",57|
00001650  0d 0c 44 10 dc 20 54 4b  57 2c 22 5d 22 2c 38 39  |..D.. TKW,"]",89|
00001660  0d 0c 4e 0f dc 20 32 2c  22 5c 22 2c 31 32 31 0d  |..N.. 2,"\",121.|
00001670  0c 58 04 0d 0c 62 10 dc  20 54 4b 57 2c 22 60 22  |.X...b.. TKW,"`"|
00001680  2c 34 36 0d 0c 6c 10 dc  20 54 4b 57 2c 22 31 22  |,46..l.. TKW,"1"|
00001690  2c 34 39 0d 0c 76 10 dc  20 54 4b 57 2c 22 32 22  |,49..v.. TKW,"2"|
000016a0  2c 35 30 0d 0c 80 10 dc  20 54 4b 57 2c 22 33 22  |,50..... TKW,"3"|
000016b0  2c 31 38 0d 0c 8a 10 dc  20 54 4b 57 2c 22 34 22  |,18..... TKW,"4"|
000016c0  2c 31 39 0d 0c 94 10 dc  20 54 4b 57 2c 22 35 22  |,19..... TKW,"5"|
000016d0  2c 32 30 0d 0c 9e 10 dc  20 54 4b 57 2c 22 36 22  |,20..... TKW,"6"|
000016e0  2c 35 33 0d 0c a8 10 dc  20 54 4b 57 2c 22 37 22  |,53..... TKW,"7"|
000016f0  2c 33 37 0d 0c b2 10 dc  20 54 4b 57 2c 22 38 22  |,37..... TKW,"8"|
00001700  2c 32 32 0d 0c bc 10 dc  20 54 4b 57 2c 22 39 22  |,22..... TKW,"9"|
00001710  2c 33 39 0d 0c c6 10 dc  20 54 4b 57 2c 22 30 22  |,39..... TKW,"0"|
00001720  2c 34 30 0d 0c d0 10 dc  20 54 4b 57 2c 22 2d 22  |,40..... TKW,"-"|
00001730  2c 32 34 0d 0c da 0e dc  20 54 4b 57 2c 22 22 2c  |,24..... TKW,"",|
00001740  30 0d 0c e4 10 dc 20 54  4b 57 2c 22 a3 22 2c 34  |0..... TKW,".",4|
00001750  37 0d 0c ee 0c dc 20 31  2c 22 22 2c 30 0d 0c f8  |7..... 1,"",0...|
00001760  04 0d 0d 02 0b dd 20 f2  63 6f 64 65 0d 0d 0c 2b  |...... .code...+|
00001770  de 20 43 20 26 31 30 30  3a e3 20 70 61 73 73 3d  |. C &100:. pass=|
00001780  30 20 b8 20 32 20 88 32  3a 50 25 3d 43 3a 5b 4f  |0 . 2 .2:P%=C:[O|
00001790  50 54 20 70 61 73 73 0d  0d 16 2c 4c 44 52 20 52  |PT pass...,LDR R|
000017a0  30 2c 73 74 61 72 74 3a  4c 44 52 20 52 31 2c 64  |0,start:LDR R1,d|
000017b0  65 73 74 3a 4d 4f 56 20  52 32 2c 23 38 30 2a 26  |est:MOV R2,#80*&|
000017c0  34 30 30 0d 0d 20 45 2e  63 6c 20 4c 44 52 20 52  |400.. E.cl LDR R|
000017d0  33 2c 5b 52 30 5d 2c 23  34 3a 53 54 52 20 52 33  |3,[R0],#4:STR R3|
000017e0  2c 5b 52 31 5d 2c 23 34  3a 53 55 42 53 20 52 32  |,[R1],#4:SUBS R2|
000017f0  2c 52 32 2c 23 34 3a 42  4e 45 20 63 6c 3a 4d 4f  |,R2,#4:BNE cl:MO|
00001800  56 20 50 43 2c 52 31 34  0d 0d 2a 2c 2e 73 74 61  |V PC,R14..*,.sta|
00001810  72 74 20 45 51 55 44 20  26 31 46 45 43 30 30 30  |rt EQUD &1FEC000|
00001820  3a 2e 64 65 73 74 20 45  51 55 44 20 26 31 46 44  |:.dest EQUD &1FD|
00001830  38 30 30 30 0d 0d 34 0a  3a 5d 3a ed 3a e1 0d ff  |8000..4.:]:.:...|
00001840

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