CLS
NEW
' ------- 19 Omikuji(1)
 POKE #700,255,252,252,252,252,252,248,192,255,255,255,255,255,143,7,127,252,252,248,241,227,207,159,255,255,127,63,31,135,193,225,255
 POKE #720,255,254,254,254,248,192,206,222,255,127,127,127,3,3,103,103,192,240,254,254,254,254,254,255,7,31,127,127,127,127,127,255
 POKE #720,255,254,254,254,248,192,206,222,255,127,127,127,3,3,103,103,192,240,254,254,254,254,254,255,7,31,127,127,127,127,127,255
 POKE #740,255,254,252,254,254,254,254,238,255,255,127,127,127,127,79,71,206,206,142,222,248,252,252,255,99,113,113,127,127,127,127,255
 POKE #760,255,252,252,254,254,192,134,254,255,255,127,127,71,3,99,63,224,255,224,224,243,240,240,255,15,255,15,15,143,31,31,255
 POKE #780,255,255,255,255,243,249,252,206,255,255,191,31,31,55,99,51,204,201,235,224,192,199,255,255,19,147,243,3,51,247,255,255

' ------- 19 Omikuji(2)
10 CLS:CLV
20 LOCATE 0,0:PRINT "Push Any Key or Button"
30 IF INKEY()=0 AND BTN()=0 THEN GOTO 30
40 A=RND(3)*4:B=RND(2)*4
50 CLS:CLK
60 FOR I=0 TO 6
70 LOCATE 13,6+I:PRINT CHR$(#8a,3,2,2,3,#85);
80 NEXT
90 FOR I=1 TO 6:SCROLL 0:WAIT 8:SCROLL 2:WAIT 8:NEXT
100 LOCATE 15,13:PRINT CHR$(#E0+A,#E1+A);
110 LOCATE 15,14:PRINT CHR$(#E2+A,#E3+A);
120 LOCATE 15,15:PRINT CHR$(#EC+B,#ED+B);
130 LOCATE 15,16:PRINT CHR$(#EE+B,#EF+B);
140 WAIT 60
150 GOTO 20