10 ! F[RGSKAL.BAS
20 ! av Anders Chrigstr|m & Krister Edlund
30 ! Ins{nt av Sven-Olov Idetj{rn <1708>
1000 RANDOMIZE 
1010 EXTEND : INTEGER : ATTRIBUTE 1
1020 Wi=75
1030 Hi=22
1040 V=1
1050 W=0
1060 G=15 : Z=1
1070 Ts=0
1080 Nb=3
1090 DIM X(G) : DIM Y(G)
1100 DIM Xx(G*3),Yy(G*3)
1110 GOSUB 1910
1120 GOSUB 1570
1130 GOSUB 1830
1140 ; CHR$(7) : GOTO 1290
1150 Q$=CHR$(INP(34) AND SYS(8))
1160 IF Q$="A" THEN LET W=-1 : V=0
1170 IF Q$="Z" THEN LET W=1 : V=0
1180 IF Q$="," THEN LET V=-1 : W=0
1190 IF Q$="." THEN LET V=1 : W=0
1200 GOSUB 1460
1210 ; CUR(Y,X);' '
1220 X=X+V
1230 Y=Y+W
1240 IF X<1 THEN LET X=1 : V=-V
1250 IF Y<4 THEN LET Y=4 : LET W=-W
1260 IF X>Wi-1 THEN LET X=Wi-1 : V=-V
1270 IF Y>Hi-2 THEN LET Y=Hi-2 : W=-W
1280 ; CUR(Y,X);CHR$(D)
1290 FOR I=1 TO G
1300   IF X=X(I) AND Y=Y(I) THEN GOSUB 1510
1310 NEXT I 
1320 IF X=P AND Y=Q THEN ; CHR$(7) : T=1
1330 ; CUR(Y,X);CHR$(88)
1340 T=T-1
1350 ; CUR(2,0);"PO[NG";Ts;"TID";T;" "
1360 IF T>0 THEN GOTO 1150
1370 IF B>0 THEN PRINT CUR(5,5);"BONUS";B
1380 FOR C=1 TO 5000 : NEXT C 
1390 Ts=Ts+B
1400 IF B=0 THEN LET Nb=Nb-1
1410 IF Nb>0 THEN 1120
1420 ; CUR(5,5);"VILL DU SPELA IGEN ?  (J/N)"
1430 INPUT Q$
1440 IF Q$="J" THEN 1010
1450 END 
1460 IF W=1 THEN LET D=86
1470 IF W=-1 THEN LET D=94
1480 IF V=-1 THEN LET D=60
1490 IF V=1 THEN LET D=62
1500 RETURN 
1510 S=S+1
1520 Ts=Ts+5
1530 X(I)=0
1540 Y(I)=0
1550 IF S=G THEN LET B=T/3 : T=1
1560 RETURN 
1570 ; CHR$(12)
1580 ; CUR(1,0);RED;"HOPPANDE SKALBAGGEN:SKALBAGGAR";Nb
1590 FOR Yyy=0 TO G*3 : Xx(Yyy)=0 : Yy(Yyy)=0 : NEXT Yyy 
1600 Ddd=0
1610 S=0
1620 B=0
1630 Z=Z+.3
1640 T=1000/Z
1650 FOR I=1 TO G
1660   Color$=MID$(RED+GRN+YEL+BLU+MAG+CYA+WHT,INT(RND*7+1),1)
1670   GOSUB 1830
1680   X(I)=X : Y(I)=Y
1690   ; CUR(Y(I),X(I));Color$;CHR$(35)
1700 NEXT I 
1710 GOSUB 1830
1720 P=X : Q=Y
1730 Color$=MID$(RED+GRN+YEL+BLU+MAG+CYA+WHT,INT(RND*7+1),1)
1740 FOR I=1 TO Wi
1750   ; CUR(3,I);Color$;'*'
1760   PRINT CUR(Hi-1,I);Color$;'*'
1770 NEXT I 
1780 FOR I=3 TO Hi-1
1790   ; CUR(I,0);Color$;'*'
1800   ; CUR(I,Wi);Color$;'*'
1810 NEXT I 
1820 RETURN 
1830 Ddd=Ddd+1
1840 X=RND*(Wi-1)+1
1850 Y=RND*(Hi-6)+4
1860 FOR Yyy=0 TO Ddd-1
1870   IF Xx(Yyy)=X AND Yy(Yyy)=Y THEN 1840
1880 NEXT Yyy 
1890 Xx(Ddd)=X : Yy(Ddd)=Y
1900 RETURN 
1910 GOSUB 1570
1920 GOSUB 1650
1930 ! 
1940 ; CUR(2,0);BLU;'SPELET B\RJAR N[R DU TRYCKER TANGENT'
1950 GET Q$
1960 ! 
1970 RETURN