PIPLIN0 MSX Computer Magazine6(\2 Ingezonden door Steven van Loefb<F , : ͷ: AZ: V(,), SY(), NM$(), SC$()P Z: : dZd :  !:  :  nR ()VT : : f$ : 5 : : water en button routine ************************************************** DL DLDL: ہ , (V(VX,VY)): ,VX: ,VY: A (FS) A $ A DSDS(DS): SC#SC#d(DS)d: @H , (V( ( ), ( )))]  () VX ( ): VY ( ): V(VX,VY) (V(VX,VY)) ( ) : muisknop ingedrukt? ******************************************************(MX ( ): MY ( ): LYS" MXa MX MY MY o, MX8 MXW |6 MY? MYN LY@ :start button?Ƀ@ MYS MYb LYT :pause button?J MYg MYv LYh :fast button?!T MY{ MY LY| :best button?M^ MY MY LY :exit button?zh MY MY LY :about button?r LY H| ,: : plaats symbool ***********************************************************SX(MXb)BP: SY(MY)E V(SX,SY) V(SX,SY) V(SX,SY) k V(SX,SY) SC#SC#2: @SSY(): V(SX,SY)S (S,)(S,), (SX,SY),…  ()  : ,;: teken border *************************************************************JC: : (LX,LY)(RX,LY),: (LX,LY)(RX,LY),Ć (LX,LY)(RX,LY),: (LX,LY)(LX,RY), (LX,LY)(LX,RY),: (LX,LY)(LX,RY),> (LX,RY)(RX,RY),: (LX,RY)(RX,RY),{ (LX,RY)(RX,RY),: (RX,RY)(RX,LY),& (RX,RY)(RX,LY),: (RX,RY)(RX,LY),0:: teken kader (voor border en button)%D (LX,LY)(RX,LY),C: (LX,LY)(RX,LY),C\N (LX,LY)(RX,LY),C: (LX,LY)(LX,RY),CX (LX,LY)(LX,RY),C: (LX,LY)(LX,RY),CԈb (LX,RY)(RX,RY),: (LX,RY)(RX,RY), l (LX,RY)(RX,RY),: (RX,RY)(RX,LY),Hv (RX,RY)(RX,LY),: (RX,RY)(RX,LY),Ng: teken een button (LX,LY)(RX,RY),,BF: (LX,LY)(RX,RY),,BC: : (LX( (T$)),LY): ,: #,T$扲: teken window7 (LX,LY)(RX,RY), (LX,LY),: (LX,LY)(RX,RY),,BFK : ,: : schuif nieuw symbool in kader ********************************************̊S (): SSY() SSY()  Q  : SY(Q)SY(Q): QSY()S Q  6  (,)(0,), (,),g (S,Q)(S,Q), (,),o  Q* (,)(0,) (,),4 (S,)(S,), (,),>H: voer button actie uit ****************************************************'RBT(LY@)B\LXo: RX: RYLYf (LX,LY)(RX,RY), (LX,LY),: (LX,LY)(RX,RY),,BFp (LX,RY)(RX,LY), (LX,RY),z (LX,LY)(LX,RY),: (LX,LY)(RX,LY),P1 ( ): P2 ( )< P1LX P1RX P2LY P2RY BT: Q ()  (LX,LY)(RX,RY), (LX,LY), BT ,,$,f,8,L ,: ̍: start nieuw spelSC#: RS#SC#: VT I : J : V(I,J): J,I! : h4 ,: > S: pause buttonzLX: LYT: RXz: RY:  "BM188,98": #,"Pipeline paused" "BM140,114": Ў$: fast button܎.FS: 8: exit buttonBA (): : ,: : %L: about buttonLVLXr: LYB: RX: RY: ` "BM121,79": #,"Pipeline for MSX2 was developed by"j "BM121,87": #,"Steven van Loef - Vleuten 1991"t "BM121,105": #,"Original idea by: Scott Thomson"6~ "BM121,113": #,"His version runs under MS-Windows"H "BM143,130"q #,"Click button to continue game" ()  ()  : ,̐ (LX,LY)(RX,RY), (LX,LY),Ґ$: initialiseren ***********************************************************: ,: ,,: _PAGE 0,: ,,: : PAGE 0,u () ()  : I : R,G,B: (I,R,G,B): Iő "pipefigs.pic" (,),ӑ 2  "pipehigh.dat" AS ## I : #,NM$(I): #,SC$(I): I, #6( <@2 <N< cF I : S$""P J  : A$: S$S$ ( ("&H"A$)): JZ$(I)S$: IdCS!Ēn I hx A$: A ("&H"A$): I,A: CS!CS!A: I CS!E`9@ A (): @ : ,: "Fout in ML-dataregels!": : scherm opbouwen *********************************************************A ( )Ɠ ,(,),,: ,(,),,ٓ "GRP:" AS #㓾   I : LX,LY,RX,RY: : ILXo: RXC I : LY,RY,T$: : I 0,0,511,197, 98,12,189,31, 98,32,189,51, 6,6,195,191, 12,12,54,147Ɣ 64,80," Start ", 84,100," Pause ", 104,120," Fast " 124,140," Best ", 144,160," Exit ", 164,180," About " (,),,, I : J W (,)(,), (J,I),a" J,Ik,DSVT6 I : : I@ SC# , : ,ӕJ "BM104,18": #, "SC:#######"; (SC#)T ,: "BM104,38": #, "DIST: ##";DS ^[h: teken beginstand ********************************************************rVX (): VY (): S (): V(VX,VY)S˖| (S,)(S,), (VX,VY),ܖPA: WY S DX: DY  S DX: DY0 S DX: DY: WY: PAV S DX: DY: WY: PA WXVX: WYWYVY: DL: PS: FS ,PA: ,DX: ,DY: ,WYҗ ,WX : ,WXؗ*: einde van ronde *********************************************************XDSDS(DS): SC#SC#d(DS)d: @ I : J : V(I,J) ØSC#SC# : @: (,)(,), (I,J),͘ J,I DS vLX: LYL: RXF: RY: 9& "BM193,89": #, "Score: #######";SC#RS#d0 "BM193,105": #,"Press button for": "BM217,117": #,"next round"D () DN () N : ,X (LX,LY)(RX,RY), (LX,LY),bVTVT: RS#SC#:  l :v I : SC# (SC$(I)) I: RL I  Q I : NM$(Q)NM$(Q): SC$(Q)SC$(Q): Q "" LX: LYX: RX^: RY|:  : "BM200,101": #,"TYPE YOUR NAME": NM$(I)""# ,: (LX,LY): #, ()2 Q ZA$$(): A (A$): A m A   A A$$():  A Q ›QQ: NM$(I) (NM$(I),Q) (LX,LY): #,NM$(I)" ":  (LXQ,LY): #,A$# NM$(I)NM$(I)A$+ QO  (LX,LY)(RX,RY), (LX,LY),j*SC$(I) ( (SC#),)4 "pipehigh.dat" AS #> I : #,NM$(I): #,SC$(I): IH #ʜR fԜ\ f: best buttonpLX: LYD: RX~: RY: Cz : "BM192,81": #,"HIGH SCORE TABLE": j ( ,)  D$"\" : D$"&" I : (,YI) #, D$ ()D$" - #######";NM$(I); (SC$(I))ȝ Iߝ ()  ()  : ,# (LX,LY)(RX,RY), (LX,LY),)@: pallet kleuren} 0,0,0, 4,0,0, 0,4,0, 4,4,0, 0,0,4, 4,0,4, 0,4,4, 3,3,3 5,5,5, 7,0,0, 0,7,0, 7,7,0, 0,0,7, 7,0,7, 0,7,7, 7,7,7Ξ: sprite date 08,14,14,14,14,16,15,15,35,35,55,50,90,80,61,1E: 00,00,00,00,00,00,80,40,40,40,40,40,40,40,80,00p 08,1C,1C,1C,1C,1E,1F,1F,3F,3F,7F,7F,FF,FF,7F,1E 00,00,00,00,00,00,80,C0,C0,C0,C0,C0,C0,C0,80,00$ : machinetaal. 00,00,00,00,00,00,00,00,00,00,00,00,00,00,F3,01,05,00,11,2E,D0,21,9FP8 FD,ED,B0,0E,03,21,33,D0,18,07,F3,01,05,00,21,2E,D0,11,9F,FD,ED,B0,C9B 00,00,00,00,00,C3,36,D0,F5,3E,0C,CD,DB,00,3E,0E,CD,DB,00,F5,3E,0D,CDL DB,00,D1,5F,B2,28,4C,21,01,D0,7B,FE,80,38,0F,ED,44,47,7E,90,38,04,FE1V 01,30,09,3E,01,18,05,86,30,02,3E,FF,77,21,02,D0,7A,FE,80,38,0A,ED,44|` 47,7E,90,30,0A,AF,18,07,86,FE,CE,38,02,3E,CD,77,21,01,D0,5E,23,56,EDǡj 4B,07,00,21,00,FA,CD,B6,D0,2E,04,CD,B6,D0,3A,00,D0,B7,20,14,3E,01,CDt D8,00,32,00,D0,2A,01,D0,22,03,D0,00,00,00,00,00,00,F1,C3,2E,D0,CD,71]~ 01,F3,ED,51,00,ED,59,C9,2A,F8,F7,7C,B5,28,0E,ED,5B,9E,FC,19,EB,2A,9E FC,A7,ED,52,38,F8,3A,05,D0,FE,0F,20,2C,3A,06,D0,FE,08,38,25,3A,07,D0 47,3A,08,D0,32,07,D0,78,32,08,D0,3A,06,D0,FE,09,28,04,FE,0A,20,0C,21> 07,D0,7E,ED,44,77,23,7E,ED,44,77,3A,05,D0,FE,1F,20,12,AF,32,05,D0,11 09,D0,21,07,D0,1A,86,12,13,23,1A,86,12,2A,0B,D0,3A,07,D0,CD,61,D2,19ԣ 22,0B,D0,11,0D,D0,21,08,D0,1A,86,12,11,05,D0,7E,B7,28,03,1A,3C,12,2B 7E,B7,28,03,1A,3C,12,2A,0B,D0,11,C4,00,A7,ED,52,38,14,19,11,FA,01,A7j ED,52,30,0B,3A,0D,D0,FE,07,38,04,FE,C0,38,04,2E,01,18,0B,3A,05,D0,FE 02,2E,00,38,02,2E,04,26,00,22,F8,F7,3E,02,32,63,F6,C9,E1,2E,02,18,F0 21,E8,D1,E5,3A,05,D0,FE,02,D0,3A,06,D0,FE,07,C8,FE,05,38,E7,3A,07,D0K 3D,20,0E,3A,06,D0,FE,05,C8,FE,08,C8,FE,0A,C8,18,D3,3A,07,D0,3C,20,0E 3A,06,D0,FE,05,C8,FE,09,C8,FE,0B,C8,18,BF,3A,08,D0,3C,20,0D,3A,06,D0 FE,06,C8,D6,08,C8,3D,C8,18,AC,3A,08,D0,3D,C0,3A,06,D0,FE,06,C8,D6,0A, C8,3D,C8,18,9A,3A,06,D0,FE,07,20,26,3A,07,D0,B7,28,20,3A,07,D0,C6,02w 3E,09,CE,00,47,3A,05,D0,B8,38,10,3A,07,D0,C6,02,3E,15,CE,00,47,3A,05¦ D0,B8,38,47,3E,04,CD,1A,01,3A,07,D0,4F,2A,0B,D0,3A,08,D0,CD,61,D2,A7 ED,52,22,B3,FC,3A,0D,D0,91,6F,26,00,22,B5,FC,2A,0B,D0,19,E5,3A,0D,D0X( 81,5F,16,00,C1,CD,FC,58,3A,08,D0,B7,28,0F,ED,4B,0B,D0,03,03,3A,0D,D02 5F,16,00,CD,F5,57,2E,00,C3,77,D1,16,00,5F,FE,02,D8,15,C9§< :SAVE"PIPLIN.BAS": ' 1 december 1991