10 REM ******************
20 REM * LARS EKEROTH   *
30 REM *                *
40 REM *----------------*
50 REM * >>SIFFERJAKT<< *
60 REM *----------------*
70 REM * STYR MED: P=UPP*
80 REM * S=VANS. D=HOGER*
90 REM *     "."=NER    *
100 REM *****************
110 REM
120 REM 
130 REM
140 REM
160 CALL CLEAR
170 CALL CHAR(128,"7E9981DBDB81997E")
180 CALL CHAR(129,"FFFFFFFFFFFFFFFF")
190 CALL CHAR(92,"0044007C4444447C")
200 CALL CHAR(93,"00382838447C4444")
210 CALL CHAR(91,"00440038447C4444")
220 PRINT "TRYCK: 1. F\\R START              2. F\\R INSTRUKTIONER": : : : : : : : : :
230 CALL KEY(0,K,S)
240 IF S=0 THEN 230
250 IF K=49 THEN 280
260 IF K<>50 THEN 230
270 GOSUB 1330
280 CALL CLEAR
285 TUR=49
290 CALL COLOR(13,9,1)
300 CALL SCREEN(16)
310 CALL HCHAR(5,10,129,12)
320 CALL HCHAR(17,10,129,12)
330 CALL VCHAR(5,10,129,12)
340 CALL VCHAR(5,21,129,12)
350 A$=">SIFFERJAKT<"
360 Y=4
370 X=9
380 GOSUB 1290
390 A$="^=P"
400 Y=19
410 X=14
420 GOSUB 1290
430 A$="<=S D=>"
440 Y=20
450 X=11
460 GOSUB 1290
470 A$="v=."
480 Y=21
490 X=14
500 GOSUB 1290
510 RANDOMIZE
520 FOR A=1 TO 9
530 XX(A)=INT(RND*9)+12
540 YY(A)=INT(RND*9)+7
550 FOR B=1 TO A
560 IF XX(A)<>XX(B-1)THEN 580
570 IF YY(A)=YY(B-1)THEN 530
580 NEXT B
590 NEXT A
600 FOR A=1 TO 9
610 CALL HCHAR(YY(A),XX(A),A+48)
620 NEXT A
630 XD=15
640 YD=6
650 CALL HCHAR(YD,XD,128)
660 FOR A=1 TO 500
670 NEXT A
680 CALL SCREEN(2)
690 REM -----RITSLINGS------
700 CALL KEY(0,K,S)
710 IF S=0 THEN 940
720 CALL HCHAR(YD,XD,32)
730 IF K<>80 THEN 780
740 YD=YD-1
750 IF YD>6 THEN 940
760 YD=6
770 GOTO 940
780 IF K<>46 THEN 830
790 YD=YD+1
800 IF YD<16 THEN 940
810 YD=16
820 GOTO 940
830 IF K<>83 THEN 880
840 XD=XD-1
850 IF XD>11 THEN 940
860 XD=11
870 GOTO 940
880 IF K<>68 THEN 930
890 XD=XD+1
900 IF XD<20 THEN 940
910 XD=20
920 GOTO 940
930 CALL SOUND(200,-5,0)
940 CALL GCHAR(YD,XD,Z)
950 IF Z=32 THEN 1110
960 IF Z=TUR THEN 1080
970 IF Z=128 THEN 1110
980 CALL SOUND(1000,-7,0)
990 FOR A=1 TO 10
1000 CALL SCREEN(16)
1010 CALL SCREEN(2)
1020 NEXT A
1030 TID=TID+1
1040 MI=MI+1
1050 XD=11
1060 YD=6
1070 GOTO 690
1080 CALL SOUND(500,500,0)
1090 CALL SOUND(500,750,0)
1100 TUR=TUR+1
1110 TID=TID+1
1120 CALL HCHAR(YD,XD,128)
1130 IF TUR<58 THEN 690
1140 REM
1150 CALL CLEAR
1160 CALL SCREEN(3)
1170 PRINT "DU KLARADE DET P]";TID;"TIDSENHETER OCH";MI;"MISSAR!!!": :"DET BLIR";TID+MI*25;"POINTS": : : : : : :
1175 GOSUB 10000
1180 PRINT : :"VILL DU SPELA IGEN? (J/N)": :
1190 CALL KEY(0,K,S)
1200 IF S=0 THEN 1190
1210 CALL CLEAR
1220 IF K=ASC("N")THEN 1270
1230 IF K<>ASC("J")THEN 1180
1240 TID=0
1250 MI=0
1260 GOTO 280
1270 PRINT : :"O.K.": :"DU SLIPPER......": : : : :
1275 GOSUB 10000
1280 STOP
1290 FOR A=1 TO LEN(A$)
1300 CALL HCHAR(Y,X+A,ASC(SEG$(A$,A,1)))
1310 NEXT A
1320 RETURN
1330 REM ---INSTRUKTIONER---
1340 CALL SCREEN(14)
1350 CALL CLEAR
1360 PRINT "       INSTRUKTIONER               =============        ": :"HEJ!!!!": :"DIN UPPGIFT I DET H[R SPELET"
1370 PRINT "[R ATT MED HJ[LP AV DIN""MARK\\R"" K\\RA \\VER DE":"SIFFROR SOM KOMMER FRAM P]  SK[RMEN ";
1380 PRINT "I TURORDNING.":"MEN DU SER BARA SIFFRORNA I N]GON SEKUND  SEN SL[CKS    SK[RMEN OCH DU M]STE KOMMA"
1390 PRINT "IH]G VAR SIFFRORNA FANNS.": :"OM DU KROCKAR, SER DU SIFF- RORNA EN KORT STUND OCH DU  PLACERAS";
1400 PRINT " UPPE I V[NSTRA":"H\\RNET.": :"SE TILL ATT ""UPPER CASE""-":"KNAPPEN [R NEDTRYCKT.":
1410 PRINT :"   (TRYCK N]GON TANGENT)";
1420 CALL KEY(0,K,S)
1430 IF S=0 THEN 1420
1440 CALL SCREEN(12)
1450 RETURN
10000 CALL SOUND(400,131,6,165,6,330,3)
10010 CALL SOUND(400,196,6,262,6,330,4)
10020 CALL SOUND(400,147,5,370,4)
10030 CALL SOUND(200,220,6,294,6,370,4)
10040 CALL SOUND(200,330,4)
10050 CALL SOUND(400,196,6,370,4)
10060 CALL SOUND(1600,247,4,294,4,392,4)
10070 RETURN