mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-12-25 12:04:08 +00:00
Added files as of 29 Aug 1996.
This commit is contained in:
parent
0d2403426d
commit
8667b597c1
GPG Key ID:
A9928D7A098C3A9A
71
CBF/CBF.BAS
Normal file
71
CBF/CBF.BAS
Normal file
@ -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
|
||||
|
||||
34
CBF/CBF.DAT
Normal file
34
CBF/CBF.DAT
Normal file
@ -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"
|
||||
|
||||
BIN
FORMAT/CODED.BAS
Normal file
BIN
FORMAT/CODED.BAS
Normal file
Binary file not shown.
85
FORMAT/FORMAT.BAS
Normal file
85
FORMAT/FORMAT.BAS
Normal file
@ -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
|
||||
|
||||
BIN
FORMAT/UNCODED.BAS
Normal file
BIN
FORMAT/UNCODED.BAS
Normal file
Binary file not shown.
Loading…
Reference in New Issue
Block a user