70 REM ORMAR 80 REM BASIC OCH JOYSTICK 90 REM AV BO ASMUNDSSON 100 PO1=48 110 PO2=48 120 F1=-1 130 FY2=-1 140 F=0 150 FY=0 160 CALL CLEAR 170 CALL SCREEN(13) 180 FOR Q=2 TO 8 190 CALL COLOR(Q,2,16) 200 NEXT Q 210 CALL COLOR(9,16,4) 220 CALL COLOR(10,16,13) 230 CALL COLOR(11,2,13) 240 CALL CHAR(96,"FFFFFFFFFFFFFFFF") 250 CALL CHAR(97,"0000000000000000") 260 CALL CHAR(104,"7EFFC3C3C3C3FF7E") 270 CALL CHAR(105,"7E99997E7E427E7E") 280 CALL CHAR(112,"7EFFC3C3C3C3FF7E") 290 CALL CHAR(113,"7E99997E7E427E7E") 300 CALL CHAR(120,"FF9999E7E79999FF") 310 CALL CHAR(95,"24003C424242423C") 320 CALL CLEAR 330 PRINT "``VIT=````````SVART=````````" 340 PRINT "```````ORMARNARS`KAMP```````": : : : : : : : : : : : : : : : : : : : : : 350 CALL HCHAR(1,9,PO1) 360 CALL HCHAR(1,23,PO2) 370 CALL VCHAR(1,31,96,96) 380 CALL HCHAR(23,1,96,66) 390 CALL VCHAR(10,16,97,5) 400 CALL HCHAR(12,14,97,5) 410 RANDOMIZE 420 Y=12 430 U=12 440 X=10 450 Z=22 460 GOTO 870 470 CALL JOYST(1,LU,LI) 480 IF (LU=0)*(LI=0) THEN 510 490 F=LU/4 500 F1=LI/-4 510 CALL HCHAR(Y,X,104) 520 X=X+F 530 Y=Y+F1 540 CALL GCHAR(Y,X,C) 550 IF C=120 THEN 700 560 IF C>32 THEN 1020 570 CALL HCHAR(Y,X,105) 580 CALL JOYST(2,LY,LZ) 590 IF (LY=0)*(LZ=0) THEN 620 600 FY=LY/4 610 FY2=LZ/-4 620 CALL HCHAR(U,Z,112) 630 Z=Z+FY 640 U=U+FY2 650 CALL GCHAR(U,Z,C) 660 IF C=120 THEN 790 670 IF C>32 THEN 930 680 CALL HCHAR(U,Z,113) 690 GOTO 470 700 PO1=PO1+1 710 CALL HCHAR(1,9,PO1) 720 CALL SOUND(100,362,0) 730 FOR A=1 TO 5 740 CALL HCHAR(Y,X,49) 750 CALL HCHAR(Y,X,104) 760 NEXT A 770 IF PO1=57 THEN 1260 780 GOTO 870 790 PO2=PO2+1 800 CALL HCHAR(1,23,PO2) 810 CALL SOUND(100,262,0) 820 FOR A=1 TO 5 830 CALL HCHAR(U,Z,49) 840 CALL HCHAR(U,Z,112) 850 NEXT A 860 IF PO2=57 THEN 1110 870 RE=INT(RND*32+1) 880 ER=INT(RND*24+1) 890 CALL GCHAR(ER,RE,C) 900 IF C>32 THEN 870 910 CALL HCHAR(ER,RE,120) 920 GOTO 470 930 PO1=PO1+1 940 CALL HCHAR(1,9,PO1) 950 CALL SOUND(100,-5,0,110,0,652,0) 960 FOR A=1 TO 10 970 CALL COLOR(11,9,13) 980 CALL COLOR(11,2,13) 990 NEXT A 1000 IF PO1=57 THEN 1260 1010 GOTO 1300 1020 PO2=PO2+1 1030 CALL HCHAR(1,23,PO2) 1040 CALL SOUND(100,-7,0,652,0,253,0) 1050 FOR A=1 TO 10 1060 CALL COLOR(10,9,13) 1070 CALL COLOR(10,16,13) 1080 NEXT A 1090 IF PO2=57 THEN 1110 1100 GOTO 1300 1110 M$="SVART`HAR`VUNNIT`KAMPEN`````" 1120 G=23 1130 GOSUB 1380 1140 M$="TRYCK`SKJUTKNAPPEN`F_R`SPEL`" 1150 G=24 1160 GOSUB 1380 1170 CALL KEY(1,K,S) 1180 IF K=18 THEN 100 1190 CALL KEY(2,D,I) 1200 IF D=18 THEN 100 1210 GOTO 1170 1220 END 1230 PO1=48 1240 PO2=48 1250 GOTO 120 1260 M$="VIT`HAR`VUNNIT`KAMPEN```````" 1270 G=23 1280 GOSUB 1380 1290 GOTO 1140 1300 FOR W=3 TO 22 1310 CALL HCHAR(W,3,32,28) 1320 NEXT W 1330 F1=-1 1340 FY2=-1 1350 F=0 1360 FY=0 1370 GOTO 370 1380 V=16-INT(LEN(M$)/2) 1390 FOR I=1 TO LEN(M$) 1400 SD=ASC(SEG$(M$,I,1)) 1410 CALL HCHAR(G,V+I,SD) 1420 NEXT I 1430 RETURN