From 8667b597c19034216d58bc672c6d8c1f9336bce9 Mon Sep 17 00:00:00 2001 From: Markus Birth Date: Thu, 29 Aug 1996 20:39:12 +0200 Subject: [PATCH] Added files as of 29 Aug 1996. --- CBF/CBF.BAS | 71 +++++++++++++++++++++++++++++++++++++ CBF/CBF.DAT | 34 ++++++++++++++++++ FORMAT/CODED.BAS | Bin 0 -> 2396 bytes FORMAT/FORMAT.BAS | 85 +++++++++++++++++++++++++++++++++++++++++++++ FORMAT/UNCODED.BAS | Bin 0 -> 2395 bytes 5 files changed, 190 insertions(+) create mode 100644 CBF/CBF.BAS create mode 100644 CBF/CBF.DAT create mode 100644 FORMAT/CODED.BAS create mode 100644 FORMAT/FORMAT.BAS create mode 100644 FORMAT/UNCODED.BAS diff --git a/CBF/CBF.BAS b/CBF/CBF.BAS new file mode 100644 index 0000000..6fb9eaa --- /dev/null +++ b/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 drcken, 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 + \ No newline at end of file diff --git a/CBF/CBF.DAT b/CBF/CBF.DAT new file mode 100644 index 0000000..915bff3 --- /dev/null +++ b/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","mhsam 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 Ksse" +"600","weiter am Telefon" + \ No newline at end of file diff --git a/FORMAT/CODED.BAS b/FORMAT/CODED.BAS new file mode 100644 index 0000000000000000000000000000000000000000..8eeca2a57a373a727962433a697e30ef62524e91 GIT binary patch literal 2396 zcmV-i38VJ@+o``)>+<3sb@?gb-e2>6NVLgP)kbWSEck<1T!{4!(vquEQ#PYtxaAQy zjC5xIvZwBD<{anzT4dFj#9)*v58{nh8gkK)^h2-Z?e*b4;^VGl41V#tTB^@y)_r+! zgRXffz5uAI1a*^T4fbu0Z}136q0GB$>ka()WEm~wascv7akuM*v3e!Z;?M)HffbpOTcPw1$Y{q`@bw~c^XXw7hfl|sS36X1T-uI9mtr}fliHk8hz zmJT2UoKzMaii&mc4bABmC|KIl?iKBi>raGmj6`~1VaT(#Syam<-SN8_cg~ZC z*24TWv*MQW_AvL@z!Ys&#gdVkL&MA!c5Ab*MPLQU_|`E{z~8+HOnOcb%l=^L?K<^` zs@PyrFRjRmX2OusvdUn_n7I!ztB%`qh;m-N@je~ZBGJIkd|0V?2GY8TD}k}R`EIul z75Z{~5-K}L5w{IbIj_jIu-v7v6_FaXrZ}NQBCfA=0!ZYzRth`xrO!`1p|n`BR^#f~ z=Q1@p1O<6kZC#*1Pn!87yF^CTaIbqMenDHdhQT|O)H zCGt{*02FVWx_zwpAtce!In z@?-WmOd<=Trw?Va=Y0-)eQb0o=z=RLhHn|*On?tC`s-oV#+(50iKHa!wL<#x2JkTI zQ!T~pCqnQ=?TuCikc`KEvp|Y=l5`5l-3NTq$%+KX1Bf#7CT2mC_5$N?tgh?~GsoY; zCSaW>{i z6<#1=EflA7E}X`8G2CkHRA5dBjR%Y6DSK!&8m@$Nvk%9ak0>4Z)5IvP^_K7EBloz( z3o-}tkZ_PT!{JPOY{jNQVg{`37m~=?UB&0 z^n>B;-C#kV+sb9_Jrc!CC2R`<=nk0E2KAnRj5h~tXp-Jk386UkZg;}N=+@z3=)_eY zkWu3M;1>$cVvf@NU}np|;XTRG`RuVFsE_+(aaYckfu!b)0)s$s zilTr~2aD&_C3nro!?JEXs@%y#abhclNc5W>_mvJZr-OHq)V|}UADgM2E)I+0$~Tfr zM!ykh8F>PtEA66Y)xKZ%q#GKV^%Cs^xQz6+a(shFo-}L-c}k~mD#ljAty`qCPw6ng zQJ2L#gfZq|mW@^#VV>2VzRAx!@RLKd=3nWr0hZzaxkEnX{U$4l+_` zl0MiI-&h*Xj}*40d08iHEVX+xlUK`=2u_TJvVTpNTe0RG6pn=Jdo@1t6e4p-YIo}wH+h1Ceyv%K!wH5PSR{vo?Or%@UXqRCTa`vW)Ka`%;TtB z)t)%G;+C*-3DvOw zfC!|yz*Ew})4ff9ZpE=dY5vHj25=Fl^O%+^DT$(I2?&XUU+@|I>3t^dzL>|>evi|ZAd}zapaF<1m$4W^W zx21S2itdF&D<#w6#N>l|%@D7BWGq|q9)`e$rzTpg^{RjE`^=CJv12$}_5~ zvbHCKka_Sfq7Q#tvk{Z|2?A%CsjV=*z$-N?C4i4vP`voq7 zAlKEdofnH=;@!6#DX{#0v(M0s7qLrgBO7KYUsHnx`cS`HGWGka?B~RT+LoK>XArdR zh_M9((c*S$Ac>N05J0p#bNER7sT|c^#0qYVb`s946@(!ED=QNbplm~&AE+{ z;RF*rmZ>~%qb#Dpyk)W`Ggi!Q|NfDA9lu1{@`53sBBzNq4gAZm z7wGi;7gA#hueO`VTM}v!LoI^T$$<~$QMnK*r3v3J-?r6YG^fuqBa*OLXV;Bi2UcA( z<{If#hj0n?GaAXFE(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 fr 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 verfgbar";BTEI$ +370 PRINT +380 PRINT" 512 Byte in jeder Zuordnungseinheit." +390 PRINT USING" \ \ Zuordnungseinheiten auf dem Datentr„ger verfgbar.";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"Ungltiges 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 + \ No newline at end of file diff --git a/FORMAT/UNCODED.BAS b/FORMAT/UNCODED.BAS new file mode 100644 index 0000000000000000000000000000000000000000..8a901b114e9a95d61cc2fc562006fa94b2bf645a GIT binary patch literal 2395 zcmZ`)ZERCj7=GK~M<%Xt`+d9U+1X-R=>|hUY|Y^IYa8q<>xQ^2nr=N?3+*l3-cCS& zP-KdNgbG0=kw8L>n#d1BjEPE!38F-z(L@s@#vf*P10(*>#PEapo_p`M4&)~NIM4gM z?|HxPtSZ#P1(*~Z&?gOaG-)&%8g8R-M0frLxt$lFnl1ahDkzcP-=p! z!qae&NT{>(1*WKbO4-7W@(L*#OSE@v+T8Wd;oZANCr0Fau%(%jE2IpwLgFq3F6ry< z)okg|YozWxzMpq?tkztf=nDrBszs z7`CU8pOr}$O3|C`BpM?4n@0XP%N;9@X4D1>`|UE)5(OonQnO4!VY;M@X2!}H{@=f8 zWlvxOpRSOk6=5303Ge3h&tup@SFg$1y8ESJ@(sjg6!`Lc^FhxMe@3 zi#gV(6!tJ#MW2gC1gf%soGC>zHs^;*!FpX2&^@G-*Z%Vg9EyKi>F<%@HtDiKb8@Y0E)%oX3P4=|y33FdEf_5T1#) zJan0Og91mKR4OQGo{=JkoMBnDg~GG$SIpbF zq8ZEZ-PHMga1Uo%XxJiLP+z3kU7!G6`~Xqs^LA}kt1OxKB7A?x{V!S-mn%5*elvbI{` zsONeWD_5+hbtO6P0{8W-1ulC2#u`T07|Y~HftQSDFDs|=jL6u(D(={^60QN6a*Z<< z5WKh1HgDDGDauX7`tdzMvPG5984i=sX%ow&RHN6c+p%g)C`7#vTCs(yDu&&^y*(!HmUpYQ!i#9Qj<+lkM@(6* zn6s9lUYxK>+U%r%_P`C>vcQZ0E5*H5T=|-S8I525$iio}_R|{9cDd z6IxH<7xAhN*=kMfDGE2m-wo^`6O$;^`2I97zR-9~5ejbKzXtZOiA5=_@L6kk=(ai& zi&5C%TWVl76N^(w`dkLK%)}BD@;<_`X#uB3nzGGF(4)P+$7}Ri*Yxk1NE4j#twAy_ jS{(^!JZ04s+DzdyUt2Y2O5=eahKs(A8f*gG{s7{C(JbVa literal 0 HcmV?d00001