10MODE129 30*FX14,6 40*FX13,6 50ENVELOPE1,1,20,-20,20,100,100,100,1 27,-1,0,0,126,0 60VDU19,0,7;0;19,2,0;0; 70COLOUR2:INPUT TAB(0,12)"Please Ente r the Vital Statistics(B/W/H)"B,W,H 80INPUTTAB(0,15)"Now Enter Your Name "N$ 90B%=B:W%=W:H%=H 100MODE128 120VDU19,0,7;0;19,1,0;0; 130C=3:T=1 140B=B/36-1:W=W/23-1:H=H/36-1 150C=0 160GOSUB300 170IF X<0 THEN220 ELSE IF Y<0 THEN150 180GCOL0,C:A=X*3.5:BB=Y*3.5:A=(255-A*2 )+600 190DRAW (BB*0.2)+400,1024-(A+50) 200C=1:T=1 210GOTO160 220RESTORE 230C=0 240GOSUB300 250IF X<0 THEN380 ELSE IF Y<0 THEN230 260GCOL0,C:A=Y*3.5:BB=X*3.5:BB=(255-BB *2)+600 270DRAW(A*-.2)+400,1024-(BB+50) 280C=1 290GOTO240 300READ Y,X:SOUND1,1,X,1:Q=INKEY(1):SO UND&11,0,0,0 310IF X<87 Z=Y*(87-X)*W/10+Y*(X-83)*B/ 4 320IF X<83 Z=Y*(87-X)*W/10 330IF X<77 Z=Y*(77-X)*H/14+Y*(X-63)*W/ 20 340IF X<63 Z=Y*H 350IF X>=87 Z=Y*(124-X)*B/37 360Y=Y+Z 370RETURN 380COLOUR1:PRINTTAB(35,10)"N A M E : ";N$;TAB(35,12)"V I T A L S T A T I S T I C S : ";B%;" ";W%;" ";H% 390FORF%=100TO180:SOUND1,-15,F%,0:NEXT :Q=INKEY(5):FORF%=180TO150STEP-1:SOUND1, -15,F%,0:NEXT:FORF%=150TO170:SOUND1,-15, F%,0:NEXT:FORF%=170TO100STEP-1:SOUND1,-1 5,F%,0:NEXT 400Q=GET:RUN 410DATA25,61,20,60,6,58,0,50,0,44,3,40 ,0,37,0,33,6,20,0,14,0,1,9,0,12,0,30,2,4 0,4,42,5,40,9 420DATA36,12,40,16,50,21,56,27,50,33,6 0,38,70,42,80,45,90,49,100,53,110,57,120 ,62,120,64 430DATA110,69,100,72,90,74,80,78,92,84 ,-1,0,30,85,40,84,60,83.3,70,83.3,92,84, 100,85,110,87 440DATA110,89,106,90,100,92,-1,0,110,9 2,106,90,-1,0,100,85,103,78,96,73,-1,0,0 ,74.5,0,72.6 450DATA3,72,0,71.8,0,70,-1,0,6,58,0,58 ,-1,0,95,50,100,50,110,52,120,56,130,59, 140,64,143,68 460DATA140,74,140,76,145,80,150,87,145 ,94,140,97,130,98,100,99,65,100,40,101,3 0,106,-1,0 470DATA0,105,10,105.2,30,106,40,107,50 ,109,52,111,50,115,20,116,0,117,-1,0,10, 113,20,112.4 480DATA30,112.4,40,113,30,113.8,20,113 .8,10,113,-1,0,20,113,25,112.8,20,113,25 ,113.2,20,113 490DATA-1,0,3,109.5,10,109.5,6,110,3,1 09.5,-1,0,0,108.5,14,108,0,108,-1,0,0,10 7.6,15,108,-1,0 500DATA0,124,35,123,50,122,70,120,80,1 18,90,115,92,110,90,105,100,102,108,100, 112,99,-1,0 510DATA10,102,10,99,13,99.3,50,99.7,-1 ,0,70,87,72,86,76,85.5,87,86,91,87,90,88 ,85,88.5,80,88.5,73,88,70,87,-1,-1