S C64 <dg8fz @WW $907061DG8FZ #0 !!C64-software-oldy's on tour!!
hello, 
the following mails are oldy's but goody's.

you might have some of them in your bbs since 1982,
but many boxes were born later.
bid's are from the last replay,
hoping to beware doubbeling in non-livetime-systems.
all of them are ham-specific eaven if you wont see it by there names,
but u can read it in the beginning of each mail.
were normal digilog-language is german but you'll see by the
ham specific vocabluary what the text means.

73's de dg8fz @ db0gv.deu.eu
***end
s C64 <dg8fz @ww $061901db0gv #0 C64: ABKUERZER.LIST (COMPESSOR)
abkuerzer.list

dieses programm dient der verkuerzung von programmlistings zu
uebertragungszwecken.
THIS PROGRAMM TRNASFERS ALL BASIC-STATMENTS TO SHORT TYPE.
//w off
//wprg abkuerzer.list
informationen zur uebertragung stehen uebrigens in der uraltdatei : lload.inst

RUECKWANDLUNG MITTELS 'LLOAD'

CHANGE TO RUNABLE CODE BY USING 'LLOAD'


100 REM" ?C�(147):P$="ABKUERZER":S$="S:"+P$:O�1,8,15,S$:CL�1:S�P$,8:V�P$,8
110 :
120 AN=56:D�L$(AN+2),S$(AN+2):RE�:F�I=1TOAN:R�L$(I):R�S$(I):N�I
130 ?C�(14)"�        (C) 1988 �RISTAL-�ALACE         �"
140 ?"       �UBLIC - �OMAIN - �OFTWARE       �"
150 ?"�IESES �ROGRAMM DIENT DER �ERKUERZUNG"
160 ?"ZU UEBERTRAGENER �ASIC-�ISTINGS,"
170 ?"DA 1. '�����' NUR 80�EICHEN/�EILE KANN"
180 ?"   2. �EBERTRAGUNGSZEIT KOSTBAR IST."
190 INPUT"FILENAME,FILETYP";N$,T$
200 T$=LE�(T$,1):N$=LE�(N$,15):IFN�((T$="S")+(T$="U")+(T$="P"))T�190
210 R$=N$+","+T$
220 :
230 W$="@:"+LE�(">"+R$,17)
240 O�2,8,2,R$+",R":O�3,8,3,W$+",W"
250 :
260 F$="":F�I=1TO255:GET#2,G$:F$=F$+G$:S=ST:I=I-999*((G$=C�(13))-S):N�I
270 IF S<>0 THEN470
280 IF LEN(F$)>20T�320
290 :
300 ?F$;:P�3,F$;:G�260
310 :
320 IFV�(LE�(F$,1))<1T�300
330 GF=0:F�I=3TOLEN(F$)-3
340 IFM�(F$,I,1)=C�(34)T�GF=GF+1:IFGF=2T�GF=0:REM GAENSEFUESSCHEN-MODUS
350 IFGF=1T� 410 :REM IN GAENSEFUESSCHEN IST NICHTS ZUM ABKUERZEN
360 IFM�(F$,I,3)="REM"T�I=1000:G�410
370 IFM�(F$,I,4)="DATA"T�I=1000:G�410
380 FORII=1TOAN
390 IFM�(F$,I,(LEN(L$(II))))=L$(II)T� GO� 430
400 NEXTII
410 NEXTI:GOTO300
420 :
430 L=I-1:R=I+LEN(L$(II))
440 ?F$;:F$=LE�(F$,L)+S$(II)+M�(F$,R,255)
450 I=I-1+LEN(S$(II)):II=AN:RE�
460 :
470 CL�2:CL�3:E�
480 O�1,8,15,"S:"+R$:CL�1
490 O�1,8,15,"R:"+R$+"="W$:CL�1:E�
500 :
510 DATA ABS,"A�",AND,"A�",ASC,"A�"
520 DATA ATN,"A�",CHR$,"C�",CLOSE,"CL�"
530 DATA CLR,"C�",CMD,"C�",CONT,"C�"
540 DATA DATA,"D�",DEF,"D�",DIM,"D�"
550 DATA END,"E�",EXP,"E�",FOR,"F�"
560 DATA FREE,"F�",GET#,GET#,GET,"G�",GOSUB,"GO�"
570 DATA GOTO,"G�",INPUT#,"I�",LET,"L�"
580 DATA LEFT$,"LE�",LIST,"L�",LOAD,"L�"
590 DATA MID$,"M�",NEXT,"N�",NOT,"N�"
600 DATA OPEN,"O�",PEEK,"P�",POKE,"P�"
610 DATA PRINT#,"P�",PRINT,"?",READ,"R�"
620 DATA RESTORE,"RE�",RETURN,"RE�",RIGHT$,"R�"
630 DATA RND,"R�",RUN,"R�",SAVE,"S�"
640 DATA SGN,"S�",SIN,"S�",SPC(,"S�"
650 DATA SQR,"S�",STEP,"ST�",STOP,"S�"
660 DATA STR$,"ST�",SYS,"S�",TAB,"T�"
670 DATA THEN,"T�",USR,"U�",VAL,"V�"
680 DATA VERIFY,"V�",WAIT,"W�",ENDE,ENDE,ENDE,ENDE,ENDE,ENDE

//WPRG OFF
�
***END
S C64 <DG8FZ @WW $DB0SAO007325 #0 C64: MINI-LOG.LIST
//w off
//wprg minilog.list
transfer the  .list file to the c64-basic-programm via 'lload'  !


0 REM"INFO FUER ERSTBENUTZER            :
1 REM"ALS BENUTZERCALL EIGENES                RUFZEICHEN EINTRAGEN    !
2 REM"(STEHT 5 ZEILEN WEITER UNTEN)           :::::::::::::::::::::::::::::
3 REM"UND ALLE DATAZEILEN                         ���� ����
4 REM"AUSSER DER, IN DER ENDE STEHT           ������
5 REM"         LOESCHEN !                              ��������
6 REM"VIEL SPASS + 55 73 DE DG8FZ       :
7 BENUTZERCALL$="F-58"                  :
8 GERAETENUMMER=8 : REM"                  8=FLOPPY / 1=DATASETTE
9 POKE53280,1:POKE53281,0
10 C$="  AFU-KARTEI (C) DG8FZ  �  USR : "+BE$
11 IFLEN(C$)<42 THEN C$=C$+" ":GOTO11
12 C$=CHR$(142)+"�"+C$:PRINTC$
13 PRINT" �AT SAVING WORK"
14 PRINT"  1 � SUCHEN"
15 PRINT"  2 � EINGEBEN"
16 PRINT"  3 � EDDITIEREN"
17 PRINT"  4 � SPEICHEN+ENDE"
18 GETF$
19 IF F$="1"THEN25
20 IF F$="2"THEN39
21 IF F$="3"THEN59
22 IF F$="4"THENPOKE53281,4:GOTO89
23 GOTO18
24 :
25 PRINTCHR$(142)"�   AFU-KARTEI (C) DG8FZ    �     SUCHEN  "
26 INPUT"SUCHBEGRIFF";SU$:PRINT:TI$="000000"
27 RESTORE:P=0:FORI=1TO1000
28 READ DA$
29 IF DA$="ENDE"THENPRINT"DATEI-ENDE.    BITTE TASTE DRUECKEN.":I=5000:GOTO34
30 L=LEN(DA$)-LEN(SU$):IFL<1THEN GOTO 34
31 FORII=1TOLEN(DA$)-LEN(SU$)+1
32 IF MID$(DA$,II,LEN(SU$))=SU$ THEN P=P+1:GOSUB38:PRINTDA:PRINTDA$:GOTO34
33 NEXTII
34 NEXTI:PRINT"SUCHZEIT :"TI$""
35 IF P=0 THEN PRINT"SUCHBEGRIFF NICHT VORHANDEN"
36 POKE198,0:WAIT198,1
37 GOTO7
38 DA=PEEK(63)+256*PEEK(64):RETURN:REM  AKTUELLE DATAZEILE
39 REM NEUE   DATA-ZEILE BILDEN
40 POKE198,0:SA=PEEK(57)+256*PEEK(58)
41 PRINTCHR$(142)"�  AFU-KARTEI (C) DG8FZ   �    EINGEBEN   "
42 RESTORE:FORI=1TO1000
43 READDA$
44 IF DA$="ENDE"THENII=I:I=5000
45 NEXTI
46 RESTORE:FORI=1TOII
47 READDA$
48 NEXTI
49 GOSUB38
50 F$="":PRINT"KEIN ZEICHEN  := HAUPTMENUE"
51 PRINT"MAXIMAL 70 ZEICHEN EINGEBEN"
52 PRINT""F$;:FORI=1TOLEN(F$)+2:PRINT"�";:NEXTI:INPUTF$
53 IF LEN(F$)<2 THEN 7
54 PR$=MID$(STR$(DA),2,5)+"D�"+CHR$(34)+F$+CHR$(34)+CHR$(13)
55 IF LEN(PR$)>81 THEN 51
56 PR$=PR$+MID$(STR$(DA+1),2,5)+"DATAENDE"+CHR$(13)
57 GOTO84:REM ZEILEN BILDEN
58 :
59 POKE198,0:SA=PEEK(57)+256*PEEK(58):REM  AKTUELLE ZEILENUMMER
60 A$=CHR$(142)+"�  AFU-KARTEI (C) DG8FZ   �   EDDITIEREN  ":PRINTA$
61 PRINT"EINTRAGS-NUMMER EINGEBEN. 0:= HAUPTMENUE"
62 INPUT"  0���";I
63 IFI<1THEN7
64 RESTORE:P=0:FORII=1TO1000
65 READDA$
66 IFDA$="ENDE"THENII=5000:GOTO69
67 GOSUB38
68 IFDA=ITHENP=1:F$=DA$:II=5000
69 NEXTII
70 IFP=0THEN59
71 FORII=1TO3:PRINTA$
72 PRINT"KEIN ZEICHEN  := STREICHEN "
73 PRINT"MAXIMAL 70 ZEICHEN EINGEBEN"
74 PRINT"DU MUSST NOCH"4-II"*  RETURN � DRUECKEN"
75 PRINT""F$;:FORI=1TOLEN(F$)+2:PRINT"�";:NEXTI:INPUTF$:NEXTII
76 IF LEN(F$)<2 THEN 79
77 PR$=MID$(STR$(DA),2,5)+"D�"+CHR$(34)+F$+CHR$(34)+CHR$(13):IFLEN(PR$)>81THEN71
78 GOTO80
79 PR$=PR$+MID$(STR$(DA),2,5)+CHR$(13)
80 GOTO84:REM ZEILEN BILDEN
81 :
82 REM ZEILEN BILDEN
83 REM SA=PEEK(57)+256*PEEK(58)
84 PRINT"�";
85 PRINTPR$:REM AM PRG.- TEXT SCHEIBEN
86 PRINT"GOTO"SA""
87 POKE198,9:FORX=631TO631+9:POKEX,13:NEXTX:SYS42115:REM END OHNE READY
88 :
89 IF NOT GE=1 THEN 98 : REM FOPPY
90 PRINTC$:PRINT"        SPEICHERN AUF CASSETTE          �"
91 PRINT"BITTE RICHTIGE KASSETTE EINLEGEN"
92 PRINT"      ��������"
93 PRINT"ZURUECKSPULEN UND DARAN DENKEN, DASS"
94 PRINT"�������������"
95 PRINT"DIE DATASETTE NICHT DARAUF ACHTET WAS   SIE LOESCHT !"
96 PRINT"ALLES OK ?":PRINT"DANN  RETURN � !"
97 GET F$:IF NOT F$=CHR$(13) THEN 97
98 P$="AFU-KARTEI "+BE$:S$="S:"+P$
99 IF NOT GE=1 THEN OPEN1,GE,15,S$:CLOSE1
100 SAVE P$ ,GE:PRINT:�=0
101 IF NOT GE=1 THEN OPEN1,GE,15:INPUT#1,A,B$,C,D:CLOSE1:PRINTA;B$;C;D
102 IFA<>0THENPRINT"BITTE BEHEBEN":POKE198,0:WAIT198,1:GOTO98
103 PRINT" E�NDE/W�EITER"
104 GETF$
105 IF F$="E"THENPOKE53280,0:POKE53281,0:PRINT"�TSCHUESS..":SYS42115
106 IF F$="W"THEN7
107 GOTO104
108 :
109 REM DIESES PROGRAMM DARF NUR KOSTENLOS WEITERGEGEBEN WERDEN !
110 REM================================
111 DATA"DB0UF 600 FELDBERG-TAUNUS 57DB"
112 DATA"DB0ZH 625 HEIDELBERG"
113 DATA"DB0YS 650 SIEGEN"
114 DATA"675"
115 DATA"DB0XU KNUELL 700"
116 DATA"DB0XK KOBLENZ 725"
117 DATA"750 FRANKFURT STADT"
118 DATA"DB0VB BAD KOENIG 775"
119 DATA"DB0VD MELIBOKUS 799"
120 REM================================
121 DATAENDE

73 DE DG8FZ @ DB0GV
//WPRG OFF
***END
S C64 <DG8FZ @WW $DB0SAO007326 #0 C64: R/C-MESS.LIST
//w off
//wprg r/c-mess.list
to transfer the  .list file to the c64-basic-programm use 'lload'  !


0 GOTO 43
1 "
2 P$="R/C-MESSGERAET":S$="S:"+P$:OPEN1,8,15,"I":PRINT#1,S$:CLOSE1:SAVEP$,8
3 "
4 ***  NACH:        64-ER          ***
5 ***         11.1985  SEITE 129   ***
6 ***  VON :   DG8FZ 20.11.85      ***
7 ***  AUF :        C=64           ***
8 ***  FUER: ALLE INTERRESSIERTEN  ***
9 ***               GRATIS         ***
10 "
11 "      ������������C=0.223MIKROFARAT
12 "  ���������      �R=38.3KOHM +/-1%
13 "  �   � � �      �  ODER GENAUER !!
14 "  �   � R �      �
15 "  �   �*� � ������ _AN DER MIT *
16 "  �   � � � �    �  MARKIERTEN
17 "  �  R_/===/ -C  �  STELLE ZUM
18 "  �    �   �     �  ABGLEICH
19 "  �    �   �     �  KURZ-SCHLIESSEN
20 "  �    �   O+    �  UND PROGRAMM
21 "  �    � MESS-   �  NACHEICHEN !!!
22 "  �    � OBJEKT  �  (R=EICHWIDERST.
23 "  �    �   O-    �  UND C=??? )
24 "  ���� ����� �����
25 "  �  �     � �      MATERIALPREIS
26 "  �  1 1 1 1 1      EINSCLIESSLICH
27 "  �  4 3 2 1 0 9 8  STECKER
28 "  � ��������������� SCHALTER UND
29 "  � �    74121    � IC-SOCKEL
30 "  � ��            � CA 14 DM
31 "  � �=TTL-MONOFLOP�
32 "  � ���������������
33 "  �  1 2 3 4 5 6 7
34 "  �      ��� � � �
35 "  ��R���� ����������������
36 "  �3K3  ������ �����     �
37 "  �     �      �   �     �
38 " 2^    8^     6^  B^    1^
39 " +5V   PC2   CNT2 FLAG2 MASSE
40 "
41 "   AM  C=64 USER PORT
42 :
43 R= 38300    :REM REFFERENZWIDERSTAND    ************************************
44 C= 219.1E-9 :REM  .//. - KONDENSATOR    ************************************
45 REM DIESE WERTE AUSMESSEN (S.O.) !!! +++JE GENAUER BEKANNT :  DESTO BESSER+++
46 :
47 POKE53280,0:POKE53281,0:PRINTCHR$(14)
48 PRINTCHR$(147)CHR$(5)CHR$(18)"�APAZITAETS- UND �IEDERSTANDS-�ESSGERAET"
49 PRINTCHR$(19):PRINT:PRINT:PRINT,,CHR$(28)" �APAZITAETSMESSUNG"
50 PRINT,,CHR$(158)" 50P�ARAT - 1500 U�"
51 B=0
52 PRINT:PRINT:PRINT,,CHR$(5)" �ITTE DEN  �CHALTER"
53 PRINT,,"  AM �ESSZUSATZ IN"
54 PRINT,,"    �TELLUNG 'C'"
55 PRINT,,"      BRINGEN !"
56 GOTO121
57 PRINTCHR$(19):PRINT:PRINT:PRINT,,CHR$(156)"�IEDERSTANDSMESSUNG"
58 PRINT,,CHR$(158)"500�HM-100�ILO-�HM "
59 B=2
60 PRINT:PRINT:PRINT,,CHR$(5)" �ITTE DEN  �CHALTER"
61 PRINT,,"  AM �ESSZUSATZ IN"
62 PRINT,,"    �TELLUNG 'R'"
63 REM PRINT,,"      BRINGEN !"
64 GOTO55
65 :
66 REM******************
67 REM ANZEIGE + MENUE
68 REM******************
69 POKE 211,21:POKE 214,17:SYS58732:REM KURSOR
70 PRINTCHR$(5);W$;CHR$(149):REM AKTUELLER WERT
71 GOSUB 140
72 :
73 REM*********************
74 REM I/O INITIALISIEREN
75 REM*********************
76 H=0
77 IF B=1THENH=5:REM ZUER > 500NF
78 POKE56590,193: REM KONTROLLREG. A
79 POKE56591,121: REM KONTROLLREG. B
80 POKE56580,  0: REM TIMER A LOW
81 POKE56581,  H: REM TIMER A HIGH
82 POKE56582,255: REM TIMER B LOW
83 POKE56583,255: REM TIMER B HIGH
84 :
85 POKE56577,0:REM IMPULS AUSLOESEN
86 :
87 REM*******************************
88 REM  WARTEN AUF FLAG-INTERRUPT-BIT
89 REM*******************************
90 IF(PEEK(56589)AND16)>0THEN92
91 GOSUB 140 :GOTO90:REM MENUE
92 IF B=2 THEN 109:REM WIDERSTANDSMESSUNG
93 :
94 REM********************
95 REM KAPAZITAETSMESSUNG
96 REM********************
97 W=(65535-(PEEK(56582)+PEEK(56583)*256))*1.02E-6/(.7*R)
98 IF W=0 AND B=0 THEN B=1:GOTO74
99 IF W<3E-10AND B=1 THEN B=0:GOTO74
100 IF B=1 THEN 103:REM MESSBEREICH
101 IF W<1E-9 THEN W$=LEFT$(STR$(W*1E12)+"      ",6)+" �IKOFARAD ":GOTO67
102 IF W<1E-6 THEN W$=LEFT$(STR$(W*1E 9)+"      ",6)+" �ANOFARAD ":GOTO67
103 W=(65535-(PEEK(56582)+PEEK(56583)*256))*5*256*1.02E-6/(.7*R)
104 W$=LEFT$(STR$(W*1E 6)+"      ",6)+" �IKROFARAD"
105 FORI=0TOW*1E6:GOSUB 140:NEXTI
106 GOTO 67
107 :
108 REM********************
109 REM WIDERSTANDSMESSUNG
110 REM********************
111 W=(65535-(PEEK(56582)+PEEK(56583)*256))*1.02E-6/(.7*C)
112 W$="  "+LEFT$(STR$(W)+"      ",7)+ "�HM    "
113 GOTO67
114 :
115 REM******************
116 REM MESSWERTSPEICHER
117 REM******************
118 GETA$:IFA$=""THEN 118
119 IF VAL(A$)<1ORVAL(A$)>9 THEN121
120 W$(VAL(A$))=W$
121 POKE 211,0:POKE214,2:SYS58732:REM KURSOR
122 FORI=1TO9
123 PRINT"�"I; W$(I):PRINT
124 NEXTI
125 PRINTCHR$(153)CHR$(18)"�"CHR$(146)"PEICHERN "CHR$(18);
126 PRINT"�"CHR$(146)"OESCHEN "CHR$(18)"�"CHR$(146)"IDERSTANDSMESSUNG"
127 PRINTCHR$(153)CHR$(18)"�"CHR$(146)"APAZITAETSMESSUNG "CHR$(18);
128 PRINT"�"CHR$(146)"MPULSAUSLOESEN "CHR$(18)"�"CHR$(146)"UIT"
129 GOTO 67
130 :
131 REM***********************
132 REM LOESCHEN DER SPEICHER
133 REM***********************
134 FORI=1TO9:W$(I)=" . . . . . . . . ":NEXTI
135 GOTO 121
136 :
137 REM************
138 REM HAUPTMENUE
139 REM************
140 GET A$
141 IF A$="S"THEN 116
142 IF A$="L"THEN 132
143 IF A$="Q"THENPRINTCHR$(147)"TSCHUESS...."
144 IF A$="Q"THENPRINT"PS.: RESTART MIT 'GOTO'ODER'GOTO 0'":END
145 IF A$="K"ORA$="C"THEN49
146 IF A$="W"ORA$="R"THEN57
147 IF A$="I"THEN67
148 RETURN



73 DE DG8FZ � DB0GV
//WPRG OFF
***END
S C64 <DG8FZ @WW $DB0SAO007327  #0  C64: VERT-ANT.LIST
//w off
//wprg vert-ant.list
to transfer the  .list file to the c64-basic-programm use 'lload'  !





0 GOTO13
1 :
2 PR$="VERTIKAL-ANT.":S$="S:"+PR$:OPEN1,8,15,S$:CLOSE1:SAVEPR$,8:VERIFYPR$,8
3 :
4 ***  NACH:        DJ2NN          ***
5 ***         275 CQ-DL 6/1983     ***
6 ***  VON :   DG8FZ  6.08.85      ***
7 ***  DATE:         11.09.88      ***
8 ***  AUF :        C=64           ***
9 ***  FUER: ALLE INTERRESSIERTEN  ***
10 ***               GRATIS         ***
11 :
12 :
13 CLR:FI=2    :REM  START QRG
14 :   LM=4    :REM  START LAENGE
15 :   DU=1000 :REM  START DUCHMESSER
16 :   WK=50   :REM  KABEL-IMPEDANZ
17 :
18 R$=CHR$(18):N$=CHR$(146):C$=CHR$(147):H$=CHR$(19):U$=CHR$(145):D$=CHR$(17)
19 DIMF(20):GOSUB20:GOTO40
20 IF FI=1 THEN FI=12
21 F( 1)=-   1:REM FUER RESONANZ-RECHN.
22 F( 2)=    1.8525
23 F( 3)=    3.65
24 F( 4)=    7.05
25 F( 5)=   10.125
26 F( 6)=   14.175
27 F( 7)=   18.118
28 F( 8)=   21.225
29 F( 9)=   24.94
30 F(10)=(  26.965+27.405)/2
31 F(11)=   28.35
32 F(12)=  145
33 F(13)=  435
34 F(14)= 1270
35 F(15)= 2385
36 F(16)= 3437.5
37 F(17)= 5750
38 :
39 RETURN
40 POKE53280,0:POKE53281,0:POKE198,0:PRINTCHR$(142)CHR$(147)CHR$(18);
41 PRINT"   VERTIKAL-ANTENNEN, FEST ODER MOBIL   "CHR$(146);
42 PRINT"  DRUCKER-AUSGABE UEBER SERIELLEN BUS ! "
43 FORW=1TO40:PRINT"=";:NEXT:PRINT
44 PRINT"GEBEN SIE DIE DATEN EIN : "
45 PRINT"::::::::::::::::::::::::: ":PRINT
46 PRINT"QRG:  "R$"+"N$" "R$"-"N$" "R$"*"N$" "R$"UP"N$" "R$"DOWN"N$:PRINT:PRINT
47 GETF$
48 IFF$=CHR$(145)ANDFI=1THENF=F+(150/LM):F(1)=F:GOTO53
49 IFF$=CHR$(17)ANDFI=1AND(F*LM)>60THENF=F-(150/LM):F(1)=F:GOTO53
50 IFF$=CHR$(145)THENFI=FI+1
51 IFF$=CHR$(17)THENFI=FI-1
52 IFF$=CHR$(13)THEN 66
53 IFF<0THENF=300/LM/4
54 IFF$="+"THENF(FI)=INT((F(FI)+.01)* 500)/ 500
55 IFF$="-"THENF(FI)=INT((F(FI)-.01)* 500)/ 500
56 IFF$="*"THENGOSUB 20
57 F=F(FI):IFFI=0THENFI=1:GOTO57
58 IF F=0 THEN FI=FI-1:GOTO57
59 PRINTCHR$(145)"                                       "
60 IFFI=1THENPRINTU$"BETRIEB OHNE ANPASS-ELEMENTE";
61 IFFI=1ANDF>0THENPRINTF
62 IFFI=1ANDF<0THENPRINT
63 IFFI=1THENPOKE198,0:WAIT198,1:GOTO47
64 PRINTU$"BETIEBSFREQUENZ IN MHZ     ";F:POKE198,0:WAIT198,1
65 GOTO 47
66 PRINTCHR$(17)"STRAHLER-LAENGE IN METER   ";LM:GOSUB70:LA=LM:LM=X:PRINT
67 IFLM<>LATHENF(1)=-1:F=-1
68 PRINT"STRAHLER-DICKE  IN MM      ";DU:GOSUB70:DU=X:PRINT
69 GOTO72
70 PRINTU$;:FORII=1TO26:PRINTCHR$(29);:NEXT
71 INPUT X:RETURN
72 P1=3.14159265:P2=2*P1:PQ=9.86904
73 S=LM/DU*1000
74 IFS=>2 AND S<= 8 THEN V=(S^.25-.5)/S^.25
75 IFS=>8 AND S<=300THEN V=S^.02/(1.145-2.5/S)
76 IFS>300 THEN V=(S-9)/S
77 IFF<0THENF=300/(4*LM):REM<<<<<
78 F(FI)=F:WL=300/F
79 GOSUB156:PRINTC$R$"   VERTIKAL-ANTENNEN, FEST ODER MOBIL   "N$
80 PRINT"BETIEBSFREQUENZ :"F" MHZ":PRINT
81 PRINT"STRAHLER-LAENGE :"LM" METER":PRINT
82 PRINT"STRAHLER-DICKE  :"DU" MILLIMETER":PRINT
83 REM IFS<10THENPRINTD$" DER STRAHLER IST VIEL ZU DICK!":GOTO93
84 EL=LM/V:ZW=60*LOG(1.15*S):CE=1.113*LM/2/LOG(1.15*S)*100:LE=LM*LOG(1.15*S)/5
85 HE=150/F/P1:X=LM/WL
86 IFX=>0ANDX<.3THENRS=640*X^2
87 IFX>.3THENRS=EXP(-7*X+.1)*(20*SIN(12.56637*X-4.08407)+10)+45
88 RS=INT(RS*100+.5)/100:CE=INT(CE*10+.5)/10:LE=INT(LE*1000+.5)/1000
89 LV=ZW/P2/F/TAN(P2*X/V):LV=INT(LV*1000+.5)/1000
90 CX=ABS(250000/LV/PQ/F^2):CX=INT(CX*10+.5)/10
91 RV=(1+.1*LM)*(1+F^.125):RV=INT(RV*100+.5)/100
92 RF=RV+RS:Q=ZW/RF:Q=INT(Q*100+.5)/100
93 SW=WK/RF:IF SW<1 THEN SW=1/SW
94 BB=F/Q:BU=F-BB/2:BO=F+BB/2:BR=BB/F*100:BR=INT(BR*1000+.5)/1000
95 ::::::::::::::NJ=INT((EL/WL*4)):G=ABS(LV*F):SG=SGN(LV)
96 IF FI=1  THEN 105 : REM RESONANZR.
97 IF EL<WL /8 THEN 100
98 IF G<1 THEN 102
99 IF G>360 THEN 107
100 IF SG= 1 THEN 112
101 IF SG=-1 THEN124
102 REM LAMDA / 4
103 PRINT"DIE ANTENNE IST "NJ" * LAMBDA/4 LANG"
104 PRINT"ES WERDEN KEINE BLINDELEMENTE BENOETIGT."
105 GOSUB 129
106 GOSUB153:GOSUB159:GOTO40
107 :
108 PRINT"HOCHOHMIGER LAMBDA/2 -  TYP"
109 PRINT"DIE ANTENNE IST "NJ/2-.5*(SG=-1)" * LAMBDA/2 LANG."
110 PRINT"DAHER DIE LAENGE WENIGSTENS UM":PRINT"+/-".05*WL"METER AENDERN "
111 GOSUB159:PRINTR$"BITTE BEL. TASTE DRUECKEN !"N$;:GOSUB 153:GOTO40
112 PRINT"DIE ANTENNE IST KUERZER ALS"NJ-(EL<(.25*WL))-(EL>(WL/2))"*LAMBDA/4"
113 PRINT"UND MUSS DAHER MIT EINER VERLAENGERUNGS-"
114 PRINT"SPULE AUF RESONANZ GEBRACHT WERDEN."
115 PRINT"SIE KOENNEN NUN WAEHLEN :"
116 PRINT" - SPULE AM FUSSPUNKT (H=0) ODER"
117 PRINT" - SPULE BEI H <".8*LM" METER"
118 GOSUB159:INPUT"WAHLE 'H' IN METER:";H
119 IF H>.8*LM THEN 117
120 GOSUB156:PRINT"HOEHE ="H" METER"
121 IF H=0THENPRINT"FUSSPUNKT-SPULE :"LV" UH":GOSUB129:GOSUB153:GOTO162
122 LX=LV/(SIN(P1/2*(LM-H)/LM))
123 PRINT"SPULE :"LX" UH":GOSUB129:GOSUB153:GOTO162
124 REM 'C'-TYP
125 PRINTD$"DIE ANTENNE IST >"NJ" * LAMBDA/4"
126 PRINTD$"UND MUSS KAPAZITIV VERKUERZT WERDEN"
127 PRINTD$"FUSSPUNKT-KONDENSATOR ="CX"PIKO-FARAD"
128 GOSUB129:GOSUB153:GOTO162
129 :
130 PRINTD$"WELLENLAENGE LAMBDA  "WL" METER"
131 PRINTD$"ELEKTISCHE LAENGE...."EL" METER"
132 PRINTD$"SCHLANKHEITSFAKTOR   "S
133 PRINTD$"VERKUEZUNGSFAKTOR...."V
134 PRINTD$"WELLENWIDERSTAND     "ZW" OHM":GOSUB153
135 PRINTD$"EFF.ANTENNEN-HOEHE..."HE" METER"
136 PRINTD$"STRL.-INDUKTIVITAET  "LE" UH"
137 PRINTD$"KAPAZITAET GG.BODEN.."CE" PF"
138 PRINTD$"STRAHLUNGS-WIDERSTAND"RS" OHM"
139 PRINTD$"VERLUST -     //     "RV" OHM"
140 PRINTD$"FUSSPUNKT -   // ...."RF" OHM"
141 PRINTD$"ANTENNEN-GUETE  (EL) "Q
142 PRINTD$"BANDBREITE ABSOLUT   "BB" MHZ"
143 PRINTD$"UNTERE BB (SWR=1:3)  "BU" MHZ"
144 PRINTD$"OBERE  BB (SWR=1:3)  "BO" MHZ"
145 PRINTD$"RELATIVE BANDBREITE  "BR" %"
146 PRINTD$"SWR MIT"WK"OHM-KABEL= 1:"SW
147 IF SW<1.5 THEN 152
148 LS=1/(2*P1*F)*RF*SQR((50/RF)-1)
149 CP=1/(2*P1*F)*(1/50)*SQR((50/RF)-1)*1E3
150 PRINTD$"TRANSFORMATIONSSPULE "LS" UH"
151 PRINTD$"PARALELL KONENSATOR  "CP" NF"
152 RETURN
153 REM WARTEN AUF TASTENDRUCK
154 IFDR=0THEN POKE198,0:WAIT198,1:POKE198,0
155 RETURN
156 REM DRUCKEN
157 DR=0:OPEN4,4,7:TS=ST:CLOSE4:IFST<>0THEN RETURN
158 DR=1:OPEN4,4:CMD4:RETURN
159 REM NICHT DRUCKEN
160 DR=0:CLOSE4:OPEN4,4,7:TS=ST:CLOSE4:IFST<>0THEN RETURN
161 OPEN4,4:PRINT#4:CLOSE4:RETURN
162 REM DURCHLAUF-ENDE
163 GOSUB 159
164 PRINTR$" E "N$" NDE / "R$" W "N$" EITER ???"
165 GET F$:IF  F$="W"ORF$=CHR$(13)THEN40
166 IF F$<>"E"THEN 165
167 END



73 DE DG8FZ � DB0GV
//WPRG OFF
***END
S C64 <DG8FZ @WW $DB0SAO007329 #0 C64: L200.LIST    
//w off
//wprg l200.list
to transfer the  .list file to the c64-basic-programm use 'lload'  !

VOLTAGE-REGULATOR WITH  'L200'
100 GOTO220
110 :
120 PROGRAM$="L-200 REGLER":S$="S:"+PR$:OPEN1,8,15,S$:CLOSE1:PRINT"�":SAVEPR$,8
130 :
140 ***  NACH:        DL8WV          ***
150 ***         123 CQ-DL 3/1981     ***
160 ***  VON :   DG8FZ 22.11.85      ***
170 ***  AUF :        C=64           ***
180 ***  FUER: ALLE INTERRESSIERTEN  ***
190 ***               GRATIS         ***
200 :
210 :
220 :        CLR
230 UK= 3   :REM  KLEINSTE SOLL SP.
240 UG=12   :REM  GROESSTE SOLL SP.
250 UT=14   :REM  TRAFOSPANNUNG
260 IK= .01 :REM  KL. STROMBEGR.
270 IG=1.5  :REM  GR. STROMBEGR.
280 :
290 PL=12   :REM  L-200 VeRLUSTL.
300 UL=28   :REM  L-200 U-MAX.
310 UZ=-2.5 :REM  ZIEHSPANNUNG
320 DK=1    :REM 1=DAUERKURZSCHLUSSFEST
330 :       :REM p=NICHT    .//.
340 :
350 :
360 POKE198,0:PRINTCHR$(142)"� L-200  STOMVERSORGUNG (FUER UNTER 28 V)�";
370 PRiNT"  DRUCKER-AUSGABE UEBER SERIELLEN BUS ! "
380 FORW=1TO40:PRINT"=";:NEXT:PRINT
390 PRINT"GEBEN SIE DIE DATEn EIN : "
400 PRINT"ALLE ANGABEN IN V ODER A"
410 PRINT"::::::::::::::::::::::::: ":PRINT
420 PRINT"KLEINSTE AUSGANGSSPANNUNG  "UK:GOSUB630:UK=X:PRINT
430 IF UK<.1 THEN UK=.1:GOTO420
440 IF UG<UK THEN UG=UK
450 PRINT"GROESSTE AUSGANGSSPANNUNG  "UG:GOSUB630:UG=X:PRINT
J460 IF UG<UK THEN UG=UK*1.1:UK=UK/1.1:GOTO420
470 IF UG=UK THEN UG=UK*1.02:UK=UK/1.02
480 IF UG>UL THEN UG=UL  :GOTO450
490 IF UT<UG THEN UT=UG
500 PRINT"TRAFO-NENNSPANNUNG (<"UL"�V) "UT:GOSUB630:UT=X:PRINT
510 IF UT<UK THEN UT=UK*1.1:GOTO420
520 IF UT<UG THEN UT=UG*1.1:GOTO450
530 IF UT>UL THEN UT=UL  :GOTO500
540 PRINT"KLEINSTE STROM BEGRENZUNG  "IK:GOSUB630:IK=X:PRINT
550 IF IK<.01THEN IK=.01   :GOTO540
560 IF IK>50 THEN IK=2     :GOTO540
570 IF IG<IK THEN IG=IK
580 PRINT"GROESSTE STROM BEGRENZUNG  "IG:GOSUB630:IG=X:PRINT
590 IF IG<.01THEN IG=.01   :GOTO580
600 IF IG>50 THEN IG=2     :GOTO580
610 IF IG<IK THEN IG=IK*1.1:IK=IK/1.1:GOTO540
620 GOTO640
630 INPUT"�";X:RETURN
640 GOSUB1410:PRINT"�         L-200 NETZTEIL MIT :           �"
650 PRINT"KLEINSTE AUSGANGSSPANNUNG ="UK"VOLT"
660 PRINT"GROESSTE AUSGANGSSPANNUNG ="UG"VOLT"
670 PRINT"TRAFO-NENNSPANNUNG        ="UT"VOLT"
680 PRINT"KlEINSTE STROM BEGRENZUNG ="IK"A"
690 PRINT"GROESSTE STROM BEGRENZUNG ="IG"A"
700 IF DK=1 THEN PRINT"DAUER-KUZSCHLUSS-FEST !!"
710 IF DK<>1 THEN PRINT"NICHT DAUER-KUZSCHLUSS-FEST !!"
720 PRINT"ALLE ANDEREN ANGABEN SINNGEMAESS"
730 PRINT"IN OHM BZW. MIKRO-FARAD (N=NANNO) ."
740 IFDK<>1THEN PV=(UT- UK)*IG :REM NICHT KURZSCHLUSSFEST !!!
750 IFDK =1THEN PV=(UT*1.2)*IG :REM DAUER KURZSCHLUSSFEST !!!
760 IF IG>2 THEN GOTO 780
770 IF PV<PLTHEN T1$="":GOTOx10
j780 IF((PV<2*PL)AND(IG<=3))THEN T1$="2N2955 O.AE.":GOTO810
790 T1$=MID$(STR$(INT(IG/7+.5)),2,1)+"* TIP 140"
800 IFNOTPV/(IG/7+.5)<30THEN T1$=MID$(STR$(INT(PV/30+.5)),2,2)+"* TIP 140"
810 R6=.7/(PL/(UT*1.5-UK+1))
820 IF T1$="" THEN R6=0
830 IF UK >2.8THEN UZ=0
840 R1=.4/IK
850 R2=.4/IG
860 P1=(UG-UK)/.002
870 DATA 50,100,250,1000,4700,10000,50000,100000,200000,500000,1000000,2000000
880 RESTORE:FORI=1TO12
890 READ X:IFX>P1 THEN I=20
900 NEXTI
910 P1=X
920 I=(UG-UK)/P1
930 R9=INT((UK-2.8-UZ)/I)
940 R7=INT(2.8/I)
950 CL=3300/1.5*IG
960 C3=INT(10/1.5*IG):C5=C3
970 GOSUB1390
980 PRINT"�";
990 IF T1$<>""THEN1060
1000 PRINT"                   �����ò�æ�ò(A)�ò�O"
1010 PRINT"�                  5�   C5�+ R1 �   � �"
1020 PRINT"               ���ø��î �     �  R� �"
1030 PRINT"              1�       � �     �  9� �"
1040 PRINT"+��ò������ò�á L-200 ��)����ý  �� �+"
1050 GOTO 1110
1060 PRINT"     ������   ����ò����ò�æ�ò(A)�ò�O"
1070 PRINT"�     �  T1 � /    5�   C5�+ R1 �   � �"
1080 PRINT"     �     ò� ���ø��î �     �  R� �"
1090 PRINT"     � R6   � 1�       � �     �  9� �"
1100 PRINT"+��ò�æ������á L-200 ��)����ý  �� �+"
1110 PRINT"    �       �  �       �2�        � ���"
1120 PRINT"    �+      �  �â��âý �        � ò�"
1130 PRINT"   ���CL    �C4  �3  �4  �      P1�  �C"
1140 PRINT"   ò�      �    ���ñ���)��ò���æ� �3"
1150 PRINT"    �       �    �C6     �  R�    �  �"
1160 PRINT"    �       �    �       �  7�       �"
1170 PRINT"    �       �    ��������)��ý       �"
1180 IF UK<2.8 THEN GOTO1200
1190 PRINT"0��ñ������ñ���ñ������ñ����������ñ�O":GOTO1230
1200 PRINT"0��ñò����ñ����)������ñ������ò��ñ�O";
1210 PRINT"   R8 ����C1     � D9...13       �"
1220 PRINT"-�æ����ñ������ñ�<ó<�ó<ó<ó<�"UZ
1230 IF T1$=""THEN 1250
1240 PRINT"T1="T1$,"R6="R6,"C5>"C5,
1250 IF UK<2.8 THEN PRINT"C1=100U","R8=100","D9-13=SI.",
1260 PRINT"CL>"INT(CL),"C6>22N","C3>"INT(C3),"C4>22N",
1270 IF IK<IG THEN PRINT"R1=".4/IK"-".4/IG,
1280 IF IK=>IG THEN PRINT"R1=".4/IK,
1290 PRINT"R9="INT(R9),"P1="P1,"R7="INT(R7)
1300 PRINT"  �������VON UNTEN �������  �������"
1310 PRINT"  ��4�2צ          � � � �  � � � �"
1320 PRINT"  �5�3�1�          �������  ��� ���"
1330 PRINT"                                  "
1340 PRINT"   L-200           TIP-140  2N2955";:POKE198,0:WAIT198,1:PRINT
1350 :
1360 GOSUB1440
1370 GOTO1480
1380 :
1390 REM WARTEN AUF TASTENDRUCK
1400 POKE198,0:WAIT198,1:POKE198,0:RETURN
1410 REM DRUCKEN AUF COMODORE 1526
1420 OPEN4,4,7:TS=ST:CLOSE4:IFST<>0THEN RETURN
1430 OPEN4,4:OPEN6,4,6:PRINT#6,CHR$(3*8):CLOSE6:CMD4:RETURN
1440 REM NICHT DRUCKEN
1450 CLOSE4:OPEN4,4,7:TS=ST:CLOSE4:IFST<>0THEN RETURN
1460 OPEN4,4:OPEN6,4,6:PRINT#6,CHR$(3*8):PRINT#4:PRINT#6,CHR$(36)
1470 CLOSE6:CLOSE4:RETURN
1480 REM DURCHLAUF-ENDE
1490 PRINTCHR$(142)" E � NDE /  W � EITER ???��";
1500 GET F$:IF  F$="W"ORF$=CHR$(13)THEN360
1510 IF F$<>"E"THEN 1500
1520 END

73 DE DG8FZ � DB0GV
//WPRG OFF
***END
S C64 <DG8FZ @WW $88C242DG8FZ #0 C64: MORSEWRITER.LIST


ACHTUNG IN DER CQ-DL FALSCH !

//WPRG MORSE-SCHR.LIST

RUECKWANDLUNG MITTLES 'LLOAD'


MORSE DECODER, THAT WAS PRINTED WRONG IN THE CQ-DL
0 REM" ?C(147):P$="MORSE-SCHREIBER":S$="S:"+P$:O1,8,15,S$:CL1:SP$,8:VP$,8
100 REM ********************************
110 REM * MORSE-SCHREIBER  FUER C=64   *
120 REM * HEINZ ALBERTI DG4AX 27.09.88 *
130 REM * SIEHE: CQ-DL 1/89 SEITE 26   *
140 REM ********************************
141 REM MORSETASTE AN CONTROLPORT1                             'BUTTON'
150 VC=13*4096:SI=VC+4*256:SP=12*4096+13*256:ZD=5
160 POKE 646  ,1    :REM ZEICHEN WEISS
170 POKE 252  ,2    :REM ZEILENDAUER
180 POKE VC+32,11   :REM RAMEN DU.GRAU
185 POKE VC+33,11   :REM HINTERGR. //
190 POKE VC+24,23   :REM KLEINE BUCHST.
200 POKE SI+24,15   :REM GRUNDLAUTST.
210 POKE SI+5 ,0    :REM ANSCHL.+ABSCHW
220 POKE SI+6 ,15*16:REM HALTEN+AUSKL.
230 POKE SI   ,65   :REM LB (830HZ)
240 POKE SI+1 ,55   :REM HB (830HZ)
250 POKE SI+4 ,16   :REM DREIECK AUS
260 :
290 IF PEEK(SP)<>32 THEN GOTO 700
295 GOTO450
300 PRINT"";SPC(9);"*** MORSE-SCHREIBER ***"
310 PRINT"";SPC(12);"START........: F1 "
320 PRINT"";SPC(12);"ZEILENDAUER..: F3 "
330 PRINT"";SPC( 8);"T-ZEILE = CA.";ZD;"SEKUNDEN"
340 GET AW$
350 IF AW$=CHR$(133)THEN500
360 IF AW$=CHR$(134)THEN400
370 GOTO340
380 :
400 PRINT"";SPC(14);"ZEILENDAUER"
410 PRINT"";SPC(6);"BITTE WERTE ZWISCHEN 1 UND 9"
420 PRINT"";SPC(15);"EINGEBEN."
430 GET AW$
440 IFAW$<"1"ORAW$>"9"THEN430
449 ZD=VAL(AW$)
450 AP=6+2*ZD:REM ANPASSUNG
460 POKE 252,AP:REM SPEICHERN IN ZEROP.
470 GOTO300
480 :
500 N1=PEEK(53265):REM WERT SICHERN
510 N2=PEEK(53272):REM WERT SICHERN
520 POKE53265,PEEK(53265)OR32:REM BIT 5 SETZEN
530 POKE53272,PEEK(53272)OR 8:REM BIT 3 SETZEN
540 SYS SP:REM ABFRAGE DER MORSETASTE
550 GET AW$
560 IF AW$=CHR$(32)THEN580
570 GOTO550
580 POKE53265,N1:POKE53272,N2:REM WIEDER NORMALER BILDSCHIRM
590 GOTO300
600 :
700 SU=0:REM *** BASIC LADER ***
705 PRINT"";SPC(12);"BITTE WARTEN!"
710 FOR K=SP TO SP+261:READ HE$
720 A$=LEFT$(HE$,1):B$=RIGHT$(HE$,1)
730 A=-16*((A$<="9")*VAL(A$))-16*((A$>"9")*(ASC(A$)-55))
740 B=   -((B$<="9")*VAL(B$))   -((B$>"9")*(ASC(B$)-55))
750 DE=A+B:SU=SU+DE:POKEK,DE:NEXT
760 IFSU<>32418THENPRINT"FEHLER IN DATAS":END
770 GOTO300
780 :
800 DATA 20,93,CD,A2,10,A0,00,A9
801 DATA 04,84,FD,85,FE,8A,A2,04
802 DATA 91,FD,C8,D0,FB,E6,FE,CA
803 DATA D0,F6,A0,00,A2,20,84,FD
804 DATA 86,FE,CA,20,3C,CD,20,BD
805 DATA CD,D0,F8,E6,FE,CA,D0,F3
806 DATA BD,C6,CD,91,FD,C8,E8,E0
807 DATA 40,D0,F5,60,A9,80,48,48
808 DATA 48,A9,10,2D,01,DC,F0,10
809 DATA A9,10,8D,04,D4,68,49,FF
810 DATA 31,FD,91,FD,68,4C,69,CD
811 DATA A9,11,8D,04,D4,68,11,FD
812 DATA 91,FD,C8,68,11,FD,91,FD
813 DATA 88,A5,FC,20,74,CD,68,4A
814 DATA D0,CC,18,60,48,48,48,68
815 DATA E9,01,48,D0,FA,68,68,E9
816 DATA 01,48,48,D0,F2,68,68,68
817 DATA E9,01,48,48,48,D0,E8,68
818 DATA 68,68,60,A0,00,A2,20,84
819 DATA FD,86,FE,98,91,FD,C8,D0
820 DATA FB,E6,FE,CA,D0,F6,A0,00
821 DATA A2,20,84,FD,86,FE,A9,11
822 DATA 91,FD,20,BD,CD,D0,F9,E6
823 DATA FE,CA,D0,F4,60,C8,C8,C8
824 DATA C8,C8,C8,C8,C8,60,00,00
825 DATA 00,00,00,00,00,00,00,3C
826 DATA 42,40,3C,01,42,3C,00,7C
827 DATA 42,42,7C,40,40,40,00,08
828 DATA 14,22,22,3E,41,41,00,1C
829 DATA 22,40,40,40,22,1C,00,7E
830 DATA 40,40,7C,40,40,7E,00,18
831 DATA 18,18,18,00,18,18,00,00
832 DATA 00,00,00,00,00,00
READY.

//WPRG OFF
***END
S C64 <DG8FZ @WW $30B803DB0AAA #0 C64: DISK-JUST.LIST
basic  proggramm zur automatischen floppy-tonkopfjustage
//WPRG DISK-EXERCISEER.LIST
THIS PRORAMM WILL HELP ALL HAM'S WHO HAVE PROBLEM WITH THEIR DISK'S AFTER
ALL THAT HUNTRED'S OF HOUR'S OF DIGICOM-USAGE ETC...

100 REM DISK-EXERCISER-1541
110 :
120 REM                                   DIESES PROGRAMM DARF KOPIERT WERDEN
130 :
140 FOR DU = 0 TO 17
150 MI =  89 : REM FRUEHER = 91             79 = KUEZEST MOEGLICHER SCHNITT
160 T1 = 18 - DU  : S1= 1+INT(15*DU/17)
170 T2 = 18 + DU  : S2=16-INT(15*DU/17)
180 IF     T2=T1THEN T2 = T1 + 1
190 IF NOT T2=35THEN MI = INT(MI * 1.2)
200 POKE53280,5:POKE53281,7:ZZ=MI+2
210 PRINTCHR$(14)"           DISK-EXERCISER-1541          "
220 PRINT"DISK-STATUS DURING EXERCISE:"
230 PRINT"TIME OF READING (MUST BE <"MI"/100 SEC):"
240 GOSUB350
250 A1$="":A2$="        "
260 A1$=A1$+"                    "
270 OPEN5,8,15:OPEN4,8,3,"#":OPEN1,8,15
280 TI$="000000":PRINT#5,"U1 3 0";T1,S1:PRINT#5,"B-P"3;1:GET#4,A$
290 REM
300 PRINT#5,"U1 3 0";T2,S2:PRINT#5,"B-P"3;1:GET#4,A$
310 INPUT#1,X1,X2$,X3,X4:PRINTA1$;X1;X2$;X3;X4:ZW=TI
320 ZZ=INT(4/5*ZZ+10*1/5*ZW):PRINTA2$;ZZ
330 IFZZ<MITHENFORW=1TO1000:NEXTW:GOTO430
340 GOTO280
350 PRINT"DIESES PROGRAMM TRAINIERT  DAS  POSITIO-";
360 PRINT"REN DES TONKOPFES SEITENS DES DISKETTEN-";
370 PRINT"LAUFWERKES.  ( AUF DIE DEMO-DISKETTE !!)";
380 PRINT"WENN EINE AUSREICHENDE ZEIT"
390 PRINT"ERREICHT IST,  GEHT ES MIT DER NAECHSTEN";
400 PRINT"UEBUNG WEITER."
410 PRINT"PS.: BIS DAHIN KANN ES SEHR LANGE DAUERN."
420 PRINT"TRACK"T1"UND"T2"WERDEN GELESEN.":RETURN
430 CLOSE4:CLOSE5:CLOSE1:NEXT DU
440 OPEN1,8,15
450 PRINTCHR$(14)"           DISK-EXERCISER-1541          "
460 PRINTA2$;"NOW INITIALIZING!               "
470 FORW=1TO10:PRINT#1,"I":INPUT#1,X1,X2$,X3,X4:PRINTA1$;X1;X2$;X3;X4:NEXTW
480 CLOSE1
490 PRINT"   DISK-DRIVE AND DISK HAS TRESPASSED   ";
500 PRINT"                EXERCISING              "
510 PRINT"DURCH DIESE PROZEDUR..."
520 PRINT"...HAT SICH DER TONKOPF OPTIMAL POSITIO-";
530 PRINT"   NIERT
540 PRINT"...HABEN SIE SOMIT REPARATURGELD UND RE-";
550 PRINT"   PARATURWARTEZEIT GESPART"
560 PRINT"...HAT DER SCHRITTMOTOR WIEDER EIN  BIS-";
570 PRINT"   CHEN UEBUNG BEKOMMEN UND  SIE  SPAREN";
580 PRINT"   POSITIONIERUNGSZEIT"
590 FORI=1TO8000:NEXT
600 REM PUBLIC-DOMAIN-SOFTWARE                   FROM CRISTAL-PALACE
610 PRINT"55 73":END
620 CLOSE1:OPEN1,8,15,"S:DISK-EXERCISER"   :CLOSE1:SAVE"DISK-EXERCISER",8
//WPRG OFF
***END
S C64 <DG8FZ @WW $30B804DB0AAA #0 C64: FILTER-CALC.LIST

basic-programm zur berechnung von aktivfiltern

               TO CALULATE ACTIVE FILTERS
//WPRG AKTIVFILTER.LIST
100 REM AKTIVFILTER
110 POKE53280,0:POKE53281,0:PRINTCHR$(142)""
120 PRINT""TAB(13)"AKTIVFILTER"
130 PRINTTAB(9)"1 - TIEFPASSFILTER
140 PRINTTAB(9)"2 - HOCHPASSFILTER
150 PRINTTAB(9)"3 - SELEKTIVFILTER
160 PRINT"                + A"
170 PRINT"              8 7 6 5"
180 PRINT"              . . . .     VON"
190 PRINT"             "
200 PRINT"                 741     OBEN"
210 PRINT"             "
220 PRINT"              . . . . "
230 PRINT"              1 2 3 4"
240 PRINT"                E E -"
250 PRINT"                - +"
260 GETA:IFA=1THEN300
270 IFA=2THEN850
280 IFA=3THEN1460
290 GOTO260
300 PRINT"1 - TIEFPASS 1.ORDNUNG
310 PRINT"2 - TIEFPASS 2.ORDNUNG
320 GETA1:IFA1=1THENGOSUB1140:GOTO350
330 IFA1=2THENGOSUB1280:GOTO510
340 GOTO320
350 R2=1/(2**F*(C1/1E6)):R1=R2/U:GOSUB1410:GOTO360
360 PRINT"
370 PRINT"            C1
380 PRINT"
390 PRINT"
400 PRINT"
410 PRINT"           R2
420 PRINT"
430 PRINT"     R1!  7+
440 PRINT"IN O-
450 PRINT"         27410 OUT
460 PRINT"              6
470 PRINT"   +        O
480 PRINT"        34
490 PRINT"          -
500 END
510 GETA$:IFA$="A"THENB1=.41:A1=1.29:X=1:R3=0:GOSUB1240:GOTO560
520 IFA$="B"THENB1=.62:A1=1.36:X=2
530 IFA$="C"THENB1=1.93:A1=1.07:X=2
540 IFA$<>""THENGOSUB1210:GOTO560
550 GOTO510
560 R=SQR(B1)/(2**F*(C/1E6))
570 U=3-(A1/SQR(B1))
580 R4=(U-1)*R3:GOSUB1360:GOTO590
590 PRINT"
600 PRINT"       C1
610 PRINT"                 +
620 PRINT"   R1    R2      7
630 PRINT" O+
640 PRINT"               3741O
650 PRINT"           C2      6
660 ONXGOTO790,670
670 PRINT"              -    R
680 PRINT" O            2 4  4
690 PRINT"               -
700 PRINT"
710 PRINT"
720 PRINT"
730 PRINT"                      R
740 PRINT"                      3
750 PRINT"
760 PRINT"
770 END
780 PRINT"           R1
790 PRINT"              -
800 PRINT" O            2 4
810 PRINT"               -
820 PRINT"
830 PRINT"
840 END
850 PRINT"1 - HOCHPASS 1.ORDNUNG
860 PRINT"2 - HOCHPASS 2.ORDNUNG
870 GETH1:IFH1=1THENGOSUB1140:GOTO900
880 IFH1=2THENGOSUB1280:GOTO980
890 GOTO870
900 R1=1/(2**F*(C1/1E6))
910 R2=R1*U:GOSUB1410:GOTO920
920 PRINT"
930 PRINT"           R2
940 PRINT"          +
950 PRINT" C1  R1   7
960 PRINT"O-
970 GOTO450
980 GETB$:IFB$="A"THENB1=.41:A1=1.29:X=1:R3=0:GOSUB1240:GOTO1030
990 IFB$="B"THENB1=.62:A1=1.36:X=2
1000 IFB$="C"THENB1=1.93:A1=1.07:X=2
1010 IFB$<>""THENGOSUB1210:GOTO1030
1020 GOTO980
1030 U=3-(A1/SQR(B1)):R4=(U-1)*R3
1040 R=1/(2**F*(C/1E6)*SQR(B1))
1050 GOSUB1360:GOTO1060
1060 PRINT"
1070 PRINT"       R2
1080 PRINT"                 +
1090 PRINT"   C1    C2      7
1100 PRINT" O+
1110 PRINT"               3741O
1120 PRINT"           R1      6
1130 GOTO660
1140 PRINT"DATENEINGABE :
1150 PRINT"UEBERTRAGUNGSVERSTAERKUNG"
1160 INPUTU
1170 PRINT"GRENZFREQUENZ (HZ)
1180 INPUTF
1190 PRINT"VORGEGEBENER KONDENSATOR (UF)
1200 INPUTC1:RETURN
1210 PRINT"DATENEINGABE :
1220 PRINT"R3 (OHM)"
1230 INPUTR3
1240 PRINT"GRENZFREQUENZ  (HZ)
1250 INPUTF
1260 PRINT"VORGEGEBENER KONDENSATOR (UF)
1270 INPUTC:RETURN
1280 PRINT"WELCHER FILTERTYP ?
1290 PRINT"A - KRITISCHE DAEMPFUNG
1300 PRINT"B - BESSEL-TYP
1310 PRINT"C - TSCHEBYSCHEFF-TYP":RETURN
1320 PRINT"
1330 PRINT"       R2
1340 PRINT"
1350 PRINT"   C1    C2       +
1360 PRINT"R1=R2=";INT(100*R+0.5)/100;"OHM"
1370 PRINT"C1=C2=";INT(1000*C+0.5)/1000;"UF"
1380 PRINT"R3 =";INT(100*R3+0.5)/100;"UND R4 =";INT(100*R4+0.5)/100;"OHM
1390 PRINT"UEBERTRAGUNGSVERSTAERKUNG =";INT(1000*U+0.5)/1000
1400 PRINT"GRENZFREQUENZ=";F;"HZ":RETURN
1410 PRINT"":PRINT"R2 =";INT(100*R2+0.5)/100;"OHM
1420 PRINT"R1 =";INT(100*R1+0.5)/100;"OHM
1430 PRINT"C1 =";C1;"UF"
1440 PRINT"GRENZFREQUENZ=";F;"HZ"
1450 PRINT"UEBERTRAGUNGSVERSTAERKUNG =";INT(1000*U+0.5)/1000:RETURN
1460 PRINT"DATENEINGABE :
1470 INPUT"UNT. RESONANZFREQUENZ (HZ)";UF
1480 INPUT"OBERE RESONANZFREQUENZ (HZ)";OF
1490 INPUT"BANDBREITE (HZ)";BB
1500 INPUT"KONDENSATOREN (UF)";C
1510 INPUT"EINGANGSAMPL. (VSS)";EA
1520 R2=1/(*(C/1E6)*BB)
1530 X=1/(((2**(C/1E6)*UF)^2)*R2)
1540 Y=1/(((2**(C/1E6)*OF)^2)*R2)
1550 U=20/EA
1560 R1=R2/(2*U)
1570 PRINT"":PRINT"UNT. RF =";UF;",";"OBERE RF =";OF;"HZ"
1580 PRINT"BANDBREITE =";BB;"HZ"
1590 PRINT"EINGANGSAMPLITUDE =";EA;"VSS
1600 PRINT"R1 =";INT(100*R1+0.5)/100;"OHM"
1610 PRINT"R2 =";INT(100*R1+0.5)/100;"OHM"
1620 PRINT"R3 =";INT(100*Y+0.5)/100;"BIS";INT(100*X+0.5)/100;"OHM
1630 PRINT"C1 UND C2 =";C;"UF
1640 PRINT"
1650 PRINT"                  O+
1660 PRINT"         C   R
1670 PRINT"         1   2 7
1680 PRINT"    R1
1690 PRINT" O-
1700 PRINT"         C2    2741O
1710 PRINT"                    6
1720 PRINT" O       R   +       O
1730 PRINT"        3    3
1740 PRINT"              4
1750 PRINT"       _
1760 PRINT"
1770 PRINT"                0-
1780 END
//WPRG OFF
***END
S C64 <DG8FZ @WW $049808DB0GV #0 C64: QTH/KM.LIST
//wprg QTH/KM.LIST

100 REM P$="QTH/KM+ADDITION":S$="S:"+P$:OPEN2,8,15,S$:CLOSE2:SAVEP$,8:VERIFYP$,8
110 :
120 REM STAND 16.09.1986
130 REM ZUSAMMENGESTELLT VON DF9ZY
140 :
150 REM AMATEURRADIOSOFTWARE FUER C=64
160 REM THANKS TO ALL THE WRITER'S               OF THE SUBROUTINES
170 REM KOSTENLOS FUER ALLE
180 :
190 DIM S(6):DIM C(4):DIM P(3):PI=3.14159265
200 K=0:N=0.00001:W=0:R$="EK34G":REM EIGENER QTH-KENNER
210 PRINTCHR$(147):PRINT""
220 PRINT"     AMATEURFUNK        * VON DF9ZY *
230 FORII=1TO40:PRINTCHR$(196);:NEXT:PRINTCHR$(142)
240 PRINT"":PRINT"     ENTFERNUNGSBERECHNUNG:":PRINT""
250 PRINT"     TASTE        *  A  *":PRINT"":PRINT""
260 PRINT"     UNTERPROGRAMM ":PRINT
270 PRINT"     WELTWEITER QTH-KENNER:":PRINT""
280 PRINT"     TASTE        *  B  *":PRINT"":PRINT""
290 PRINT"     ENDERGEBNIS:":PRINT""
300 PRINT"     TASTE        *  E  *"
310 GET A$:IF A$=""THEN310
320 IF A$="A" THEN 350
330 IF A$="B" THEN 1650
340 IF A$="E" THEN 2540
350 REM ENTFERNUNGSBERECHNUNG
360 PRINTCHR$(147):Z=1
370 PRINT" EIGENER - QTH-KENNER:   ";R$
380 PRINTCHR$(145);:INPUT" EIGENER - QTH-KENNER: ";R$
390 IF LEN(R$)= 5 THEN 420
400 IF LEN (R$)<>6 THEN 790
410 GOSUB 1220: GOTO 430
420 GOSUB 1380
430 C(1)=L:C(3)=B
440 PRINTCHR$(147):PRINT"":PRINT" EIGENER QTH-KENNER IST: ";R$:PRINT""
450 M = COS (C(3)*PI/180)
460 PRINT"":PRINT" STANDORT DER GEGENSTATION:":PRINT"":PRINT""
470 Z=2:GOSUB 1860
480 PRINTCHR$(147)
490 PRINT"  ARBEITSRICHTUNG: ";O$;Q$:PRINT"":PRINT""
500 PRINT"  QTH-KENNER DER GEGENSTATION:":PRINT""
510 INPUT R$
520 PRINTCHR$(147):PRINT"":PRINT" QTH-KENNER ";R$
530 IF R$="E" THEN 2540
540 IF R$="R" THEN 210
550 Z=3: IF LEN(R$)=5 THEN 590
560 IF LEN (R$) <> 6 THEN 790
570 GOSUB 1220
580 GOTO 600
590 Z=4:GOSUB1380
600 C(2)=L:C(4)=B
610 PRINT: PRINT" LAENGE: ";A;" GRAD MIN.":PRINT
620 PRINT" BREITE: ";H;" GRAD MIN."
630 IF L > 180 THEN L=L-360
640 E=111.2*SQR((ABS(C(3)-C(4)))^2+(ABS(C(1)-C(2)))^2*M*COS(C(4)*PI/180))
650 PRINT
660 PRINTCHR$(158);" ENTFERNUNG BETRAEGT:";INT(E+.5);" KM"
670 PRINTCHR$(5)
680 FORII=1TO40:PRINTCHR$(196);:NEXT:PRINT
690 PRINTCHR$(5)
700 W=W+INT(E+.5):N=N+1:
710 IF INT(E+.5)> K THEN K=INT(E+.5)
720 GOSUB 1050
730 IF Z=4 THEN GOSUB 2210
740 FORII=1TO40:PRINTCHR$(196);:NEXT:PRINT
750 PRINT"         WEITER MIT SPACE"
760 GET A$:IF A$="" THEN 760
770 IF(A$=" ")OR(A$=CHR$(13))THEN A$="":GOTO 780
780 U=LEN(A$):POKE198,PEEK(198)+U:POKE630+U,ASC(A$+" "):GOSUB 2410: GOTO 490
790 FOR U = 1 TO 4
800 POKE 53280,10
810 PRINT"":PRINT CHR$(159)TAB(47);"    EINGABEFEHLER":PRINT"":PRINTCHR$(5)
820 FOR T = 1 TO 150 : NEXT
830 POKE 53280,14
840 FOR T=1TO150:NEXT T
850 NEXT U
860 IF Z=1 THEN 360
870 IF Z=3 THEN 480
880 IF Z=4 THEN 480
890 IF Z=5 THEN 1950
900 IF Z=6 THEN 2380
910 IF S(1)<65 OR S(1)>82 THEN 790
920 IF S(2)<65 OR S(2)>82 THEN 790
930 IF S(3)<47 OR S(3)>57 THEN 790
940 IF S(4)<47 OR S(4)>57 THEN 790
950 IF S(5)<65 OR S(5)>88 THEN 790
960 IF S(6)<65 OR S(6)>88 THEN 790
970 RETURN
980 IF S(1)<65 OR S(1)>90 THEN 790
990 IF S(2)<65 OR S(2)>90 THEN 790
1000 IF S(3)<48 OR S(3)>56 THEN 790
1010 IF S(4)<48 OR S(4)>57 THEN 790
1020 IF S(5)<65 OR S(5)>74 OR S(5)=73 THEN 790
1030 IF S(3)=56 AND S(4)>48 THEN 790
1040 RETURN
1050 REM ANTENNENRICHTUNGSBERECHNUNG
1060 X=C(2)-C(1): Y=C(4)-C(3):V=E/111.2
1070 IF X=Y THEN 1210
1080 U=SIN(X*PI/180)*COS(C(4)*PI/180)/SIN(V*PI/180)
1090 U=(ATN(U/SQR(-U*U+1)))*180/PI
1100 IF X<0 AND Y<0 THEN U=U*(-1)
1110 IF X<0 AND Y>0 THEN U=U+180
1120 IF X>0 AND Y>=0 THEN U=U+180
1130 IF X>0 AND Y<0 THEN U=360-U
1140 U=ABS(U)
1150 IF U<180 THEN R=U+180
1160 IF U>180 THEN R=U-180
1170 PRINTCHR$(158);" ANTENNENRICHTUNG: ";INT(R+.5);"/";INT(U+.5);"GRAD"
1180 PRINT CHR$(5)
1190 FORII=1TO40:PRINTCHR$(196);:NEXT:PRINT
1200 RETURN
1210 PRINTCHR$(158);" GLEICHES QTH!":U=0:PRINTCHR$(5):RETURN
1220 REM UNTERPROGRAMM: NEUER CODE IN L,B
1230 FOR I=1 TO 6
1240 S(I)=ASC(MID$(R$,I,1))
1250 NEXT I
1260 GOSUB 910
1270 IF (S(1)-65)<9 THEN 1290
1280 L=(S(1)-74)*20:GOTO 1300
1290 L=(S(1)-65)*20+180
1300 L=L+(S(3)-48)*2
1310 L=L+((S(5)-65)*5+2.5)/60
1320 IF (S(2)-65)<9 THEN 1340
1330 B=(S(2)-74)*10:GOTO 1350
1340 B=(S(2)-65)*10-90
1350 B=B+(S(4)-48)
1360 B=B+((S(6)-65)*2.5+1.25)/60
1370 Z=0:GOSUB 2720:RETURN
1380 REM UMRECHNUNGSUNTERPROGRAMM ALTER CODE IN L,B
1390 FOR J=1 TO 5
1400 S(J)=ASC(MID$(R$,J,1))
1410 NEXT J
1420 GOSUB 980
1430 IF Q$="W" THEN 1450
1440 GOTO 1460
1450 IF S(1)>78 THEN S(1)=S(1)-26
1460 IF O$="S" THEN 1480
1470 GOTO 1490
1480 IF S(2)>85 THEN S(2)=S(2)-26
1490 L=(S(1)-65)*2
1500 B=S(2)-24
1510 P(0)=S(3)
1520 P(1)=S(4)
1530 IF P(1)=48 THEN P(1)=P(1)+10:P(0)=P(0)-1
1540 P(3)=(P(0)-48)*10+P(1)-49
1550 L=L+(P(1)-49)*.2
1560 B=B-(P(0)-48)/8
1570 P(2)=S(5)-65
1580 IF P(2)<2 OR P(2)=7 THEN B=B-1/48:GOTO1610
1590 IF P(2)=2 OR P(2)=6 OR P(2)=9 THEN B=B-1/16:GOTO 1610
1600 B=B-5/48
1610 IF P(2)>4 AND P(2)<8 THEN L=L+1/30:GOTO 1640
1620 IF P(2)=0 OR P(2)=4 OR P(2)=9 THEN L=L+.1:GOTO 1640
1630 L=L+1/6
1640 GOSUB 2720:RETURN
1650 REM UMRECHNUNG ALTER QTH KENNER IN WELTWEITEN KENNER
1660 PRINTCHR$(147):PRINT" UNTERPROGRAMM             * DF9ZY *"
1670 FORII=1TO40:PRINTCHR$(196);:NEXT:PRINT:PRINT
1680 PRINT" WELTWEITER QTH-KENNER ":PRINT
1690 PRINT" AUS DEM ALTEN CODE:":PRINT""
1700 PRINT" EINGABE    TASTE            * A *":PRINT"":PRINT""
1710 PRINT" AUS LAENGE UND BREITE:":PRINT""
1720 PRINT" EINGABE    TASTE            * B *":PRINT"":PRINT""
1730 PRINT" ZURUECK ZUM HAUPTPROGRAMM:":PRINT""
1740 PRINT" EINGABE    TASTE            * R *":PRINT"":PRINT""
1750 GET R$:IF R$="" THEN 1750
1760 IF R$="A" THEN 1820
1770 IF R$="B" THEN 2050
1780 IF R$="R" THEN 210
1790 IF R$<>"A" OR R$<>"B" OR R$<>"R" THEN1750
1800 IF Z=6 OR Z=5 THEN 790
1810 RETURN
1820 PRINTCHR$(147):Z=1
1830 PRINT" UMRECHNUNG ALTER QTH-KENNER":PRINT
1840 PRINT""
1850 FORII=1TO40:PRINTCHR$(196);:NEXT:PRINT:IFZ=1THENGOTO1970
1860 PRINT"":PRINT" EINGABE DER ARBEITSRICHTUNG":PRINT""
1870 PRINT " NORD ODER SUED?  N / S: "
1880 GET O$:IF O$="" THEN 1880
1890 IF O$="S" OR O$="N" OR O$=" "THEN 1910
1900 GOTO 1870
1910 PRINT" OST  ODER WEST?  O / W: "
1920 GET Q$:IF Q$="" THEN 1920
1930 IF Q$="O" OR Q$="W" OR Q$=" "THEN 1950
1940 GOTO 1910
1950 PRINTCHR$(147): IF Z=2 THEN RETURN
1960 PRINT"":PRINT"  ARBEITSRICHTUNG =  ";O$;Q$:PRINT""
1970 PRINT"":PRINT"":PRINT"":INPUT" EINGABE ALTER QTH-KENNER: ";R$
1980 PRINTCHR$(147):PRINT"":PRINT" ARBEITSRICHTUNG =  ";O$;Q$:PRINT""
1990 Z=5
2000 IF LEN(R$)<> 5 THEN 790
2010 GOSUB 1380:PRINTCHR$(147)
2020 PRINT" LAENGE: ";A;:PRINTTAB(16)"GRAD/MIN."
2030 PRINT" BREITE: ";H;:PRINTTAB(16)"GRAD/MIN."
2040 PRINT"":PRINT"":GOTO 2210
2050 PRINTCHR$(147)
2060 PRINT"":PRINT" WELTW. QTH-KENNER AUS LAENGE UND BREITE"
2070 FORII=1TO40:PRINTCHR$(196);:NEXT:PRINT:PRINT""
2080 PRINT" EINGABE IN G/M/S: TASTE  * G *":PRINT""
2090 PRINT" SONST WEITER MIT      *  SPACE  *":PRINT""
2100 GET A$:IF A$="" THEN 2100
2110 IF A$="G"THEN 2130
2120 IF A$=" " THEN 2170
2130 PRINTCHR$(147):PRINT" WELTW. QTH-KENNER AUS LAENGE UND BREITE"
2140 PRINT" EINGABE IN G.MS     (GRAD.MIN SEC)":PRINT"":PRINT""
2150 FORII=1TO40:PRINTCHR$(196);:NEXT:PRINT:PRINT"":PRINT
2160 PRINT" EINGABE IN G.MS     (GRAD.MIN SEC)":PRINT"":PRINT""
2170 INPUT" LAENGE: ";L:INPUT" BREITE: ";B
2180 IF A$ ="G" THEN GOSUB 2830
2190 PRINT""
2200 Z=6
2210 IF L>180 THEN L=L-360
2220 L=(L+180)/20
2230 B=(B+90)/10
2240 Y=INT(L)
2250 X=INT(B)
2260 L=(L-Y)*10
2270 B=(B-X)*10
2280 C=INT(L)
2290 D=INT(B)
2300 Y$=CHR$(Y+65)+CHR$(X+65)+CHR$(C+48)
2310 Y$=Y$+CHR$(D+48)+CHR$(INT((L-C)*24)+65)+CHR$(INT((B-D)*24)+65)
2320 PRINT""
2330 PRINTCHR$(158);" DER WELTWEITE QTH-KENNER IST:":PRINT""
2340 PRINT"        *** ";Y$;" ***":PRINTCHR$(5)
2350 IF Z=6 THEN 2370
2360 IF Z=4 THEN RETURN
2370 FORII=1TO40:PRINTCHR$(196);:NEXT:PRINT:PRINT""
2380 PRINT" WAS MACHEN WIR JETZT?":PRINT"":PRINT""
2390 PRINT"          A - B - R  ?"
2400 GOTO 1750
2410 PRINTCHR$(147):PRINT""
2420 PRINT"  ENTFERNUNG: ";INT(E+.5);" KM"
2430 PRINT"":PRINT"  ANTENNENRICHTUNG: ";INT(U+.5);"/"; ;" GRAD"
2440 FORII=1TO40:PRINTCHR$(168);:NEXT:PRINT
2450 PRINTCHR$(158);"      *** ZWISCHENERGEBNIS ***"
2460 PRINT""
2470 PRINT"  ANZAHL DER QSO'S:   ";INT(N);" STUECK":PRINT""
2480 PRINT"  GESAMTENTFERNUNG:   ";W;" KM"
2490 PRINT"  WEITESTE VERBINDG.: ";K;" KM"
2500 PRINT"  SCHNITT:            ";INT(W/N+.5);" KM/QSO":PRINT"":PRINTCHR$(5)
2510 FORII=1TO40:PRINTCHR$(196);:NEXT:PRINT
2520 PRINT"  ZURUECK MIT  * R *":PRINT""
2530 RETURN
2540 PRINTCHR$(147)
2550 POKE 53280,13:POKE 53281,8
2560 PRINT"         ***  ENDERGEBNIS  ***"
2570 FORII=1TO40:PRINTCHR$(196);:NEXT:PRINT:PRINT
2580 PRINT"  ANZAHL DER QSO'S:":PRINT""
2590 PRINT TAB(20);INT(N);" STUECK"
2600 PRINT"":PRINT"  UEBERBRUECKTE GESAMTENTFERNUNG:":PRINT""
2610 PRINT TAB(20);W;" KM":PRINT""
3620 PRINT"  SCHNITT:":PRINT""
2630 PRINT TAB(20);INT(W/N+.5);" KM":PRINT""
2640 PRINT"  WEITESTE VERBINDUNG:":PRINT""
2650 PRINT  TAB(20);K;" KM"
2660 PRINT""
2670 PRINT"  BETRIEBSZEIT:      ";LEFT$(TI$,2);".";MID$(TI$,3,2);" STUNDEN
2680 FOR X=1TO2500:NEXT
2690 POKE 53280,14:POKE 53281,6
2700 END
2710 GOTO 210
2720 A=L
2730 H=B
2740 X=INT(A)
2750 A=(A-X)*60
2760 A=INT(A+.5)
2770 A=A/100+X
2780 X=INT(B)
2790 H=(H-X)*60
2800 H=INT(H+.5)
2810 H=H/100+X
2820 RETURN
2830 REM UNTERPROGRAMM SEXASE IMAL->DEZIMAL
2840 X1=INT(L)
2850 X2=(L-X1)*100
2860 X3=INT(X2)
2870 X4=(X2-X3)*100
2880 Y1=INT(B)
2890 Y2=(B-Y1)*100
2900 Y3=INT(Y2)
2910 Y4=(Y2-Y3)*100
2920 L=X1+X3/60+X4/3600
2930 B=Y1+Y3/60+Y4/3600
2940 RETURN
2950 PRINTCHR$(5)
//wprg off
***END
S C64 <DG8FZ @WW $049803DB0GV #0 C64: DATAGEN.LIST
//wprg datagen.list
TRANSFERS ANY FILE TO A DESERT OF DATAS
63948 REM"(C) 1984 CHARLY
63949 REM
63950 REM IN NAECHSTE ZEILE NAMEN DES ZU BEARBEITENDEN PROGRAMMS EINTRAGEN
63951 FI$="MORSE"
63952 OPEN1,8,2,FI$+",P,R":TI$="000000"
63953 SA=PEEK(57)+256*PEEK(58)
63954 IFZ=0THENL=22:DIMF$(L+3):Z=100    :B=16
63955 IFE<>0THEN63980
63956 IFLEN(FI$)<2THENOPEN1,8,2
63957 PRINT"";
63958 FORJ=1TO8
63959 FORX=1TOL+2:F$(X)="":NEXTX:ZS=0
63960 FORX=1TOL
63961 GET#1,F$
63962 IFF$=""THENF$=CHR$(0)
63963 F=ASC(F$):GS=GS+F:ZS=ZS+F
63964 F$="":FORP=0TO0:F=F/B:S=(F-INT(F))*B:F$=CHR$(55+S+7*(S<10))+F$:P=-F:NEXT
63965 F$(X)=F$:IFLEN(F$(X))<2THENF$(X)=RIGHT$(("00"+F$),2)
63966 IFST=64THENE=1:CLOSE1:X=X+1:F=ZS:S=S+F:GOTO63968
63967 NEXTX:F=ZS:GS=GS+F
63968 F$="":FORP=0TO0:F=F/B:S=(F-INT(F))*B:F$=CHR$(55+S+7*(S<10))+F$:P=-F:NEXT
63969 F$(X)=F$:IFLEN(F$(X))<3THENF$(X)=RIGHT$(("000"+F$),3)
63970 REM ZEILE ERZEUGEN
63971 F$=STR$(Z+I+20)+"DATA"
63972 FORX=1TOL+1:F$=F$+F$(X)+",":D=D+1
63973 IFF$(X+1)=""THEN63975
63974 NEXTX
63975 PRINTMID$(F$,2,LEN(F$)-2):I=I+1
63976 IFE<>1THENNEXTJ
63977 POKE198,9:FORX=631TO631+9:POKEX,13:NEXTX
63978 PRINT"I="I":E="E":D="D":GS="GS":B="B":L="L":GOTO"SA""
63979 SYS42115:REM END OHNE READY
63980 IFE=3THENPRINT""D"DATAS IN "TI$:PRINT"PUH BIN ICH GESCHAFFT !!!":SYS42115
63981 IFE=2THEN63991
63982 PRINT""Z"B="B":GS="GS":DA="D":L="L":R=-1"
63983 PRINTZ+1"FORI=1TODA:READF$:Z=Z+1"
63984 PRINTZ+2"D=0:FORS=1TOLEN(F$):H=ASC(MID$(F$,S))-48:D=D*B+H+7*(H>9):NEXT"
63985 PRINTZ+3"DS=DS+D:ZS=ZS+D:IFI<2THENAA=D:NEXTI"
63986 PRINTZ+4"IFI<3THENAA=AA+256*D:NEXTI"
63987 PRINTZ+5"IFZ>LTHENZE=PEEK(63)+256*PEEK(64):IF2*D<>ZSTHENGOTO"Z+9
63988 PRINTZ+6"IFZ>LTHENZ=0:ZS=0:NEXTI"
63989 PRINTZ+7"IFI>DA-1THENGOTO"Z+10
63990 E=2:GOTO63977
63991 PRINT""Z+8"R=R+1:POKEAA+R,D:NEXTI"
63992 PRINTZ+9"?"CHR$(34)"DATA FEHLER IN ZEILE"CHR$(34)"ZE:GOTO"Z+6
63993 PRINTZ+10"IF2*D<>ZSTHENPRINT"CHR$(34)"FEHLER LETZTER ZEILE"CHR$(34)":END"
63994 PRINTZ+11"IFGS<>DS-DTHENPRINT"CHR$(34)"PRUEFFEHLER !!"CHR$(34)":END"
63995 PRINTZ+12"PRINTAA"CHR$(34)"BIS"CHR$(34)"AA+R"
63996 PRINTZ+13"END"
63997 E=3:GOTO63977
63998 SAVE"@:ILE ATA YNT.H",8
63999 ::::::::::::::::::::::::::::EOF
//wprg off
***END
S C64 <DG8FZ @WW $049804DB0GV #0 C64: FASTLOAD.LIST

//wprg fastload.list

THE PROGAMM FOR ALL WHO DON'T LIKE COFFEE

1 REM DIES IST EIN PUBLIC-DOMAIN - COMMODORE 64 - PRGRAMM
2 REM ES GENERIERT EINEN SCHNELLADER AUF DISKETTE.
3 REM DESSEN BEDIENUNG IST: LOAD"_*NAME DES ZU LADENDEN PROGRAMMS",8
4 REM
5 OPEN2,8,2,"@:_FAST LOADER,P,V":PRINT"AT WORK !"
100 B= 16:GS= 296452:DA= 1331 :L= 22 :R=-1
101 FORI=1TODA:READF$:Z=Z+1
102 D=0:FORS=1TOLEN(F$):H=ASC(MID$(F$,S))-48:D=D*B+H+7*(H>9):NEXT
103 DS=DS+D:ZS=ZS+D
105 IFZ>LTHENZE=PEEK(63)+256*PEEK(64):IF2*D<>ZSTHENGOTO 109
106 IFZ>LTHENZ=0:ZS=0:NEXTI
107 IFI>DA-1THENGOTO 110
108 PRINT#2,CHR$(D);:NEXTI:CLOSE2
109 PRINT"DATA FEHLER IN ZEILE"ZE:GOTO 106
110 IF2*D<>ZSTHENPRINT"FEHLER LETZTER ZEILE":END
111 IFGS<>DS-DTHENPRINT"PRUEFFEHLER !!":END
112 PRINTAA"BIS"AA+R:CLOSE2
113 END
120 DATA01,08,0C,08,C0,07,9E,20,33,32,35,38,00,00,00,93,4E,45,57,0D,11,11,420
121 DATA92,4C,6F,22,22,14,24,92,92,92,92,92,92,92,92,92,92,22,2C,38,2C,31,860
122 DATA22,14,0D,11,11,11,52,75,0D,4C,69,00,4B,A2,00,BD,0E,08,F0,06,20,D2,5A7
123 DATAFF,E8,D0,F5,78,A0,00,84,FB,A9,E0,85,FC,B1,FB,91,FB,C8,D0,F9,E6,FC,10F8
124 DATAD0,F5,A9,F8,85,FC,A9,BF,A2,08,85,FD,86,FE,B1,FD,91,FB,C8,D0,F9,E6,10B0
125 DATAFE,E6,FC,A5,FC,C9,FC,90,EF,A9,E5,8D,D6,FD,A2,22,BD,9C,08,9D,C0,02,F37
126 DATACA,10,F7,20,BF,08,8D,4C,FD,8E,4D,FD,A9,DB,A2,02,8D,23,E5,8E,28,E5,BBE
127 DATA58,60,00,48,A9,35,85,01,68,20,6F,F8,48,A9,48,8D,8F,02,A9,EB,8D,90,95B
128 DATA02,A9,37,85,01,68,60,00,A9,35,85,01,4C,48,EB,00,A9,C0,A2,02,8D,30,7DD
129 DATA03,8E,31,03,60,78,A9,27,8D,00,DD,2C,00,DD,50,FB,A9,03,8D,00,DD,A2,8E3
130 DATA09,CA,D0,FD,A2,04,AD,00,DD,0A,08,0A,26,FB,28,26,FB,CA,D0,F2,B5,FB,B92
131 DATA91,AE,C8,D0,E9,A9,17,8D,00,DD,A5,FB,60,78,A9,27,8D,00,DD,2C,00,DD,BA5
132 DATA50,FB,A9,03,8D,00,DD,A2,08,CA,D0,FD,A2,04,AD,00,DD,0A,08,0A,26,FB,A0F
133 DATA28,26,FB,CA,D0,F2,A9,17,8D,00,DD,EA,EA,EA,A5,FB,60,85,93,A9,00,85,D03
134 DATA90,A5,BA,C9,08,F0,03,4C,AB,F4,A4,B7,D0,03,4C,10,F7,8C,E6,FB,A0,00,C2C
135 DATAB1,BB,99,E7,FB,C0,00,D0,04,C9,24,F0,E4,C8,C4,B7,90,EE,20,AF,F5,AD,E6E
136 DATA18,03,48,AD,19,03,48,A9,C1,A2,FE,8D,18,03,8E,19,03,A9,82,8D,0D,DD,872
137 DATAA9,01,8D,06,DD,A9,00,8D,07,DD,A9,19,8D,0F,DD,A9,08,8D,0F,DD,68,8D,98E
138 DATA19,03,68,8D,18,03,AD,15,D0,85,FE,A9,00,8D,15,D0,A9,13,A2,FA,85,03,93C
139 DATA86,04,A2,00,A9,03,86,05,85,06,A9,08,20,0C,ED,A9,6F,20,B9,ED,A5,90,8CB
140 DATA10,07,A9,80,85,FD,4C,DC,F9,A9,4D,20,DD,ED,A9,2D,20,DD,ED,A9,57,20,BA3
141 DATADD,ED,A5,05,20,DD,ED,A5,06,20,DD,ED,A9,1D,20,DD,ED,A0,00,B1,03,20,B17
142 DATADD,ED,C8,C0,1D,90,F6,20,FE,ED,18,A5,03,69,1D,85,03,90,03,E6,04,18,A63
143 DATAA5,05,A6,06,69,1D,85,05,90,03,E8,E6,06,E0,04,90,A1,C9,E4,90,9D,AD,A69
144 DATA11,D0,29,EF,8D,11,D0,A9,08,20,0C,ED,A9,6F,20,B9,ED,A9,4D,20,DD,ED,AEF
145 DATAA9,2D,20,DD,ED,A9,45,20,DD,ED,A9,03,20,DD,ED,A9,03,20,DD,ED,20,FE,BE2
146 DATAED,A9,07,8D,00,DD,A2,00,CA,D0,FD,86,FD,20,3F,F8,C9,FF,F0,5A,A0,02,CCE
147 DATAA6,FD,D0,17,48,20,3F,F8,A8,20,3F,F8,A6,B9,D0,04,A4,C3,A5,C4,84,AE,C5D
148 DATA85,AF,A0,04,68,C9,00,F0,14,84,FD,38,A5,AE,E5,FD,85,AE,B0,02,C6,AF,C55
149 DATA20,0B,F8,E6,AF,D0,C4,20,3F,F8,85,FD,A0,00,A5,FD,C9,02,90,0A,20,3F,B2B
150 DATAF8,91,AE,C8,C6,FD,D0,F0,A9,FF,85,FD,98,18,65,AE,85,AE,90,02,E6,AF,EC9
151 DATAAD,11,D0,09,10,8D,11,D0,A5,FE,8D,15,D0,AD,0D,DD,A9,7F,8D,0D,DD,58,AB8
152 DATAA5,FD,D0,03,4C,04,F7,C9,80,D0,03,4C,07,F7,4C,A9,F5,00,00,4C,08,04,964
153 DATAA9,08,8D,00,18,4C,7E,03,A2,01,58,8A,2C,00,18,F0,FB,78,A9,00,8D,00,785
154 DATA18,8A,2C,00,18,D0,FB,EA,A2,04,B1,0A,49,FF,85,14,A9,00,06,14,2A,0A,7D4
155 DATA06,14,2A,0A,8D,00,18,CA,D0,F0,EA,EA,EA,C8,D0,E2,EA,EA,EA,A9,08,8D,CB1
156 DATA00,18,60,49,FF,58,85,14,A2,01,8A,2C,00,18,F0,FB,78,A9,00,8D,00,18,7D3
157 DATA8A,2C,00,18,D0,FB,A2,04,A9,00,06,14,2A,0A,06,14,2A,0A,8D,00,18,CA,5F3
158 DATAD0,F0,A2,03,CA,D0,FD,A9,08,8D,00,18,60,20,18,C1,A9,00,A2,06,85,0A,98B
159 DATA86,0B,85,0E,A9,06,85,F9,A9,02,85,6A,A9,12,85,06,A9,01,85,07,20,77,7FE
160 DATA04,A0,23,C9,01,D0,50,A0,00,B9,02,06,29,87,C9,82,D0,35,A2,00,F0,1A,8BE
161 DATABD,D4,04,D9,05,06,F0,0B,C9,3F,D0,25,B9,05,06,C9,A0,F0,1E,E8,C8,EC,B48
162 DATAD3,04,B0,09,BD,D4,04,C9,2A,F0,3B,D0,DD,98,29,1F,C9,10,B0,32,B9,05,A49
163 DATA06,C9,A0,F0,2B,98,29,E0,18,69,20,A8,90,B9,AD,00,06,D0,10,A0,62,A9,9FB
164 DATAFF,20,48,03,A9,00,8D,00,18,98,4C,C8,C1,AD,01,06,4C,99,03,A9,06,85,7F5
165 DATA31,4C,D1,F4,98,29,E0,A8,B9,03,06,85,06,B9,04,06,85,07,20,77,04,A0,862
166 DATA23,C9,01,D0,CE,AD,00,06,85,06,20,48,03,A5,0E,D0,12,E6,0E,AD,02,06,772
167 DATA20,48,03,AD,03,06,20,48,03,A0,04,D0,02,A0,02,A5,06,F0,0B,20,0B,03,578
168 DATAAD,01,06,85,07,4C,1D,04,AD,01,06,20,48,03,88,CC,01,06,B0,0A,C8,B9,662
169 DATA00,06,20,48,03,4C,5C,04,A9,00,8D,00,18,A9,01,85,1C,4C,94,C1,A2,00,5F9
170 DATA86,0F,86,0C,A6,1C,F0,09,A9,00,85,1C,A9,B0,20,BD,04,A9,E0,20,BD,04,8D0
171 DATAC9,02,D0,29,A5,0C,D0,25,E6,0C,A9,C0,20,BD,04,A9,B0,20,BD,04,C9,01,9AA
172 DATAD0,15,4C,8A,04,C9,03,D0,0E,A5,0F,D0,0A,E6,0F,A9,C0,20,BD,04,4C,8A,90C
173 DATA04,60,8D,5B,02,8D,4D,02,85,00,A9,FF,8D,98,02,A2,00,58,20,A6,D5,B0,8C3
174 DATAFB,60,A5,FD,D0,03,4C,04,F7,C9,80,D0,03,4C,07,F7,4C,A9,F5,49,01,A9,B5A
175 DATAF5,A0,01,C8,C4,B7,F0,09,B1,BB,99,19,08,D0,F4,F0,9F,A9,2A,CD,FE,9F,D88
176 DATAF0,08,A9,14,8D,2A,08,EA,EA,EA,20,38,08,A9,13,8D,77,02,A9,0D,8D,78,90F
177 DATA02,8D,79,02,8D,7A,02,A9,04,85,C6,60,00,00,C7,FF,00,8B,F6,7B2
50000 REM SAVE"@:GEN_",8


//wprg off
***END