TOUCHSCREEN TEXT 5,5,"HAPPY CATS" DO IF TOUCH THEN GOTO GAME LOOP GAME: LEVEL=1 CATS=10 T=0 LEVELT=0 DO BG 0 PAL 0 TEXT 1,1,STR$(LEVELT) BG 1 PAL 2 IF T>=30 THEN FOR X=5 TO 14 IF CELL.C(X,3)>0 AND CELL.C(X,3)<9 THEN CELL X,3,CELL.C(X,3)+1 ELSE IF CELL.C(X,3)=9 THEN CATS=CATS-1 CELL X,3,10 ELSE IF CELL.C(X,3)=10 THEN CELL X,3,10 ELSE CELL X,3,1 END IF NEXT X LEVELT=LEVELT+1 T=0 END IF T=T+1 IF TOUCH THEN IF CELL.C(TOUCH.X/8,TOUCH.Y/8)>0 AND CELL.C(TOUCH.X/8,TOUCH.Y/8)<9 THEN CELL TOUCH.X/8,TOUCH.Y/8,1 END IF END IF IF CATS<=0 THEN GOTO LOSE ELSE IF LEVELT>=60 THEN GOTO WIN END IF WAIT 1 CLS 0 LOOP LOSE: CLS PAL 0 PRINT "YOUR CATS ARE SAD" PRINT "<:(" END WIN: CLS PAL 0 PRINT "YOUR CATS ARE HAPPY" PRINT ":D" PRINT "SCORE: "; PRINT STR$(CATS) END #1:MAIN PALETTES 053F2F000034083A002A083A0000083A 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 42667E5A7E7E3C0000000024180000FF 42667E5A7E7E3C0000000024180000FE 42667E5A7E7E3C0000000024180000FC 42667E5A7E7E3C0000000024180000F8 42667E5A7E7E3C0000000024180000F0 42667E5A7E7E3C0000000024180000E0 42667E5A7E7E3C0000000024180000C0 42667E5A7E7E3C000000002418000080 42667E7E5A7E3C000000000024180000 42667E7E5A7E3C000000000024180000