Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_E00.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 » Greaseweazled » adfs_E00.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*% <��� ������������������ ���<