PIPE (%(5( PIPE DREAM FREEWARE MAY 1992  WRITTEN BY DOMINIC MORRIS Pt()=((65536*23674z\+256*23673y\+23672x\)/502) r()=time-t() 23658j\,8:k$(5):k$(1)="O":k$(2)="P":k$(3)="Q":k$(4)="A":k$(5)=" ":L$="O":R$="P":U$="Q":D$="A":F$=" ":5000:1500 Tlev=0:reqd=15:time=22:font=245:sc=0:err=0 (>p$(7,9 ):n=17:p$(n)="111111111":n -=q(7):n=17:q(n)=(*6)+2:n 7 1200 <236077\,248 A 1100L U[got=reqd+(2/3):bl=0:paus=2:flow=5:b1=b:a1=a:260 Zl23675{\,480:23676|\,251:23674z\,0:23673y\,0:23672x\,0 _MAIN LOOP dV1;8;8;1;a,b;"";a+1,b;"";a+2,b;"" imre=r():RE0236077\,font:17,0;"T";re;(" "ƺre<10 ):236077\,248 jre<0 400 merr550& ni$=:i$=""105i y*i$=l$b>4b1=b-3:180 z+i$=r$b<27b1=b+3:180 {*i$=u$a>1a1=a-3:180 |+i$=d$a<19a1=a+3:180 i$=f$300,:180 mI$ =13 time=0:paus=1:236077\,font:17,0;"T0 ":236077\,248 I$ =46100 ss=a:t=b:u=p$(((a/3)+1),((b-3)/3)+1)-480:210:a=a1:b=b1:100d HIGHLIGHTER X1;8;8;1;a,b;"";a+1,b;"";a+2,b;"": REPLACE BLOCK u>16u=u-16 ^8;8;s,t;q$(u,1);s+1,t;q$(u,2);s+2,t;q$(u,3): PLACE BLOCK ON SCREEN ^5;1;s,t;q$(u,1);s+1,t;q$(u,2);s+2,t;q$(u,3):  SCORE ETC  236077\,font:#0;1,12 -sc;sc;1,28; ( reqd-((bl/3)+.5)(reqd-((bl/3)+.5)) >-1),:236077\,248: ,PLACE BLOCK 1Ap$(((a/3)+1),((b-3)/3)+1)>"8" Ju=q(1):m=27:q(m-1)=q(m):m:q(7)=(*7)+2:s=a:t=b:p$(((a/3)+1),((b-3)/3)+1)491mc=63744 ^bp$(((a/3)+1),((b-3)/3)+1)=(u+480):220:1100L:  FLOW!  flow=flow+1:flow"S"236077\,60<:500 {fls=((fly-1)/3)+1:flt=((flx-1)/3):p$(fls,flt)<"@"p$(fls,flt)=(p$(fls,flt)+16) |1;8;2;fly,flx;"":bl=bl+1:sc=sc+20/(paus/2):200:260:beep .01,bl/3   405  410  420  430  500 NO MORE BLOCKS! err=1: &K reqd-((bl/3)+.5)>0n=1502:n:6000p :&n=17:m=19 Dda=(n*3)-2:b=(m*3)+1:c=p$(n,m)-480:c>16c=1620l N1sc=sc-502*(sc-5020):260 Xn6;1;a,b;q$(1,1);a+1,b;q$(1,2);a+2,b;q$(1,3) bmc=63744 lm:n:err=0:40( REDRAW PIPE SCREEN R23676|\,250:23675{\,0:n=17:m=19 ]a=(n*3)-2:b=(m*3)+1:c=p$(n,m)-480:c>16c=c-16 Pa,b;q$(c,1);a+1,b;q$(c,2);a+2,b;q$(c,3):m:n  LCONTAINER Vm=15:1;5;((6-m)*3)-3,0;q$(q(m),1);((6-m)*3)-2,0;q$(q(m),2);((6-m)*3)-1,0;q$(q(m),3):m ` SCREEN SET UP 1:1::4 ,23675{\,0:23676|\,251 20,3;"" n=121  n,3;"";n,31;"" n D#0;0,3;4;"" "a$=""  "b$="" "c$=""  23676|\,250:6 (|1,0;:n=17:n*3-2,4;a$;n*3-1,4;b$;n*3,4;c$:n 2u=9 +(*4) <0s=(*4)+1:t=(*4)+4 Fp$(s+1,t)=(u+480) P^236077\,248:s=s*3+1:t=t*3+1:220:236077\,font Z=u=9 flx=t:fly=s+1:flxp=1:flyp=0 dGu=10 flx=t+2:fly=s+1:flxp=-1:flyp=0 n>u=11 flx=t+1:fly=s:flxp=0:flyp=1 xGu=12 flx=t+1:fly=s+2:flxp=0:flyp=-1 #0;1,0;"SCORE 000000 HI 000000 BL";1,23-S(1);S(1):19,0;"L00";19,3-(LEV+1);LEV+1 a=s:b=t:2000  SET UP ARRAYS `1550:q$(20,3,3):n=112 :m=13:q$(n,m):m:n  6n=120:m=13:q$(n,m):m:n st=9 +(*4) "@AB","CD","EFG" "@MB","CID","ELG" ""@AB","JHK","EFG" ,"@AB","CQK","ELG" 6"@AB","JRD","ELG" @"@MB","COK","EFG" J"@MB","JPD","EFG" T"@MB","JNK","ELG" ^"@AB","THK","EFG" h"@AB","JHU","EFG" r"@VB","CID","ELG" |"@MB","CID","EWG" LEVELS #reqd=reqd+5*(reqd<557) Dtime=time-5*((LEV+1)/5)-((LEV+1)/5) lev=lev+1  *** SET UP TABLE  5000 "s$(8,5):s(10 ) $N=18:S$(N,),S(N):N "NOONE",300000u,"NOONE",25000a,"NOONE",20000 N,"NOONE",15000:,"NOONE",10000',"NOONE",5000,"NOONE",4000,"NOONE",3000  *** HISCORE TABLE !flag=0:i=17 k=s(i+1) j=i1-1 scs(j)5160( ks(j)5140 (s(j+1)=s(j):s$(j+1)=s$(j) j  j=0 -s(j+1)=k:s$(j+1)=s$(i+1) i: (j=1flag=1: 2sc < s(j-1)flag=j < F\6:6:0::5060:7,10 ;2;6;"HIGH SCORES" Kflag5210Z PDn=7flag-1:s$(n+1)=s$(n):s(n+1)=s(n):n Us(flag)=sc:s$(flag)="" Zn=18:1;7;n+8,10 ;s$(n);" ";n+8,21-s(n);1;7;s(n);:n _flag5250 x *** KEY INPUT ,y=flag+8:R$="":x=10 :y,x;r$ Zi$=:i$>31ůi$=12 ůi$=13 y,x+r$;1;7;" ":5290 ,y,x+r$;1;7;"_":5270 i$=13 li$=12 Ʊr$1r$=r$(̱r$-1):y,x;7;1;r$;" ":.1}L,5:5270 :i$=12 Ʊr$=0.2~L,-10 :5260 2r$<5r$=r$+i$:1;7;y,x;r$ r$<55270  .2~L,-10 :5270 n=32 127:n;:n M236077\,251:n=32 127:n;:n:236077\,60<: pEND OF GAME/MENU zga$=" !""#$%&'()*+567,-./01)*+234":b$="@ABCDEFGHIJKUVWLMNOPQIJKRST":c$="`abcdefghijkuvwlmnopqijkrst" 236077\,251:1,0;:n=17:n*3-2,4;a$;n*3-1,4;b$;n*3,4;c$:n <236077\,font:1:40(:5190F:100d 40:0:7::236077\,245 ޑ3,12 ;1;"PIPE LINE";5,0;"Directly inspired by Pipe Mania"'"published by The Assembly Line";8,13 ;"OPTIONS";10 ,8;"1. START GAME";12 ,8;"2. KEYBOARD";14,8;"3. SINCLAIR";16,8;"4. DEFINE KEYS";20,0;" WRITTEN BY D MORRIS, MAY 1992"'" THIS GAME IS ";6;2;1;"FREEWARE" ^KEYS=1:l$=k$(1):r$=k$(2):u$=k$(3):d$=k$(4):f$=k$(5) N=1100d UKEYS14,12 ;1;"SINCLAIR";12 ,12 ;4;"KEYBOARD" Vkeys12 ,12 ;1;"KEYBOARD";14,12 ;4;"SINCLAIR" ="1"20  q="2"KEYS=1:l$=k$(1):r$=k$(2):u$=k$(3):d$=k$(4):f$=k$(5):6140 I="3"KEYS=0:l$="6":r$="7":u$="9":d$="8":f$="0":6140 ="4"62008:6100 N $/sc=0:5190F:100d:6100 81:1:7 B>:4;1,"11";"DEFINE KEYS";ٰ"6";5,"10";"LEFT ";:"6220":k$(1)=i$:ٰ"6";"7","10";"RIGHT ";:"6220":k$(2)=i$:ٰ"6";"9","10";"UP ";:"6220":k$(3)=i$:"11","10";ٰ"6";"DOWN ";:"6220":k$(4)=i$:"13","10";5;"FIRE ";:"6220":k$(5)=i$ G Li$=:i$=""6220L V 3;i$:mc=63765: #' #("m:util1.scr":16384@ # % ENTRY POINT %!&62975:"PIPE.COD":5000 %&23658j\,8:k$(5):k$(1)="O":k$(2)="P":k$(3)="Q":k$(4)="A":k$(5)=" ":236077\,245:5000:1500 %0 6100 & 'SAVE PROGRAM & CODE '7"PIPE"9500%:"PIPE.COD" 62975,2485 PIPE.COD >88888ll$H(|(|(<0< <fl0fF8l8~~8p8888888lD8888>> 0`||<|>>>>88<~~_owZ޾|{}}{޾wo_>}{wZ|??ÁÃqwq}q;7o~~o7;~^^^^^^^^zzzzzzzzx======<<<============ BBBf~~~~=======~~~~~========s8s8WMH>s8M=Om Hs8MSS \Wq!1:[>> >&>BB<DHpHDB@@@