Added files as of 29 Aug 1996.

CBF/CBF.BAS

@@ -0,0 +1,71 @@
+10 KEY OFF
+20 CLS
+30 VIEW PRINT
+40 ON ERROR GOTO 700
+50 CHCDE$=""
+60 CODE$=""
+70 ANF$=""
+80 CDE$=""
+90 BED$=""
+100 COLOR 14
+110 LOCATE 1,30:PRINT"CB-Funk Hilfsprogramm"
+120 LOCATE 2,40:COLOR 12:PRINT"written by RoboCop INDUSTRIES"
+130 LOCATE 4,25:COLOR 10:PRINT"(C)1995-96 by RoboCop INDUSTRIES"
+140 VIEW PRINT 6 TO 24
+150 COLOR 15
+160 LOCATE 7,1:PRINT"Code     : ";:COLOR 14:INPUT "",CODE$
+170 IF CODE$="END" OR CODE$="end" THEN COLOR 15:VIEW PRINT:END
+180 GOSUB 620
+190 ANF$=LEFT$(CODE$,1)
+200 LOCATE 7,12:COLOR 14:PRINT CODE$
+210 COLOR 15:PRINT"Kategorie: ";
+220 COLOR 13:PRINT"Suche ..."
+230 LOCATE 8,12
+240 COLOR 14
+250 IF ANF$="Q" OR ANF$="q" THEN PRINT"Q-Code   ":GOTO 340
+260 IF ANF$="S" AND LEN(CODE$)=2 AND ASC(RIGHT$(CODE$,1))>47 AND ASC(RIGHT$(CODE$,1))<58 THEN PRINT"S-Stufe  ":GOTO 340
+270 IF ASC(ANF$)>47 AND ASC(ANF$)<58 THEN PRINT"Zahlencode":GOTO 340
+280 PRINT"unbekannt":GOTO 340
+290 COLOR 15:PRINT"Datendatei erweitern [J/N] ?"
+300 A$=INKEY$:IF A$="" THEN 300
+310 IF A$="j" OR A$="J" THEN GOTO 530
+320 IF A$="n" OR A$="N" THEN GOTO 510
+330 GOTO 300
+340 COLOR 15:PRINT"Bedeutung: ";
+350 COLOR 13:PRINT"Suche ..."
+360 OPEN "I",#1,"CBF.DAT"
+370 ON ERROR GOTO 390
+380 INPUT#1,CDE$,BED$:GOTO 400
+390 COLOR 14:LOCATE 9,12:PRINT"unbekannt":CLOSE #1:GOTO 290
+400 IF CDE$=CODE$ THEN CLOSE #1:GOTO 420
+410 GOTO 380
+420 IF LEFT$(BED$,7)="Station" THEN COLOR 14:LOCATE 8,12:PRINT"Rufname / Bezeichnung"
+430 ON ERROR GOTO 690:COLOR 14:LOCATE 9,12
+440 IF LEN(BED$)>9 THEN GOTO 480
+450 FOR Y=LEN(BED$) TO 9
+460 BED$=BED$+" "
+470 NEXT Y
+480 PRINT BED$
+490 LOCATE 15,1:COLOR 9:PRINT"Taste dr<64>cken, wenn bereit"
+500 A$=INKEY$:IF A$="" THEN 500
+510 VIEW PRINT:CLS
+520 RUN
+530 '***** Datendatei erweitern
+540 OPEN "A",#2,"CBF.DAT"
+550 CLS:LOCATE 7,1:COLOR 15:PRINT"Code     : ";CODE$
+560 INPUT"Bedeutung: ",BED$
+570 PRINT:PRINT"Alles richtig [J/N] ?"
+580 A$=INKEY$:IF A$="" THEN 580
+590 IF A$="j" OR A$="J" THEN WRITE#2,CODE$,BED$:CLOSE #2:GOTO 510
+600 IF A$="n" OR A$="N" THEN GOTO 560
+610 GOTO 580
+620 '***** kleinbuchst. ----> GROáBUCHST.
+630 FOR X=1 TO LEN(CODE$)
+640 BUCHST$=MID$(CODE$,X,1)
+650 IF ASC(BUCHST$)>96 AND ASC(BUCHST$)<123 THEN BUCHST$=CHR$(ASC(BUCHST$)-32)
+660 CHCDE$=CHCDE$+BUCHST$
+670 NEXT X
+680 IF LEN(CODE$)=LEN (CHCDE$) THEN 690 ELSE GOTO 700
+690 CODE$=CHCDE$:RETURN
+700 COLOR 12:PRINT"FEHLER ist aufgetreten! Programmabbruch!":END
+

CBF/CBF.DAT

@@ -0,0 +1,34 @@
+"QRA","Rufname / Kennung"
+"QRG","Frequenz / Kanal"
+"QRK","Lesbarkeit / Radiowert"
+"QRL","Besch„ftigung bei der man nicht funken kann"
+"QRM","St”rungen"
+"QRT","Ende / Schluá"
+"QRV","Bereit / auf Empfang"
+"QRX","Bitte warten!"
+"QRZ","Kommen / Rufe ..."
+"QSA","Lautst„rke / Santiagowert"
+"QSB","Fading"
+"QSL","Empfangsbest„tigung"
+"QSO","Funkverbindung"
+"QSP","Vermittlung / Relaisstation"
+"QST","An ALLE!"
+"QSY","Frequenzwechsel / Kanalwechsel"
+"QTH","Standort"
+"QTR","Uhrzeit"
+"S1","kaum h”rbares Signal"
+"S2","sehr schwach h”rbares Signal"
+"S3","m<>hsam h”rbares Signal"
+"S4","leises. aber ausreichend h”rbares Signal"
+"S5","noch schwaches. aber ziemlich gut h”rbares Signal"
+"S6","gut h”rbares Signal"
+"S7","lautes Signal"
+"S8","sehr lautes Signal. voll aufgedrehte Lautst„rke nicht mehr m”glich"
+"S9","„uáerst lautes Signal"
+"55","viel Erfolg / viele QSO's"
+"73","die besten Gr<47>áe"
+"74","laá dich nicht erwischen"
+"99","verschwinde"
+"88","Liebe und K<>sse"
+"600","weiter am Telefon"
+

FORMAT/FORMAT.BAS

@@ -0,0 +1,85 @@
+10 CLS
+20 PATH$="C:\>"
+30 MEG=245
+40 PRINT PATH$;
+50 INPUT "",A$
+60 IF A$="qwertzuiop<6F>+ASDFGHJKL™Žyxcvbnm,.-" THEN END
+70 IF A$="qwertzuiop" THEN PRO=100:GOTO 190
+80 PRINT
+90 PRINT"WARNUNG !  Alle Daten auf der Festplatte"
+100 PRINT"in Laufwerk C: werden gel”scht!"
+110 PRINT"Formatieren durchf<68>hren (J/N)? ";
+120 INPUT "",A$
+130 LOCATE 5,32:PRINT"j"
+140 PRINT
+150 PRINT USING"Formatiere ### MB";MEG
+160 PRINT USING"### Prozent des Datentr„gers formatiert";PRO
+170 SHELL"ECHO FORMATIERE!!!>C:\FORMAT.DAT"
+180 A=A+1:IF A>=(MEG/20) THEN PRO=PRO+1:A=0
+190 IF PRO=100 THEN SUCC=1:PRO =0:LOCATE 8,1:GOTO 160
+200 IF SUCC=1 THEN 220
+210 LOCATE 8,1:GOTO 160
+220 LOCATE 8,1:PRINT"Formatieren beendet                           "
+230 SHELL"DEL FORMAT.DAT"
+240 BTE$=STR$(1024*1024*MEG/1000)
+250 BTEI$=LEFT$(BTE$,4)+"."+MID$(BTE$,5,3)
+260 BTE$=STR$(1024*1024*MEG*10000000#)
+270 BTEI$=BTEI$+"."+MID$(BTE$,8,3)
+280 ZEVERF$=STR$(1024*1024*MEG/512)
+290 ZEVERF$=LEFT$(ZEVERF$,4)+"."+RIGHT$(ZEVERF$,3)
+300 GOSUB 630
+310 PRINT
+320 INPUT"Datentr„gerbezeichnung (11 Zeichen, EINGABETASTE f<>r keine)? ",LBL$
+330 IF LEN(LBL$)>12 THEN LOCATE 10,1:GOTO 320
+340 PRINT
+350 PRINT USING"  \          \ Byte Speicher auf dem Datentr„ger insgesamt";BTEI$
+360 PRINT USING"  \          \ Byte auf dem Datentr„ger verf<72>gbar";BTEI$
+370 PRINT
+380 PRINT"           512 Byte in jeder Zuordnungseinheit."
+390 PRINT USING"      \      \ Zuordnungseinheiten auf dem Datentr„ger verf<72>gbar.";ZEVERF$
+400 PRINT
+410 PRINT USING"Datentr„gernummer: \       \";DNUM$
+420 PRINT
+430 PRINT PATH$;
+440 INPUT "",COMM$
+450 IF COMM$="d:" OR COMM$="D:" THEN PATH$="D:\>":MEG=120:GOTO 40
+460 IF COMM$="dir" OR COMM$="DIR" THEN GOTO 510
+470 IF LEFT$(COMM$,3)="cd " OR LEFT$(COMM$,3)="CD " THEN GOTO 580
+480 IF COMM$="cd" OR COMM$="CD" THEN GOTO 600
+490 IF COMM$="cls" OR COMM$="CLS" THEN CLS:GOTO 430
+500 PRINT"Befehl oder Dateiname nicht gefunden":GOTO 420
+510 IF LBL$<>"" THEN DR$=" ist "+LBL$ ELSE DR$=" hat keine Datentr„gerbezeichnung"
+520 PRINT" Datentr„ger in Laufwerk ";LEFT$(PATH$,1);DR$
+530 PRINT" Datentr„ger-Seriennummer ist ";DNUM$
+540 PRINT" Verzeichnis von ";LEFT$(PATH$,3)
+550 PRINT
+560 PRINT"Datei nicht gefunden"
+570 GOTO 420
+580 PRINT"Ung<6E>ltiges Verzeichnis"
+590 GOTO 420
+600 PRINT LEFT$(PATH$,3)
+610 GOTO 420
+620 END
+630 A=INT(RND*16)+1
+640 IF A=1 THEN B$="0"
+650 IF A=2 THEN B$="1"
+660 IF A=3 THEN B$="2"
+670 IF A=4 THEN B$="3"
+680 IF A=5 THEN B$="4"
+690 IF A=6 THEN B$="5"
+700 IF A=7 THEN B$="6"
+710 IF A=8 THEN B$="7"
+720 IF A=9 THEN B$="8"
+730 IF A=10 THEN B$="9"
+740 IF A=11 THEN B$="A"
+750 IF A=12 THEN B$="B"
+760 IF A=13 THEN B$="C"
+770 IF A=14 THEN B$="D"
+780 IF A=15 THEN B$="E"
+790 IF A=16 THEN B$="F"
+800 IF A<1 OR A>16 THEN B$="9"
+810 DNUM$=DNUM$+B$
+820 IF LEN(DNUM$)=4 THEN DNUM$=DNUM$+"-"
+830 IF LEN(DNUM$)>=9 THEN RETURN
+840 GOTO 630
+