6000 Z=0:Y=1:X=2:P=Z:CGSETY,Z:PALETS Y,60,53,48,17:PALETB Y,60,48,48,17:PALETB X,60,48,54,54:PALETS Z,60,48,53,18:A$="{K5|K5|K5|K5|K5|K5|K5|K5|K5|K5|K5|K5|K5|K5|K5|K5|K5|K5|K5}"
6050 Q=6:G=Z
6100 C=3
6200 F=5:K$=CHR$(207)
6300 CLS:PALETB Z,60,47,48,17:ERAX:SPRITEOFF:PRINT"***  PENGUIN'S BAR  ***":    PRINT:PRINT" {K7}";A$;"{L0}":FORA=3TO22:PRINT" {K6}":LOCATE21,A:PRINT"{K6}":NEXT:PRINT" {L1}";A$;"{L2}";
6400 FORA=Y TORND(Q)+Q:I=X*RND(8)+X:J=X*RND(8)+5:COLORI,J,Y:COLORI+X,J,Y:LOCATEI+Y,J:PRINTCHR$(200)+CHR$(201);:IFRND(10)>4THENLOCATEI,J+Y:PRINTCHR$(200);CHR$(202);CHR$(203);CHR$(201);
6500 NEXT:RESTORE10000:A=X
6550 READB$:LOCATE22,A:PRINTB$;:A=A+X:IFA<12THEN6550
6600 READB$:IFA<24THENLOCATE22,A:PRINTB$;:A=A+Y:GOTO6600
6650 LOCATE27-LEN(STR$(G)),3:PRINTG;:LOCATE23,5:PRINT"2000":LOCATE22,8:PRINTK$;" :";F:COLOR22,8,X:LOCATE25,10:PRINTP:DEFSPRITEZ,(Z,Y,Z,Y,Z)=B$:SPRITEZ,190,98:SPRITEON
6680 LOCATE24,7:PRINT":";C:IFP THEN7000
6700 P=3:LOCATE3,4:PRINT"PUSH START BOTTUN":I=7
6730 IFI=3THENI=7:J=176:A=Y:GOTO6750
6740 I=3:J=24:A=Z
6750 DEFMOVE(X)=SPRITE(4,I,Y,74,A,Z):POSITIONX,J,48:MOVEX
6800 IFSTRIG(Z)=1THEN6050
6850 IFMOVE(X)THEN6800
6900 GOTO6730
7000 E=0:L=2000:FORA=Y TOF
7100 I=RND(15)+3:J=RND(18)+X:IFSCR$(I,J)<>" "ORSCR$(I,J,Y)=CHR$(Y)THEN7100
7200 COLORI,J,X:LOCATEI,J:PRINTK$;:NEXT:I=30:J=40:D=2:PLAY"T1Y0M1V6O4"
7300 DEFMOVE(X)=SPRITE(4,D+Y,C,X,Z,Z):POSITIONX,I,J:MOVEX
7400 PLAY"C1"
7500 K=STICK(Z)AND3
7530 IFK=X THEND=D-Y:IFD<Y THEND=7
7560 IFK=Y THEND=D+Y:IFD>7THEND=Z
7600 PLAY"G1"
7700 I=XPOS(X):J=YPOS(X):M=(I-8)/8:N=(J-14)/8:B$=SCR$(M,N):IFB$=" "THEN8200
7800 IFB$=K$THEN7900
7850 ERAX:COLORM-Y,N-Y,Y:COLORM+Y,N-Y,Y:COLORM-Y,N,Y:COLORM+Y,N,Y:LOCATEM,N:PRINTCHR$(219);:PLAY"O2G8":LOCATEM-Y,N:B$=CHR$(216)+CHR$(217)+CHR$(218):PRINTB$;:PLAY"G6":LOCATEM-Y,N-Y:PRINTB$;:LOCATEM-Y,N:PRINT" ";CHR$(213);" ";:PLAY"G9O4":P=P-Y:GOTO6300
7900 G=G+10:LOCATE27-LEN(STR$(G)),3:PRINTG;:LOCATEM,N:PRINT" ";:PLAY"O3G1C1O4":E=E+Y
8000 IFE=F THENLOCATE21,22:PRINTK$;:GOTO8200
8100 IFE>F THEN8300
8200 L=L-10:LOCATE27-LEN(STR$(L)),5:PRINTL;:GOTO7300
8300 G=G+L:LOCATE27-LEN(STR$(G)),3:PRINTG;:PLAY"T1":PLAY"O3C5C4O2G5G4A5A4E5E4G5E4D5D4C9"
8400 F=F+X:IFF<11THEN6300
8500 C=C-1:IFC>Z THEN6200
8600 Q=Q+1:GOTO 6100
10000 DATASCORE,BONUS,CLASS,"  :","  :","","L {K7|L0} R","E{K7|L2|L1|L0}I","F{L1|L0|K7|L2}G","T {L1|L2} H","     T","{K7|K5|K5|K5|L0}","{K6}BAR{K6}","{L1|K0|K5|K0|L2}","{M6|M6|M6|M6|M6}","{M6|M5|M6|M5|M6}","{M6|M6|M6|M6|M6}",{KO|KE|SHI|SA}