Home » Recent acquisitions » Acorn tapes » tape051d_acorn_play_it_again_sam_11_bbc.wav » 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 » Recent acquisitions » Acorn tapes » tape051d_acorn_play_it_again_sam_11_bbc.wav |
Filename: | PIPELINE |
Read OK: | ✔ |
File size: | 30BD bytes |
Load address: | 1900 |
Exec address: | 1900 |
File contents
10REM Menu Prog. 20REM By Ian Holmes 30REM Original name: GUILDMASTER 40REM"����Hello,��all my friends! � ����Hello,��all my friends! � 50: 60LOMEM=PAGE+&800:DIMS%&2FF,F%&FF,T%&20FF,U%1024 70HIMEM=&5800:F%?8=F%DIV256:F%?231=F%DIV256:U%?908=U%DIV256 100ONERRORAWopBabaLuMopALopBamBoom 110*FX200 2 120*FX229 1 130*FX4 1 140PROCt 150E%=&FFFF AND!&202:PRINT''"Please STOP THE TAPEand press RETURN";:REPEATUNTILGET=13 160FORN%=0TO?&FFB6-1 170N%?&200=N%?!&FFB7:NEXT 180!&202=!&202 AND&FFFF0000ORE% 190*FX12 200*FX18 210*FX16 220*FX9 1 230*FX10 1 240*TAPE 250*OPT 260*TV255 1 270MODE7:HIMEM=&5800 280VDU23;8202;0;0;0; 290RESTORE560 300FORN%=&50TO&59:READ?N%:NEXT 310?&FFFF7C00=128:?&7C00=0 320IF?&FFFF7C00>0PRINT"Please turn off your Second Processor, press Break, and re-load this program.":A%=151:X%=78:Y%=127:CALL&FFF4:REPEATUNTIL0 325CALLU%+896 330PROCmenu:REPEATL%=GET 340IF(L%OR32)=107PROCkeys 350UNTILL%=32:PROCt 360*FX11 365*FX229 370*RUN GAME 390DEFPROCcheck:FORA%=0TON%-1 400IFA%?&50=256-P%P%=0 410NEXT:IFA$=""P%=0 420ENDPROC 430DEFFNyes 440REPEATN%=GETOR32 450UNTILN%=110ORN%=121 460IFN%=121PRINT" Yes."; ELSEPRINT" No."; 470TIME=0:REPEATUNTILTIME>79 480=N%-110 500DEFPROCmenu 510VDU28;16,39,6,12,26 520FORN%=0TO&27CSTEP4 530N%!&7C00=N%!S% 540NEXT:ENDPROC 560DATA-98,-67,-73,-105,-56,-51,-74,-36,-2,-102 570DATA MOVE WEST,MOVE EAST,MOVE NORTH,MOVE SOUTH,PICK UP OBJECT,DROP OBJECT,USE OBJECT,THROW OBJECT,VIEW BACKPACK,VIEW MAP 580DATA 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 590DATAS,C,G,H,N,L,+,],DELETE,,,,,,,TAB,Z,SPACE,V,B,M,<,>,?,COPY,,,,,,,!,f1,f2,f3,f5,f6,f8,f9,|,RIGHT CURSOR 600: 610DEFPROCkeys 620REPEAT:CLS 630RESTORE570:FORN%=0TO9 640READA$:PRINTTAB(8)CHR$131A$": "CHR$130CHR$156; 650NEXT:N%=0:REPEAT 660PRINTTAB(0,N%)"Press:"CHR$129CHR$157TAB(28,N%); 670P%=0:REPEAT:FORK%=1TO122 680IFINKEY(-K%)IFK%<3ORK%>16P%=K% 690NEXT:RESTORE580 700FORA%=1TOP%:READA$:NEXT 710IFP%>0ANDN%>0 PROCcheck 720UNTILP%>0 730IFP%=113UNTILTRUE:UNTILFALSE 740PRINTA$TAB(0,N%)SPC(8); 750N%?&50=-P%:N%=N%+1 760UNTILN%=10:*FX15 1 770PRINT'CHR$134"Are these keys correct?"; 780UNTILFNyes:PROCmenu 790ENDPROC 810DATA 0,1,3,5 830DEFPROCt:VDU22,5;23;8202;0;0;0; 840RESTORE 810 850FORN%=0TO3:READA%:VDU19,N%,A%;0; 860NEXT:CALLF%:VDU28;31,19,27:ENDPROC
� Menu Prog. � By Ian Holmes � Original name: GUILDMASTER (M�"����Hello,��all my friends! � ����Hello,��all my friends! � 2: <)�=�+&800:�S%&2FF,F%&FF,T%&20FF,U%1024 F3�=&5800:F%?8=F%�256:F%?231=F%�256:U%?908=U%�256 d�AWopBabaLuMopALopBamBoom n*FX200 2 x*FX229 1 � *FX4 1 ��t �EE%=&FFFF �!&202:�''"Please STOP THE TAPEand press RETURN";:���=13 ��N%=0�?&FFB6-1 �N%?&200=N%?!&FFB7:� �!&202=!&202 �&FFFF0000�E% � *FX12 � *FX18 � *FX16 � *FX9 1 �*FX10 1 � *TAPE �*OPT *TV255 1 �7:�=&5800 �23;8202;0;0;0; " ��TpB ,�N%=&50�&59:�?N%:� 6?&FFFF7C00=128:?&7C00=0 @��?&FFFF7C00>0�"Please turn off your Second Processor, press Break, and re-load this program.":A%=151:X%=78:Y%=127:�&FFF4:��0 E�U%+896 J�menu:�L%=� T�(L%�32)=107�keys ^ �L%=32:�t h *FX11 m *FX229 r *RUN GAME ���check:�A%=0�N%-1 ��A%?&50=256-P%P%=0 ��:�A$=""P%=0 �� � ݤyes ��N%=��32 ��N%=110�N%=121 ��N%=121�" Yes."; ��" No."; ��=0:���>79 �=N%-110 � ��menu ��28;16,39,6,12,26 �N%=0�&27C�4 N%!&7C00=N%!S% �:� 0-�-98,-67,-73,-105,-56,-51,-74,-36,-2,-102 :y� MOVE WEST,MOVE EAST,MOVE NORTH,MOVE SOUTH,PICK UP OBJECT,DROP OBJECT,USE OBJECT,THROW OBJECT,VIEW BACKPACK,VIEW MAP D�� 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 Nj�S,C,G,H,N,L,+,],DELETE,,,,,,,TAB,Z,SPACE,V,B,M,<,>,?,COPY,,,,,,,!,f1,f2,f3,f5,f6,f8,f9,|,RIGHT CURSOR X: b ��keys l�:� v��TzB:�N%=0�9 ��A$:�8)�131A$": "�130�156; ��:N%=0:� �#�0,N%)"Press:"�129�157�28,N%); �P%=0:�:�K%=1�122 ��(-K%)�K%<3�K%>16P%=K% ��:��DDB ��A%=1�P%:�A$:� ��P%>0�N%>0 �check � �P%>0 ��P%=113��:�� ��A$�0,N%)�(8); �N%?&50=-P%:N%=N%+1 ��N%=10:*FX15 1 $�'�134"Are these keys correct?"; ��yes:�menu � * � 0,1,3,5 >��t:�22,5;23;8202;0;0;0; H � �TjC R�N%=0�3:�A%:�19,N%,A%;0; \�:�F%:�28;31,19,27:� �, ��R� ( 2 <