Home » Personal collection » Acorn ADFS disks » Electron » Play_it_again_Sam_16.ADF » Pipeline/PIPELINE
Pipeline/PIPELINE
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 » Play_it_again_Sam_16.ADF |
Filename: | Pipeline/PIPELINE |
Read OK: | ✔ |
File size: | 2A00 bytes |
Load address: | 1D00 |
Exec address: | 1D00 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Acorn ADFS disks » Electron » Play_it_again_Sam_16.ADF » Pipeline/PIPELINE
- Personal collection » Acorn hard disk » zipped_disks » elk08 » sam16/Pipeline/PIPELINE
File contents
10REM PIPELINE Electron loader 20REM By Ian Holmes 30REM Original name: GUILDMASTER 40REM" � Hello to all my friends!� 60*FX229 1 61HIMEM=&5800:LOMEM=PAGE+&800 62DIMF%&100,T%&2100 63F%?8=F% DIV256:F%?231=F% DIV256 70ONERRORAWopBabaLuMopALopBamBoom 71PROCt 80PRINT''"Please STOP THE TAPEand press RETURN":REPEATUNTILGET=13 85 GOTO 170 90E%=!&202 AND&FFFF 100FORN%=0TO?&FFB6-1 110N%?&200=N%?!&FFB7:NEXT 120!&202=!&202 AND&FFFF0000ORE% 130!&212=!&212 AND&FFFF0000OR&F1D6 140?&2AC=0 150A%=163:X%=128:Y%=1:CALL&FFF4 160*TAPE 170*FX200 2 180*FX12 190*FX18 200*FX4 1 210*FX16 220*FX9 1 230*FX10 1 240*OPT 250*TV0 1 260MODE6:HIMEM=&5800 270VDU23;8202;0;0;0; 280COLOUR129:COLOUR0 290PRINTTAB(16,1)"PIPELINE" 300COLOUR128:COLOUR1 310PRINT'TAB(4)"By Ian Holmes and William Reeve,"'TAB(7)"for Superior Software Ltd." 320RESTORE630 330FORN%=&50TO&59:READ?N%:NEXT 340VDU28;17,39,7 350PROCmenu 360REPEAT:L%=GET 370IF(L%OR32)=107PROCkeys 380UNTILL%=32 390PROCt 450*FX11 460*FX229 470*RUN GAME 480: 490DEFPROCmenu:CLS 500PRINT''"Press K to redefine keys"''"Press SPACE to start the game" 510ENDPROC 520DEFPROCcheck:FORA%=0TON%-1 530IFA%?&50=256-P%P%=0 540NEXT:IFA$=""P%=0 550ENDPROC 560DEFFNyes 570REPEATN%=GETOR32 580UNTILN%=110ORN%=121 590IFN%=121PRINT" Yes."; ELSEPRINT" No."; 600TIME=0:REPEATUNTILTIME>79 610=N%-110 620: 630DATA-98,-67,-73,-105,-56,-51,-74,-36,0,-102 640DATA MOVE WEST,MOVE EAST,MOVE NORTH,MOVE SOUTH,PICK UP OBJECT,DROP OBJECT,USE OBJECT,THROW OBJECT,VIEW MAP 650DATA SHIFT,CTRL,,,,,,,,,,,,,,,Q,3,4,5,f4,8,f7,=,^,LEFT CURSOR,,,,,,,f0,W,E,T,7,I,9,0,`,DOWN CURSOR,,,,,,,1,2,D,R,6,U,O,P,[,UP CURSOR,,,,,,,CAPS LOCK,A,X,F,Y,J,K,@,*,RETURN,,,,,,,SHIFT LOCK 660DATAS,C,G,H,N,L,+,],DELETE,,,,,,,TAB,Z,SPACE,V,B,M,<,>,?,COPY,,,,,,,!,f1,f2,f3,f5,f6,f8,f9,|,RIGHT CURSOR 670: 680DEFPROCkeys 690REPEAT:CLS 700RESTORE640:FORN%=0TO8 710READA$:PRINTTAB(9)A$": "; 720NEXT:N%=0:REPEAT 730IFN%=8THEN840 740Y%=N%+(N%=9) 750PRINTTAB(0,Y%)"Press:"TAB(28,Y%); 760P%=0:REPEAT:FORK%=1TO122 770IFINKEY(-K%)IFK%<3ORK%>16P%=K% 780NEXT:RESTORE650 790FORA%=1TOP%:READA$:NEXT 800IFP%>0ANDN%>0 PROCcheck 810UNTILP%>0 820IFP%=113UNTILTRUE:UNTILFALSE 830PRINTA$TAB(0,Y%)SPC(8);:N%?&50=-P% 840N%=N%+1:UNTILN%=10:*FX15 1 850PRINT'" Are these keys correct?"; 860UNTILFNyes:PROCmenu 870ENDPROC 880: 890DATA 0,1,3,5 900: 910DEFPROCt:VDU22,5;23;8202;0;0;0; 911RESTORE890 920FORN%=0TO3:READA%:VDU19,N%,A%;0; 930NEXT:CALLF%:VDU28;31,19,27:ENDPROC
� PIPELINE Electron loader � By Ian Holmes � Original name: GUILDMASTER ()�" � Hello to all my friends!� <*FX229 1 =�=&5800:�=�+&800 >�F%&100,T%&2100 ?F%?8=F% �256:F%?231=F% �256 F�AWopBabaLuMopALopBamBoom G�t P4�''"Please STOP THE TAPEand press RETURN":���=13 U � �tj@ ZE%=!&202 �&FFFF d�N%=0�?&FFB6-1 nN%?&200=N%?!&FFB7:� x!&202=!&202 �&FFFF0000�E% � !&212=!&212 �&FFFF0000�&F1D6 �?&2AC=0 �A%=163:X%=128:Y%=1:�&FFF4 � *TAPE �*FX200 2 � *FX12 � *FX18 � *FX4 1 � *FX16 � *FX9 1 �*FX10 1 �*OPT � *TV0 1 �6:�=&5800 �23;8202;0;0;0; �129:�0 "�16,1)"PIPELINE" ,�128:�1 6K�'�4)"By Ian Holmes and William Reeve,"'�7)"for Superior Software Ltd." @ ��DvB J�N%=&50�&59:�?N%:� T�28;17,39,7 ^ �menu h �:L%=� r�(L%�32)=107�keys | �L%=32 ��t � *FX11 � *FX229 � *RUN GAME �: ���menu:� �B�''"Press K to redefine keys"''"Press SPACE to start the game" �� ��check:�A%=0�N%-1 �A%?&50=256-P%P%=0 �:�A$=""P%=0 &� 0 ݤyes :�N%=��32 D�N%=110�N%=121 N�N%=121�" Yes."; ��" No."; X�=0:���>79 b=N%-110 l: v,�-98,-67,-73,-105,-56,-51,-74,-36,0,-102 �k� MOVE WEST,MOVE EAST,MOVE NORTH,MOVE SOUTH,PICK UP OBJECT,DROP OBJECT,USE OBJECT,THROW OBJECT,VIEW MAP ��� SHIFT,CTRL,,,,,,,,,,,,,,,Q,3,4,5,f4,8,f7,=,^,LEFT CURSOR,,,,,,,f0,W,E,T,7,I,9,0,`,DOWN CURSOR,,,,,,,1,2,D,R,6,U,O,P,[,UP CURSOR,,,,,,,CAPS LOCK,A,X,F,Y,J,K,@,*,RETURN,,,,,,,SHIFT LOCK �j�S,C,G,H,N,L,+,],DELETE,,,,,,,TAB,Z,SPACE,V,B,M,<,>,?,COPY,,,,,,,!,f1,f2,f3,f5,f6,f8,f9,|,RIGHT CURSOR �: � ��keys ��:� ���t@B:�N%=0�8 ��A$:�9)A$": "; ��:N%=0:� ��N%=8��DHC �Y%=N%+(N%=9) ��0,Y%)"Press:"�28,Y%); �P%=0:�:�K%=1�122 �(-K%)�K%<3�K%>16P%=K% �:��tJB �A%=1�P%:�A$:� �P%>0�N%>0 �check * �P%>0 4�P%=113��:�� >�A$�0,Y%)�(8);:N%?&50=-P% HN%=N%+1:�N%=10:*FX15 1 R!�'" Are these keys correct?"; \��yes:�menu f� p: z � 0,1,3,5 �: ���t:�22,5;23;8202;0;0;0; � ��DzC ��N%=0�3:�A%:�19,N%,A%;0; ��:�F%:�28;31,19,27:� �% 21,19,27:� �%:�28;31,19,27:� �Q� � i���������� � � X� � Y� � Z� � [� � \� � ]� � ^� � _� � `� � a� � b� � c� � d� � e� � f� � g� � h� � i� � j� � k� � l� � m� � n� � o� � p� � q� � r� � s� � t� � u� � v� � w� � x�����L `Wild Bill says hello ! A�A��Z- (X�C(P�P�I�R(I�A� � Z�Z�I�Z-Z�K�B��K E HH�� �� @ �Hh,,,,,, HH�� �� � !R%X Z�Z)X�X�Z- K�K� �I -C� � HHHHHHHHxH������ <,HHHHI��C<,,,,,,,,HHHHHHHH� ,,,,,<xH�������,h -K�KK� C�P� �ҥ)Z�I�KZ�,K �D @ <x��HHIHxx���������<,h�� ��,,,,--<<��HHHHKKxx�� ,,,,<��<hH �� , Z�Z-�Z�-�-K� K (R)(Z�RZ�)�- K-< i�- �hhX(��� �@� p�Z� �K�Z� ��p h��� HH�� ��𰀀��<,� ���p <,� ,,h� HH�� 4 ,,h@ ! �� hH�� - )-K-�Z(K� P� !0)p�p<ҥÇ�-Z�� � <` 0 ����� @ 0p p� ��`@ � � A�,K-ZK-i�I�R K��ÇJ � �J �A(%, (�� � E ppp%!( �K �� @ @�@ ���pp�բ�����`� ��� �ä ,P-�����A�K (K,,�C�C�Z� %P�I�a *D� � "E� �" � � � բţ�#�",,hh���� � � @ Z-ZK�� � -)-C)- �,PX�A�Z(-<�i,C���x<����Z-Z��hI� �� *"E E "U"U `D �� � D � � @@ ��� ! ������"��� �p�p��i@ @ wwf �� �� @ �� $A(P�C,�ZA�P8i<Z�x�Z��-�xK����K( �x� �I�K�� A JIℊG�E 8p ����`@0p0��� P����� @@���``D @ @ 0p��� !0!!!)!0���iiᴴ������ "3 � 0p���fs��@� � � �Df Z�R��p��-Z-P�������I���(Rx J��A ,8 �A(�����" E E�D80``���0p�<����x����<<������P� ��� @ �� � � ���KK- � "3�f Z�Z�<K����,� !I0`(@`�����P@��� �ТU����� ���p ������p ����������� ��� 00000AA �� � X � . �0pP���������0�����Ѣ�"