Initial commit

.gitignore

@@ -0,0 +1,3 @@
+/!_PowerBASIC_!/
+*~
+*.pb

CBF.BAS

@@ -0,0 +1,69 @@
+10 KEY OFF
+20 CLS
+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"
+150 COLOR 15
+160 LOCATE 7,1:PRINT"Code     : ";:COLOR 14:INPUT "",CODE$
+170 IF CODE$="END" OR CODE$="end" THEN COLOR 15: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cken, wenn bereit"
+500 A$=INKEY$:IF A$="" THEN 500
+510 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.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��e"
+"74","la� dich nicht erwischen"
+"99","verschwinde"
+"88","Liebe und K�sse"
+"600","weiter am Telefon"
+

DELTREE.BAS

@@ -0,0 +1,14 @@
+  open "A",#1,"C:\HACKER.NFO"
+  datum$=mid$(date$,4,2)+"."+left$(date$,2)+"."+right$(date$,2)
+  print#1,"þ DELTREE-Versuch ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ"
+  print#1,"Datum: ";datum$;"   ";chr$(15);"   Uhrzeit: ";time$
+  print#1,"Kommandozeile: DELTREE ";command$
+  print#1,"Erfolgreich abgewehrt."
+  BEEP
+  COLOR 12:print"* * * W A R N U N G * * *":color 15
+  print
+  print"Es wurde ein DELTREE-Versuch gemacht!"
+  print"Befehl: DELTREE ";command$
+  print
+  print"DELTREE ist auf diesem Ger„t momentan deaktiviert."
+

EDITPATH2.BAS

@@ -0,0 +1,155 @@
+CLS
+shell "mode co80"
+DIM PATH$(40)
+$INCLUDE "LOGO.INC"
+color 15
+print
+print"ððð EditPath ððð by RoboCop INDUSTRIES"
+print
+print"Lese Path-Variable ... ";
+PATH$=ENVIRON$("PATH")
+BACKUP$=PATH$
+print "OK"
+if PATH$="" then
+  print
+  print"Pfad-Variable ist leer! Neu anlegen (J/N)?"
+  gosub InpKey
+  if a$="j" or a$="J" then goto NewPath
+  if A$="n" or A$="N" then goto Ende
+end if
+print"Splitte Path-String ... ";
+x=1
+for y=1 to 255
+  IF MID$(PATH$,y,2)=";" or mid$(path$,y,2)="" then PATHs=x:exit for
+  IF MID$(PATH$,y,1)=";" then x=x+1:goto 2
+  PATH$(x)=PATH$(x)+mid$(PATH$,y,1)
+2next y
+print "OK"
+goto EditPath
+
+NewPath:
+PATHs=1
+PATH$(1)="C:\DOS"
+goto EditPath
+
+InpKey:
+1 A$=INKEY$:IF A$="" THEN 1
+  RETURN
+
+EditPath:
+chosen=1
+oldchosen=1
+oldy=1
+cls:color 15,1
+print"ððð EditPath ððð by RoboCop INDUSTRIES                              [ESC] - Ende";
+
+EP:
+locate 25,1:color 14,1:print space$(80);
+color 15,0
+y=1
+for x=1 to PATHs
+  if x+2-z>22 and y<>41 then y=41:z=20:goto 4
+  if x+2-z>22 and y=41 then end
+4 locate x+2-z,y
+  print using"## \                                   \";x;PATH$(x);
+  locate x+3-z,y
+  print space$(40);
+next x
+z=0
+ShowPaths:
+color 15,0
+locate oldchosen+2-oldz,oldy:print using"## \                                   \";oldchosen;PATH$(oldchosen);
+if chosen<=20 then y=1:z=0 else y=41:z=20
+oldchosen=chosen:oldy=y:oldz=z
+locate chosen+2-z,y
+color 0,4:print using"## \                                   \";chosen;PATH$(chosen);
+gosub InpKey
+KeyIn$=MID$(A$,2,1)
+if KeyIn$="H" and chosen>1 then sound 1000,.5:chosen=chosen-1
+if KeyIn$="P" and chosen<PATHs then sound 1000,.5:chosen=chosen+1
+if KeyIn$="K" and chosen>20 then sound 1000,.5:chosen=chosen-20
+if KeyIn$="M" and chosen<21 and PATHs>=chosen+20 then sound 1000,.5:chosen=chosen+20
+if KeyIn$="R" and PATHs<40 then sound 1500,1:goto InsertOne
+if KeyIn$="S" and PATHs>1 then sound 800,1:goto RemoveChosen
+if KeyIn$="G" and chosen>1 then sound 1000,.5:chosen=1
+if KeyIn$="O" and chosen<PATHs then sound 1000,.5:chosen=PATHs
+if a$=chr$(13) then sound 800,1:delay 1/18.2:sound 1500,1:goto EditSelected
+if a$=chr$(27) then for a=1 to 3:sound 1000,1:delay 2/18.2:next a:goto WriteItDown
+goto ShowPaths
+
+InsertOne:
+PATHs=PATHs+1
+for x=PATHs to chosen STEP -1
+  PATH$(x)=PATH$(x-1)
+next x
+path$(chosen)=""
+goto EP
+
+RemoveChosen:
+PATHs=PATHs-1
+for x=chosen to PATHs
+  PATH$(x)=PATH$(x+1)
+next x
+if PATHs+1=chosen then chosen=chosen-1:oldchosen=1
+goto EP
+
+
+EditSelected:
+color 15,0
+BAKPATH$=PATH$(chosen)
+' locate 24,1:print PATH$(chosen);
+locate 24,1:input ;"Neuer Pfad: ",PATH$(chosen)
+locate 24,1:print space$(80);
+if PATH$(chosen)="" then
+  color 14,1
+  locate 25,19:print"Keine Eingabe, L”schen oder Behalten (L/B)?";
+  for a=1 to 3:sound 1000,1:delay 2/18.2:next a
+6 gosub InpKey
+  if a$="l" or a$="L" then sound 800,1:PATH$(chosen)="":goto 7
+  if a$="b" or a$="B" then sound 1500,1:PATH$(chosen)=BAKPATH$:goto 7
+  sound 1000,1
+  goto 6
+7end if
+goto EP
+
+
+
+WriteItDown:
+Down$="@SET PATH="
+locate 25,18:color 30,1
+print"Wollen Sie die Žnderungen schreiben (J/N)?";
+5gosub InpKey
+if A$="j" or a$="J" then sound 1500,1:Zustand$="Neue PATH-Variable geschrieben.":goto YoSchreiben
+if a$="n" or A$="N" then sound 800,1:Zustand$="Alte PATH-Variable beibehalten.":goto Nee
+sound 1000,1
+goto 5
+
+YoSchreiben:
+for x=1 to PATHs
+  Down$=Down$+PATH$(x)+";"
+next x
+open "O",#1,"EDITPATH.BAT"
+PRINT#1,Down$
+close #1
+goto Ende
+
+Nee:
+Down$="@SET PATH="
+Down$=Down$+BACKUP$
+open "O",#1,"EDITPATH.BAT"
+PRINT#1,Down$
+close #1
+goto Ende
+
+Ende:
+color 15,0
+cls:color 15,1
+print"ððð EditPath ððð by RoboCop INDUSTRIES                                          ";
+color 15,0
+print
+print Zustand$
+print
+print"Vielen Dank fr die Benutzung von EditPath!"
+print
+print"Bitte rufen Sie EDITPATH.BAT auf."
+end