100 CALL CLEAR 110 PRINT " ***********" 120 PRINT " ** JAGAD **" 130 PRINT " ***********" 140 PRINT : : : : : : 150 PRINT " SVARIGHETSGRAD" 160 INPUT ">4(LATTAST)-1(SVARAST)<":SV 170 A=0 :: R=0 180 CALL CHAR(96,"7CD692FE92D67C") 190 CALL CHAR(104,"3854D6FE6C7C2828") 200 CALL CHAR(112,"000010381") 210 CALL CHAR(120,"FFFFFFFFFFFFFFFF") 230 RANDOMIZE 240 CALL CLEAR :: CALL SCREEN(16) 250 CALL HCHAR(1,1,120,64) 260 CALL HCHAR(23,1,120,64) 270 CALL VCHAR(1,1,120,48) 280 CALL VCHAR(1,31,120,64) 290 CALL SPRITE(#1,96,13,100,100) 300 CALL SPRITE(#2,104,7,1,1) 310 CALL SPRITE(#3,112,11,100,125) 320 DISPLAY AT(1,5)SIZE(10):"HOGST";H 330 GOSUB 550 340 GOSUB 450 350 GOSUB 550 360 CALL COINC(#1,#3,2*SV,P) :: IF P<>0 THEN GOSUB 460 370 GOSUB 550 380 GOSUB 450 390 GOSUB 550 400 GOSUB 450 410 A=A+1 :: IF A=4 THEN GOSUB 470 420 GOSUB 550 430 GOSUB 450 440 GOTO 330 450 CALL COINC(#1,#2,13,K) :: IF K<>0 THEN GOTO 480 ELSE RETURN 460 R=INT(R+10/SV):: DISPLAY AT(1,20)SIZE(5)BEEP:R :: CALL LOCATE(#3,INT(RND*151)+20,INT(RND*210)+20)::RETURN 470 CALL MOTION(#2,INT(-(RND*120))+60,INT(-(RND*120))+60):: A=0::RETURN 480 CALL MOTION(#1,0,0,#2,0,0) 490 FOR S=2 TO 16 :: CALL SOUND(70-S,-7,S):: CALL SCREEN(S)::NEXT S 500 DISPLAY AT(23,6)SIZE(16):" SPELET AR SLUT" 510 DISPLAY AT(24,5)SIZE(13):"DU FICK";R; 520 DISPLAY AT(24,18)SIZE(16):" POANG" 530 IF R>H THEN H=R 540 FOR T=1 TO 1000 :: NEXT T :: GOTO 170 550 CALL JOYST(1,X,Y)::CALL MOTION(#1,-Y*(2*SV),X*(2*SV))::RETURN