100 REM +++++++++++++++++++++++++++++++
110 REM ! Program ....   INSTRUKT
120 REM ! Utg}va  1.2    84-02-08
130 REM ! av (c) Bertil Lindau  Nr. 812
140 REM ! Minne 32 Kbytes f|r flexskiva
150 REM ! Ins{nt av Bertil Lindau
160 REM +++++++++++++++++++++++++++++++
170 REM 
180 REM Instruktionsprogram till
190 REM programpaketet LOGSIM
200 REM 
210 DIM C$=4%,F$(9%)=15%,Q$=40%,A$=15%
220 C$=CUR(2%,0%)
230 DATA 9
240 DATA "Gemensamt","Om kretsmatris"
250 DATA "Om signalmatris","Om listning"
260 DATA "Simulering","Realtidssim"
270 DATA "Exempel 1","Exempel 2"
280 DATA "Till menyn
290 RESTORE 230
300 Q$="INFORMATION F\R LOGIKSIMULERING"
310 GOSUB 490
320 IF G0%<>G1% 370
330 E9%=101%
340 GOSUB 990 : REM Medelande
350 PRINT C$
360 CHAIN "DR1:LOGSIM"
370 ON G0% GOTO 2480,1300,2070,2720,2870,4210,3130,4430
380 REM 
390 REM ***************** 
400 REM ==== MENYVAL ====
410 REM *****************
420 REM 
430 REM G9%     Lopvariabel
440 REM G1%     Antal menyhopp
450 REM F$(G1%) Delnamn
460 REM G0%     Hoppvariabel
470 REM A$      Inmatningsvariabel
480 REM 
490 GOSUB 810 : REM Systemrad
500 READ G1%
510 FOR G9%=1% TO G1%
520 READ F$(G9%)
530 PRINT CUR(1%+2%*G9%,8%)G9%". "F$(G9%)
540 NEXT G9%
550 GOSUB 700 : REM Medelanderad
560 PRINT TAB(8%);
570 PRINT " V{lj rutin (1-";
580 PRINT RIGHT$(NUM$(G1%),2%)") ";
590 GET A$
600 LET G0%=ASC(A$)-48%
610 IF G0%<1% OR G0%>G1% 590
620 PRINT CUR(1%+2%*G0%,5%)"==>"
630 GOSUB 700 : REM Medelanderad
640 RETURN 
650 REM 
660 REM **********************
670 REM ==== MEDELANDERAD ====
680 REM **********************
690 REM 
700 PRINT CUR(23%,0%)TAB(39%);
710 PRINT CUR(23%,2%);
720 RETURN 
730 REM 
740 REM *******************
750 REM ==== SYSTEMRAD ====
760 REM *******************
770 REM 
780 REM X%    Tabvariabel
790 REM Q$    Systemnamn
800 REM 
810 LET X%=18%-LEN(Q$)/2%
820 PRINT CHR$(12%);
830 PRINT TAB(X%)Q$
840 PRINT CHR$(151%)STRING$(38%,35%)
850 PRINT CUR(22%,0%)STRING$(39%,61%);
860 RETURN 
870 REM 
880 REM *****************
890 REM ==== FELRUTIN ===
900 REM *****************
910 REM 
920 REM E9%   Felkode
930 REM F9%   Lopvariabel
940 REM A$    Slaskvariabel
950 REM 
960 IF E9%=0% RETURN 
970 POKE 32720%,ASC(">")+128%
980 PRINT CHR$(7%);
990 GOSUB 700 : REM Medelanderad
1000 IF E9%<100% 1070
1010 RESTORE 1140
1020 FOR F9%=100% TO E9%
1030 READ A$ : NEXT F9%
1040 X%=19%-LEN(A$)/2%
1050 PRINT TAB(X%)A$;
1060 RETURN 
1070 PRINT TAB(9%);
1080 PRINT " Fel nr"E9%"  (Se fellistan)";
1090 RETURN 
1100 REM =======================
1110 REM ==== FELMEDELANDEN ====
1120 REM =======================
1130 REM 
1140 DATA "Tryck p} RETURN"
1150 DATA "Var god v{nta!"
1160 REM 
1170 E9%=100%
1180 GOSUB 990
1190 GET A$
1200 IF ASC(A$)<>13% 1190
1210 GOSUB 810
1220 PRINT C$;
1230 RETURN 
1240 REM 
1250 REM 
1260 REM **************************
1270 REM === Ins om kretsmatris ===
1280 REM **************************
1290 REM 
1300 Q$="Information om kretsmat."
1310 GOSUB 810
1320 PRINT CUR(0%,32%)"Sid 1(2)"
1330 PRINT C$;
1340 PRINT "Programmet simulerar 9 olika kretsar"
1350 PRINT "som {r typnumrerade som f|ljer."
1360 PRINT 
1370 PRINT "1. AND                 2. NAND"
1380 PRINT "3. OR                  4. NOR"
1390 PRINT "5. XOR                 6. XNOR"
1400 PRINT "7. D-vippa med RST"
1410 PRINT "8. D-vippa utan RST"
1420 PRINT "9. J-K vippa" : PRINT 
1430 PRINT "Anslutningarna {r ben{mnda som f|ljer:"
1440 PRINT 
1450 PRINT "UT = Utg}ng     UC = Inverterad utg}ng"
1460 PRINT "I1-I8 = Ing}ngar till grindar"
1470 PRINT "CL=Klocking}ng   DA = Dataing}ng"
1480 PRINT "SET = Ing}ng f|r ettst{lning av UT"
1490 PRINT "RES = Ing}ng f|r nollst{lning av UT"
1500 PRINT "TF = Trigflank 1=posetiv 0=negativ"
1510 GOSUB 1170
1520 PRINT ;CUR(0%,32%)"Sid 2(2)" : PRINT C$;
1530 PRINT "De olika anslutningarna ges ett nummer,"
1540 PRINT "(nodnummer), och de anslutningar som"
1550 PRINT "har samma nummer {r hopkoplade."
1560 PRINT "Nodnummer 1 {r reserverad f|r systemet,"
1570 PRINT "och {r en klocksignal. Denna kan allts}"
1580 PRINT "bara anv{ndas som insignal."
1590 FOR I%=9% TO 19%
1600 PRINT CUR(I%,22%)CHR$(151%);
1610 NEXT I%
1620 REM 
1630 REM Data f|r vertikala linjer
1640 REM 
1650 DATA 15
1660 DATA 50,27,32,56,27,32,67,27,32
1670 DATA 74,27,32,47,33,39,59,33,39
1680 DATA 65,33,39,77,33,39,53,40,44
1690 DATA 71,40,44,59,44,47,65,44,47
1700 DATA 56,48,54,68,48,54,62,55,59
1710 REM 
1720 REM Data f|r horisontela linjer
1730 REM 
1740 DATA 8
1750 DATA 33,48,59,33,65,77,39,48,59
1760 DATA 39,65,77,44,53,59,44,65,71
1770 DATA 48,56,68,54,56,68
1780 RESTORE 1650
1790 GOSUB 3900
1800 PRINT CUR(12%,25%)CHR$(135%,49%,151%)
1810 PRINT CUR(12%,34%)CHR$(135%,50%,151%)
1820 PRINT CUR(17%,30%)CHR$(135%,51%,151%)
1830 PRINT CUR(8%,25%)"2  3     4  5"
1840 PRINT CUR(15%,26%)CHR$(135%,54%,151%)
1850 PRINT CUR(15%,33%)CHR$(135%,55%,151%)
1860 PRINT CUR(10%,22%)CHR$(135%,49%,151%)
1870 PRINT CUR(10%,30%)CHR$(135%,50%,151%)
1880 PRINT CUR(20%,31%)"8"
1890 PRINT CUR(18%,25%)CHR$(135%,51%,151%)
1900 PRINT CUR(9%,0%);"Figuren till h|ger"
1910 PRINT "visar ett exempel p}"
1920 PRINT "koppling. Krets 1 har"
1930 PRINT "sin utg}ng ansluten"
1940 PRINT "till nod 6 som {ven"
1950 PRINT "{r krets 3:s ena in-"
1960 PRINT "g}ng. P} detta s{tt"
1970 PRINT "bygs en hel logikkop-"
1980 PRINT "ling up. Max antal"
1990 PRINT "kretsar {r 100."
2000 GOSUB 1170
2010 GOTO 290
2020 REM 
2030 REM *************************
2040 REM === OM SIGNALMATRISEN ===
2050 REM *************************
2060 REM 
2070 Q$="Information om signalmat."
2080 GOSUB 810
2090 PRINT CUR(0%,32%)"Sid 1(2)"
2100 PRINT C$;
2110 PRINT "Signalmatrisen anv{nds f|r att st{lla"
2120 PRINT "de olika ing}ngarna som inte {r anslu-"
2130 PRINT "tena till n}gon annan nod." : PRINT 
2140 PRINT "Ben{mningarna p} variablerna {r:" : PRINT 
2150 PRINT "NOD   Nodnummer"
2160 PRINT "VS    Nodens startv{rde vid tiden 0"
2170 PRINT "TA-TR Omslagstider" : PRINT 
2180 PRINT "Nod nummer 1 {r reserverad f|r systemet,";
2190 PRINT "och {r en klocksignal. En nod kan skri-"
2200 PRINT "vas p} flera rader, men d} skal VS ha"
2210 PRINT "v{rdet 2 p} de |vriga raderna f|r att"
2220 PRINT "indikera of|r{ndrat startv{rde."
2230 PRINT "Omslagstiderna kan skrivas i vilken"
2240 PRINT "ordning som helst. Om det st}r 0 (noll)"
2250 PRINT "i n}gon variabel s} hoppas denna |ver."
2260 PRINT : PRINT "Se {ven simulering.";
2270 GOSUB 1170
2280 PRINT CUR(0%,32%)"Sid 2(2)"
2290 PRINT CUR(4%,0%)CHR$(151%)"    j####k     j####k     j######k"
2300 PRINT CUR(5%,0%)CHR$(151%)"ppppz    jpppppz    jpppppz      jppppp"
2310 PRINT CUR(2%,0%)"Exempel p} insignal till nod 2"
2320 PRINT CUR(7%,0%)"VS  TA   TB    TC   TD    TE     TF"
2330 PRINT CUR(10%,0%)"RAD  NOD  VS  TA  TB  TC  TD  TE  TF  ------"
2340 PRINT CUR(11%,0%)" 1    2    0   5  10  16  20  26  32  XX"
2350 PRINT : PRINT "H|gsta antal rader med insignaler {r 50."
2360 PRINT "Vid inmatning av tiderna anges namn p}"
2370 PRINT "den p} plats i str{ngen samt v{rde."
2380 PRINT "(Ex TC15  eller NOD2). Om inget anges   f|re";
2390 PRINT " talet {r det namn som st}r i paren-tesen ";
2400 PRINT "defaultv{rde."
2410 GOSUB 1170
2420 GOTO 290
2430 REM 
2440 REM ******************************
2450 REM == Gemensamma instruktioner ==
2460 REM ******************************
2470 REM 
2480 Q$="Gemensam information"
2490 GOSUB 810
2500 PRINT CUR(0%,32%)"Sid 1(1)"
2510 PRINT C$;
2520 PRINT "Programmet simmulerar en  logikkoppling"
2530 PRINT "med olika logikkretsar. Man ser olika"
2540 PRINT "logikniv}er p} valda punkter i koppling-";
2550 PRINT "en p} en tidsaxel. Max 10 punkter kan"
2560 PRINT "plottas samtidigt." : PRINT 
2570 PRINT "Indatan till simuleringsprogrammet {r"
2580 PRINT "tv} filer som skapas med hj{lp av"
2590 PRINT 'programmen "KRETSMAT" och "SIGNALMA".'
2600 PRINT "Namnen p} filerna skall vara lika s}n{r"
2610 PRINT 'som p} extension som f|r "KRETSMAT" {r'
2620 PRINT 'N[T och f|r "SIGNALMA" {r SIM.'
2630 PRINT "Programmen ser till att r{tt extension"
2640 PRINT "skrivs."
2650 GOSUB 1170
2660 GOTO 290
2670 REM 
2680 REM *******************
2690 REM === Om listning ===
2700 REM *******************
2710 REM 
2720 Q$="Information om listning"
2730 GOSUB 810
2740 PRINT CUR(0%,32%)"Sid 1(1)"
2750 PRINT C$;
2760 PRINT "Detta progrm listar inmatade matriser"
2770 PRINT "som finns lagrade p} skiva."
2780 PRINT 
2790 PRINT "Man kan v{lja listningsenhet, sk{rm"
2800 PRINT "eller printer."
2810 GOSUB 1170
2820 GOTO 290
2830 REM 
2840 REM ***********************
2850 REM ==== Om simulering ====
2860 REM ***********************
2870 Q$="Information om simulering"
2880 GOSUB 810
2890 PRINT CUR(0%,32%)"Sid 1(1)"
2900 PRINT C$;
2910 PRINT 'Programet "LOGSIM" {r uppbygt enligt en'
2920 PRINT "algoritm som nedan." : PRINT 
2930 PRINT "1. Inkrementera tiden (T=T+1)"
2940 PRINT "2. S{tt eventuella nya insignaler i"
2950 PRINT "   i innoderna"
2960 PRINT "3. Ber{kna de |vriga nodv{rdena"
2970 PRINT "4. Rita ut |nskade noders v{rden p}"
2980 PRINT "   sk{rmen"
2990 PRINT "5. G} till 1" : PRINT 
3000 PRINT "Programmet fr}gar efter tv} filer som {r";
3010 PRINT "skapade med hj{lp av programmen"
3020 PRINT '"KRETSMAT" och "SIGNALMA". D{refter an-'
3030 PRINT "ger man vilka noder som skall plottas p}sk{rmen ";
3040 PRINT "(h|gst 10) och man avslutar med 0 (noll)";
3050 PRINT "f|r att starta simuleringen."
3060 GOSUB 1170
3070 GOTO 290
3080 REM 
3090 REM *******************
3100 REM ==== Exempel 1 ====
3110 REM *******************
3120 REM 
3130 Q$="Exempel 1"
3140 GOSUB 810
3150 PRINT CUR(0%,32%)"Sid 1(3)"
3160 FOR I%=8% TO 21%
3170 PRINT CUR(I%,0%)CHR$(151%);
3180 NEXT I%
3190 PRINT C$;
3200 RESTORE 3720
3210 GOSUB 3900
3220 PRINT CUR(15%,5%)"UT"CUR(15%,14%)"UT"
3230 PRINT CUR(15%,23%)"UT"CUR(15%,32%)"UT"
3240 PRINT CUR(20%,0%)CHR$(67%,76%,151%)
3250 PRINT CUR(20%,3%)"RST"CUR(20%,12%)"RST"
3260 PRINT CUR(20%,21%)"RST"CUR(20%,30%)"RST"
3270 PRINT CUR(19%,9%)"CL"CUR(19%,18%)"CL"
3280 PRINT CUR(19%,27%)"CL"
3290 PRINT CUR(18%,4%)CHR$(135%,49%,151%)
3300 PRINT CUR(18%,13%)CHR$(135%,50%,151%)
3310 PRINT CUR(18%,22%)CHR$(135%,51%,151%)
3320 PRINT CUR(18%,31%)CHR$(135%,52%,151%)
3330 PRINT CUR(11%,18%)CHR$(135%,53%,151%)
3340 PRINT CUR(16%,4%)CHR$(135%,51%,151%)
3350 PRINT CUR(16%,13%)CHR$(135%,52%,151%)
3360 PRINT CUR(16%,22%)CHR$(135%,53%,151%)
3370 PRINT CUR(16%,31%)CHR$(135%,54%,151%)
3380 PRINT CUR(21%,0%)CHR$(135%,50%,151%)
3390 PRINT CUR(7%,19%)"7"
3400 PRINT C$;
3410 PRINT "Kretsen nedan {r ett exempel p} en kopp-";
3420 PRINT "ling. Det {r en bin{r r{knare som r{k-"
3430 PRINT "nar till 10. N{sta sida visar insig-"
3440 PRINT "nalen nod 2."
3450 GOSUB 4100
3460 PRINT CUR(0%,32%)"Sid 2(3)"
3470 GOSUB 4060
3480 PRINT "NOD VS  TA  TB  TC  TD  TE  TF  TG  TH"
3490 PRINT "  2  0   2   4   6   8  10  12  14  16"
3500 PRINT : PRINT "N{sta sida visar kretsmatrisen."
3510 GOSUB 1170
3520 PRINT CUR(0%,32%)"Sid 3(3)"
3530 PRINT C$;
3540 PRINT "Grindar:"
3550 PRINT "--------"
3560 PRINT "Nr TYP UT I1 I2"
3570 PRINT " 5   2  7  4  6"
3580 PRINT 
3590 PRINT "Vippor:"
3600 PRINT "-------"
3610 PRINT "Nr TYP UT UC TF CL RST"
3620 PRINT " 1   9  3  0  0  2  7"
3630 PRINT " 2   9  4  0  0  3  7"
3640 PRINT " 3   9  5  0  0  4  7"
3650 PRINT " 4   9  6  0  0  5  7"
3660 PRINT 
3670 PRINT 'Dessa matriser finns i filerna "EXEMPEL"';
3680 PRINT "Andv{nd dessa filer f|r vidare experi-"
3690 PRINT "ment."
3700 GOSUB 1170
3710 GOTO 280
3720 DATA 26,2,55,59,5,51,59,13,59,65
3730 DATA 14,45,51,16,51,59,20,48,55
3740 DATA 23,51,59,31,59,64,32,42,51
3750 DATA 33,30,38,34,51,59,35,38,42
3760 DATA 38,48,55,39,24,30,41,51,59
3770 DATA 42,38,42,44,30,38,49,59,65
3780 DATA 50,45,51,52,51,59,56,48,55
3790 DATA 59,51,59,67,59,65,68,42,51
3800 DATA 70,51,59,75,24,65
3810 REM 
3820 DATA 24,24,39,75,28,38,40,29,38,40
3830 DATA 30,33,44,38,33,34,42,32,35
3840 DATA 42,42,68,48,15,20,48,32,37
3850 DATA 48,50,56,51,5,16,51,23,34
3860 DATA 51,41,52,51,59,70,55,2,5
3870 DATA 55,20,23,55,38,41,55,56,59
3880 DATA 59,5,16,59,23,34,59,41,52
3890 DATA 59,59,70,65,13,75,38,33,44
3900 READ R%
3910 FOR I%=1% TO R%
3920 READ K%,R1%,R2%
3930 FOR R%=R1% TO R2%
3940 SETDOT R%,K%
3950 NEXT R%
3960 NEXT I%
3970 REM 
3980 READ K%
3990 FOR I%=1% TO K%
4000 READ R%,K1%,K2%
4010 FOR K%=K1% TO K2%
4020 SETDOT R%,K%
4030 NEXT K%
4040 NEXT I%
4050 RETURN 
4060 FOR I%=2% TO 6%
4070 PRINT CUR(I%,0%)TAB(40%);
4080 NEXT I% : PRINT C$;
4090 RETURN 
4100 E9%=100%
4110 GOSUB 990
4120 GET A$
4130 IF ASC(A$)<>13% 4120
4140 PRINT C$;
4150 RETURN 
4160 REM 
4170 REM ***************************
4180 REM == Om realtidssimulering ==
4190 REM ***************************
4200 REM 
4210 Q$="Information om realtidssim.  "
4220 GOSUB 810
4230 PRINT CUR(0%,32%)"Sid 1(1)"
4240 PRINT C$;
4250 PRINT "Med denna simuleringstyp kan man fr}n"
4260 PRINT "tangentbordet s{tta de logiska niv}erna"
4270 PRINT "i de olika noderna. P} sk{rmen visas"
4280 PRINT "nodnummer, logisk niv} samt den tangent"
4290 PRINT "som anv{nds f|r varje nod. F|r varje"
4300 PRINT "tryck p} tangenten byter noden logisk"
4310 PRINT "niv}."
4320 PRINT 
4330 PRINT "D} sk{rmen bara rymmer 36 noder, m}ste"
4340 PRINT "de intresanta noderna numreras mellan"
4350 PRINT "2 och 37."
4360 GOSUB 1170
4370 GOTO 290
4380 REM 
4390 REM *****************
4400 REM === Exempel 2 ===
4410 REM *****************
4420 REM 
4430 Q$="Exempel 2"
4440 GOSUB 810
4450 PRINT CUR(0%,30%)"Sid 1(3)"
4460 PRINT C$;
4470 PRINT "I detta exempel {r logiken i en pari-"
4480 PRINT "tetsgenerator-kontrollkrets demonstrerad";
4490 PRINT "Kretsen {r en TTL-krets och hetter 74180";
4500 PRINT "Noderna 2-9 {r dataing}ngar, 10 {r in-"
4510 PRINT "g}ng f|r og{mn paritet och 11 f|r j{mn."
4520 PRINT "Nod 24 {r utg}ngen f|r j{mn paritet och"
4530 PRINT "25 {r f|r oj{mn. Nedan f|ljer sannings- tabellen. (X=Utan betydelse)"
4540 PRINT 
4550 PRINT "       ING]NGAR       : UTG]NGAR"
4560 PRINT "------------------------------------"
4570 PRINT "Verklig    11    10   : 24     25"
4580 PRINT "paritet   J{mn  Oj{mn :J{mn   Oj{mn"
4590 PRINT "------------------------------------"
4600 PRINT " J{mn       H     L   :  H      L"
4610 PRINT " Oj{mn      H     L   :  L      H"
4620 PRINT " J{mn       L     H   :  L      H"
4630 PRINT " Oj{mn      L     H   :  H      L"
4640 PRINT "   X        H     H   :  L      L"
4650 PRINT "   X        L     L   :  H      H"
4660 GOSUB 1170
4670 PRINT CUR(0%,30%)"Sid 2(3)"
4680 RESTORE 5260
4690 FOR I%=7% TO 21%
4700 PRINT CUR(I%,3%)CHR$(151%)
4710 NEXT I%
4720 FOR I%=1% TO 14%
4730 READ R%,K%
4740 GOSUB 5500 : REM Rita grindar
4750 NEXT I%
4760 FOR I%=1% TO 22%
4770 READ R%,K%
4780 FOR J%=0% TO 2%
4790 SETDOT R%,K%+J% : NEXT J%
4800 NEXT I%
4810 FOR I%=1% TO 19%
4820 READ R%,K%
4830 FOR J%=0% TO 2%
4840 SETDOT R%+J%,K% : NEXT J%
4850 NEXT I%
4860 SETDOT 25%,67% : SETDOT 25%,68%
4870 SETDOT 37%,67% : SETDOT 37%,68%
4880 SETDOT 49%,67% : SETDOT 49%,68%
4890 SETDOT 61%,67% : SETDOT 61%,68%
4900 SETDOT 60%,59% : SETDOT 46%,60%
4910 SETDOT 40%,60%
4920 FOR I%=1% TO 14%
4930 READ K1%,K2%,R%
4940 FOR K%=K1% TO K2%
4950 SETDOT R%,K% : NEXT K%
4960 NEXT I%
4970 FOR I%=1% TO 9%
4980 READ R1%,R2%,K%
4990 FOR R%=R1% TO R2%
5000 SETDOT R%,K% : NEXT R%
5010 NEXT I%
5020 FOR I%=2% TO 9%
5030 PRINT CUR(I%*2%+3%,1%);I%
5040 NEXT I%
5050 PRINT CUR(20%,16%)CHR$(135%,49%,48%,151%)
5060 PRINT CUR(21%,16%)CHR$(135%,49%,49%,151%)
5070 PRINT CUR(12%,37%)CHR$(135%,50%,52%)
5080 PRINT CUR(16%,37%)CHR$(135%,50%,53%)
5090 PRINT CUR(8%,6%)"A"
5100 PRINT CUR(12%,6%)"B"
5110 PRINT CUR(16%,6%)"C"
5120 PRINT CUR(20%,6%)"D"
5130 PRINT CUR(10%,13%)"G"
5140 PRINT CUR(18%,13%)"F"
5150 PRINT CUR(14%,18%)"E"
5160 PRINT CUR(14%,23%)"H"
5170 PRINT CUR(8%,31%)"I"
5180 PRINT CUR(12%,31%)"J"
5190 PRINT CUR(16%,31%)"K"
5200 PRINT CUR(20%,31%)"L"
5210 PRINT CUR(10%,36%)"M"
5220 PRINT CUR(18%,36%)"N"
5230 PRINT C$;
5240 PRINT "A-E = XNOR  F-G = XOR    KOPPLINGSSCHEMA";
5250 PRINT "H-L = NAND  M-N = AND    ==============="
5260 DATA 21,11,33,11,45,11,57,11,27,71
5270 DATA 27,25,51,25,39,35,39,45,51,71
5280 DATA 21,61,33,61,45,61,57,61
5290 DATA 22,8,28,8,34,8,40,8,46,8,52,8
5300 DATA 58,8,64,8,61,17,49,17,37,17
5310 DATA 25,17,55,30,31,30,46,32,40,32
5320 DATA 28,68,34,68,52,68,58,68,55,76
5330 DATA 31,76
5340 DATA 24,16,36,16,48,16,60,16,42,40
5350 DATA 42,50,24,66,36,66,48,66,60,66
5360 DATA 25,19,34,19,49,19,58,19,25,68
5370 DATA 34,68,49,68,58,68,54,59
5380 REM Horisontella linjer
5390 DATA 19,24,28,19,24,34,19,24,52
5400 DATA 19,24,58,42,60,22,53,60,28
5410 DATA 56,60,34,41,44,43,51,55,43
5420 DATA 42,60,52,56,60,58,40,51,61
5430 DATA 40,60,64,55,59,61
5440 REM Vertikala linjer
5450 DATA 31,40,32,46,55,32,22,52,42
5460 DATA 28,41,53,45,50,53,54,64,53
5470 DATA 34,50,56,54,58,56,40,50,59
5480 GOSUB 1170
5490 GOTO 5580
5500 FOR J%=0% TO 4%
5510 SETDOT R%,J%+K%
5520 SETDOT R%+8%,J%+K%
5530 NEXT J%
5540 FOR J%=0% TO 8%
5550 SETDOT J%+R%,K%
5560 SETDOT J%+R%,K%+4%
5570 NEXT J% : RETURN 
5580 PRINT CUR(0%,30%)"Sid 3(3)"
5590 PRINT C$;
5600 PRINT "Kretsmatris"
5610 PRINT "==========="
5620 PRINT "Nr: Typ UT  I1  I2"TAB(20%)"Denna matris finns"
5630 PRINT " 1   6  12   2   3"TAB(20%)'p} filen "PARITET".'
5640 PRINT " 2   6  13   4   5"TAB(20%)"Prova denna fil med"
5650 PRINT " 3   6  14   6   7"TAB(20%)"realtidssimulering."
5660 PRINT " 4   6  15   8   9"
5670 PRINT " 5   6  18  16  17"TAB(20%)"Obs! Det finns ingen";
5680 PRINT " 6   5  17  12  13"TAB(20%)"signalmatris till"
5690 PRINT " 7   5  16  14  15"TAB(20%)"denna kretsmatris."
5700 PRINT " 8   2  19  18   -"
5710 PRINT " 9   2  20  18  11"
5720 PRINT "10   2  21  19  10"
5730 PRINT "11   2  22  10  18"
5740 PRINT "12   2  23  11  19"
5750 PRINT "13   1  24  20  21"
5760 PRINT "14   1  25  22  23"
5770 GOSUB 1170
5780 GOTO 290