Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)
30 K=136;L=45;X=48;Y=48;Z=48
40 F.I=1 TO 9
45 @(I)=10976+(I*64)-64
48 N.I
50 F.I=10 TO 30
54 @(I)=11552+((I-9)*32)-32
56 N.I
60 @(35)=@(7)
65 OUTC.12;U=HEX(DDD)
70 P."";P.;P.;
75 GOS.4000
80 P.;P.;
81 P."PSE AS...";F.I=1TO20;P.;N.I
85 P."Y24KG";P.;
88 F.I=10976 TO 12288
89 POKEI,0;N.I
90 OUTC.12
100 P."PARAMETER-TEMPO-......1";P.;
105 P."...-ZEICHENABSTAND-..11";P.;
110 P."SCHREIBMASCHINE.......2";P.;
120 P."TEXT EIN/AUS..........3";P.;
130 P."TEXTE SPEICHERN.......4";P.;
140 P."TEXTE AUSLESEN........5";P.;
150 P."QSO/CONTEST...........6";P.;
200 INP."WAHL KENNZIFFER"A
201 IF A=11 GOSUB4670
202 IF A=11G.90
203 IF A=0 STOP
204 IF A>6 GOTO200
205 OUTC.12
210 GOTO(A*400+300)
700 GOS.4500
710 G.90
1100 OUTC.12
1105 P."MORSE-SCHREIBMASCHINE";
1106 P."*********************";
1107 P.;
1110 C=INC.;OUTC.C
1120 IF C#13 GOTO 1150
1130 IF A=2 GOTO 90
1135 GOTO (A*400+300)
1150 IF C<44 GOSUB 5300
1160 IF C>90 GOSUB 5300
1170 CALL(C*4+2980)
1210 G.1110
1500 P."TEXT E/A";P."********";P.;P.;
1504 O=123;GOSUB 4605
1510 P.;P.;U=@(6)
1515 O$(U);G.1550
1530 I$(U)
1537 I=INC.
1540 GOS.4000
1550 P.;P.;GOSUB3500
1560 P.;GOTO(1540-F)
1900 OUTC.12;P."TEXTE SPEICHERN";
1901 P."***************";
1903 GOS.5600
1960 GOS.5500
1980 INP."EINGABE TEXT 1 ODER 2?"D
1985 P.;
1990 IF D<1GOTO90
2000 IFD>2 GOTO1980
2010 P.;INP."HAND(1) O.AUTO.(2)?"H
2015 IF H>2 GOTO 2010
2020 GOTO(H*50+1980)
2030 GOS.6000
2040 GOS.3500
2050 IF F=0 GOTO 2300
2060 IF F=10 GOTO 1900
2080 OUTC.12
2100 P."BEI DER LETZTEN EING.WURDEN";P.;
2102 P."FOLG.ZEICHEN VERWENDET:";P."___________________________
2103 O$(@(35));P.;
2104 P."__________________________";P.;
2105 P."WOLLEN SIE DEN ZEICHENVORRAT";P.;P."AENDERN ?";P.;
2107 P."________________________";P.;
2110 P."ALLE BUCHSTABEN....1";P.;
2115 P."ALLE ZIFFERN.......2";P.;
2120 P."BU/ZI GEMISCHT.....3";P.;
2125 P."NACH VORGABE.......4";P.;
2127 P."NICHT VERAENDERN...5";P.;P.;
2130 INP."KENNZAHL"E
2135 IFE=5G.2190
2140 J=0
2150 IFE<1 GOTO90
2155 IF E<4 GOSUB 6500
2160 IF E>5 GOTO2130
2162 IFE<4 GOTO 2170
2163 OUTC.12
2165 P."WELCHE ZEICHEN WOLLEN SIE VERWENDEN?";P.;
2170 P."ZEICHEN,DIE HAEUFIGER VORKOMMEN";P.;
2175 P."SOLLEN,SIND ZUSAETZL. EINZUG.!";P.;
2177 P."WENN NICHT >ENT<";P.;
2180 I$(@(35)+J)
2190 F.I=@(35)TO @(35)+128
2195 H=PEEK(I)
2200 IFH=0G.2210
2202 P=0
2205 N.I
2210 H=I-@(35)
2212 O=@(D*10)
2214 F.I=0 TO 9
2216 POKE(O+(I*32)),0
2218 N.I
2220 OUTC.12;INP."WIEVIELE GRUPPEN ?"N;
2221 P.;P.;
2222 P."DOPPELZEICHEN (J/N)?";V=INC.;IFV=74 P=1
2223 P.;P.;IF N<1 GOSUB3500
2225 F.I=1 TO 10
2230 F.Q=1 TO (5-3*P)
2235 F.J=1 TO 5
2236 S=P
2237 M=RND(H)-1
2238 C=PEEK(@(35)+M)
2240 POKE(O),C
2241 O=O+1;OUTC.C
2243 IF S=1 S=0;GOTO2238
2245 N.J
2250 C=32;POKE(O),C;OUTC.C
2252 O=O+1
2253 N=N-1;IF N=0 I=10;G.2257
2255 N.Q
2257 IF N=0 POKE(O),45;O=O+2
2259 POKE(O-1),0;OUTC.13
2260 O=O+2
2262 IFP=1O=O+8
2265 N.I
2270 GOS.5500
2280 GOS.3500
2285 IF F=10 OUTC.12;GOTO1900
2288 IF F=0 GOTO 2300
2290 G.90
2300 O=123;GOSUB 4605
2310 OUTC.12
2320 P."TEXTE AUSLESEN";
2330 P."**************";
2335 GOSUB 5600
2340 GOS.5500
2350 INP."TEXT 1 ODER 2 ?"D
2351 IF D<1 GOTO 90
2352 IFD>2 GOTO2350
2355 D=D*10
2357 CALL(3160)
2358 GOS.5600
2360 F.H=0 TO 9
2380 U=@(D+H)
2390 GOS.4000
2400 N.H;G.2420
2420 GOSUB 3500
2425 P.;
2430 IF F=0 GOTO2357
2440 IF F=10 OUTC.12;GOTO1900
2700 IF D=83 GOTO3000
2705 P."QSO/CONTEST";P."***********";P.;
2710 P."EINLESEN A-E......1";P.;
2720 P."AUSLESEN A-E......2";P.;
2730 P."AUSL. AB,CD,E.....3";P.;
2740 P."AENDERN...........4";P.;
2750 O=100;GOSUB4605
2790 INP."KENNZIFFER"E
2791 OUTC.12
2793 IF E>4 GOTO2790
2794 IF E<1 G.90
2795 GOTO (E*200+2600)
2800 P."A)",
2805 I$(@(1));P.;
2806 GOS.5200
2810 P."B)",
2815 I$(@(2));P.;
2816 GOS.5200
2820 P."C)",
2825 I$(@(3));P.;
2826 GOS.5200
2830 P."D)",
2835 I$(@(4));P.;
2836 GOS.5200
2840 P."E)",
2845 I$(@(5));P.;
2900 P.;P.;P.;P.;P.;P.;P.;P.;P.;
2910 IF E=1 GOTO2700
3000 P."A)",
3001 O$(@(1));P.;
3002 P.;P."B)",
3003 O$(@(2));P.;
3004 P.;P."C)",
3005 O$(@(3));P.;
3006 P.;P."D)",
3007 O$(@(4));P.;
3008 P.;P."E)",
3009 O$(@(5));P.;
3010 P.;P.;P.;P." TEMPO:",T;
3012 GOS.4700
3015 IF E=3 GOTO3100
3016 IF E=4 GOTO 3430
3018 P.;P."AUSLESEN A-E:";P.;
3019 D=INC.;OUTC.D;P.")",
3020 IF D=83 GOTO 1100
3022 IF D=81 GOTO 4760
3023 IF D=82X=48;Y=48;Z=48
3025 IF D=77 GOTO 4760
3026 IF D=87 N=D;D=W
3027 W=D
3028 IFD=80 GOSUB4500
3029 IF D=80 G.4760
3030 IF D<65 GOTO3000
3040 IF D>69 GOTO3000
3045 IF D=69 U=@(5);GOSUB 4000
3047 IF D>66 GOTO3070
3050 IF D=65 U=@(1);GOSUB 4000
3055 IF E=3 D=66
3060 IF D=66 U=@(2);GOSUB 4000
3065 IF D<67 GOTO3100
3070 IF D=67 U=@(3);GOSUB 4000
3072 IF D=69 GOTO3100
3075 IF E=3 D=68
3080 IF D=68 U=@(4);GOSUB 4000
3100 P."AUSLESEN:";P.;GOTO3019
3200 P."AUSLESEN AB,CD,E:";P.;GOTO3000
3400 OUTC.12;G.3000
3420 P."AENDERN A-E";P.;
3422 GOS.4760
3425 OUTC.12
3430 P."WELCHE ZEILE(A-E)? ",
3440 P.;P.;D=INC.
3445 IF D<65 GOTO3430
3450 IF D=81 GOTO 3422
3455 IF D>69 GOTO3430
3460 GOTO (D*10+2150)
3500 P.;P."WIE FORTSETZUNG?";
3505 P."EINGABE W,E,M,S ODER P : ",
3510 B=INC.;OUTC.B;
3525 P.;F=0
3530 IF B=83 GOTO 1100
3540 IF B=77 GOTO 90
3550 IF B=80 GOSUB4500
3560 IF B=66 STOP
3570 IF B=87 F=0;RETURN
3580 IF B=69 F=10;RETURN
3583 IF A=4A=5
3585 IF B=80 G.(A*400+300)
3599 P.;
3600 P."FEHLERHAFTE EINGABE!";GOTO 3505
3605 OUTC.12;RETURN
3900 OUTC.12;I$(@(1))
4000 POKE3084,0
4010 F.I=0 TO 255
4015 IF PEEK(3084)#0 G.6700
4020 C=PEEK(U+I);IFC=0GOTO4080
4025 IF C=35 G.4010
4030 IFC=32F.J=1TOK;N.J;OUTC.C;G.4070
4035 IF C=42 GOTO 5000
4036 IF C<44 GOSUB 5300
4037 IF C>90 GOSUB 5300
4040 OUTC.C;CALL(C*4+2980);F.J=0 TO L;N.J
4070 N.I
4080 P.;RETURN
4500 IF A#6 O=132;G.4600
4550 O=100;P.;
4590 P.;
4600 INP."TEMPO ZEICH./MIN.(30-180)"T
4602 IF T<30G.4590
4603 IF T>180 G.4590
4605 M=T*O;M=M/100
4610 M=(7000-(M/4*M/4))/M
4615 M=M-6
4620 K=(M*57-2700)/12
4625 IF L>=800 G.4660
4630 L=K/4
4640 IF T>100 L=0
4650 IF T>130 K=0
4660 POKE3113,M
4665 RETURN
4670 OUTC.12
4675 INP."VERL.DER ZEICHENABST.(IN SEC.)"L
4680 IF L>50 P."ZU GROSS";P.;G.4675
4685 IF L<0 G.4645
4690 L=L*800
4695 RETURN
4700 POKE HEX(1B),0
4710 POKE HEX(1C),HEX(EF)
4720 POKE HEX(1D),0
4730 POKE HEX(1E),HEX(F0)
4740 CALL HEX(F6F5)
4750 RETURN
4760 POKE HEX(1B),0
4770 POKE HEX(1C),HEX(EC)
4780 POKE HEX(1D),0
4790 POKE HEX(1E),HEX(F0)
4800 CALL HEX(F6F5)
4805 OUTC.12
4810 IF D=81 GOTO 2700
4815 IFD=80 GOTO 3000
4820 G.90
5000 IF N=87 GOTO5050
5010 X=X+1;IF X=58 X=48;Y=Y+1
5020 IFY=58 Y=48;Z=Z+1
5030 IFZ=58 Z=48;Y=48;X=48
5050 CALL(Z*4+2980)
5055 GOS.5100
5060 CALL(Y*4+2980)
5065 GOS.5100
5070 CALL(X*4+2980)
5080 I=I+2;P." ",
5086 OUTC.Z;OUTC.Y;OUTC.X;P." ",
5090 N=0;G.4070
5100 F.J=1TOK
5105 N.J
5110 RETURN
5200 IF E=4 GOTO3430
5210 RETURN
5300 P.;P." CODE UNBEKANNT",
5310 OUTC.C;C=63;P.;
5320 RETURN
5400 F=INC.;OUTC.F
5410 IF F#74 GOTO 5430
5420 F=10;RETURN
5430 IF F#78 GOTO 5400
5440 F=1;RETURN
5500 OUTC.12
5510 P."INHALT DER TEXTSPEICHER:";P.;
5512 P."TEMPO:",T;P.;
5515 P."TEXT 1:";P.;
5520 F.I=10TO 30
5530 IF I=20 P.;P."TEXT 2:";P.;
5540 O$(@(I));P.;
5550 N.I
5560 RETURN
5600 F.I=0 TO 300
5610 N.I
5620 RETURN
6000 OUTC.12;P."TEXT",D;P.;
6020 IF D=1 V=10
6030 IF D=2 V=20
6050 F.I=V TO V+9
6055 P.;
6070 I$(@(I))
6080 P.;
6090 N.I
6099 RETURN
6500 J=0
6505 F.I=48 TO 90
6510 IFE=1 I=65;E=0
6520 IF E=2 GOTO6610
6530 IF I=58 I=65
6540 POKE(@(35)+J),I
6545 J=J+1
6600 N.I
6605 POKE(@(35)+J),0
6607 OUTC.12;P."FOLG.ZEICHEN WERDEN VERWENDET";P."_________";P.;
6608 O$(@(35));P.;
6609 P."_________";RETURN
6610 IF I>57 GOTO6605
6620 G.6540
6700 POKE3084,0;IF A=6 G.3018
6710 O=INC.;G.4020
