10 ; "TP3"
20 ; CHR$(12%)
30 ; "Revidert for FACIT Jan.1986" : GET V$
40 REM 1X21X21X21X21X21X21X21X21X21X21X
50 REM 1                              x
60 REM 1         TIPS RANDOM          x
70 REM 1                              x
80 REM 1X21X21X21X21X21X21X21X21X21X21X
90 REM 
100 REM *    Program av T.Kristoffersen
110 REM 
120 REM *       Harstad 29.09.81
130 REM 
140 REM 
150 REM 1X21X21X21X21X21X21X21X21X21X21
160 REM 
170 REM 
180 REM ** DIMENSJONERING
190 REM 
200 RANDOMIZE 
210 DIM Z$=11%,P$=7%,X$=19%,Y$=21%
220 Z$="Hvor mange " : P$=" Rekker"
230 X$=" Ugardert(e) igjen." : Y$=" Halvgarderte igjen."
240 REM 
250 REM *   FORSINKELSE OVERSKRIFT
260 REM 
270 ; CHR$(12%)
280 ; CUR(8%,12%)"1X21X21X21X21X21X2"
290 ; CUR(9%,12%)"X                1"
300 ; CUR(10%,12%)"2  TIPS RANDOM   X"
310 ; CUR(11%,12%)"1                2"
320 ; CUR(12%,12%)"X21X21X21X21X21X21"
330 FOR I%=1% TO 10000% : NEXT I%
340 REM 
350 REM **     STARTRUTINE
360 REM 
370 ; CHR$(12%) : ; : ; : ; 
380 ; TAB(12%)" STARTRUTINE "
390 ; CHR$(151%)"#####################################"
400 ; : ; : ; 
410 ; TAB(10%)" 1-Forklaring." : ; 
420 ; TAB(10%)" 2-Systemvalg/Tegnfordeling" : ; 
430 ; TAB(10%)" 3-Enkelrekker/prosent." : ; 
440 ; TAB(10%)" 4-Avslutte." : ; : ; : ; 
450 ; TAB(12%)"Tast inn kode <1-4)";
460 Z1%=0%
470 ONERRORGOTO 370
480 INPUT A%
490 IF A%>4% THEN 450
500 IF A%=4% THEN 3110
510 ON A% GOTO 560,890,2430
520 ; : ; : ; : ; : ; : ; 
530 REM **
540 REM **   FORKLARING
550 REM **
560 ; CHR$(12%)
570 ; : ; : ; 
580 ; "TIPS RANDOM bygger p} ABC 80's RND-"
590 ; "funksjon."
600 ; "Hver ny rekke bygges opp av en ny rekke"
610 ; "vilk}rlige tall , men kan gi to eller"
620 ; "flere like rekker."
630 ; "N}r systemet er valgt og fordelingen"
640 ; "av ugarderte,halv og helgarderte"
650 ; "gj|res,s} vil du til en hver tid"
660 ; "ha oversikt over antall garderinger"
670 ; "som er igjen."
680 ; "Vil du ha nytt system eller slutte s} "
690 ; "benytt tastene N og J."
700 ; : ; : ; 
710 ; "Tast RETURN for resten."; : GET V$
720 ; CHR$(12%) : ; : ; 
730 ; "Enkelrekker/prosent kommer ut med"
740 ; "tiln{rmet rett fordeling."
750 ; "Resultatet vises p} skjermen men kan  "
760 ; "ogs}  skrives ut p} printer av modell"
770 ; " ABC P40."
780 ; "Dersom du |nsker utskrift uten printer"
790 ; "eller med printer sl}tt av gies det"
800 ; "ERROR 8."
810 ; : ; : ; : ; 
820 ; "Tast RETURN"; : GET V$ : GOTO 370
830 REM 
840 REM *     VALGTABELL
850 REM 
860 REM **
870 REM ** INPUT TEGNFORDELING NULLES
880 REM **
890 ; CHR$(12%) : K%=0% : L%=0% : M%=0% : N%=0% : P%=0% : Q%=0% : R%=0% : Z%=0%
900 ; "DU HAR TIL R]DIGHET F\LGENDE SYSTEM";
910 ; : ; 
920 ; TAB(2%)"4."P$TAB(25%)"81."P$
930 ; TAB(2%)"6."P$TAB(25%)"96."P$
940 ; TAB(2%)"8."P$TAB(25%)"108."P$
950 ; TAB(2%)"9."P$TAB(25%)"128."P$
960 ; TAB(2%)"12."P$TAB(25%)"144."P$
970 ; TAB(2%)"16."P$TAB(25%)"162."P$
980 ; TAB(2%)"24."P$TAB(25%)"216."P$
990 ; TAB(2%)"27."P$TAB(25%)"243."P$
1000 ; TAB(2%)"32."P$TAB(25%)"256."P$
1010 ; TAB(2%)"36."P$TAB(25%)"288."P$
1020 ; TAB(2%)"48."P$TAB(25%)"324."P$
1030 ; TAB(2%)"54."P$TAB(25%)"384."P$
1040 ; TAB(2%)"64."P$TAB(25%)"432."P$
1050 ; TAB(2%)"72."P$TAB(25%)"486."P$
1060 ; : ; 
1070 ONERRORGOTO 890
1080 ; "TAST INN ANTALL REKKER.(SLUTT TAST NULL)";"                    "; : INPUT A1%
1090 IF A1%=0% THEN 370
1100 RESTORE 
1110 GOSUB 3330
1120 IF A1%=B%(1%) THEN 1160 ELSE 1110
1130 REM 
1140 REM *  TEGNFORDELINGSKUPONG
1150 REM 
1160 ; CHR$(12%)
1170 ; CUR(6%,25%);A1%;P$
1180 ; CUR(7%,25%)"-------------"
1190 ; CUR(8%,25%);B%(2%);".UGARDERT(E)."
1200 ; CUR(10%,25%);B%(3%);".HALVE."
1210 ; CUR(12%,25%);B%(4%);".HELE."
1220 REM 
1230 REM *    UGARDERTE
1240 REM 
1250 ONERRORGOTO 1250
1260 ; CUR(0%,0%)B%(2%)X$
1270 ; CUR(1%,1%)Z$"ENERE"; : INPUT K%
1280 IF K%>B%(2%) THEN 1270
1290 IF K%=B%(2%) THEN 1430
1300 ; B%(2%)-K%".";X$
1310 ONERRORGOTO 1310
1320 ; CUR(4%,1%)Z$".KRYSS"; : INPUT L%
1330 IF (K%+L%)>B%(2%) THEN 1320
1340 IF (K%+L%)=B%(2%) THEN 1430
1350 ; B%(2%)-(K%+L%)"."; : ; X$
1360 ; 
1370 ONERRORGOTO 1370
1380 ; CUR(7%,1%)"TAST"B%(2%)-(K%+L%)"(2)"; : INPUT M%
1390 IF (K%+L%+M%)<B%(2%) THEN 1380
1400 IF (K%+L%+M%)>B%(2%) THEN 1380
1410 IF (K%+L%+M%)=B%(2%) THEN 1420
1420 ; B%(3%)"."; : ; Y$
1430 IF B%(3%)=0% THEN 1650
1440 REM 
1450 REM *    HALVGARDERTE
1460 REM 
1470 ONERRORGOTO 1470
1480 ; CUR(10%,1%)Z$" 1X"; : INPUT N%
1490 IF N%>B%(3%) THEN 1480
1500 IF N%=B%(3%) THEN 1650
1510 ; B%(3%)-N%"."; : ; Y$
1520 ; 
1530 ONERRORGOTO 1530
1540 ; CUR(13%,1%)Z$" X2"; : INPUT P%
1550 IF (N%+P%)>B%(3%) THEN 1540
1560 IF (N%+P%)=B%(3%) THEN 1650
1570 ; B%(3%)-(N%+P%)"."; : ; Y$
1580 ; 
1590 ONERRORGOTO 1590
1600 ; CUR(16%,1%)"TAST"B%(3%)-(N%+P%)"(12)"; : INPUT Q%
1610 IF (N%+P%+Q%)>B%(3%) THEN 1600
1620 IF (N%+P%+Q%)<B%(3%) THEN 1600
1630 IF (N%+P%+Q%)=B%(3%) THEN 1640
1640 ; B%(3%)-(N%+P%+Q%)"."Y$
1650 IF B%(4%)=0% THEN 1740
1660 REM 
1670 REM *     HELGARDERTE
1680 REM 
1690 ONERRORGOTO 1690
1700 ; CUR(19%,0%);B%(4%)".Helgarderte igjen."
1710 ; CUR(20%,1%)"TAST"B%(4%); : INPUT R%
1720 IF R%>B%(4%) THEN 1710
1730 IF R%=B%(4%) THEN 1740 ELSE 1710
1740 C1%=0%
1750 ONERRORGOTO 1750
1760 REM **
1770 REM **   VALG PRINTER/SKJERM
1780 REM **
1790 ; "Utskrift <antall/0>"; : INPUT X%
1800 REM **
1810 REM ** SUM   TEGNFORDELING NULLES
1820 REM **
1830 A%=0% : B%=0% : C%=0% : D%=0% : E%=0% : F%=0% : G%=0%
1840 ; 
1850 REM 
1860 REM 
1870 REM 
1880 REM ***    KUPONGEN SKRIVES
1890 REM 
1900 REM 
1910 Z%=Z%+1% : REM **  ANTALL KUPONGER
1920 ; CHR$(12%)
1930 GOSUB 3370
1940 GOSUB 3370
1950 ; "SYSTEM";B%(1%);P$"      KUPONG NR. "Z%
1960 GOSUB 3380
1970 FOR I%=1% TO 12%
1980 IF I%=4% OR I%=7% OR I%=10% THEN ; "---------------------------------------"
1990 REM 
2000 ; "KAMP NR.";I%,
2010 T%=1%+INT(RND*7%)
2020 IF T%=1% THEN 2210 : REM .1X2
2030 IF T%=2% THEN 2190 : REM .12
2040 IF T%=3% THEN 2170 : REM .X2
2050 IF T%=4% THEN 2150 : REM .1X
2060 IF T%=5% THEN 2130 : REM .2
2070 IF T%=6% THEN 2110 : REM .X
2080 IF T%=7% THEN 2090 : REM .1
2090 A%=A%+1% : REM ** 1
2100 IF A%<=K% THEN 2320 ELSE 2010
2110 B%=B%+1% : REM ** X
2120 IF B%<=L% THEN 2310 ELSE 2010
2130 C%=C%+1% : REM ** 2
2140 IF C%<=M% THEN 2300 ELSE 2010
2150 D%=D%+1% : REM ** 1X
2160 IF D%<=N% THEN 2290 ELSE 2010
2170 E%=E%+1% : REM ** X2
2180 IF E%<=P% THEN 2280 ELSE 2010
2190 F%=F%+1% : REM ** 12
2200 IF F%<=Q% THEN 2270 ELSE 2010
2210 G%=G%+1% : REM ** 1X2
2220 IF G%<=R% THEN 2260 ELSE 2010
2230 REM 
2240 REM *    TEGNFORDELING
2250 REM 
2260 ; "1X2   *" : GOTO 2330
2270 ; "1 2   *" : GOTO 2330
2280 ; " X2   *" : GOTO 2330
2290 ; "1X    *" : GOTO 2330
2300 ; "  2   *" : GOTO 2330
2310 ; " X    *" : GOTO 2330
2320 ; "1     *" : GOTO 2330
2330 NEXT I%
2340 GOSUB 3370
2350 IF Z%<>X% THEN 2860 ELSE 2360
2360 REM 
2370 REM 
2380 ; Z%"  KUPONG(ER) A"B%(1%)" REKKE(R).KR."(Z%*B%(1%)*1%)
2390 GOSUB 3370 : GOTO 2860
2400 REM **
2410 REM **    10 ENKLE REKKER PROSENT
2420 REM **
2430 ; : ; CHR$(12%) : ONERRORGOTO 2430
2440 ; "Her f}r du kuponger med 10 enkle."
2450 ; "Fordel kupongen med vekt p} 1,x eller 2."
2460 ; "Prosenten for 1."; : INPUT A3% : ; 
2470 ; "Prosenten for x."; : INPUT A4% : ; 
2480 IF A3%+A4%>100% THEN 2490 ELSE 2510
2490 ; "Prosenten er over 100.TAST RETURN."; : GET V$
2500 GOTO 2430
2510 ; "Prosenten for 2 blir"100%-(A3%+A4%) : ; 
2520 ; "TAST RETURN."; : GET V$ : ; : ; 
2530 ; "Hvor mange kuponger |nsker du."; : ; 
2540 ; "Utskrift (Antall/0)"; : INPUT A2%
2550 REM 
2560 C0%=0%
2570 ; CHR$(12%)
2580 RANDOMIZE 
2590 Z1%=Z1%+1%
2600 GOSUB 3370
2610 ; "******       KUPONG NR."Z1%"      ******"
2620 GOSUB 3370
2630 FOR I%=1% TO 12%
2640 IF I%=4% OR I%=7% OR I%=10% THEN ; "---------------------------------------"
2650 ; "KAMP"I%
2660 NEXT I%
2670 FOR Y3=4 TO 19 STEP 1.35
2680 FOR X4%=11% TO 38% STEP 3%
2690 T%=1%+INT(RND*100%)
2700 IF T%<=A3% THEN 2730
2710 IF T%>A3% AND T%<=(A3%+A4%) THEN 2740
2720 GOTO 2750
2730 ; CUR(Y3,X4%)"1" : GOTO 2760
2740 ; CUR(Y3,X4%)"X" : GOTO 2760
2750 ; CUR(Y3,X4%)"2" : GOTO 2760
2760 REM 
2770 NEXT X4%
2780 NEXT Y3
2790 GOSUB 3370
2800 IF Z1%<>A2% THEN 2850 ELSE 2810
2810 ; Z1%" KUPONG(ER) A 10"P$" KR."Z1%*10
2820 GOSUB 3370 : GOTO 2850
2830 REM 
2840 REM 
2850 IF A2%<>0% THEN 3150 ELSE 2950
2860 IF X%<>0% THEN 3150 ELSE 2920
2870 ; 
2880 REM 
2890 REM 
2900 REM 
2910 ONERRORGOTO 2910
2920 ; "VIL DU HA SAMME SYSTEM.<J/N)"; : GET V$
2930 IF V$="J" OR V$="j" THEN 1830
2940 IF V$="N" OR V$="n" THEN 370 ELSE 2910
2950 ONERRORGOTO 2950
2960 ; "Vil du ha samme system<J/N)"; : GET V$
2970 IF V$="J" OR V$="j" THEN 2570
2980 IF V$="N" OR V$="n" THEN 370 ELSE 2950
2990 REM 
3000 REM 
3010 ONERRORGOTO 3010
3020 ; CHR$(12%);"VIL DU HA NYTT SYSTEM TAST <J>"
3030 ; "VIL DU SLUTTE TAST <S>"; : GET V$
3040 IF V$="J" OR V$="j" THEN 890
3050 IF V$="S" OR V$="s" THEN 3110 ELSE 3020
3060 REM 
3070 REM 
3080 ; CHR$(12%) : GOTO 2920
3090 REM 
3100 REM 
3110 ; CHR$(12%);CUR(10%,15%)"Slutt" : GOTO 3290
3120 REM 
3130 REM ** HER SKRIVES SKJERMEN
3140 REM 
3150 OPEN 'PR:CEA10D72.4' ASFILE 3%
3160 FOR Y1%=884% TO 930% STEP 2%
3170 FOR Y2%=0% TO 39%
3180 ; #3%,CHR$(PEEK(PEEK(Y1%)+PEEK(Y1%+1%)*256%+Y2%));
3190 NEXT Y2%
3200 NEXT Y1%
3210 REM 
3220 REM 
3230 REM ** HER TELLES UTSKRIFT
3240 REM 
3250 C0%=C0%+1%
3260 C1%=C1%+1%
3270 IF C0%<=A2%-1% THEN 2570
3280 IF C1%<=X%-1% THEN 1830 ELSE ; #3%,CHR$(12%) : GOTO 370
3290 CLOSE 3% : END 
3300 REM 
3310 REM **  HER LESES DATA
3320 REM 
3330 READ B%(1%),B%(2%),B%(3%),B%(4%) : RETURN 
3340 REM **
3350 REM ***   GRAFIKK
3360 REM ***
3370 FOR I%=0% TO 39% : ; "*"; : NEXT I% : RETURN 
3380 FOR I%=0% TO 39% : ; "="; : NEXT I% : RETURN 
3390 REM 
3400 REM *       DATA
3410 REM 
3420 DATA 4,10,2,0
3430 DATA 6,10,1,1
3440 DATA 8,9,3,0
3450 DATA 9,10,0,2
3460 DATA 12,9,2,1
3470 DATA 16,8,4,0
3480 DATA 18,9,1,2
3490 DATA 24,8,3,1
3500 DATA 27,9,0,3
3510 DATA 32,7,5,0
3520 DATA 36,8,2,2
3530 DATA 48,7,4,1
3540 DATA 54,8,1,3
3550 DATA 64,6,6,0
3560 DATA 72,7,3,2
3570 DATA 81,8,0,4
3580 DATA 96,6,5,1
3590 DATA 108,7,2,3
3600 DATA 128,5,7,0
3610 DATA 144,6,4,2
3620 DATA 162,7,1,4
3630 DATA 192,5,6,1
3640 DATA 216,6,3,3
3650 DATA 243,7,0,5
3660 DATA 256,4,8,0
3670 DATA 288,5,5,2
3680 DATA 324,6,2,4
3690 DATA 384,4,7,1
3700 DATA 432,5,4,3
3710 DATA 486,6,1,5