1 ' Centithief 2 ' by F & J Akinlawon 3 ' Amstrad Action February 88 10 SYMBOL 255,36,24,126,153,24,126,153,36 20 SYMBOL 254,255,129,191,191,191,191,191,255 30 MODE 1:INK 0,0:BORDER 0:INK 1,24:INK 2,6:PAPER 0 40 LOCATE 1,1:PEN 1:PRINT" c e n t e t h i e f" 50 LOCATE 1,5:PEN 3:PRINT"You ate ";:PEN 1:PRINT je; 60 PEN 3:PRINT" Ants":LOCATE 1,10:PEN 3 70 PRINT"You scored ";:PEN 1:PRINT score;:PEN 3 80 PRINT" Points":LOCATE 1,15:PEN 3 90 PRINT"You travelled ";:PEN 1:PRINT centi;:PEN 3 100 PRINT" Centimeters":LOCATE 1,20:PEN 2 110 PRINT"Press <SPACE> bar" 120 IF INKEY(47)=0 THEN CLS ELSE 120 130 a$=CHR$(11):a=10 140 REM * variables * 150 x=10:y=20:je=0:centi=0:score=0:road=1:cent=0:b=24 160 REM * main program * 170 IF road=1 THEN LOCATE x,1:PEN 2:PRINT CHR$(254)+CHR$(254) 180 IF road=1 THEN LOCATE y,1:PEN 2:PRINT CHR$(254) 190 IF road=2 THEN LOCATE y,1:PEN 2:PRINT CHR$(254)+CHR$(128)+CHR$(254) 200 IF road=3 THEN LOCATE y,1:INK 3,pe,pee:PEN 3:PRINT CHR$(227) 210 IF road=2 THEN LOCATE x,1:PEN 2:PRINT CHR$(254) 220 IF road=3 THEN LOCATE x,1:PEN 1:PRINT CHR$(255) 230 LOCATE 1,1:PRINT a$:LOCATE a,b:PEN 1:PRINT CHR$(255) 240 road=INT(RND*4):IF road=0 THEN GOTO 240 250 x=INT(RND*20)+1:y=INT(RND*20)+1 260 IF INKEY(1)=0 THEN LOCATE a,b:PRINT" ":a=a+1 270 IF INKEY(8)=0 THEN LOCATE a,b:PRINT" ":a=a-1 280 REM * Collision detection * 290 aa=a*16-8:bb=400-(b*16)+26:t=TEST(aa,bb) 300 IF t=3 THEN SOUND 1,10:score=score+10 310 IF t=1 THEN SOUND 1,50,5,15,3,2,1:je=je+1:score=score+1:b=b-1 320 IF t=2 THEN ENV 1,100,2,2:ENT 1,100,-2,2:SOUND 1,284,200,1,1,1:GOTO 10 330 IF a=20 THEN a=19 340 IF a=1 THEN a=2 350 pe=INT(RND*26)+1:pee=INT(RND*26)+1:cent=cent+1 360 centi=centi+1 370 IF cent=100 THEN r=1 380 IF r=1 THEN i=INT(RND*26)+1:INK 2,i:r=0:cent=0 390 IF b=5 THEN CLS:GOTO 410 400 GOTO 170 410 PRINT"C.O.N.G.R.A.T.U.L.A.T.I.O.N.S" 420 FOR n=1 TO 100:LOCATE 20,20:PRINT" ":NEXT:GOTO 30