1 REM Ins{nt av 1489
10 REM *************************
20 REM * MORSETEK.BAS          *
30 REM * Ver. 2.1 / 1981-10-24 *
40 REM * Kurt Steinrud (C)     *
50 REM *************************
60 REM *                       *
70 REM * F\RMEDLAT 10/81 "TOJ" *
80 REM ************************* 
90 REM 
100 ; CHR$(12%);TAB(12%)'MORSETECKEN' : ; TAB(12%)''
110 ; : ; 'Tryck p} tangent f|r |nskat tecken.'
120 ; : ; 'Datorn producerar d} morsetecknet i'
130 ; : ; '|nskad takt. Hastigheten kan varieras i'
140 ; : ; '5 olika steg. Vald hastighet kan {ndras'
150 ; : ; 'genom tryckning p} mellanslagstangenten.'
160 ; : ; : ; 'Tryck valfri tangent n{r Du {r klar '; : GET Z$ : ; CHR$(12%)
170 ; 'F|rutom alla bokst{ver och siffror'
180 ; 'klarar datorn f|ljande skiljetecken:'
190 ; : ; '. , : ; ? ! " / ( ) = - _ och';" ' "
200 ; : ; : ; 'DESSUTOM S[RSKILDA TECKEN','ERH]LLES MED'
210 ; 'Lystringstecken "ka" ......... "$"'
220 ; '"CH" ......................... ">"'
230 ; '"Tyskt Y" (^) ................ "^"'
240 ; '"Accent E" (@) ............... "@"'
250 ; '"Spanskt N" .................. "<"'
260 ; 'V{ntningstecken "as" ......... "&"'
270 ; 'Uppepningstecken "ii" ........ "%"'
280 ; 'N|dsignal "SOS" .............. "*"'
290 ; 'Sluttecken "ar" .............. "+"'
300 ; 'Avslutningstecken "sk" ....... "#"'
310 ; 
320 ; 'Programmet avbryts med "AVSLUTNINGS-'
330 ; 'TECKEN" eller med "CTRL" och "C".'
340 ; : ; 'Tryck valfri tangent f|r start '; : GET Z$
350 ; CHR$(12%)'V{lj hastighet (1/2/3/4/5) '; : INPUT H% : ; CHR$(12%)
360 IF H%<1% OR H%>5% THEN 350
370 ; 'Vald hastighet ='H% : ; 
380 ; ' ';
390 GET A$ : IF INP(56)=160 THEN 350
400 IF A$='$' THEN 490
410 IF A$='<' THEN 500
420 IF A$='>' THEN 510
430 IF A$='&' THEN 520
440 IF A$='*' THEN 530
450 IF A$='%' THEN 540
460 IF A$='+' THEN 550
470 IF A$='#' THEN 560
480 ; A$;' '; : GOTO 570
490 ; '"LYSTRING"' : GOTO 570
500 ; '"Spanskt N"  '; : GOTO 570
510 ; 'CH  '; : GOTO 570
520 ; '"V[NTA"  '; : GOTO 570
530 ; '"SOS"  '; : GOTO 570
540 ; ' "JAG UPPREPAR"  '; : GOTO 570
550 ; '"SLUT"  '; : GOTO 570
560 ; CHR$(12%)CUR(12%,15%)'KLART SLUT'
570 IF A$='A' OR A$='a' THEN 1200
580 IF A$='B' OR A$='b' THEN 1250
590 IF A$='C' OR A$='c' THEN 1340
600 IF A$='D' OR A$='d' THEN 1430
610 IF A$='E' OR A$='e' THEN 1500
620 IF A$='F' OR A$='f' THEN 1530
630 IF A$='G' OR A$='g' THEN 1620
640 IF A$='H' OR A$='h' THEN 1690
650 IF A$='I' OR A$='i' THEN 1780
660 IF A$='J' OR A$='j' THEN 1830
670 IF A$='K' OR A$='k' THEN 1920
680 IF A$='L' OR A$='l' THEN 1990
690 IF A$='M' OR A$='m' THEN 2080
700 IF A$='N' OR A$='n' THEN 2130
710 IF A$='O' OR A$='o' THEN 2180
720 IF A$='P' OR A$='p' THEN 2250
730 IF A$='Q' OR A$='q' THEN 2340
740 IF A$='R' OR A$='r' THEN 2430
750 IF A$='S' OR A$='s' THEN 2500
760 IF A$='T' OR A$='t' THEN 2570
770 IF A$='U' OR A$='u' THEN 2600
780 IF A$='V' OR A$='v' THEN 2670
790 IF A$='W' OR A$='w' THEN 2760
800 IF A$='X' OR A$='x' THEN 2830
810 IF A$='Y' OR A$='y' THEN 2920
820 IF A$='Z' OR A$='z' THEN 3010
830 IF A$=']' OR A$='}' THEN 3100
840 IF A$='[' OR A$='{' THEN 3210
850 IF A$='\' OR A$='|' THEN 3300
860 IF A$='@' OR A$='`' THEN 3390
870 IF A$='^' OR A$='~' THEN 3500
880 IF A$='1' THEN 3680
890 IF A$='2' THEN 3790
900 IF A$='3' THEN 3900
910 IF A$='4' THEN 4010
920 IF A$='5' THEN 4120
930 IF A$='6' THEN 4230
940 IF A$='7' THEN 4340
950 IF A$='8' THEN 4450
960 IF A$='9' THEN 4560
970 IF A$='0' THEN 4670
980 IF A$='.' THEN 4780
990 IF A$="," THEN 4910
1000 IF A$=':' THEN 5040
1010 IF A$=';' THEN 5170
1020 IF A$='?' THEN 5300
1030 IF A$='!' THEN 5430
1040 IF A$='"' THEN 5540
1050 IF A$='/' THEN 5670
1060 IF A$='(' OR A$=')' THEN 5780
1070 IF A$='=' THEN 5910
1080 IF A$='-' THEN 6020
1090 IF A$='_' THEN 6150
1100 IF A$='+' THEN 6280
1110 IF A$="'" THEN 6390
1120 IF A$='$' THEN 6520
1130 IF A$='>' THEN 3590
1140 IF A$='<' THEN 6630
1150 IF A$='&' THEN 6740
1160 IF A$='*' THEN 6850
1170 IF A$='%' THEN 7040
1180 IF A$='#' THEN 7140
1190 GOTO 380
1200 GOSUB 7330
1210 GOSUB 7370
1220 GOSUB 7470
1230 GOSUB 7560
1240 GOTO 390
1250 GOSUB 7330
1260 GOSUB 7560
1270 GOSUB 7470
1280 GOSUB 7370
1290 GOSUB 7470
1300 GOSUB 7370
1310 GOSUB 7470
1320 GOSUB 7370
1330 GOTO 390
1340 GOSUB 7330
1350 GOSUB 7560
1360 GOSUB 7470
1370 GOSUB 7370
1380 GOSUB 7470
1390 GOSUB 7560
1400 GOSUB 7470
1410 GOSUB 7370
1420 GOTO 390
1430 GOSUB 7330
1440 GOSUB 7560
1450 GOSUB 7470
1460 GOSUB 7370
1470 GOSUB 7470
1480 GOSUB 7370
1490 GOTO 390
1500 GOSUB 7330
1510 GOSUB 7370
1520 GOTO 390
1530 GOSUB 7330
1540 GOSUB 7370
1550 GOSUB 7470
1560 GOSUB 7370
1570 GOSUB 7470
1580 GOSUB 7560
1590 GOSUB 7470
1600 GOSUB 7370
1610 GOTO 390
1620 GOSUB 7330
1630 GOSUB 7560
1640 GOSUB 7470
1650 GOSUB 7560
1660 GOSUB 7470
1670 GOSUB 7370
1680 GOTO 390
1690 GOSUB 7330
1700 GOSUB 7370
1710 GOSUB 7470
1720 GOSUB 7370
1730 GOSUB 7470
1740 GOSUB 7370
1750 GOSUB 7470
1760 GOSUB 7370
1770 GOTO 390
1780 GOSUB 7330
1790 GOSUB 7370
1800 GOSUB 7470
1810 GOSUB 7370
1820 GOTO 390
1830 GOSUB 7330
1840 GOSUB 7370
1850 GOSUB 7470
1860 GOSUB 7560
1870 GOSUB 7470
1880 GOSUB 7560
1890 GOSUB 7470
1900 GOSUB 7560
1910 GOTO 390
1920 GOSUB 7330
1930 GOSUB 7560
1940 GOSUB 7470
1950 GOSUB 7370
1960 GOSUB 7470
1970 GOSUB 7560
1980 GOTO 390
1990 GOSUB 7330
2000 GOSUB 7370
2010 GOSUB 7470
2020 GOSUB 7560
2030 GOSUB 7470
2040 GOSUB 7370
2050 GOSUB 7470
2060 GOSUB 7370
2070 GOTO 390
2080 GOSUB 7330
2090 GOSUB 7560
2100 GOSUB 7470
2110 GOSUB 7560
2120 GOTO 390
2130 GOSUB 7330
2140 GOSUB 7560
2150 GOSUB 7470
2160 GOSUB 7370
2170 GOTO 390
2180 GOSUB 7330
2190 GOSUB 7560
2200 GOSUB 7470
2210 GOSUB 7560
2220 GOSUB 7470
2230 GOSUB 7560
2240 GOTO 390
2250 GOSUB 7330
2260 GOSUB 7370
2270 GOSUB 7470
2280 GOSUB 7560
2290 GOSUB 7470
2300 GOSUB 7560
2310 GOSUB 7470
2320 GOSUB 7370
2330 GOTO 390
2340 GOSUB 7330
2350 GOSUB 7560
2360 GOSUB 7470
2370 GOSUB 7560
2380 GOSUB 7470
2390 GOSUB 7370
2400 GOSUB 7470
2410 GOSUB 7560
2420 GOTO 390
2430 GOSUB 7330
2440 GOSUB 7370
2450 GOSUB 7470
2460 GOSUB 7560
2470 GOSUB 7470
2480 GOSUB 7370
2490 GOTO 390
2500 GOSUB 7330
2510 GOSUB 7370
2520 GOSUB 7470
2530 GOSUB 7370
2540 GOSUB 7470
2550 GOSUB 7370
2560 GOTO 390
2570 GOSUB 7330
2580 GOSUB 7560
2590 GOTO 390
2600 GOSUB 7330
2610 GOSUB 7370
2620 GOSUB 7470
2630 GOSUB 7370
2640 GOSUB 7470
2650 GOSUB 7560
2660 GOTO 390
2670 GOSUB 7330
2680 GOSUB 7370
2690 GOSUB 7470
2700 GOSUB 7370
2710 GOSUB 7470
2720 GOSUB 7370
2730 GOSUB 7470
2740 GOSUB 7560
2750 GOTO 390
2760 GOSUB 7330
2770 GOSUB 7370
2780 GOSUB 7470
2790 GOSUB 7560
2800 GOSUB 7470
2810 GOSUB 7560
2820 GOTO 390
2830 GOSUB 7330
2840 GOSUB 7560
2850 GOSUB 7470
2860 GOSUB 7370
2870 GOSUB 7470
2880 GOSUB 7370
2890 GOSUB 7470
2900 GOSUB 7560
2910 GOTO 390
2920 GOSUB 7330
2930 GOSUB 7560
2940 GOSUB 7470
2950 GOSUB 7370
2960 GOSUB 7470
2970 GOSUB 7560
2980 GOSUB 7470
2990 GOSUB 7560
3000 GOTO 390
3010 GOSUB 7330
3020 GOSUB 7560
3030 GOSUB 7470
3040 GOSUB 7560
3050 GOSUB 7470
3060 GOSUB 7370
3070 GOSUB 7470
3080 GOSUB 7370
3090 GOTO 390
3100 GOSUB 7330
3110 GOSUB 7370
3120 GOSUB 7470
3130 GOSUB 7560
3140 GOSUB 7470
3150 GOSUB 7560
3160 GOSUB 7470
3170 GOSUB 7370
3180 GOSUB 7470
3190 GOSUB 7560
3200 GOTO 390
3210 GOSUB 7330
3220 GOSUB 7370
3230 GOSUB 7470
3240 GOSUB 7560
3250 GOSUB 7470
3260 GOSUB 7370
3270 GOSUB 7470
3280 GOSUB 7560
3290 GOTO 390
3300 GOSUB 7330
3310 GOSUB 7560
3320 GOSUB 7470
3330 GOSUB 7560
3340 GOSUB 7470
3350 GOSUB 7560
3360 GOSUB 7470
3370 GOSUB 7370
3380 GOTO 390
3390 GOSUB 7330
3400 GOSUB 7370
3410 GOSUB 7470
3420 GOSUB 7370
3430 GOSUB 7470
3440 GOSUB 7560
3450 GOSUB 7470
3460 GOSUB 7370
3470 GOSUB 7470
3480 GOSUB 7370
3490 GOTO 390
3500 GOSUB 7330
3510 GOSUB 7370
3520 GOSUB 7470
3530 GOSUB 7370
3540 GOSUB 7470
3550 GOSUB 7560
3560 GOSUB 7470
3570 GOSUB 7560
3580 GOTO 390
3590 GOSUB 7330
3600 GOSUB 7560
3610 GOSUB 7470
3620 GOSUB 7560
3630 GOSUB 7470
3640 GOSUB 7560
3650 GOSUB 7470
3660 GOSUB 7560
3670 GOTO 390
3680 GOSUB 7330
3690 GOSUB 7370
3700 GOSUB 7470
3710 GOSUB 7560
3720 GOSUB 7470
3730 GOSUB 7560
3740 GOSUB 7470
3750 GOSUB 7560
3760 GOSUB 7470
3770 GOSUB 7560
3780 GOTO 390
3790 GOSUB 7330
3800 GOSUB 7370
3810 GOSUB 7470
3820 GOSUB 7370
3830 GOSUB 7470
3840 GOSUB 7560
3850 GOSUB 7470
3860 GOSUB 7560
3870 GOSUB 7470
3880 GOSUB 7560
3890 GOTO 390
3900 GOSUB 7330
3910 GOSUB 7370
3920 GOSUB 7470
3930 GOSUB 7370
3940 GOSUB 7470
3950 GOSUB 7370
3960 GOSUB 7470
3970 GOSUB 7560
3980 GOSUB 7470
3990 GOSUB 7560
4000 GOTO 390
4010 GOSUB 7330
4020 GOSUB 7370
4030 GOSUB 7470
4040 GOSUB 7370
4050 GOSUB 7470
4060 GOSUB 7370
4070 GOSUB 7470
4080 GOSUB 7370
4090 GOSUB 7470
4100 GOSUB 7560
4110 GOTO 390
4120 GOSUB 7330
4130 GOSUB 7370
4140 GOSUB 7470
4150 GOSUB 7370
4160 GOSUB 7470
4170 GOSUB 7370
4180 GOSUB 7470
4190 GOSUB 7370
4200 GOSUB 7470
4210 GOSUB 7370
4220 GOTO 390
4230 GOSUB 7330
4240 GOSUB 7560
4250 GOSUB 7470
4260 GOSUB 7370
4270 GOSUB 7470
4280 GOSUB 7370
4290 GOSUB 7470
4300 GOSUB 7370
4310 GOSUB 7470
4320 GOSUB 7370
4330 GOTO 390
4340 GOSUB 7330
4350 GOSUB 7560
4360 GOSUB 7470
4370 GOSUB 7560
4380 GOSUB 7470
4390 GOSUB 7370
4400 GOSUB 7470
4410 GOSUB 7370
4420 GOSUB 7470
4430 GOSUB 7370
4440 GOTO 390
4450 GOSUB 7330
4460 GOSUB 7560
4470 GOSUB 7470
4480 GOSUB 7560
4490 GOSUB 7470
4500 GOSUB 7560
4510 GOSUB 7470
4520 GOSUB 7370
4530 GOSUB 7470
4540 GOSUB 7370
4550 GOTO 390
4560 GOSUB 7330
4570 GOSUB 7560
4580 GOSUB 7470
4590 GOSUB 7560
4600 GOSUB 7470
4610 GOSUB 7560
4620 GOSUB 7470
4630 GOSUB 7560
4640 GOSUB 7470
4650 GOSUB 7370
4660 GOTO 390
4670 GOSUB 7330
4680 GOSUB 7560
4690 GOSUB 7470
4700 GOSUB 7560
4710 GOSUB 7470
4720 GOSUB 7560
4730 GOSUB 7470
4740 GOSUB 7560
4750 GOSUB 7470
4760 GOSUB 7560
4770 GOTO 390
4780 GOSUB 7330
4790 GOSUB 7370
4800 GOSUB 7470
4810 GOSUB 7560
4820 GOSUB 7470
4830 GOSUB 7370
4840 GOSUB 7470
4850 GOSUB 7560
4860 GOSUB 7470
4870 GOSUB 7370
4880 GOSUB 7470
4890 GOSUB 7560
4900 GOTO 390
4910 GOSUB 7330
4920 GOSUB 7560
4930 GOSUB 7470
4940 GOSUB 7560
4950 GOSUB 7470
4960 GOSUB 7370
4970 GOSUB 7470
4980 GOSUB 7370
4990 GOSUB 7470
5000 GOSUB 7560
5010 GOSUB 7470
5020 GOSUB 7560
5030 GOTO 390
5040 GOSUB 7330
5050 GOSUB 7560
5060 GOSUB 7470
5070 GOSUB 7560
5080 GOSUB 7470
5090 GOSUB 7560
5100 GOSUB 7470
5110 GOSUB 7370
5120 GOSUB 7470
5130 GOSUB 7370
5140 GOSUB 7470
5150 GOSUB 7370
5160 GOTO 390
5170 GOSUB 7330
5180 GOSUB 7560
5190 GOSUB 7470
5200 GOSUB 7370
5210 GOSUB 7470
5220 GOSUB 7560
5230 GOSUB 7470
5240 GOSUB 7370
5250 GOSUB 7470
5260 GOSUB 7560
5270 GOSUB 7470
5280 GOSUB 7370
5290 GOTO 390
5300 GOSUB 7330
5310 GOSUB 7370
5320 GOSUB 7470
5330 GOSUB 7370
5340 GOSUB 7470
5350 GOSUB 7560
5360 GOSUB 7470
5370 GOSUB 7560
5380 GOSUB 7470
5390 GOSUB 7370
5400 GOSUB 7470
5410 GOSUB 7370
5420 GOTO 390
5430 GOSUB 7330
5440 GOSUB 7370
5450 GOSUB 7470
5460 GOSUB 7370
5470 GOSUB 7470
5480 GOSUB 7560
5490 GOSUB 7470
5500 GOSUB 7560
5510 GOSUB 7470
5520 GOSUB 7370
5530 GOTO 390
5540 GOSUB 7330
5550 GOSUB 7370
5560 GOSUB 7470
5570 GOSUB 7560
5580 GOSUB 7470
5590 GOSUB 7370
5600 GOSUB 7470
5610 GOSUB 7370
5620 GOSUB 7470
5630 GOSUB 7560
5640 GOSUB 7470
5650 GOSUB 7370
5660 GOTO 390
5670 GOSUB 7330
5680 GOSUB 7560
5690 GOSUB 7470
5700 GOSUB 7370
5710 GOSUB 7470
5720 GOSUB 7370
5730 GOSUB 7470
5740 GOSUB 7560
5750 GOSUB 7470
5760 GOSUB 7370
5770 GOTO 390
5780 GOSUB 7330
5790 GOSUB 7560
5800 GOSUB 7470
5810 GOSUB 7370
5820 GOSUB 7470
5830 GOSUB 7560
5840 GOSUB 7470
5850 GOSUB 7560
5860 GOSUB 7470
5870 GOSUB 7370
5880 GOSUB 7470
5890 GOSUB 7560
5900 GOTO 390
5910 GOSUB 7330
5920 GOSUB 7560
5930 GOSUB 7470
5940 GOSUB 7370
5950 GOSUB 7470
5960 GOSUB 7370
5970 GOSUB 7470
5980 GOSUB 7370
5990 GOSUB 7470
6000 GOSUB 7560
6010 GOTO 390
6020 GOSUB 7330
6030 GOSUB 7560
6040 GOSUB 7470
6050 GOSUB 7370
6060 GOSUB 7470
6070 GOSUB 7370
6080 GOSUB 7470
6090 GOSUB 7370
6100 GOSUB 7470
6110 GOSUB 7370
6120 GOSUB 7470
6130 GOSUB 7560
6140 GOTO 390
6150 GOSUB 7330
6160 GOSUB 7370
6170 GOSUB 7470
6180 GOSUB 7370
6190 GOSUB 7470
6200 GOSUB 7560
6210 GOSUB 7470
6220 GOSUB 7560
6230 GOSUB 7470
6240 GOSUB 7370
6250 GOSUB 7470
6260 GOSUB 7560
6270 GOTO 390
6280 GOSUB 7330
6290 GOSUB 7370
6300 GOSUB 7470
6310 GOSUB 7560
6320 GOSUB 7470
6330 GOSUB 7370
6340 GOSUB 7470
6350 GOSUB 7560
6360 GOSUB 7470
6370 GOSUB 7370
6380 GOTO 390
6390 GOSUB 7330
6400 GOSUB 7370
6410 GOSUB 7470
6420 GOSUB 7560
6430 GOSUB 7470
6440 GOSUB 7560
6450 GOSUB 7470
6460 GOSUB 7560
6470 GOSUB 7470
6480 GOSUB 7560
6490 GOSUB 7470
6500 GOSUB 7370
6510 GOTO 390
6520 GOSUB 7330
6530 GOSUB 7560
6540 GOSUB 7470
6550 GOSUB 7370
6560 GOSUB 7470
6570 GOSUB 7560
6580 GOSUB 7470
6590 GOSUB 7370
6600 GOSUB 7470
6610 GOSUB 7560
6620 GOTO 390
6630 GOSUB 7330
6640 GOSUB 7560
6650 GOSUB 7470
6660 GOSUB 7560
6670 GOSUB 7470
6680 GOSUB 7370
6690 GOSUB 7470
6700 GOSUB 7560
6710 GOSUB 7470
6720 GOSUB 7560
6730 GOTO 390
6740 GOSUB 7330
6750 GOSUB 7370
6760 GOSUB 7470
6770 GOSUB 7560
6780 GOSUB 7470
6790 GOSUB 7370
6800 GOSUB 7470
6810 GOSUB 7370
6820 GOSUB 7470
6830 GOSUB 7370
6840 GOTO 390
6850 GOSUB 7330
6860 GOSUB 7370
6870 GOSUB 7470
6880 GOSUB 7370
6890 GOSUB 7470
6900 GOSUB 7370
6910 GOSUB 7470
6920 GOSUB 7560
6930 GOSUB 7470
6940 GOSUB 7560
6950 GOSUB 7470
6960 GOSUB 7560
6970 GOSUB 7470
6980 GOSUB 7370
6990 GOSUB 7470
7000 GOSUB 7370
7010 GOSUB 7470
7020 GOSUB 7370
7030 GOTO 390
7040 GOSUB 7330
7050 GOSUB 7370
7060 GOSUB 7470
7070 GOSUB 7370
7080 GOSUB 7470
7090 GOSUB 7470
7100 GOSUB 7370
7110 GOSUB 7470
7120 GOSUB 7370
7130 GOTO 390
7140 GOSUB 7330
7150 GOSUB 7370
7160 GOSUB 7470
7170 GOSUB 7370
7180 GOSUB 7470
7190 GOSUB 7370
7200 GOSUB 7470
7210 GOSUB 7560
7220 GOSUB 7470
7230 GOSUB 7370
7240 GOSUB 7470
7250 GOSUB 7560
7260 FOR T=0 TO 2000 : NEXT T : ; CHR$(12%)
7270 END 
7280 REM 
7290 REM ********* SUBRUTINER *********
7300 REM 
7310 REM * Paus f|re teckenstart *
7320 REM 
7330 FOR T=0 TO 500 : NEXT T : RETURN 
7340 REM 
7350 REM * Kort teckendel *
7360 REM 
7370 OUT 6,3
7380 IF H%=5% THEN FOR T=0 TO 75 : NEXT T : GOTO 7430
7390 IF H%=4% THEN FOR T=0 TO 90 : NEXT T : GOTO 7430
7400 IF H%=3% THEN FOR T=0 TO 105 : NEXT T : GOTO 7430
7410 IF H%=2% THEN FOR T=0 TO 120 : NEXT T : GOTO 7430
7420 IF H%=1% THEN FOR T=0 TO 135 : NEXT T
7430 OUT 6,0 : RETURN 
7440 REM 
7450 REM * Uppeh}ll mellan teckendel *
7460 REM 
7470 IF H%=5% THEN FOR T=0 TO 75 : NEXT T : GOTO 7520
7480 IF H%=4% THEN FOR T=0 TO 90 : NEXT T : GOTO 7520
7490 IF H%=3% THEN FOR T=0 TO 105 : NEXT T : GOTO 7520
7500 IF H%=2% THEN FOR T=0 TO 120 : NEXT T : GOTO 7520
7510 IF H%=1% THEN FOR T=0 TO 135 : NEXT T
7520 RETURN 
7530 REM 
7540 REM * L}ng teckendel
7550 REM 
7560 OUT 6,3
7570 IF H%=5% THEN FOR T=0 TO 225 : NEXT T : GOTO 7620
7580 IF H%=4% THEN FOR T=0 TO 270 : NEXT T : GOTO 7620
7590 IF H%=3% THEN FOR T=0 TO 315 : NEXT T : GOTO 7620
7600 IF H%=2% THEN FOR T=0 TO 360 : NEXT T : GOTO 7620
7610 IF H%=1% THEN FOR T=0 TO 390 : NEXT T
7620 OUT 6,0 : RETURN