10 CLS:CLEAR:WIDTH20,8:MEMSET&HB00:DEFINTA-Z:DEFFIL8,0
20 OPTIONBASE1:DIMB(16),B$(16),C$(4),Z(32)
30 LOCATES0,0,0:LOCATE7,2,0:PRINT"Milk II";:GOSUB380:GOSUB370:GOSUB370:GOSUB370:CLS
40 A=((VAL(LEFT$(TIME$,2))MOD6)*3600)+VAL(MID$(TIME$,4,2))*60+VAL(RIGHT$(TIME$,2))
50 RANDOMIZEA:POKE&H11E,&HA:POKE&H11F,&H40
60 FORI=&HA40 TO&HA93:READJ$:J=VAL("&H"+J$):POKEI,J:NEXTI
70 FORK=1TO4:READC1,C2,C3:C$(K)=CHR$(C1)+CHR$(C2)+CHR$(C3):NEXTK
80 FORK=1TO4:LOCATE0,4-K:PRINTCHR$(227+K);:NEXTK
90 FORK=1TO16:B(K)=1:B$(K)=CHR$(32):NEXTK
100 C=1:J=1:LOCATE16,3:PRINTC$(1);
110 A$=INKEY$:IFA$=""THENA=0ELSEA=ASC(A$)-27
120 IFSGN(A)THEN:ONA GOSUB280,300,300,280
130 O=INT(RND*4):IFO=0THENB$(16)=CHR$(227)ELSEB$(16)=CHR$(226)
140 O=INT(RND*3)+2:B(16)=(B(15)+O)MOD4+1
150 LOCATE15,4-B(1):PRINTCHR$(32);
160 FORI=2TO15:LOCATE16-I,4-B(I):PRINTCHR$(32)+B$(I);:NEXTI
170 LOCATE1,4-B(16):PRINTB$(16);
180 FORI=1TO15:SWAPB(I),B(I+1):SWAPB$(I),B$(I+1):NEXTI
190 IFB$(1)=CHR$(32)THEN110
200 O=(C\4)*4+(ASC(B$(1))MOD2)*2+SGN(B(1)XORJ)+1
210 ONO GOSUB320,340,340,360,340,360,320,340
220 IFW<8THEN110
230 PUT%31,Z:FORK=0TO31:GET%K,Z(K+1):NEXTK
240 FORJ=31TO1STEP-1:FORI=1TOJ:IFZ(I)<Z(I+1)THENSWAPZ(I),Z(I+1)
250 NEXTI,J:FORK=0TO31:PUT%K,Z(K+1):NEXTK
260 CLS:PRINTZ:FORK=1TO8:PRINTUSING"#####";Z(K);:NEXTK
270 GOSUB380:END
280 LOCATE16,4-J:PRINTSTRING$(3,32);
290 J=J MOD4+1:LOCATE16,4-J:PRINTC$(C);:RETURN
300 LOCATE16,4-J:PRINTSTRING$(3,32);
310 J=(J+2)MOD4+1:LOCATE16,4-J:PRINTC$(C);:RETURN
320 Z=Z+1:C=C MOD4+1:LOCATE16,4-J:PRINTC$(C);:IFO=1THENRETURN
330 Z=Z+3:LOCATE16,4-J:PRINTSTRING$(3,225);:GOSUB390:RETURN
340 LOCATE16,4-J:PRINTSTRING$(3,224);:GOSUB400
350 LOCATE16,4-J:PRINTC$(C);:W=W+1:RETURN
360 RETURN
370 FORK=1TO192:NEXTK:RETURN
380 SOUND1,1:SOUND11,1:SOUND21,1:RETURN
390 FORE=1TO112STEP7:SOUNDE,1:NEXTE:RETURN
400 FORE=1TO112STEP8:SOUNDE,1:NEXTE:RETURN
410 DATA 56,25,2F,25,56,00,3B,6D,7C,6D,3B,00,08,14,22,42,42,3C,7E,42,7E,24,3C,18
420 DATA 80,41,22,22,22,1C,00,C1,22,22,22,1C,00,C1,22,22,22,1C,01,C1,22,22,22,1C
430 DATA 7E,42,24,24,42,42,42,42,42,42,81,81,81,81,81,81,81,7E
440 DATA 7E,7E,3C,3C,5A,5A,5A,5A,5A,5A,99,BD,BD,BD,BD,BD,81,7E
450 DATA 232,233,234,232,233,237,232,236,237,235,236,237
