Home » Personal collection » Acorn ADFS disks » Electron » PRES_E00_backup.ADF » Welcome/Re
Welcome/Re
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 » PRES_E00_backup.ADF |
| Filename: | Welcome/Re |
| Read OK: | ✔ |
| File size: | 19C7 bytes |
| Load address: | 1D00 |
| Exec address: | 0000 |
Duplicates
There are 7 duplicate copies of this file in the archive:
- AEW website » acornsoft » acornsoft_3_5_discs_Draughts-And-Reversi_HA-DRRE.adf » Re
- AEW website » acornsoft » acornsoft_3_5_discs_Electron_Welcome_Disc_HA-WELC.adf » Welcome/Re
- AEW website » acp_pres » acp_pres_3_5_discs_Electron-Adfs-E00_A-E00.adf » WELCOME/Re
- AEW website » acornsoft » acornsoft_5_25_discs_Draughts-And-Reversi_HD-DRRE.ssd » Re
- Personal collection » Acorn ADFS disks » Electron » PRES_E00.ADF » WELCOME/Re
- Personal collection » Acorn ADFS disks » Electron » PRES_E00_backup.ADF » Welcome/Re
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_E00.adf » WELCOME/Re
- Personal collection » Acorn ADFS disks » Greaseweazled » dfs_box04_disk01b_adfs_welcome_disk_interleaved.adf » WELCOME/Re
File contents
2ONERRORGOTO2
4*FX200,2
6MODE4:PROCY:LOMEM=&2E00:@%=3:PRINT$&900:M=&2800:B=M-256:S=B+89:T=B+167:g=B-89:f=g-2:Q=&2698:R=&1BE2:N=&1B94:U=&25FA:PRINT"Press RETURN or Joystick Button":R%=0:REPEATR%=1-R%:UNTILFNA:S%=3:T%=9:D%=0:C%=0:H%=0
10FORI%=1TO99:NEXT:*FX15
12P%=1:F=0:G%=8*P%:PRINT"Do you want instructions ";:IFFNY="Y"MODE6:PROCW
14REPEATINPUT"Display delay (e.g.5000) ",A$:O%=VALA$:UNTILO%>0
16PROCK(g,Q-89):FORI%=11TO88:K%=1:L%=1:IFI%MOD10=8THENK%=3
20IFI%MOD10=1THENL%=3
22S?I%=I%+K%:T?I%=I%-L%:NEXT:S?88=11:T?11=88:FORI%=0TO99:B?I%=1:NEXT:PRINT"Do you want to go first ";:q$=FNY:D=&70:s=&84:t=&7D:b=&7A:l=&7B:c=&7C:Q%=FALSE
23B%=0:K1%=0:M%=0:N%=0:REPEATINPUT"Skill level 1-9 "A$:d%=VALA$:UNTILABS(d%-5.5)<5:e=0:MODE1:VDU19,1,4;0;19,2,1;0;:PROCY:PROCI
26a=d%:REPEATi=64-j-k:IFd%>=i-3PROCK(g,0):a=i
28IFq$="Y"q$="N":GOTO46
30IFi=0ORe=2UNTILTRUE:GOTO136
34IFi>60:REPEATY%=33+RND(2)+10*RND(2):UNTILB?Y%=1:GOTO40
36s?a=-1:?D=a:?&71=a-1:?t=?&71:f?a=0:A%=128:IFa=1CALL&242A ELSECALL&1F87
38Y%=M??c
40PRINTTAB(0,21+G%)SPC40:IFY%=0 PRINTTAB(0,19+G%)"I cannot move,and so pass":e=e+1:GOTO46ELSEPRINTTAB(0,19+G%)SPC40"My move is ";Y%;SPC12:REPEATUNTILFNA
42e=0:REPEATUNTILTIME>200
44PROCA(0,O%):i=i-1:PROCB(M%):M%=Y%:j=j+o+1:k=k-o:PROCC
46IFe=2ORi=0UNTILTRUE:GOTO136
48PRINTTAB(0,20+G%)SPC80TAB(0,21+G%)"Your move ";:Y%=FNW:IFY%=2:C%=C%+1:UNTILTRUE:GOTO142
49IFY%=1ANDQ%=TRUE PROCK(B,&A00):Q%=FALSE:i=i+2:j=B%:k=E%:PROCC:GOTO48
50IFi>60ANDY%<>44ANDY%<>45ANDY%<>54ANDY%<>55GOTO48
52IFY%<>0GOTO58
54PROCS:IFn GOTO46:ELSEe=e+1:GOTO64
58PROCK(&A00,B):B%=j:E%=k:PROCA(1,O%):TIME=0
60IFn PROCB(N%):N%=Y% ELSEGOTO46
62k=k+o+1:j=j-o:PROCC:e=0:Q%=TRUE
64UNTIL0
66DEFPROCP(y,z):X=y MOD10:Y=y DIV10
68COLOUR(129+(X+Y)MOD2):PRINTTAB(X*3-2,3*Y)$(N+30):IF (z DIV2)=1 THEN COLOUR((z MOD2)*3):PRINTTAB(X*3-1,3*Y+1)$(N+28) ELSE IF(z DIV2)=0 VDU5:GCOL0,((z MOD2)*3):MOVE96*X-48,1008-96*Y:PRINT$(N+20):VDU4
69COLOUR3:COLOUR128
70ENDPROC
72DEFPROCA(w,x):o=0:IFi<61n=FALSE:ELSEn=TRUE
74IFB?Y%<>1 n=FALSE:ENDPROC
76IFx>0PROCP(Y%,2+w):FORL%=1TOx*2:NEXT
78FORI%=0TO7:m=FALSE:J%=Y%
80J%=J%+U?I%-11
82IFB?J%=R?(1-w)m=TRUE:GOTO80
84IFm:IFB?J%=R?w:K%=Y%+U?I%-11:n=TRUE:GOTO92
86NEXT
88IFn B?Y%=R?w:PROCP(Y%,w)ELSEPROCP(Y%,4)
90ENDPROC
92IFx=0I%=7:NEXTI%:ENDPROC
94REPEATo=o+1:B?K%=R?w:PROCP(K%,w+2):FORL%=1TOx:NEXT:PROCP(K%,w):K%=K%+U?I%-11:UNTILK%=J%
96GOTO86
98DEFPROCI:?b=RND(8)+10*RND(3):?l=?b:t!1=&C0F:t!3=&30609:CLS:FORI%=1TO8:PRINTTAB(3*I%-1,2)CHR$(48+I%)TAB(0,(2+P%)*I%+2-P%)CHR$(48+I%):FORJ%=1TO8:PROCP(J%+10*I%,4):NEXT,
102j=0:k=0:PRINTTAB(27,5-P%)"ME"TAB(27,7)"YOU":PROCC:ENDPROC
104DEFPROCB(Y3):IFY3=0ENDPROC
105A1=T?Y3:A2=S?Y3:S?A1=A2:T?A2=A1:FORI%=1TORND(5):?l=S??l:NEXT:IFY3=?b ?b=S??b
106ENDPROC
108DEFPROCC:PRINTTAB(35,5-P%)j,TAB(35,7)k:ENDPROC
110DEFPROCS:Y%=?l
112REPEATPROCA(1,0):IFn UNTILTRUE:PRINTTAB(0,21+G%)"You have a move e.g. "Y%:REPEATUNTILFNA:ENDPROC
114Y%=S?Y%:UNTILY%=?l:ENDPROC
116DEFFNY:REPEATINPUTA$:A$=LEFT$(A$,1):UNTILA$="Y"ORA$="N":=A$
122DEFPROCW:PRINTSPC10;"INSTRUCTIONS"
123PRINT'" First you must play in the centre foursquares. When these are filled you playby trapping a line of enemy pieces"'"between the piece you play and another piece of yours. The trapped pieces thenchange sides. If you can't ";
124PRINT"move press Pfor pass. The winner is the one with"'"the most pieces when nobody can play. Iwill take the dark pieces. For keyboardversion enter your move as a two digit number, row then column. "'"P=pass Q=quit and U=undo"':ENDPROC
126DEFPROCY VDU23;10,32;0;0;0:ENDPROC
127DEFFNW I%=0:REPEATIFR%K%=8-ADVAL1DIV&2000:L%=8-ADVAL2DIV&2000:MOVEK%*96-32,992-L%*96:VDU5:GCOL3,3:PRINT;"+":I%=K%+10*L%:I%=I%+SQR(I%)*0:MOVEK%*96-32,992-L%*96:PRINT;"+":VDU4:ELSEK%=VALINKEY$0:IFK%>0ANDK%<9:I%=I%MOD10*10+K%:PRINTTAB(10,21+G%);I%
128IFINKEY-17UNTILTRUE:PROCY:=2:ELSEIFINKEY-54ANDQ%UNTILTRUE:PROCY:=1ELSEIFINKEY-56UNTILTRUE:PROCY:=0ELSEUNTILFNA ANDI%>9:PROCY:=I%
135DEFFNA IFR%:=ADVAL0AND1ELSE=INKEY-74
136PRINTTAB(0,19+G%)SPC160TAB(0,19+G%)"GAME OVER ";:i=j-k:IFi>0PRINT"I win by"i" points":C%=C%+1:ELSEIFi=0PRINT"Drawn game":D%=D%+1ELSEPRINT"You win by",-i" points":H%=H%+1
142PRINTTAB(0,21+G%)"Score in games is YOU ";H%;" ME ";C%;" and DRAWN ";D%"Another game ";:*FX15
144IFFNY="Y"GOTO16ELSECALL!-4
146DEFPROCK(K1,K2):FORI%=11TO88:K1?I%=-K2?I%*(K2>0):IFK1=B ANDI%MOD10MOD9>0THENPROCP(I%,R?((B?I%AND3)-4))
150NEXT:ENDPROC
��TB@
*FX200,2
��4:�Y:�=&2E00:@%=3:�$&900:M=&2800:B=M-256:S=B+89:T=B+167:g=B-89:f=g-2:Q=&2698:R=&1BE2:N=&1B94:U=&25FA:�"Press RETURN or Joystick Button":R%=0:�R%=1-R%:��A:S%=3:T%=9:D%=0:C%=0:H%=0
�I%=1�99:�:*FX15
?P%=1:F=0:G%=8*P%:�"Do you want instructions ";:�Y="Y"�6:�W
1��"Display delay (e.g.5000) ",A$:O%=�A$:�O%>0
0�K(g,Q-89):�I%=11�88:K%=1:L%=1:�I%�10=8�K%=3
�I%�10=1�L%=3
�S?I%=I%+K%:T?I%=I%-L%:�:S?88=11:T?11=88:�I%=0�99:B?I%=1:�:�"Do you want to go first ";:q$=�Y:D=&70:s=&84:t=&7D:b=&7A:l=&7B:c=&7C:Q%=�
dB%=0:K1%=0:M%=0:N%=0:��"Skill level 1-9 "A$:d%=�A$:��(d%-5.5)<5:e=0:�1:�19,1,4;0;19,2,1;0;:�Y:�I
&a=d%:�i=64-j-k:�d%>=i-3�K(g,0):a=i
�q$="Y"q$="N":�Tn@
�i=0�e=2��:�tH@
"+�i>60:�Y%=33+�(2)+10*�(2):�B?Y%=1:�Th@
$@s?a=-1:?D=a:?&71=a-1:?t=?&71:f?a=0:A%=128:�a=1�&242A ��&1F87
&Y%=M??c
(p�0,21+G%)�40:�Y%=0 �0,19+G%)"I cannot move,and so pass":e=e+1:�Tn@��0,19+G%)�40"My move is ";Y%;�12:���A
*e=0:���>200
,0�A(0,O%):i=i-1:�B(M%):M%=Y%:j=j+o+1:k=k-o:�C
.�e=2�i=0��:�tH@
0D�0,20+G%)�80�0,21+G%)"Your move ";:Y%=�W:�Y%=2:C%=C%+1:��:�tN@
17�Y%=1�Q%=� �K(B,&A00):Q%=�:i=i+2:j=B%:k=E%:�C:�Tp@
2*�i>60�Y%<>44�Y%<>45�Y%<>54�Y%<>55�Tp@
4�Y%<>0�Tz@
6�S:�n �Tn@:�e=e+1:�D@@
:%�K(&A00,B):B%=j:E%=k:�A(1,O%):�=0
<�n �B(N%):N%=Y% ��Tn@
>k=k+o+1:j=j-o:�C:e=0:Q%=�
@�0
B��P(y,z):X=y �10:Y=y �10
D��(129+(X+Y)�2):�X*3-2,3*Y)$(N+30):� (z �2)=1 � �((z �2)*3):�X*3-1,3*Y+1)$(N+28) � �(z �2)=0 �5:�0,((z �2)*3):�96*X-48,1008-96*Y:�$(N+20):�4
E�3:�128
F�
H��A(w,x):o=0:�i<61n=�:�n=�
J�B?Y%<>1 n=�:�
L�x>0�P(Y%,2+w):�L%=1�x*2:�
N�I%=0�7:m=�:J%=Y%
PJ%=J%+U?I%-11
R�B?J%=R?(1-w)m=�:�DP@
T(�m:�B?J%=R?w:K%=Y%+U?I%-11:n=�:�D\@
V�
X!�n B?Y%=R?w:�P(Y%,w)��P(Y%,4)
Z�
\�x=0I%=7:�I%:�
^F�o=o+1:B?K%=R?w:�P(K%,w+2):�L%=1�x:�:�P(K%,w):K%=K%+U?I%-11:�K%=J%
` �DV@
b���I:?b=�(8)+10*�(3):?l=?b:t!1=&C0F:t!3=&30609:�:�I%=1�8:�3*I%-1,2)�(48+I%)�0,(2+P%)*I%+2-P%)�(48+I%):�J%=1�8:�P(J%+10*I%,4):�,
f*j=0:k=0:�27,5-P%)"ME"�27,7)"YOU":�C:�
h��B(Y3):�Y3=0�
iGA1=T?Y3:A2=S?Y3:S?A1=A2:T?A2=A1:�I%=1��(5):?l=S??l:�:�Y3=?b ?b=S??b
j�
l��C:�35,5-P%)j,�35,7)k:�
n
��S:Y%=?l
p=��A(1,0):�n ��:�0,21+G%)"You have a move e.g. "Y%:���A:�
rY%=S?Y%:�Y%=?l:�
t)ݤY:��A$:A$=�A$,1):�A$="Y"�A$="N":=A$
z��W:�10;"INSTRUCTIONS"
{��'" First you must play in the centre foursquares. When these are filled you playby trapping a line of enemy pieces"'"between the piece you play and another piece of yours. The trapped pieces thenchange sides. If you can't ";
|��"move press Pfor pass. The winner is the one with"'"the most pieces when nobody can play. Iwill take the dark pieces. For keyboardversion enter your move as a two digit number, row then column. "'"P=pass Q=quit and U=undo"':�
~��Y �23;10,32;0;0;0:�
�ݤW I%=0:��R%K%=8-�1�&2000:L%=8-�2�&2000:�K%*96-32,992-L%*96:�5:�3,3:�;"+":I%=K%+10*L%:I%=I%+�(I%)*0:�K%*96-32,992-L%*96:�;"+":�4:�K%=��0:�K%>0�K%<9:I%=I%�10*10+K%:�10,21+G%);I%
�B�-17��:�Y:=2:��-54�Q%��:�Y:=1��-56��:�Y:=0���A �I%>9:�Y:=I%
�ݤA �R%:=�0�1�=�-74
���0,19+G%)�160�0,19+G%)"GAME OVER ";:i=j-k:�i>0�"I win by"i" points":C%=C%+1:��i=0�"Drawn game":D%=D%+1��"You win by",-i" points":H%=H%+1
�Z�0,21+G%)"Score in games is YOU ";H%;" ME ";C%;" and DRAWN ";D%"Another game ";:*FX15
��Y="Y"�TP@��!-4
�S��K(K1,K2):�I%=11�88:K1?I%=-K2?I%*(K2>0):�K1=B �I%�10�9>0��P(I%,R?((B?I%�3)-4))
��:�
��:�
�imat which drive ?� �a�
��?�� Y "�
� �\� 1n Y ���
���
��
��
���
��
��
�
��r�s��)J�"H� *���s�r���&��&��&��&��&��&h�oJ�"H��*��s�r���&��&��&��&��&��&h�JJ�"H� +�D�s�r��'�'�'�'�'�'h�%J�#H��+�i�s�r��B'�7'�,'�!'�'�'h�`J�"H� ,���s�r��<'�2'�('�'�'�
'h��J�"H��,���s�r��6'�-'�$'�'�'� 'h�J�"H� -���s�r���&��&��&��&��&��&h�J� H��-���s�r���&��&��&��&��&��&h`蹺&`��&0�`��&0�`��&0�`��&0�`��&0�`�&`��&0�`��&0�`��&0�`��&0�`��&0�`�'`�'0�`�'0�`�'0�`�'0�`�'0�`�M'`�B'0�`�7'0�`�,'0�`�!'0�`�'0�`�F'`�<'0�`�2'0�`�('0�`�'0�`�'0�`�?'`�6'0�`�-'0�`�$'0�`�'0�`�'0�`�&`�&0�`�&0�`�&0�`�&0�`��&0�`蹳&`蹾&0�`��&0�`��&0�`��&0�`��&0�`蹺&`��&�`��&��`��&��`��&��`��&��`�&`��&�`��&��`��&��`��&��`��&��`�'`�'�`�'��`�'��`�'��`�'��`�M'`�B'�`�7'��`�,'��`�!'��`�'��`�F'`�<'�`�2'��`�('��`�'��`�'��`�?'`�6'�`�-'��`�$'��`�'��`�'��`�&`�&�`�&��`�&��`�&��`��&��`蹳&`蹾&�`��&��`��&��`��&��`��&��`hL� �r� �q��轥&�u�w�x� �sH�t�{L��t�Y'�{�Մt� '0���&� 4�
�s�}�u� *h H��&� [��es�s�}�u��*h H�'� ���es�s�}�u� +h H�'� ���es�s�}�u��+h H�
'� ���es�s�}�u� ,h H� '� ���es�s�}�u��,h H��&� ��es�s�}�u� -h @H��&� E��es�s�}�u��-h �H�s�L��u�t�� (h��)�resy�&�u0��(�� )� �sHL��u��w�݀(����(L� `�r��(� � (�� )i�q��&L[!�u�w��ʆv�!�q��&�w�P���s�x� )�rL&!��� )݀(��(�t�s���x�LL!�s�t�x�� )�r� )��x� )��v�
�x� )�rL&!�p�w��&�� )� (�� � ' ���(�q�
�p �!�pL�! %H�q�p��&� )� (�
�� '�� ��phՄ���`�Մ����}�輘&� )�|�q�&��&�ݥ&�Lb!��`hLG#�r���q��轥&�u�w�j#� �sH�t�{L "�t�Y'�{�Ԅt� '0���&�� l
�s�}�u� *h H��&�� ��es�s�}�u��*h H�'�� ��es�s�}�u� +h H�'�� ��es�s�}�u��+h H�
'�� �es�s�}�u� ,h H� '�� /�es�s�}�u��,h H��&�� V�es�s�}�u� -h @H��&�� }�es�s�}�u��-h �H�s�L�!�u�t�� (h��)�r8�s��&�u0��(�� )� �sHL�!�u��w�݀(����(L#`�r��(� � (�� )i�q��&L�#�u�w��ʆx�q��&�w�P���s�x� )�rLu#���� )݀(��(�t�s���x�L�#�s�t�x�� )�r� )��x� )��w�
�x� )�rLu#�p�w��&�� )� (���� ' ���(�q�
�p ��pL�# *$H�q�p��&� )� (�
�� '� ��phՄ��� `�Մ����&��&�ݥ&�L�#��`��� �`�}��r`�|� (`�r� ��� �s�zLB$�t�Y'�z�Ԅt� '0���& � 4��s��&
� [��es�s�'
� ���es�s�'
� ���es�s�
'
� ���es�s� '
� ���es�s��&
� ��es�s��&
� E��es�s�s�L9$�r�tesy�&Ņ����z`ń����}�� (�|� �sL9$����`�}��r`�|� (`�r����� �s�zL3%�t�Y'�z�Ԅt� '0���&� � l�s��&�
� ��es�s�'�
� ��es�s�'�
� ��es�s�
'�
� �es�s� '�
� /�es�s��&�
� V�es�s��&�
� }�es�s�s�L*%�r�t8�s��&��� �z`��}�� (�|� �sL*%
<��� ������������������ ���<