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)