RANDOMIZE TIMER TOUCHSCREEN REM WAS8BIT ON RASTER CALL WIGGLE GLOBAL Y,S,W,AA BG 0 BG FILL 0,0 TO 31,6 CHAR 1 BG FILL 0,8 TO 31,15 CHAR 1 BG 1 FOR I=0 TO 20 READ T$ W=(20-LEN(T$))\2 IF LEN(T$)>16 THEN W=0 TEXT W,I+7,T$ NEXT I SPIN: Y=0 S=7 W=1 DO IF S>1 AND RND(50)=0 THEN DEC S IF S=1 THEN Y=8*RND(19) END IF IF S=1 AND W<10 AND RND(50-2*W)=0 THEN INC W END IF ADD Y,S,0 TO 159 IF (Y-1) MOD 8 = 0 THEN PLAY 0,RND(80)+10,1 IF W=10 THEN GOTO TAPIT END IF SCROLL 1,0,Y WAIT W AA=AA+0.1 LOOP TAPIT: BG 0 WHILE NOT TAP WAIT VBL WEND GOTO SPIN SUB WIGGLE WW=(63-RASTER) IF WW=0 THEN WW=1 A=AA+(10/WW) R=14+S-W SCROLL 0,R*10*COS(A),0 END SUB DATA "IT IS CERTAIN" DATA "REPHRASE THAT" DATA "IT IS DECIDEDLY SO" DATA "VERY DOUBTFUL" DATA "OUTLOOK NOT SO GOOD" DATA "WITHOUT A DOUBT" DATA "ASK AGAIN LATER" DATA "YES - DEFINITELY" DATA "MY SOURCES SAY NO" DATA "YOU MAY RELY ON IT" DATA "CAN'T SAY NOW" DATA "AS I SEE IT, YES" DATA "MY REPLY IS NO" DATA "MOST LIKELY" DATA "OUTLOOK GOOD" DATA "CANNOT PREDICT NOW" DATA "YES" DATA "DON'T COUNT ON IT" DATA "SIGNS POINT TO YES" DATA "THINK AND ASK AGAIN" DATA "IT IS CERTAIN" #1:MAIN PALETTES 3F10003F00383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 1010101010101010EFEFEFEFEFEFEFEF