Home » CEEFAX disks » telesoftware6.adl » 09-04-88/PIPLINE

09-04-88/PIPLINE

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 » CEEFAX disks » telesoftware6.adl
Filename: 09-04-88/PIPLINE
Read OK:
File size: 27DE bytes
Load address: FFFF1900
Exec address: FFFF8023
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10REM Pipeline
   20REM By James Bee
   30REM (c) The Micro User
   40IF PAGE<&1900 THEN PAGE=&1900:CHAIN"PIPLINE" ELSE GOTO 1970
   50MODE2
   60left=&1100:right=&1112:up=&1124:down=&1136:display=&114F
   70sp=&1222:dht=&11B5:set1=&1148:check=&78:compare=&120C
   80DIM SC%(6),N$(6):*FX213,1
   90area=&B00:time=1000:*FX9,1
  100memL=&70:memH=&71:*FX10,1
  110FOR I%=0 TO 5:N$(I%)="Micro User":SC%(I%)=(6-I%)*20:NEXT
  120PROCtitle:zs$="0000"
  130PROCdh("Keys",7,6,6)
  140COLOUR5:PRINT''''SPC4"Z - Left"''SPC4"X - Right"''SPC4": - Up"''SPC4"/ - Down"''SPC4"H - Help"''SPC4"Q - End Game"''SPC4"RET - Pick"''SPC4"SFT - Drop"
  150PROCdh("Press SPACE to start",0,28,1)
  160T%=TIME:REPEAT:G$=INKEY$(0):UNTIL G$=" " OR TIME>T%+700
  170IF G$=" " THEN 220
  180PROCdis:PROCdh("by James Bee",5,29,9)
  190T%=TIME:REPEAT:G$=INKEY$(0):UNTIL G$=" " OR TIME>T%+700
  200IF G$=" " THEN 220
  210GOTO120
  220RESTORE 1960:scr=0
  230level=1:H%=0:Q=0
  240VDU12,19,2,0,0,0,0,23;8202;0;0;0;
  250PROCdh("Pipeline",6,1,3)
  260A$=STR$scr
  270PROCdh(RIGHT$(zs$+A$,3),12,29,2)
  280REPEAT
  290L%=&7887:?check=199
  300nx=18:ny=1:piece=0
  310nastmem=area+ny*20+nx
  320mem=area+201
  330READ M%
  340PROCcopy(M%)
  350PROCdisp(M%)
  360FOR I%=&7880 TO &7980 STEP 32
  370PROCsp(I%,2)
  380SOUND 2,-9,(I%-&7880)/32+200,1
  390NEXT
  400PROCsp(I%,8)
  410VDU20:PROCbox
  420PROCd(200)
  430FOR I%=0 TO &F0
  440IF ?(M%+I%)<2 OR ?(M%+I%)>7 THEN 480
  450R%=RND(235)
  460IF ?(area+R%)<>0 OR area+R%=mem OR R%=38 THEN 450
  470?(area+R%)=?(M%+I%):SOUND1,-2,R%,1
  480NEXT:PROCdisp(area)
  490PROCsetst
  500TIME=0
  510REPEAT
  520T%=TIME
  530REPEAT
  540PROCnasty
  550IF INKEY-17 Q=1
  560IF INKEY-98 PROCleft:GOTO600
  570IF INKEY-67 PROCright:GOTO600
  580IF INKEY-73 PROCup:GOTO600
  590IF INKEY-105 PROCdown
  600IF INKEY-74 IF piece=0 PROCpick
  610IF INKEY-1 IF piece>0 PROCput
  620IF INKEY-85 IF H%<3 PROChlp
  630PROCd(7)
  640UNTIL TIME>T%+time OR ?check=0 OR Q=1
  650?L%=48:L%?633=48:L%=L%+8
  660VDU7
  670IF TIME>38*time Q=1
  680UNTIL ?check=0 OR Q=1
  690S%=TIME
  700VDU28,1,25,18,6,12,26
  710PROCdh("Pipe "+STR$level,7,8,6)
  720IF ?check=0 PROCdh("Complete",6,11,6):PROCdh("Well done!",5,15,5):GOTO740
  730PROCdh("Incomplete",5,11,6):PROCdh("Bad luck",6,15,5)
  740PROCscr:PROCdh("Press any key!",3,22,7)
  750*FX15
  760G=GET:level=level+1:UNTIL level=5 OR ?check<>0
  770PROChi:GOTO180
  780DEF PROCdisp(D%)
  790X%=D%MOD256:Y%=D%DIV256
  800CALLdisplay:ENDPROC
  810DEF PROCleft:B%=14
  820IF mem?-1 A%=14:CALLset1:ENDPROC
  830mem=mem-1:A%=0:CALLset1
  840CALLleft:ENDPROC
  850DEF PROCright:B%=13
  860IF mem?1 A%=13:CALLset1:ENDPROC
  870mem=mem+1:A%=0:CALLset1
  880CALLright:ENDPROC
  890DEF PROCup:B%=11
  900IF mem?-20 A%=11:CALLset1:ENDPROC
  910mem=mem-20:A%=0:CALLset1
  920CALLup:ENDPROC
  930DEF PROCdown:B%=12
  940IF mem?20 A%=12:CALLset1:ENDPROC
  950mem=mem+20:A%=0:CALLset1
  960CALLdown:ENDPROC
  970DEF PROCpick:PROCudlr
  980IF ?pmem<2 OR ?pmem>7 ENDPROC
  990piece=?pmem:?pmem=0:PROCdisp(&B00):PROCsp(&7AB0,piece):A%=B%:CALLset1
 1000ENDPROC
 1010DEF PROCput:PROCudlr
 1020IF ?pmem>0 OR pmem=nastmem OR pmem=&BC9 ENDPROC
 1030?pmem=piece:PROCdisp(&B00):PROCsp(&7AB0,0):A%=B%:CALLset1
 1040IF ?(M%+pmem-&B00)=piece VDU19,0,4,0,0,0:PROCd(20):VDU20:SOUND 1,-9,255,2
 1050piece=0
 1060X%=M%MOD256:Y%=M%DIV256
 1070CALLcompare:ENDPROC
 1080DEF PROCcopy(Q%)
 1090FOR I%=0 TO &F0
 1100IF I%?Q%<2 OR I%?Q%>7 I%?&B00=I%?Q% ELSE I%?&B00=0
 1110NEXT:ENDPROC
 1120DEF PROCd(U%)
 1130E%=TIME:REPEATUNTIL TIME>E%+U%
 1140ENDPROC
 1150DEF PROChlp:ZZ%=TIME
 1160PROCdisp(M%):PROCd(200)
 1170H%=H%+1:PROCdisp(area)
 1180A%=B%:CALLset1:TIME=ZZ%:ENDPROC
 1190DEF PROCdh(S$,X,Y,C):COLOUR C
 1200LOCAL J%:PRINTTAB(X,Y);
 1210FOR J%=1 TO LENS$
 1220A%=ASCMID$(S$,J%):CALLdht:NEXT
 1230ENDPROC
 1240DEF PROCsp(loc,F%):A%=F%
 1250X%=loc MOD 256:Y%=loc DIV 256
 1260CALLsp:ENDPROC
 1270DEF PROCudlr
 1280IF B%=11 pmem=mem-20
 1290IF B%=12 pmem=mem+20
 1300IF B%=13 pmem=mem+1
 1310IF B%=14 pmem=mem-1
 1320ENDPROC
 1330DEF PROCnasty
 1340IF nastmem=mem GOTO 1410
 1350PROCsp(&3A00+nx*32+ny*1280,0)
 1360D%=RND(4)
 1370IF D%=1 IF nastmem?-20=0 ny=ny-1:nastmem=nastmem-20
 1380IF D%=2 IF nastmem?20=0 ny=ny+1:nastmem=nastmem+20
 1390IF D%=3 IF nastmem?1=0 nx=nx+1:nastmem=nastmem+1
 1400IF D%=4 IF nastmem?-1=0 nx=nx-1:nastmem=nastmem-1
 1410PROCsp(&3A00+nx*32+ny*1280,10)
 1420IF nastmem=mem FOR I%=128 TO 0 STEP-2:SOUND 2,-9,I%,1:NEXT:A%=0:CALLset1:PROCsetst
 1430ENDPROC
 1440DEF PROCsetst
 1450memloc=&3A00+(10*1280)+32
 1460?memL=memloc MOD 256
 1470?memH=memloc DIV 256
 1480PROCsp(memloc,11):B%=11
 1490mem=area+20*10+1:ENDPROC
 1500DEF PROCbox
 1510MOVE 1098,104:DRAW1098+104,104:DRAW1098+104,20:DRAW1098,20:DRAW1098,104
 1520ENDPROC
 1530DEF PROCscr
 1540*FX213,255
 1550*FX214,1
 1560FOR I%=0 TO &F0 
 1570IF M%?I%<2 OR M%?I%>7 THEN 1630
 1580IF M%?I%<>area?I% THEN 1630
 1590IF area?I%<4 scr=scr+1
 1600IF area?I%>3 scr=scr+5
 1610A$=STR$scr:PROCdh(RIGHT$(zs$+A$,3),12,29,2)
 1620VDU7
 1630NEXT
 1640*FX213,1
 1650IF Q=1 ENDPROC
 1660PROCdh("Bonus!",7,18,3)
 1670FOR I%=S% TO 37*time STEP time:?L%=48:?(L%+633)=48:L%=L%+8:SOUND 2,-2,I%,1
 1680scr=scr+5:A$=STR$scr:PROCdh(RIGHT$(zs$+A$,3),12,29,2):NEXT
 1690ENDPROC  
 1700DEF PROCinput:PROCtitle
 1710PROCdh("You are in the",2,7,6)
 1720PROCdh("High Score table!",1,10,6)
 1730PROCdh("Enter Your Name",2,16,5)
 1740PROCdh(STRING$(12," "),4,21,132)
 1750PROCdh(STRING$(12," "),4,23,132)
 1760N$="":PRINTTAB(5,23);
 1770REPEAT:VDU23,1,1;0;0;0;:K%=GET
 1780IF K%=127 N$=LEFT$(N$,LENN$-1):GOTO1810
 1790IF K%=13 THEN1820
 1800IF LENN$<10 N$=N$+CHR$K%
 1810PROCdh(N$+" ",5,22,7):VDU8,10
 1820UNTIL K%=13:COLOUR128:ENDPROC
 1830DEF PROChi:SC%=scr:*FX21
 1840IFSC%<SC%(5) THEN1870
 1850FORI%=0 TO 5:IFSC%<SC%(I%) NEXT ELSE FOR J%=5 TO I%+1 STEP-1:SC%(J%)=SC%(J%-1):N$(J%)=N$(J%-1):NEXT:SC%(I%)=SC%:N$(I%)="":N%=I%:SC%=0:I%=5:NEXT
 1860PROCinput:N$(N%)=N$
 1870ENDPROC
 1880DEF PROCdis:PROCtitle
 1890PROCdh("Top  Plumbers",3,6,6)
 1900FORJ%=0 TO 5:PROCdh(N$(J%)+STRING$(14-LENN$(J%),"."),2,10+J%*3,5)
 1910PROCdh(STR$(SC%(J%)),16,10+J%*3,7)
 1920NEXT:ENDPROC
 1930DEF PROCtitle:VDU12,23;8202;0;0;0;
 1940PROCdh("Pipeline!",5,3,3)
 1950ENDPROC
 1960DATA &900,&A00,&E00,&F00
 1970MODE7:RESTORE2150:REM Cut here
 1980PRINT"Assembling...":*TAPE
 1990PROCread(&1100,"Code")
 2000PROCread(&0900,"Pipe 1")
 2010PROCread(&0A00,"Pipe 2")
 2020PROCread(&0E00,"Pipe 3")
 2030PROCread(&0F00,"Pipe 4")
 2040PROCread(&1320,"Sprite"):*FX18
 2050FOR I%=0 TO 31:?(&1300+I%)=0:NEXT
 2060PRINT"Please wait some more...";
 2070VDU21:*K.0RESTORE2190:I%=(2+!&1C)AND&FFFF:REPEATI%=I%-1:U.?I%=13:I%?1=&FF|MOLD|MFOR I%=0 TO TOP STEP 4:I%!&1500=I%!PAGE:NEXT|MPAGE=&1500|MOLD|M40|MRUN|F|M
 2080*FX138,0,128
 2090END
 2100DEF PROCread(M%,B$):PRINT B$
 2110READ Q%:FOR J%=1 TO Q%:READ C$
 2120!M%=EVAL("&"+C$):M%=M%+4
 2130NEXT:ENDPROC
 2140REM Code
 2150DATA 97
 2160DATA E970A538,A5708520,8500E971
 2170DATA 4C0EA971,A5181148,85206970
 2180DATA 6971A570,A9718500,11484C0D
 2190DATA E970A538,A5708500,8505E971
 2200DATA 4C0BA971,A5181148,85006970
 2210DATA 6971A570,A9718505,11484C0C
 2220DATA 71A470A6,8E12224C,698C1168
 2230DATA 8500A911,853AA974,850BA975
 2240DATA 8500A98B,BD8CA68C,74A69999
 2250DATA 222075A4,74A51812,74852069
 2260DATA 006975A5,8CE67585,14C98CA5
 2270DATA AD18DFD0,14691168,AD11688D
 2280DATA 00691169,1811698D,806974A5
 2290DATA 75A57485,75850269,03308BC6
 2300DATA 6011614C,81A9FFA0,8AFFF420
 2310DATA 12798D60,79A20AA9,F12012A0
 2320DATA 2017A9FF,FEA9FFEE,A2FFEE20
 2330DATA 127ABD00,20FFEE20,E0E8FFEE
 2340DATA A9F2D004,FFEE2017,EE20FFA9
 2350DATA 127ABDFF,20FFEE20,E0E8FFEE
 2360DATA A9F2D008,FFEE20FE,EE200AA9
 2370DATA 2008A9FF,FFA9FFEE,A9FFEE20
 2380DATA FFEE4C0B,8C12158E,EBA21216
 2390DATA DD9999BD,03D00B00,86F5D0CA
 2400DATA 76866078,00A27784,0A0A8F86
 2410DATA 0A8F260A,260A8F26,0069188F
 2420DATA A912458D,8D8F6513,00A01246
 2430DATA 919999BD,7691C876,20E0E8C8
 2440DATA 29981EF0,E8EDD007,E0E8E8E8
 2450DATA 18E5D020,806976A5,77A57685
 2460DATA 77850269,D2D004A2,1D041F60
 2470DATA 00000611,00000000,00000000
 2480DATA 00000000
 2490REM Pipe 1 Data
 2500DATA 60
 2510DATA 01010101,01010101,01010101
 2520DATA 01010101,01010101,00000001
 2530DATA 00000000,00000001,00010000
 2540DATA 01000000,02040101,00000005
 2550DATA 00000001,00010100,01000000
 2560DATA 01030901,01000506,00010101
 2570DATA 05040000,01000000,01070601
 2580DATA 01000301,00000000,03030000
 2590DATA 01000000,00000001,00000300
 2600DATA 00000000,03030100,01000000
 2610DATA 00000001,01010300,01010000
 2620DATA 06030101,01000008,00000001
 2630DATA 04010300,02020202,00070202
 2640DATA 01000000,00000001,07020600
 2650DATA 01000101,00000000,01010101
 2660DATA 00000001,00000000,01000000
 2670DATA 00010101,01000000,00010001
 2680DATA 00000000,01000000,00000000
 2690DATA 01000000,01010101,01010101
 2700DATA 01010101,01010101,01010101
 2710REM Pipe 2 data
 2720DATA 60
 2730DATA 01010101,01010101,01010101
 2740DATA 01010101,01010101,00000001
 2750DATA 09000000,01010000,00000000
 2760DATA 01000000,00010001,07020204
 2770DATA 04010100,08020202,01000000
 2780DATA 00000101,00000003,07040100
 2790DATA 00010000,01010100,00000001
 2800DATA 04000103,00070202,00010000
 2810DATA 01000100,00000001,03000103
 2820DATA 00000000,00000000,01000000
 2830DATA 00000101,03020403,05020202
 2840DATA 00000001,01000001,00010001
 2850DATA 03010706,03000000,01000000
 2860DATA 01000001,00000001,03010000
 2870DATA 03000101,00000000,01010000
 2880DATA 00000001,06000000,07020202
 2890DATA 00010101,01000000,00010001
 2900DATA 00000000,01000000,00000000
 2910DATA 01000000,01010101,01010101
 2920DATA 01010101,01010101,01010101
 2930REM Pipe 3 data
 2940DATA 60
 2950DATA 01010101,01010101,01010101
 2960DATA 01010101,01010101,00000001
 2970DATA 00000001,00000000,00000000
 2980DATA 01000001,00000001,02040000
 2990DATA 02020202,00000005,01000001
 3000DATA 00010101,01030000,01010101
 3010DATA 00000103,01000000,00000001
 3020DATA 02060000,02020202,02020203
 3030DATA 01000502,04000001,00000502
 3040DATA 01000000,00000103,01000300
 3050DATA 03000001,02020601,01000008
 3060DATA 01000103,01090300,03000001
 3070DATA 00000001,01000000,01000103
 3080DATA 01070600,06000001,02020202
 3090DATA 02020202,01000007,01000000
 3100DATA 00000001,01010000,00000101
 3110DATA 00000100,01000100,00010001
 3120DATA 00000000,00000000,00000000
 3130DATA 01000000,01010101,01010101
 3140DATA 01010101,01010101,01010101
 3150REM Pipe 4 data
 3160DATA 60
 3170DATA 01010101,01010101,01010101
 3180DATA 01010101,01010101,00000001
 3190DATA 00000001,00000100,09000000
 3200DATA 01000000,00000001,02040001
 3210DATA 00000105,03000804,01000100
 3220DATA 00000001,00030101,01010103
 3230DATA 06000003,01000005,00000001
 3240DATA 02030204,00000007,04000003
 3250DATA 01000007,00000001,02060103
 3260DATA 02020202,03000007,01000000
 3270DATA 00010101,00000103,01010101
 3280DATA 03010101,01010000,00000001
 3290DATA 02040103,01050202,07020204
 3300DATA 01000000,00000001,00070206
 3310DATA 01030000,00000003,01000000
 3320DATA 00000001,00000000,02060001
 3330DATA 00010007,01000100,00010001
 3340DATA 00000000,00000000,00000000
 3350DATA 01000000,01010101,01010101
 3360DATA 01010101,01010101,01010101
 3370REM Sprite data
 3380DATA 112
 3390DATA 13031303,03130313,13031303
 3400DATA 03130313,23032303,03230323
 3410DATA 23032303,03230323,3C3F0000
 3420DATA 00003033,3C3F0000,00003033
 3430DATA 3C3F0000,00003033,3C3F0000
 3440DATA 00003033,00000000,00000000
 3450DATA 31313131,31313131,3D3D3D3D
 3460DATA 3D3D3D3D,00000000,00000000
 3470DATA 00000000,00000000,35000000
 3480DATA 31313131,3F3F0000,3D3D3F3F
 3490DATA 3E3F0000,00003033,3C3F0000
 3500DATA 00003033,3C3F0000,31313336
 3510DATA 3F2A0000,3D3D3D3D,00000000
 3520DATA 00000000,00000000,00000000
 3530DATA 31313131,00001030,363C3D3D
 3540DATA 00003033,3C3F0000,00003033
 3550DATA 3C3F0000,00003033,3D3F3131
 3560DATA 00003033,3F3D3D3D,0000203F
 3570DATA 00000000,00000000,3C3F003A
 3580DATA 00002033,3C3F3730,00313133
 3590DATA 2A000035,003D3D3D,00000000
 3600DATA 00000000,13031303,00000001
 3610DATA 13031303,31313103,23032303
 3620DATA 3D3D3D03,23032303,00000002
 3630DATA 004545A2,00000000,0E0E0406
 3640DATA 0404040E,0D0D0809,0808080D
 3650DATA 008A8A51,00000000,00000000
 3660DATA 00000400,0E0A0A00,00030703
 3670DATA 0D050500,00030B03,00000000
 3680DATA 00000800,00040000,00000000
 3690DATA 03070300,000A0A0E,030B0300
 3700DATA 0005050D,00080000,00000000
 3710DATA 01010000,00000101,0B030800
 3720DATA 0008030B,080F0000,00000F08
 3730DATA 000A0000,00000A00,00050000
 3740DATA 00000500,040F0000,00000F04
 3750DATA 07030400,00040307,02020000
 3760DATA 00000202

� Pipeline
� By James Bee
� (c) The Micro User
(+� �<&1900 � �=&1900:�"PIPLINE" � � �trG
2�2
<<left=&1100:right=&1112:up=&1124:down=&1136:display=&114F
F9sp=&1222:dht=&11B5:set1=&1148:check=&78:compare=&120C
P� SC%(6),N$(6):*FX213,1
Zarea=&B00:time=1000:*FX9,1
dmemL=&70:memH=&71:*FX10,1
n6� I%=0 � 5:N$(I%)="Micro User":SC%(I%)=(6-I%)*20:�
x�title:zs$="0000"
��dh("Keys",7,6,6)
���5:�''''�4"Z - Left"''�4"X - Right"''�4": - Up"''�4"/ - Down"''�4"H - Help"''�4"Q - End Game"''�4"RET - Pick"''�4"SFT - Drop"
�&�dh("Press SPACE to start",0,28,1)
�&T%=�:�:G$=�(0):� G$=" " � �>T%+700
�� G$=" " � �d\@
�#�dis:�dh("by James Bee",5,29,9)
�&T%=�:�:G$=�(0):� G$=" " � �>T%+700
�� G$=" " � �d\@
�	�Dx@
�� �thG:scr=0
�level=1:H%=0:Q=0
�#�12,19,2,0,0,0,0,23;8202;0;0;0;
��dh("Pipeline",6,1,3)
A$=�scr
�dh(�zs$+A$,3),12,29,2)
�
"L%=&7887:?check=199
,nx=18:ny=1:piece=0
6nastmem=area+ny*20+nx
@mem=area+201
J� M%
T
�copy(M%)
^
�disp(M%)
h� I%=&7880 � &7980 � 32
r
�sp(I%,2)
|� 2,-9,(I%-&7880)/32+200,1
��
�
�sp(I%,8)
��20:�box
��d(200)
�� I%=0 � &F0
�$� ?(M%+I%)<2 � ?(M%+I%)>7 � �d`A
�
R%=�(235)
�0� ?(area+R%)<>0 � area+R%=mem � R%=38 � �dBA
�"?(area+R%)=?(M%+I%):�1,-2,R%,1
��:�disp(area)
�
�setst
��=0
��
T%=�
�

�nasty
&� �-17 Q=1
0� �-98 �left:�DXB
:� �-67 �right:�DXB
D� �-73 �up:�DXB
N� �-105 �down
X� �-74 � piece=0 �pick
b� �-1 � piece>0 �put
l� �-85 � H%<3 �hlp
v	�d(7)
� � �>T%+time � ?check=0 � Q=1
�?L%=48:L%?633=48:L%=L%+8
��7
�� �>38*time Q=1
�� ?check=0 � Q=1
�S%=�
��28,1,25,18,6,12,26
��dh("Pipe "+�level,7,8,6)
�D� ?check=0 �dh("Complete",6,11,6):�dh("Well done!",5,15,5):�ddB
�3�dh("Incomplete",5,11,6):�dh("Bad luck",6,15,5)
�%�scr:�dh("Press any key!",3,22,7)
�	*FX15
�+G=�:level=level+1:� level=5 � ?check<>0

�hi:�tt@
� �disp(D%)
X%=D%�256:Y%=D%�256
 �display:�
*� �left:B%=14
4� mem?-1 A%=14:�set1:�
>mem=mem-1:A%=0:�set1
H�left:�
R� �right:B%=13
\� mem?1 A%=13:�set1:�
fmem=mem+1:A%=0:�set1
p�right:�
z� �up:B%=11
�� mem?-20 A%=11:�set1:�
�mem=mem-20:A%=0:�set1
�	�up:�
�� �down:B%=12
�� mem?20 A%=12:�set1:�
�mem=mem+20:A%=0:�set1
��down:�
�� �pick:�udlr
�� ?pmem<2 � ?pmem>7 �
�@piece=?pmem:?pmem=0:�disp(&B00):�sp(&7AB0,piece):A%=B%:�set1
��
�� �put:�udlr
�*� ?pmem>0 � pmem=nastmem � pmem=&BC9 �
4?pmem=piece:�disp(&B00):�sp(&7AB0,0):A%=B%:�set1
A� ?(M%+pmem-&B00)=piece �19,0,4,0,0,0:�d(20):�20:� 1,-9,255,2
piece=0
$X%=M%�256:Y%=M%�256
.�compare:�
8� �copy(Q%)
B� I%=0 � &F0
L1� I%?Q%<2 � I%?Q%>7 I%?&B00=I%?Q% � I%?&B00=0
V�:�
`� �d(U%)
jE%=�:�� �>E%+U%
t�
~� �hlp:ZZ%=�
��disp(M%):�d(200)
�H%=H%+1:�disp(area)
�A%=B%:�set1:�=ZZ%:�
�� �dh(S$,X,Y,C):� C
�� J%:�X,Y);
�� J%=1 � �S$
�A%=��S$,J%):�dht:�
��
�� �sp(loc,F%):A%=F%
�X%=loc � 256:Y%=loc � 256
�	�sp:�
�� �udlr
� B%=11 pmem=mem-20

� B%=12 pmem=mem+20
� B%=13 pmem=mem+1
� B%=14 pmem=mem-1
(�
2� �nasty
<� nastmem=mem � �tBE
F�sp(&3A00+nx*32+ny*1280,0)
PD%=�(4)
Z5� D%=1 � nastmem?-20=0 ny=ny-1:nastmem=nastmem-20
d4� D%=2 � nastmem?20=0 ny=ny+1:nastmem=nastmem+20
n2� D%=3 � nastmem?1=0 nx=nx+1:nastmem=nastmem+1
x3� D%=4 � nastmem?-1=0 nx=nx-1:nastmem=nastmem-1
��sp(&3A00+nx*32+ny*1280,10)
�B� nastmem=mem � I%=128 � 0 �-2:� 2,-9,I%,1:�:A%=0:�set1:�setst
��
�� �setst
�memloc=&3A00+(10*1280)+32
�?memL=memloc � 256
�?memH=memloc � 256
��sp(memloc,11):B%=11
�mem=area+20*10+1:�
�
� �box
�<� 1098,104:�1098+104,104:�1098+104,20:�1098,20:�1098,104
��
�
� �scr
*FX213,255
*FX214,1
� I%=0 � &F0 
"� M%?I%<2 � M%?I%>7 � �D^F
,� M%?I%<>area?I% � �D^F
6� area?I%<4 scr=scr+1
@� area?I%>3 scr=scr+5
J#A$=�scr:�dh(�zs$+A$,3),12,29,2)
T�7
^�
h*FX213,1
r� Q=1 �
|�dh("Bonus!",7,18,3)
�D� I%=S% � 37*time � time:?L%=48:?(L%+633)=48:L%=L%+8:� 2,-2,I%,1
�/scr=scr+5:A$=�scr:�dh(�zs$+A$,3),12,29,2):�
��  
�� �input:�title
��dh("You are in the",2,7,6)
�#�dh("High Score table!",1,10,6)
�!�dh("Enter Your Name",2,16,5)
��dh(�12," "),4,21,132)
��dh(�12," "),4,23,132)
�N$="":�5,23);
��:�23,1,1;0;0;0;:K%=�
� � K%=127 N$=�N$,�N$-1):�TRG
�� K%=13 ��T\G
� �N$<10 N$=N$+�K%
�dh(N$+" ",5,22,7):�8,10
� K%=13:�128:�
&� �hi:SC%=scr:*FX21
0�SC%<SC%(5) ��DNG
:}�I%=0 � 5:�SC%<SC%(I%) � � � J%=5 � I%+1 �-1:SC%(J%)=SC%(J%-1):N$(J%)=N$(J%-1):�:SC%(I%)=SC%:N$(I%)="":N%=I%:SC%=0:I%=5:�
D�input:N$(N%)=N$
N�
X� �dis:�title
b�dh("Top  Plumbers",3,6,6)
l6�J%=0 � 5:�dh(N$(J%)+�14-�N$(J%),"."),2,10+J%*3,5)
v �dh(�(SC%(J%)),16,10+J%*3,7)
��:�
�� �title:�12,23;8202;0;0;0;
��dh("Pipeline!",5,3,3)
��
�� &900,&A00,&E00,&F00
��7:��DfH:� Cut here
��"Assembling...":*TAPE
��read(&1100,"Code")
��read(&0900,"Pipe 1")
��read(&0A00,"Pipe 2")
��read(&0E00,"Pipe 3")
��read(&0F00,"Pipe 4")
��read(&1320,"Sprite"):*FX18
� I%=0 � 31:?(&1300+I%)=0:�
 �"Please wait some more...";
��21:*K.0RESTORE2190:I%=(2+!&1C)AND&FFFF:REPEATI%=I%-1:U.?I%=13:I%?1=&FF|MOLD|MFOR I%=0 TO TOP STEP 4:I%!&1500=I%!PAGE:NEXT|MPAGE=&1500|MOLD|M40|MRUN|F|M
 *FX138,0,128
*�
4� �read(M%,B$):� B$
>� Q%:� J%=1 � Q%:� C$
H!M%=�("&"+C$):M%=M%+4
R�:�
\
� Code
f� 97
p � E970A538,A5708520,8500E971
z � 4C0EA971,A5181148,85206970
� � 6971A570,A9718500,11484C0D
� � E970A538,A5708500,8505E971
� � 4C0BA971,A5181148,85006970
� � 6971A570,A9718505,11484C0C
� � 71A470A6,8E12224C,698C1168
� � 8500A911,853AA974,850BA975
� � 8500A98B,BD8CA68C,74A69999
� � 222075A4,74A51812,74852069
� � 006975A5,8CE67585,14C98CA5
� � AD18DFD0,14691168,AD11688D
� � 00691169,1811698D,806974A5
� � 75A57485,75850269,03308BC6
� � 6011614C,81A9FFA0,8AFFF420
	 � 12798D60,79A20AA9,F12012A0
	 � 2017A9FF,FEA9FFEE,A2FFEE20
	 � 127ABD00,20FFEE20,E0E8FFEE
	$ � A9F2D004,FFEE2017,EE20FFA9
	. � 127ABDFF,20FFEE20,E0E8FFEE
	8 � A9F2D008,FFEE20FE,EE200AA9
	B � 2008A9FF,FFA9FFEE,A9FFEE20
	L � FFEE4C0B,8C12158E,EBA21216
	V � DD9999BD,03D00B00,86F5D0CA
	` � 76866078,00A27784,0A0A8F86
	j � 0A8F260A,260A8F26,0069188F
	t � A912458D,8D8F6513,00A01246
	~ � 919999BD,7691C876,20E0E8C8
	� � 29981EF0,E8EDD007,E0E8E8E8
	� � 18E5D020,806976A5,77A57685
	� � 77850269,D2D004A2,1D041F60
	� � 00000611,00000000,00000000
	�� 00000000
	�� Pipe 1 Data
	�� 60
	� � 01010101,01010101,01010101
	� � 01010101,01010101,00000001
	� � 00000000,00000001,00010000
	� � 01000000,02040101,00000005
	� � 00000001,00010100,01000000
 � 01030901,01000506,00010101

 � 05040000,01000000,01070601
 � 01000301,00000000,03030000
 � 01000000,00000001,00000300
( � 00000000,03030100,01000000
2 � 00000001,01010300,01010000
< � 06030101,01000008,00000001
F � 04010300,02020202,00070202
P � 01000000,00000001,07020600
Z � 01000101,00000000,01010101
d � 00000001,00000000,01000000
n � 00010101,01000000,00010001
x � 00000000,01000000,00000000
� � 01000000,01010101,01010101
� � 01010101,01010101,01010101
�� Pipe 2 data
�� 60
� � 01010101,01010101,01010101
� � 01010101,01010101,00000001
� � 09000000,01010000,00000000
� � 01000000,00010001,07020204
� � 04010100,08020202,01000000
� � 00000101,00000003,07040100
� � 00010000,01010100,00000001
� � 04000103,00070202,00010000
� � 01000100,00000001,03000103
 � 00000000,00000000,01000000
 � 00000101,03020403,05020202
 � 00000001,01000001,00010001
" � 03010706,03000000,01000000
, � 01000001,00000001,03010000
6 � 03000101,00000000,01010000
@ � 00000001,06000000,07020202
J � 00010101,01000000,00010001
T � 00000000,01000000,00000000
^ � 01000000,01010101,01010101
h � 01010101,01010101,01010101
r� Pipe 3 data
|� 60
� � 01010101,01010101,01010101
� � 01010101,01010101,00000001
� � 00000001,00000000,00000000
� � 01000001,00000001,02040000
� � 02020202,00000005,01000001
� � 00010101,01030000,01010101
� � 00000103,01000000,00000001
� � 02060000,02020202,02020203
� � 01000502,04000001,00000502
� � 01000000,00000103,01000300
� � 03000001,02020601,01000008
� � 01000103,01090300,03000001
� � 00000001,01000000,01000103
 � 01070600,06000001,02020202
 � 02020202,01000007,01000000
 � 00000001,01010000,00000101
& � 00000100,01000100,00010001
0 � 00000000,00000000,00000000
: � 01000000,01010101,01010101
D � 01010101,01010101,01010101
N� Pipe 4 data
X� 60
b � 01010101,01010101,01010101
l � 01010101,01010101,00000001
v � 00000001,00000100,09000000
� � 01000000,00000001,02040001
� � 00000105,03000804,01000100
� � 00000001,00030101,01010103
� � 06000003,01000005,00000001
� � 02030204,00000007,04000003
� � 01000007,00000001,02060103
� � 02020202,03000007,01000000
� � 00010101,00000103,01010101
� � 03010101,01010000,00000001
� � 02040103,01050202,07020204
� � 01000000,00000001,00070206
� � 01030000,00000003,01000000
� � 00000001,00000000,02060001

 � 00010007,01000100,00010001

 � 00000000,00000000,00000000

 � 01000000,01010101,01010101

  � 01010101,01010101,01010101

*� Sprite data

4	� 112

> � 13031303,03130313,13031303

H � 03130313,23032303,03230323

R � 23032303,03230323,3C3F0000

\ � 00003033,3C3F0000,00003033

f � 3C3F0000,00003033,3C3F0000

p � 00003033,00000000,00000000

z � 31313131,31313131,3D3D3D3D

� � 3D3D3D3D,00000000,00000000

� � 00000000,00000000,35000000

� � 31313131,3F3F0000,3D3D3F3F

� � 3E3F0000,00003033,3C3F0000

� � 00003033,3C3F0000,31313336

� � 3F2A0000,3D3D3D3D,00000000

� � 00000000,00000000,00000000

� � 31313131,00001030,363C3D3D

� � 00003033,3C3F0000,00003033

� � 3C3F0000,00003033,3D3F3131

� � 00003033,3F3D3D3D,0000203F

� � 00000000,00000000,3C3F003A

� � 00002033,3C3F3730,00313133
 � 2A000035,003D3D3D,00000000
 � 00000000,13031303,00000001
 � 13031303,31313103,23032303
$ � 3D3D3D03,23032303,00000002
. � 004545A2,00000000,0E0E0406
8 � 0404040E,0D0D0809,0808080D
B � 008A8A51,00000000,00000000
L � 00000400,0E0A0A00,00030703
V � 0D050500,00030B03,00000000
` � 00000800,00040000,00000000
j � 03070300,000A0A0E,030B0300
t � 0005050D,00080000,00000000
~ � 01010000,00000101,0B030800
� � 0008030B,080F0000,00000F08
� � 000A0000,00000A00,00050000
� � 00000500,040F0000,00000F04
� � 07030400,00040307,02020000
�� 00000202
�
00000000  0d 00 0a 0e f4 20 50 69  70 65 6c 69 6e 65 0d 00  |..... Pipeline..|
00000010  14 12 f4 20 42 79 20 4a  61 6d 65 73 20 42 65 65  |... By James Bee|
00000020  0d 00 1e 18 f4 20 28 63  29 20 54 68 65 20 4d 69  |..... (c) The Mi|
00000030  63 72 6f 20 55 73 65 72  0d 00 28 2b e7 20 90 3c  |cro User..(+. .<|
00000040  26 31 39 30 30 20 8c 20  d0 3d 26 31 39 30 30 3a  |&1900 . .=&1900:|
00000050  d7 22 50 49 50 4c 49 4e  45 22 20 8b 20 e5 20 8d  |."PIPLINE" . . .|
00000060  74 72 47 0d 00 32 06 eb  32 0d 00 3c 3c 6c 65 66  |trG..2..2..<<lef|
00000070  74 3d 26 31 31 30 30 3a  72 69 67 68 74 3d 26 31  |t=&1100:right=&1|
00000080  31 31 32 3a 75 70 3d 26  31 31 32 34 3a 64 6f 77  |112:up=&1124:dow|
00000090  6e 3d 26 31 31 33 36 3a  64 69 73 70 6c 61 79 3d  |n=&1136:display=|
000000a0  26 31 31 34 46 0d 00 46  39 73 70 3d 26 31 32 32  |&114F..F9sp=&122|
000000b0  32 3a 64 68 74 3d 26 31  31 42 35 3a 73 65 74 31  |2:dht=&11B5:set1|
000000c0  3d 26 31 31 34 38 3a 63  68 65 63 6b 3d 26 37 38  |=&1148:check=&78|
000000d0  3a 63 6f 6d 70 61 72 65  3d 26 31 32 30 43 0d 00  |:compare=&120C..|
000000e0  50 1b de 20 53 43 25 28  36 29 2c 4e 24 28 36 29  |P.. SC%(6),N$(6)|
000000f0  3a 2a 46 58 32 31 33 2c  31 0d 00 5a 1e 61 72 65  |:*FX213,1..Z.are|
00000100  61 3d 26 42 30 30 3a 74  69 6d 65 3d 31 30 30 30  |a=&B00:time=1000|
00000110  3a 2a 46 58 39 2c 31 0d  00 64 1d 6d 65 6d 4c 3d  |:*FX9,1..d.memL=|
00000120  26 37 30 3a 6d 65 6d 48  3d 26 37 31 3a 2a 46 58  |&70:memH=&71:*FX|
00000130  31 30 2c 31 0d 00 6e 36  e3 20 49 25 3d 30 20 b8  |10,1..n6. I%=0 .|
00000140  20 35 3a 4e 24 28 49 25  29 3d 22 4d 69 63 72 6f  | 5:N$(I%)="Micro|
00000150  20 55 73 65 72 22 3a 53  43 25 28 49 25 29 3d 28  | User":SC%(I%)=(|
00000160  36 2d 49 25 29 2a 32 30  3a ed 0d 00 78 15 f2 74  |6-I%)*20:...x..t|
00000170  69 74 6c 65 3a 7a 73 24  3d 22 30 30 30 30 22 0d  |itle:zs$="0000".|
00000180  00 82 15 f2 64 68 28 22  4b 65 79 73 22 2c 37 2c  |....dh("Keys",7,|
00000190  36 2c 36 29 0d 00 8c 81  fb 35 3a f1 27 27 27 27  |6,6).....5:.''''|
000001a0  89 34 22 5a 20 2d 20 4c  65 66 74 22 27 27 89 34  |.4"Z - Left"''.4|
000001b0  22 58 20 2d 20 52 69 67  68 74 22 27 27 89 34 22  |"X - Right"''.4"|
000001c0  3a 20 2d 20 55 70 22 27  27 89 34 22 2f 20 2d 20  |: - Up"''.4"/ - |
000001d0  44 6f 77 6e 22 27 27 89  34 22 48 20 2d 20 48 65  |Down"''.4"H - He|
000001e0  6c 70 22 27 27 89 34 22  51 20 2d 20 45 6e 64 20  |lp"''.4"Q - End |
000001f0  47 61 6d 65 22 27 27 89  34 22 52 45 54 20 2d 20  |Game"''.4"RET - |
00000200  50 69 63 6b 22 27 27 89  34 22 53 46 54 20 2d 20  |Pick"''.4"SFT - |
00000210  44 72 6f 70 22 0d 00 96  26 f2 64 68 28 22 50 72  |Drop"...&.dh("Pr|
00000220  65 73 73 20 53 50 41 43  45 20 74 6f 20 73 74 61  |ess SPACE to sta|
00000230  72 74 22 2c 30 2c 32 38  2c 31 29 0d 00 a0 26 54  |rt",0,28,1)...&T|
00000240  25 3d 91 3a f5 3a 47 24  3d bf 28 30 29 3a fd 20  |%=.:.:G$=.(0):. |
00000250  47 24 3d 22 20 22 20 84  20 91 3e 54 25 2b 37 30  |G$=" " . .>T%+70|
00000260  30 0d 00 aa 13 e7 20 47  24 3d 22 20 22 20 8c 20  |0..... G$=" " . |
00000270  8d 64 5c 40 0d 00 b4 23  f2 64 69 73 3a f2 64 68  |.d\@...#.dis:.dh|
00000280  28 22 62 79 20 4a 61 6d  65 73 20 42 65 65 22 2c  |("by James Bee",|
00000290  35 2c 32 39 2c 39 29 0d  00 be 26 54 25 3d 91 3a  |5,29,9)...&T%=.:|
000002a0  f5 3a 47 24 3d bf 28 30  29 3a fd 20 47 24 3d 22  |.:G$=.(0):. G$="|
000002b0  20 22 20 84 20 91 3e 54  25 2b 37 30 30 0d 00 c8  | " . .>T%+700...|
000002c0  13 e7 20 47 24 3d 22 20  22 20 8c 20 8d 64 5c 40  |.. G$=" " . .d\@|
000002d0  0d 00 d2 09 e5 8d 44 78  40 0d 00 dc 10 f7 20 8d  |......Dx@..... .|
000002e0  74 68 47 3a 73 63 72 3d  30 0d 00 e6 14 6c 65 76  |thG:scr=0....lev|
000002f0  65 6c 3d 31 3a 48 25 3d  30 3a 51 3d 30 0d 00 f0  |el=1:H%=0:Q=0...|
00000300  23 ef 31 32 2c 31 39 2c  32 2c 30 2c 30 2c 30 2c  |#.12,19,2,0,0,0,|
00000310  30 2c 32 33 3b 38 32 30  32 3b 30 3b 30 3b 30 3b  |0,23;8202;0;0;0;|
00000320  0d 00 fa 19 f2 64 68 28  22 50 69 70 65 6c 69 6e  |.....dh("Pipelin|
00000330  65 22 2c 36 2c 31 2c 33  29 0d 01 04 0b 41 24 3d  |e",6,1,3)....A$=|
00000340  c3 73 63 72 0d 01 0e 1b  f2 64 68 28 c2 7a 73 24  |.scr.....dh(.zs$|
00000350  2b 41 24 2c 33 29 2c 31  32 2c 32 39 2c 32 29 0d  |+A$,3),12,29,2).|
00000360  01 18 05 f5 0d 01 22 17  4c 25 3d 26 37 38 38 37  |......".L%=&7887|
00000370  3a 3f 63 68 65 63 6b 3d  31 39 39 0d 01 2c 16 6e  |:?check=199..,.n|
00000380  78 3d 31 38 3a 6e 79 3d  31 3a 70 69 65 63 65 3d  |x=18:ny=1:piece=|
00000390  30 0d 01 36 19 6e 61 73  74 6d 65 6d 3d 61 72 65  |0..6.nastmem=are|
000003a0  61 2b 6e 79 2a 32 30 2b  6e 78 0d 01 40 10 6d 65  |a+ny*20+nx..@.me|
000003b0  6d 3d 61 72 65 61 2b 32  30 31 0d 01 4a 08 f3 20  |m=area+201..J.. |
000003c0  4d 25 0d 01 54 0d f2 63  6f 70 79 28 4d 25 29 0d  |M%..T..copy(M%).|
000003d0  01 5e 0d f2 64 69 73 70  28 4d 25 29 0d 01 68 1b  |.^..disp(M%)..h.|
000003e0  e3 20 49 25 3d 26 37 38  38 30 20 b8 20 26 37 39  |. I%=&7880 . &79|
000003f0  38 30 20 88 20 33 32 0d  01 72 0d f2 73 70 28 49  |80 . 32..r..sp(I|
00000400  25 2c 32 29 0d 01 7c 1e  d4 20 32 2c 2d 39 2c 28  |%,2)..|.. 2,-9,(|
00000410  49 25 2d 26 37 38 38 30  29 2f 33 32 2b 32 30 30  |I%-&7880)/32+200|
00000420  2c 31 0d 01 86 05 ed 0d  01 90 0d f2 73 70 28 49  |,1..........sp(I|
00000430  25 2c 38 29 0d 01 9a 0c  ef 32 30 3a f2 62 6f 78  |%,8).....20:.box|
00000440  0d 01 a4 0b f2 64 28 32  30 30 29 0d 01 ae 10 e3  |.....d(200).....|
00000450  20 49 25 3d 30 20 b8 20  26 46 30 0d 01 b8 24 e7  | I%=0 . &F0...$.|
00000460  20 3f 28 4d 25 2b 49 25  29 3c 32 20 84 20 3f 28  | ?(M%+I%)<2 . ?(|
00000470  4d 25 2b 49 25 29 3e 37  20 8c 20 8d 64 60 41 0d  |M%+I%)>7 . .d`A.|
00000480  01 c2 0d 52 25 3d b3 28  32 33 35 29 0d 01 cc 30  |...R%=.(235)...0|
00000490  e7 20 3f 28 61 72 65 61  2b 52 25 29 3c 3e 30 20  |. ?(area+R%)<>0 |
000004a0  84 20 61 72 65 61 2b 52  25 3d 6d 65 6d 20 84 20  |. area+R%=mem . |
000004b0  52 25 3d 33 38 20 8c 20  8d 64 42 41 0d 01 d6 22  |R%=38 . .dBA..."|
000004c0  3f 28 61 72 65 61 2b 52  25 29 3d 3f 28 4d 25 2b  |?(area+R%)=?(M%+|
000004d0  49 25 29 3a d4 31 2c 2d  32 2c 52 25 2c 31 0d 01  |I%):.1,-2,R%,1..|
000004e0  e0 11 ed 3a f2 64 69 73  70 28 61 72 65 61 29 0d  |...:.disp(area).|
000004f0  01 ea 0a f2 73 65 74 73  74 0d 01 f4 07 d1 3d 30  |....setst.....=0|
00000500  0d 01 fe 05 f5 0d 02 08  08 54 25 3d 91 0d 02 12  |.........T%=....|
00000510  05 f5 0d 02 1c 0a f2 6e  61 73 74 79 0d 02 26 0e  |.......nasty..&.|
00000520  e7 20 a6 2d 31 37 20 51  3d 31 0d 02 30 16 e7 20  |. .-17 Q=1..0.. |
00000530  a6 2d 39 38 20 f2 6c 65  66 74 3a e5 8d 44 58 42  |.-98 .left:..DXB|
00000540  0d 02 3a 17 e7 20 a6 2d  36 37 20 f2 72 69 67 68  |..:.. .-67 .righ|
00000550  74 3a e5 8d 44 58 42 0d  02 44 14 e7 20 a6 2d 37  |t:..DXB..D.. .-7|
00000560  33 20 f2 75 70 3a e5 8d  44 58 42 0d 02 4e 11 e7  |3 .up:..DXB..N..|
00000570  20 a6 2d 31 30 35 20 f2  64 6f 77 6e 0d 02 58 1a  | .-105 .down..X.|
00000580  e7 20 a6 2d 37 34 20 e7  20 70 69 65 63 65 3d 30  |. .-74 . piece=0|
00000590  20 f2 70 69 63 6b 0d 02  62 18 e7 20 a6 2d 31 20  | .pick..b.. .-1 |
000005a0  e7 20 70 69 65 63 65 3e  30 20 f2 70 75 74 0d 02  |. piece>0 .put..|
000005b0  6c 16 e7 20 a6 2d 38 35  20 e7 20 48 25 3c 33 20  |l.. .-85 . H%<3 |
000005c0  f2 68 6c 70 0d 02 76 09  f2 64 28 37 29 0d 02 80  |.hlp..v..d(7)...|
000005d0  20 fd 20 91 3e 54 25 2b  74 69 6d 65 20 84 20 3f  | . .>T%+time . ?|
000005e0  63 68 65 63 6b 3d 30 20  84 20 51 3d 31 0d 02 8a  |check=0 . Q=1...|
000005f0  1c 3f 4c 25 3d 34 38 3a  4c 25 3f 36 33 33 3d 34  |.?L%=48:L%?633=4|
00000600  38 3a 4c 25 3d 4c 25 2b  38 0d 02 94 06 ef 37 0d  |8:L%=L%+8.....7.|
00000610  02 9e 13 e7 20 91 3e 33  38 2a 74 69 6d 65 20 51  |.... .>38*time Q|
00000620  3d 31 0d 02 a8 14 fd 20  3f 63 68 65 63 6b 3d 30  |=1..... ?check=0|
00000630  20 84 20 51 3d 31 0d 02  b2 08 53 25 3d 91 0d 02  | . Q=1....S%=...|
00000640  bc 17 ef 32 38 2c 31 2c  32 35 2c 31 38 2c 36 2c  |...28,1,25,18,6,|
00000650  31 32 2c 32 36 0d 02 c6  1d f2 64 68 28 22 50 69  |12,26.....dh("Pi|
00000660  70 65 20 22 2b c3 6c 65  76 65 6c 2c 37 2c 38 2c  |pe "+.level,7,8,|
00000670  36 29 0d 02 d0 44 e7 20  3f 63 68 65 63 6b 3d 30  |6)...D. ?check=0|
00000680  20 f2 64 68 28 22 43 6f  6d 70 6c 65 74 65 22 2c  | .dh("Complete",|
00000690  36 2c 31 31 2c 36 29 3a  f2 64 68 28 22 57 65 6c  |6,11,6):.dh("Wel|
000006a0  6c 20 64 6f 6e 65 21 22  2c 35 2c 31 35 2c 35 29  |l done!",5,15,5)|
000006b0  3a e5 8d 64 64 42 0d 02  da 33 f2 64 68 28 22 49  |:..ddB...3.dh("I|
000006c0  6e 63 6f 6d 70 6c 65 74  65 22 2c 35 2c 31 31 2c  |ncomplete",5,11,|
000006d0  36 29 3a f2 64 68 28 22  42 61 64 20 6c 75 63 6b  |6):.dh("Bad luck|
000006e0  22 2c 36 2c 31 35 2c 35  29 0d 02 e4 25 f2 73 63  |",6,15,5)...%.sc|
000006f0  72 3a f2 64 68 28 22 50  72 65 73 73 20 61 6e 79  |r:.dh("Press any|
00000700  20 6b 65 79 21 22 2c 33  2c 32 32 2c 37 29 0d 02  | key!",3,22,7)..|
00000710  ee 09 2a 46 58 31 35 0d  02 f8 2b 47 3d a5 3a 6c  |..*FX15...+G=.:l|
00000720  65 76 65 6c 3d 6c 65 76  65 6c 2b 31 3a fd 20 6c  |evel=level+1:. l|
00000730  65 76 65 6c 3d 35 20 84  20 3f 63 68 65 63 6b 3c  |evel=5 . ?check<|
00000740  3e 30 0d 03 02 0d f2 68  69 3a e5 8d 74 74 40 0d  |>0.....hi:..tt@.|
00000750  03 0c 0f dd 20 f2 64 69  73 70 28 44 25 29 0d 03  |.... .disp(D%)..|
00000760  16 17 58 25 3d 44 25 83  32 35 36 3a 59 25 3d 44  |..X%=D%.256:Y%=D|
00000770  25 81 32 35 36 0d 03 20  0e d6 64 69 73 70 6c 61  |%.256.. ..displa|
00000780  79 3a e1 0d 03 2a 11 dd  20 f2 6c 65 66 74 3a 42  |y:...*.. .left:B|
00000790  25 3d 31 34 0d 03 34 1a  e7 20 6d 65 6d 3f 2d 31  |%=14..4.. mem?-1|
000007a0  20 41 25 3d 31 34 3a d6  73 65 74 31 3a e1 0d 03  | A%=14:.set1:...|
000007b0  3e 18 6d 65 6d 3d 6d 65  6d 2d 31 3a 41 25 3d 30  |>.mem=mem-1:A%=0|
000007c0  3a d6 73 65 74 31 0d 03  48 0b d6 6c 65 66 74 3a  |:.set1..H..left:|
000007d0  e1 0d 03 52 12 dd 20 f2  72 69 67 68 74 3a 42 25  |...R.. .right:B%|
000007e0  3d 31 33 0d 03 5c 19 e7  20 6d 65 6d 3f 31 20 41  |=13..\.. mem?1 A|
000007f0  25 3d 31 33 3a d6 73 65  74 31 3a e1 0d 03 66 18  |%=13:.set1:...f.|
00000800  6d 65 6d 3d 6d 65 6d 2b  31 3a 41 25 3d 30 3a d6  |mem=mem+1:A%=0:.|
00000810  73 65 74 31 0d 03 70 0c  d6 72 69 67 68 74 3a e1  |set1..p..right:.|
00000820  0d 03 7a 0f dd 20 f2 75  70 3a 42 25 3d 31 31 0d  |..z.. .up:B%=11.|
00000830  03 84 1b e7 20 6d 65 6d  3f 2d 32 30 20 41 25 3d  |.... mem?-20 A%=|
00000840  31 31 3a d6 73 65 74 31  3a e1 0d 03 8e 19 6d 65  |11:.set1:.....me|
00000850  6d 3d 6d 65 6d 2d 32 30  3a 41 25 3d 30 3a d6 73  |m=mem-20:A%=0:.s|
00000860  65 74 31 0d 03 98 09 d6  75 70 3a e1 0d 03 a2 11  |et1.....up:.....|
00000870  dd 20 f2 64 6f 77 6e 3a  42 25 3d 31 32 0d 03 ac  |. .down:B%=12...|
00000880  1a e7 20 6d 65 6d 3f 32  30 20 41 25 3d 31 32 3a  |.. mem?20 A%=12:|
00000890  d6 73 65 74 31 3a e1 0d  03 b6 19 6d 65 6d 3d 6d  |.set1:.....mem=m|
000008a0  65 6d 2b 32 30 3a 41 25  3d 30 3a d6 73 65 74 31  |em+20:A%=0:.set1|
000008b0  0d 03 c0 0b d6 64 6f 77  6e 3a e1 0d 03 ca 11 dd  |.....down:......|
000008c0  20 f2 70 69 63 6b 3a f2  75 64 6c 72 0d 03 d4 19  | .pick:.udlr....|
000008d0  e7 20 3f 70 6d 65 6d 3c  32 20 84 20 3f 70 6d 65  |. ?pmem<2 . ?pme|
000008e0  6d 3e 37 20 e1 0d 03 de  40 70 69 65 63 65 3d 3f  |m>7 ....@piece=?|
000008f0  70 6d 65 6d 3a 3f 70 6d  65 6d 3d 30 3a f2 64 69  |pmem:?pmem=0:.di|
00000900  73 70 28 26 42 30 30 29  3a f2 73 70 28 26 37 41  |sp(&B00):.sp(&7A|
00000910  42 30 2c 70 69 65 63 65  29 3a 41 25 3d 42 25 3a  |B0,piece):A%=B%:|
00000920  d6 73 65 74 31 0d 03 e8  05 e1 0d 03 f2 10 dd 20  |.set1.......... |
00000930  f2 70 75 74 3a f2 75 64  6c 72 0d 03 fc 2a e7 20  |.put:.udlr...*. |
00000940  3f 70 6d 65 6d 3e 30 20  84 20 70 6d 65 6d 3d 6e  |?pmem>0 . pmem=n|
00000950  61 73 74 6d 65 6d 20 84  20 70 6d 65 6d 3d 26 42  |astmem . pmem=&B|
00000960  43 39 20 e1 0d 04 06 34  3f 70 6d 65 6d 3d 70 69  |C9 ....4?pmem=pi|
00000970  65 63 65 3a f2 64 69 73  70 28 26 42 30 30 29 3a  |ece:.disp(&B00):|
00000980  f2 73 70 28 26 37 41 42  30 2c 30 29 3a 41 25 3d  |.sp(&7AB0,0):A%=|
00000990  42 25 3a d6 73 65 74 31  0d 04 10 41 e7 20 3f 28  |B%:.set1...A. ?(|
000009a0  4d 25 2b 70 6d 65 6d 2d  26 42 30 30 29 3d 70 69  |M%+pmem-&B00)=pi|
000009b0  65 63 65 20 ef 31 39 2c  30 2c 34 2c 30 2c 30 2c  |ece .19,0,4,0,0,|
000009c0  30 3a f2 64 28 32 30 29  3a ef 32 30 3a d4 20 31  |0:.d(20):.20:. 1|
000009d0  2c 2d 39 2c 32 35 35 2c  32 0d 04 1a 0b 70 69 65  |,-9,255,2....pie|
000009e0  63 65 3d 30 0d 04 24 17  58 25 3d 4d 25 83 32 35  |ce=0..$.X%=M%.25|
000009f0  36 3a 59 25 3d 4d 25 81  32 35 36 0d 04 2e 0e d6  |6:Y%=M%.256.....|
00000a00  63 6f 6d 70 61 72 65 3a  e1 0d 04 38 0f dd 20 f2  |compare:...8.. .|
00000a10  63 6f 70 79 28 51 25 29  0d 04 42 10 e3 20 49 25  |copy(Q%)..B.. I%|
00000a20  3d 30 20 b8 20 26 46 30  0d 04 4c 31 e7 20 49 25  |=0 . &F0..L1. I%|
00000a30  3f 51 25 3c 32 20 84 20  49 25 3f 51 25 3e 37 20  |?Q%<2 . I%?Q%>7 |
00000a40  49 25 3f 26 42 30 30 3d  49 25 3f 51 25 20 8b 20  |I%?&B00=I%?Q% . |
00000a50  49 25 3f 26 42 30 30 3d  30 0d 04 56 07 ed 3a e1  |I%?&B00=0..V..:.|
00000a60  0d 04 60 0c dd 20 f2 64  28 55 25 29 0d 04 6a 13  |..`.. .d(U%)..j.|
00000a70  45 25 3d 91 3a f5 fd 20  91 3e 45 25 2b 55 25 0d  |E%=.:.. .>E%+U%.|
00000a80  04 74 05 e1 0d 04 7e 10  dd 20 f2 68 6c 70 3a 5a  |.t....~.. .hlp:Z|
00000a90  5a 25 3d 91 0d 04 88 15  f2 64 69 73 70 28 4d 25  |Z%=......disp(M%|
00000aa0  29 3a f2 64 28 32 30 30  29 0d 04 92 17 48 25 3d  |):.d(200)....H%=|
00000ab0  48 25 2b 31 3a f2 64 69  73 70 28 61 72 65 61 29  |H%+1:.disp(area)|
00000ac0  0d 04 9c 17 41 25 3d 42  25 3a d6 73 65 74 31 3a  |....A%=B%:.set1:|
00000ad0  d1 3d 5a 5a 25 3a e1 0d  04 a6 17 dd 20 f2 64 68  |.=ZZ%:...... .dh|
00000ae0  28 53 24 2c 58 2c 59 2c  43 29 3a fb 20 43 0d 04  |(S$,X,Y,C):. C..|
00000af0  b0 10 ea 20 4a 25 3a f1  8a 58 2c 59 29 3b 0d 04  |... J%:..X,Y);..|
00000b00  ba 10 e3 20 4a 25 3d 31  20 b8 20 a9 53 24 0d 04  |... J%=1 . .S$..|
00000b10  c4 16 41 25 3d 97 c1 53  24 2c 4a 25 29 3a d6 64  |..A%=..S$,J%):.d|
00000b20  68 74 3a ed 0d 04 ce 05  e1 0d 04 d8 17 dd 20 f2  |ht:........... .|
00000b30  73 70 28 6c 6f 63 2c 46  25 29 3a 41 25 3d 46 25  |sp(loc,F%):A%=F%|
00000b40  0d 04 e2 1d 58 25 3d 6c  6f 63 20 83 20 32 35 36  |....X%=loc . 256|
00000b50  3a 59 25 3d 6c 6f 63 20  81 20 32 35 36 0d 04 ec  |:Y%=loc . 256...|
00000b60  09 d6 73 70 3a e1 0d 04  f6 0b dd 20 f2 75 64 6c  |..sp:...... .udl|
00000b70  72 0d 05 00 17 e7 20 42  25 3d 31 31 20 70 6d 65  |r..... B%=11 pme|
00000b80  6d 3d 6d 65 6d 2d 32 30  0d 05 0a 17 e7 20 42 25  |m=mem-20..... B%|
00000b90  3d 31 32 20 70 6d 65 6d  3d 6d 65 6d 2b 32 30 0d  |=12 pmem=mem+20.|
00000ba0  05 14 16 e7 20 42 25 3d  31 33 20 70 6d 65 6d 3d  |.... B%=13 pmem=|
00000bb0  6d 65 6d 2b 31 0d 05 1e  16 e7 20 42 25 3d 31 34  |mem+1..... B%=14|
00000bc0  20 70 6d 65 6d 3d 6d 65  6d 2d 31 0d 05 28 05 e1  | pmem=mem-1..(..|
00000bd0  0d 05 32 0c dd 20 f2 6e  61 73 74 79 0d 05 3c 18  |..2.. .nasty..<.|
00000be0  e7 20 6e 61 73 74 6d 65  6d 3d 6d 65 6d 20 e5 20  |. nastmem=mem . |
00000bf0  8d 74 42 45 0d 05 46 1e  f2 73 70 28 26 33 41 30  |.tBE..F..sp(&3A0|
00000c00  30 2b 6e 78 2a 33 32 2b  6e 79 2a 31 32 38 30 2c  |0+nx*32+ny*1280,|
00000c10  30 29 0d 05 50 0b 44 25  3d b3 28 34 29 0d 05 5a  |0)..P.D%=.(4)..Z|
00000c20  35 e7 20 44 25 3d 31 20  e7 20 6e 61 73 74 6d 65  |5. D%=1 . nastme|
00000c30  6d 3f 2d 32 30 3d 30 20  6e 79 3d 6e 79 2d 31 3a  |m?-20=0 ny=ny-1:|
00000c40  6e 61 73 74 6d 65 6d 3d  6e 61 73 74 6d 65 6d 2d  |nastmem=nastmem-|
00000c50  32 30 0d 05 64 34 e7 20  44 25 3d 32 20 e7 20 6e  |20..d4. D%=2 . n|
00000c60  61 73 74 6d 65 6d 3f 32  30 3d 30 20 6e 79 3d 6e  |astmem?20=0 ny=n|
00000c70  79 2b 31 3a 6e 61 73 74  6d 65 6d 3d 6e 61 73 74  |y+1:nastmem=nast|
00000c80  6d 65 6d 2b 32 30 0d 05  6e 32 e7 20 44 25 3d 33  |mem+20..n2. D%=3|
00000c90  20 e7 20 6e 61 73 74 6d  65 6d 3f 31 3d 30 20 6e  | . nastmem?1=0 n|
00000ca0  78 3d 6e 78 2b 31 3a 6e  61 73 74 6d 65 6d 3d 6e  |x=nx+1:nastmem=n|
00000cb0  61 73 74 6d 65 6d 2b 31  0d 05 78 33 e7 20 44 25  |astmem+1..x3. D%|
00000cc0  3d 34 20 e7 20 6e 61 73  74 6d 65 6d 3f 2d 31 3d  |=4 . nastmem?-1=|
00000cd0  30 20 6e 78 3d 6e 78 2d  31 3a 6e 61 73 74 6d 65  |0 nx=nx-1:nastme|
00000ce0  6d 3d 6e 61 73 74 6d 65  6d 2d 31 0d 05 82 1f f2  |m=nastmem-1.....|
00000cf0  73 70 28 26 33 41 30 30  2b 6e 78 2a 33 32 2b 6e  |sp(&3A00+nx*32+n|
00000d00  79 2a 31 32 38 30 2c 31  30 29 0d 05 8c 42 e7 20  |y*1280,10)...B. |
00000d10  6e 61 73 74 6d 65 6d 3d  6d 65 6d 20 e3 20 49 25  |nastmem=mem . I%|
00000d20  3d 31 32 38 20 b8 20 30  20 88 2d 32 3a d4 20 32  |=128 . 0 .-2:. 2|
00000d30  2c 2d 39 2c 49 25 2c 31  3a ed 3a 41 25 3d 30 3a  |,-9,I%,1:.:A%=0:|
00000d40  d6 73 65 74 31 3a f2 73  65 74 73 74 0d 05 96 05  |.set1:.setst....|
00000d50  e1 0d 05 a0 0c dd 20 f2  73 65 74 73 74 0d 05 aa  |...... .setst...|
00000d60  1d 6d 65 6d 6c 6f 63 3d  26 33 41 30 30 2b 28 31  |.memloc=&3A00+(1|
00000d70  30 2a 31 32 38 30 29 2b  33 32 0d 05 b4 16 3f 6d  |0*1280)+32....?m|
00000d80  65 6d 4c 3d 6d 65 6d 6c  6f 63 20 83 20 32 35 36  |emL=memloc . 256|
00000d90  0d 05 be 16 3f 6d 65 6d  48 3d 6d 65 6d 6c 6f 63  |....?memH=memloc|
00000da0  20 81 20 32 35 36 0d 05  c8 18 f2 73 70 28 6d 65  | . 256.....sp(me|
00000db0  6d 6c 6f 63 2c 31 31 29  3a 42 25 3d 31 31 0d 05  |mloc,11):B%=11..|
00000dc0  d2 16 6d 65 6d 3d 61 72  65 61 2b 32 30 2a 31 30  |..mem=area+20*10|
00000dd0  2b 31 3a e1 0d 05 dc 0a  dd 20 f2 62 6f 78 0d 05  |+1:...... .box..|
00000de0  e6 3c ec 20 31 30 39 38  2c 31 30 34 3a df 31 30  |.<. 1098,104:.10|
00000df0  39 38 2b 31 30 34 2c 31  30 34 3a df 31 30 39 38  |98+104,104:.1098|
00000e00  2b 31 30 34 2c 32 30 3a  df 31 30 39 38 2c 32 30  |+104,20:.1098,20|
00000e10  3a df 31 30 39 38 2c 31  30 34 0d 05 f0 05 e1 0d  |:.1098,104......|
00000e20  05 fa 0a dd 20 f2 73 63  72 0d 06 04 0e 2a 46 58  |.... .scr....*FX|
00000e30  32 31 33 2c 32 35 35 0d  06 0e 0c 2a 46 58 32 31  |213,255....*FX21|
00000e40  34 2c 31 0d 06 18 11 e3  20 49 25 3d 30 20 b8 20  |4,1..... I%=0 . |
00000e50  26 46 30 20 0d 06 22 1e  e7 20 4d 25 3f 49 25 3c  |&F0 ..".. M%?I%<|
00000e60  32 20 84 20 4d 25 3f 49  25 3e 37 20 8c 20 8d 44  |2 . M%?I%>7 . .D|
00000e70  5e 46 0d 06 2c 1b e7 20  4d 25 3f 49 25 3c 3e 61  |^F..,.. M%?I%<>a|
00000e80  72 65 61 3f 49 25 20 8c  20 8d 44 5e 46 0d 06 36  |rea?I% . .D^F..6|
00000e90  19 e7 20 61 72 65 61 3f  49 25 3c 34 20 73 63 72  |.. area?I%<4 scr|
00000ea0  3d 73 63 72 2b 31 0d 06  40 19 e7 20 61 72 65 61  |=scr+1..@.. area|
00000eb0  3f 49 25 3e 33 20 73 63  72 3d 73 63 72 2b 35 0d  |?I%>3 scr=scr+5.|
00000ec0  06 4a 23 41 24 3d c3 73  63 72 3a f2 64 68 28 c2  |.J#A$=.scr:.dh(.|
00000ed0  7a 73 24 2b 41 24 2c 33  29 2c 31 32 2c 32 39 2c  |zs$+A$,3),12,29,|
00000ee0  32 29 0d 06 54 06 ef 37  0d 06 5e 05 ed 0d 06 68  |2)..T..7..^....h|
00000ef0  0c 2a 46 58 32 31 33 2c  31 0d 06 72 0b e7 20 51  |.*FX213,1..r.. Q|
00000f00  3d 31 20 e1 0d 06 7c 18  f2 64 68 28 22 42 6f 6e  |=1 ...|..dh("Bon|
00000f10  75 73 21 22 2c 37 2c 31  38 2c 33 29 0d 06 86 44  |us!",7,18,3)...D|
00000f20  e3 20 49 25 3d 53 25 20  b8 20 33 37 2a 74 69 6d  |. I%=S% . 37*tim|
00000f30  65 20 88 20 74 69 6d 65  3a 3f 4c 25 3d 34 38 3a  |e . time:?L%=48:|
00000f40  3f 28 4c 25 2b 36 33 33  29 3d 34 38 3a 4c 25 3d  |?(L%+633)=48:L%=|
00000f50  4c 25 2b 38 3a d4 20 32  2c 2d 32 2c 49 25 2c 31  |L%+8:. 2,-2,I%,1|
00000f60  0d 06 90 2f 73 63 72 3d  73 63 72 2b 35 3a 41 24  |.../scr=scr+5:A$|
00000f70  3d c3 73 63 72 3a f2 64  68 28 c2 7a 73 24 2b 41  |=.scr:.dh(.zs$+A|
00000f80  24 2c 33 29 2c 31 32 2c  32 39 2c 32 29 3a ed 0d  |$,3),12,29,2):..|
00000f90  06 9a 07 e1 20 20 0d 06  a4 13 dd 20 f2 69 6e 70  |....  ..... .inp|
00000fa0  75 74 3a f2 74 69 74 6c  65 0d 06 ae 1f f2 64 68  |ut:.title.....dh|
00000fb0  28 22 59 6f 75 20 61 72  65 20 69 6e 20 74 68 65  |("You are in the|
00000fc0  22 2c 32 2c 37 2c 36 29  0d 06 b8 23 f2 64 68 28  |",2,7,6)...#.dh(|
00000fd0  22 48 69 67 68 20 53 63  6f 72 65 20 74 61 62 6c  |"High Score tabl|
00000fe0  65 21 22 2c 31 2c 31 30  2c 36 29 0d 06 c2 21 f2  |e!",1,10,6)...!.|
00000ff0  64 68 28 22 45 6e 74 65  72 20 59 6f 75 72 20 4e  |dh("Enter Your N|
00001000  61 6d 65 22 2c 32 2c 31  36 2c 35 29 0d 06 cc 1a  |ame",2,16,5)....|
00001010  f2 64 68 28 c4 31 32 2c  22 20 22 29 2c 34 2c 32  |.dh(.12," "),4,2|
00001020  31 2c 31 33 32 29 0d 06  d6 1a f2 64 68 28 c4 31  |1,132).....dh(.1|
00001030  32 2c 22 20 22 29 2c 34  2c 32 33 2c 31 33 32 29  |2," "),4,23,132)|
00001040  0d 06 e0 12 4e 24 3d 22  22 3a f1 8a 35 2c 32 33  |....N$="":..5,23|
00001050  29 3b 0d 06 ea 19 f5 3a  ef 32 33 2c 31 2c 31 3b  |);.....:.23,1,1;|
00001060  30 3b 30 3b 30 3b 3a 4b  25 3d a5 0d 06 f4 20 e7  |0;0;0;:K%=.... .|
00001070  20 4b 25 3d 31 32 37 20  4e 24 3d c0 4e 24 2c a9  | K%=127 N$=.N$,.|
00001080  4e 24 2d 31 29 3a e5 8d  54 52 47 0d 06 fe 11 e7  |N$-1):..TRG.....|
00001090  20 4b 25 3d 31 33 20 8c  8d 54 5c 47 0d 07 08 16  | K%=13 ..T\G....|
000010a0  e7 20 a9 4e 24 3c 31 30  20 4e 24 3d 4e 24 2b bd  |. .N$<10 N$=N$+.|
000010b0  4b 25 0d 07 12 1c f2 64  68 28 4e 24 2b 22 20 22  |K%.....dh(N$+" "|
000010c0  2c 35 2c 32 32 2c 37 29  3a ef 38 2c 31 30 0d 07  |,5,22,7):.8,10..|
000010d0  1c 12 fd 20 4b 25 3d 31  33 3a fb 31 32 38 3a e1  |... K%=13:.128:.|
000010e0  0d 07 26 17 dd 20 f2 68  69 3a 53 43 25 3d 73 63  |..&.. .hi:SC%=sc|
000010f0  72 3a 2a 46 58 32 31 0d  07 30 15 e7 53 43 25 3c  |r:*FX21..0..SC%<|
00001100  53 43 25 28 35 29 20 8c  8d 44 4e 47 0d 07 3a 7d  |SC%(5) ..DNG..:}|
00001110  e3 49 25 3d 30 20 b8 20  35 3a e7 53 43 25 3c 53  |.I%=0 . 5:.SC%<S|
00001120  43 25 28 49 25 29 20 ed  20 8b 20 e3 20 4a 25 3d  |C%(I%) . . . J%=|
00001130  35 20 b8 20 49 25 2b 31  20 88 2d 31 3a 53 43 25  |5 . I%+1 .-1:SC%|
00001140  28 4a 25 29 3d 53 43 25  28 4a 25 2d 31 29 3a 4e  |(J%)=SC%(J%-1):N|
00001150  24 28 4a 25 29 3d 4e 24  28 4a 25 2d 31 29 3a ed  |$(J%)=N$(J%-1):.|
00001160  3a 53 43 25 28 49 25 29  3d 53 43 25 3a 4e 24 28  |:SC%(I%)=SC%:N$(|
00001170  49 25 29 3d 22 22 3a 4e  25 3d 49 25 3a 53 43 25  |I%)="":N%=I%:SC%|
00001180  3d 30 3a 49 25 3d 35 3a  ed 0d 07 44 14 f2 69 6e  |=0:I%=5:...D..in|
00001190  70 75 74 3a 4e 24 28 4e  25 29 3d 4e 24 0d 07 4e  |put:N$(N%)=N$..N|
000011a0  05 e1 0d 07 58 11 dd 20  f2 64 69 73 3a f2 74 69  |....X.. .dis:.ti|
000011b0  74 6c 65 0d 07 62 1e f2  64 68 28 22 54 6f 70 20  |tle..b..dh("Top |
000011c0  20 50 6c 75 6d 62 65 72  73 22 2c 33 2c 36 2c 36  | Plumbers",3,6,6|
000011d0  29 0d 07 6c 36 e3 4a 25  3d 30 20 b8 20 35 3a f2  |)..l6.J%=0 . 5:.|
000011e0  64 68 28 4e 24 28 4a 25  29 2b c4 31 34 2d a9 4e  |dh(N$(J%)+.14-.N|
000011f0  24 28 4a 25 29 2c 22 2e  22 29 2c 32 2c 31 30 2b  |$(J%),"."),2,10+|
00001200  4a 25 2a 33 2c 35 29 0d  07 76 20 f2 64 68 28 c3  |J%*3,5)..v .dh(.|
00001210  28 53 43 25 28 4a 25 29  29 2c 31 36 2c 31 30 2b  |(SC%(J%)),16,10+|
00001220  4a 25 2a 33 2c 37 29 0d  07 80 07 ed 3a e1 0d 07  |J%*3,7).....:...|
00001230  8a 1f dd 20 f2 74 69 74  6c 65 3a ef 31 32 2c 32  |... .title:.12,2|
00001240  33 3b 38 32 30 32 3b 30  3b 30 3b 30 3b 0d 07 94  |3;8202;0;0;0;...|
00001250  1a f2 64 68 28 22 50 69  70 65 6c 69 6e 65 21 22  |..dh("Pipeline!"|
00001260  2c 35 2c 33 2c 33 29 0d  07 9e 05 e1 0d 07 a8 19  |,5,3,3).........|
00001270  dc 20 26 39 30 30 2c 26  41 30 30 2c 26 45 30 30  |. &900,&A00,&E00|
00001280  2c 26 46 30 30 0d 07 b2  17 eb 37 3a f7 8d 44 66  |,&F00.....7:..Df|
00001290  48 3a f4 20 43 75 74 20  68 65 72 65 0d 07 bc 1a  |H:. Cut here....|
000012a0  f1 22 41 73 73 65 6d 62  6c 69 6e 67 2e 2e 2e 22  |."Assembling..."|
000012b0  3a 2a 54 41 50 45 0d 07  c6 17 f2 72 65 61 64 28  |:*TAPE.....read(|
000012c0  26 31 31 30 30 2c 22 43  6f 64 65 22 29 0d 07 d0  |&1100,"Code")...|
000012d0  19 f2 72 65 61 64 28 26  30 39 30 30 2c 22 50 69  |..read(&0900,"Pi|
000012e0  70 65 20 31 22 29 0d 07  da 19 f2 72 65 61 64 28  |pe 1").....read(|
000012f0  26 30 41 30 30 2c 22 50  69 70 65 20 32 22 29 0d  |&0A00,"Pipe 2").|
00001300  07 e4 19 f2 72 65 61 64  28 26 30 45 30 30 2c 22  |....read(&0E00,"|
00001310  50 69 70 65 20 33 22 29  0d 07 ee 19 f2 72 65 61  |Pipe 3").....rea|
00001320  64 28 26 30 46 30 30 2c  22 50 69 70 65 20 34 22  |d(&0F00,"Pipe 4"|
00001330  29 0d 07 f8 1f f2 72 65  61 64 28 26 31 33 32 30  |).....read(&1320|
00001340  2c 22 53 70 72 69 74 65  22 29 3a 2a 46 58 31 38  |,"Sprite"):*FX18|
00001350  0d 08 02 1f e3 20 49 25  3d 30 20 b8 20 33 31 3a  |..... I%=0 . 31:|
00001360  3f 28 26 31 33 30 30 2b  49 25 29 3d 30 3a ed 0d  |?(&1300+I%)=0:..|
00001370  08 0c 20 f1 22 50 6c 65  61 73 65 20 77 61 69 74  |.. ."Please wait|
00001380  20 73 6f 6d 65 20 6d 6f  72 65 2e 2e 2e 22 3b 0d  | some more...";.|
00001390  08 16 9c ef 32 31 3a 2a  4b 2e 30 52 45 53 54 4f  |....21:*K.0RESTO|
000013a0  52 45 32 31 39 30 3a 49  25 3d 28 32 2b 21 26 31  |RE2190:I%=(2+!&1|
000013b0  43 29 41 4e 44 26 46 46  46 46 3a 52 45 50 45 41  |C)AND&FFFF:REPEA|
000013c0  54 49 25 3d 49 25 2d 31  3a 55 2e 3f 49 25 3d 31  |TI%=I%-1:U.?I%=1|
000013d0  33 3a 49 25 3f 31 3d 26  46 46 7c 4d 4f 4c 44 7c  |3:I%?1=&FF|MOLD||
000013e0  4d 46 4f 52 20 49 25 3d  30 20 54 4f 20 54 4f 50  |MFOR I%=0 TO TOP|
000013f0  20 53 54 45 50 20 34 3a  49 25 21 26 31 35 30 30  | STEP 4:I%!&1500|
00001400  3d 49 25 21 50 41 47 45  3a 4e 45 58 54 7c 4d 50  |=I%!PAGE:NEXT|MP|
00001410  41 47 45 3d 26 31 35 30  30 7c 4d 4f 4c 44 7c 4d  |AGE=&1500|MOLD|M|
00001420  34 30 7c 4d 52 55 4e 7c  46 7c 4d 0d 08 20 10 2a  |40|MRUN|F|M.. .*|
00001430  46 58 31 33 38 2c 30 2c  31 32 38 0d 08 2a 05 e0  |FX138,0,128..*..|
00001440  0d 08 34 17 dd 20 f2 72  65 61 64 28 4d 25 2c 42  |..4.. .read(M%,B|
00001450  24 29 3a f1 20 42 24 0d  08 3e 19 f3 20 51 25 3a  |$):. B$..>.. Q%:|
00001460  e3 20 4a 25 3d 31 20 b8  20 51 25 3a f3 20 43 24  |. J%=1 . Q%:. C$|
00001470  0d 08 48 19 21 4d 25 3d  a0 28 22 26 22 2b 43 24  |..H.!M%=.("&"+C$|
00001480  29 3a 4d 25 3d 4d 25 2b  34 0d 08 52 07 ed 3a e1  |):M%=M%+4..R..:.|
00001490  0d 08 5c 0a f4 20 43 6f  64 65 0d 08 66 08 dc 20  |..\.. Code..f.. |
000014a0  39 37 0d 08 70 20 dc 20  45 39 37 30 41 35 33 38  |97..p . E970A538|
000014b0  2c 41 35 37 30 38 35 32  30 2c 38 35 30 30 45 39  |,A5708520,8500E9|
000014c0  37 31 0d 08 7a 20 dc 20  34 43 30 45 41 39 37 31  |71..z . 4C0EA971|
000014d0  2c 41 35 31 38 31 31 34  38 2c 38 35 32 30 36 39  |,A5181148,852069|
000014e0  37 30 0d 08 84 20 dc 20  36 39 37 31 41 35 37 30  |70... . 6971A570|
000014f0  2c 41 39 37 31 38 35 30  30 2c 31 31 34 38 34 43  |,A9718500,11484C|
00001500  30 44 0d 08 8e 20 dc 20  45 39 37 30 41 35 33 38  |0D... . E970A538|
00001510  2c 41 35 37 30 38 35 30  30 2c 38 35 30 35 45 39  |,A5708500,8505E9|
00001520  37 31 0d 08 98 20 dc 20  34 43 30 42 41 39 37 31  |71... . 4C0BA971|
00001530  2c 41 35 31 38 31 31 34  38 2c 38 35 30 30 36 39  |,A5181148,850069|
00001540  37 30 0d 08 a2 20 dc 20  36 39 37 31 41 35 37 30  |70... . 6971A570|
00001550  2c 41 39 37 31 38 35 30  35 2c 31 31 34 38 34 43  |,A9718505,11484C|
00001560  30 43 0d 08 ac 20 dc 20  37 31 41 34 37 30 41 36  |0C... . 71A470A6|
00001570  2c 38 45 31 32 32 32 34  43 2c 36 39 38 43 31 31  |,8E12224C,698C11|
00001580  36 38 0d 08 b6 20 dc 20  38 35 30 30 41 39 31 31  |68... . 8500A911|
00001590  2c 38 35 33 41 41 39 37  34 2c 38 35 30 42 41 39  |,853AA974,850BA9|
000015a0  37 35 0d 08 c0 20 dc 20  38 35 30 30 41 39 38 42  |75... . 8500A98B|
000015b0  2c 42 44 38 43 41 36 38  43 2c 37 34 41 36 39 39  |,BD8CA68C,74A699|
000015c0  39 39 0d 08 ca 20 dc 20  32 32 32 30 37 35 41 34  |99... . 222075A4|
000015d0  2c 37 34 41 35 31 38 31  32 2c 37 34 38 35 32 30  |,74A51812,748520|
000015e0  36 39 0d 08 d4 20 dc 20  30 30 36 39 37 35 41 35  |69... . 006975A5|
000015f0  2c 38 43 45 36 37 35 38  35 2c 31 34 43 39 38 43  |,8CE67585,14C98C|
00001600  41 35 0d 08 de 20 dc 20  41 44 31 38 44 46 44 30  |A5... . AD18DFD0|
00001610  2c 31 34 36 39 31 31 36  38 2c 41 44 31 31 36 38  |,14691168,AD1168|
00001620  38 44 0d 08 e8 20 dc 20  30 30 36 39 31 31 36 39  |8D... . 00691169|
00001630  2c 31 38 31 31 36 39 38  44 2c 38 30 36 39 37 34  |,1811698D,806974|
00001640  41 35 0d 08 f2 20 dc 20  37 35 41 35 37 34 38 35  |A5... . 75A57485|
00001650  2c 37 35 38 35 30 32 36  39 2c 30 33 33 30 38 42  |,75850269,03308B|
00001660  43 36 0d 08 fc 20 dc 20  36 30 31 31 36 31 34 43  |C6... . 6011614C|
00001670  2c 38 31 41 39 46 46 41  30 2c 38 41 46 46 46 34  |,81A9FFA0,8AFFF4|
00001680  32 30 0d 09 06 20 dc 20  31 32 37 39 38 44 36 30  |20... . 12798D60|
00001690  2c 37 39 41 32 30 41 41  39 2c 46 31 32 30 31 32  |,79A20AA9,F12012|
000016a0  41 30 0d 09 10 20 dc 20  32 30 31 37 41 39 46 46  |A0... . 2017A9FF|
000016b0  2c 46 45 41 39 46 46 45  45 2c 41 32 46 46 45 45  |,FEA9FFEE,A2FFEE|
000016c0  32 30 0d 09 1a 20 dc 20  31 32 37 41 42 44 30 30  |20... . 127ABD00|
000016d0  2c 32 30 46 46 45 45 32  30 2c 45 30 45 38 46 46  |,20FFEE20,E0E8FF|
000016e0  45 45 0d 09 24 20 dc 20  41 39 46 32 44 30 30 34  |EE..$ . A9F2D004|
000016f0  2c 46 46 45 45 32 30 31  37 2c 45 45 32 30 46 46  |,FFEE2017,EE20FF|
00001700  41 39 0d 09 2e 20 dc 20  31 32 37 41 42 44 46 46  |A9... . 127ABDFF|
00001710  2c 32 30 46 46 45 45 32  30 2c 45 30 45 38 46 46  |,20FFEE20,E0E8FF|
00001720  45 45 0d 09 38 20 dc 20  41 39 46 32 44 30 30 38  |EE..8 . A9F2D008|
00001730  2c 46 46 45 45 32 30 46  45 2c 45 45 32 30 30 41  |,FFEE20FE,EE200A|
00001740  41 39 0d 09 42 20 dc 20  32 30 30 38 41 39 46 46  |A9..B . 2008A9FF|
00001750  2c 46 46 41 39 46 46 45  45 2c 41 39 46 46 45 45  |,FFA9FFEE,A9FFEE|
00001760  32 30 0d 09 4c 20 dc 20  46 46 45 45 34 43 30 42  |20..L . FFEE4C0B|
00001770  2c 38 43 31 32 31 35 38  45 2c 45 42 41 32 31 32  |,8C12158E,EBA212|
00001780  31 36 0d 09 56 20 dc 20  44 44 39 39 39 39 42 44  |16..V . DD9999BD|
00001790  2c 30 33 44 30 30 42 30  30 2c 38 36 46 35 44 30  |,03D00B00,86F5D0|
000017a0  43 41 0d 09 60 20 dc 20  37 36 38 36 36 30 37 38  |CA..` . 76866078|
000017b0  2c 30 30 41 32 37 37 38  34 2c 30 41 30 41 38 46  |,00A27784,0A0A8F|
000017c0  38 36 0d 09 6a 20 dc 20  30 41 38 46 32 36 30 41  |86..j . 0A8F260A|
000017d0  2c 32 36 30 41 38 46 32  36 2c 30 30 36 39 31 38  |,260A8F26,006918|
000017e0  38 46 0d 09 74 20 dc 20  41 39 31 32 34 35 38 44  |8F..t . A912458D|
000017f0  2c 38 44 38 46 36 35 31  33 2c 30 30 41 30 31 32  |,8D8F6513,00A012|
00001800  34 36 0d 09 7e 20 dc 20  39 31 39 39 39 39 42 44  |46..~ . 919999BD|
00001810  2c 37 36 39 31 43 38 37  36 2c 32 30 45 30 45 38  |,7691C876,20E0E8|
00001820  43 38 0d 09 88 20 dc 20  32 39 39 38 31 45 46 30  |C8... . 29981EF0|
00001830  2c 45 38 45 44 44 30 30  37 2c 45 30 45 38 45 38  |,E8EDD007,E0E8E8|
00001840  45 38 0d 09 92 20 dc 20  31 38 45 35 44 30 32 30  |E8... . 18E5D020|
00001850  2c 38 30 36 39 37 36 41  35 2c 37 37 41 35 37 36  |,806976A5,77A576|
00001860  38 35 0d 09 9c 20 dc 20  37 37 38 35 30 32 36 39  |85... . 77850269|
00001870  2c 44 32 44 30 30 34 41  32 2c 31 44 30 34 31 46  |,D2D004A2,1D041F|
00001880  36 30 0d 09 a6 20 dc 20  30 30 30 30 30 36 31 31  |60... . 00000611|
00001890  2c 30 30 30 30 30 30 30  30 2c 30 30 30 30 30 30  |,00000000,000000|
000018a0  30 30 0d 09 b0 0e dc 20  30 30 30 30 30 30 30 30  |00..... 00000000|
000018b0  0d 09 ba 11 f4 20 50 69  70 65 20 31 20 44 61 74  |..... Pipe 1 Dat|
000018c0  61 0d 09 c4 08 dc 20 36  30 0d 09 ce 20 dc 20 30  |a..... 60... . 0|
000018d0  31 30 31 30 31 30 31 2c  30 31 30 31 30 31 30 31  |1010101,01010101|
000018e0  2c 30 31 30 31 30 31 30  31 0d 09 d8 20 dc 20 30  |,01010101... . 0|
000018f0  31 30 31 30 31 30 31 2c  30 31 30 31 30 31 30 31  |1010101,01010101|
00001900  2c 30 30 30 30 30 30 30  31 0d 09 e2 20 dc 20 30  |,00000001... . 0|
00001910  30 30 30 30 30 30 30 2c  30 30 30 30 30 30 30 31  |0000000,00000001|
00001920  2c 30 30 30 31 30 30 30  30 0d 09 ec 20 dc 20 30  |,00010000... . 0|
00001930  31 30 30 30 30 30 30 2c  30 32 30 34 30 31 30 31  |1000000,02040101|
00001940  2c 30 30 30 30 30 30 30  35 0d 09 f6 20 dc 20 30  |,00000005... . 0|
00001950  30 30 30 30 30 30 31 2c  30 30 30 31 30 31 30 30  |0000001,00010100|
00001960  2c 30 31 30 30 30 30 30  30 0d 0a 00 20 dc 20 30  |,01000000... . 0|
00001970  31 30 33 30 39 30 31 2c  30 31 30 30 30 35 30 36  |1030901,01000506|
00001980  2c 30 30 30 31 30 31 30  31 0d 0a 0a 20 dc 20 30  |,00010101... . 0|
00001990  35 30 34 30 30 30 30 2c  30 31 30 30 30 30 30 30  |5040000,01000000|
000019a0  2c 30 31 30 37 30 36 30  31 0d 0a 14 20 dc 20 30  |,01070601... . 0|
000019b0  31 30 30 30 33 30 31 2c  30 30 30 30 30 30 30 30  |1000301,00000000|
000019c0  2c 30 33 30 33 30 30 30  30 0d 0a 1e 20 dc 20 30  |,03030000... . 0|
000019d0  31 30 30 30 30 30 30 2c  30 30 30 30 30 30 30 31  |1000000,00000001|
000019e0  2c 30 30 30 30 30 33 30  30 0d 0a 28 20 dc 20 30  |,00000300..( . 0|
000019f0  30 30 30 30 30 30 30 2c  30 33 30 33 30 31 30 30  |0000000,03030100|
00001a00  2c 30 31 30 30 30 30 30  30 0d 0a 32 20 dc 20 30  |,01000000..2 . 0|
00001a10  30 30 30 30 30 30 31 2c  30 31 30 31 30 33 30 30  |0000001,01010300|
00001a20  2c 30 31 30 31 30 30 30  30 0d 0a 3c 20 dc 20 30  |,01010000..< . 0|
00001a30  36 30 33 30 31 30 31 2c  30 31 30 30 30 30 30 38  |6030101,01000008|
00001a40  2c 30 30 30 30 30 30 30  31 0d 0a 46 20 dc 20 30  |,00000001..F . 0|
00001a50  34 30 31 30 33 30 30 2c  30 32 30 32 30 32 30 32  |4010300,02020202|
00001a60  2c 30 30 30 37 30 32 30  32 0d 0a 50 20 dc 20 30  |,00070202..P . 0|
00001a70  31 30 30 30 30 30 30 2c  30 30 30 30 30 30 30 31  |1000000,00000001|
00001a80  2c 30 37 30 32 30 36 30  30 0d 0a 5a 20 dc 20 30  |,07020600..Z . 0|
00001a90  31 30 30 30 31 30 31 2c  30 30 30 30 30 30 30 30  |1000101,00000000|
00001aa0  2c 30 31 30 31 30 31 30  31 0d 0a 64 20 dc 20 30  |,01010101..d . 0|
00001ab0  30 30 30 30 30 30 31 2c  30 30 30 30 30 30 30 30  |0000001,00000000|
00001ac0  2c 30 31 30 30 30 30 30  30 0d 0a 6e 20 dc 20 30  |,01000000..n . 0|
00001ad0  30 30 31 30 31 30 31 2c  30 31 30 30 30 30 30 30  |0010101,01000000|
00001ae0  2c 30 30 30 31 30 30 30  31 0d 0a 78 20 dc 20 30  |,00010001..x . 0|
00001af0  30 30 30 30 30 30 30 2c  30 31 30 30 30 30 30 30  |0000000,01000000|
00001b00  2c 30 30 30 30 30 30 30  30 0d 0a 82 20 dc 20 30  |,00000000... . 0|
00001b10  31 30 30 30 30 30 30 2c  30 31 30 31 30 31 30 31  |1000000,01010101|
00001b20  2c 30 31 30 31 30 31 30  31 0d 0a 8c 20 dc 20 30  |,01010101... . 0|
00001b30  31 30 31 30 31 30 31 2c  30 31 30 31 30 31 30 31  |1010101,01010101|
00001b40  2c 30 31 30 31 30 31 30  31 0d 0a 96 11 f4 20 50  |,01010101..... P|
00001b50  69 70 65 20 32 20 64 61  74 61 0d 0a a0 08 dc 20  |ipe 2 data..... |
00001b60  36 30 0d 0a aa 20 dc 20  30 31 30 31 30 31 30 31  |60... . 01010101|
00001b70  2c 30 31 30 31 30 31 30  31 2c 30 31 30 31 30 31  |,01010101,010101|
00001b80  30 31 0d 0a b4 20 dc 20  30 31 30 31 30 31 30 31  |01... . 01010101|
00001b90  2c 30 31 30 31 30 31 30  31 2c 30 30 30 30 30 30  |,01010101,000000|
00001ba0  30 31 0d 0a be 20 dc 20  30 39 30 30 30 30 30 30  |01... . 09000000|
00001bb0  2c 30 31 30 31 30 30 30  30 2c 30 30 30 30 30 30  |,01010000,000000|
00001bc0  30 30 0d 0a c8 20 dc 20  30 31 30 30 30 30 30 30  |00... . 01000000|
00001bd0  2c 30 30 30 31 30 30 30  31 2c 30 37 30 32 30 32  |,00010001,070202|
00001be0  30 34 0d 0a d2 20 dc 20  30 34 30 31 30 31 30 30  |04... . 04010100|
00001bf0  2c 30 38 30 32 30 32 30  32 2c 30 31 30 30 30 30  |,08020202,010000|
00001c00  30 30 0d 0a dc 20 dc 20  30 30 30 30 30 31 30 31  |00... . 00000101|
00001c10  2c 30 30 30 30 30 30 30  33 2c 30 37 30 34 30 31  |,00000003,070401|
00001c20  30 30 0d 0a e6 20 dc 20  30 30 30 31 30 30 30 30  |00... . 00010000|
00001c30  2c 30 31 30 31 30 31 30  30 2c 30 30 30 30 30 30  |,01010100,000000|
00001c40  30 31 0d 0a f0 20 dc 20  30 34 30 30 30 31 30 33  |01... . 04000103|
00001c50  2c 30 30 30 37 30 32 30  32 2c 30 30 30 31 30 30  |,00070202,000100|
00001c60  30 30 0d 0a fa 20 dc 20  30 31 30 30 30 31 30 30  |00... . 01000100|
00001c70  2c 30 30 30 30 30 30 30  31 2c 30 33 30 30 30 31  |,00000001,030001|
00001c80  30 33 0d 0b 04 20 dc 20  30 30 30 30 30 30 30 30  |03... . 00000000|
00001c90  2c 30 30 30 30 30 30 30  30 2c 30 31 30 30 30 30  |,00000000,010000|
00001ca0  30 30 0d 0b 0e 20 dc 20  30 30 30 30 30 31 30 31  |00... . 00000101|
00001cb0  2c 30 33 30 32 30 34 30  33 2c 30 35 30 32 30 32  |,03020403,050202|
00001cc0  30 32 0d 0b 18 20 dc 20  30 30 30 30 30 30 30 31  |02... . 00000001|
00001cd0  2c 30 31 30 30 30 30 30  31 2c 30 30 30 31 30 30  |,01000001,000100|
00001ce0  30 31 0d 0b 22 20 dc 20  30 33 30 31 30 37 30 36  |01.." . 03010706|
00001cf0  2c 30 33 30 30 30 30 30  30 2c 30 31 30 30 30 30  |,03000000,010000|
00001d00  30 30 0d 0b 2c 20 dc 20  30 31 30 30 30 30 30 31  |00.., . 01000001|
00001d10  2c 30 30 30 30 30 30 30  31 2c 30 33 30 31 30 30  |,00000001,030100|
00001d20  30 30 0d 0b 36 20 dc 20  30 33 30 30 30 31 30 31  |00..6 . 03000101|
00001d30  2c 30 30 30 30 30 30 30  30 2c 30 31 30 31 30 30  |,00000000,010100|
00001d40  30 30 0d 0b 40 20 dc 20  30 30 30 30 30 30 30 31  |00..@ . 00000001|
00001d50  2c 30 36 30 30 30 30 30  30 2c 30 37 30 32 30 32  |,06000000,070202|
00001d60  30 32 0d 0b 4a 20 dc 20  30 30 30 31 30 31 30 31  |02..J . 00010101|
00001d70  2c 30 31 30 30 30 30 30  30 2c 30 30 30 31 30 30  |,01000000,000100|
00001d80  30 31 0d 0b 54 20 dc 20  30 30 30 30 30 30 30 30  |01..T . 00000000|
00001d90  2c 30 31 30 30 30 30 30  30 2c 30 30 30 30 30 30  |,01000000,000000|
00001da0  30 30 0d 0b 5e 20 dc 20  30 31 30 30 30 30 30 30  |00..^ . 01000000|
00001db0  2c 30 31 30 31 30 31 30  31 2c 30 31 30 31 30 31  |,01010101,010101|
00001dc0  30 31 0d 0b 68 20 dc 20  30 31 30 31 30 31 30 31  |01..h . 01010101|
00001dd0  2c 30 31 30 31 30 31 30  31 2c 30 31 30 31 30 31  |,01010101,010101|
00001de0  30 31 0d 0b 72 11 f4 20  50 69 70 65 20 33 20 64  |01..r.. Pipe 3 d|
00001df0  61 74 61 0d 0b 7c 08 dc  20 36 30 0d 0b 86 20 dc  |ata..|.. 60... .|
00001e00  20 30 31 30 31 30 31 30  31 2c 30 31 30 31 30 31  | 01010101,010101|
00001e10  30 31 2c 30 31 30 31 30  31 30 31 0d 0b 90 20 dc  |01,01010101... .|
00001e20  20 30 31 30 31 30 31 30  31 2c 30 31 30 31 30 31  | 01010101,010101|
00001e30  30 31 2c 30 30 30 30 30  30 30 31 0d 0b 9a 20 dc  |01,00000001... .|
00001e40  20 30 30 30 30 30 30 30  31 2c 30 30 30 30 30 30  | 00000001,000000|
00001e50  30 30 2c 30 30 30 30 30  30 30 30 0d 0b a4 20 dc  |00,00000000... .|
00001e60  20 30 31 30 30 30 30 30  31 2c 30 30 30 30 30 30  | 01000001,000000|
00001e70  30 31 2c 30 32 30 34 30  30 30 30 0d 0b ae 20 dc  |01,02040000... .|
00001e80  20 30 32 30 32 30 32 30  32 2c 30 30 30 30 30 30  | 02020202,000000|
00001e90  30 35 2c 30 31 30 30 30  30 30 31 0d 0b b8 20 dc  |05,01000001... .|
00001ea0  20 30 30 30 31 30 31 30  31 2c 30 31 30 33 30 30  | 00010101,010300|
00001eb0  30 30 2c 30 31 30 31 30  31 30 31 0d 0b c2 20 dc  |00,01010101... .|
00001ec0  20 30 30 30 30 30 31 30  33 2c 30 31 30 30 30 30  | 00000103,010000|
00001ed0  30 30 2c 30 30 30 30 30  30 30 31 0d 0b cc 20 dc  |00,00000001... .|
00001ee0  20 30 32 30 36 30 30 30  30 2c 30 32 30 32 30 32  | 02060000,020202|
00001ef0  30 32 2c 30 32 30 32 30  32 30 33 0d 0b d6 20 dc  |02,02020203... .|
00001f00  20 30 31 30 30 30 35 30  32 2c 30 34 30 30 30 30  | 01000502,040000|
00001f10  30 31 2c 30 30 30 30 30  35 30 32 0d 0b e0 20 dc  |01,00000502... .|
00001f20  20 30 31 30 30 30 30 30  30 2c 30 30 30 30 30 31  | 01000000,000001|
00001f30  30 33 2c 30 31 30 30 30  33 30 30 0d 0b ea 20 dc  |03,01000300... .|
00001f40  20 30 33 30 30 30 30 30  31 2c 30 32 30 32 30 36  | 03000001,020206|
00001f50  30 31 2c 30 31 30 30 30  30 30 38 0d 0b f4 20 dc  |01,01000008... .|
00001f60  20 30 31 30 30 30 31 30  33 2c 30 31 30 39 30 33  | 01000103,010903|
00001f70  30 30 2c 30 33 30 30 30  30 30 31 0d 0b fe 20 dc  |00,03000001... .|
00001f80  20 30 30 30 30 30 30 30  31 2c 30 31 30 30 30 30  | 00000001,010000|
00001f90  30 30 2c 30 31 30 30 30  31 30 33 0d 0c 08 20 dc  |00,01000103... .|
00001fa0  20 30 31 30 37 30 36 30  30 2c 30 36 30 30 30 30  | 01070600,060000|
00001fb0  30 31 2c 30 32 30 32 30  32 30 32 0d 0c 12 20 dc  |01,02020202... .|
00001fc0  20 30 32 30 32 30 32 30  32 2c 30 31 30 30 30 30  | 02020202,010000|
00001fd0  30 37 2c 30 31 30 30 30  30 30 30 0d 0c 1c 20 dc  |07,01000000... .|
00001fe0  20 30 30 30 30 30 30 30  31 2c 30 31 30 31 30 30  | 00000001,010100|
00001ff0  30 30 2c 30 30 30 30 30  31 30 31 0d 0c 26 20 dc  |00,00000101..& .|
00002000  20 30 30 30 30 30 31 30  30 2c 30 31 30 30 30 31  | 00000100,010001|
00002010  30 30 2c 30 30 30 31 30  30 30 31 0d 0c 30 20 dc  |00,00010001..0 .|
00002020  20 30 30 30 30 30 30 30  30 2c 30 30 30 30 30 30  | 00000000,000000|
00002030  30 30 2c 30 30 30 30 30  30 30 30 0d 0c 3a 20 dc  |00,00000000..: .|
00002040  20 30 31 30 30 30 30 30  30 2c 30 31 30 31 30 31  | 01000000,010101|
00002050  30 31 2c 30 31 30 31 30  31 30 31 0d 0c 44 20 dc  |01,01010101..D .|
00002060  20 30 31 30 31 30 31 30  31 2c 30 31 30 31 30 31  | 01010101,010101|
00002070  30 31 2c 30 31 30 31 30  31 30 31 0d 0c 4e 11 f4  |01,01010101..N..|
00002080  20 50 69 70 65 20 34 20  64 61 74 61 0d 0c 58 08  | Pipe 4 data..X.|
00002090  dc 20 36 30 0d 0c 62 20  dc 20 30 31 30 31 30 31  |. 60..b . 010101|
000020a0  30 31 2c 30 31 30 31 30  31 30 31 2c 30 31 30 31  |01,01010101,0101|
000020b0  30 31 30 31 0d 0c 6c 20  dc 20 30 31 30 31 30 31  |0101..l . 010101|
000020c0  30 31 2c 30 31 30 31 30  31 30 31 2c 30 30 30 30  |01,01010101,0000|
000020d0  30 30 30 31 0d 0c 76 20  dc 20 30 30 30 30 30 30  |0001..v . 000000|
000020e0  30 31 2c 30 30 30 30 30  31 30 30 2c 30 39 30 30  |01,00000100,0900|
000020f0  30 30 30 30 0d 0c 80 20  dc 20 30 31 30 30 30 30  |0000... . 010000|
00002100  30 30 2c 30 30 30 30 30  30 30 31 2c 30 32 30 34  |00,00000001,0204|
00002110  30 30 30 31 0d 0c 8a 20  dc 20 30 30 30 30 30 31  |0001... . 000001|
00002120  30 35 2c 30 33 30 30 30  38 30 34 2c 30 31 30 30  |05,03000804,0100|
00002130  30 31 30 30 0d 0c 94 20  dc 20 30 30 30 30 30 30  |0100... . 000000|
00002140  30 31 2c 30 30 30 33 30  31 30 31 2c 30 31 30 31  |01,00030101,0101|
00002150  30 31 30 33 0d 0c 9e 20  dc 20 30 36 30 30 30 30  |0103... . 060000|
00002160  30 33 2c 30 31 30 30 30  30 30 35 2c 30 30 30 30  |03,01000005,0000|
00002170  30 30 30 31 0d 0c a8 20  dc 20 30 32 30 33 30 32  |0001... . 020302|
00002180  30 34 2c 30 30 30 30 30  30 30 37 2c 30 34 30 30  |04,00000007,0400|
00002190  30 30 30 33 0d 0c b2 20  dc 20 30 31 30 30 30 30  |0003... . 010000|
000021a0  30 37 2c 30 30 30 30 30  30 30 31 2c 30 32 30 36  |07,00000001,0206|
000021b0  30 31 30 33 0d 0c bc 20  dc 20 30 32 30 32 30 32  |0103... . 020202|
000021c0  30 32 2c 30 33 30 30 30  30 30 37 2c 30 31 30 30  |02,03000007,0100|
000021d0  30 30 30 30 0d 0c c6 20  dc 20 30 30 30 31 30 31  |0000... . 000101|
000021e0  30 31 2c 30 30 30 30 30  31 30 33 2c 30 31 30 31  |01,00000103,0101|
000021f0  30 31 30 31 0d 0c d0 20  dc 20 30 33 30 31 30 31  |0101... . 030101|
00002200  30 31 2c 30 31 30 31 30  30 30 30 2c 30 30 30 30  |01,01010000,0000|
00002210  30 30 30 31 0d 0c da 20  dc 20 30 32 30 34 30 31  |0001... . 020401|
00002220  30 33 2c 30 31 30 35 30  32 30 32 2c 30 37 30 32  |03,01050202,0702|
00002230  30 32 30 34 0d 0c e4 20  dc 20 30 31 30 30 30 30  |0204... . 010000|
00002240  30 30 2c 30 30 30 30 30  30 30 31 2c 30 30 30 37  |00,00000001,0007|
00002250  30 32 30 36 0d 0c ee 20  dc 20 30 31 30 33 30 30  |0206... . 010300|
00002260  30 30 2c 30 30 30 30 30  30 30 33 2c 30 31 30 30  |00,00000003,0100|
00002270  30 30 30 30 0d 0c f8 20  dc 20 30 30 30 30 30 30  |0000... . 000000|
00002280  30 31 2c 30 30 30 30 30  30 30 30 2c 30 32 30 36  |01,00000000,0206|
00002290  30 30 30 31 0d 0d 02 20  dc 20 30 30 30 31 30 30  |0001... . 000100|
000022a0  30 37 2c 30 31 30 30 30  31 30 30 2c 30 30 30 31  |07,01000100,0001|
000022b0  30 30 30 31 0d 0d 0c 20  dc 20 30 30 30 30 30 30  |0001... . 000000|
000022c0  30 30 2c 30 30 30 30 30  30 30 30 2c 30 30 30 30  |00,00000000,0000|
000022d0  30 30 30 30 0d 0d 16 20  dc 20 30 31 30 30 30 30  |0000... . 010000|
000022e0  30 30 2c 30 31 30 31 30  31 30 31 2c 30 31 30 31  |00,01010101,0101|
000022f0  30 31 30 31 0d 0d 20 20  dc 20 30 31 30 31 30 31  |0101..  . 010101|
00002300  30 31 2c 30 31 30 31 30  31 30 31 2c 30 31 30 31  |01,01010101,0101|
00002310  30 31 30 31 0d 0d 2a 11  f4 20 53 70 72 69 74 65  |0101..*.. Sprite|
00002320  20 64 61 74 61 0d 0d 34  09 dc 20 31 31 32 0d 0d  | data..4.. 112..|
00002330  3e 20 dc 20 31 33 30 33  31 33 30 33 2c 30 33 31  |> . 13031303,031|
00002340  33 30 33 31 33 2c 31 33  30 33 31 33 30 33 0d 0d  |30313,13031303..|
00002350  48 20 dc 20 30 33 31 33  30 33 31 33 2c 32 33 30  |H . 03130313,230|
00002360  33 32 33 30 33 2c 30 33  32 33 30 33 32 33 0d 0d  |32303,03230323..|
00002370  52 20 dc 20 32 33 30 33  32 33 30 33 2c 30 33 32  |R . 23032303,032|
00002380  33 30 33 32 33 2c 33 43  33 46 30 30 30 30 0d 0d  |30323,3C3F0000..|
00002390  5c 20 dc 20 30 30 30 30  33 30 33 33 2c 33 43 33  |\ . 00003033,3C3|
000023a0  46 30 30 30 30 2c 30 30  30 30 33 30 33 33 0d 0d  |F0000,00003033..|
000023b0  66 20 dc 20 33 43 33 46  30 30 30 30 2c 30 30 30  |f . 3C3F0000,000|
000023c0  30 33 30 33 33 2c 33 43  33 46 30 30 30 30 0d 0d  |03033,3C3F0000..|
000023d0  70 20 dc 20 30 30 30 30  33 30 33 33 2c 30 30 30  |p . 00003033,000|
000023e0  30 30 30 30 30 2c 30 30  30 30 30 30 30 30 0d 0d  |00000,00000000..|
000023f0  7a 20 dc 20 33 31 33 31  33 31 33 31 2c 33 31 33  |z . 31313131,313|
00002400  31 33 31 33 31 2c 33 44  33 44 33 44 33 44 0d 0d  |13131,3D3D3D3D..|
00002410  84 20 dc 20 33 44 33 44  33 44 33 44 2c 30 30 30  |. . 3D3D3D3D,000|
00002420  30 30 30 30 30 2c 30 30  30 30 30 30 30 30 0d 0d  |00000,00000000..|
00002430  8e 20 dc 20 30 30 30 30  30 30 30 30 2c 30 30 30  |. . 00000000,000|
00002440  30 30 30 30 30 2c 33 35  30 30 30 30 30 30 0d 0d  |00000,35000000..|
00002450  98 20 dc 20 33 31 33 31  33 31 33 31 2c 33 46 33  |. . 31313131,3F3|
00002460  46 30 30 30 30 2c 33 44  33 44 33 46 33 46 0d 0d  |F0000,3D3D3F3F..|
00002470  a2 20 dc 20 33 45 33 46  30 30 30 30 2c 30 30 30  |. . 3E3F0000,000|
00002480  30 33 30 33 33 2c 33 43  33 46 30 30 30 30 0d 0d  |03033,3C3F0000..|
00002490  ac 20 dc 20 30 30 30 30  33 30 33 33 2c 33 43 33  |. . 00003033,3C3|
000024a0  46 30 30 30 30 2c 33 31  33 31 33 33 33 36 0d 0d  |F0000,31313336..|
000024b0  b6 20 dc 20 33 46 32 41  30 30 30 30 2c 33 44 33  |. . 3F2A0000,3D3|
000024c0  44 33 44 33 44 2c 30 30  30 30 30 30 30 30 0d 0d  |D3D3D,00000000..|
000024d0  c0 20 dc 20 30 30 30 30  30 30 30 30 2c 30 30 30  |. . 00000000,000|
000024e0  30 30 30 30 30 2c 30 30  30 30 30 30 30 30 0d 0d  |00000,00000000..|
000024f0  ca 20 dc 20 33 31 33 31  33 31 33 31 2c 30 30 30  |. . 31313131,000|
00002500  30 31 30 33 30 2c 33 36  33 43 33 44 33 44 0d 0d  |01030,363C3D3D..|
00002510  d4 20 dc 20 30 30 30 30  33 30 33 33 2c 33 43 33  |. . 00003033,3C3|
00002520  46 30 30 30 30 2c 30 30  30 30 33 30 33 33 0d 0d  |F0000,00003033..|
00002530  de 20 dc 20 33 43 33 46  30 30 30 30 2c 30 30 30  |. . 3C3F0000,000|
00002540  30 33 30 33 33 2c 33 44  33 46 33 31 33 31 0d 0d  |03033,3D3F3131..|
00002550  e8 20 dc 20 30 30 30 30  33 30 33 33 2c 33 46 33  |. . 00003033,3F3|
00002560  44 33 44 33 44 2c 30 30  30 30 32 30 33 46 0d 0d  |D3D3D,0000203F..|
00002570  f2 20 dc 20 30 30 30 30  30 30 30 30 2c 30 30 30  |. . 00000000,000|
00002580  30 30 30 30 30 2c 33 43  33 46 30 30 33 41 0d 0d  |00000,3C3F003A..|
00002590  fc 20 dc 20 30 30 30 30  32 30 33 33 2c 33 43 33  |. . 00002033,3C3|
000025a0  46 33 37 33 30 2c 30 30  33 31 33 31 33 33 0d 0e  |F3730,00313133..|
000025b0  06 20 dc 20 32 41 30 30  30 30 33 35 2c 30 30 33  |. . 2A000035,003|
000025c0  44 33 44 33 44 2c 30 30  30 30 30 30 30 30 0d 0e  |D3D3D,00000000..|
000025d0  10 20 dc 20 30 30 30 30  30 30 30 30 2c 31 33 30  |. . 00000000,130|
000025e0  33 31 33 30 33 2c 30 30  30 30 30 30 30 31 0d 0e  |31303,00000001..|
000025f0  1a 20 dc 20 31 33 30 33  31 33 30 33 2c 33 31 33  |. . 13031303,313|
00002600  31 33 31 30 33 2c 32 33  30 33 32 33 30 33 0d 0e  |13103,23032303..|
00002610  24 20 dc 20 33 44 33 44  33 44 30 33 2c 32 33 30  |$ . 3D3D3D03,230|
00002620  33 32 33 30 33 2c 30 30  30 30 30 30 30 32 0d 0e  |32303,00000002..|
00002630  2e 20 dc 20 30 30 34 35  34 35 41 32 2c 30 30 30  |. . 004545A2,000|
00002640  30 30 30 30 30 2c 30 45  30 45 30 34 30 36 0d 0e  |00000,0E0E0406..|
00002650  38 20 dc 20 30 34 30 34  30 34 30 45 2c 30 44 30  |8 . 0404040E,0D0|
00002660  44 30 38 30 39 2c 30 38  30 38 30 38 30 44 0d 0e  |D0809,0808080D..|
00002670  42 20 dc 20 30 30 38 41  38 41 35 31 2c 30 30 30  |B . 008A8A51,000|
00002680  30 30 30 30 30 2c 30 30  30 30 30 30 30 30 0d 0e  |00000,00000000..|
00002690  4c 20 dc 20 30 30 30 30  30 34 30 30 2c 30 45 30  |L . 00000400,0E0|
000026a0  41 30 41 30 30 2c 30 30  30 33 30 37 30 33 0d 0e  |A0A00,00030703..|
000026b0  56 20 dc 20 30 44 30 35  30 35 30 30 2c 30 30 30  |V . 0D050500,000|
000026c0  33 30 42 30 33 2c 30 30  30 30 30 30 30 30 0d 0e  |30B03,00000000..|
000026d0  60 20 dc 20 30 30 30 30  30 38 30 30 2c 30 30 30  |` . 00000800,000|
000026e0  34 30 30 30 30 2c 30 30  30 30 30 30 30 30 0d 0e  |40000,00000000..|
000026f0  6a 20 dc 20 30 33 30 37  30 33 30 30 2c 30 30 30  |j . 03070300,000|
00002700  41 30 41 30 45 2c 30 33  30 42 30 33 30 30 0d 0e  |A0A0E,030B0300..|
00002710  74 20 dc 20 30 30 30 35  30 35 30 44 2c 30 30 30  |t . 0005050D,000|
00002720  38 30 30 30 30 2c 30 30  30 30 30 30 30 30 0d 0e  |80000,00000000..|
00002730  7e 20 dc 20 30 31 30 31  30 30 30 30 2c 30 30 30  |~ . 01010000,000|
00002740  30 30 31 30 31 2c 30 42  30 33 30 38 30 30 0d 0e  |00101,0B030800..|
00002750  88 20 dc 20 30 30 30 38  30 33 30 42 2c 30 38 30  |. . 0008030B,080|
00002760  46 30 30 30 30 2c 30 30  30 30 30 46 30 38 0d 0e  |F0000,00000F08..|
00002770  92 20 dc 20 30 30 30 41  30 30 30 30 2c 30 30 30  |. . 000A0000,000|
00002780  30 30 41 30 30 2c 30 30  30 35 30 30 30 30 0d 0e  |00A00,00050000..|
00002790  9c 20 dc 20 30 30 30 30  30 35 30 30 2c 30 34 30  |. . 00000500,040|
000027a0  46 30 30 30 30 2c 30 30  30 30 30 46 30 34 0d 0e  |F0000,00000F04..|
000027b0  a6 20 dc 20 30 37 30 33  30 34 30 30 2c 30 30 30  |. . 07030400,000|
000027c0  34 30 33 30 37 2c 30 32  30 32 30 30 30 30 0d 0e  |40307,02020000..|
000027d0  b0 0e dc 20 30 30 30 30  30 32 30 32 0d ff        |... 00000202..|
000027de
09-04-88/PIPLINE.m0
09-04-88/PIPLINE.m1
09-04-88/PIPLINE.m2
09-04-88/PIPLINE.m4
09-04-88/PIPLINE.m5