0REM" A VIEW TO A KILL - 1985 10MODE4:VDU23,1,0;0;0;0; 20ONERRORGOTO1000 30ENVELOPE1,90,0,4,-4,1,2,1,127,-40,0 ,-1,100,0:ENVELOPE2,1,0,0,0,0,0,0,127,-5 ,-2,-2,126,0 40COLOUR135:CLS:VDU19,7,0;0; 50*L.5B 60VDU19,0,7;0; 70FORPA=1TO4000:NEXT 80GCOL0,7 90FORY%=160TO0STEP-4:MOVE0,530+Y%:PLO T1,1280,0:MOVE0,530-Y%:PLOT1,1280,0:NEXT 100FORPA=1TO1000:NEXT 110MODE1 120VDU23;10,32;0;0;0; 130FORC%=1TO3:VDU19,C%,0;0;:NEXT 140*L.5C 150P%=&3000 160PROCE(33,1) 170VDU19,2,7;0; 180PROCE(66,-1) 190VDU19,1,1;0;19,3,7;0; 200PROCE(33,1) 220COLOUR135:COLOUR0 230SO=1:PROCBond(18,10) 240FORT%=1200TO0STEP-4:GCOL3,1:PROCDRA W:NEXT 250COLOUR131:COLOUR0 260PROCBond(18,10) 270*L.5D 280VDU21 290*KEY0*L."5E"1500|M*T.|MFORT%=0 TO & 1A73 STEP4:T%!&E00=T%!&1500:NEXT|MPA.=&E 00|MOLD|MRUN|M 300*FX138,0,128 310END 380DEFPROCE(T%,S%) 390S%=S%*8:IFT%=0THENENDPROC 400FORR%=1TOT%:W=INKEY(2) 410P%=P%+S%:IFP%>&8000P%=P%-&5000 420IFP%<&3000P%=P%+&5000 430*FX19 440VDU23;12,P%DIV 2048;0;0;0 450VDU23;13,(P%MOD 2048)DIV8;0;0;0 460NEXT:ENDPROC 470DEFPROCDRAW 480MOVE0,T%:DRAW1280,T%:ENDPROC 510DEFPROCBond(X%,Y%) 520*L.F1 530A$=CHR$225+CHR$226+CHR$227+STRING$( 3,CHR$8)+CHR$10+CHR$228+CHR$229+CHR$230+ STRING$(4,CHR$8)+CHR$10+CHR$224+CHR$231+ CHR$232+CHR$233+CHR$234 540A$=A$+STRING$(4,CHR$8)+CHR$10+CHR$2 35+CHR$236+CHR$237+CHR$238+CHR$239+CHR$2 40 550A$=A$+STRING$(6,CHR$8)+CHR$10+CHR$2 41+CHR$236+CHR$242+STRING$(3,CHR$8)+CHR$ 10+CHR$236+CHR$236+CHR$243 560A$=A$+STRING$(3,CHR$8)+CHR$10+CHR$2 44+CHR$245+CHR$236+CHR$246+STRING$(4,CHR $8)+CHR$10+CHR$247+CHR$248+CHR$249+CHR$2 50+CHR$251 570A$=A$+STRING$(6,CHR$8)+CHR$10+CHR$2 55+CHR$252+CHR$32+CHR$32+CHR$253+CHR$254 580PRINTTAB(X%,Y%)A$; 590IFSO=1 SO=0:SOUND0,2,6,1:*FX21,5 600*L.F2 610A$=STRING$(6,CHR$8)+CHR$10+CHR$224+ CHR$225+CHR$32+CHR$32+CHR$226+CHR$227+ST RING$(6,CHR$8)+CHR$10+CHR$228+CHR$229+CH R$32+CHR$32+CHR$230+CHR$231+CHR$236+STRI NG$(7,CHR$8)+CHR$10+CHR$232+CHR$32+CHR$3 2+CHR$32+CHR$233+CHR$234+CHR$235 620PRINTA$ 630ENDPROC 1000MODE7 1010VDU23;10,32;0;0;0; 1020VDU&98,&1C,1,0,1,0 1030*EXEC !BOOT 1040END