Initial commit
This commit is contained in:
commit
b70b202e46
3
.gitignore
vendored
Normal file
3
.gitignore
vendored
Normal file
@ -0,0 +1,3 @@
|
||||
/!_PowerBASIC_!/
|
||||
*~
|
||||
*.pb
|
||||
69
CBF.BAS
Normal file
69
CBF.BAS
Normal file
@ -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<64>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
|
||||
|
||||
34
CBF.DAT
Normal file
34
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"
|
||||
|
||||
14
DELTREE.BAS
Normal file
14
DELTREE.BAS
Normal file
@ -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."
|
||||
|
||||
155
EDITPATH2.BAS
Normal file
155
EDITPATH2.BAS
Normal file
@ -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
|
||||
233
ELFELDT.BAS
Normal file
233
ELFELDT.BAS
Normal file
@ -0,0 +1,233 @@
|
||||
cls
|
||||
screen 0
|
||||
color 15
|
||||
|
||||
|
||||
oldposx=1:oldposy=1
|
||||
npos=4:hpos=12+16
|
||||
nneg=9:hneg=11+16
|
||||
nneu=8:hneu=15+16
|
||||
|
||||
|
||||
color 14
|
||||
print"-=ðþ Elektrische Felder þð=-"
|
||||
print
|
||||
color 7
|
||||
print" Editor geschrieben von RoboCop <RoboCop@EarthCorp.com>"
|
||||
color 15
|
||||
print
|
||||
|
||||
EnterFile:
|
||||
input"Dateiname (z.B. project5)([ENTER] f<>r neue Datei): ",finame$
|
||||
finame$=finame$+".elf"
|
||||
cls
|
||||
screen 12
|
||||
if finame$=".elf" then goto HierWeiter1
|
||||
on error goto FileNotEx
|
||||
open "I",#1,finame$
|
||||
close #1
|
||||
open "B",#1,finame$
|
||||
HierWeiter1:
|
||||
on error goto SomeError
|
||||
locate 1,1:color nneg:print"þ";:color 8:print" negativ"
|
||||
locate 2,1:color npos:print"þ";:color 8:print" positiv"
|
||||
locate 3,1:color nneu:print"þ";:print" neutral"
|
||||
locate 5,1:color 14:print"+/-"
|
||||
locate 6,2:color 8:print"Ladung"
|
||||
locate 8,1:color 14:print"0"
|
||||
locate 9,2:color 8:print"neutral"
|
||||
locate 11,1:color 14:print"Cursor"
|
||||
locate 12,2:color 8:print"bewegen"
|
||||
locate 14,1:color 14:print"[ESC]"
|
||||
locate 15,2:color 8:print"fertig!"
|
||||
dim col(50,30)
|
||||
dim num(50,30)
|
||||
dim onum(50,30)
|
||||
dim ocol(50,30)
|
||||
for x=1 to 50
|
||||
for y=1 to 30
|
||||
color 8:locate y,x+14:print"ú";
|
||||
if done=0 then locate y,66:print str$(y);:if y<10 then locate y,11:print str$(y); else locate y,10:print str$(y);
|
||||
if done=0 then locate y,14:print"³";:locate y,65:print"³";:oldy=y
|
||||
if x=2 then done=1
|
||||
if finame$<>".elf" then get$ #1,1,ch$ else ch$=chr$(0)
|
||||
locate y,x+14
|
||||
if asc(ch$)<128 then col(x,y)=npos:num(x,y)=asc(ch$)
|
||||
if asc(ch$)>128 then col(x,y)=nneg:num(x,y)=256-asc(ch$)
|
||||
if asc(ch$)=0 then col(x,y)=nneu
|
||||
color col(x,y)
|
||||
if num(x,y)<>0 then print right$(str$(num(x,y)),1); else print"ú";
|
||||
onum(x,y)=num(x,y)
|
||||
ocol(x,y)=col(x,y)
|
||||
if finame$<>".elf" then if eof(1) then exit for
|
||||
next y
|
||||
if finame$<>".elf" then if eof(1) then exit for
|
||||
next x
|
||||
if finame$<>".elf" then close #1
|
||||
newposx=1:newposy=1:gosub ShowNewPos
|
||||
2 a$=inkey$:if a$="" then goto 2
|
||||
skey$=right$(a$,1)
|
||||
if a$=chr$(27) then goto WannaSave
|
||||
if ((a$="9" OR skey$="I") AND newposy>1 AND newposx<50) then newposy=newposy-1:newposx=newposx+1
|
||||
if ((a$="8" OR skey$="H") AND newposy>1) then newposy=newposy-1
|
||||
if ((a$="7" OR skey$="G") AND newposy>1 AND newposx>1) then newposy=newposy-1:newposx=newposx-1
|
||||
if ((a$="6" OR skey$="M") AND newposx<50) then newposx=newposx+1
|
||||
if ((a$="4" OR skey$="K") AND newposx>1) then newposx=newposx-1
|
||||
if ((a$="3" OR skey$="Q") AND newposy<30 AND newposx<50) then newposy=newposy+1:newposx=newposx+1
|
||||
if ((a$="2" OR skey$="P") AND newposy<30) then newposy=newposy+1
|
||||
if ((a$="1" OR skey$="O") AND newposy<30 AND newposx>1) then newposy=newposy+1:newposx=newposx-1
|
||||
if a$="0" OR skey$="R" then col(newposx,newposy)=nneu:num(newposx,newposy)=0
|
||||
if a$="+" then
|
||||
x=newposx:y=newposy
|
||||
OK=0
|
||||
if col(x,y)=nneu AND OK=0 then num(x,y)=1:col(x,y)=npos:OK=1
|
||||
if col(x,y)=nneg AND OK=0 then num(x,y)=num(x,y)-1:OK=1:if num(x,y)=0 then col(x,y)=nneu
|
||||
if col(x,y)=npos AND OK=0 AND num(x,y)<9 then num(x,y)=num(x,y)+1:OK=1
|
||||
end if
|
||||
if a$="-" then
|
||||
x=newposx:y=newposy
|
||||
OK=0
|
||||
if col(x,y)=nneu AND OK=0 then num(x,y)=1:col(x,y)=nneg:OK=1
|
||||
if col(x,y)=nneg AND OK=0 AND num(x,y)<9 then num(x,y)=num(x,y)+1:OK=1
|
||||
if col(x,y)=npos AND OK=0 then num(x,y)=num(x,y)-1:OK=1:if num(x,y)=0 then col(x,y)=nneu
|
||||
end if
|
||||
gosub ShowNewPos
|
||||
goto 2
|
||||
|
||||
ShowNewPos:
|
||||
locate OldposY,OldposX+14
|
||||
color col(OldposX,OldposY)
|
||||
if num(OldposX,OldposY)=0 then print "ú"; else print right$(str$(num(OldposX,OldposY)),1);
|
||||
locate NewPosY,NewPosX+14
|
||||
color col(NewPosX,NewPosY)
|
||||
if num(NewPosX,NewPosY)=0 then
|
||||
color hneu:print"ù";
|
||||
else
|
||||
if col(NewPosX,NewPosY)=nneg then color hneg
|
||||
if col(NewPosX,NewPosY)=npos then color hpos
|
||||
print right$(str$(num(NewPosX,NewPosY)),1);
|
||||
end if
|
||||
OldposX=NewposX
|
||||
OldposY=NewposY
|
||||
locate 1,73
|
||||
color 14:print using"X## Y##";newposx;newposy;
|
||||
return
|
||||
|
||||
WannaSave:
|
||||
screen 0
|
||||
cls
|
||||
color 14
|
||||
print "-=ðþ Elektrische Felder þð=-"
|
||||
color 7
|
||||
print " Editor geschrieben von RoboCop <RoboCop@EarthCorp.com>"
|
||||
print
|
||||
color 15
|
||||
for x=1 to 50
|
||||
for y=1 to 30
|
||||
if num(x,y)<>onum(x,y) OR col(x,y)<>ocol(x,y) then ChangedFlag=1:exit for
|
||||
next y
|
||||
if ChangedFlag=1 then exit for
|
||||
next x
|
||||
if ChangedFlag=1 then
|
||||
color 12:print"ACHTUNG!! Daten wurden ver„ndert. ";
|
||||
Question:
|
||||
color 15:print"Žnderungen speichern (J/N)? ";
|
||||
3 a$=inkey$:if a$="" then 3
|
||||
if a$="j" or A$="J" then print "J":goto SaveItNow
|
||||
if a$="n" or a$="N" then print "N":goto DontSave
|
||||
sound 600,1
|
||||
goto 3
|
||||
else
|
||||
color 15:print"Es wurde nix ver„ndert....beende Programm."
|
||||
goto HereUpToQuit
|
||||
end if
|
||||
|
||||
DontSave:
|
||||
print "Sind Sie sich sicher (J/N)? ";
|
||||
4 a$=inkey$:if a$="" then 4
|
||||
if a$="j" or a$="J" then print "J":goto HereUpToQuit
|
||||
if a$="n" or a$="N" then print "N":goto Question
|
||||
sound 600,1
|
||||
goto 4
|
||||
|
||||
SaveItNow:
|
||||
color 14:print "þ Speichern"
|
||||
color 15
|
||||
print
|
||||
print "Dateiname (z.B. project6)([ENTER] f<>r ";finame$;"): ";
|
||||
input "",fi2name$
|
||||
fi2name$=fi2name$+".elf"
|
||||
if fi2name$=".elf" then fi2name$=finame$
|
||||
print "Speichere ... ";
|
||||
open "B",#1,fi2name$
|
||||
for x=1 to 50
|
||||
for y=1 to 30
|
||||
countr=countr+1
|
||||
locate csrlin,15:print using"###%";(countr/(50*30))*100;
|
||||
if col(x,y)=npos then put$ #1,chr$(num(x,y))
|
||||
if col(x,y)=nneg then put$ #1,chr$(256-num(x,y))
|
||||
if col(x,y)=nneu then put$ #1,chr$(0)
|
||||
next y
|
||||
next x
|
||||
print " - OK"
|
||||
print "Speichere Einstellungen ...";
|
||||
put$ #1,chr$(0)+"ngeClipboardChain"+chr$(1)+chr$(0)+"ø"
|
||||
for x=1 to 7
|
||||
put$ #1,chr$(0)
|
||||
next x
|
||||
put$ #1,chr$(6)+chr$(13)+chr$(4)
|
||||
for x=1 to 5
|
||||
put$ #1,chr$(0)
|
||||
next x
|
||||
put$ #1,"š"+chr$(1)+chr$(1)+chr$(1)+chr$(2)+chr$(0)+">"+chr$(1)+chr$(1)+chr$(1)+chr$(2)+">"+chr$(1)+chr$(1)+chr$(1)+chr$(2)
|
||||
put$ #1,chr$(0)+chr$(0)+"R"+chr$(10)+"ChangeMenu"+chr$(1)+chr$(0)
|
||||
put$ #1,chr$(0)+chr$(1)
|
||||
for x=1 to 6
|
||||
put$ #1,chr$(0)
|
||||
next x
|
||||
put$ #1,chr$(6)+chr$(13)+chr$(4)
|
||||
for x=1 to 5
|
||||
put$ #1,chr$(0)
|
||||
next x
|
||||
put$ #1,"š"+chr$(1)+chr$(1)+chr$(1)+chr$(5)+chr$(0)+">"+chr$(1)+chr$(1)+chr$(1)+chr$(2)+">"+chr$(1)+chr$(1)+chr$(1)+chr$(2)
|
||||
put$ #1,"î"+chr$(1)+chr$(1)+chr$(1)+chr$(2)+">"+chr$(1)+chr$(1)+chr$(1)+chr$(2)+">"+chr$(1)+chr$(1)+chr$(1)+chr$(2)+chr$(0)
|
||||
put$ #1,chr$(0)+"R"+chr$(14)+"ChangeSelector"+chr$(1)+chr$(0)+chr$(8)+chr$(1)
|
||||
for x=1 to 6
|
||||
put$ #1,chr$(0)
|
||||
next x
|
||||
put$ #1,chr$(6)+chr$(13)+chr$(4)
|
||||
for x=1 to 5
|
||||
put$ #1,chr$(0)
|
||||
next x
|
||||
put$ #1,">"+chr$(1)+chr$(1)+chr$(1)+chr$(2)+chr$(0)+">"+chr$(1)+chr$(1)+chr$(1)+chr$(2)+">"+chr$(1)
|
||||
put$ #1,chr$(1)+chr$(1)+chr$(2)+chr$(0)+chr$(0)+"R"+chr$(14)+"CheckDlgButton"+chr$(1)+chr$(0)+chr$(16)+chr$(1)
|
||||
for x=1 to 6
|
||||
put$ #1,chr$(0)
|
||||
next x
|
||||
put$ #1,chr$(6)+chr$(13)+chr$(4)
|
||||
for x=1 to 9
|
||||
put$ #1,chr$(0)
|
||||
next x
|
||||
put$ #1,chr$(3)+chr$(0)+">"+chr$(1)+chr$(1)+chr$(1)+chr$(2)+"*"+chr$(1)+chr$(1)+chr$(1)+chr$(2)+">"+chr$(1)+chr$(1)+chr$(1)+chr$(2)
|
||||
put$ #1,chr$(0)+chr$(0)+"R"+chr$(13)+"CheckMenuItem"+chr$(1)+chr$(0)+chr$(24)+chr$(1)
|
||||
for x=1 to 6
|
||||
put$ #1,chr$(0)
|
||||
next x
|
||||
put$ #1,chr$(6)+chr$(13)+chr$(4)+chr$(0)+chr$(0)
|
||||
close #1
|
||||
print " OK"
|
||||
goto HereUpToQuit
|
||||
|
||||
FileNotEx:
|
||||
color 12:print"FEHLER!! Diese Datei existiert nicht!"
|
||||
color 15
|
||||
resume EnterFile
|
||||
|
||||
SomeError:
|
||||
color 12:print"FEHLER!! Es ist ein unbekannter Fehler aufgetreten."
|
||||
color 15:print"Versuchen Sie es mit einer anderen Datendatei."
|
||||
resume HereUpToQuit
|
||||
|
||||
HereUpToQuit:
|
||||
print
|
||||
print "Programm beendet."
|
||||
14
FORMAT.BAS
Normal file
14
FORMAT.BAS
Normal file
@ -0,0 +1,14 @@
|
||||
open "A",#1,"C:\HACKER.NFO"
|
||||
datum$=mid$(date$,4,2)+"."+left$(date$,2)+"."+right$(date$,2)
|
||||
print#1,"þ FORMAT-Versuch ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ"
|
||||
print#1,"Datum: ";datum$;" ";chr$(15);" Uhrzeit: ";time$
|
||||
print#1,"Kommandozeile: FORMAT ";command$
|
||||
print#1,"Erfolgreich abgewehrt."
|
||||
BEEP
|
||||
COLOR 12:print"* * * W A R N U N G * * *":color 15
|
||||
print
|
||||
print"Es wurde ein FORMAT-Versuch gemacht!"
|
||||
print"Befehl: FORMAT ";command$
|
||||
print
|
||||
print"FORMAT ist auf diesem Ger„t momentan deaktiviert."
|
||||
|
||||
61
HTML2LST.BAS
Normal file
61
HTML2LST.BAS
Normal file
@ -0,0 +1,61 @@
|
||||
dim eta(1000)
|
||||
cls
|
||||
print"þ HTML to List"
|
||||
print
|
||||
print"Converts HTML-File of a germany.net-Userlist into a Textfile"
|
||||
print
|
||||
shell "DIR gnusers.htm >html2lst.tmp"
|
||||
open "I",#1,"html2lst.tmp"
|
||||
for x=1 to 6:line input #1,dat$:next x
|
||||
close #1
|
||||
kill "html2lst.tmp"
|
||||
size$=mid$(dat$,16,3)+mid$(dat$,20,3)+mid$(dat$,24,3)
|
||||
size=val(Size$)
|
||||
size=size-63422
|
||||
open "I",#1,"gnusers.htm"
|
||||
open "O",#2,"gnusers.txt"
|
||||
for x=1 to 10:line input#1,dummy$:next x
|
||||
starttime=timer
|
||||
1 line input #1,dat$
|
||||
bytecount=bytecount+Len(dat$)
|
||||
l=l+1
|
||||
if dat$="</pre>" or dat$="</PRE>" then goto Ende
|
||||
for x=1 to 20
|
||||
x$=mid$(dat$,x,3)
|
||||
if x$="<b>" or x$="<B>" then a=x:exit for
|
||||
next x
|
||||
ot$= mid$(dat$,a+8,10) 'Usernumber
|
||||
ot$=ot$+mid$(dat$,a+26,99) 'Username and City
|
||||
if inkey$=chr$(27) then end
|
||||
if timer-1>oldtim then gosub ShowEta:oldtim=timer
|
||||
if ot$<>"" then print #2,ot$
|
||||
if eof(1) then goto Ende else goto 1
|
||||
|
||||
ShowEta:
|
||||
pro=int((bytecount/size)*100)
|
||||
if pro>0 then
|
||||
tim=int(timer-starttime)
|
||||
eta=int(tim/(bytecount/size))
|
||||
if pro>5 then
|
||||
ect=ect+1
|
||||
eta(ect)=eta
|
||||
for y=1 to ect:etb=etb+eta(ect):next y:eta=etb/ect:etb=0
|
||||
end if
|
||||
tm=int(tim/60)
|
||||
ts=int(tim)-tm*60
|
||||
em=int(eta/60)
|
||||
es=int(eta)-em*60
|
||||
end if
|
||||
locate csrlin,1:print using "Bytes: #######/#######(Zeile: ######) ###% Zeit: ";bytecount;size;l;pro;
|
||||
if tm<10 then print using "0#_.";tm; else print using "##_.";tm;
|
||||
if ts<10 then print using "0# ETA: ";ts; else print using "## ETA: ";ts;
|
||||
if em<10 then print using "0#_.";em; else print using "##_.";em;
|
||||
if es<10 then print using "0#";es; else print using "##";es;
|
||||
print " ";
|
||||
return
|
||||
|
||||
Ende:
|
||||
print
|
||||
print"Programm beendet."
|
||||
end
|
||||
|
||||
37
RUC.BAS
Normal file
37
RUC.BAS
Normal file
@ -0,0 +1,37 @@
|
||||
cls
|
||||
print "-=ðþ Olson Software Help Tools Cracker þð=-"
|
||||
print
|
||||
print "RUC.INI format:"
|
||||
print chr$(34)+"helpfile"+chr$(34)+","+chr$(34)+"name"+chr$(34)+",countstart"
|
||||
print
|
||||
print "helpfile is needed for REGUTIL.EXE"
|
||||
print "name is the desired name"
|
||||
print "countstart is the starting number from which to try"
|
||||
print
|
||||
print "Reading infos ... ";
|
||||
open "I",#1,"RUC.INI"
|
||||
input #1,hf$,nam$,x
|
||||
close #1
|
||||
print "OK ("+hf$+";"+nam$+";"+right$(str$(x),len(str$(x))-1)+")"
|
||||
print "Cracking sequence begins (ESC breaks):"
|
||||
Again:
|
||||
locate 12,1:print "þ";
|
||||
x$=right$(str$(x),len(str$(x))-1)
|
||||
print "þ";
|
||||
open "A",#1,"regutil.out"
|
||||
print "þ";
|
||||
print #1,chr$(13)+"["+x$+"] ";
|
||||
print "þ";
|
||||
close #1
|
||||
print "þ";
|
||||
print"ð "+x$+" ð";
|
||||
shel$="regutil.exe "+hf$+" "+chr$(34)+nam$+chr$(34)+" "+x$+" >>regutil.out"
|
||||
print "þ";
|
||||
shell shel$
|
||||
print "þ";
|
||||
x=x+1
|
||||
print "þ OK";
|
||||
if inkey$=chr$(27) then end
|
||||
locate 12,1:print space$(79);
|
||||
goto Again
|
||||
|
||||
18
TBCLEANM.BAS
Normal file
18
TBCLEANM.BAS
Normal file
@ -0,0 +1,18 @@
|
||||
cls
|
||||
open "I",#1,"C:\TBAV.LOG"
|
||||
1 if eof(1)=0 then
|
||||
line input #1,zeile$
|
||||
if mid$(Zeile$,2,1)=":" and right$(Zeile$,2)="XE" then
|
||||
print "Bearbeite: "+Zeile$
|
||||
shellstr$="TBCLEAN "+left$(Zeile$,Len(Zeile$)-3)+"VXE "+left$(Zeile$,Len(Zeile$)-3)+"EXE"
|
||||
print "S„ubere...."
|
||||
shell shellstr$
|
||||
print "L”sche infizierte Datei....";
|
||||
kill left$(Zeile$,Len(Zeile$)-3)+"VXE"
|
||||
print "OK"
|
||||
x=x+1
|
||||
end if
|
||||
end if
|
||||
goto 1
|
||||
print "Komplett! ";x;" Dateien bearbeitet"
|
||||
end
|
||||
186
agen.bas
Normal file
186
agen.bas
Normal file
@ -0,0 +1,186 @@
|
||||
DECLARE SUB MakePat (Zw$, ZwF%, ZwB%)
|
||||
DECLARE SUB MakeANSI (offen%)
|
||||
DECLARE FUNCTION InsPat$ (Zahl%)
|
||||
DECLARE FUNCTION PosOK% (Up%, Max%)
|
||||
DECLARE SUB MakeSITS (eingabe$, laenge%)
|
||||
CONST MaxEin = 70
|
||||
CONST MaxAus = 80
|
||||
DIM zeile AS STRING * MaxEin
|
||||
DIM SHARED Result AS STRING * MaxAus
|
||||
DIM SHARED ResultF(MaxAus + 1), ResultB(MaxAus + 1) AS INTEGER
|
||||
DIM minpat AS INTEGER
|
||||
DIM Patlen AS INTEGER
|
||||
DIM veil AS INTEGER
|
||||
RANDOMIZE TIMER
|
||||
CONST maxpat = 10
|
||||
|
||||
CONST Zeichen = "°±²Û"
|
||||
CONST Zeichenk = 4
|
||||
CONST FColor = 16
|
||||
CONST BColor = 8
|
||||
CLS
|
||||
PRINT " AGEN V111.111á"
|
||||
PRINT " (c) Arndt Grass"
|
||||
PRINT : PRINT
|
||||
INPUT "Filename"; datei$
|
||||
INPUT "Wie soll die ANSI-Ausgabedatei heiáen"; ausdatei$
|
||||
nustart:
|
||||
OPEN datei$ FOR INPUT AS #1
|
||||
veil = FREEFILE
|
||||
OPEN ausdatei$ FOR OUTPUT AS veil
|
||||
minpat = 5
|
||||
DO
|
||||
PRINT "Wie lang soll das Pattern gew„hlt werden (min."; minpat; " max."; maxpat; ")";
|
||||
INPUT Patlen
|
||||
LOOP UNTIL (Patlen <= maxpat) AND (Patlen >= minpat)
|
||||
WHILE NOT EOF(1)
|
||||
LINE INPUT #1, zeile
|
||||
Result = ""
|
||||
FOR i = 1 TO MaxAus
|
||||
ResultF(i) = 0
|
||||
ResultB(i) = 0
|
||||
NEXT i
|
||||
CALL MakeSITS(zeile, Patlen)
|
||||
CALL MakeANSI(veil)
|
||||
WEND
|
||||
CLOSE
|
||||
COLOR 1, 0
|
||||
PRINT
|
||||
PRINT " (W)iederholen oder (S)peichern und Ende?"
|
||||
repeat:
|
||||
ink$ = ""
|
||||
WHILE ink$ = ""
|
||||
ink$ = INKEY$
|
||||
WEND
|
||||
IF UCASE$(ink$) = "S" THEN
|
||||
CLS
|
||||
END
|
||||
ELSEIF UCASE$(ink$) = "W" THEN
|
||||
GOTO nustart
|
||||
ELSE
|
||||
GOTO repeat
|
||||
END IF
|
||||
|
||||
SUB delpat (pattern$, PatPosition%, Aktuell%, change%)
|
||||
|
||||
FOR i = 1 TO change%
|
||||
IF PatPosition% = Aktuell% THEN
|
||||
pattern$ = LEFT$(pattern$, Aktuell% - 1)
|
||||
Aktuell% = Aktuell% - 1
|
||||
PatPosition% = PosOK%(PatPosition%, Aktuell%)
|
||||
ELSE
|
||||
pattern$ = LEFT$(pattern$, PatPosition% - 1) + RIGHT$(pattern$, Aktuell% - PattPosition%)
|
||||
Aktuell% = Aktuell% - 1
|
||||
END IF
|
||||
NEXT i
|
||||
END SUB
|
||||
|
||||
FUNCTION InsPat$ (Zahl%)
|
||||
Zw$ = ""
|
||||
FOR i = 1 TO Zahl%
|
||||
Zw$ = Zw$ + CHR$(Start + INT(Ende * RND))
|
||||
NEXT i
|
||||
InsPat$ = Zw$
|
||||
END FUNCTION
|
||||
|
||||
SUB MakeANSI (offen%)
|
||||
FOR i = 1 TO LEN(Result)
|
||||
p$ = CHR$(27) + "[0;"
|
||||
IF ResultF(i) > 7 THEN
|
||||
p$ = p$ + "1;"
|
||||
ResultF(i) = ResultF(i) - 8
|
||||
END IF
|
||||
p$ = p$ + "3" + CHR$(48 + ResultF(i)) + ";4" + CHR$(48 + ResultB(i)) + "m" + MID$(Result, i, 1)
|
||||
COLOR ResultF(i), ResultB(i)
|
||||
PRINT MID$(Result, i, 1);
|
||||
PRINT #offen%, p$;
|
||||
NEXT
|
||||
PRINT #offen%, CHR$(13);
|
||||
|
||||
|
||||
|
||||
|
||||
END SUB
|
||||
|
||||
SUB MakePat (Zw$, ZwF%, ZwB%)
|
||||
|
||||
Zw$ = MID$(Zeichen, INT(Zeichenk * RND) + 1, 1)
|
||||
ZwB% = INT(RND * BColor)
|
||||
DO
|
||||
ZwF% = INT(RND * FColor)
|
||||
LOOP UNTIL ZwF% <> ZwB%
|
||||
|
||||
END SUB
|
||||
|
||||
SUB MakeSITS (eingabe$, laenge%)
|
||||
DIM Vore%(20), Back(20) AS INTEGER
|
||||
DIM RanDot(20) AS STRING * 1
|
||||
DIM PatPos AS INTEGER
|
||||
|
||||
'Pattern generieren
|
||||
FOR ii = 1 TO laenge%
|
||||
CALL MakePat(RanDot(ii), Vore%(ii), Back(ii))
|
||||
NEXT ii
|
||||
Aktuell% = laenge%
|
||||
|
||||
level% = 0
|
||||
FOR i = 1 TO Aktuell% 'Leerpattern schreiben
|
||||
MID$(Result, i) = RanDot(i)
|
||||
ResultF(i) = Vore%(i)
|
||||
ResultB(i) = Back(i)
|
||||
NEXT i
|
||||
|
||||
PatPos = 1 'Erste Patternposition festlegen
|
||||
FOR i = 1 TO LEN(eingabe$) 'Eingabe abarbeiten
|
||||
a$ = MID$(eingabe$, i, 1)
|
||||
IF a$ = " " THEN neuLevel% = 0 ELSE neuLevel% = VAL(a$)
|
||||
IF neuLevel% <> level% THEN
|
||||
IF level% > neuLevel% THEN
|
||||
change% = level% - neuLevel%
|
||||
FOR j = Aktuell% TO PatPos STEP -1
|
||||
RanDot(j + change%) = RanDot(j)
|
||||
Vore%(j + change%) = Vore%(j)
|
||||
Back(j + change%) = Back(j)
|
||||
NEXT
|
||||
FOR j = 0 TO change% - 1
|
||||
RanDot(j + PatPos) = MID$(Zeichen, INT(Zeichenk * RND) + 1, 1)
|
||||
Back(j + PatPos) = INT(RND * BColor)
|
||||
DO
|
||||
Vore%(j + PatPos) = INT(RND * FColor)
|
||||
LOOP UNTIL Back(j + PatPos) <> Vore%(j + PatPos)
|
||||
NEXT
|
||||
Aktuell% = Aktuell% + change%
|
||||
ELSE 'neulevel kleiner level
|
||||
change% = neuLevel% - level%
|
||||
FOR k = 1 TO change%
|
||||
FOR j = PatPos TO Aktuell% - 1
|
||||
RanDot(j) = RanDot(j + 1)
|
||||
Vore%(j) = Vore%(j + 1)
|
||||
Back(j) = Back(j + 1)
|
||||
NEXT
|
||||
Aktuell% = Aktuell% - 1
|
||||
PatPos = PosOK%(PatPos, Aktuell%)
|
||||
NEXT k
|
||||
END IF
|
||||
level% = neuLevel%
|
||||
END IF
|
||||
MID$(Result, i + laenge%) = RanDot(PatPos)
|
||||
ResultF(i + laenge%) = Vore%(PatPos)
|
||||
ResultB(i + laenge%) = Back(PatPos)
|
||||
PatPos = PatPos + 1
|
||||
PatPos = PosOK%(PatPos, Aktuell%)
|
||||
NEXT i
|
||||
|
||||
END SUB
|
||||
|
||||
FUNCTION PosOK% (Up%, Max%)
|
||||
|
||||
IF Up% > Max% THEN
|
||||
PosOK% = 1
|
||||
ELSE
|
||||
PosOK% = Up%
|
||||
END IF
|
||||
|
||||
END FUNCTION
|
||||
|
||||
|
||||
55
ampel.bas
Normal file
55
ampel.bas
Normal file
@ -0,0 +1,55 @@
|
||||
'Verkehrsampeln, zeitgesteuert (AL aktuell,S.88 )
|
||||
SCREEN 9 '(Band 2, Oldenbourg )
|
||||
LOCATE 3,26:print "Ampel 1 Ampel 2"
|
||||
rot = 12: gelb = 14: gruen = 10: weiss = 15: schwarz = 0
|
||||
drot= 8 :dgelb = 8 :dgruen = 8 :dweiss = 7
|
||||
'-----------------------------------------------------
|
||||
daten:
|
||||
DATA 6
|
||||
DATA 1,0,0,0,0,1,5
|
||||
DATA 1,0,0,0,1,0,3
|
||||
DATA 1,1,0,1,0,0,3
|
||||
DATA 0,0,1,1,0,0,5
|
||||
DATA 0,1,0,1,0,0,3
|
||||
DATA 1,0,0,1,1,0,3
|
||||
'-----------------------------------------------------
|
||||
RESTORE daten: READ phasen
|
||||
for i=1 to phasen: locate 2,2:print"Phase: ";i
|
||||
if inkey$<>"" then end
|
||||
READ rotein,gelbein,gruenein
|
||||
xa=200:ya=50:dy=150
|
||||
gosub ampel3
|
||||
read rotein,gelbein,gruenein
|
||||
xa=400:ya=50:dy=150
|
||||
gosub ampel3
|
||||
n=1
|
||||
read zeit:delay zeit
|
||||
next i
|
||||
'--------------------------- SUBROUTINEN ------------------
|
||||
ampel3:
|
||||
ver=.4
|
||||
ye=ya+dy
|
||||
xe=xa+ver*(ye-ya):lr=(xe-xa)*.4
|
||||
xm=xa+(xe-xa)/2
|
||||
if n=0 then line (xa,ya)-(xe,ye),weiss,B
|
||||
line (xa+1,ya+1)-(xe-1,ye-1),schwarz,BF
|
||||
circle (xm,ya+1/6*(ye-ya)),lr,rot
|
||||
if rotein then paint step(0,0),rot else paint step(0,0),drot,rot
|
||||
circle (xm,ya+3/6*(ye-ya)),lr,gelb
|
||||
if gelbein then paint step(0,0),gelb else paint step(0,0),dgelb,gelb
|
||||
circle (xm,ya+5/6*(ye-ya)),lr,gruen
|
||||
if gruenein then paint step(0,0),gruen else paint step(0,0),dgruen,gruen
|
||||
return
|
||||
|
||||
ampel2:
|
||||
ver=.7
|
||||
ye=ya+dy
|
||||
xe=xa+ver*(ye-ya):lr=(xe-xa)*.4
|
||||
xm=xa+(xe-xa)/2
|
||||
line (xa,ya)-(xe,ye),weiss,B
|
||||
line (xa+1,ya+1)-(xe-1,ye-1),schwarz,BF
|
||||
circle (xm,ya+1/4*(ye-ya)),lr,rot
|
||||
if rotein then paint step(0,0),rot else paint step(0,0),drot,rot
|
||||
circle (xm,ya+3/4*(ye-ya)),lr,gruen
|
||||
if gruenein then paint step(0,0),gruen else paint step(0,0),dgruen,gruen
|
||||
return
|
||||
104
ansipack.bas
Normal file
104
ansipack.bas
Normal file
@ -0,0 +1,104 @@
|
||||
cls
|
||||
maxzei=50
|
||||
maxwert=100
|
||||
$include "logo.inc"
|
||||
color 15:print"ððð ANSI-PACKer ððð v";ver$;" by RoboCop INDUSTRIES"
|
||||
print
|
||||
print"Dieses Programm sucht in ANSI-Dateien (meiát mit .ANS Endung) nach"
|
||||
print"doppelten Deklarationen. (z.B.: 0;36m°0;37m± ==> 0;36m°37m±)!"
|
||||
|
||||
TryAgain:
|
||||
print
|
||||
color 14
|
||||
input"Dateiname (mit Endung): ",fil$
|
||||
if fil$="" then goto ENDE
|
||||
on error goto WheresTheFile
|
||||
open "I",#1,fil$
|
||||
close #1
|
||||
on error goto
|
||||
outfil$=""
|
||||
for x=1 to len(fil$)
|
||||
if mid$(fil$,x,1)="." then exit for
|
||||
outfil$=outfil$+mid$(fil$,x,1)
|
||||
next x
|
||||
if len(outfil$)<8 then outfil$=outfil$+"2.ANS" else outfil$=left$(outfil$,7)+"2.ANS"
|
||||
print"Ausgabedatei : ";outfil$
|
||||
color 10:print"[G]ut so! ";
|
||||
color 12:print"[Ž]ndern!?":color 14
|
||||
1 a$=inkey$:if a$="" then 1
|
||||
if a$="g" or a$="G" then goto 2
|
||||
if a$="„" or a$="Ž" then goto 3
|
||||
goto 1
|
||||
|
||||
WheresTheFile:
|
||||
print
|
||||
color 28:print"Datei nicht gefunden!!!"
|
||||
color 12:print"šberpr<70>fen Sie den Dateinamen auf Richtigkeit!"
|
||||
delay 5
|
||||
resume TryAgain
|
||||
|
||||
3 print
|
||||
input"Ausgabedatei (mit Endung): ",outfil$
|
||||
goto 2
|
||||
2 color 15
|
||||
print
|
||||
print"DIMensioniere Variablen auf";maxzei;"Zeilen ... ";
|
||||
dim zeile$(maxzei)
|
||||
dim wert$(maxwert,10)
|
||||
print"Variablen dimensioniert"
|
||||
print"™ffne Eingabedatei ... ";
|
||||
open "I",#1,fil$
|
||||
print"Datei ge”ffnet"
|
||||
print"™ffne Ausgabedatei ... ";
|
||||
open "O",#2,outfil$
|
||||
print"Datei ge”ffnet"
|
||||
anzw=0
|
||||
print"Lese Eingabedatei ein ...";
|
||||
x=1
|
||||
4 line input#1,zeile$(x)
|
||||
if eof(1) then zeilen=x else x=x+1:goto 4
|
||||
print zeilen;"Zeilen eingelesen"
|
||||
print "Lese Werte ein ...";
|
||||
for zei=1 to zeilen
|
||||
for xpos=1 to len(zeile$(zei))
|
||||
x$=mid$(zeile$(zei),xpos,1)
|
||||
if vlue=1 then value$=value$+x$
|
||||
if x$="m" then vlue=0:y=y+1:gosub ScrambleIt
|
||||
if x$="[" then vlue=1
|
||||
next xpos
|
||||
next zei
|
||||
maxw=y
|
||||
print anzw;"Werte in";y;"Wertegruppen gelesen"
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
goto ENDE
|
||||
|
||||
ScrambleIt:
|
||||
z=1
|
||||
x=1
|
||||
10 if mid$(value$,x,1)=";" then anzw=anzw+1:z=z+1:x=x+1:if x=len(value$) then value$="":return else goto 10
|
||||
wert$(y,z)=wert$(y,z)+mid$(value$,x,1)
|
||||
x=x+1:if x=len(value$) then value$="":return else goto 10
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
ENDE:
|
||||
print
|
||||
print"Fahre Programm herunter ... ";
|
||||
close #1
|
||||
close #2
|
||||
print"Programm heruntergefahren."
|
||||
print
|
||||
end
|
||||
33
bargraph.bas
Normal file
33
bargraph.bas
Normal file
@ -0,0 +1,33 @@
|
||||
Mode=8 'vidmode to use
|
||||
Lines=25 'number of lines in desired vidmode
|
||||
Columns=80 'number of columns in desired vidmode
|
||||
TakesPerLine=Columns/40 'calculates loops per line
|
||||
BGCol=0 'enables backgroundcolorchange
|
||||
|
||||
if BGCol=1 then BG1=1:BG2=2:BG3=3:BG4=4 else BG1=0:BG2=0:BG3=0:BG4=0
|
||||
|
||||
screen Mode
|
||||
WoAllesBegann:
|
||||
x=x+1
|
||||
color 9,BG1:print" ±²Û"; 'Bargraph forward
|
||||
color 9,BG3:print"± ";
|
||||
color 11,BG3:print"±Û";
|
||||
color 11,BG2:print"²±";
|
||||
color 10,BG2:print"±Û";
|
||||
color 14,BG2:print"±²Û";
|
||||
color 14,BG4:print"²±";
|
||||
color 12,BG4:print"±²Û";
|
||||
delay .05
|
||||
color 12,BG4:print"Û²±"; 'Bargraph backward
|
||||
color 14,BG4:print"±²";
|
||||
color 14,BG2:print"Û²±";
|
||||
color 10,BG2:print"Û±";
|
||||
color 11,BG2:print"±²";
|
||||
color 11,BG3:print"Û±";
|
||||
color 9,BG3:print" ±";
|
||||
color 9,BG1:print"Û²± ";
|
||||
delay .1
|
||||
if inkey$=chr$(27) then end
|
||||
if x=(Lines-1)*TakesPerLine then locate Lines,1
|
||||
if x=Lines*TakesPerLine then color 15,0,0:end else goto WoAllesBegann
|
||||
|
||||
22
bargraph.nfo
Normal file
22
bargraph.nfo
Normal file
@ -0,0 +1,22 @@
|
||||
ä: Total ±²Û± ±Û²±±Û±²Û²±±²Û 888 + 888 = 888 Mb Phys= 888
|
||||
Chr-ASCII-Code ³³³³³³³³³³³³³³³³³³³³ Chr FC BC
|
||||
FC -Vordergrund ³³³³³³³³³³³³³³³³³³³ÀÄ219/12/x
|
||||
BC -Hintergrund ³³³³³³³³³³³³³³³³³³ÀÄÄ178/12/4
|
||||
x = egal ³³³³³³³³³³³³³³³³³ÀÄÄÄ177/12/4
|
||||
³³³³³³³³³³³³³³³³ÀÄÄÄÄ177/14/4
|
||||
³³³³³³³³³³³³³³³ÀÄÄÄÄÄ178/14/4
|
||||
³³³³³³³³³³³³³³ÀÄÄÄÄÄÄ219/14/x
|
||||
³³³³³³³³³³³³³ÀÄÄÄÄÄÄÄ178/14/2
|
||||
³³³³³³³³³³³³ÀÄÄÄÄÄÄÄÄ177/14/2
|
||||
³³³³³³³³³³³ÀÄÄÄÄÄÄÄÄÄ219/10/x
|
||||
³³³³³³³³³³ÀÄÄÄÄÄÄÄÄÄÄ177/10/2
|
||||
³³³³³³³³³ÀÄÄÄÄÄÄÄÄÄÄÄ177/11/2
|
||||
³³³³³³³³ÀÄÄÄÄÄÄÄÄÄÄÄÄ178/11/2
|
||||
³³³³³³³ÀÄÄÄÄÄÄÄÄÄÄÄÄÄ219/11/x
|
||||
³³³³³³ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄ177/11/3
|
||||
³³³³³ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ 32/ x/3
|
||||
³³³³ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ177/ 9/3
|
||||
³³³ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ219/ 9/x
|
||||
³³ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ178/ 9/1
|
||||
³ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ177/ 9/1
|
||||
ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ 32/ x/1
|
||||
60
bildtest.bas
Normal file
60
bildtest.bas
Normal file
@ -0,0 +1,60 @@
|
||||
screen 12
|
||||
call g(40,0)
|
||||
call g(15,0)
|
||||
for i=0 to 639 step 40
|
||||
line (i,0)-(i+40,480),i/40,bf
|
||||
next i
|
||||
call w(0)
|
||||
call d(0,639,0,480,20,15,1)
|
||||
call w(0)
|
||||
for i=0 to 500 step 10
|
||||
circle (320,240),i,2
|
||||
next
|
||||
call w(0)
|
||||
z=1
|
||||
for i=0 to 630 step 160
|
||||
z=z+1
|
||||
call m(i,i+160,z,0,240)
|
||||
next
|
||||
z=6
|
||||
for i=0 to 630 step 160
|
||||
z=z-1
|
||||
call m(i,i+160,z,240,479)
|
||||
next
|
||||
call w(0)
|
||||
call g(40,1)
|
||||
call d(20,620,20,460,80,80,0)
|
||||
call d(60,620,60,460,80,80,0)
|
||||
call w(0)
|
||||
|
||||
SUB w(c)
|
||||
c$=inkey$
|
||||
do
|
||||
loop until instat
|
||||
if c=0 then cls
|
||||
END SUB
|
||||
|
||||
SUB g(s,c)
|
||||
cls
|
||||
for x=0 to 639 step s
|
||||
line (x,0)-(x,479),15
|
||||
next
|
||||
for y=10 to 479 step s
|
||||
line (0,y)-(639,y),15
|
||||
next
|
||||
call w(c)
|
||||
END SUB
|
||||
|
||||
SUB d(x1,x2,y1,y2,s1,s2,wa)
|
||||
for x=x1 to x2 step s1
|
||||
for y=y1 to y2 step s2
|
||||
if wa=0 then paint (x,y),15,15 else pset (x,y)
|
||||
next
|
||||
next
|
||||
END SUB
|
||||
|
||||
SUB m(x1,x2,s,j,k)
|
||||
for x=x1 to x2 step s
|
||||
line (x,j)-(x,k),15
|
||||
next
|
||||
END SUB
|
||||
161
bin-dez.bas
Normal file
161
bin-dez.bas
Normal file
@ -0,0 +1,161 @@
|
||||
shell "mode co80"
|
||||
cls
|
||||
gosub StatusPaint
|
||||
memo=26:memo$="Bitte warten...":gosub StatusDisp
|
||||
locate 1,1
|
||||
color 14:print"Umrechnungen BIN/DEZ written by RoboCop INDUSTRIES"
|
||||
color 15:print
|
||||
print"W„hlen Sie eine Umrechnung:";:color 31:print"_":for z=0 to 7500:next z
|
||||
locate 3,28:print" "
|
||||
print"_":for z=0 to 7500:next z:locate 4,1:print" "
|
||||
texta$="[1] DEZimal in BIN„r"
|
||||
textb$="[2] BIN„r in DEZimal"
|
||||
for z=1 to 20
|
||||
locate 5,z:color 15
|
||||
print mid$(texta$,z,1);:color 31:print"_"
|
||||
for x=0 to 500:next x
|
||||
next z
|
||||
for x=0 to 7500:next x
|
||||
locate 5,21:print" "
|
||||
locate 6,1:color 31:print"_"
|
||||
for x=0 to 7500:next x
|
||||
locate 6,1:print" "
|
||||
for z=1 to 20
|
||||
locate 7,z:color 15
|
||||
print mid$(textb$,z,1);:color 31:print"_"
|
||||
for x=0 to 500:next x
|
||||
next z
|
||||
for x=0 to 7500:next x
|
||||
locate 7,21:print" "
|
||||
color 31:print"_"
|
||||
for x=0 to 7500:next x
|
||||
locate 8,1:print" "
|
||||
texta$="Geben Sie eine Zahl ein: "
|
||||
for z=1 to 25
|
||||
locate 9,z:color 15
|
||||
print mid$(texta$,z,1);:color 31:print"_"
|
||||
for x=0 to 500:next x
|
||||
next z
|
||||
Anfang:
|
||||
memo=14:memo$="Ziffer eingeben!":gosub StatusDisp
|
||||
1 a$=inkey$:if a$="" then 1
|
||||
if a$="1" then goto DezToBin
|
||||
if a$="2" then goto BinToDez
|
||||
goto 1
|
||||
|
||||
DezToBin:
|
||||
locate 9,26:color 15:print"1";:color 31:print"_"
|
||||
memo=26:memo$="Bitte warten...":gosub StatusDisp
|
||||
for z=0 to 5000:next z
|
||||
textb$=" - Dezimal in Bin„r umrechnen"
|
||||
for z=1 to 31
|
||||
locate 9,26+z:color 15
|
||||
print mid$(textb$,z,1);:color 31:print"_"
|
||||
for x=0 to 500:next x
|
||||
next z
|
||||
cls
|
||||
gosub StatusPaint
|
||||
memo=14:memo$="Bitte Zahl eingeben":gosub StatusDisp
|
||||
locate 1,1
|
||||
color 10:print"Umrechnen von Dezimal in Bin„r"
|
||||
color 12:print" This program was written by RoboCop INDUSTRIES"
|
||||
color 0:print"Wenn du diesen Text lesen kannst, hast du das hier ausgedruckt oder bist in"
|
||||
print"der Datei! Und das sollst du nicht! Geh weg, laá mich in ruh'!"
|
||||
print"Fick dich ins Knie!"
|
||||
color 15
|
||||
input"Geben Sie eine Dezimale Zahl ein: ",dez
|
||||
memo=26:memo$="Bitte warten...":gosub StatusDisp
|
||||
zhl=0
|
||||
erg$=""
|
||||
erg=0
|
||||
mx=67108864
|
||||
for z=1 to 27
|
||||
if zhl+mx>dez then mx=mx/2:if erg=1 then erg$=erg$+"0":goto 2 else goto 2
|
||||
erg$=erg$+"1":erg=1:zhl=zhl+mx:mx=mx/2
|
||||
2 next z
|
||||
memo=10:memo$="Bitte Taste dr<64>cken":gosub StatusDisp
|
||||
color 15:locate 8,1
|
||||
print"Die Bin„rzahl lautet :";erg$
|
||||
3 a$=inkey$:if a$="" then 3
|
||||
goto EndAsk
|
||||
|
||||
BinToDez:
|
||||
locate 9,26:color 15:print"2";:color 31:print"_"
|
||||
memo=26:memo$="Bitte warten...":gosub StatusDisp
|
||||
for z=0 to 5000:next z
|
||||
textb$=" - Bin„r in Dezimal umrechnen"
|
||||
for z=1 to 31
|
||||
locate 9,26+z:color 15
|
||||
print mid$(textb$,z,1);:color 31:print"_"
|
||||
for x=0 to 500:next x
|
||||
next z
|
||||
cls
|
||||
gosub StatusPaint
|
||||
memo=14:memo$="Bitte Code eingeben":gosub StatusDisp
|
||||
locate 1,1
|
||||
color 10:print"Umrechnen von Bin„r in Dezimal"
|
||||
color 12:print" This program was written by RoboCop INDUSTRIES"
|
||||
color 0:print"Wenn du diesen Text lesen kannst, hast du das hier ausgedruckt oder bist in"
|
||||
print"der Datei! Und das sollst du nicht! Geh weg, laá mich in ruh'!"
|
||||
print"Fick dich ins Knie!"
|
||||
color 15
|
||||
input"Geben Sie einen Bin„r-Code ein: ",bn$
|
||||
memo=26:memo$="Bitte warten...":gosub StatusDisp
|
||||
mx=1
|
||||
for z=0-len(bn$) to -1
|
||||
zhl$=mid$(bn$,z*-1,1)
|
||||
if zhl$="1" then erg=erg+mx:goto 5
|
||||
if zhl$="0" then goto 5
|
||||
5 mx=mx*2:next z
|
||||
memo=10:memo$="Bitte Taste dr<64>cken":gosub StatusDisp
|
||||
color 15:locate 8,1
|
||||
print"Die Dezimalzahl lautet: ";erg
|
||||
7 a$=inkey$:if a$="" then 7
|
||||
goto EndAsk
|
||||
|
||||
EndAsk:
|
||||
memo=12:memo$="J oder N dr<64>cken":gosub StatusDisp
|
||||
locate 10,1
|
||||
color 14
|
||||
print"Wollen Sie noch eine Umrechnung machen [J/N] ?"
|
||||
4 a$=inkey$:if a$="" then 4
|
||||
if a$="j" or a$="J" then goto Begin
|
||||
if a$="n" or a$="N" then goto Ende
|
||||
goto 4
|
||||
|
||||
Begin:
|
||||
cls
|
||||
gosub StatusPaint
|
||||
memo=14:memo$="Ziffer eingeben!":gosub StatusDisp
|
||||
locate 1,1:color 14:print"Umrechnen von BIN„r- und DEZimal-Zahlen"
|
||||
color 10:print" written by RoboCop INDUSTRIES"
|
||||
print
|
||||
print
|
||||
color 15:print"[1] Umrechnen von DEZ in BIN"
|
||||
print
|
||||
print"[2] Umrechnen von BIN in DEZ"
|
||||
print
|
||||
print"Geben Sie eine Zahl ein: "
|
||||
goto Anfang
|
||||
|
||||
StatusDisp:
|
||||
locate 24,3:color memo
|
||||
for z=len(memo$) to 21
|
||||
memo$=memo$+" "
|
||||
next z
|
||||
print memo$;
|
||||
return
|
||||
|
||||
StatusPaint:
|
||||
locate 21,1:color 15:print"ÚÄÄÄÄÄÄÄÄ¿"
|
||||
locate 22,1:color 15:print"³ Status º"
|
||||
locate 23,1:color 15:print"ÆÍÍÍÍÍÍÍÍÊÍÍÄÄÄÄÄÄÄÄÄÄÄÄ¿"
|
||||
locate 24,1:color 15:print"³ --------------------- º";
|
||||
locate 25,1:color 15:print"ÀÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ";
|
||||
return
|
||||
|
||||
Ende:
|
||||
color 15
|
||||
cls
|
||||
locate 1,1
|
||||
end
|
||||
203
bitmap/bitmap.bas
Normal file
203
bitmap/bitmap.bas
Normal file
@ -0,0 +1,203 @@
|
||||
CLS
|
||||
shell "mode co80"
|
||||
$INCLUDE "PBWINDOW.INC"
|
||||
goto Weiter
|
||||
$INCLUDE "FX_WRITE.INC"
|
||||
|
||||
Weiter:
|
||||
$INCLUDE "LOGO.INC"
|
||||
' goto StartUp
|
||||
TXT$="presents"
|
||||
Lin=CSRLIN-1
|
||||
gosub WriteText
|
||||
print
|
||||
TXT$="The BitMaP-Brother"
|
||||
Lin=csrlin-1
|
||||
gosub WriteText
|
||||
delay 1
|
||||
goto StartUp
|
||||
|
||||
FileNotExist:
|
||||
close #1
|
||||
Msg$=Msg$+"FEHLER!"
|
||||
call PrtWindow(5,2,Msg$)
|
||||
call MakeWindow(10,20,6,40,ColAttr%(12,4),5,4,2)
|
||||
call TitleWindow(2,"[ Fehler 001 ]")
|
||||
for x=1 to 3
|
||||
sound 1000,1
|
||||
delay 1.5/18.2
|
||||
next x
|
||||
call PrtCWindow(2,"Diese Datei existiert nicht!")
|
||||
call PrtCWindow(3,"Geben Sie eine existierende an.")
|
||||
call TitleWindow(5," Taste ... ")
|
||||
3 a$=inkey$:if a$="" then 3
|
||||
call RemoveWindow
|
||||
call PrtWindow(5,2," ")
|
||||
if NoError=0 then resume NeedInput else goto NeedInput
|
||||
|
||||
StartUp:
|
||||
call MakeWindow(10,18,11,44,ColAttr%(15,1),4,4,1)
|
||||
call TitleWindow(1,"[ The Bitmap-Brother ]")
|
||||
call PrtWindow(2,2,"Geben Sie die Datei an, welche nach BMPs")
|
||||
NeedInput:
|
||||
call PrtWindow(3,2,"durchsucht werden soll: ")
|
||||
locate 13,44:color 14,1
|
||||
input "",File$
|
||||
File$=ucase$(File$)
|
||||
if File$="Q" then goto Ende
|
||||
Msg$="™ffne '"+File$+"' ... "
|
||||
on error goto FileNotExist
|
||||
call PrtWindow(5,2,Msg$)
|
||||
open "B",#1,File$
|
||||
on error goto
|
||||
DOS$="DIR "+File$+" >BITMAP.$$1"
|
||||
shell DOS$
|
||||
open "I",#2,"BITMAP.$$1"
|
||||
for x=1 to 6
|
||||
line input #2,FileInfo$
|
||||
next x
|
||||
close #2
|
||||
kill "BITMAP.$$1"
|
||||
FileSize=(val(mid$(FileInfo$,16,3))*1000000)+(val(mid$(FileInfo$,20,3))*1000)+(val(mid$(FileInfo$,24,3)))
|
||||
if FileSize=0 then NoError=1:kill File$:goto FileNotExist
|
||||
Msg$="™ffne '"+File$+"' ... ge”ffnet"
|
||||
call PrtWindow(5,2,Msg$)
|
||||
call PrtWindow(6,2,"Durchsuche Datei ... ")
|
||||
call MakeWindow(5,5,16,64,ColAttr%(15,1),1,4,1)
|
||||
call TitleWindow(1,"[ Durchsuche Datei ... ]")
|
||||
ONSymb1=219
|
||||
ONSymb2=178
|
||||
ONSymb3=177
|
||||
ONSymb4=176
|
||||
OFSymb=250
|
||||
call PrtWindow(2,2,"Starte Scan ...")
|
||||
StartUpHour=val(mid$(Time$,1,2))
|
||||
StartUpMinu=val(mid$(time$,4,2))
|
||||
StartUpSeco=val(mid$(time$,7,2))
|
||||
Time$="00:00:00"
|
||||
Msg$="Byte XXXXXXXXX von "+using$("#########",FileSize)
|
||||
call PrtWindow(4,2,Msg$)
|
||||
Msg$=""
|
||||
for x=1 to 60
|
||||
Msg$=Msg$+chr$(OFSymb)
|
||||
next x
|
||||
call PrtWindow(6,2,Msg$)
|
||||
call PrtWindow(7,2,"0 2 5 7 1")
|
||||
call PrtWindow(8,2," 5 0 5 0")
|
||||
call PrtWindow(9,2," 0")
|
||||
ActBytes=1
|
||||
StartSearch:
|
||||
gosub UpDisp
|
||||
Get$ #1,54,Search$
|
||||
Se$=mid$(search$,30,25)
|
||||
s$=mid$(search$,30,1)
|
||||
sf$=""
|
||||
for x=1 to 25
|
||||
sf$=sf$+s$
|
||||
next x
|
||||
nulla$=mid$(search$,10,1)
|
||||
nullb$=mid$(search$,22,1)
|
||||
nullc$=mid$(search$,26,1)
|
||||
null=ascii(nulla$)+ascii(nullb$)+ascii(nullc$)
|
||||
nullb=0
|
||||
for x=29 to 54
|
||||
nullb=nullb+ascii(mid$(search$,x,1))
|
||||
next x
|
||||
nullc=ascii(mid$(search$,1,1))+ascii(mid$(search$,2,1))
|
||||
nullc=nullc+ascii(mid$(search$,3,1))+ascii(mid$(search$,19,1))
|
||||
nullc=nullc+ascii(mid$(search$,23,1))
|
||||
if Se$=sf$ and null=0 and nullb=0 and nullc<>0 then
|
||||
BMPs=BMPs+1
|
||||
if BMPs=1 then B$="" else B$="s"
|
||||
Msg$=using$("####",BMPs)+" BMP"+B$+" gefunden "
|
||||
call PrtWindow(12,2,Msg$)
|
||||
OFile$=mid$(str$(BMPs),2,10)+".BMP"
|
||||
Size$=mid$(Search$,3,8)
|
||||
V1$=Size$:gosub BVar:Size$=V2$
|
||||
Wid$=mid$(Search$,19,4)
|
||||
V1$=Wid$:gosub BVar:Wid$=V2$
|
||||
Hei$=mid$(Search$,23,4)
|
||||
V1$=Hei$:gosub BVar:Hei$=V2$
|
||||
Bits$=mid$(Search$,29,1)
|
||||
gosub WriteBMP
|
||||
end if
|
||||
ActBytes=ActBytes+1
|
||||
seek #1,ActBytes
|
||||
goto StartSearch
|
||||
|
||||
|
||||
|
||||
goto Ende
|
||||
|
||||
BVar:
|
||||
V2$=""
|
||||
for x=len(V1$) to 1 step -1
|
||||
V2$=V2$+mid$(V1$,x,1)
|
||||
next x
|
||||
return
|
||||
|
||||
Hex2Dec:
|
||||
' H=&H$
|
||||
|
||||
WriteBMP:
|
||||
open "O",#2,OFile$
|
||||
close #2
|
||||
return
|
||||
|
||||
UpDisp:
|
||||
Msg$="Byte "+using$("#########",ActBytes)
|
||||
call PrtWindow(4,2,Msg$)
|
||||
if ShowPer=10 then ShowPer=0 else SkipPer
|
||||
Percent=ActBytes/FileSize
|
||||
Blocks=Percent*60
|
||||
11 if Blocks>=1 then Blocks=Blocks-1:Per$=Per$+Chr$(ONSymb1):goto 11
|
||||
B1=Blocks
|
||||
12 if Blocks/.75>=1 then Blocks=Blocks-int(Blocks/.75)*.75:Per$=Per$+Chr$(ONSymb2):goto 12
|
||||
B2=Blocks
|
||||
13 if Blocks/.5>=1 then Blocks=Blocks-int(Blocks/.5)*.5:Per$=Per$+Chr$(ONSymb3):goto 13
|
||||
B3=Blocks
|
||||
14 if Blocks/.25>=1 then Blocks=Blocks-int(Blocks/.25):Per$=Per$+Chr$(ONSymb4):goto 14
|
||||
B4=Blocks
|
||||
call PrtWindow(6,2,Per$)
|
||||
Per$=""
|
||||
SkipPer:
|
||||
ShowPer=ShowPer+1
|
||||
Msg$="Zeit: "+Time$
|
||||
call PrtWindow(10,2,Msg$)
|
||||
if Percent>0 then else goto SkipRTime
|
||||
HD=val(mid$(time$,1,2))
|
||||
MD=val(mid$(time$,4,2))
|
||||
SD=val(mid$(time$,7,2))
|
||||
TiDiff=HD*100+MD+(SD/100)/.6
|
||||
ATime=(ATime+TiDiff)/2
|
||||
if Now<300 then SkipRTime else Now=0
|
||||
RTime=ATime/Percent
|
||||
RTime2=int(Rtime)
|
||||
RH=int(Rtime2/100)
|
||||
RM=int(RTime2-RH*100)
|
||||
RS=(Rtime-Rtime2)*100*.6
|
||||
if RS>=59.5 then RM=RM+1:RS=RS-59.5
|
||||
if RM>=59.5 then RH=RH+1:RM=RM-59.5
|
||||
rH$=mid$(str$(int(RH)),2,2)
|
||||
rM$=mid$(str$(int(RM)),2,2)
|
||||
rS$=mid$(str$(int(RS)),2,2)
|
||||
if inkey$=chr$(27) then end
|
||||
if len(rH$)<2 then RH$="0"+rh$
|
||||
if len(rM$)<2 then RM$="0"+rm$
|
||||
if len(rS$)<2 then RS$="0"+rs$
|
||||
TEnd$=RH$+":"+RM$+":"+RS$
|
||||
Msg$="vorr. Ende: "+TEnd$
|
||||
call PrtWindow(10,25,Msg$)
|
||||
SkipRTime:
|
||||
Now=Now+1
|
||||
if ActBytes>=FileSize then Ende
|
||||
return
|
||||
|
||||
|
||||
|
||||
Ende:
|
||||
NowHour=val(mid$(time$,1,2))
|
||||
NowMinu=val(mid$(time$,4,2))
|
||||
NowSeco=val(mid$(time$,7,2))
|
||||
TimeNow$=using$("##:",StartUpHour+NowHour)+using$("##:",StartUpMinu+NowMinu)+using$("##",StartUpSeco+NowSeco)
|
||||
Time$=TimeNow$
|
||||
45
bitmap/bitmap.txt
Normal file
45
bitmap/bitmap.txt
Normal file
@ -0,0 +1,45 @@
|
||||
Header : 54 Bytes
|
||||
Farbtabelle: 1024 Bytes (nur bei 256 Farben)
|
||||
Bildinfo : BxHxX (siehe Tabelle)
|
||||
ÄÄÄÄÄÄÄ
|
||||
GrӇe : H+F+B
|
||||
ÄÍÍÍÍÍÍÍÄ
|
||||
|
||||
X Farbtiefe
|
||||
- ---------
|
||||
1 256 Farben/256 Graustufen/16 Farben
|
||||
2 32767 Farben/RealColor
|
||||
2 65535 Farben/HighColor
|
||||
3 16777216 Farben/TrueColor
|
||||
|
||||
256C - 253638 Bytes (siehe unten)
|
||||
TC - 675054 Bytes
|
||||
|
||||
|
||||
Byte 256C TC
|
||||
02 C6 E6
|
||||
03 DE 8F
|
||||
04 03 0B
|
||||
0B 04 00
|
||||
1C 08 18
|
||||
|
||||
616x410 - 253638 Bytes (ohne Header&Farbtab - 252560)
|
||||
308x205 - 63398 Bytes (ohne Header&Farbtab - 63140)
|
||||
|
||||
Byte 616x410 308x205
|
||||
02 C6 A6 Ä·
|
||||
03 DE F7 ÇÄ Dateigr”áe (komplett)
|
||||
04 03 00 Ľ
|
||||
12 68 30 ÄÒÄ Breite
|
||||
13 02 01 Ľ
|
||||
16 9A CD ÄÒÄ H”he
|
||||
17 01 00 Ľ
|
||||
1C 08 08 ÄÄÄ Farbtiefe (08-8bit, 0F - 16bit, 18-24bit)
|
||||
|
||||
Byte(s) Beschreibung
|
||||
---------- ------------------------------------
|
||||
0000-0001 Kennung "BM" f<>r BitMap
|
||||
0002-0009 GrӇe der Datei
|
||||
0012-0015 Breite des Bildes
|
||||
0016-0019 H”he des Bildes
|
||||
0001C Anzahl Bits pro Pixel
|
||||
132
bootinfo.bas
Normal file
132
bootinfo.bas
Normal file
@ -0,0 +1,132 @@
|
||||
ver$="1.3"
|
||||
BeginCheck=10000
|
||||
print"Scanning for Checksum .";
|
||||
shell "DIR BOOTINFO.EXE > BOOTINFO.TMP"
|
||||
print".";
|
||||
for x=1 to len(command$)
|
||||
if File=0 then LogFile$=LogFile$+mid$(command$,x,1)
|
||||
if File=1 then OutText$=OutText$+mid$(command$,x,1)
|
||||
if mid$(command$,x+1,1)=" " then File=1
|
||||
next x
|
||||
print".";
|
||||
open "I",#1,"BOOTINFO.TMP"
|
||||
for z=1 to 5
|
||||
line input#1,DummesZeugs$
|
||||
next z
|
||||
print".";
|
||||
line input#1,DateiInfo$
|
||||
close #1
|
||||
kill "BOOTINFO.TMP"
|
||||
print".";
|
||||
open "O",#1,"BOOTINFO.TMP"
|
||||
print#1,"PHYSICALLY DELETED! HARHARHAR!"
|
||||
close #1
|
||||
kill "BOOTINFO.TMP"
|
||||
print".";
|
||||
FileSize=val(mid$(DateiInfo$,14,5))*1000000+val(mid$(DateiInfo$,20,3))*1000+val(mid$(DateiInfo$,24,3))
|
||||
FileDate$=mid$(DateiInfo$,28,8)
|
||||
FileTime$=mid$(DateiInfo$,39,5)
|
||||
ver$=ver$+" ("+FileDate$+" / "+FileTime$+")"
|
||||
open "BOOTINFO.EXE" FOR BINARY AS #1
|
||||
get$ #1,256,CheckSum$
|
||||
print".";
|
||||
CheckSumme=0
|
||||
get$ #1,BeginCheck-1,Dummy$
|
||||
Dummy$=""
|
||||
for x=BeginCheck to FileSize step 4
|
||||
if x=23738 or x=23740 then goto HereIsNext
|
||||
get$ #1,2,CheckSum$
|
||||
CurrentCheckSumL=ASCII(left$(CheckSum$,1))
|
||||
CurrentCheckSumR=ASCII(right$(CheckSum$,1))
|
||||
if CurrentCheckSumL=-1 then CurrentCheckSumL=0
|
||||
if CurrentCheckSumR=-1 then CurrentCheckSumR=0
|
||||
CheckSumme=CheckSumme+CurrentCheckSumL+CurrenCheckSumR
|
||||
if CheckSumme>65535 then CheckSumme=-65535+CheckSumme
|
||||
HereIsNext:
|
||||
next x
|
||||
close #1
|
||||
CheckSum$=hex$(CheckSumme)
|
||||
print". ";
|
||||
IF FileSize<>0025488 then goto FileSizeAlert
|
||||
if CheckSum$<>"9055" then goto CheckSumAlert
|
||||
print"Veryfied (";mid$(str$(FileSize),2,20);" / ";CheckSum$;")"
|
||||
IF COMMAND$="" THEN GOTO Syntax
|
||||
sound 750,2
|
||||
delay 3/18.2
|
||||
sound 1250,1
|
||||
delay 2/18.2
|
||||
sound 1250,1
|
||||
delay 2/18.2
|
||||
sound 1500,2
|
||||
color 7:print"Writing BootInfo .";
|
||||
open "A",#1,LogFile$
|
||||
print".";
|
||||
dat$=mid$(date$,4,2)+"."+mid$(date$,1,2)+"."+mid$(date$,7,4)
|
||||
OutText$=dat$+" / "+time$+" "+OutText$
|
||||
print".";
|
||||
print#1,OutText$
|
||||
print".";
|
||||
close #1
|
||||
print". ";
|
||||
print"Written (";mid$(str$(len(OutText$)),2,4);" Chars)"
|
||||
goto Ende
|
||||
|
||||
Syntax:
|
||||
$INCLUDE "LOGO.INC"
|
||||
color 14
|
||||
print"another program from RoboCop INDUSTRIES"
|
||||
print:color 10
|
||||
print"BootInfo - v";ver$:color 15
|
||||
print
|
||||
print"Syntax: BootInfo [Log-File] [Information]"
|
||||
print:color 7
|
||||
print"Log-File - Filename of the Log-File"
|
||||
print" If it exists the entry will be added."
|
||||
print"Information - The Text, which will be written to the Log-File"
|
||||
goto Ende
|
||||
|
||||
CheckSumAlert:
|
||||
print"Alert [CheckSum does not match (";CheckSum$;")]"
|
||||
goto VirusAlert
|
||||
|
||||
FileSizeAlert:
|
||||
print"Alert [FileSize does not match (";mid$(str$(FileSize),2,20);")]"
|
||||
goto VirusAlert
|
||||
|
||||
VirusAlert:
|
||||
$INCLUDE "LOGO.INC"
|
||||
color 28
|
||||
print
|
||||
print"VIRUS ALERT!!!!!!!"
|
||||
color 12
|
||||
print
|
||||
print"The File-Checksum is changed, possibly a virus"
|
||||
print"infected this file or some HACKERs have done it's work."
|
||||
print:color 26
|
||||
print"This program locks up in 5 seconds...";
|
||||
for y=1 to 30
|
||||
for x=1 to 500 step 75
|
||||
sound 750+x,.5
|
||||
next x
|
||||
next y
|
||||
color 10
|
||||
print"LOCKED UP"
|
||||
delay 1.5
|
||||
sound 750,1
|
||||
sound 1250,1
|
||||
print"BOOT UP Sequence engaged, please confirm..."
|
||||
delay 1
|
||||
sound 1250,1
|
||||
sound 1500,2
|
||||
sound 800,3
|
||||
print"BOOT UP Sequence confirmed. Boot.";
|
||||
for x=1 to 4
|
||||
delay 1
|
||||
print ".";
|
||||
next x
|
||||
print
|
||||
$INLINE "INLINES\BOOT_R.COM"
|
||||
|
||||
|
||||
|
||||
Ende:
|
||||
1
bootpass/access.dat
Normal file
1
bootpass/access.dat
Normal file
@ -0,0 +1 @@
|
||||
"RoboCop","Markus Birth","16. Nov 1980","Musterstrasse 1","12345 Musterstadt","(0123) 4567","(0123) 4567 [9600 Baud]","",1,"RC","RC"
|
||||
695
bootpass/bootpass.bas
Normal file
695
bootpass/bootpass.bas
Normal file
@ -0,0 +1,695 @@
|
||||
on error goto Fehler
|
||||
dim pname$(25)
|
||||
dim rname$(25)
|
||||
dim birth$(25)
|
||||
dim adress1$(25)
|
||||
dim adress2$(25)
|
||||
dim tele$(25)
|
||||
dim fax$(25)
|
||||
dim codenum$(25)
|
||||
dim master(25)
|
||||
dim mpasswd1$(25)
|
||||
dim mpasswd2$(25)
|
||||
cls
|
||||
color 15:print"USER VERIFICATION"
|
||||
locate 1,73:color 31:print"STRICTED";
|
||||
color 7
|
||||
print
|
||||
input "Type in tha name: ",nam$
|
||||
print
|
||||
gosub GetInfo
|
||||
color 15:print"Real Name :";:color 7:? rname$;:color 23
|
||||
if MASTER=1 then print" *** MASTER ACCESS ABILITY ***" else print
|
||||
color 15:print"Birthday :";:color 7:? birth$
|
||||
color 15:print"Age (DATE$) :";:color 7:? compage$
|
||||
color 15:print"Adress :";:color 7:? adress1$
|
||||
print" ";adress2$
|
||||
color 15:print"Telephone :";:color 7:? tele$
|
||||
color 15:print"FAX :";:color 7:? fax$
|
||||
print
|
||||
try=1
|
||||
print"And now tha ";
|
||||
3 print"Code-numba (";mid$(str$(try),2,20);". Try): ";
|
||||
gosub GetCode
|
||||
if try>=3 and cod$<>codenum$ then msg$="Your 3 Trys are out:":goto FuckHim
|
||||
if cod$=codenum$ and try<=3 then pass=1 else try=try+1:print:goto 3
|
||||
if MASTER=1 then goto MASTERPROG else goto CONTBOOT
|
||||
|
||||
GetInfo:
|
||||
msg$="Trying to cheat ??? --->"
|
||||
on error goto FuckHim
|
||||
open "I",#1,"access.dat"
|
||||
1 input#1,pname$,rname$,birth$,adress1$,adress2$,tele$,fax$,codenum$,MASTER,mpasswd1$,mpasswd2$
|
||||
if pname$=nam$ then
|
||||
datd=val(left$(date$,2))
|
||||
datm=val(mid$(date$,4,2))
|
||||
daty=val(right$(date$,2))
|
||||
hed=val(left$(birth$,2))
|
||||
hm$=mid$(birth$,5,3)
|
||||
if hm$="Jan" then hem=1
|
||||
if hm$="Feb" then hem=2
|
||||
if hm$="Mar" then hem=3
|
||||
if hm$="Apr" then hem=4
|
||||
if hm$="May" then hem=5
|
||||
if hm$="Jun" then hem=6
|
||||
if hm$="Jul" then hem=7
|
||||
if hm$="Aug" then hem=8
|
||||
if hm$="Sep" then hem=9
|
||||
if hm$="Oct" then hem=10
|
||||
if hm$="Nov" then hem=11
|
||||
if hm$="Dec" then hem=12
|
||||
if hem=0 then hem=6
|
||||
hey=val(right$(birth$,2))
|
||||
compage=daty-hey
|
||||
if datm<hem and datd<hed then compage=compage-1
|
||||
if hed>0 and hem>0 and hey>0 then compage$=mid$(str$(compage),2,3)+" years" else compage$="<unknown>"
|
||||
close #1:reset
|
||||
on error goto Fehler
|
||||
return
|
||||
else
|
||||
goto 1
|
||||
end if
|
||||
|
||||
GetCode:
|
||||
cod$=""
|
||||
2 a$=inkey$:if a$="" then 2
|
||||
if a$=chr$(13) then return
|
||||
cod$=cod$+a$
|
||||
print"+";
|
||||
goto 2
|
||||
|
||||
Fehler:
|
||||
cls
|
||||
color 31:print"!!! WARNING !!!"
|
||||
color 7
|
||||
print
|
||||
print"An error has occured. The"
|
||||
print"program will stop here and"
|
||||
print"beep! To get access to ur"
|
||||
print"system, press the reset-"
|
||||
print"Button or switch ya compu"
|
||||
print"off and then on."
|
||||
delay 10
|
||||
msg$="Ahh, an error:"
|
||||
goto FuckHim
|
||||
FuckHim:
|
||||
cls
|
||||
color 10
|
||||
print msg$
|
||||
locate 5,1
|
||||
color 28,0,0
|
||||
print" ÜÜÜÜÜ Ü ÜÜÜÜÜÜÜ ÜÜÜÜÜ ÜÜÜÜÜÜÜ"
|
||||
print" Û Û Û Û Û Û Û"
|
||||
print" ÛÜÜÜÜÜÛ Û ÛÜÜÜÜ ÛÜÜÜÜß Û"
|
||||
print" Û Û Û Û Û ßÜ Û"
|
||||
print" Û Û ÛÜÜÜÜÜÜ ÛÜÜÜÜÜÜ Û ßÜ Û"
|
||||
color 12
|
||||
print
|
||||
print"Formatting Harddisk ..."
|
||||
sec=5
|
||||
4 locate 12,1:print "... in";sec;"seconds! "
|
||||
if sec<=0 then dl=3:goto BOOTSTOP
|
||||
delay 1
|
||||
sec=sec-1
|
||||
goto 4
|
||||
|
||||
BOOTSTOP:
|
||||
color 31,0,0
|
||||
cls
|
||||
print"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ";
|
||||
print"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ";
|
||||
print"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ";
|
||||
print"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ";
|
||||
print"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ";
|
||||
print"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ";
|
||||
print"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ";
|
||||
print"ÛÛÛÛÛÛÛ ÛÛÛÛ ÛÛÛÛÛ ÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ";
|
||||
print"ÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛ ÛÛÛ ÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ";
|
||||
print"ÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛ ÛÛÛ ÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ";
|
||||
print"ÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛ ÛÛÛ ÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ";
|
||||
print"ÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛ ÛÛÛ ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ";
|
||||
print"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛ ÛÛÛ ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ";
|
||||
print"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛ ÛÛÛ ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ";
|
||||
print"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛ ÛÛÛ ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ";
|
||||
print"ÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ";
|
||||
print"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ";
|
||||
print"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ";
|
||||
print"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ";
|
||||
print"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ";
|
||||
print"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ";
|
||||
print"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ";
|
||||
print"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ";
|
||||
print"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ";
|
||||
locate 25,1:print"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ";
|
||||
6 for tim=1 to 5
|
||||
delay dl
|
||||
for z=1 to 4
|
||||
sound 2000,1.0
|
||||
delay 1.5/18.2
|
||||
next z
|
||||
next tim
|
||||
if dl>1 then
|
||||
dl=dl-1
|
||||
elseif dl>0.1 then
|
||||
dl=dl-.2
|
||||
else
|
||||
dl=0
|
||||
end if
|
||||
goto 6
|
||||
|
||||
CONTBOOT:
|
||||
cls
|
||||
color 31:print"BOOT VERIFICATION ... OK":color 7
|
||||
print
|
||||
system
|
||||
|
||||
MASTERPROG:
|
||||
cls
|
||||
color 31:print"MASTER PROGRAM START SEQUENCE ..."
|
||||
color 7
|
||||
print
|
||||
print"Enter Code #1 :";
|
||||
gosub GetCode
|
||||
if cod$<>mpasswd1$ then goto CONTBOOT
|
||||
print
|
||||
print"Enter Code #2 :";
|
||||
gosub GetCode
|
||||
if cod$<>mpasswd2$ then goto CONTBOOT
|
||||
goto MPR
|
||||
|
||||
MPR:
|
||||
cls
|
||||
color 15:print"*** MASTER PROGRAM ***"
|
||||
color 7
|
||||
print
|
||||
print"1 - User-Control"
|
||||
print"2 - System Files"
|
||||
print"3 - Informations"
|
||||
print"4 - Continue BOOT"
|
||||
print
|
||||
7 locate 8,1:input"Ya choose :",i
|
||||
if i=1 then goto USA
|
||||
if i=2 then goto SYS
|
||||
if i=3 then goto INF
|
||||
if i=4 then goto CONTBOOT
|
||||
goto 7
|
||||
|
||||
USA:
|
||||
cls
|
||||
color 15:print"*** MASTER PROGRAM ***"
|
||||
color 31:print" USER CONTROL"
|
||||
color 7
|
||||
print
|
||||
print"1 - Add a User"
|
||||
print"2 - Delete a User"
|
||||
print"3 - Change a User"
|
||||
print"4 - Back to Main Menu"
|
||||
print
|
||||
8 locate 9,1:input"Ur choose :",i
|
||||
if i=1 then goto UserAdd
|
||||
if i=2 then goto UserDel
|
||||
if i=3 then goto UserChg
|
||||
if i=4 then goto MPR
|
||||
goto 8
|
||||
|
||||
UserAdd:
|
||||
cls
|
||||
color 15:print"*** MASTER PROGRAM ***"
|
||||
color 07:print" USER CONTROL"
|
||||
color 31:print" ADD A USER"
|
||||
color 7
|
||||
print
|
||||
print"--------------------------------------------------------------------------------";
|
||||
10 input"Codename/ID :",pname$
|
||||
input"Code Number :",codenum$
|
||||
input"Real Name :",rname$
|
||||
input"Birthday (dd. mmm yyyy):",birth$
|
||||
input"Adress #1 (Street) :",adress1$
|
||||
input"Adress #2 (City) :",adress2$
|
||||
input"Telephone Number :",tele$
|
||||
input"FAX Number :",fax$
|
||||
input"MASTER access (0/1) :",master
|
||||
if MASTER=1 then input"MASTER Password #1 :",mpasswd1$
|
||||
if MASTER=1 then input"MASTER Password #2 :",mpasswd2$
|
||||
print"--------------------------------------------------------------------------------";
|
||||
9 locate 19,1:input"Is thiz correct (Y/N/B) ?",answ$
|
||||
if answ$="y" or answ$="Y" then goto UserAddWrite
|
||||
if answ$="n" or answ$="N" then locate 6,1:goto 10
|
||||
if answ$="b" or answ$="B" then goto USA
|
||||
goto 9
|
||||
|
||||
UserAddWrite:
|
||||
color 15
|
||||
locate 19,1:print space$(70)
|
||||
locate 19,1:print"Opening Channel ... ";
|
||||
open "A",#1,"access.dat"
|
||||
print"OK"
|
||||
print"Writing Data ... ";
|
||||
write#1,pname$,rname$,birth$,adress1$,adress2$,tele$,fax$,codenum$,master,mpasswd1$,mpasswd2$
|
||||
print"OK"
|
||||
print"Closing Channel ... ";
|
||||
close #1:reset
|
||||
print"OK"
|
||||
print"Resetting Data ... ";
|
||||
pname$="":rname$="":birth$="":adress1$="":adress2$="":tele$="":fax$="":master=0:mpasswd1$="":mpasswd2$="":codenum$=""
|
||||
print"OK"
|
||||
color 0,7:print"User Add Complete."
|
||||
color 7,0,0
|
||||
delay 1.5
|
||||
goto USA
|
||||
|
||||
UserDel:
|
||||
cls
|
||||
color 15:print"*** MASTER PROGRAM ***"
|
||||
color 07:print" USER CONTROL"
|
||||
color 31:print" DELETE A USER"
|
||||
color 7
|
||||
print
|
||||
print"Opening Channel ... ";
|
||||
reset
|
||||
open "I",#1,"access.dat"
|
||||
print"OK"
|
||||
print"Reading User Data ... ";
|
||||
x=0
|
||||
11 x=x+1
|
||||
if eof(1) then goto 12
|
||||
input#1,pname$(x),rname$(x),birth$(x),adress1$(x),adress2$(x),tele$(x),fax$(x),codenum$(x),master(x),mpasswd1$(x),mpasswd2$(x)
|
||||
goto 11
|
||||
12 endx=x:on error goto Fehler:print"OK"
|
||||
print"Closing Channel ... ";
|
||||
close#1
|
||||
RESET
|
||||
print"OK"
|
||||
color 0,7:print"USER DATA INPUT COMPLETE":color 7,0,0
|
||||
delay 1.5
|
||||
goto UserDelChoose
|
||||
|
||||
UserDelChoose:
|
||||
locate 10,1:print"--------------------------------------------------------------------------------";
|
||||
x=1
|
||||
13 locate 11,1:print"Codename/ID : ";pname$(x);space$(40-len(pname$(x)))
|
||||
if x=1 then print"Codenumber : ";:color 31:print"*** SECRET ***":color 7 else print"Codenumber : ";codenum$(x);space$(40-len(codenum$(x)))
|
||||
print"Real Name : ";rname$(x);space$(40-len(rname$(x)))
|
||||
print"Birthday : ";birth$(x);space$(40-len(birth$(x)))
|
||||
print"Adress : ";adress1$(x);space$(40-len(adress1$(x)))
|
||||
print" ";adress2$(x);space$(40-len(adress2$(x)))
|
||||
print"Telephone : ";tele$(x);space$(40-len(tele$(x)))
|
||||
print"FAX : ";fax$(x);space$(40-len(tele$(x)))
|
||||
print"MASTER access : ";
|
||||
if master(x)=1 then print"YES" else print"NO "
|
||||
if x=1 then print"MASTER Pswrd#1: ";:color 31:print"*** SECRET ***":color 7 else print"MASTER Pswrd#1: ";mpasswd1$(x);space$(40-len(mpasswd1$(x)))
|
||||
if x=1 then print"MASTER Pswrd#2: ";:color 31:print"*** SECRET ***":color 7 else print"MASTER Pswrd#2: ";mpasswd2$(x);space$(40-len(mpasswd2$(x)))
|
||||
print"--------------------------------------------------------------------------------";
|
||||
print" PgUp/PgDn - Look Up/Down [ENTER] - Delete [ESC] - Back";
|
||||
print"--------------------------------------------------------------------------------";
|
||||
14 a$=inkey$:if a$="" then 14
|
||||
if mid$(a$,2,1)="I" and x>1 then x=x-1:goto 13
|
||||
if mid$(a$,2,1)="Q" and x<endx-1 then x=x+1:goto 13
|
||||
if a$=chr$(13) then goto UserDelSelected
|
||||
if a$=chr$(27) then goto USA
|
||||
goto 14
|
||||
|
||||
UserDelSelected:
|
||||
locate 23,1:print space$(80);
|
||||
locate 23,1
|
||||
if rname$(x)="Markus Birth" then print"Cannot delete programmer!":delay 3:goto 13
|
||||
18 input"Delete ^this^ User (Y/N) ??? ";choose$
|
||||
if choose$="y" or choose$="Y" then goto 15
|
||||
if choose$="n" or choose$="N" then goto 13
|
||||
goto 18
|
||||
15 cls
|
||||
selx=x
|
||||
color 15:print"*** MASTER PROGRAM ***"
|
||||
color 07:print" USER CONTROL"
|
||||
color 31:print" DELETE A USER"
|
||||
print
|
||||
color 7
|
||||
print"Opening Channel ... ";
|
||||
open "O",#1,"access2.dat"
|
||||
print"OK"
|
||||
print"Writing New Data ... ";
|
||||
x=1
|
||||
16 if x=selx then x=x+1:goto 16
|
||||
if x=endx then 17
|
||||
write#1,pname$(x),rname$(x),birth$(x),adress1$(x),adress2$(x),tele$(x),fax$(x),codenum$(x),master(x),mpasswd1$(x),mpasswd2$(x)
|
||||
x=x+1
|
||||
goto 16
|
||||
17 print"OK"
|
||||
print"Closing Channel ... ";
|
||||
close #1
|
||||
RESET
|
||||
print"OK"
|
||||
print"Killing Original ... ";
|
||||
kill "access.dat"
|
||||
print"OK"
|
||||
print"Renaming TEMP-File ... ";
|
||||
name "access2.dat" as "access.dat"
|
||||
print"OK"
|
||||
print "Deleting Vars ... ";
|
||||
for x=1 to endx
|
||||
pname$(x)="":rname$(x)="":birth$(x)="":adress1$(x)="":adress2$(x)=""
|
||||
tele$(x)="":fax$(x)="":codenum$(x)="":master=0:mpasswd1$(x)="":mpasswd2$(x)=""
|
||||
next x
|
||||
print"OK"
|
||||
color 0,7,0
|
||||
print"USER DELETION COMPLETE"
|
||||
color 7,0,0
|
||||
delay 1.5
|
||||
goto UserDel
|
||||
|
||||
UserChg:
|
||||
cls
|
||||
color 15:print"*** MASTER PROGRAM ***"
|
||||
color 7:print " USER CONTROL"
|
||||
color 31:print" CHANGE A USER"
|
||||
color 7:print
|
||||
print"Opening Channel ... ";
|
||||
reset
|
||||
open "I",#1,"access.dat"
|
||||
print"OK"
|
||||
print"Reading User Data ... ";
|
||||
x=0
|
||||
19 x=x+1
|
||||
if eof(1) then goto 20
|
||||
input#1,pname$(x),rname$(x),birth$(x),adress1$(x),adress2$(x),tele$(x),fax$(x),codenum$(x),master(x),mpasswd1$(x),mpasswd2$(x)
|
||||
goto 19
|
||||
20 endx=x:print"OK"
|
||||
print"Closing Channel ... ";
|
||||
close #1
|
||||
reset
|
||||
print"OK"
|
||||
color 0,7:print"USER DATA INPUT COMPLETE":color 7,0,0
|
||||
delay 1.5
|
||||
goto UserChgChoose
|
||||
|
||||
UserChgChoose:
|
||||
locate 10,1:print"--------------------------------------------------------------------------------";
|
||||
x=1
|
||||
21 locate 11,1:print"Codename/ID : ";pname$(x);space$(40-len(pname$(x)))
|
||||
if x=1 then print"Codenumber : ";:color 31:print"*** SECRET ***":color 7 else print"Codenumber : ";codenum$(x);space$(40-len(codenum$(x)))
|
||||
print"Real Name : ";rname$(x);space$(40-len(rname$(x)))
|
||||
print"Birthday : ";birth$(x);space$(40-len(birth$(x)))
|
||||
print"Adress : ";adress1$(x);space$(40-len(adress1$(x)))
|
||||
print" ";adress2$(x);space$(40-len(adress2$(x)))
|
||||
print"Telephone : ";tele$(x);space$(40-len(tele$(x)))
|
||||
print"FAX : ";fax$(x);space$(40-len(fax$(x)))
|
||||
print"MASTER access : ";
|
||||
if master(x)=1 then print"YES" else print "NO "
|
||||
if x=1 then print"MASTER Pswrd#1: ";:color 31:print"*** SECRET ***":color 7 else print"MASTER Pswrd#1: ";mpasswd1$(x);space$(40-len(mpasswd1$(x)))
|
||||
if x=1 then print"MASTER Pswrd#2: ";:color 31:print"*** SECRET ***":color 7 else print"MASTER Pswrd#2: ";mpasswd2$(x);space$(40-len(mpasswd2$(x)))
|
||||
print"--------------------------------------------------------------------------------";
|
||||
print" PgUp/PgDn - Look Up/Down [ENTER] - Change [ESC] - Back";
|
||||
print"--------------------------------------------------------------------------------";
|
||||
22 a$=inkey$:if a$="" then 22
|
||||
if mid$(a$,2,1)="I" and x>1 then x=x-1:goto 21
|
||||
if mid$(a$,2,1)="Q" and x<endx-1 then x=x+1:goto 21
|
||||
if a$=chr$(13) then seluser=x:goto UserChgSelected
|
||||
if a$=chr$(27) then goto USA
|
||||
goto 22
|
||||
|
||||
UserChgSelected:
|
||||
if seluser=1 then goto ChgRC
|
||||
cls
|
||||
color 15:print"*** MASTER PROGRAM ***"
|
||||
color 07:print" USER CONTROL"
|
||||
color 31:print" CHANGE A USER"
|
||||
print
|
||||
27 color 7
|
||||
print"--------------------------------------------------------------------------------";
|
||||
23 locate 06,1:input"Codename/ID : ",pname$
|
||||
if pname$="" then pname$=pname$(seluser)
|
||||
locate 06,17:print pname$
|
||||
input"Codenumber : ",codenum$
|
||||
if codenum$="" then
|
||||
locate 7,50:print"Delete Codenumber (Y/N)?"
|
||||
30 a$=inkey$:if a$="" then goto 30
|
||||
if a$="y" or a$="Y" then codenum$="":goto 33
|
||||
if a$="n" or a$="N" then codenum$=codenum$(seluser):goto 33
|
||||
goto 30
|
||||
end if
|
||||
33 locate 7,17:print codenum$
|
||||
input"Real Name : ",rname$
|
||||
if rname$="" then rname$=rname$(seluser)
|
||||
locate 8,17:print rname$
|
||||
input"Birthday : ",birth$
|
||||
if birth$="" then birth$=birth$(seluser)
|
||||
locate 9,17:print birth$
|
||||
input"Adress #1 (St): ",adress1$
|
||||
if adress1$="" then adress1$=adress1$(seluser)
|
||||
locate 10,17:print adress1$
|
||||
input"Adress #2 (Ct): ",adress2$
|
||||
if adress2$="" then adress2$=adress2$(seluser)
|
||||
locate 11,17:print adress2$
|
||||
input"Telephone : ",tele$
|
||||
if tele$="" then tele$=tele$(seluser)
|
||||
locate 12,17:print tele$
|
||||
input"FAX : ",fax$
|
||||
if fax$="" then fax$=fax$(seluser)
|
||||
locate 13,17:print fax$
|
||||
input"MASTER access*: ",master$
|
||||
if master$="" then master=master(seluser) else master=val(mid$(master$,2,1))
|
||||
locate 14,17:print master
|
||||
input"MASTER Pswrd#1: ",mpasswd1$
|
||||
if mpasswd1$="" then
|
||||
locate 15,50:print"Delete Password#1 (Y/N)?"
|
||||
31 a$=inkey$:if a$="" then 31
|
||||
if a$="y" or a$="Y" then mpasswd1$="":goto 34
|
||||
if a$="n" or a$="N" then mpasswd1$=mpasswd1$(seluser):goto 34
|
||||
goto 31
|
||||
end if
|
||||
34 locate 15,17:print mpasswd1$
|
||||
input"MASTER Pswrd#2: ",mpasswd2$
|
||||
if mpasswd2$="" then
|
||||
locate 16,50:print"Delete Password#2 (Y/N)?"
|
||||
32 a$=inkey$:if a$="" then 32
|
||||
if a$="y" or a$="Y" then mpasswd2$="":goto 35
|
||||
if a$="n" or a$="N" then mpasswd2$=mpasswd2$(seluser):goto 35
|
||||
goto 32
|
||||
end if
|
||||
35 locate 16,17:print mpasswd2$
|
||||
print"--------------------------------------------------------------------------------";
|
||||
24 locate 18,1:input"Is ^this^ correct (Y/N/B) ?",answ$
|
||||
if answ$="y" or answ$="Y" then goto UserChgWrite
|
||||
if answ$="n" or answ$="N" then goto 23
|
||||
if answ$="b" or answ$="B" then goto USA
|
||||
goto 24
|
||||
|
||||
UserChgWrite:
|
||||
cls
|
||||
color 15:print"*** MASTER PROGRAM ***"
|
||||
color 7:print" USER CONTROL"
|
||||
color 31:print" CHANGE A USER"
|
||||
color 7:print
|
||||
print"Opening Channel ... ";
|
||||
open "O",#1,"access2.dat"
|
||||
print"OK"
|
||||
print"Writing Changed Data ... ";
|
||||
x=1
|
||||
25 if x=endx then 26
|
||||
if x=seluser then
|
||||
write#1,pname$,rname$,birth$,adress1$,adress2$,tele$,fax$,codenum$,master,mpasswd1$,mpasswd2$
|
||||
x=x+1:goto 25
|
||||
else
|
||||
write#1,pname$(x),rname$(x),birth$(x),adress1$(x),adress2$(x),tele$(x),fax$(x),codenum$(x),master(x),mpasswd1$(x),mpasswd2$(x)
|
||||
x=x+1:goto 25
|
||||
end if
|
||||
26 print"OK"
|
||||
print"Closing Channel ... ";
|
||||
close #1
|
||||
reset
|
||||
print"OK"
|
||||
print"Killing Original ... ";
|
||||
kill "access.dat"
|
||||
print"OK"
|
||||
print"Renaming TEMP-File ... ";
|
||||
name "access2.dat" as "access.dat"
|
||||
print "OK"
|
||||
print"Deleting Vars ... ";
|
||||
for x=1 to endx
|
||||
pname$(x)="":rname$(x)="":birth$(x)="":adress1$(x)="":adress2$(x)=""
|
||||
tele$(x)="":fax$(x)="":codenum$(x)="":master=0:mpasswd1$(x)="":mpasswd2$(x)=""
|
||||
next x
|
||||
print"OK"
|
||||
color 0,7,0
|
||||
print"USER CHANGE COMPLETE"
|
||||
color 7,0,0
|
||||
delay 1.5
|
||||
goto UserChg
|
||||
|
||||
ChgRC:
|
||||
cls
|
||||
color 15:print"*** MASTER PROGRAM ***"
|
||||
color 07:print" USER CONTROL"
|
||||
color 31:print" CHANGE PROGRAMMER"
|
||||
color 7:print
|
||||
sound 2000,(18.2*1)*.23
|
||||
delay (1/18.2)*.30
|
||||
sound 2000,18.2*1
|
||||
print"If you want to change the Programmer-Info, you have to"
|
||||
print"know the MAGIC WORD!"
|
||||
print
|
||||
print"What is it ? ";
|
||||
gosub GetCode
|
||||
if cod$="BITTE" then 28
|
||||
print"Second and last Try!"
|
||||
print"The Magic Word is : ";
|
||||
gosub GetCode
|
||||
if cod$="BITTE" then 28
|
||||
goto FuckHim
|
||||
28 locate 6,1
|
||||
for z=1 to 5
|
||||
print space$(80);
|
||||
next z
|
||||
locate 5,1:goto 27
|
||||
|
||||
SYS:
|
||||
shell"mode co80"
|
||||
cls
|
||||
color 15,0:print"*** MASTER PROGRAM ***"
|
||||
color 31,0:print" SYSTEM FILES"
|
||||
color 7
|
||||
print
|
||||
print"1 - Look AUTOEXEC.BAT"
|
||||
print"2 - Look CONFIG.SYS"
|
||||
print"3 - Change AUTOEXEC.BAT"
|
||||
print"4 - Change CONFIG.SYS"
|
||||
print"5 - Change ACCESS.DAT"
|
||||
print"6 - Back to Main Menu"
|
||||
print
|
||||
36 locate 11,1:input"Ya choose? ",i
|
||||
if i=1 then goto LookAUTO
|
||||
if i=2 then goto LookCONF
|
||||
if i=3 then goto EditAUTO
|
||||
if i=4 then goto EditCONF
|
||||
if i=5 then goto EditACCE
|
||||
if i=6 then goto MPR
|
||||
goto 36
|
||||
|
||||
LookAUTO:
|
||||
locate 13,1:color 0,7
|
||||
print"LOOKING ON AUTOEXEC.BAT"
|
||||
color 7,0,0
|
||||
print"Search & Run WPVIEW.EXE ... ";
|
||||
shell"C:\NORTON\NC\WPVIEW.EXE C:\AUTOEXEC.BAT"
|
||||
print"COMPLETE"
|
||||
color 0,7
|
||||
print"AUTOEXEC.BAT VIEWING SOLVED"
|
||||
color 7,0
|
||||
delay 1
|
||||
goto SYS
|
||||
|
||||
LookCONF:
|
||||
locate 13,1:color 0,7
|
||||
print"LOOKING ON CONFIG.SYS"
|
||||
color 7,0
|
||||
print"Search & Run WPVIEW.EXE ... ";
|
||||
shell"C:\NORTON\NC\WPVIEW.EXE C:\CONFIG.SYS"
|
||||
print"COMPLETE"
|
||||
color 0,7
|
||||
print"CONFIG.SYS VIEWING SOLVED"
|
||||
color 7,0
|
||||
delay 1
|
||||
goto SYS
|
||||
|
||||
EditAUTO:
|
||||
locate 13,1:color 0,7
|
||||
print"EDITING AUTOEXEC.BAT"
|
||||
color 7,0
|
||||
print"Search & Run NCEDIT.EXE ... ";
|
||||
shell"C:\NORTON\NC\NCEDIT.EXE C:\AUTOEXEC.BAT"
|
||||
print"COMPLETE"
|
||||
color 0,7
|
||||
print"AUTOEXEC.BAT EDITING SOLVED"
|
||||
color 7,0
|
||||
delay 1
|
||||
goto SYS
|
||||
|
||||
EditCONF:
|
||||
locate 13,1:color 0,7
|
||||
print"EDITING CONFIG.SYS"
|
||||
color 7,0
|
||||
print"Search & Run NCEDIT.EXE ... ";
|
||||
shell"C:\NORTON\NC\NCEDIT.EXE C:\CONFIG.SYS"
|
||||
print"COMPLETE"
|
||||
color 0,7
|
||||
print"CONFIG.SYS EDITING SOLVED"
|
||||
color 7,0
|
||||
delay 1
|
||||
goto SYS
|
||||
|
||||
EditACCE:
|
||||
locate 13,1:color 0,7
|
||||
print"EDITING ACCESS.DAT"
|
||||
color 7,0
|
||||
print"Search & Run NCEDIT.EXE ... ";
|
||||
shell"C:\NORTON\NC\NCEDIT.EXE C:\ACCESS.DAT"
|
||||
print"COMPLETE"
|
||||
color 0,7
|
||||
print"ACCESS.DAT EDITING SOLVED"
|
||||
color 7,0
|
||||
delay 1
|
||||
goto SYS
|
||||
|
||||
INF:
|
||||
cls
|
||||
color 15,0:print"*** MASTER PROGRAM ***"
|
||||
color 31,0:print" INFORMATIONS"
|
||||
color 7:print
|
||||
print"1 - FreeMem on C:"
|
||||
print"2 - ChkDsk of C:"
|
||||
print"3 - Mem"
|
||||
print"4 - Back to Main Menu"
|
||||
print
|
||||
37 locate 9,1:input"Your choose? ",i
|
||||
if i=1 then goto FreeMemC
|
||||
if i=2 then goto ChkDskC
|
||||
if i=3 then goto Mem
|
||||
if i=4 then goto MPR
|
||||
goto 37
|
||||
|
||||
FreeMemC:
|
||||
locate 11,1
|
||||
color 0,7
|
||||
print"EXECING INFO.EXE"
|
||||
color 7,0
|
||||
print"Launching C:\DOS\INFO.EXE ... ";
|
||||
shell"C:\DOS\INFO.EXE"
|
||||
color 0,7
|
||||
locate 25,33:print"LAUNCH COMPLETE";
|
||||
color 7,0
|
||||
delay 3
|
||||
goto INF
|
||||
|
||||
ChkDskC:
|
||||
locate 11,1
|
||||
color 0,7
|
||||
print"EXECING CHKDSK.EXE"
|
||||
color 7,0
|
||||
print"Launching C:\DOS\CHKDSK.EXE ... ";
|
||||
print
|
||||
print
|
||||
print
|
||||
print
|
||||
shell"C:\DOS\chkdsk.EXE"
|
||||
color 0,7
|
||||
locate 25,33:print"LAUNCH COMPLETE"
|
||||
color 7,0
|
||||
delay 7
|
||||
goto INF
|
||||
|
||||
Mem:
|
||||
locate 11,1
|
||||
color 0,7
|
||||
print"EXECING MEM.EXE"
|
||||
color 7,0
|
||||
print"Launching C:\DOS\MEM.EXE ... ";
|
||||
print
|
||||
print
|
||||
print
|
||||
print
|
||||
shell"C:\DOS\MEM.EXE"
|
||||
color 0,7
|
||||
locate 25,33:print"LAUNCH COMPLETE";
|
||||
color 7,0
|
||||
delay 7
|
||||
goto INF
|
||||
25
bootpass/warn
Normal file
25
bootpass/warn
Normal file
@ -0,0 +1,25 @@
|
||||
ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ
|
||||
ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ
|
||||
ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ
|
||||
ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ
|
||||
ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ
|
||||
ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ
|
||||
ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ
|
||||
ﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛﾛ ﾛﾛﾛﾛﾛ ﾛﾛﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ
|
||||
ﾛﾛﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ
|
||||
ﾛﾛﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ
|
||||
ﾛﾛﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ
|
||||
ﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ
|
||||
ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ
|
||||
ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ
|
||||
ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ
|
||||
ﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ ﾛﾛﾛﾛﾛ ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ
|
||||
ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ
|
||||
ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ
|
||||
ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ
|
||||
ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ
|
||||
ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ
|
||||
ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ
|
||||
ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ
|
||||
ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ
|
||||
ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ
|
||||
128
bpm.bas
Normal file
128
bpm.bas
Normal file
@ -0,0 +1,128 @@
|
||||
cls
|
||||
BPMTime=5
|
||||
on timer(BPMTime) GOSUB CalcBPM
|
||||
color 15
|
||||
print"-=ð Beats Per Minute ð=-"
|
||||
print" by RoboCop INDUSTRIES"
|
||||
print
|
||||
print" [1] - Automatik (nicht sicher)"
|
||||
print" [2] - Manuelle Eingabe (";BPMTime;"sek. lang [ 0 ] im Takt dr<64>cken)"
|
||||
print
|
||||
print" [3] - Beenden!"
|
||||
print
|
||||
print"Dr<44>cken Sie die gew<65>nschte Taste"
|
||||
1 a$=inkey$:if a$="" then 1
|
||||
if a$="1" or a$="!" then goto Automatic
|
||||
if a$="2" or a$=chr$(34) then goto Manuell
|
||||
if a$="3" then cls:goto Ende
|
||||
goto 1
|
||||
|
||||
Manuell:
|
||||
cls
|
||||
print"-=ð Beats Per Minute ð=-"
|
||||
print" Manuelle Eingabe"
|
||||
print
|
||||
print"Dr<44>cken Sie jetzt immer im Takt die 0-Taste auf dem Numerischen"
|
||||
print"Tastenfeld. Ab dem ersten Tastendruck beginnt die Z„hlerei";BPMTime;"sek."
|
||||
print"lang."
|
||||
2 a$=inkey$
|
||||
if a$="0" then locate 1,1:print" ":timer on:beats=1:goto 3
|
||||
goto 2
|
||||
3 a$=inkey$
|
||||
if beat=0 then locate 1,1:print" BEAT "; else beat=beat-1
|
||||
if BPS<>0 then goto WaitItAb
|
||||
if a$="0" then locate 1,1:color 12:print"ÛBEATÛ";:beat=1000:beats=beats+1
|
||||
goto 3
|
||||
|
||||
WaitItAb:
|
||||
cls
|
||||
timer off
|
||||
color 15
|
||||
print using"Beats: #####";oldbeats
|
||||
print using"BPS: ###.##";bps
|
||||
print using"BPM: ####.##";bpm
|
||||
print
|
||||
print"Ende mit Tastendruck!"
|
||||
4 a$=inkey$:if a$="" or a$="0" then 4 else Ende
|
||||
|
||||
Automatic:
|
||||
timer on
|
||||
dim check(640)
|
||||
FOR SbPort = &H210 to &H280 STEP &H10
|
||||
OUT SbPort + &H6, 1
|
||||
FOR a = 1 to 10:next
|
||||
OUT SbPort + &H6, 0
|
||||
FOR a = 1 to 100
|
||||
IF INP(SbPort + &HA) = &HAA THEN GOTO SbFound
|
||||
NEXT
|
||||
NEXT
|
||||
PRINT "kein SoundBlaster => Ende..."
|
||||
END
|
||||
|
||||
SbFound:
|
||||
cls
|
||||
locate 1,1
|
||||
color 10:print"SoundBlaster an Adresse ";hex$(SbPort);"h gefunden."
|
||||
color 15:locate 1,1:print" "
|
||||
DO
|
||||
OUT SbPort + &HC, &H20
|
||||
DO:LOOP UNTIL INP(SbPort + &HE) AND 128
|
||||
value=(256-125+(inp(sbport+&HA)-125))/256*480
|
||||
locate 2,1
|
||||
color 15
|
||||
print using "Aussteuerung: ###.##";value
|
||||
if maxvalue<>oldmax then locate 1,8:color 14:print using "Max: ###.#";maxvalue
|
||||
if beats=oldbeats then NoNew=NoNew+1 else NowNew=0
|
||||
oldbeats=beats
|
||||
if NoNew=20 then maxvalue=abs(value)
|
||||
oldmax=maxvalue
|
||||
maxvalue=max(Maxvalue,abs(value))
|
||||
if beat>0 then beat=beat-1:goto SkipIT
|
||||
FaktMax=20
|
||||
if value>maxvalue-(maxvalue/FaktMax) then
|
||||
color 12
|
||||
locate 1,1
|
||||
diff=value-(maxvalue-(maxvalue/FaktMax))
|
||||
BeatStage=0
|
||||
Fakt1=50
|
||||
Fakt2=80
|
||||
Fakt3=100
|
||||
if diff>=0 and diff<=(MAXDIFF/100)*Fakt1 then BeatStage=1
|
||||
if diff>(MAXDIFF/100)*Fakt1 and diff<=(maxdiff/100)*Fakt2 then BeatStage=2
|
||||
if diff>(maxdiff/100)*Fakt2 and diff<=(maxdiff/100)*Fakt3 then BeatStage=3
|
||||
if beats/2=int(beats/2) and BeatStage=1 then print"ßBEATÜ";
|
||||
if beats/2<>int(beats/2) and BeatStage=1 then print"ÜBEATß";
|
||||
if beats/2=int(beats/2) and BeatStage=2 then print"ÞBEATÝ";
|
||||
if beats/2<>int(beats/2) and BeatStage=2 then print"ÝBEATÞ";
|
||||
if BeatStage=3 then print"ÛÛÛÛÛÛ";
|
||||
maxdiff=max(maxdiff,diff)
|
||||
beats=beats+1
|
||||
beat=200
|
||||
else
|
||||
locate 1,1
|
||||
print" ";
|
||||
end if
|
||||
|
||||
SkipIT:
|
||||
a$=inkey$
|
||||
if a$="+" then del=del+.01
|
||||
if a$="-" then del=del-.01:if del<0 then del=0
|
||||
if a$="*" then del=del+.1
|
||||
if a$="/" then del=del-.1:if del<0 then del=0
|
||||
if a$="0" then del=0
|
||||
if a$="1" then del=1
|
||||
LOOP UNTIL a$=chr$(27)
|
||||
Goto Ende
|
||||
|
||||
CalcBPM:
|
||||
BPS=Beats/BPMTime
|
||||
oldbeats=beats
|
||||
Beats=0
|
||||
BPM=BPS*60
|
||||
color 10
|
||||
locate 1,20:print using"BPS: ###.## BPM: ####.##";bps;bpm;
|
||||
return
|
||||
|
||||
Ende:
|
||||
print"Programm beendet."
|
||||
|
||||
56
bpm2.bas
Normal file
56
bpm2.bas
Normal file
@ -0,0 +1,56 @@
|
||||
MainMenu:
|
||||
cls
|
||||
Beats=0
|
||||
InpBeats=10
|
||||
ATime=0:ETime=0
|
||||
BPS=0:BPM=0
|
||||
color 15
|
||||
print"-=ð Beats Per Minute ð=-"
|
||||
print" by RoboCop INDUSTRIES"
|
||||
print
|
||||
print" [RET] - Manuelle Eingabe (";InpBeats;"x [ 0 ] im Takt dr<64>cken)"
|
||||
print
|
||||
print" [ESC] - Beenden!"
|
||||
print
|
||||
print"Dr<44>cken Sie die gew<65>nschte Taste"
|
||||
1 a$=inkey$:if a$="" then 1
|
||||
if a$=chr$(13) then goto Manuell
|
||||
if a$=chr$(27) then cls:goto Ende
|
||||
goto 1
|
||||
|
||||
Manuell:
|
||||
cls
|
||||
print"-=ð Beats Per Minute ð=-"
|
||||
print" Manuelle Eingabe"
|
||||
print
|
||||
print"Dr<44>cken Sie jetzt immer im Takt die 0-Taste auf dem Numerischen"
|
||||
print"Tastenfeld. Ab dem ersten Tastendruck beginnt die Z„hlerei";InpBeats;"Beats"
|
||||
print"lang."
|
||||
2 a$=inkey$
|
||||
if a$="0" then ATime=timer:beats=1:cls:locate 2,1:print"============":locate 4,1:print"BPS: ---.--":print"BPM: ----.--":goto 3
|
||||
goto 2
|
||||
3 a$=inkey$
|
||||
locate 3,1:color 15:print using"Time: ###.## (#####.## to #####.##)";timer-ATime;ATime;timer
|
||||
locate 1,1:print using"Beats: #####";beats
|
||||
if beat=0 then locate 1,15:color 12:print" BEAT "; else beat=beat-1
|
||||
if a$="0" then locate 1,15:color 12:print"ÛBEATÛ";:beat=500:beats=beats+1
|
||||
if beats>=InpBeats then locate 1,15:print" ":ETime=timer:goto WaitItAb
|
||||
goto 3
|
||||
|
||||
WaitItAb:
|
||||
BPS=Beats/(ETime-ATime)
|
||||
BPM=BPS*60
|
||||
color 15
|
||||
locate 1,1
|
||||
print using"Beats: #####";Beats
|
||||
print"============"
|
||||
print using"Time: ###.## (#####.## to #####.##)";ETime-ATime,ATime,ETime
|
||||
print using"BPS: ###.##";BPS
|
||||
print using"BPM: ####.##";BPM
|
||||
print
|
||||
print"Weiter mit Tastendruck!"
|
||||
4 a$=inkey$:if a$="" or a$="0" then 4 else MainMenu
|
||||
|
||||
Ende:
|
||||
print"Programm beendet."
|
||||
|
||||
135
bpm_dl.bas
Normal file
135
bpm_dl.bas
Normal file
@ -0,0 +1,135 @@
|
||||
cls:screen 12
|
||||
BPMTime=3
|
||||
'open "O",#1,"KLATSCH.RAW"
|
||||
timer on
|
||||
dim check(640)
|
||||
FOR SbPort = &H210 to &H280 STEP &H10
|
||||
OUT SbPort + &H6, 1
|
||||
FOR a = 1 to 10:next
|
||||
OUT SbPort + &H6, 0
|
||||
FOR a = 1 to 100
|
||||
IF INP(SbPort + &HA) = &HAA THEN GOTO SbFound
|
||||
NEXT
|
||||
NEXT
|
||||
PRINT "kein SoundBlaster => Ende..."
|
||||
END
|
||||
|
||||
SbFound:
|
||||
on timer(BPMTime) GOSUB CalcBPM
|
||||
locate 1,1
|
||||
color 10:print"SoundBlaster an Adresse ";hex$(SbPort);"h gefunden."
|
||||
color 15:locate 1,1:print" "
|
||||
DO
|
||||
OUT SbPort + &HC, &H20
|
||||
DO:LOOP UNTIL INP(SbPort + &HE) AND 128
|
||||
'locate 2,1:print Wert;"/";inp(sbport+&HA)
|
||||
'gosub ShowLEV
|
||||
if minus=0 then strecke=strecke+1
|
||||
if minus=1 then strecke=strecke-1
|
||||
if strecke>639 then minus=1
|
||||
if strecke<1 then minus=0
|
||||
value=(256-125+(inp(sbport+&HA)-125))/256*480
|
||||
'locate 2,1:print value;
|
||||
pset (strecke,check(strecke)),0
|
||||
if value>190 or value<290 then col=10
|
||||
if (value>155 and value<190) or (value >290 and value <325) then col=14
|
||||
if value<155 or value>325 then col=12
|
||||
col=15
|
||||
if minus=0 then ls=strecke+1 else ls=strecke-1
|
||||
' ÚÄ y1
|
||||
line (ls,13)-(ls,480),0 'Wer mit der MAX-Anzeige arbeitet sollte y1 auf 13 setzen
|
||||
pset (veryolds,veryoldv),8
|
||||
pset (olds,oldv),7 'Diese Zeile sollte ungeREMt bleiben
|
||||
if maxvalue<>oldmax then locate 1,8:color 14:print using "Max: ###.#";maxvalue
|
||||
if beats<>oldbeats then NoNew=0 else NoNew=NoNew+1
|
||||
oldbeats=beats
|
||||
oldmax=maxvalue 'alles mit einem 'max' in der Variablen geh”rt zur Maxerkennung
|
||||
if NoNew>=750 then maxvalue=value
|
||||
if strecke=1 then pset(0,240),0
|
||||
pset (strecke,value),col 'Wer aus 'line -' ein 'pset ' macht, und alle anderen REMs entfernt, hat auch einen coolen FX
|
||||
' line (strecke,1)-(strecke,5),12
|
||||
line (strecke,479)-(strecke,475),12
|
||||
if minus=0 then ps=strecke-1 else ps=strecke+1
|
||||
' line (ps,1)-(ps,5),4
|
||||
line (ps,479)-(ps,475),4
|
||||
if minus=0 then ps2=ps-1 else ps2=ps+1
|
||||
' line (ps2,2)-(ps2,5),0
|
||||
line (ps2,478)-(ps2,475),0
|
||||
maxvalue=max(Maxvalue,abs(value))
|
||||
if beat>0 then beat=beat-1:goto SkipIT
|
||||
FaktMax=7
|
||||
if value>=maxvalue-(maxvalue/FaktMax) then
|
||||
color 12
|
||||
locate 1,1
|
||||
diff=value-(maxvalue-(maxvalue/FaktMax))
|
||||
BeatStage=0
|
||||
Fakt1=50
|
||||
Fakt2=80
|
||||
Fakt3=100
|
||||
if diff>=0 and diff<=(MAXDIFF/100)*Fakt1 then BeatStage=1
|
||||
if diff>(MAXDIFF/100)*Fakt1 and diff<=(maxdiff/100)*Fakt2 then BeatStage=2
|
||||
if diff>(maxdiff/100)*Fakt2 and diff<=(maxdiff/100)*Fakt3 then BeatStage=3
|
||||
if beats/2=int(beats/2) and BeatStage=1 then print"ßBEATÜ";
|
||||
if beats/2<>int(beats/2) and BeatStage=1 then print"ÜBEATß";
|
||||
if beats/2=int(beats/2) and BeatStage=2 then print"ÞBEATÝ";
|
||||
if beats/2<>int(beats/2) and BeatStage=2 then print"ÝBEATÞ";
|
||||
if BeatStage=3 then print"ÛÛÛÛÛÛ";
|
||||
maxdiff=max(maxdiff,diff)
|
||||
beats=beats+1
|
||||
beat=50
|
||||
else
|
||||
locate 1,1
|
||||
print" ";
|
||||
end if
|
||||
SkipIT:
|
||||
veryolds=olds
|
||||
veryoldv=oldv
|
||||
olds=strecke 'Wenn man die beiden oldx's REMt erh„lt man einen recht
|
||||
oldv=value 'lustigen Effekt!!!
|
||||
delay del
|
||||
check(strecke)=value
|
||||
'print#1,chr$(inp(sbport+&HA));
|
||||
a$=inkey$
|
||||
if a$="+" then del=del+.01
|
||||
if a$="-" then del=del-.01:if del<0 then del=0
|
||||
if a$="*" then del=del+.1
|
||||
if a$="/" then del=del-.1:if del<0 then del=0
|
||||
if a$="0" then del=0
|
||||
if a$="1" then del=1
|
||||
LOOP UNTIL a$=chr$(27)
|
||||
Goto Ende
|
||||
|
||||
CalcBPM:
|
||||
BPS=Beats/BPMTime
|
||||
Beats=0
|
||||
BPM=BPS*60
|
||||
color 10
|
||||
locate 1,20:print using"BPS: ###.## BPM: ####.##";bps;bpm;
|
||||
return
|
||||
|
||||
ShowLEV:
|
||||
y=3
|
||||
Zeichen=176
|
||||
Einheit=256/80
|
||||
Wert=inp(sbport+&HA)
|
||||
Einheiten=round(Wert/Einheit,0)
|
||||
for x=1 to 80
|
||||
locate y,x:if x<=Einheiten then
|
||||
if x>=0 and x<=45 then color 10
|
||||
if x>45 and x<=70 then color 14
|
||||
if x>70 and x<=80 then color 12
|
||||
else
|
||||
if x>=0 and x<=45 then color 2
|
||||
if x>45 and x<=70 then color 6
|
||||
if x>70 and x<=80 then color 4
|
||||
end if
|
||||
print chr$(Zeichen);
|
||||
locate y+1,x
|
||||
print chr$(Zeichen);
|
||||
next x
|
||||
return
|
||||
|
||||
Ende:
|
||||
screen 0:width 80
|
||||
print"Programm beendet."
|
||||
|
||||
131
bpm_dlux.bas
Normal file
131
bpm_dlux.bas
Normal file
@ -0,0 +1,131 @@
|
||||
cls:screen 12
|
||||
BPMTime=5
|
||||
'open "O",#1,"KLATSCH.RAW"
|
||||
timer on
|
||||
dim check(640)
|
||||
FOR SbPort = &H210 to &H280 STEP &H10
|
||||
OUT SbPort + &H6, 1
|
||||
FOR a = 1 to 10:next
|
||||
OUT SbPort + &H6, 0
|
||||
FOR a = 1 to 100
|
||||
IF INP(SbPort + &HA) = &HAA THEN GOTO SbFound
|
||||
NEXT
|
||||
NEXT
|
||||
PRINT "kein SoundBlaster => Ende..."
|
||||
END
|
||||
|
||||
SbFound:
|
||||
OuterString$="Scanne Eingangssignal...":OuterCol=15
|
||||
OS=1
|
||||
on timer(BPMTime) GOSUB CalcBPM
|
||||
locate 1,1
|
||||
color 10:print"SoundBlaster an Adresse ";hex$(SbPort);"h gefunden."
|
||||
color 15:locate 1,1:print" "
|
||||
DO
|
||||
'######
|
||||
' if ScrollIt/30=int(ScrollIt/30) then ScrollIt=ScrollIt+1 else ScrollIt=ScrollIt+1:goto SkipText
|
||||
' OuterS$=SPACE$(40)+OuterString$
|
||||
' Outer$=mid$(OuterS$,OS,40)
|
||||
' locate 30,20:color OuterCol:print using"\ \";Outer$;
|
||||
' OS=OS+1
|
||||
' if len(Outer$)<=0 then OS=1
|
||||
'######
|
||||
|
||||
SkipText:
|
||||
OUT SbPort + &HC, &H20
|
||||
DO:LOOP UNTIL INP(SbPort + &HE) AND 128
|
||||
strecke=strecke+1
|
||||
if strecke>639 then strecke=1
|
||||
value=(256-125+(inp(sbport+&HA)-125))/256*465
|
||||
'######
|
||||
' if int(value)=245 and OS<=1 then OuterCol=12:OuterString$="Kein Signal!"
|
||||
' if int(value)<>245 and OS<=1 then OuterCol=15:OuterString$="Scanne Eingangssignal..."
|
||||
'######
|
||||
' pset (strecke,check(strecke)),0
|
||||
if value>190 or value<290 then col=10
|
||||
if (value>155 and value<190) or (value >290 and value <325) then col=14
|
||||
if value<155 or value>325 then col=12
|
||||
' col=15
|
||||
ls=strecke+1
|
||||
' Ú468 bzw. 480
|
||||
line (ls,12)-(ls,474),0
|
||||
pset (olds,oldv),0 'Diese Zeile sollte ungeREMt bleiben
|
||||
if maxvalue=oldmax and refresha>=100 then refresha=0:locate 1,58:print" "; else refresha=refresha+1
|
||||
if maxvalue<>oldmax then locate 1,9:color 14:print using "Max: ###.# Min: ###.#";maxvalue;maxvalue-(maxvalue/FaktMax);:locate 1,58:color 14:print"ðADJUSTð";
|
||||
if oldlm<>lockmax then
|
||||
locate 1,68:color 14
|
||||
if lockmax=1 then print "-=ðLOCKEDð=-"; else print " ";
|
||||
end if
|
||||
if beats<>oldbeats then NoNew=0 else NoNew=NoNew+1
|
||||
oldmax=maxvalue 'alles mit einem 'max' in der Variablen geh”rt zur Maxerkennung
|
||||
oldbeats=beats
|
||||
if NoNew>=750 and lockmax=0 then nmaxvalue=value
|
||||
if strecke=1 then pset(0,240),0
|
||||
line -(strecke,value),col 'Wer aus 'line -' ein 'pset ' macht, und alle anderen REMs entfernt, hat auch einen coolen FX
|
||||
if lockmax=0 and nmaxvalue=maxvalue then nmaxvalue=max(Maxvalue,abs(value))
|
||||
if nmaxvalue<maxvalue then maxvalue=maxvalue-1
|
||||
if nmaxvalue>maxvalue then maxvalue=maxvalue+1
|
||||
if abs(nmaxvalue-maxvalue)<1 then maxvalue=nmaxvalue
|
||||
'######
|
||||
' if maxvalue<>oldmc then
|
||||
' line (oldmc,475)-(oldmc,480),0
|
||||
' oldmc=maxvalue
|
||||
' line (maxvalue,475)-(maxvalue,480),15
|
||||
' end if
|
||||
'######
|
||||
if beat>0 then beat=beat-1:goto SkipIT
|
||||
FaktMax=7
|
||||
if value>=maxvalue-(maxvalue/FaktMax) then
|
||||
color 12
|
||||
locate 1,1
|
||||
diff=value-(maxvalue-(maxvalue/FaktMax))
|
||||
BeatStage=0
|
||||
Fakt1=60
|
||||
Fakt2=90
|
||||
Fakt3=100
|
||||
if diff>=0 and diff<=(MAXDIFF/100)*Fakt1 then BeatStage=1
|
||||
if diff>(MAXDIFF/100)*Fakt1 and diff<=(maxdiff/100)*Fakt2 then BeatStage=2
|
||||
if diff>(maxdiff/100)*Fakt2 and diff<=(maxdiff/100)*Fakt3 then BeatStage=3
|
||||
if beats/2=int(beats/2) and BeatStage=1 then print"ÜBEATÜ";
|
||||
if beats/2<>int(beats/2) and BeatStage=1 then print"ßBEATß";
|
||||
if beats/2=int(beats/2) and BeatStage=2 then print"ÞBEATÝ";
|
||||
if beats/2<>int(beats/2) and BeatStage=2 then print"ÝBEATÞ";
|
||||
if BeatStage=3 then print"ÛÛÛÛÛÛ";
|
||||
maxdiff=max(maxdiff,diff)
|
||||
beats=beats+1
|
||||
beat=50
|
||||
else
|
||||
locate 1,1
|
||||
print" ";
|
||||
end if
|
||||
|
||||
SkipIT:
|
||||
olds=strecke 'Wenn man die beiden oldx's REMt erh„lt man einen recht
|
||||
oldv=value 'lustigen Effekt!!!
|
||||
delay del
|
||||
check(strecke)=value
|
||||
oldlm=lockmax
|
||||
lpress=0
|
||||
a$=inkey$
|
||||
if a$=" " then nmaxvalue=value
|
||||
if a$="+" then nmaxvalue=maxvalue+1
|
||||
if a$="-" then nmaxvalue=maxvalue-1
|
||||
if a$="*" then nmaxvalue=maxvalue+10
|
||||
if a$="/" then nmaxvalue=maxvalue-10
|
||||
if (a$="l" or a$="L") and lockmax=0 and lpress=0 then lockmax=1:lpress=1 else lpress=0
|
||||
if (a$="l" or a$="L") and lockmax=1 and lpress=0 then lockmax=0:lpress=1 else lpress=0
|
||||
LOOP UNTIL a$=chr$(27)
|
||||
Goto Ende
|
||||
|
||||
CalcBPM:
|
||||
BPS=Beats/BPMTime
|
||||
Beats=0
|
||||
BPM=BPS*60
|
||||
color 10
|
||||
locate 1,33:print using"BPS: ##.## BPM: ###.## ";bps;bpm;
|
||||
return
|
||||
|
||||
Ende:
|
||||
screen 0:width 80
|
||||
print"Programm beendet."
|
||||
|
||||
61
bruch.bas
Normal file
61
bruch.bas
Normal file
@ -0,0 +1,61 @@
|
||||
10 DIM TIR(100)
|
||||
20 STP=50
|
||||
30 CLS
|
||||
40 COLOR 15
|
||||
50 LOCATE 1,31:PRINT"K<>rzen von Br<42>chen"
|
||||
60 KEY OFF:LOCATE 25,1:PRINT"Z„hler eingeben";
|
||||
70 LOCATE 3,1:INPUT"",ZHL
|
||||
80 IF ZHL=INT(ZHL) THEN 90 ELSE GOTO 70
|
||||
90 LOCATE 25,1:PRINT"Nenner eingeben";
|
||||
100 LOCATE 5,1:INPUT"",NENN
|
||||
110 IF NENN=INT(NENN) THEN 120 ELSE GOTO 100
|
||||
120 IF NENN<>0 THEN GOTO 130 ELSE GOTO 100
|
||||
130 IF LEN(STR$(ZHL))>LEN(STR$(NENN)) THEN Y=LEN(STR$(ZHL)) ELSE Y=LEN(STR$(NENN))
|
||||
140 LOCATE 4,1:FOR Z=1 TO Y-1:PRINT"Ä";:NEXT Z
|
||||
150 MINU=VAL(MID$(TIME$,4,2)):SEC=VAL(RIGHT$(TIME$,2)):TI=MINU+(SEC/100)/.6
|
||||
160 LOCATE 25,1:COLOR 31:PRINT"Berechne... ";:COLOR 15
|
||||
170 LOCATE 24,13:PRINT"X % Zeit Maximal 0% 50% 100%";:COLOR 8
|
||||
180 LOCATE 25,38:PRINT"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ";:COLOR 15
|
||||
190 IF ZHL<NENN THEN MX=NENN:MINI=ZHL ELSE MX=ZHL:MINI=NENN
|
||||
200 FOR X=1 TO MINI
|
||||
210 QUOT=X*MX/MINI
|
||||
220 PROZ=X/MINI
|
||||
230 MIND=VAL(MID$(TIME$,4,2)):SECD=VAL(RIGHT$(TIME$,2)):TID=MIND+(SECD/100)/.6
|
||||
240 TIDIFF=TID-TI:MN=INT(TIDIFF):SC=(TIDIFF-MN)*100*.6
|
||||
250 NOW=NOW+1
|
||||
260 TIR(NOW)=TIDIFF/PROZ
|
||||
270 IF NOW=STP THEN NOW=0 ELSE GOTO 320
|
||||
280 FOR NUMM=1 TO STP
|
||||
290 TIR=TIR+TIR(NUMM)
|
||||
300 NEXT NUMM
|
||||
305 TIR=TIR/STP
|
||||
310 BM=INT(TIR):BS=((TIR)-BM)*100*.6
|
||||
320 LOCATE 25,23:PRINT USING"##:## ##:##";MN;SC;BM;BS;
|
||||
330 GOSUB 470
|
||||
340 LOCATE 25,12:PRINT X;
|
||||
350 LOCATE 25,18:PRINT INT(PROZ*100);
|
||||
360 IF QUOT=INT(QUOT) THEN 380
|
||||
370 NEXT X
|
||||
380 GGT=MiNi/X
|
||||
390 LOCATE 7,1:PRINT"gek<65>rzter Bruch:"
|
||||
395 alpha=zhl/ggt
|
||||
400 LOCATE 9,1:PRINT alpha
|
||||
410 LOCATE 11,1:PRINT NENN/GGT
|
||||
420 IF LEN(STR$(ZHL/GGT))>LEN(STR$(NENN/GGT)) THEN Y=LEN(STR$(ZHL/GGT)) ELSE Y=LEN(STR$(NENN/GGT))
|
||||
430 LOCATE 10,2:FOR Z=1 TO Y-1:PRINT"Ä";:NEXT Z
|
||||
440 LOCATE 25,1:COLOR 15:PRINT"Fertig! ";
|
||||
450 LOCATE 13,1
|
||||
460 END
|
||||
470 PLUS=INT(PROZ/.025)
|
||||
480 ZEI=INT(PROZ/.0125)
|
||||
490 LOCATE 25,38+PLUS
|
||||
500 IF PLUS<=19 THEN W=10
|
||||
510 IF PLUS>19 AND PLUS<=32 THEN W=14
|
||||
520 IF PLUS>32 THEN W=12
|
||||
530 COLOR W
|
||||
540 IF ZEI/2=INT(ZEI/2) THEN ZEI$="Ý" ELSE ZEI$="Û"
|
||||
550 IF PROZ=1 THEN ZEI$=" "
|
||||
560 PRINT ZEI$;
|
||||
570 COLOR 15
|
||||
580 RETURN
|
||||
|
||||
122
chem_dia/chem_dia.bas
Normal file
122
chem_dia/chem_dia.bas
Normal file
@ -0,0 +1,122 @@
|
||||
shell"savefont >chem_dia.ft_"
|
||||
shell"loadfont <chem_dia.fnt"
|
||||
color 0,1:cls
|
||||
gosub PrintCover
|
||||
for z=1 to 75
|
||||
a=int(rnd*15)+1
|
||||
color a,1
|
||||
gosub PrintChem
|
||||
delay .03
|
||||
a=int(rnd*15)+1
|
||||
color a,1
|
||||
gosub PrintDia
|
||||
delay .03
|
||||
next z
|
||||
color 15,1:gosub PrintDia:gosub PrintChem
|
||||
play "MFO2L4T255CDGP20GGFP20FFEGDC"
|
||||
color 0,1:cls
|
||||
gosub PrintCover
|
||||
color 15,1
|
||||
locate 3,1
|
||||
print" Dieses Programm erstellt an Hand der Ordnungszahl, Periode und Hauptgruppe"
|
||||
print" die in dem Fach Chemie h„ufig verwendeten Schalen-Diagramme. Ein Schalendiagr."
|
||||
print" sieht in etwa folgendermaáen aus:"
|
||||
print
|
||||
print" ¯ ";:color 11:print" Die Zahlen 1-3 sind die Schalen, Al ist der":color 15
|
||||
print" ÃÝÝÝÄÄÄÄÄ 3";:color 11:print" Stoff (Alu), 13 ist die Ordnungszahl, die Ý":color 15
|
||||
print" ÃÄÄÄÄ8ÄÄÄ 2";:color 11:print" sind die Ionen und die 2 bzw. 8 sind die":color 15
|
||||
print" ÀÄÄÄÄ2ÄÄÄ 1";:color 11:print" Anzahl der Ý auf der Schale, da nur die":color 15
|
||||
print" ‚‡Al";:color 11:print" „uáerste Schale interressant ist.":color 15
|
||||
print" ƒˆ"
|
||||
print" Auf die Schalen kann maximal nur eine bestimmte Anzahl von Ionen,"
|
||||
print" die aus der nachfolgenden Tabelle ersichtlich ist."
|
||||
print
|
||||
print" Schale: 1 2 3 4 5 6 7"
|
||||
print" Ionen: 2 8 18 32 50 72 98"
|
||||
locate 25,49
|
||||
color 0,3:print"Bitte dr<64>cken Sie eine Taste...";
|
||||
1 a$=inkey$:if a$="" then 1
|
||||
color 0,1
|
||||
cls
|
||||
gosub PrintCover
|
||||
color 15,1:locate 7,1
|
||||
print" ¯"
|
||||
print" ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ 7"
|
||||
print" ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ 6"
|
||||
print" ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ 5"
|
||||
print" ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ 4"
|
||||
print" ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ 3"
|
||||
print" ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ 2"
|
||||
print" ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ 1"
|
||||
color 14,1
|
||||
2 locate 3,2:input"Ordnungszahl : ",ordn
|
||||
if ordn<1 or ordn>109 then 2
|
||||
gosub SearchElement
|
||||
locate 15,15:print ele$
|
||||
3 locate 4,2:input"Periode : ",peri
|
||||
if peri<1 or peri>7 then 3
|
||||
4 locate 5,2:input"Gruppe (H/N+Zahl) : ",grup$
|
||||
lgr$=left$(grup$,1)
|
||||
if lgr$="H" or lgr$="h" or lgr$="N" or lgr$="n" then else 4
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
shell"loadfont <chem_dia.ft_"
|
||||
shell"ECHO Diese Datei wurde physikalisch gel”scht !!! >ZERO.DAT"
|
||||
shell"ECHO indem sie mit diesem Text <20>berschrieben und DANN gel”scht wurde >>ZERO.DAT"
|
||||
shell"move ZERO.DAT chem_dia.ft_ >NUL"
|
||||
shell"del chem_dia.ft_ >NUL"
|
||||
end
|
||||
|
||||
PrintCover:
|
||||
locate 1,1
|
||||
color 0,3:print" Chemie-Diagramm written by RoboCop INDUSTRIES "
|
||||
locate 25,1
|
||||
print" (C)1995 by RoboCop INDUSTRIES ";
|
||||
return
|
||||
|
||||
PrintChem:
|
||||
locate 2,1
|
||||
print" ÚÄÄÄÄÄÄÄÄÄÄÄ¿ ÚÄÄ¿ ÚÄÄ¿ ÚÄÄÄÄÄÄÄÄ¿ ÚÄÄÄÄÄÄ¿ ÚÄÄÄÄÄÄ¿"
|
||||
print" ³ º ³ º ³ º ³ º ³ È» ÚÙ º"
|
||||
print" ³ ÉÍÍÍÍÍͼ ³ º ³ º ³ ÉÍÍÍͼ ³ È» ÚÙ º"
|
||||
print" ³ º ³ º ³ º ³ º ³ È» ÚÙ º"
|
||||
print" ³ º ³ ÈÍÄÙ º ³ ÈÍÄÄ¿ ³ ÈÍÄÙ º"
|
||||
print" ³ º ³ º ³ º ³ É» É» º"
|
||||
print" ³ º ³ ÉÍÍ» º ³ ÉÍÍͼ ³ ºÀ¿ ɼº º"
|
||||
print" ³ º ³ º ³ º ³ º ³ º À¿ ɼ ³ º"
|
||||
print" ³ ÈÄÄÄÄÄÄ¿ ³ º ³ º ³ ÈÄÄÄÄ¿ ³ º À¿ ɼ ³ º"
|
||||
print" ³ º ³ º ³ º ³ º ³ º À¿ ɼ ³ º"
|
||||
print" ÀÍÍÍÍÍÍÍÍÍÍͼ ÀÍͼ ÀÍͼ ÀÍÍÍÍÍÍÍͼ ÀÍÍÍͼ ÀÍͼ ÀÍÍÍͼ";
|
||||
return
|
||||
|
||||
PrintDia:
|
||||
locate 14,1
|
||||
print" ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
|
||||
print" ³ º ³ º ³ ÉÍÍÍÍÍÍ» º"
|
||||
print" ³ ÉÍÍÍÍÍÍÍ» º ³ º ³ º ³ º"
|
||||
print" ³ º ³ º ³ º ³ º ³ º"
|
||||
print" ³ º ³ º ³ º ³ º ³ º"
|
||||
print" ³ º ³ º ³ º ³ ÈÄÄÄÄÄÄÙ º"
|
||||
print" ³ º ³ º ³ º ³ ÉÍÍÍÍÍÍ» º"
|
||||
print" ³ º ³ º ³ º ³ º ³ º"
|
||||
print" ³ ÈÄÄÄÄÄÄÄÙ º ³ º ³ º ³ º"
|
||||
print" ³ º ³ º ³ º ³ º"
|
||||
print" ÀÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ ÀÍÍÍÍÍÍÍÍÍͼ ÀÍÍÍÍÍÍÍͼ ÀÍÍÍÍÍÍÍͼ";
|
||||
return
|
||||
|
||||
SearchElement:
|
||||
5 read b,ele$,bez$,zust$,eneg,atu,s(1),s(2),s(3),s(4),s(5),s(6),s(7)
|
||||
if b=ordn then return
|
||||
if b=0 and b$="XXX" then restore
|
||||
goto 5
|
||||
data 1,H,Wasserstoff,gasf”rmig,2.1,1.008,1,0,0,0,0,0,0
|
||||
data 2,He,Helium,gasf”rmig,,4,2,0,0,0,0,0,0
|
||||
data 3,Li,Lithium,fest,1,6.94,2,1,0,0,0,0,0
|
||||
data 4,Be,Beryllium,fest,1.5,9.01,2,2,0,0,0,0,0
|
||||
data 5,B,Bor,2,10.81,2,3,0,0,0,0,0
|
||||
data 6,C,Kohlenstoff,2.5,12.01,2,4,0,0,0,0,0
|
||||
4354
chem_dia/chem_dia.fnt
Normal file
4354
chem_dia/chem_dia.fnt
Normal file
File diff suppressed because it is too large
Load Diff
4354
chem_dia/chem_dia.ft_
Normal file
4354
chem_dia/chem_dia.ft_
Normal file
File diff suppressed because it is too large
Load Diff
BIN
chem_dia/loadfont.com
Normal file
BIN
chem_dia/loadfont.com
Normal file
Binary file not shown.
BIN
chem_dia/savefont.com
Normal file
BIN
chem_dia/savefont.com
Normal file
Binary file not shown.
85
chngdfv.bas
Normal file
85
chngdfv.bas
Normal file
@ -0,0 +1,85 @@
|
||||
color 15
|
||||
print"Dark Forces Voice Name Changer (DFVNC) v1.00"
|
||||
print" written by RoboCop INDUSTRIES"
|
||||
color 7
|
||||
PARA$=COMMAND$
|
||||
IF PARA$="+4933223198 NUM2NAM" THEN GOTO NumbersToNames
|
||||
IF PARA$="+4933223198 NAM2NUM" THEN GOTO NamesToNumbers
|
||||
GOTO Syntax
|
||||
|
||||
NumbersToNames:
|
||||
print"Gew„hlte Funktion: ";:color 14:print"Nummer ==> Name"
|
||||
color 7
|
||||
OPEN "I",#1,"NAMES.LST"
|
||||
OPEN "O",#2,"DFVNC.LOG"
|
||||
on error goto FEHLER
|
||||
PRINT#2,"þ LOG-Datei vom Dark Forces Voice Name Changer v1.00"
|
||||
print#2,"þ von RoboCop INDUSTRIES"
|
||||
print#2,"þ"
|
||||
print#2,"þ Gew„hlte Funktion: NUM2NAM"
|
||||
print#2,"---------------------------------------------------"
|
||||
X=1
|
||||
1 line input#1,FIL$
|
||||
x$=str$(x)+".VOC"
|
||||
print"Benenne ";x$;" in ";FIL$;" um ... ";
|
||||
print#2,X$;" ===> ";FIL$;" ... ";
|
||||
name x$ as fil$
|
||||
print "OK"
|
||||
print#2,"OK"
|
||||
x=x+1
|
||||
if eof(1) then
|
||||
print#2,"þ <EOLF - End Of List File >"
|
||||
goto Ende
|
||||
end if
|
||||
goto 1
|
||||
|
||||
NamesToNumbers:
|
||||
print"Gew„hlte Funktion: ";:color 14:print"Name ==> Nummer"
|
||||
color 7
|
||||
OPEN "I",#1,"NAMES.LST"
|
||||
OPEN "O",#2,"DFVNC.LOG"
|
||||
ON ERROR GOTO FEHLER
|
||||
PRINT#2,"þ LOG-Datei vom Dark Forces Voice Name Changer v1.00"
|
||||
print#2,"þ von RoboCop INDUSTRIES"
|
||||
print#2,"þ"
|
||||
print#2,"þ Gew„hlte Funktion: NAM2NUM"
|
||||
print#2,"---------------------------------------------------"
|
||||
X=1
|
||||
2 line input#1,FIL$
|
||||
x$=str$(x)+".VOC"
|
||||
print"Benenne ";FIL$;" in ";X$;" um ... ";
|
||||
print#2,FIL$;" ===> ";X$;" ... ";
|
||||
name fil$ as x$
|
||||
print "OK"
|
||||
print#2,"OK"
|
||||
x=x+1
|
||||
if eof(1) then
|
||||
print#2,"þ <EOLF - End Of List File >"
|
||||
goto Ende
|
||||
end if
|
||||
goto 2
|
||||
|
||||
FEHLER:
|
||||
print#2,"====================================================="
|
||||
PRINT#2,"þ !!!WARNUNG!!!"
|
||||
print#2,"þ Ein unbekannter Fehler ist aufgetreten! Vielleicht"
|
||||
print#2,"þ haben Sie die FALSCHE FUNKTION gew„hlt. Wenn es das"
|
||||
print#2,"þ nicht war, k”nnen wir Ihnen auch nicht helfen."
|
||||
print#2,"====================================================="
|
||||
|
||||
Syntax:
|
||||
print
|
||||
print"Syntax: DFVNC [Serialnummer] [Funktion]
|
||||
print
|
||||
print" Serialnummer - Ihre Serialnummer"
|
||||
print" Funktion - gew<65>nschte Funktion:"
|
||||
print" NUM2NAM - Nummern zu Namen"
|
||||
print" (z.B.: 1.VOC => DOOR2-1.VOC, ...)"
|
||||
print" NAM2NUM - Namen zu Nummern"
|
||||
print" (z.B.: DOOR2-2.VOC => 2.VOC, ...)"
|
||||
print
|
||||
goto Ende
|
||||
|
||||
Ende:
|
||||
print#2,"þ Programm beendet."
|
||||
|
||||
18
cit_095.bas
Normal file
18
cit_095.bas
Normal file
@ -0,0 +1,18 @@
|
||||
WIDTH "LPT1:",255
|
||||
lprint chr$(27);"1"
|
||||
for n=1 to 20
|
||||
read x
|
||||
flag$=flag$+chr$(x)
|
||||
next
|
||||
lprint chr$(27);"K";chr$(20);chr$(0);flag$
|
||||
flag$=""
|
||||
for n=1 to 20
|
||||
read x
|
||||
flag$=flag$+chr$(x)
|
||||
next
|
||||
lprint chr$(27);"K";chr$(20);chr$(0);flag$
|
||||
data 85,42,85,42,85,42,85,42,85,42
|
||||
data 85,85,85,85,85,85,85,85,85,85
|
||||
data 42,42,42,42,42,42,42,42,42,42
|
||||
data 42,42,42,42,42,42,42,42,42,42
|
||||
|
||||
104
cit_100.bas
Normal file
104
cit_100.bas
Normal file
@ -0,0 +1,104 @@
|
||||
dim matrix(15,15):lx=1:ly=1
|
||||
dim wert(15)
|
||||
dim wert$(15)
|
||||
for x=1 to 11
|
||||
for y=1 to 9
|
||||
matrix(x,y)=0
|
||||
next y
|
||||
next x
|
||||
cls:screen 12:color 15
|
||||
print"ððð CITIZEN 120D ððð"
|
||||
print
|
||||
gosub ShowIt
|
||||
2 locate lx+2,ly
|
||||
if matrix(ly,lx)=0 then color 30:print"þ" else color 26:print"±"
|
||||
color 15
|
||||
1 a$=inkey$:if a$="" then 1
|
||||
if mid$(a$,2,1)="P" and lx<9 then lx=lx+1:gosub ShowIt:goto 2
|
||||
if mid$(a$,2,1)="H" and lx>1 then lx=lx-1:gosub ShowIt:goto 2
|
||||
if mid$(a$,2,1)="K" and ly>1 then ly=ly-1:gosub ShowIt:goto 2
|
||||
if mid$(a$,2,1)="M" and ly<11 then ly=ly+1:gosub ShowIt:goto 2
|
||||
if a$=" " and matrix(ly,lx)=0 then matrix(ly,lx)=1:gosub ShowIt:goto 2
|
||||
if a$=" " and matrix(ly,lx)=1 then matrix(ly,lx)=0:gosub ShowIt:goto 2
|
||||
if a$=chr$(27) then goto Fertig
|
||||
goto 1
|
||||
|
||||
ShowIt:
|
||||
for x=1 to 11
|
||||
for y=1 to 9
|
||||
locate y+2,x
|
||||
if matrix(x,y)=1 then color 15:print"Û"
|
||||
if matrix(x,y)=0 then color 8:print"ú"
|
||||
next y
|
||||
next x
|
||||
return
|
||||
|
||||
Fertig:
|
||||
for x=1 to 11
|
||||
for y=1 to 9
|
||||
locate y+2,x
|
||||
if matrix(x,y)=1 then color 15:print"Û"
|
||||
if matrix(x,y)=0 then color 8:print"ú"
|
||||
next y
|
||||
next x
|
||||
for x=1 to 11
|
||||
for y=1 to 9
|
||||
if y=1 and matrix(x,y)=1 then wert=wert+128
|
||||
if y=2 and matrix(x,y)=1 then wert=wert+64
|
||||
if y=3 and matrix(x,y)=1 then wert=wert+32
|
||||
if y=4 and matrix(x,y)=1 then wert=wert+16
|
||||
if y=5 and matrix(x,y)=1 then wert=wert+8
|
||||
if y=6 and matrix(x,y)=1 then wert=wert+4
|
||||
if y=7 and matrix(x,y)=1 then wert=wert+2
|
||||
if y=8 and matrix(x,y)=1 then wert=wert+1
|
||||
if y=9 and matrix(x,y)=1 then wert=wert+0
|
||||
next y
|
||||
wert(x)=wert
|
||||
wert=0
|
||||
next x
|
||||
for x=1 to 11
|
||||
wert$(x)=using$("###",wert(x))
|
||||
next x:color 10
|
||||
for x=1 to 11
|
||||
for y=12 to 14
|
||||
locate y,x
|
||||
print mid$(wert$(x),y-11,1);
|
||||
next y
|
||||
locate 15,x:color 11:print chr$(wert(x));:color 10
|
||||
next x
|
||||
for x=1 to 11
|
||||
for y=1 to 9
|
||||
if matrix(x,y)=1 then pset (x+150,y+45),15
|
||||
next y
|
||||
next x
|
||||
5 locate 17,1:input"ASCII-Code: ",asci
|
||||
if asci<32 or asci>126 then 5
|
||||
locate 17,20:print"Altes Zeichen: ";chr$(asci)
|
||||
6 locate 18,1:input"Stimmt das (Ja/Nein/Anderer ASCII-Code)? ",YN$
|
||||
if yn$="j" or yn$="J" then goto JaStimmt
|
||||
if yn$="n" or yn$="N" then goto 2
|
||||
if yn$="a" or yn$="A" then goto 5
|
||||
goto 6
|
||||
JaStimmt:
|
||||
color 10
|
||||
print"Sende Daten ... ";
|
||||
lprint chr$(27);":";chr$(0);chr$(0);chr$(0);
|
||||
lprint chr$(27);"=";chr$(15);chr$(0);chr$(20);chr$(asci);chr$(0);chr$(0);
|
||||
for x=1 to 11
|
||||
lprint chr$(wert(x));
|
||||
next x
|
||||
lprint
|
||||
lprint chr$(27);"I";chr$(4);
|
||||
lprint "ððð CITIZEN 120D ððð ";
|
||||
lprint "Neues Zeichen: ";chr$(asci)
|
||||
print "OK"
|
||||
7 locate 20,1:print"Noch ein Zeichen programmieren (J/N)? ",YN$
|
||||
if YN$="j" or YN$="J" then run
|
||||
if YN$="n" or YN$="N" then goto Ende
|
||||
goto 7
|
||||
|
||||
Ende:
|
||||
screen 0,0,0:color 15:print"ððð CITIZEN 120D ððð was written by RoboCop INDUSTRIES"
|
||||
print
|
||||
end
|
||||
|
||||
7
col_tab.bas
Normal file
7
col_tab.bas
Normal file
@ -0,0 +1,7 @@
|
||||
for x=0 to 31
|
||||
for y=0 to 7
|
||||
color x,y:print using" ##_,#ð>þþ";x,y;
|
||||
next y
|
||||
print
|
||||
next x
|
||||
|
||||
2
compi/andreas.cfg
Normal file
2
compi/andreas.cfg
Normal file
@ -0,0 +1,2 @@
|
||||
3,3,3,1,2,2,1,3,3,2,2,2,3,2
|
||||
1
|
||||
2
compi/arne.cfg
Normal file
2
compi/arne.cfg
Normal file
@ -0,0 +1,2 @@
|
||||
2,3,2,1,2,2,1,2,2,2,2,2,2,2
|
||||
1
|
||||
2
compi/co&m.cfg
Normal file
2
compi/co&m.cfg
Normal file
@ -0,0 +1,2 @@
|
||||
2,0,2,3,1,2,2,2,1,3,1,1,0,2
|
||||
0
|
||||
257
compi/compi.bas
Normal file
257
compi/compi.bas
Normal file
@ -0,0 +1,257 @@
|
||||
5 FLE$="COMPI.CFG"
|
||||
10 CLS
|
||||
20 KEY OFF
|
||||
30 CO=10
|
||||
40 OF=8
|
||||
50 PIN=14
|
||||
60 BR=15
|
||||
70 A=2:B=2:C=2:D=2:E=2:F=2:G=2
|
||||
80 H=2:I=2:J=2:K=2:L=2:M=2:N=2
|
||||
90 TUR=0
|
||||
100 REM Anzeigeroutine
|
||||
110 COLOR 15:LOCATE 5,30:PRINT"W - Werte speichern [";FLE$;"]"
|
||||
120 LOCATE 6,30:PRINT"R - Werte laden [";FLE$;"]"
|
||||
130 LOCATE 7,30:PRINT"S - Datei „ndern (momentan: ";FLE$;")"
|
||||
140 LOCATE 8,30:PRINT"Q - Werte zur<75>cksetzen"
|
||||
150 LOCATE 9,30:PRINT"Z - Zufallswerte setzen"
|
||||
160 LOCATE 10,30:PRINT"T - TURBO AN/AUS"
|
||||
170 LOCATE 11,30:PRINT"U - m”gliche Dateinamen"
|
||||
180 LOCATE 12,30:PRINT"A-N - Werte einzeln „ndern"
|
||||
190 LOCATE 13,30:PRINT"^/ø - EXIT TO DOS"
|
||||
200 LOCATE 14,30:PRINT"[SPCE]- alle Werte „ndern"
|
||||
210 LOCATE 1,2:IF A=1 THEN COLOR BR:PRINT"Û" ELSE COLOR PIN:PRINT"o"
|
||||
220 LOCATE 2,1:IF A=2 THEN COLOR BR:PRINT"ÛÛ" ELSE IF A=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"Û"
|
||||
230 LOCATE 3,2:IF A=3 THEN COLOR BR:PRINT"Û" ELSE COLOR PIN:PRINT"o"
|
||||
240 LOCATE 1,4:IF B=1 THEN COLOR BR:PRINT"Û" ELSE COLOR PIN:PRINT"o"
|
||||
250 LOCATE 2,3:IF B=2 THEN COLOR BR:PRINT"ÛÛ" ELSE IF B=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"Û"
|
||||
260 LOCATE 3,4:IF B=3 THEN COLOR BR:PRINT"Û" ELSE COLOR PIN:PRINT"o"
|
||||
270 LOCATE 1,6:IF C=1 THEN COLOR BR:PRINT"Û" ELSE COLOR PIN:PRINT"o"
|
||||
280 LOCATE 2,5:IF C=2 THEN COLOR BR:PRINT"ÛÛ" ELSE IF C=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"Û"
|
||||
290 LOCATE 3,6:IF C=3 THEN COLOR BR:PRINT"Û" ELSE COLOR PIN:PRINT"o"
|
||||
300 LOCATE 1,8:IF D=1 THEN COLOR BR:PRINT"Û" ELSE COLOR PIN:PRINT"o"
|
||||
310 LOCATE 2,7:IF D=2 THEN COLOR BR:PRINT"ÛÛ" ELSE IF D=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"Û"
|
||||
320 LOCATE 3,8:IF D=3 THEN COLOR BR:PRINT"Û" ELSE COLOR PIN:PRINT"o"
|
||||
330 LOCATE 1,10:IF E=1 THEN COLOR BR:PRINT"Û" ELSE COLOR PIN:PRINT"o"
|
||||
340 LOCATE 2,9:IF E=2 THEN COLOR BR:PRINT"ÛÛ" ELSE IF E=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"Û"
|
||||
350 LOCATE 3,10:IF E=3 THEN COLOR BR:PRINT"Û" ELSE COLOR PIN:PRINT"o"
|
||||
360 LOCATE 1,12:IF F=1 THEN COLOR BR:PRINT"Û" ELSE COLOR PIN:PRINT"o"
|
||||
370 LOCATE 2,11:IF F=2 THEN COLOR BR:PRINT"ÛÛ" ELSE IF F=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"Û"
|
||||
380 LOCATE 3,12:IF F=3 THEN COLOR BR:PRINT"Û" ELSE COLOR PIN:PRINT"o"
|
||||
390 LOCATE 1,14:IF G=1 THEN COLOR BR:PRINT"Û" ELSE COLOR PIN:PRINT"o"
|
||||
400 LOCATE 2,13:IF G=2 THEN COLOR BR:PRINT"ÛÛ" ELSE IF G=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"Û"
|
||||
410 LOCATE 3,14:IF G=3 THEN COLOR BR:PRINT"Û" ELSE COLOR PIN:PRINT"o"
|
||||
420 REM Untere Reihe
|
||||
430 LOCATE 13,2:IF H=1 THEN COLOR BR:PRINT"Û" ELSE COLOR PIN:PRINT"o"
|
||||
440 LOCATE 14,1:IF H=2 THEN COLOR BR:PRINT"ÛÛ" ELSE IF H=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"Û"
|
||||
450 LOCATE 15,2:IF H=3 THEN COLOR BR:PRINT"Û" ELSE COLOR PIN:PRINT"o"
|
||||
460 LOCATE 13,4:IF I=1 THEN COLOR BR:PRINT"Û" ELSE COLOR PIN:PRINT"o"
|
||||
470 LOCATE 14,3:IF I=2 THEN COLOR BR:PRINT"ÛÛ" ELSE IF I=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"Û"
|
||||
480 LOCATE 15,4:IF I=3 THEN COLOR BR:PRINT"Û" ELSE COLOR PIN:PRINT"o"
|
||||
490 LOCATE 13,6:IF J=1 THEN COLOR BR:PRINT"Û" ELSE COLOR PIN:PRINT"o"
|
||||
500 LOCATE 14,5:IF J=2 THEN COLOR BR:PRINT"ÛÛ" ELSE IF J=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"Û"
|
||||
510 LOCATE 15,6:IF J=3 THEN COLOR BR:PRINT"Û" ELSE COLOR PIN:PRINT"o"
|
||||
520 LOCATE 13,8:IF K=1 THEN COLOR BR:PRINT"Û" ELSE COLOR PIN:PRINT"o"
|
||||
530 LOCATE 14,7:IF K=2 THEN COLOR BR:PRINT"ÛÛ" ELSE IF K=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"Û"
|
||||
540 LOCATE 15,8:IF K=3 THEN COLOR BR:PRINT"Û" ELSE COLOR PIN:PRINT"o"
|
||||
550 LOCATE 13,10:IF L=1 THEN COLOR BR:PRINT"Û" ELSE COLOR PIN:PRINT"o"
|
||||
560 LOCATE 14,9:IF L=2 THEN COLOR BR:PRINT"ÛÛ" ELSE IF L=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"Û"
|
||||
570 LOCATE 15,10:IF L=3 THEN COLOR BR:PRINT"Û" ELSE COLOR PIN:PRINT"o"
|
||||
580 LOCATE 13,12:IF M=1 THEN COLOR BR:PRINT"Û" ELSE COLOR PIN:PRINT"o"
|
||||
590 LOCATE 14,11:IF M=2 THEN COLOR BR:PRINT"ÛÛ" ELSE IF M=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"Û"
|
||||
600 LOCATE 15,12:IF M=3 THEN COLOR BR:PRINT"Û" ELSE COLOR PIN:PRINT"o"
|
||||
610 LOCATE 13,14:IF N=1 THEN COLOR BR:PRINT"Û" ELSE COLOR PIN:PRINT"o"
|
||||
620 LOCATE 14,13:IF N=2 THEN COLOR BR:PRINT"ÛÛ" ELSE IF N=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"Û"
|
||||
630 LOCATE 15,14:IF N=3 THEN COLOR BR:PRINT"Û" ELSE COLOR PIN:PRINT"o"
|
||||
640 LOCATE 1,40:IF TUR=0 THEN COLOR OF:PRINT"ÛÛÛ" ELSE COLOR 14:PRINT"ÛÛÛ"
|
||||
650 COLOR 15:LOCATE 2,39:PRINT"TURBO"
|
||||
660 IF A=1 AND TUR=0 OR A=3 AND TUR=1 THEN COLOR CO ELSE COLOR OF
|
||||
670 IF A=2 THEN COLOR CO
|
||||
680 LOCATE 6,2:PRINT"Û":LOCATE 7,2:PRINT"Û"
|
||||
690 IF B=1 AND TUR=0 OR B=3 AND TUR=1 THEN COLOR CO ELSE COLOR OF
|
||||
700 IF B=2 THEN COLOR CO
|
||||
710 LOCATE 8,3:PRINT"ÛÛÛ"
|
||||
720 IF C=1 AND TUR=0 OR C=3 AND TUR=1 THEN COLOR CO ELSE COLOR OF
|
||||
730 IF C=2 THEN COLOR CO
|
||||
740 LOCATE 5,3:PRINT"ÜÜÜ"
|
||||
750 IF D=1 AND TUR=0 OR D=3 AND TUR=1 THEN COLOR CO ELSE COLOR OF
|
||||
760 IF D=2 THEN COLOR CO
|
||||
770 LOCATE 6,6:PRINT"Û":LOCATE 7,6:PRINT"Û"
|
||||
780 IF E=1 AND TUR=0 OR E=3 AND TUR=1 THEN COLOR CO ELSE COLOR OF
|
||||
790 IF E=2 THEN COLOR CO
|
||||
800 LOCATE 6,9:PRINT"Û":LOCATE 7,9:PRINT"Û"
|
||||
810 IF F=1 AND TUR=0 OR F=3 AND TUR=1 THEN COLOR CO ELSE COLOR OF
|
||||
820 IF F=2 THEN COLOR CO
|
||||
830 LOCATE 5,10:PRINT"ÜÜÜ"
|
||||
840 IF G=1 AND TUR=0 OR G=3 AND TUR=1 THEN COLOR CO ELSE COLOR OF
|
||||
850 IF G=2 THEN COLOR CO
|
||||
860 LOCATE 6,13:PRINT"Û":LOCATE 7,13:PRINT"Û"
|
||||
870 REM Untere Reihe
|
||||
880 IF H=1 AND TUR=0 OR H=3 AND TUR=1 THEN COLOR CO ELSE COLOR OF
|
||||
890 IF H=2 THEN COLOR CO
|
||||
900 LOCATE 9,2:PRINT"Û":LOCATE 10,2:PRINT"Û"
|
||||
910 IF I=1 AND TUR=0 OR I=3 AND TUR=1 THEN COLOR CO ELSE COLOR OF
|
||||
920 IF I=2 THEN COLOR CO
|
||||
930 LOCATE 11,3:PRINT"ßßß"
|
||||
940 IF J=1 AND TUR=0 OR J=3 AND TUR=1 THEN COLOR CO ELSE COLOR OF
|
||||
950 IF J=2 THEN COLOR CO
|
||||
960 LOCATE 9,6:PRINT"Û":LOCATE 10,6:PRINT"Û"
|
||||
970 IF K=1 AND TUR=0 OR K=3 AND TUR=1 THEN COLOR CO ELSE COLOR OF
|
||||
980 IF K=2 THEN COLOR CO
|
||||
990 LOCATE 9,9:PRINT"Û":LOCATE 10,9:PRINT"Û"
|
||||
1000 IF L=1 AND TUR=0 OR L=3 AND TUR=1 THEN COLOR CO ELSE COLOR OF
|
||||
1010 IF L=2 THEN COLOR CO
|
||||
1020 LOCATE 11,10:PRINT"ßßß"
|
||||
1030 IF M=1 AND TUR=0 OR M=3 AND TUR=1 THEN COLOR CO ELSE COLOR OF
|
||||
1040 IF M=2 THEN COLOR CO
|
||||
1050 LOCATE 8,10:PRINT"ÛÛÛ"
|
||||
1060 IF N=1 AND TUR=0 OR N=3 AND TUR=1 THEN COLOR CO ELSE COLOR OF
|
||||
1070 IF N=2 THEN COLOR CO
|
||||
1080 LOCATE 9,13:PRINT"Û":LOCATE 10,13:PRINT"Û"
|
||||
1090 COLOR OF:LOCATE 11,7:PRINT"Ü":LOCATE 11,14:PRINT"Ü"
|
||||
1100 LOCATE 16,30:COLOR 15:PRINT" A B C D E F G H I J K L M N"
|
||||
1110 LOCATE 17,30
|
||||
1120 X=A:GOSUB 1150:X=B:GOSUB 1150:X=C:GOSUB 1150:X=D:GOSUB 1150:X=E:GOSUB 1150:X=F:GOSUB 1150:X=G:GOSUB 1150
|
||||
1130 X=H:GOSUB 1150:X=I:GOSUB 1150:X=J:GOSUB 1150:X=K:GOSUB 1150:X=L:GOSUB 1150:X=M:GOSUB 1150:X=N:GOSUB 1150
|
||||
1140 GOTO 1200
|
||||
1150 IF X=0 THEN COLOR 15
|
||||
1160 IF X=1 THEN COLOR 8
|
||||
1170 IF X=2 THEN COLOR 10
|
||||
1180 IF X=3 THEN COLOR 14
|
||||
1190 PRINT X;:RETURN
|
||||
1200 REM Eingaberoutine
|
||||
1210 A$=INKEY$:IF A$="" THEN 1210
|
||||
1220 IF A$="T" OR A$="t" THEN IF TUR=0 THEN TUR=1:GOTO 640 ELSE TUR=0:GOTO 640
|
||||
1230 IF A$=" " THEN 1890
|
||||
1240 IF A$="w" OR A$="W" THEN 2120
|
||||
1250 IF A$="q" OR A$="Q" THEN 2310
|
||||
1260 IF A$="r" OR A$="R" THEN 2190
|
||||
1270 IF A$="s" OR A$="S" THEN 2260
|
||||
1280 IF A$="u" OR A$="U" THEN 2490
|
||||
1290 IF A$="z" OR A$="Z" THEN 2330
|
||||
1300 IF A$="a" OR A$="A" THEN 1470
|
||||
1310 IF A$="b" OR A$="B" THEN 1500
|
||||
1320 IF A$="c" OR A$="C" THEN 1530
|
||||
1330 IF A$="d" OR A$="D" THEN 1560
|
||||
1340 IF A$="e" OR A$="E" THEN 1590
|
||||
1350 IF A$="f" OR A$="F" THEN 1620
|
||||
1360 IF A$="g" OR A$="G" THEN 1650
|
||||
1370 IF A$="h" OR A$="H" THEN 1680
|
||||
1380 IF A$="i" OR A$="I" THEN 1710
|
||||
1390 IF A$="j" OR A$="J" THEN 1740
|
||||
1400 IF A$="k" OR A$="K" THEN 1770
|
||||
1410 IF A$="l" OR A$="L" THEN 1800
|
||||
1420 IF A$="m" OR A$="M" THEN 1830
|
||||
1430 IF A$="n" OR A$="N" THEN 1860
|
||||
1440 IF A$="^" OR A$="ø" THEN CLS:COLOR 15:END
|
||||
1450 GOTO 1210
|
||||
1460 REM INPUT
|
||||
1470 LOCATE 17,1:INPUT "Neuer Wert f<>r A: ",A
|
||||
1480 IF A<0 OR A>3 THEN 1470
|
||||
1490 LOCATE 17,1:PRINT SPACE$(25):GOTO 100
|
||||
1500 LOCATE 17,1:INPUT "Neuer Wert f<>r B: ",B
|
||||
1510 IF B<0 OR B>3 THEN 1500
|
||||
1520 LOCATE 17,1:PRINT SPACE$(25):GOTO 100
|
||||
1530 LOCATE 17,1:INPUT "Neuer Wert f<>r C: ",C
|
||||
1540 IF C<0 OR C>3 THEN 1530
|
||||
1550 LOCATE 17,1:PRINT SPACE$(25):GOTO 100
|
||||
1560 LOCATE 17,1:INPUT "Neuer Wert f<>r D: ",D
|
||||
1570 IF D<0 OR D>3 THEN 1560
|
||||
1580 LOCATE 17,1:PRINT SPACE$(25):GOTO 100
|
||||
1590 LOCATE 17,1:INPUT "Neuer Wert f<>r E: ",E
|
||||
1600 IF E<0 OR E>3 THEN 1590
|
||||
1610 LOCATE 17,1:PRINT SPACE$(25):GOTO 100
|
||||
1620 LOCATE 17,1:INPUT "Neuer Wert f<>r F: ",F
|
||||
1630 IF F<0 OR F>3 THEN 1620
|
||||
1640 LOCATE 17,1:PRINT SPACE$(25):GOTO 100
|
||||
1650 LOCATE 17,1:INPUT "Neuer Wert f<>r G: ",G
|
||||
1660 IF G<0 OR G>3 THEN 1650
|
||||
1670 LOCATE 17,1:PRINT SPACE$(25):GOTO 100
|
||||
1680 LOCATE 17,1:INPUT "Neuer Wert f<>r H: ",H
|
||||
1690 IF H<0 OR H>3 THEN 1680
|
||||
1700 LOCATE 17,1:PRINT SPACE$(25):GOTO 100
|
||||
1710 LOCATE 17,1:INPUT "Neuer Wert f<>r I: ",I
|
||||
1720 IF I<0 OR I>3 THEN 1710
|
||||
1730 LOCATE 17,1:PRINT SPACE$(25):GOTO 100
|
||||
1740 LOCATE 17,1:INPUT "Neuer Wert f<>r J: ",J
|
||||
1750 IF J<0 OR J>3 THEN 1740
|
||||
1760 LOCATE 17,1:PRINT SPACE$(25):GOTO 100
|
||||
1770 LOCATE 17,1:INPUT "Neuer Wert f<>r K: ",K
|
||||
1780 IF K<0 OR K>3 THEN 1770
|
||||
1790 LOCATE 17,1:PRINT SPACE$(25):GOTO 100
|
||||
1800 LOCATE 17,1:INPUT "Neuer Wert f<>r L: ",L
|
||||
1810 IF L<0 OR L>3 THEN 1800
|
||||
1820 LOCATE 17,1:PRINT SPACE$(25):GOTO 100
|
||||
1830 LOCATE 17,1:INPUT "Neuer Wert f<>r M: ",M
|
||||
1840 IF M<0 OR M>3 THEN 1830
|
||||
1850 LOCATE 17,1:PRINT SPACE$(25):GOTO 100
|
||||
1860 LOCATE 17,1:INPUT "Neuer Wert f<>r N: ",N
|
||||
1870 IF N<0 OR N>3 THEN 1860
|
||||
1880 LOCATE 17,1:PRINT SPACE$(25):GOTO 100
|
||||
1890 REM Gesamteingabe
|
||||
1900 COLOR 15
|
||||
1910 LOCATE 17,1:INPUT"A=",A:IF A<0 OR A>3 THEN 1910
|
||||
1920 INPUT"B=",B:IF B<0 OR B>3 THEN LOCATE 18,1:GOTO 1920
|
||||
1930 INPUT"C=",C:IF C<0 OR C>3 THEN LOCATE 19,1:GOTO 1930
|
||||
1940 INPUT"D=",D:IF D<0 OR D>3 THEN LOCATE 20,1:GOTO 1940
|
||||
1950 INPUT"E=",E:IF E<0 OR E>3 THEN LOCATE 21,1:GOTO 1950
|
||||
1960 INPUT"F=",F:IF E<0 OR E>3 THEN LOCATE 22,1:GOTO 1960
|
||||
1970 INPUT"G=",G:IF G<0 OR G>3 THEN LOCATE 23,1:GOTO 1970
|
||||
1980 LOCATE 17,5:INPUT"H=",H:IF H<0 OR H>3 THEN 1980
|
||||
1990 LOCATE 18,5:INPUT"I=",I:IF I<0 OR I>3 THEN 1990
|
||||
2000 LOCATE 19,5:INPUT"J=",J:IF J<0 OR J>3 THEN 2000
|
||||
2010 LOCATE 20,5:INPUT"K=",K:IF K<0 OR K>3 THEN 2010
|
||||
2020 LOCATE 21,5:INPUT"L=",L:IF L<0 OR L>3 THEN 2020
|
||||
2030 LOCATE 22,5:INPUT"M=",M:IF M<0 OR M>3 THEN 2030
|
||||
2040 LOCATE 23,5:INPUT"N=",N:IF N<0 OR N>3 THEN 2040
|
||||
2050 LOCATE 17,1:PRINT SPACE$(70)
|
||||
2060 PRINT SPACE$(70)
|
||||
2070 PRINT SPACE$(70)
|
||||
2080 PRINT SPACE$(70)
|
||||
2090 PRINT SPACE$(70)
|
||||
2100 PRINT SPACE$(70)
|
||||
2110 PRINT SPACE$(70):GOTO 100
|
||||
2120 REM Werte speichern
|
||||
2130 OPEN "O",#1,FLE$
|
||||
2140 LOCATE 17,1:COLOR 15:PRINT"Werte gesichert!"
|
||||
2150 WRITE#1,A,B,C,D,E,F,G,H,I,J,K,L,M,N
|
||||
2160 WRITE#1,TUR
|
||||
2170 CLOSE #1
|
||||
2180 GOTO 1200
|
||||
2190 REM Werte laden
|
||||
2200 OPEN "I",#1,FLE$
|
||||
2210 LOCATE 17,1:COLOR 15:PRINT"Werte geladen! "
|
||||
2220 INPUT#1,A,B,C,D,E,F,G,H,I,J,K,L,M,N
|
||||
2230 INPUT#1,TUR
|
||||
2240 CLOSE #1
|
||||
2250 GOTO 100
|
||||
2260 REM Datei „ndern
|
||||
2270 LOCATE 17,1:COLOR 15:INPUT"Neuer Dateiname: ",NFLE$
|
||||
2280 IF NFLE$="" THEN CLS:GOTO 100
|
||||
2290 FLE$=NFLE$
|
||||
2300 CLS:GOTO 100
|
||||
2310 REM RESET
|
||||
2320 GOTO 70
|
||||
2330 REM Zufall
|
||||
2340 A=INT(RND(1)*4)
|
||||
2350 B=INT(RND(1)*4)
|
||||
2360 C=INT(RND(1)*4)
|
||||
2370 D=INT(RND(1)*4)
|
||||
2380 E=INT(RND(1)*4)
|
||||
2390 F=INT(RND(1)*4)
|
||||
2400 G=INT(RND(1)*4)
|
||||
2410 H=INT(RND(1)*4)
|
||||
2420 I=INT(RND(1)*4)
|
||||
2430 J=INT(RND(1)*4)
|
||||
2440 K=INT(RND(1)*4)
|
||||
2450 L=INT(RND(1)*4)
|
||||
2460 M=INT(RND(1)*4)
|
||||
2470 N=INT(RND(1)*4)
|
||||
2480 GOTO 100
|
||||
2490 REM Directory
|
||||
2500 LOCATE 17,1:COLOR 15
|
||||
2510 FILES "*.CFG"
|
||||
2520 PRINT"Bitte Taste dr<64>cken!"
|
||||
2530 A$=INKEY$:IF A$="" THEN 2530
|
||||
2540 LOCATE 17,1:FOR Z=1 TO 7:PRINT SPACE$(79):NEXT Z
|
||||
2550 GOTO 1200
|
||||
|
||||
2
compi/compi.cfg
Normal file
2
compi/compi.cfg
Normal file
@ -0,0 +1,2 @@
|
||||
2,0,2,3,1,2,2,2,1,3,1,1,0,2
|
||||
0
|
||||
3
compi/hans.cfg
Normal file
3
compi/hans.cfg
Normal file
@ -0,0 +1,3 @@
|
||||
3,3,0,2,1,3,2,0,0,2,3,3,2,1
|
||||
1
|
||||
|
||||
3
compi/hans2.cfg
Normal file
3
compi/hans2.cfg
Normal file
@ -0,0 +1,3 @@
|
||||
3,2,2,2,3,2,2,0,2,2,3,2,1,2
|
||||
1
|
||||
|
||||
3
compi/hcv386.cfg
Normal file
3
compi/hcv386.cfg
Normal file
@ -0,0 +1,3 @@
|
||||
1,3,2,2,1,2,2,1,2,2,1,2,2,2
|
||||
1
|
||||
|
||||
3
compi/hcv3862.cfg
Normal file
3
compi/hcv3862.cfg
Normal file
@ -0,0 +1,3 @@
|
||||
0,3,3,3,1,2,2,0,3,3,1,2,2,2
|
||||
1
|
||||
|
||||
2
compi/maik.cfg
Normal file
2
compi/maik.cfg
Normal file
@ -0,0 +1,2 @@
|
||||
2,3,0,2,2,2,2,0,0,2,2,2,0,2
|
||||
0
|
||||
76
csafe.bas
Normal file
76
csafe.bas
Normal file
@ -0,0 +1,76 @@
|
||||
$COMPILE EXE
|
||||
on error goto 4
|
||||
comm$=command$
|
||||
msg$="Befehl oder Dateiname nicht gefunden "+chr$(13)
|
||||
wdi$="Ung<6E>ltiges Verzeichnis "+chr$(13)
|
||||
x=1
|
||||
1 x$=mid$(comm$,x,1)
|
||||
if x$=chr$(32) or x$="" then x=x+1:goto 2
|
||||
c1$=c1$+x$
|
||||
x=x+1
|
||||
goto 1
|
||||
2 x$=mid$(comm$,x,1)
|
||||
if x$=chr$(32) or x$="" then x=x+1:goto 3
|
||||
c2$=c2$+x$
|
||||
x=x+1
|
||||
goto 2
|
||||
3 if c1$="" then goto Syntax
|
||||
pass$=c1$
|
||||
if c2$="" then LogIt=0 else LogIt=1:file$=c2$
|
||||
if LogIt=1 then open "A",#1,file$
|
||||
if LogIt=1 then print#1,""
|
||||
if LogIt=1 then print#1,"ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ"
|
||||
if LogIt=1 then print#1,"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ²²²²²²²²²±±±±±±±±±±±±±±±±±±±±²²²²²²²²ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
|
||||
if LogIt=1 then print#1,"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ²²±±±±±±±±±°°°°°°°°°°°°°°°°°°±±±±±±±±²²ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
|
||||
if LogIt=1 then print#1,"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ²²±±°°°°°°°°° CSAFE-LOG-FILE °°°°°°°°±±²²ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
|
||||
if LogIt=1 then print#1,"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ²²±±°° (C)1995 by RoboCop INDUSTRIES °°±±²²ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
|
||||
if LogIt=1 then print#1,"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ²²±±°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°±±²²ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
|
||||
if LogIt=1 then print#1,"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ²²±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±²²ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
|
||||
if LogIt=1 then print#1,"ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß"
|
||||
if LogIt=1 then print#1,"Datum: ";date$;" Uhrzeit: ";time$;" Passwort: ";pass$
|
||||
if LogIt=1 then print#1,""
|
||||
if LogIt=1 then print#1,"Datum Uhrzeit Eingabe getan?"
|
||||
if LogIt=1 then print#1,"ðððððððððð ðððððððð ððððððððððððððððððððððððððððððððððððððððððððððððð ðððððð"
|
||||
color 7
|
||||
4 print curdir$;:input ">",eingabe$(1),eingabe$(2),eingabe$(3),eingabe$(4),eingabe$(5),eingabe$(6)
|
||||
if eingabe$(6)<>"" then eingabe$=eingabe$(1)+","+eingabe$(2)+","+eingabe$(3)+","+eingabe$(4)+","+eingabe$(5)+","+eingabe$(6):goto 5
|
||||
if eingabe$(5)<>"" then eingabe$=eingabe$(1)+","+eingabe$(2)+","+eingabe$(3)+","+eingabe$(4)+","+eingabe$(5):goto 5
|
||||
if eingabe$(4)<>"" then eingabe$=eingabe$(1)+","+eingabe$(2)+","+eingabe$(3)+","+eingabe$(4):goto 5
|
||||
if eingabe$(3)<>"" then eingabe$=eingabe$(1)+","+eingabe$(2)+","+eingabe$(3):goto 5
|
||||
if eingabe$(2)<>"" then eingabe$=eingabe$(1)+","+eingabe$(2):goto 5
|
||||
if eingabe$(1)<>"" then eingabe$=eingabe$(1):goto 5
|
||||
5 if eingabe$=pass$ then goto OKEnde
|
||||
if lcase$(eingabe$)="cls" then goto ClearScreen
|
||||
if LogIt=1 then stat$="NEIN":gosub WriteLog
|
||||
print msg$
|
||||
goto 4
|
||||
|
||||
ClearScreen:
|
||||
if LogIt=1 then stat$="JA":gosub WriteLog
|
||||
cls
|
||||
goto 4
|
||||
|
||||
WriteLog:
|
||||
if len(eingabe$)>49 then eingabe$=left$(eingabe$,46)+"..."
|
||||
if LogIt=1 then print#1,using "\ \ \ \ \ \ \ \";date$;time$;eingabe$;stat$
|
||||
return
|
||||
|
||||
Syntax:
|
||||
color 10:print"-=ð CSAFE v2.00 ð=-":color 15
|
||||
print
|
||||
print"Syntax: ";:color 14:?"CSAFE Passwort [Log-Datei]":color 7
|
||||
print
|
||||
print"ùPasswort - Das Passwort, das eingegeben werden muá"
|
||||
print"ùLog-Datei - Die Datei, in die die Eingaben geschrieben werden sollen"
|
||||
print:color 12
|
||||
print"(C)1995 by Markus Birth":color 7
|
||||
goto Ende
|
||||
|
||||
OKEnde:
|
||||
stat$="ENDE"
|
||||
if LogIt=1 then gosub WriteLog
|
||||
print"Befehl oder Dateiname nicht gefunden"
|
||||
goto Ende
|
||||
|
||||
Ende:
|
||||
|
||||
107
dart.bas
Normal file
107
dart.bas
Normal file
@ -0,0 +1,107 @@
|
||||
print"Dart was written by"
|
||||
$INCLUDE "LOGO.INC"
|
||||
DELAY .5
|
||||
Menu:
|
||||
CLS
|
||||
locate 1,1:color 15:print"ððð DART ððð by RoboCop INDUSTRIES"
|
||||
print:color 14
|
||||
print"Dieses Programm ist abgestimmt auf die DARTGAME~-Zielscheibe"
|
||||
print"von BEST sporting!"
|
||||
print:color 10
|
||||
print"W„hlen Sie eine Option:":color 15
|
||||
print" A - Spielregeln"
|
||||
print" B - Dart"
|
||||
print" C - Zielscheibe":color 12
|
||||
print" X - Ende"
|
||||
print
|
||||
1 a$=inkey$:if a$="" then 1
|
||||
if a$="a" or a$="A" then goto Rules
|
||||
if a$="b" or a$="B" then goto Dart
|
||||
if a$="c" or a$="C" then goto Target
|
||||
if a$="x" or a$="X" then goto Ende
|
||||
sound 1000,.25
|
||||
goto 1
|
||||
|
||||
Rules:
|
||||
cls
|
||||
color 15:print"ððð Spielregeln ððð":color 14
|
||||
print
|
||||
print"Punkteverteilung: Auge - 50 Punkte"
|
||||
print" 25-Ring - 25 Punkte"
|
||||
print" mittlere Zone - 2x"
|
||||
print" „uáere Zone - 3x"
|
||||
print
|
||||
color 10:print" === Taste dr<64>cken, wenn bereit ===":color 15
|
||||
2 a$=inkey$:if a$="" then 2
|
||||
print"ððð Spielregeln ððð":color 14
|
||||
print
|
||||
print"Regeln: 1. Die Zielscheibe ist so aufzuh„ngen, daá die Mitte 1,72m <20>ber dem"
|
||||
print" Fuáboden h„ngt. Der Abstand von der Wurflinie zur Scheibe betr„gt"
|
||||
print" 2,44m, die Wurflinie darf nicht <20>bertreten werden."
|
||||
print" 2. Jeder Spieler wirft zun„chst nur einen Dart auf die Schiebe. Der-"
|
||||
print" jenige Spieler oder diejenige Mannschaft deren Dart dem Mittelpunkt"
|
||||
print" am n„chsten kommt, beginnt das Spiel."
|
||||
print" 3. Jeder Spieler wirft abwechselnd 3 Darts. Treffer werden nur ge-"
|
||||
print" wertet, wenn die Darts in der Scheibe steckenbleiben."
|
||||
print" 4. Es wird mit 301 Punkten bzw. bei Mannschaften mit 501 oder 1001"
|
||||
print" begonnen. Von dieser Punktzahl werden die jeweils geworfenen"
|
||||
print" Punkte abgezogen."
|
||||
print" 5. Das Spiel kann nur beendet werden, wenn ein Feld im Doppelring oder"
|
||||
print" der Mittelpunkt getroffen wird. Mit der geworfenen Doppelziffer"
|
||||
print" oder mit der Ziffer 50 muá exakt ";chr$(34);"Null";chr$(34);" erreicht werden."
|
||||
print" 6. Wird in der Endphase eine gr”áere Punktzahl geworfen als n”tig, um"
|
||||
print" ";chr$(34);"Null";chr$(34);" zu erreichen, so ist die geworfene Punktzahl ung<6E>ltig, die"
|
||||
print" Punktzahl bleibt, wir sie vor dem Wurf war. Der Spieler"
|
||||
print" (bzw. Mannschaft), der zuerst ";chr$(34);"Null";chr$(34);" erreicht hat, ist Sieger."
|
||||
print
|
||||
print
|
||||
print:color 10
|
||||
print" === Taste dr<64>cken, wenn bereit ===";:color 15
|
||||
3 a$=inkey$:if a$="" then 3
|
||||
goto Menu
|
||||
|
||||
Dart:
|
||||
cls
|
||||
color 15:print"ððð DARTGAME ððð"
|
||||
print
|
||||
input"Anzahl Spieler : ",players
|
||||
for x=1 to players
|
||||
print"Name Spieler";x;
|
||||
input" :",playername$(x)
|
||||
next x
|
||||
open "O",#1,"DART.GAM"
|
||||
print#1,"ððð DARTGAME ððð (by RoboCop INDUSTRIES)"
|
||||
print#1,""
|
||||
print#1,"Name Wurf Pfeil Punkte ges.Punkte í "
|
||||
print#1,"============ ==== ===== ====== ========== ===== "
|
||||
cls
|
||||
color 15:print"ððð DARTGAME ððð"
|
||||
print
|
||||
for maximum=1 to 500
|
||||
for x=1 to players
|
||||
throw(x)=throw(x)+1
|
||||
locate 3,1:print"Spieler";x;": "
|
||||
locate 4,1:print playername$(x);" "
|
||||
locate 5,1:print"Statistik:"
|
||||
locate 7,1:print"Wurf Pfeil Punkte ges.Punkte í "
|
||||
locate 8,1:print"==== ===== ====== ========== ======"
|
||||
for y=1 to 3
|
||||
arrow(x)=arrow(x)+1
|
||||
locate 9,12:input"",points
|
||||
points(x)=points(x)+points
|
||||
locate 9,1:print using"#### ##### ###### ########## ###.##";throw(x);y;points;points(x);points(x)/arrow(x);
|
||||
print #1,using"#### ##### ###### ########## ###.##";throw(x);y;points;points(x);points(x)/arrow(x);
|
||||
next y
|
||||
next x
|
||||
next maximum
|
||||
|
||||
|
||||
Target:
|
||||
|
||||
Ende:
|
||||
cls
|
||||
color 15:print"ððð DART ððð was written by"
|
||||
$INCLUDE "LOGO.INC"
|
||||
print
|
||||
end
|
||||
|
||||
4
dart.gam
Normal file
4
dart.gam
Normal file
@ -0,0 +1,4 @@
|
||||
ððð DARTGAME ððð (by RoboCop INDUSTRIES)
|
||||
|
||||
Name Wurf Pfeil Punkte ges.Punkte í
|
||||
============ ==== ===== ====== ========== =====
|
||||
65
decode.bas
Normal file
65
decode.bas
Normal file
@ -0,0 +1,65 @@
|
||||
cls
|
||||
open "I",#1,"USER.DAT"
|
||||
line input #1,nam$
|
||||
line input #1,num$
|
||||
num$="Unlizensierte Kopie !!"
|
||||
close #1
|
||||
stp=0
|
||||
1 rem cls
|
||||
color 15
|
||||
locate 1,1
|
||||
print "Codierter USER #1: ";nam$
|
||||
print "Codierter USER #2: ";num$
|
||||
print
|
||||
print "Decodierter #1 : ";dnam$
|
||||
print "Decodierter #2 : ";dnum$
|
||||
print
|
||||
print "Schrittweite : ";stp
|
||||
dnam$=""
|
||||
dnum$=""
|
||||
for z=1 to len(nam$)
|
||||
x$=mid$(nam$,z,1)
|
||||
x=asc(x$)
|
||||
soll=x+stp
|
||||
locate 4,19+z
|
||||
print chr$(soll)
|
||||
dnam$=dnam$+chr$(soll)
|
||||
next z
|
||||
|
||||
for y=1 to len(num$)
|
||||
x$=mid$(num$,y,1)
|
||||
x=asc(x$)
|
||||
soll=x+stp
|
||||
locate 5,19+y
|
||||
print chr$(soll)
|
||||
dnum$=dnum$+chr$(soll)
|
||||
next y
|
||||
2 a$=inkey$:if a$="" then 2
|
||||
if a$="i" or a$="I" then gosub InputNumb:goto 1
|
||||
if a$="-" then stp=stp-1:goto 1
|
||||
if a$="+" then stp=stp+1:goto 1
|
||||
if a$=chr$(13) then locate 10,1:goto WriteErg
|
||||
if a$=chr$(27) then locate 10,1:goto Ende
|
||||
goto 2
|
||||
goto 1
|
||||
|
||||
InputNumb:
|
||||
locate 10,1
|
||||
color 15:input"Geben Sie die Verschiebung ein :",stp
|
||||
locate 10,1:print space$(79)
|
||||
return
|
||||
|
||||
WriteErg:
|
||||
print"Benenne USER.DAT in USER2.DAT um ... ";
|
||||
name "USER.DAT" as "USER2.DAT"
|
||||
print "OK"
|
||||
print"Schreibe USER.DAT ... ";
|
||||
open "O",#1,"USER.DAT"
|
||||
print#1,"";dnam$
|
||||
print#1,"";dnum$
|
||||
close #1
|
||||
print"OK"
|
||||
print
|
||||
|
||||
Ende:
|
||||
print"Programm-Ende."
|
||||
38
decrypt.bas
Normal file
38
decrypt.bas
Normal file
@ -0,0 +1,38 @@
|
||||
cls
|
||||
open "I",#1,"TRICK.DAT"
|
||||
dim l$(80)
|
||||
line input#1,line1$
|
||||
close #1
|
||||
locate 1,1:color 15:print"Original: ";line1$
|
||||
for x=1 to len(line1$)
|
||||
l$(x)=mid$(line1$,x,1)
|
||||
next x
|
||||
locate 2,1:color 15:print"Crypted : ";:color 7
|
||||
for x=1 to len(line1$)
|
||||
print l$(x);
|
||||
next x
|
||||
x=1
|
||||
2 locate 2,11+x:color 14:print l$(x)
|
||||
1 a$=inkey$: if a$="" then 1
|
||||
if a$="+" then l$(x)=chr$(asc(l$(x))+1):goto 2
|
||||
if a$="-" then l$(x)=chr$(asc(l$(x))-1):goto 2
|
||||
if a$=chr$(27) then 3
|
||||
if a$=chr$(8) then locate 2,11+x:color 7:print l$(x):x=x-1:goto 2
|
||||
if a$=chr$(13) then color 15:locate 2,11+x:print l$(x):x=x+1:if x>len(line1$) then 3 else goto 2
|
||||
3 print:color 15
|
||||
print"ASCII-Werte:"
|
||||
for x=1 to len(line1$)
|
||||
print asc(l$(x));
|
||||
next x
|
||||
print
|
||||
print"Schreibe Daten in DECRYPT.OUT ... ";
|
||||
open "o",#1,"decrypt.out"
|
||||
print#1,"No C O ASC ASO Diff"
|
||||
for x=1 to len(line1$)
|
||||
unt=asc(l$(x))-asc(mid$(line1$,x,1))
|
||||
print #1, using "## ! ! ### ### +###";x;mid$(line1$,x,1);l$(x);asc(mid$(line1$,x,1));asc(l$(x));unt
|
||||
next x
|
||||
print"OK"
|
||||
close #1
|
||||
|
||||
|
||||
216
delpick.bas
Normal file
216
delpick.bas
Normal file
@ -0,0 +1,216 @@
|
||||
$INCLUDE "LOGO.INC"
|
||||
$INCLUDE "PBWINDOW.INC"
|
||||
if command$="SKIP" or command$="skip" then goto SkipIt
|
||||
color 15
|
||||
Lin=csrlin-1
|
||||
txt$="proudly presents"
|
||||
txt$(1)=txt$
|
||||
gosub WriteText
|
||||
txt$="The Paintbrush Pick Info Remover"
|
||||
txt$(2)=txt$
|
||||
print
|
||||
Lin=csrlin-1
|
||||
delay 1
|
||||
gosub WriteText
|
||||
delay 1
|
||||
color 9
|
||||
Anf1=40-int(len(txt$(1))/2)+1
|
||||
Anf2=40-int(len(txt$(2))/2)+1
|
||||
locate Lin-1,Anf1:print txt$(1)
|
||||
locate Lin,Anf2:print txt$(2)
|
||||
delay .15
|
||||
color 3
|
||||
locate Lin-1,Anf1:print txt$(1)
|
||||
locate Lin,Anf2:print txt$(2)
|
||||
delay .15
|
||||
color 11
|
||||
locate Lin-1,Anf1:print Txt$(1)
|
||||
locate Lin,Anf2:print txt$(2)
|
||||
delay .15
|
||||
color 15
|
||||
locate Lin-1,Anf1:print txt$(1)
|
||||
locate Lin,Anf2:print txt$(2)
|
||||
goto Program
|
||||
|
||||
WriteText:
|
||||
AnfLocX=40-int(len(txt$)/2)
|
||||
x=1
|
||||
1 if x>0 then LetA$=mid$(txt$,x,1)
|
||||
if x>1 then LetB$=mid$(txt$,x-1,1)
|
||||
if x>2 then LetC$=mid$(txt$,x-2,1)
|
||||
if x>3 then LetD$=mid$(txt$,x-3,1)
|
||||
if x>4 then LetE$=mid$(txt$,x-4,1)
|
||||
if x>0 then color 15:locate Lin,AnfLocX+x:print LetA$
|
||||
if x>1 then color 11:locate Lin,AnfLocX+x-1:print LetB$
|
||||
if x>2 then color 3:locate Lin,AnfLocX+x-2:print LetC$
|
||||
if x>3 then color 9:locate Lin,AnfLocX+x-3:print LetD$
|
||||
if x>4 then color 1:locate Lin,AnfLocX+x-4:print LetE$
|
||||
x=x+1:if x>len(txt$)+4 then 2 else delay .05:goto 1
|
||||
2 delay 1
|
||||
color 15:locate Lin,AnfLocX+1:print txt$
|
||||
delay .1:color 11:locate Lin,AnfLocX+1:print txt$
|
||||
delay .1:color 3:locate Lin,AnfLocX+1:print txt$
|
||||
delay .1:color 9:locate Lin,AnfLocX+1:print txt$
|
||||
delay .1:color 1:locate Lin,AnfLocX+1:print txt$
|
||||
return
|
||||
|
||||
SkipIt:
|
||||
color 15
|
||||
txt$="proudly presents"
|
||||
locate csrlin-1,40-int(len(txt$)/2):print txt$
|
||||
txt$="The Paintbrush Pick Info Remover"
|
||||
locate csrlin,40-int(len(txt$)/2):print txt$
|
||||
goto Program
|
||||
|
||||
Program:
|
||||
Item$(0)="[Programm w„hlen]"
|
||||
gosub PF2:test=1
|
||||
gosub CheckForPresence
|
||||
gosub PF3:test=2
|
||||
gosub CheckForPresence
|
||||
gosub PCP:test=3
|
||||
gosub CheckForPresence
|
||||
Lin=17
|
||||
call MakeWindow (15,9,5,63,ColAttr%(11,0),2,4,2)
|
||||
call TitleWindow (1,"[Information]")
|
||||
txt$="Zum Abbrechen [ESC] dr<64>cken, ansonsten eine Auswahl treffen"
|
||||
if command$="skip" or command$="SKIP" then
|
||||
locate Lin,40-int(len(txt$)/2)
|
||||
color 15,0
|
||||
print txt$
|
||||
goto 7
|
||||
end if
|
||||
gosub WriteText:delay 1
|
||||
color 9:locate 17,AnfLocX+1:print txt$:delay .15
|
||||
color 3:locate 17,AnfLocX+1:print txt$:delay .15
|
||||
color 11:locate 17,AnfLocX+1:print txt$:delay .15
|
||||
color 15:locate 17,AnfLocX+1:print txt$
|
||||
7 Call MakeMenu (3,3,ColAttr%(11,1),ColAttr%(0,3),4,4,2,1,3,Item$())
|
||||
if CurntPos%=0 then ag=0:goto BreakItUp
|
||||
if CurntPos%=1 and right$(Item$(1),17)<>"[nicht vorhanden]" then ag=0:gosub PF2:goto 20 else ag=1:goto 7
|
||||
if CurntPos%=2 and right$(Item$(2),17)<>"[nicht vorhanden]" then ag=0:gosub PF3:goto 20 else ag=1:goto 7
|
||||
if CurntPos%=3 and right$(Item$(3),17)<>"[nicht vorhanden]" then ag=0:gosub PCP:goto 20 else ag=1:goto 7
|
||||
20 if ag=0 then Call RemoveWindow
|
||||
goto ChangeWININI
|
||||
|
||||
CheckForPresence:
|
||||
open "I",#1,"C:\WINDOWS\WIN.INI"
|
||||
10 if eof(1) then close #1:return
|
||||
line input#1,dummy$
|
||||
if left$(dummy$,1)="[" then
|
||||
tit$=""
|
||||
for dummy=2 to 80
|
||||
if mid$(dummy$,dummy,1)="]" then exit for else tit$=tit$+mid$(dummy$,dummy,1)
|
||||
next dummy
|
||||
else
|
||||
goto 10
|
||||
end if
|
||||
if tit$=Title$ then Item$(test)=ProgInfo$:close #1:return else Item$(test)=ProgInfo$+" [nicht vorhanden]":goto 10
|
||||
|
||||
PF2:
|
||||
Title$="PhotoFinish"
|
||||
ProgInfo$="Photo Finish 2.0"
|
||||
PickInfo$=lcase$("Pick")
|
||||
return
|
||||
|
||||
PF3:
|
||||
Title$="Photo Finish 3.0"
|
||||
ProgInfo$="Photo Finish 3.0"
|
||||
PickInfo$=lcase$("Pick")
|
||||
return
|
||||
|
||||
PCP:
|
||||
Title$="PC Paintbrush"
|
||||
ProgInfo$="PC Paintbrush 1.0"
|
||||
PickInfo$=lcase$("Pick")
|
||||
return
|
||||
|
||||
ChangeWININI:
|
||||
call MakeWindow(5,5,15,70,ColAttr%(14,1),1,4,1)
|
||||
WinTit$="[Editing C:\WINDOWS\WIN.INI]ÄÄÄ[Mode: "+Title$+"]"
|
||||
call TitleWindow(1,WinTit$)
|
||||
per%=0
|
||||
color 14,1
|
||||
locate 7,8:print"Erstelle Sicherheitskopie von Ausgangs-Datei ... ";
|
||||
CopyOrd$="COPY C:\WINDOWS\WIN.INI C:\WINDOWS\WIN.PPR /V /Y >NUL"
|
||||
shell CopyOrd$
|
||||
print "OK"
|
||||
locate 8,8:print"™ffne Eingabe-Datei ... ";
|
||||
open "I",#1,"C:\WINDOWS\WIN.INI"
|
||||
print "OK"
|
||||
locate 9,8:print"™ffne Temp-Datei ... ";
|
||||
open "O",#2,"C:\WINDOWS\PPR.$$$"
|
||||
print "OK"
|
||||
zeil=1
|
||||
6 line input#1,dummy$
|
||||
if eof(1) then 5 else zeil=zeil+1:goto 6
|
||||
5 close #1:open "I",#1,"C:\WINDOWS\WIN.INI"
|
||||
locate 10,8:print "Bearbeite Temp-Datei ... "; '10,33 ist HIER
|
||||
gosub ShowGraph
|
||||
aktz=1
|
||||
3 line input#1,zei$
|
||||
if left$(zei$,1)="[" then
|
||||
tit$=""
|
||||
for g=2 to 80
|
||||
if mid$(zei$,g,1)="]" then exit for else tit$=tit$+mid$(zei$,g,1)
|
||||
next g
|
||||
per%=(aktz/zeil)*100
|
||||
gosub ShowGraph
|
||||
print#2,zei$
|
||||
locate 11,8:print"Momentane Gruppe: ";tit$
|
||||
else
|
||||
raus$=zei$
|
||||
gosub CheckForParam
|
||||
print#2,raus$
|
||||
end if
|
||||
if eof(1) then goto 4
|
||||
aktz=aktz+1
|
||||
goto 3
|
||||
4 locate 11,8:print space$(64)
|
||||
locate 11,8:print"Schlieáe Eingabe-Datei ... ";
|
||||
close #1
|
||||
print"OK"
|
||||
locate 12,8:print"Schlieáe Temp-Datei ... ";
|
||||
close #2
|
||||
print "OK"
|
||||
locate 13,8:print"L”sche alte WIN.INI ... ";
|
||||
kill "C:\WINDOWS\WIN.INI"
|
||||
print "OK"
|
||||
locate 14,8:print"Benenne Temp-Datei in WIN.INI um ... ";
|
||||
name "C:\WINDOWS\PPR.$$$" as "C:\WINDOWS\WIN.INI"
|
||||
print "OK"
|
||||
locate 16,8:print"Operation abgeschlossen!"
|
||||
delay 1
|
||||
call RemoveWindow
|
||||
color 15,0
|
||||
locate 24,1:print:print
|
||||
locate 24,1
|
||||
print"Alle Pick-Eintr„ge von ";chr$(34);Title$;chr$(34);" wurden entfernt!"
|
||||
print
|
||||
end
|
||||
|
||||
CheckForParam:
|
||||
if lcase$(left$(zei$,len(PickInfo$)+2))=PickInfo$+"1=" and tit$=Title$ then raus$=PickInfo$+"1="
|
||||
if lcase$(left$(zei$,len(PickInfo$)+2))=PickInfo$+"2=" and tit$=Title$ then raus$=PickInfo$+"2="
|
||||
if lcase$(left$(zei$,len(PickInfo$)+2))=PickInfo$+"3=" and tit$=Title$ then raus$=PickInfo$+"3="
|
||||
if lcase$(left$(zei$,len(PickInfo$)+2))=PickInfo$+"4=" and tit$=Title$ then raus$=PickInfo$+"4="
|
||||
return
|
||||
|
||||
ShowGraph:
|
||||
locate 10,57:print using"### %";per%
|
||||
locate 10,35:print"°°°°°°°°°°°°°°°°°°°°"
|
||||
locate 10,35
|
||||
for z=0 to per%/5
|
||||
if tst=1 then print "²"; else tst=1
|
||||
next z
|
||||
return
|
||||
|
||||
BreakItUp:
|
||||
locate 24,1:print:print
|
||||
call MakeWindow(10,27,5,26,ColAttr%(14,1),5,4,2)
|
||||
call TitleWindow(1,"[Information]")
|
||||
color 12,1:locate 12,29:print"Programm abgebrochen !"
|
||||
if command$="skip" or command$="SKIP" then locate 24,1:end
|
||||
delay 1.75
|
||||
call RemoveWindow
|
||||
locate 24,1:end
|
||||
106
dfvnc.bas
Normal file
106
dfvnc.bas
Normal file
@ -0,0 +1,106 @@
|
||||
ON ERROR GOTO FEHL
|
||||
color 15
|
||||
print"Dark Forces Voice Name Changer (DFVNC) v1.00"
|
||||
print" written by RoboCop INDUSTRIES"
|
||||
color 7
|
||||
PARA$=COMMAND$
|
||||
IF PARA$="+4933223198 NUM2NAM" THEN GOTO NumbersToNames
|
||||
IF PARA$="+4933223198 NAM2NUM" THEN GOTO NamesToNumbers
|
||||
GOTO Syntax
|
||||
FEHL:
|
||||
print
|
||||
print"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
|
||||
print"!! WARNUNG !!"
|
||||
print"!! Ein Fehler ist aufgetreten !!"
|
||||
print"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
|
||||
goto GanzEnde
|
||||
|
||||
NumbersToNames:
|
||||
print"Gew„hlte Funktion: ";:color 14:print"Nummer ==> Name"
|
||||
color 7
|
||||
OPEN "I",#1,"NAMES.LST"
|
||||
OPEN "O",#2,"DFVNC.LOG"
|
||||
on error goto FEHLER
|
||||
PRINT#2,"þ LOG-Datei vom Dark Forces Voice Name Changer v1.00"
|
||||
print#2,"þ von RoboCop INDUSTRIES"
|
||||
print#2,"þ"
|
||||
print#2,"þ Gew„hlte Funktion: NUM2NAM"
|
||||
print#2,"---------------------------------------------------"
|
||||
X=1
|
||||
1 line input#1,FIL$
|
||||
x$=mid$(str$(x),2,20)+".VOC"
|
||||
print"Benenne ";x$;" in ";FIL$;" um ... ";
|
||||
print#2,X$;" ===> ";FIL$;" ... ";
|
||||
name x$ as fil$
|
||||
print "OK"
|
||||
print#2,"OK"
|
||||
x=x+1
|
||||
if eof(1) then
|
||||
print#2,"þ <EOLF - End Of List File >"
|
||||
goto Ende
|
||||
end if
|
||||
goto 1
|
||||
|
||||
NamesToNumbers:
|
||||
print"Gew„hlte Funktion: ";:color 14:print"Name ==> Nummer"
|
||||
color 7
|
||||
OPEN "I",#1,"NAMES.LST"
|
||||
OPEN "O",#2,"DFVNC.LOG"
|
||||
ON ERROR GOTO FEHLER
|
||||
PRINT#2,"þ LOG-Datei vom Dark Forces Voice Name Changer v1.00"
|
||||
print#2,"þ von RoboCop INDUSTRIES"
|
||||
print#2,"þ"
|
||||
print#2,"þ Gew„hlte Funktion: NAM2NUM"
|
||||
print#2,"---------------------------------------------------"
|
||||
X=1
|
||||
2 line input#1,FIL$
|
||||
x$=MID$(str$(x),2,20)+".VOC"
|
||||
print"Benenne ";FIL$;" in ";X$;" um ... ";
|
||||
print#2,FIL$;" ===> ";X$;" ... ";
|
||||
name fil$ as x$
|
||||
print "OK"
|
||||
print#2,"OK"
|
||||
x=x+1
|
||||
if eof(1) then
|
||||
print#2,"þ <EOLF - End Of List File >"
|
||||
goto Ende
|
||||
end if
|
||||
goto 2
|
||||
|
||||
FEHLER:
|
||||
print#2,""
|
||||
print#2,"==================================================="
|
||||
PRINT#2," !!!WARNUNG!!!"
|
||||
print#2,"Ein unbekannter Fehler ist aufgetreten! Vielleicht"
|
||||
print#2,"haben Sie die FALSCHE FUNKTION gew„hlt. Wenn es das"
|
||||
print#2,"nicht war, k”nnen wir Ihnen auch nicht helfen."
|
||||
print#2,"==================================================="
|
||||
color 12
|
||||
print
|
||||
print"==================================================="
|
||||
PRINT" !!!WARNUNG!!!"
|
||||
print"Ein unbekannter Fehler ist aufgetreten! Vielleicht"
|
||||
print"haben Sie die FALSCHE FUNKTION gew„hlt. Wenn es das"
|
||||
print"nicht war, k”nnen wir Ihnen auch nicht helfen."
|
||||
print"==================================================="
|
||||
color 7
|
||||
goto GanzEnde
|
||||
|
||||
Syntax:
|
||||
print
|
||||
print"Syntax: DFVNC [Serialnummer] [Funktion]
|
||||
print
|
||||
print" Serialnummer - Ihre Serialnummer"
|
||||
print" Funktion - gew<65>nschte Funktion:"
|
||||
print" NUM2NAM - Nummern zu Namen"
|
||||
print" (z.B.: 1.VOC => DOOR2-1.VOC, ...)"
|
||||
print" NAM2NUM - Namen zu Nummern"
|
||||
print" (z.B.: DOOR2-2.VOC => 2.VOC, ...)"
|
||||
print
|
||||
goto GanzEnde
|
||||
|
||||
Ende:
|
||||
print#2,"þ Programm beendet."
|
||||
|
||||
GanzEnde:
|
||||
|
||||
71
dostrend.bas
Normal file
71
dostrend.bas
Normal file
@ -0,0 +1,71 @@
|
||||
cls
|
||||
color 15
|
||||
print"ððð DOS Trend - Sortierer ððð";:color 7:print" written by"
|
||||
$INCLUDE"LOGO.INC"
|
||||
color 15:print
|
||||
if command$="" then goto Syntax
|
||||
fle$=command$
|
||||
print"Sortiere Eingabedatei ... ";
|
||||
dos$="sort <"+fle$+" >temp.$$$"
|
||||
shell dos$
|
||||
print"OK"
|
||||
on error goto Syntax
|
||||
print"™ffne Kanal #1 ... ";
|
||||
open "I",#1,"TEMP.$$$"
|
||||
print"OK"
|
||||
on error goto
|
||||
print"™ffne Kanal #2 ... ";
|
||||
open "O",#2,"DOSTREND.OUT"
|
||||
print"OK"
|
||||
print"Schreibe Dateikopf ... ";
|
||||
print#2,"ððð DOS Trend - Sortierer ððð"
|
||||
print#2," written by RoboCop INDUSTRIES"
|
||||
print#2,""
|
||||
print#2,""
|
||||
print#2,"Folgende Programme sind sofort verf<72>gbar:"
|
||||
print#2,""
|
||||
print"OK"
|
||||
print"Beginne L”schsequenz ... ";
|
||||
x=csrlin:y=pos(0)
|
||||
locate 25,1:color 10:print"ÛÛÛÛÛÛ";
|
||||
line input#1,zle$
|
||||
2 locate 25,1:color 12:print"ÛÛÛÛÛÛ";
|
||||
print#2,zle$
|
||||
1 if eof(1) then 3
|
||||
locate 25,1:color 10:print"ÛÛÛÛÛÛ";
|
||||
line input#1,zle2$
|
||||
locate 25,1:color 14:print"ÛÛÛÛÛÛ";
|
||||
if zle2$=zle$ then goto 1 else let zle$=zle2$:goto 2
|
||||
3 locate 25,1:color 15:print" ";
|
||||
locate x,y:print"OK"
|
||||
print"Schlieáe Kanal #1 ... ";
|
||||
close #1
|
||||
print"OK"
|
||||
print"Schlieáe Kanal #2 ... ";
|
||||
close #2
|
||||
print"OK"
|
||||
print"L”sche TEMP.$$$ Datei ... ";
|
||||
kill "temp.$$$"
|
||||
shell "echo .>temp.$$$"
|
||||
kill "temp.$$$"
|
||||
print"OK"
|
||||
print
|
||||
print"ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
|
||||
print"º Die Liste befindet sich º"
|
||||
print"º sortiert in der Datei º"
|
||||
print"º DOSTREND.OUT. º"
|
||||
print"ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
|
||||
print
|
||||
print"Programm beendet."
|
||||
goto Ende
|
||||
|
||||
Syntax:
|
||||
print
|
||||
print"Syntax: DOSTREND <Eingabedatei>"
|
||||
print
|
||||
print"Eingabedatei - Datei mit dem Inhalt der DOS Trend CDs"
|
||||
print
|
||||
goto Ende
|
||||
|
||||
Ende:
|
||||
|
||||
153
editpath.bas
Normal file
153
editpath.bas
Normal file
@ -0,0 +1,153 @@
|
||||
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 Q - 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 a$=chr$(13) then sound 800,1:delay 1/18.2:sound 1500,1:goto EditSelected
|
||||
if a$="q" or a$="Q" 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
|
||||
13
fx7700ge.bas
Normal file
13
fx7700ge.bas
Normal file
@ -0,0 +1,13 @@
|
||||
$COMPILE UNIT
|
||||
sub Drawfx
|
||||
screen 7
|
||||
for z=10 to 107
|
||||
pset (z,10),7
|
||||
pset (z,75),7
|
||||
next z
|
||||
for z=10 to 75
|
||||
pset (10,z),7
|
||||
pset (107,z),7
|
||||
next z
|
||||
end sub
|
||||
|
||||
271
gam_mast.bas
Normal file
271
gam_mast.bas
Normal file
@ -0,0 +1,271 @@
|
||||
$link "text.obj"
|
||||
dim x(100)
|
||||
dim title$(100)
|
||||
dim file$(100)
|
||||
declare sub putchar(integer,integer,integer,integer,string)
|
||||
noz=0
|
||||
gosub Logo
|
||||
1 a$=inkey$:if a$="" then 1
|
||||
screen 0,0,0
|
||||
12 width 40
|
||||
color 14:print"*** GAME * MASTER ***"
|
||||
color 11:print" written by Markus Birth"
|
||||
print
|
||||
color 15
|
||||
print"W„hlen Sie ein System:"
|
||||
print
|
||||
print" System Anzahl Tips"
|
||||
msk$="*.MD_":gosub GetFileNum
|
||||
MDNum=filenum
|
||||
print" [M]ega Drive ";MDNum
|
||||
msk$="*.TIP":gosub GetFileNum
|
||||
PCNum=filenum
|
||||
msk$="*.HEX":gosub GetFileNum
|
||||
PCNum=PCNum+filenum
|
||||
msk$="*.ADV":gosub GetFileNum
|
||||
PCNum=PCNum+filenum
|
||||
msk$="*.COD":gosub GetFileNum
|
||||
PCNum=PCNum+filenum
|
||||
print" [P]C ";PCNum
|
||||
print" [E]nde"
|
||||
print
|
||||
print"Geben Sie einen Buchstaben ein: ";
|
||||
2 a$=inkey$:if A$="" then 2
|
||||
if (a$="m" or a$="M") and MDNum>0 then print "M":gosub Roger:goto MegaDrive
|
||||
if (A$="p" or a$="P") and PCNum>0 then print "P":gosub Roger:goto PC
|
||||
if a$="e" or a$="E" then print "E":gosub Roger:goto Ende
|
||||
gosub Signal
|
||||
goto 2
|
||||
|
||||
MegaDrive:
|
||||
cls
|
||||
width 80
|
||||
color 15
|
||||
print"Zu folgenden Spielen existiert ein Text: (Auswahl mit 8/2/RET/ESC)"
|
||||
x=0
|
||||
'********* MDGetName
|
||||
x=x+1
|
||||
dat$=dir$("*.md_")
|
||||
3 open "I",#1,dat$
|
||||
file$(x)=dat$
|
||||
line input #1, title$(x)
|
||||
close #1
|
||||
x=x+1
|
||||
dat$=dir$
|
||||
if dat$="" then mx=x-1:a=1:goto 4
|
||||
goto 3
|
||||
|
||||
4 for f=a to mx
|
||||
if f+y>21 then more=1:exit for
|
||||
locate f+y+2,1
|
||||
print title$(f)
|
||||
next f
|
||||
if x=0 or x>21 then x=1
|
||||
'************ MDPrintItOut
|
||||
6 locate x+y+2,1:color 0,7:print title$(x);space$(80-len(title$(x)))
|
||||
if oldx<>0 then mem=oldx:oldx=0:goto 10
|
||||
a$=inkey$:if a$="" then 6
|
||||
10 locate x+y+2,1:color 15,0:print title$(x);space$(80-len(title$(x)))
|
||||
altx=x
|
||||
if mem<>0 then x=mem:mem=0
|
||||
if a$=chr$(27) then gosub Roger:goto 12
|
||||
if x<mx and (a$="2" or a$=chr$(34)) then x=x+1:gosub Roger
|
||||
if x>20 and mx>21 and a$="2" or a$=chr$(34) then a=a+1:y=y-1:x=x+1:gosub Roger:goto 4
|
||||
if x>=2 and (a$="8" or a$="(") then x=x-1:gosub Roger
|
||||
if a$=chr$(13) then gosub ReadyBeep:goto 7
|
||||
if altx=x then gosub Signal
|
||||
goto 6
|
||||
'********* MDGotIt
|
||||
7 num=x
|
||||
file$=file$(x)
|
||||
bez$=title$(x)
|
||||
cls:color 15
|
||||
print bez$:color 7
|
||||
print
|
||||
print"[1] Ansehen"
|
||||
print"[2] Editieren"
|
||||
fill$=mid$(str$(num),2,5)
|
||||
8 if len(fill$)<5 then fill$="0"+fill$:goto 8 else FUCK=0
|
||||
sav$="GM_"+fill$+".DAT"
|
||||
print"[3] Abspeichern als ";sav$
|
||||
print"[4] Ausdrucken auf PRN"
|
||||
print"[5] L™SCHEN"
|
||||
print:color 15
|
||||
print"[6] Zur<75>ck":color 7
|
||||
print
|
||||
print"Geben Sie eine Zahl ein: "
|
||||
9 a$=inkey$:if a$="" then 9
|
||||
if a$="1" or a$="!" then goto MDView
|
||||
if a$="2" or a$=chr$(34) then goto MDEdit
|
||||
if a$="3" then goto MDSave
|
||||
if a$="4" or a$="$" then goto MDPrint
|
||||
if a$="5" or a$="%" then gosub Roger:goto MDKill
|
||||
if a$="6" or a$="&" then oldx=num:gosub Roger:goto MegaDrive
|
||||
goto 9
|
||||
|
||||
MDView:
|
||||
cls
|
||||
shl$="wpview "+file$
|
||||
gosub ReadyBeep
|
||||
shell shl$
|
||||
oldx=num
|
||||
goto MegaDrive
|
||||
|
||||
MDEdit:
|
||||
cls
|
||||
shl$="ncedit "+file$
|
||||
gosub ReadyBeep
|
||||
shell shl$
|
||||
oldx=num-1
|
||||
goto MegaDrive
|
||||
|
||||
MDSave:
|
||||
cls
|
||||
print"Speichere '";bez$;"' in ";chr$(34);sav$;chr$(34);" ... ";
|
||||
shl$="copy "+file$+" "+sav$+" >NUL"
|
||||
shell shl$
|
||||
print"OK"
|
||||
oldx=num
|
||||
gosub ReadyBeep
|
||||
goto MegaDrive
|
||||
|
||||
MDPrint:
|
||||
cls
|
||||
print"Drucke '";bez$;"' nach LPT1 ... ";
|
||||
shl$="copy "+file$+" LPT1 >NUL"
|
||||
shell shl$
|
||||
print"OK"
|
||||
oldx=num
|
||||
gosub ReadyBeep
|
||||
goto MegaDrive
|
||||
|
||||
MDKill:
|
||||
cls
|
||||
print"Wollen Sie die Datei '";file$;"' mit den Tips f<>r"
|
||||
print"'";bez$;"'"
|
||||
input"l”schen (Ja/n)? ",ans$
|
||||
if ans$="Ja" or ans$="ja" then goto MDKillItNow
|
||||
oldx=num
|
||||
goto MegaDrive
|
||||
MDKillItNow:
|
||||
print
|
||||
print"L”sche '";file$;"' ... ";
|
||||
kill file$
|
||||
print "OK"
|
||||
gosub ReadyBeep
|
||||
goto MegaDrive
|
||||
|
||||
PC:
|
||||
|
||||
end
|
||||
|
||||
Signal:
|
||||
for z=1 to 3
|
||||
sound 1000,1.0
|
||||
delay 1.5/18.2
|
||||
next z
|
||||
return
|
||||
|
||||
Roger:
|
||||
sound 1200,1
|
||||
return
|
||||
|
||||
Logo:
|
||||
screen 9
|
||||
color 15,0
|
||||
line (179,13)-(36,13),15
|
||||
line -(36,135),15
|
||||
line -(180,135),15
|
||||
line -(180,74),15
|
||||
line -(114,74),15
|
||||
line -(114,94),15
|
||||
line -(148,94),15
|
||||
line -(148,112),15
|
||||
line -(66,112),15
|
||||
line -(66,37),15
|
||||
line -(180,37),15
|
||||
line -(180,13),15
|
||||
line (194,135)-(194,13),15
|
||||
line -(292,13),15
|
||||
line -(292,135),15
|
||||
line -(261,135),15
|
||||
line -(261,92),15
|
||||
line -(226,92),15
|
||||
line -(226,135),15
|
||||
line -(194,135),15
|
||||
line (226,64)-(261,33),15,b
|
||||
line (305,135)-(305,13),15
|
||||
line -(352,13),15
|
||||
line -(390,72),15
|
||||
line -(417,13),15
|
||||
line -(467,13),15
|
||||
line -(467,135),15
|
||||
line -(438,135),15
|
||||
line -(438,37),15
|
||||
line -(403,107),15
|
||||
line -(375,107),15
|
||||
line -(334,37),15
|
||||
line -(334,135),15
|
||||
line -(305,135),15
|
||||
line (479,135)-(479,13),15
|
||||
line -(607,13),15
|
||||
line -(607,40),15
|
||||
line -(522,40),15
|
||||
line -(522,107),15
|
||||
line -(607,107),15
|
||||
line -(607,135),15
|
||||
line -(479,135),15
|
||||
line (522,65)-(569,85),15,b
|
||||
if noz<>1 then sound 130.81,54.6
|
||||
call putchar(480,140,15,14,"**** MASTER ****")
|
||||
if noz<>1 then delay 54.6/18.2
|
||||
if noz<>1 then sound 174.61,36.4
|
||||
call putchar(36,4,3,8,"(C)1995 by RoboCop INDUSTRIES")
|
||||
if noz<>1 then delay 36.4/18.2
|
||||
if noz<>1 then sound 220,36.4
|
||||
call putchar(150,317,15,8,"----- Bitte Taste dr<64>cken, -----")
|
||||
if noz<>1 then delay 36.4/18.2
|
||||
if noz<>1 then sound 523.25,4
|
||||
if noz<>1 then delay 3/18.2
|
||||
paint (165,113),14,15
|
||||
paint (212,86),12,15
|
||||
paint (323,86),10,15
|
||||
if noz<>1 then sound 493.88,36.4
|
||||
paint (505,78),10,15
|
||||
paint (531,78),10,15
|
||||
paint (508,93),8,15
|
||||
paint (536,81),8,15
|
||||
call putchar(150,317,15,8,"----- Bitte Taste dr<64>cken, jetzt -----")
|
||||
if noz<>1 then 14
|
||||
gosub ReadyBeep
|
||||
14 return
|
||||
|
||||
ReadyBeep:
|
||||
sound 800,1
|
||||
delay 1.5/18.2
|
||||
sound 1000,1
|
||||
delay 1.5/18.2
|
||||
sound 1200,1
|
||||
return
|
||||
|
||||
GetFileNum:
|
||||
filenum=0
|
||||
x=0
|
||||
dat$=dir$(msk$)
|
||||
if dat$="" then return
|
||||
x=x+1
|
||||
5 dat$=dir$
|
||||
if dat$="" then
|
||||
filenum=x
|
||||
return
|
||||
else
|
||||
x=x+1
|
||||
goto 5
|
||||
end if
|
||||
|
||||
Ende:
|
||||
noz=1
|
||||
gosub Logo
|
||||
11 a$=inkey$:if a$="" then 11 else gosub Roger
|
||||
screen 0,0,0
|
||||
end
|
||||
6
graftest/2dgraph.bas
Normal file
6
graftest/2dgraph.bas
Normal file
@ -0,0 +1,6 @@
|
||||
screen 12
|
||||
cls
|
||||
for x=0 to 20
|
||||
y=int(x)
|
||||
pset (x,y)
|
||||
next
|
||||
6
graftest/2dgraph1.bas
Normal file
6
graftest/2dgraph1.bas
Normal file
@ -0,0 +1,6 @@
|
||||
screen 12
|
||||
cls
|
||||
for x=0 to 20
|
||||
y=int(x)
|
||||
pset (x,y)
|
||||
next
|
||||
13
graftest/2dgraph2.bas
Normal file
13
graftest/2dgraph2.bas
Normal file
@ -0,0 +1,13 @@
|
||||
screen 12
|
||||
cls
|
||||
maxx=640
|
||||
maxy=480
|
||||
line (maxx/2,0)-(maxx/2,maxy)
|
||||
line (0,maxy/2)-(maxx,maxy/2)
|
||||
pset (maxx/2,maxy/2)
|
||||
for l=1 to 125
|
||||
y=l^2
|
||||
x=(maxx/2)+l
|
||||
y=(maxy/2)-y
|
||||
line -(x,y)
|
||||
next l
|
||||
23
graftest/3dline.bas
Normal file
23
graftest/3dline.bas
Normal file
@ -0,0 +1,23 @@
|
||||
cls
|
||||
screen 12
|
||||
delay 1
|
||||
def fn y(x,z)=exp(-x^2-z^2)
|
||||
puanz=15 'Anzahl Punkte pro Linie
|
||||
wz=1 'Winkel von Z- zur X-Achse
|
||||
masz=1 'Stauch/Streckfaktor f<>r Z-Achsenteilung
|
||||
projzx=cos(wz)*masz:projzy=sin(wz)*masz 'Projektion Z-Achse
|
||||
xuntg=-3:xobg=3:xl=xobg-xuntg
|
||||
yuntg=0:yobg=1:yl=yobg-yuntg
|
||||
zuntg=-3:zobg=3:zl=zobg-zuntg
|
||||
masx=5000/(xl+zl*projzx)
|
||||
masy=5000/(yl+zl*projzy)
|
||||
for z=zobg to zuntg step -zl/puanz
|
||||
pset ((zobg-z)*projzx*masx,(fn y(xuntg,zobg)-yuntg-projzy*(z-zobg))*masy)
|
||||
for x=xuntg to xobg step xl/puanz
|
||||
y=fn y(x,z)
|
||||
xk=(x-xuntg-projzx*(z-zobg))*masx
|
||||
yk=(y-yuntg-projzy*(z-zobg))*masy
|
||||
line -(xk,yk)
|
||||
pset (xk,yk)
|
||||
next x
|
||||
next z
|
||||
31
graftest/graftest.bas
Normal file
31
graftest/graftest.bas
Normal file
@ -0,0 +1,31 @@
|
||||
cls
|
||||
screen 12
|
||||
call WriteLn("Calculating and Drawing Graphic, please wait ... ( )",30,80)
|
||||
for z=400 to 480 step 2
|
||||
pset (0,z),0
|
||||
for s=1 to 640 step 2
|
||||
if st=0 then st=1
|
||||
st=st+.01
|
||||
if st>=5 then st=1
|
||||
locate 30,64
|
||||
if st>=1 then st$="-"
|
||||
if st>=2 then st$="\"
|
||||
if st>=3 then st$="|"
|
||||
if st>=4 then st$="/"
|
||||
print st$;
|
||||
anz$=" Aktuelle Pos.: Z"+mid$(str$(z),2,5)+" S"+mid$(str$(s),2,5)+" Farbe: "+str$(farbe)+" "
|
||||
call WriteLn(anz$,29,80)
|
||||
farbe=0 'farbe=int(rnd(1)*256)+1
|
||||
pset (s,z),farbe 'line -(s,z),farbe
|
||||
next s
|
||||
next z
|
||||
locate 1,80:print" ";
|
||||
call WriteLn("Graphic contruction complete.",30,80)
|
||||
goto Ende
|
||||
|
||||
sub WriteLn (s$,x,ymax) SHARED PUBLIC
|
||||
locate x,(ymax/2)-len(s$)/2
|
||||
print s$;
|
||||
end sub
|
||||
|
||||
Ende:
|
||||
64
graftest/grftest2.bas
Normal file
64
graftest/grftest2.bas
Normal file
@ -0,0 +1,64 @@
|
||||
cls
|
||||
screen 12
|
||||
locate 1,1
|
||||
1 x1=int(rnd(1)*640)
|
||||
x2=int(rnd(1)*640)
|
||||
y1=int(rnd(1)*480)
|
||||
y2=int(rnd(1)*480)
|
||||
far=int(rnd(1)*256)
|
||||
line (x1,y1)-(x2,y2),far,BF
|
||||
zahl=zahl+1
|
||||
locate 30,1:print"Anzahl Rechtecke: ";zahl;
|
||||
if inkey$=" " then 2
|
||||
goto 1
|
||||
|
||||
2 REM Fucking Hostile is back
|
||||
|
||||
goto Fade
|
||||
'goto RoboCop
|
||||
'goto ARoboCop
|
||||
|
||||
RoboCop:
|
||||
for x=0 to 480 step 2
|
||||
line (0,x)-(640,x),0
|
||||
next x
|
||||
goto Ende
|
||||
|
||||
ARoboCop:
|
||||
|
||||
' 1 Zeile Schrift = 16 Pixel
|
||||
' 1 Buchstabe = 8 Pixel
|
||||
'=> Schrift = 8x16
|
||||
|
||||
z=50
|
||||
for x=0 to 640 step 2
|
||||
line (x,0)-(x,480),0
|
||||
next x
|
||||
goto Ende
|
||||
|
||||
Fade:
|
||||
an=.5
|
||||
st=1
|
||||
for g=1 to 9
|
||||
an=an*2
|
||||
st=st*2
|
||||
gosub DoIt
|
||||
9 a$=inkey$:if a$="" then 9
|
||||
if a$="r" or a$="R" then exit for
|
||||
next g
|
||||
|
||||
goto Ende
|
||||
|
||||
DoIt:
|
||||
z=an-st
|
||||
s=an-st
|
||||
6 REM FuckHost
|
||||
z=z+st
|
||||
s=s+st
|
||||
if z>480 then 7
|
||||
line (0,z)-(640,z),0
|
||||
7 line (s,0)-(s,480),0
|
||||
if s>640 and z>480 then return
|
||||
goto 6
|
||||
|
||||
Ende:
|
||||
48
graftest/grftest3.bas
Normal file
48
graftest/grftest3.bas
Normal file
@ -0,0 +1,48 @@
|
||||
cls
|
||||
open "O",#1,"GRFTEST3.OUT"
|
||||
print#1,"OUTPUT-Datei von GRFTEST3.BAS"
|
||||
print#1,""
|
||||
print#1,"Die Datei hat folgendes Format:"
|
||||
print#1,"X : Zufalls X-Koordinate"
|
||||
print#1,"Y : Zufalls Y-Koordinate"
|
||||
print#1,"0/1: X,Y schon belegt NEIN/JA"
|
||||
print#1,"# : Nummer der schon belegten Pixel (640x480)"
|
||||
print#1,""
|
||||
open "O",#2,"GRFTEST3.OU2"
|
||||
print#2,"OUTPUT-Datei von GRFTEST3.BAS"
|
||||
print#2,""
|
||||
print#2,"Die Datei hat folgendes Format:"
|
||||
print#2,"0/1: Pixel schon belegt NEIN/JA"
|
||||
print#2,""
|
||||
dim o(640)
|
||||
dim p(480)
|
||||
screen 12
|
||||
locate 1,1
|
||||
1 x1=int(rnd(1)*640)
|
||||
x2=int(rnd(1)*640)
|
||||
y1=int(rnd(1)*480)
|
||||
y2=int(rnd(1)*480)
|
||||
far=int(rnd(1)*256)
|
||||
line (x1,y1)-(x2,y2),far,BF
|
||||
if inkey$=" " then 2
|
||||
goto 1
|
||||
|
||||
2 REM Fucking Hostile is back
|
||||
for g=1 to 640*480
|
||||
randomize timer
|
||||
5 x=int(rnd(1)*640)
|
||||
y=int(rnd(1)*480)
|
||||
if inkey$=chr$(27) then end
|
||||
if o(x)=255 and p(y)=255 and o(x+1)=255 and p(y+1)=255 then
|
||||
locate 30,1:print using "X ### Y ### 0/1:# _#######/307200";x;y;0;g;
|
||||
print#1,using"X ### Y ### 0/1:# _#######/307200";x;y;0;g
|
||||
print#2,"0";
|
||||
goto 5
|
||||
else
|
||||
line (x,y)-(x+1,y+1),0,BF:o(x)=255:p(y)=255:o(x+1)=255:p(y+1)=255
|
||||
locate 30,1:print using "X ### Y ### 0/1:# _#######/307200";x;y;1;g;
|
||||
print#1,using "X ### Y ### 0/1:# _#######/307200";x;y;1;g
|
||||
print#2,"1";
|
||||
end if
|
||||
next g
|
||||
|
||||
45
hallo.bas
Normal file
45
hallo.bas
Normal file
@ -0,0 +1,45 @@
|
||||
1 'Programm: HALLO.BAS
|
||||
2 'Funktion: Sprachausgabe mit BASIC
|
||||
3 'Sprache : GW-Basic
|
||||
4 'Autor : John Lupton
|
||||
6 input r:
|
||||
7 if r>0 then z=int(1193280! / R)
|
||||
10 f=1850:i=97:dim d(f):b=.2
|
||||
20 out 67,182:out 66,z and 255:
|
||||
21 out 66,z\256:h=inp(i) or 3:
|
||||
22 out i,h:l=inp(i) and 252:
|
||||
23 out i,l
|
||||
30 key(1) on: key(2) on: key(5) on:
|
||||
31 key(6) on: on key(1) gosub 200:
|
||||
32 on key(2) gosub 210:
|
||||
33 on key(5) gosub 220:
|
||||
34 on key(6) gosub 230
|
||||
40 while a>-1
|
||||
50 read a:if a=0 then a=1
|
||||
60 d(a+a1)=1:a1=a1+a
|
||||
70 wend
|
||||
80 while inkey$=""
|
||||
90 for t=1 to f step b
|
||||
100 if d(t) then out i,h
|
||||
110 if s>0 then for n=2 to s:next n
|
||||
120 out i,l
|
||||
130 next t
|
||||
140 wend
|
||||
150 out i,l:end
|
||||
200 s=s-2
|
||||
210 s=s+1:return
|
||||
220 b=b+.005:return
|
||||
230 b=b-.005:if b<.005 then b=.005
|
||||
240 return
|
||||
500 data 374,21,4,,5,15,,4,6,6,,9,4,,5,,12,
|
||||
501 data 4,6,11,,4,,,4,,10,5,,5,,8,,5,6,
|
||||
502 data 8,,5,,5,,8,6,,,6,6,,,6,,,9,,,,8,
|
||||
503 data 9,3,8,12,,19,,,56,24,11,28,,,9,,9,
|
||||
504 data ,,7,2,10,,2,6,3,9,,,,6,,,10,,,,7,,
|
||||
505 data 11,,,7,,11,,10,11,,9,,10,,7,,13,,
|
||||
510 data 7,,12,,,7,,12,,8,,12,,8,,12,,8,,11
|
||||
511 data ,,,7,,,11,,,7,,,10,,,8,,11,,,8,,10
|
||||
512 data ,,,8,,,10,,9,,10,,,8,,,9,,,8,,,9,,
|
||||
513 data ,9,,10,,9,,10,,9,,10,,5,5,10,,,9,,
|
||||
514 data 9,,,9,,10,,,9,11,,,20,,,,21,,14,8,
|
||||
515 data ,,14,9,,,23,,,27,,33,-1
|
||||
89
hd-data.bas
Normal file
89
hd-data.bas
Normal file
@ -0,0 +1,89 @@
|
||||
color 1,1
|
||||
cls
|
||||
color 14,1
|
||||
locate 5,5:print " HEADS "
|
||||
locate 7,5:print " CYLINDERS "
|
||||
locate 9,5:print " SECTORS "
|
||||
locate 12,5:print" SIZE "
|
||||
locate 17,5:print"LANDING ZONE "
|
||||
color 11,1
|
||||
locate 9,27:print"* 512 Bytes"
|
||||
locate 12,32:print"Bytes"
|
||||
locate 13,32:print"kBytes"
|
||||
locate 14,32:print"MBytes"
|
||||
locate 15,32:print"GBytes"
|
||||
color 15,1
|
||||
locate 5,40:print "Up/Down - Switch between HEADS,"
|
||||
locate 6,40:print " CYLINDERS and SECTORS"
|
||||
locate 7,40:print "Right/Left - Increase / decrease"
|
||||
locate 8,40:print " selected value"
|
||||
locate 9,40:print "[ENTER] - enter value directly"
|
||||
locate 10,40:print"[ESC]ape - Quit this nice proggy"
|
||||
color 16,7:locate 2,27:print" HARDDISK-SIZE-CALCULATOR "
|
||||
gosub PrintItOut
|
||||
1 a$=inkey$:if a$="" then 1
|
||||
if a$=chr$(27) then goto Ende
|
||||
if mid$(a$,2,1)="H" and active>1 then active=active-1
|
||||
if mid$(a$,2,1)="P" and active<3 then active=active+1
|
||||
if active=1 then value=heads
|
||||
if active=2 then value=cylinders
|
||||
if active=3 then value=sectors
|
||||
if mid$(a$,2,1)="M" and value<999999 then Incr Value
|
||||
if mid$(a$,2,1)="K" and value>0 then Decr Value
|
||||
if a$=chr$(13) and active<>0 then gosub InputIt
|
||||
if active=1 then heads=value
|
||||
if active=2 then cylinders=value
|
||||
if active=3 then sectors=value
|
||||
gosub PrintItOut
|
||||
goto 1
|
||||
|
||||
InputIt:
|
||||
locate 19,10:color 14,1:print"Enter the new value for ";
|
||||
if active=1 then print"HEADS";
|
||||
if active=2 then print"CYLINDERS";
|
||||
if active=3 then print"SECTORS";
|
||||
print " :";
|
||||
oldvalue=value
|
||||
color 11,1:input "",value
|
||||
if value=0 then value=oldvalue
|
||||
if value>999999 then value=oldvalue
|
||||
locate 19,10:print space$(70);
|
||||
return
|
||||
|
||||
PrintItOut:
|
||||
color 0,3
|
||||
locate 5,19:print using "######";heads
|
||||
locate 7,19:print using "######";cylinders
|
||||
locate 9,19:print using "######";sectors
|
||||
color 11+16,1
|
||||
if active=0 then goto 2
|
||||
if active=1 then l=5
|
||||
if active=2 then l=7
|
||||
if active=3 then l=9
|
||||
locate 5,18:if l=5 then print chr$(16); else print " ";
|
||||
locate 7,18:if l=7 then print chr$(16); else print " ";
|
||||
locate 9,18:if l=9 then print chr$(16); else print " ";
|
||||
locate 5,25:if l=5 then print chr$(17); else print " ";
|
||||
locate 7,25:if l=7 then print chr$(17); else print " ";
|
||||
locate 9,25:if l=9 then print chr$(17); else print " ";
|
||||
2 color 0,7
|
||||
locate 17,18:print using "#######";cylinders+1
|
||||
sizeb=heads*cylinders*sectors*512
|
||||
sizek=sizeb/1024
|
||||
sizem=sizek/1024
|
||||
sizeg=sizem/1024
|
||||
locate 12,18
|
||||
if sizeb<9999999999 then print using ",,,,,,,,,,,,,";sizeb else color 12,7:print"* OVERFLOW * ":color 0,7
|
||||
locate 13,18
|
||||
if sizek<9999999999 then print using ",,,,,,,,,,,,,";sizek else color 12,7:print"* OVERFLOW * ":color 0,7
|
||||
locate 14,18
|
||||
if sizem<9999999999 then print using ",,,,,,,,,,,,,";sizem else color 12,7:print"* OVERFLOW * ":color 0,7
|
||||
locate 15,18
|
||||
if sizeg<9999999999 then print using ",,,,,,,,,,,,,";sizeg else color 12,7:print"* OVERFLOW * ":color 0,7
|
||||
return
|
||||
|
||||
Ende:
|
||||
color 7,0
|
||||
cls
|
||||
print "READY."
|
||||
end
|
||||
193
inst_xw/go.bas
Normal file
193
inst_xw/go.bas
Normal file
@ -0,0 +1,193 @@
|
||||
Start:
|
||||
color 1,1
|
||||
cls
|
||||
color 0,3
|
||||
print" X-Wing Installationsprogramm "
|
||||
color 7,0
|
||||
locate 25,1
|
||||
color 7,0:print"1";:color 0,3:print" ";
|
||||
for z=2 to 9
|
||||
color 7,0:print left$(str$(z),2);
|
||||
color 0,3:print" ";
|
||||
next z
|
||||
color 7,0:print" 10";:color 0,3:print" ";
|
||||
defint m
|
||||
def seg=0
|
||||
mseg=256*peek(207)+peek(206)
|
||||
mouse=256*peek(205)+peek(204)+2
|
||||
if mseg or (mouse-2) then mse=1 else mse=0
|
||||
if mse<>1 then 1
|
||||
def seg=mseg
|
||||
if peek(mouse-2)=207 then mse=0:goto 1
|
||||
m1%=0
|
||||
call absolute mouse(m1%,m2%,m3%,m4%)
|
||||
mse=0
|
||||
if m1=-1 then mse=1
|
||||
1 color 0,7
|
||||
locate 3,3
|
||||
if mse=1 then print" MAUSUNTERSTšTZUNG " else print" "
|
||||
locate 3,23
|
||||
if mse=1 then
|
||||
print m2%;"Tasten "
|
||||
m1=1:call absolute mouse(m1%,m2%,m3%,m4%)
|
||||
m1=10:m2=0:m3=2:m4=5:call absolute mouse(m1%,m2%,m3%,m4%)
|
||||
else
|
||||
print " "
|
||||
end if
|
||||
DriveAsk:
|
||||
locate 25,2:color 0,3:print"LW C:";
|
||||
locate 25,10:print"LW D:";
|
||||
locate 25,18:print"LW E:";
|
||||
locate 25,26:print"LW F:";
|
||||
locate 25,34:print"LW G:";
|
||||
locate 25,75:print"Ende";
|
||||
locate 5,2:color 11,1:print"Bitte dr<64>cken Sie die F-Taste mit der Nummer, die vor der Laufwerksbezeichnung"
|
||||
print" des gew<65>nschten Ziellaufwerks steht";
|
||||
if mse=1 then print" oder klicken Sie die Fl„che an." else print"."
|
||||
locate 6,2
|
||||
print"Es werden w„hrend der Installation ca. 25,5 MB sp„ter ca. 17 MB ben”tigt."
|
||||
ReadKoord1:
|
||||
if mse=0 then 2
|
||||
m1=3
|
||||
call absolute mouse(m1%,m2%,m3%,m4%)
|
||||
x=m3:y=m4:butt=m2
|
||||
2 a$=inkey$
|
||||
if a$="" and butt=0 then ReadKoord1
|
||||
f$=mid$(a$,2,1)
|
||||
lw$=""
|
||||
if f$=";" or (butt>0 and x>=0 and x<=48 and y=192) then LW$="C"
|
||||
if f$="<" or (butt>0 and x>=64 and x<=112 and y=192) then lw$="D"
|
||||
if f$="=" or (butt>0 and x>=128 and x<=176 and y=192) then lw$="E"
|
||||
if f$=">" or (butt>0 and x>=192 and x<=240 and y=192) then lw$="F"
|
||||
if f$="?" or (butt>0 and x>=256 and x<=304 and y=192) then lw$="G"
|
||||
if f$="D" or (butt>0 and x>=576 and x<=632 and y=192) then goto Beenden
|
||||
if lw$="" then ReadKoord1
|
||||
locate 5,2:color 0,1:print space$(78):print space$(79):print space$(79)
|
||||
locate 5,2:color 11,1:print"Ziellaufwerk: C D E F G"
|
||||
color 0,3
|
||||
if lw$="C" then locate 5,16:?" C "
|
||||
if lw$="D" then locate 5,20:?" D "
|
||||
if lw$="E" then locate 5,24:?" E "
|
||||
if lw$="F" then locate 5,28:?" F "
|
||||
if lw$="G" then locate 5,32:?" G "
|
||||
locate 25,2:print" ";
|
||||
locate 25,10:print" ";
|
||||
locate 25,18:print" ";
|
||||
locate 25,26:print" ";
|
||||
locate 25,34:print" ";
|
||||
locate 25,75:print" ";
|
||||
gosub MemTest
|
||||
if mry=1 then locate 5,36:color 0,3:print" OK ":goto MemOK
|
||||
if mry=0 then
|
||||
locate 9,2:color 11,1:print"Der Speicherplatz auf Laufwerk ";lw$;" reicht nicht aus."
|
||||
print" Folgende Informationen wurden ermittelt:"
|
||||
print using" þ Ben”tigt : ,,,,,,,,,,,,";17*(1024^2)
|
||||
print " þ Frei auf ";lw$;:print using": : ,,,,,,,,,,,";frei*1000
|
||||
print using" þ Noch ben”tigt: ,,,,,,,,,,,";(17*(1024^2))-(frei*1000)
|
||||
print
|
||||
print" W„hlen Sie ein anderes Laufwerk oder beenden Sie."
|
||||
goto DriveAsk
|
||||
end if
|
||||
|
||||
MemOK:
|
||||
color 11,1
|
||||
locate 9,2:print space$(78):print space$(79):print space$(79):print space$(79):print space$(79):print space$(79):print space$(79)
|
||||
locate 7,2:print"Verzeichnis : ";
|
||||
color 0,3:print"\ "
|
||||
locate 7,16:input "\",verz$
|
||||
verz$="\"+verz$
|
||||
pfad$=lw$+":"+verz$
|
||||
color 12,1:locate 9,2:print"Sollen die obigen Einstellungen verwendet werden?"
|
||||
color 0,7:locate 14,2:print" JA ";:color 8,1:?"Ü"
|
||||
color 0,7:locate 14,17:print" ŽNDERN ";:color 8,1:?"Ü"
|
||||
color 0,7:locate 14,32:print" ENDE ";:color 8,1:?"Ü"
|
||||
for z=3 to 33 step 15
|
||||
locate 15,z:print"ßßßßßßßßßßßß"
|
||||
next z
|
||||
color 0,3
|
||||
locate 25,2:print"JA";
|
||||
locate 25,10:print"ŽNDERN";
|
||||
locate 25,75:print"Ende";
|
||||
color 11,1:locate 16,2:print"Bitte F1,F2,F10 oder [ENTER] dr<64>cken";
|
||||
if mse=1 then print" oder einen Knopf oder einen Bereich":print" in der F-Leiste mit der Maus anklicken." else print"."
|
||||
ReadKoord2:
|
||||
if mse=0 then 3
|
||||
m1=3
|
||||
call absolute mouse(m1%,m2%,m3%,m4%)
|
||||
x=m3:y=m4:butt=m2
|
||||
3 a$=inkey$
|
||||
if a$="" and butt=0 then ReadKoord2
|
||||
f$=mid$(a$,2,1)
|
||||
wahl$=""
|
||||
if f$=";" or (butt>0 and x>=0 and x<=48 and y=192) or (butt>0 and x>=8 and x<=96 and y=104) then wahl$="J":c=2
|
||||
if f$="<" or (butt>0 and x>=64 and x<=112 and y=192) or (butt>0 and x>=128 and x<=216 and y=104) then wahl$="Ž":c=17
|
||||
if f$="D" or (butt>0 and x>=576 and x<=632 and y=192) or (butt>0 and x>=248 and x<=336 and y=104) then wahl$="E":c=32
|
||||
if wahl$="" then ReadKoord2
|
||||
locate 14,c:color 7,1
|
||||
print" ÜÜÜÜÜÜÜÜÜÜÜÜ"
|
||||
locate 15,c
|
||||
print" ßßßßßßßßßßßß"
|
||||
locate 16,2:print space$(79);
|
||||
locate 17,2:print space$(79);
|
||||
delay 1
|
||||
if wahl$="J" then InstallRout
|
||||
if wahl$="Ž" then Start
|
||||
if wahl$="E" then Beenden
|
||||
|
||||
InstallRout:
|
||||
mkdir pfad$
|
||||
exec$="C:\DEICE.COM "+lw$+" "+verz$
|
||||
color 15,0
|
||||
cls
|
||||
color 0,3
|
||||
print" X-Wing Installationsprogramm ";
|
||||
color 15,0
|
||||
print
|
||||
shell exec$
|
||||
goto Ende
|
||||
|
||||
Beenden:
|
||||
color 15,0
|
||||
cls
|
||||
color 0,3
|
||||
locate 1,1
|
||||
print" X-Wing Installationsprogramm ";
|
||||
color 11,1
|
||||
print"Installation abgebrochen... ";
|
||||
end
|
||||
|
||||
Ende:
|
||||
shell "Del C:\RAR.cfg >NUL"
|
||||
shell "Del C:\rar.exe >NUL"
|
||||
shell "del C:\deice.com >NUL"
|
||||
shell "del C:\go.exe >NUL"
|
||||
|
||||
color 15,0
|
||||
cls
|
||||
color 0,3
|
||||
locate 1,1
|
||||
print" X-Wing Installationsprogramm ";
|
||||
color 11,1
|
||||
print"Installation beendet... ";
|
||||
print space$(80);
|
||||
print"Viel Spaá noch mit X-Wing, B-Wing und Imperial Pursuits! ";
|
||||
print"Start von alledem mit <XWING> ";
|
||||
shell "Del c:\inst.exe >NUL"
|
||||
end
|
||||
|
||||
MemTest:
|
||||
shell"Chkdsk "+lw$+": >C:\MEMCHK.XW"
|
||||
open "I",#1,"C:\MEMCHK.XW"
|
||||
locate 5,1
|
||||
color 14,0
|
||||
4 line input#1,ZEILE$
|
||||
if mid$(zeile$,15,24)="Byte auf dem Datentr„ger" then memory=0 else goto 4
|
||||
close #1
|
||||
kill "C:\MEMCHK.XW"
|
||||
frei$=left$(zeile$,13)
|
||||
mem$=mid$(frei$,1,5)+mid$(frei$,7,3)+mid$(frei$,11,3)
|
||||
frei=val(mem$)/1000
|
||||
kbfrei=val(mem$)/(1024^2)
|
||||
if kbfrei<25.5 then mry=0
|
||||
if kbfrei>=25.5 then mry=1
|
||||
return
|
||||
5
inst_xw/install.bas
Normal file
5
inst_xw/install.bas
Normal file
@ -0,0 +1,5 @@
|
||||
shell"copy go.exe C:\go.exe >NUL"
|
||||
shell"copy deice.com C:\deice.com >NUL"
|
||||
shell"copy rar.exe C:\rar.exe >NUL"
|
||||
shell"copy rar.cfg C:\rar.cfg >NUL"
|
||||
execute "C:\go.exe"
|
||||
26
joy.bas
Normal file
26
joy.bas
Normal file
@ -0,0 +1,26 @@
|
||||
10 CLS:STRIG ON
|
||||
20 PRINT"Dies ist ein Joystick-Test f<>r den HCV 386-DX."
|
||||
30 PRINT"Dr<44>cken Sie eine Taste zum Start !!!"
|
||||
40 B$=INKEY$:IF B$="" THEN 40
|
||||
50 CLS
|
||||
60 PRINT"Left = 4-6 Right = 181-185 Up = 5-7 Down = 127-133"
|
||||
70 PRINT"Fire Button 1 = -1 Fire Button 2 = -1"
|
||||
80 LOCATE 15,30
|
||||
90 A=STICK(0):B=STICK(1)
|
||||
100 C=STRIG(1):D=STRIG(4)
|
||||
110 LOCATE 15,1
|
||||
120 PRINT " Left/Right : ";A;"Up/Down : ";B;" "
|
||||
130 LOCATE 16,1
|
||||
140 PRINT" Fire Button 1 : ";C;"Fire Button 2 : ";D;" "
|
||||
150 IF A=5 OR A=6 OR A=7 THEN LOCATE 15,1:PRINT"®®® Left"
|
||||
160 IF A=152 OR A=153 OR A=154 OR A=155 THEN LOCATE 15,60:PRINT"Right ¯¯¯"
|
||||
170 IF B=5 OR B=6 OR B=7 THEN LOCATE 15,1:PRINT"7 Up"
|
||||
180 IF B=151 OR B=152 OR B=153 OR B=154 OR B=155 THEN LOCATE 15,60:PRINT"8 Down"
|
||||
190 IF C=-1 THEN LOCATE 16,1:PRINT"6 Fire Button 1"
|
||||
200 IF D=-1 THEN LOCATE 16,61:PRINT"6 Fire Button 2"
|
||||
210 B$=INKEY$:IF B$=" " THEN 230
|
||||
220 GOTO 90
|
||||
230 PRINT"^C"
|
||||
240 PRINT"BREAK in 240"
|
||||
250 A$="Quick"
|
||||
|
||||
15
joytest.bas
Normal file
15
joytest.bas
Normal file
@ -0,0 +1,15 @@
|
||||
CLS:STRIG ON
|
||||
1 PRINT"Joystick A"
|
||||
PRINT USING"X ###";STICK(0)
|
||||
PRINT USING"Y ###";STICK(1)
|
||||
2 PRINT USING"Button A ##";STRIG(0)
|
||||
PRINT USING"Button B ##";STRIG(4)
|
||||
PRINT
|
||||
PRINT"Joystick B"
|
||||
PRINT USING"X ###";STICK(2)
|
||||
PRINT USING"Y ###";STICK(3)
|
||||
PRINT USING"Button A ##";STRIG(2)
|
||||
PRINT USING"Button B ##";STRIG(6)
|
||||
IF INKEY$=CHR$(27) THEN END
|
||||
LOCATE 1,1:GOTO 1
|
||||
|
||||
22
keypro.bas
Normal file
22
keypro.bas
Normal file
@ -0,0 +1,22 @@
|
||||
dim x$(12)
|
||||
color 15:print"Bitte dr<64>cken Sie [Prog]+[Esc] zusammen.":color 7
|
||||
for y=1 to 12
|
||||
for z=1 to 20
|
||||
1 a$=inkey$:if a$="" then 1
|
||||
if a$=chr$(27) then exit for
|
||||
x$(y)=x$(y)+a$
|
||||
next z
|
||||
next y
|
||||
input SHIT$
|
||||
print
|
||||
color 15:print"Folgende Codes wurden von der Tastatur gelesen:":color 7
|
||||
for z=1 to 12
|
||||
?x$(z)
|
||||
next z
|
||||
print
|
||||
color 15:print"Folgende Befehle m<>ssten die šbersetzung sein:":color 7
|
||||
open "O",#1,"KEYPRO.TAB"
|
||||
for z=1 to 12
|
||||
?#1,x$(z)
|
||||
next z
|
||||
|
||||
392
keyprog.bas
Normal file
392
keyprog.bas
Normal file
@ -0,0 +1,392 @@
|
||||
ver$="1.02"
|
||||
color 15:print"ððð KeyProg v";ver$;" ððð"
|
||||
print"by:"
|
||||
$INCLUDE "LOGO.INC"
|
||||
color 15
|
||||
shell"DIR C:\*.* >director.y__"
|
||||
open "I",#2,"director.y__"
|
||||
line input#2,dummy$
|
||||
line input#2,hdname$
|
||||
line input#2,hdnumb$
|
||||
close #2
|
||||
open "O",#2,"Director.y__"
|
||||
print#2,"PHYSIKALISCH GEL™SCHT!"
|
||||
close #2
|
||||
kill "director.y__"
|
||||
on error goto NotReg
|
||||
open "I",#1,"serial.num"
|
||||
on error goto
|
||||
line input#1,ser$
|
||||
line input#1,usnam$
|
||||
close #1
|
||||
for zet=1 to 11
|
||||
ser2$=ser2$+chr$(asc(mid$(ser$,zet,1))-100)
|
||||
next zet
|
||||
hdname$=right$(hdname$,11)
|
||||
hdnumb$=right$(hdnumb$,9)
|
||||
for zet=1 to len(hdname$)
|
||||
midd$=mid$(hdname$,zet,1)
|
||||
if midd$="A" then nm$="1"
|
||||
if midd$="B" then nm$="5"
|
||||
if midd$="C" then nm$="3"
|
||||
if midd$="D" then nm$="2"
|
||||
if midd$="E" then nm$="9"
|
||||
if midd$="F" then nm$="8"
|
||||
if midd$="G" then nm$="7"
|
||||
if midd$="H" then nm$="4"
|
||||
if midd$="I" then nm$="6"
|
||||
if midd$="J" then nm$="0"
|
||||
if midd$="K" then nm$="2"
|
||||
if midd$="L" then nm$="1"
|
||||
if midd$="M" then nm$="3"
|
||||
if midd$="N" then nm$="4"
|
||||
if midd$="O" then nm$="7"
|
||||
if midd$="P" then nm$="9"
|
||||
if midd$="Q" then nm$="0"
|
||||
if midd$="R" then nm$="6"
|
||||
if midd$="S" then nm$="5"
|
||||
if midd$="T" then nm$="4"
|
||||
if midd$="U" then nm$="2"
|
||||
if midd$="V" then nm$="6"
|
||||
if midd$="W" then nm$="8"
|
||||
if midd$="X" then nm$="0"
|
||||
if midd$="Y" then nm$="9"
|
||||
if midd$="Z" then nm$="5"
|
||||
if midd$="0" then nm$="1"
|
||||
if midd$="1" then nm$="0"
|
||||
if midd$="2" then nm$="3"
|
||||
if midd$="3" then nm$="2"
|
||||
if midd$="4" then nm$="5"
|
||||
if midd$="5" then nm$="4"
|
||||
if midd$="6" then nm$="7"
|
||||
if midd$="7" then nm$="6"
|
||||
if midd$="8" then nm$="9"
|
||||
if midd$="9" then nm$="8"
|
||||
if midd$="_" then nm$="3"
|
||||
if nm$="" then nm$="5"
|
||||
hdn$=hdn$+nm$
|
||||
nm$=""
|
||||
next zet
|
||||
hdnumb$=left$(hdnumb$,4)+right$(hdnumb$,4)
|
||||
for zet=1 to 8
|
||||
midd$=mid$(hdnumb$,zet,1)
|
||||
if midd$="A" then nm$="2"
|
||||
if midd$="B" then nm$="4"
|
||||
if midd$="C" then nm$="6"
|
||||
if midd$="D" then nm$="8"
|
||||
if midd$="E" then nm$="1"
|
||||
if midd$="F" then nm$="3"
|
||||
if nm$="" then nm$=midd$
|
||||
hdnum$=hdnum$+nm$
|
||||
nm$=""
|
||||
next zet
|
||||
ser$=str$(val(hdnum$)+val(hdn$))
|
||||
ser$=right$(ser$,len(ser$)-1)
|
||||
if ser$=ser2$ then goto Anfang else goto NotRegisterd
|
||||
|
||||
NotReg:
|
||||
resume NotRegisterd
|
||||
|
||||
NotRegisterd:
|
||||
print
|
||||
print"Dieses Programm ist noch nicht registriert !!!"
|
||||
print"Lassen Sie sich unter (03322) 3198 registrieren."
|
||||
print
|
||||
print"Es wird nur die Taste F1 zu programmieren sein."
|
||||
print
|
||||
delay 10
|
||||
unreg=1
|
||||
usnam$="NIEMANDEN"
|
||||
Anfang:
|
||||
cls
|
||||
color 14
|
||||
print"ððð Key Prog v";ver$;" ððð":color 10
|
||||
rstr$="Registriert f<>r <"
|
||||
locate 1,80-len(usnam$)-1
|
||||
print usnam$;:color 7:?">"
|
||||
locate 1,80-len(usnam$)-1-len(rstr$)
|
||||
print rstr$
|
||||
color 12
|
||||
print" by RoboCop INDUSTRIES"
|
||||
color 15
|
||||
print
|
||||
print" 1 F1 21 Einfg (Z) 41 C 61 W 81 ' (Z) - auf dem Zehnerblock";
|
||||
print" 2 F2 22 Entf (Z) 42 D 62 X 82 ,"
|
||||
print" 3 F3 23 Pos1 43 E 63 Y 83 ."
|
||||
print" 4 F4 24 ";chr$(24);" 44 F 64 Z 84 /"
|
||||
print" 5 F5 25 Bild";chr$(24);" 45 G 65 1 85 `"
|
||||
print" 6 F6 26 ";chr$(27);" 46 H 66 2 86 ";chr$(17);"ÄÙ (Z)"
|
||||
print" 7 F7 27 ";chr$(26);" 47 I 67 3 87 / (Z)"
|
||||
print" 8 F8 28 Ende 48 J 68 4 88 * (Z)"
|
||||
print" 9 F9 29 ";chr$(25);" 49 K 69 5 89 - (Z)"
|
||||
print" 10 F10 30 Bild";chr$(25);" 50 L 70 6 90 + (Z)"
|
||||
print" 11 F11 31 Einfg 51 M 71 7 91 5 (Z)"
|
||||
print" 12 F12 32 Entf 52 N 72 8"
|
||||
print" 13 Pos1 (Z) 33 Druck 53 O 73 9 0 RAUS ZUM DOS"
|
||||
print" 14 ";chr$(24);" (Z) 34 Pause 54 P 74 0"
|
||||
print" 15 Bild";chr$(24);" (Z) 35 ";chr$(17);"ÄÄ 55 Q 75 -"
|
||||
print" 16 ";chr$(27);" (Z) 36 ";chr$(17);"ÄÙ 56 R 76 ="
|
||||
print" 17 ";chr$(26);" (Z) 37 TAB 57 S 77 ["
|
||||
print" 18 Ende (Z) 38 NULL 58 T 78 ]"
|
||||
print" 19 ";chr$(25);" (Z) 39 A 59 U 79 [SPACE]"
|
||||
print" 20 Bild";chr$(25);" (Z) 40 B 60 V 80 ;"
|
||||
1 locate 23,55:input"Taste: ",ein
|
||||
if ein=0 then cls:goto ProgEnd
|
||||
if ein<>1 and unreg=1 then 1
|
||||
if ein<1 or ein>91 or int(ein)<>ein then 1
|
||||
cls
|
||||
if ein=1 then gosub F1
|
||||
if unreg=1 then goto ProgKey
|
||||
if ein=2 then gosub F2
|
||||
if ein=3 then gosub F3
|
||||
if ein=4 then gosub F4
|
||||
if ein=5 then gosub F5
|
||||
if ein=6 then gosub F6
|
||||
if ein=7 then gosub F7
|
||||
if ein=8 then gosub F8
|
||||
if ein=9 then gosub F9
|
||||
if ein=10 then gosub F10
|
||||
if ein=11 then gosub F11
|
||||
if ein=12 then gosub F12
|
||||
if ein=13 then gosub ZHome
|
||||
if ein=14 then gosub ZUp
|
||||
if ein=15 then gosub ZPgUp
|
||||
if ein=16 then gosub ZLt
|
||||
if ein=17 then gosub ZRt
|
||||
if ein=18 then gosub ZEnd
|
||||
if ein=19 then gosub ZDn
|
||||
if ein=20 then gosub ZPgDn
|
||||
if ein=21 then gosub ZIns
|
||||
if ein=22 then gosub ZDel
|
||||
if ein=23 then gosub Home
|
||||
if ein=24 then gosub Up
|
||||
if ein=25 then gosub PgUp
|
||||
if ein=26 then gosub Lt
|
||||
if ein=27 then gosub Rt
|
||||
if ein=28 then gosub Ende
|
||||
if ein=29 then gosub Dn
|
||||
if ein=30 then gosub PgDn
|
||||
if ein=31 then gosub Ins
|
||||
if ein=32 then gosub Del
|
||||
if ein=33 then gosub PrtScr
|
||||
if ein=34 then gosub Break
|
||||
if ein=35 then gosub BckSpc
|
||||
if ein=36 then gosub Ret
|
||||
if ein=37 then gosub TABULATOR
|
||||
if ein=38 then gosub NULL
|
||||
if ein=39 then gosub A
|
||||
if ein=40 then gosub B
|
||||
if ein=41 then gosub C
|
||||
if ein=42 then gosub D
|
||||
if ein=43 then gosub E
|
||||
if ein=44 then gosub F
|
||||
if ein=45 then gosub G
|
||||
if ein=46 then gosub H
|
||||
if ein=47 then gosub I
|
||||
if ein=48 then gosub J
|
||||
if ein=49 then gosub K
|
||||
if ein=50 then gosub L
|
||||
if ein=51 then gosub M
|
||||
if ein=52 then gosub N
|
||||
if ein=53 then gosub O
|
||||
if ein=54 then gosub P
|
||||
if ein=55 then gosub Q
|
||||
if ein=56 then gosub R
|
||||
if ein=57 then gosub S
|
||||
if ein=58 then gosub T
|
||||
if ein=59 then gosub U
|
||||
if ein=60 then gosub V
|
||||
if ein=61 then gosub W
|
||||
if ein=62 then gosub X
|
||||
if ein=63 then gosub Y
|
||||
if ein=64 then gosub Z
|
||||
if ein=65 then gosub N1
|
||||
if ein=66 then gosub N2
|
||||
if ein=67 then gosub N3
|
||||
if ein=68 then gosub N4
|
||||
if ein=69 then gosub N5
|
||||
if ein=70 then gosub N6
|
||||
if ein=71 then gosub N7
|
||||
if ein=72 then gosub N8
|
||||
if ein=73 then gosub N9
|
||||
if ein=74 then gosub N0
|
||||
if ein=75 then gosub Minus
|
||||
if ein=76 then gosub Equals
|
||||
if ein=77 then gosub BrckO
|
||||
if ein=78 then gosub BrckC
|
||||
if ein=79 then gosub Space
|
||||
if ein=80 then gosub Semicolon
|
||||
if ein=81 then gosub Appostrophy
|
||||
if ein=82 then gosub Comma
|
||||
if ein=83 then gosub Punkt
|
||||
if ein=84 then gosub Slash
|
||||
if ein=85 then gosub Appostrophy2
|
||||
if ein=86 then gosub ZRet
|
||||
if ein=87 then gosub ZSlash
|
||||
if ein=88 then gosub ZAsterisk
|
||||
if ein=89 then gosub ZMinus
|
||||
if ein=90 then gosub ZPlus
|
||||
if ein=91 then gosub Z5
|
||||
goto ProgKey
|
||||
|
||||
$INCLUDE "KEYCODES.INC"
|
||||
|
||||
ProgKey:
|
||||
cls
|
||||
print"ððð KeyProg v";ver$;" ððð"
|
||||
if fle$="" then gosub InFileName
|
||||
print
|
||||
print"Taste: ";KeyString$
|
||||
print
|
||||
print"In welcher Verbindung w<>nschen Sie die Taste:"
|
||||
print
|
||||
if InitStringN$="NA" then color 8 else color 14
|
||||
print"1 - NORMAL";:if InitStringN$="NA" then print:goto 2
|
||||
if InitStringS$=InitStringN$ then print"/SHIFT";:InitStringS=1
|
||||
if InitStringC$=InitStringN$ then print"/CTRL";:InitStringC=1
|
||||
if InitStringA$=InitStringN$ then print"/ALT";:InitStringA=1
|
||||
print
|
||||
|
||||
2 if InitStringS=1 then color 8 else color 14
|
||||
if InitStringS$="NA" then color 8
|
||||
print"2 - SHIFT";:if InitStringS$="NA" then print:goto 3
|
||||
if InitStringC$=InitStringS$ then print"/CTRL";:InitStringC=1
|
||||
if InitStringA$=InitStringS$ then print"/ALT";:InitStringA=1
|
||||
print
|
||||
|
||||
3 if InitStringC=1 then color 8 else color 14
|
||||
if InitStringC$="NA" then color 8
|
||||
print"3 - CTRL";:if InitStringC$="NA" then print:goto 4
|
||||
if InitStringA$=InitStringC$ then print"/ALT";:InitStringA=1
|
||||
print
|
||||
|
||||
4 if InitStringA=1 then color 8 else color 14
|
||||
if InitStringA$="NA" then color 8
|
||||
print"4 - ALT"
|
||||
|
||||
5 ask$=inkey$:if ask$="" then 5
|
||||
if ask$="1" and InitStringN$<>"NA" and InitStringN<>1 then goto Normal
|
||||
if ask$="2" and InitStringS$<>"NA" and InitStringS<>1 then goto Shift
|
||||
if ask$="3" and InitStringC$<>"NA" and InitStringC<>1 then goto Control
|
||||
if ask$="4" and InitStringA$<>"NA" and InitStringA<>1 then goto Alt
|
||||
goto 5
|
||||
|
||||
|
||||
goto ProgEnd
|
||||
|
||||
Normal:
|
||||
cls
|
||||
print"ððð KeyProg v";ver$;" ððð"
|
||||
print
|
||||
color 15
|
||||
print"Taste: ";KeyString$
|
||||
print"Code : ";InitStringN$
|
||||
cde$=InitStringN$
|
||||
print
|
||||
goto MakeString
|
||||
|
||||
Shift:
|
||||
cls
|
||||
color 15
|
||||
print"Taste: [SHIFT]+";KeyString$
|
||||
print"Code : ";InitStringS$
|
||||
cde$=InitStringS$
|
||||
print
|
||||
goto MakeString
|
||||
|
||||
Control:
|
||||
cls
|
||||
color 15
|
||||
print"Taste: [CTRL]+";KeyString$
|
||||
print"Code : ";InitStringC$
|
||||
cde$=InitStringC$
|
||||
print
|
||||
goto MakeString
|
||||
|
||||
Alt:
|
||||
cls
|
||||
color 15
|
||||
print"Taste: [ALT]+";KeyString$
|
||||
print"Code : ";InitStringA$
|
||||
cde$=InitStringA$
|
||||
print
|
||||
goto MakeString
|
||||
|
||||
MakeString:
|
||||
print"Welcher Befehl soll zur Programmierung verwendet werden:"
|
||||
print"1 - PROMPT"
|
||||
print"2 - ECHO"
|
||||
print"3 - TYPE"
|
||||
6 ask$=inkey$:if ask$="" then 6
|
||||
if ask$="1" then lin$="PROMPT $e[":endlin$="PROMPT $p$g"
|
||||
if ask$="2" then lin$="ECHO "+chr$(27)+"["
|
||||
if ask$="3" then lin$=chr$(27)+"["
|
||||
if val(ask$)<1 or val(ask$)>3 or int(val(ask$))<>val(ask$) then 6
|
||||
lin$=lin$+cde$+";"+chr$(34)
|
||||
input"Welcher String soll ausgegeben werden: ",ausg$
|
||||
lin$=lin$+ausg$+chr$(34)
|
||||
7 input"Soll nach der Ausgabe [ENTER] ausgef<65>hrt werden (J/N)";yn$
|
||||
if yn$="j" or yn$="J" then lin$=lin$+";13p":goto 8
|
||||
if yn$="n" or yn$="N" then lin$=lin$+"p":goto 8
|
||||
goto 7
|
||||
8 on error goto NoFile
|
||||
open "A",#1,fle$
|
||||
on error goto
|
||||
if smf<>1 then
|
||||
print#1,"@ECHO OFF"
|
||||
print#1,": BATCH FILE made by KEYPROG v";ver$
|
||||
if unreg=1 then print#1,": Unregistered Version!!!" else print#1,": Registered to <";usnam$;">"
|
||||
print#1,": (C)1995 by RoboCop INDUSTRIES"
|
||||
print#1,""
|
||||
end if
|
||||
print#1,lin$
|
||||
if unreg=1 then goto ProgEnd
|
||||
9 print"Noch mehr Codes eingeben (J)a, in ";fle$;"; Ja, (a)ndere Datei;(N)ein ";
|
||||
input yn$
|
||||
if yn$<>"j" and yn$<>"J" and endlin$<>"" then print#1,endlin$:close #1 else close#1
|
||||
if yn$="j" or yn$="J" then goto YesSameFile
|
||||
if yn$="a" or yn$="A" then goto YesOthaFile
|
||||
if yn$="n" or yn$="N" then goto ProgEnd
|
||||
goto 9
|
||||
|
||||
NoFile:
|
||||
color 12
|
||||
print"Ung<6E>ltige Datei!!"
|
||||
color 15
|
||||
print
|
||||
print"Die Ausgabe-Datei ist ung<6E>ltig."
|
||||
print
|
||||
goto ProgEnd
|
||||
|
||||
YesSameFile:
|
||||
cls
|
||||
endlin$=""
|
||||
InitStringN$=""
|
||||
InitStringS$=""
|
||||
InitStringC$=""
|
||||
InitStringA$=""
|
||||
KeyString$=""
|
||||
lin$=""
|
||||
ausg$=""
|
||||
smf=1
|
||||
goto Anfang
|
||||
|
||||
YesOthaFile:
|
||||
cls
|
||||
fle$=""
|
||||
endlin$=""
|
||||
InitStringN$=""
|
||||
InitStringS$=""
|
||||
InitStringC$=""
|
||||
InitStringA$=""
|
||||
KeyString$=""
|
||||
lin$=""
|
||||
ausg$=""
|
||||
goto Anfang
|
||||
|
||||
InFileName:
|
||||
input"Ausgabe-Datei (auáer bei TYPE-Mode, meiát .BAT): ",fle$
|
||||
return
|
||||
|
||||
ProgEnd:
|
||||
|
||||
3
keys.bas
Normal file
3
keys.bas
Normal file
@ -0,0 +1,3 @@
|
||||
1 a$=inkey$:if a$="" then 1
|
||||
locate 1,1:print ">>>";a$;"<<<"
|
||||
goto 1
|
||||
19
life/glider.lif
Normal file
19
life/glider.lif
Normal file
@ -0,0 +1,19 @@
|
||||
10
|
||||
10
|
||||
254,10
|
||||
250,8
|
||||
1,15
|
||||
43,4
|
||||
"* * "
|
||||
" ** "
|
||||
" * "
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
|
||||
LIFE-DAT-File created by LIFE.EXE
|
||||
Copyright of LIFE.EXE (C)1995-96 by RoboCop INDUSTRIES
|
||||
29
life/great_x.lif
Normal file
29
life/great_x.lif
Normal file
@ -0,0 +1,29 @@
|
||||
20
|
||||
20
|
||||
254,7
|
||||
250,8
|
||||
249,7
|
||||
249,8
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
" * * "
|
||||
" * * "
|
||||
" * "
|
||||
" * * "
|
||||
" * * "
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
|
||||
LIFE-DAT-File created by LIFE.EXE
|
||||
Copyright of LIFE.EXE (C)1995-96 by RoboCop INDUSTRIES
|
||||
510
life/life.bas
Normal file
510
life/life.bas
Normal file
@ -0,0 +1,510 @@
|
||||
$ERROR BOUNDS
|
||||
ver$="1.12"
|
||||
SetColors:
|
||||
schwarz=0
|
||||
blau=1
|
||||
grun=2
|
||||
zyan=3
|
||||
rot=4
|
||||
lila=5
|
||||
braun=6
|
||||
hgrau=7
|
||||
grau=8
|
||||
hblau=9
|
||||
hgrun=10
|
||||
hzyan=11
|
||||
hrot=12
|
||||
hlila=13
|
||||
gelb=14
|
||||
weiss=15
|
||||
bschwarz=16
|
||||
bblau=17
|
||||
bgrun=18
|
||||
bzyan=19
|
||||
brot=20
|
||||
blila=21
|
||||
bbraun=22
|
||||
bhgrau=23
|
||||
bgrau=24
|
||||
bhblau=25
|
||||
bhgrun=26
|
||||
bhzyan=27
|
||||
bhrot=28
|
||||
bhlila=29
|
||||
bgelb=30
|
||||
bweiss=31
|
||||
shell "mode co80"
|
||||
cls
|
||||
'goto 1
|
||||
color hgrun
|
||||
print "LIFE v";ver$;" was written by"
|
||||
$include"logo.inc"
|
||||
color weiss
|
||||
print
|
||||
print "Simulation einer Bakterienkultur"
|
||||
$include "serial.inc"
|
||||
|
||||
NotReg:
|
||||
resume NotRegisterd
|
||||
|
||||
NotRegisterd:
|
||||
print
|
||||
print "Dieses Programm ist noch nicht registriert!!!"
|
||||
print "Sie k”nnen nur 3 Generationen sehen und das Programm"
|
||||
print "wird eine Standard Bakterienkolonie verwenden!"
|
||||
print
|
||||
print "Lassen Sie sich unter (03322) 3198 registrieren!"
|
||||
delay 10
|
||||
usnam$="NIEMANDEN"
|
||||
unreg=1
|
||||
goto Anfang
|
||||
|
||||
Anfang:
|
||||
cls
|
||||
txt$="LIFE - Bakterienkulturen v"+ver$+", Registriert f<>r <"+usnam$+">"
|
||||
locate 24,40-(len(txt$)/2):print txt$;
|
||||
1 if unreg=0 then goto HoleData
|
||||
maxx=5
|
||||
maxy=5
|
||||
bakt=254
|
||||
bcol=15
|
||||
nobak=250
|
||||
nbcol=7
|
||||
birth=254
|
||||
bicol=14
|
||||
death=254
|
||||
dcol=12+16
|
||||
dim b(maxx+1,maxy+1)
|
||||
dim u(maxx+1,maxy+1)
|
||||
dim s(maxx+1,maxy+1)
|
||||
dim s2(maxx+1,maxy+1)
|
||||
for y=0 to maxy+1
|
||||
for x=0 to maxx+1
|
||||
b(x,y)=0
|
||||
u(x,y)=0
|
||||
next x
|
||||
next y
|
||||
|
||||
data "* * " '1
|
||||
data " ** " '2
|
||||
data " * " '3
|
||||
data " " '4
|
||||
data " " '5
|
||||
|
||||
for y=1 to maxy
|
||||
read a$
|
||||
for x=1 to maxx
|
||||
if mid$(a$,x,1)="*" then b(x,y)=1 else b(x,y)=0
|
||||
next x
|
||||
next y
|
||||
AfterHoleData:
|
||||
gen=1
|
||||
gosub ShowBakt
|
||||
2 for y=1 to maxy
|
||||
for x=1 to maxx
|
||||
u(x,y)=0
|
||||
if x-1>0 and y-1>0 then u(x,y)=b(x-1,y-1)
|
||||
if y-1>0 then u(x,y)=u(x,y)+b(x,y-1)
|
||||
if y-1>0 then u(x,y)=u(x,y)+b(x+1,y-1)
|
||||
u(x,y)=u(x,y)+b(x+1,y)+b(x+1,y+1)+b(x,y+1)
|
||||
if x-1>0 then u(x,y)=u(x,y)+b(x-1,y+1)+b(x-1,y)
|
||||
next x
|
||||
next y
|
||||
for y=1 to maxy
|
||||
for x=1 to maxx
|
||||
if b(x,y)<>0 and (u(x,y)<2 or u(x,y)>3) then b(x,y)=3
|
||||
if u(x,y)=3 and b(x,y)=0 then b(x,y)=2
|
||||
next x
|
||||
next y
|
||||
gen=gen+1
|
||||
addx=addx+maxx+1
|
||||
if addx>80-maxx then addx=0:addy=addy+maxy+2
|
||||
if addy>24-maxy then
|
||||
if dauer=0 then gosub WaitState
|
||||
locate 1,1
|
||||
addx=0
|
||||
addy=0
|
||||
end if
|
||||
color hgrun
|
||||
gosub ShowBakt
|
||||
if weiter=1 then goto 2
|
||||
if gleich=maxx*maxy then goto Gleichbleibend
|
||||
if tod=0 then goto Todesfall
|
||||
if puls=maxx*maxy then goto Pulsierend
|
||||
if gen=3 and unreg=1 then goto ENDE
|
||||
goto 2
|
||||
|
||||
Gleichbleibend:
|
||||
locate 24,1:print space$(80);
|
||||
locate 24,1:color hgrun:print"Die Kultur hat nach";gen-1;"Generation(en) eine konstante Anordnung gefunden!";
|
||||
gosub WaitState
|
||||
locate 24,1:print space$(80);
|
||||
color weiss:locate 24,40-(len(txt$)/2):print txt$;
|
||||
weiter=1
|
||||
goto 2
|
||||
|
||||
Todesfall:
|
||||
locate 24,1:print space$(80);
|
||||
locate 24,1:color hrot:print"Die Kultur ist nach";gen-1;"Generation(en) ausgestorben!";
|
||||
gosub WaitState
|
||||
locate 24,1:print space$(80);
|
||||
color weiss:locate 24,40-(len(txt$)/2):print txt$;
|
||||
weiter=1
|
||||
goto 2
|
||||
|
||||
Pulsierend:
|
||||
locate 24,1:print space$(80);
|
||||
locate 24,1:color gelb:print"Die Kultur hat nach";gen-2;"Generation(en) eine pulsierende Anordnung gefunden!";
|
||||
gosub WaitState
|
||||
locate 24,1:print space$(80);
|
||||
color weiss:locate 24,40-(len(txt$)/2):print txt$;
|
||||
weiter=1
|
||||
goto 2
|
||||
|
||||
ShowBakt:
|
||||
color hgrun
|
||||
locate addy+maxy+1,(addx+(maxx/2))-1
|
||||
print using "###";gen;
|
||||
for y=1 to maxy
|
||||
for x=1 to maxx
|
||||
color weiss
|
||||
locate y+addy,x+addx
|
||||
if b(x,y)=0 then color nbcol:print chr$(nobak)
|
||||
if b(x,y)=1 then color bcol:print chr$(bakt)
|
||||
if b(x,y)=2 then color bicol:print chr$(birth):b(x,y)=1
|
||||
if b(x,y)=3 then color dcol:print chr$(death):b(x,y)=0
|
||||
next x
|
||||
next y
|
||||
gleich=0
|
||||
tod=0
|
||||
puls=0
|
||||
for y=1 to maxy
|
||||
for x=1 to maxx
|
||||
if b(x,y)=s(x,y) then gleich=gleich+1
|
||||
if b(x,y)=s2(x,y) then puls=puls+1
|
||||
tod=tod+b(x,y)
|
||||
next x
|
||||
next y
|
||||
for y=1 to maxy
|
||||
for x=1 to maxx
|
||||
s2(x,y)=s(x,y)
|
||||
s(x,y)=b(x,y)
|
||||
next x
|
||||
next y
|
||||
if inkey$=chr$(27) then goto ENDE
|
||||
return
|
||||
|
||||
WaitState:
|
||||
waitmsg$="+ - Weiter, D - Dauernd, [ESC] - Andere Datei"
|
||||
locate 25,80-len(waitmsg$)
|
||||
color bgelb
|
||||
print waitmsg$;
|
||||
3 a$=inkey$: if a$="" then 3
|
||||
if a$="+" then locate 25,80-len(waitmsg$):print space$(len(waitmsg$));:return
|
||||
if a$="D" or a$="d" then locate 25,80-len(waitmsg$):print space$(len(waitmsg$));:dauer=1:return
|
||||
if a$=chr$(27) then locate 25,80-len(waitmsg$):print space$(len(waitmsg$));:run
|
||||
sound 2000,.5
|
||||
goto 3
|
||||
|
||||
HD:
|
||||
resume HoleData
|
||||
|
||||
NoFileFound:
|
||||
color bhrot:print"Keine Datendatei(en) im aktuellen Verzeichnis."
|
||||
resume next
|
||||
|
||||
HoleData:
|
||||
cls
|
||||
dim file$(50)
|
||||
locate 1,1
|
||||
color weiss
|
||||
on error goto NoFileFound
|
||||
fle$(1)=dir$("*.LIF")
|
||||
for x=1 to len(fle$(1))
|
||||
if mid$(fle$(1),x,1)="." then exit for
|
||||
file$(1)=file$(1)+mid$(fle$(1),x,1)
|
||||
next x
|
||||
for fle=2 to 50
|
||||
fle$(fle)=dir$
|
||||
file$(fle)=""
|
||||
for x=1 to len(fle$(fle))
|
||||
if mid$(fle$(fle),x,1)="" then file$(fle)="":exit for
|
||||
if mid$(fle$(fle),x,1)="." then exit for
|
||||
file$(fle)=file$(fle)+mid$(fle$(fle),x,1)
|
||||
next x
|
||||
if file$(fle)="" then maxfle=fle-1:exit for
|
||||
next fle
|
||||
x=1
|
||||
52 color hgrau
|
||||
locate 1,3:print using "\ \";file$(x-1)
|
||||
color weiss
|
||||
locate 1,14:print using "\ \";file$(x)
|
||||
color hgrau
|
||||
locate 1,25:print using "\ \";file$(x+1)
|
||||
if x>1 then locate 1,1:color bgelb:print chr$(27) else locate 1,1:color bhrot:print chr$(26)
|
||||
if x<maxfle then locate 1,34:color bgelb:print chr$(26) else locate 1,34:color bhrot:print chr$(27)
|
||||
locate 3,1:color weiss:print "Benutzen Sie die Cursortasten zum Ausw„hlen einer Datei!"
|
||||
print:print"F1 bringt Sie in den Editor-Modus und [ESC] beendet das Programm."
|
||||
50 a$=inkey$:if a$="" then 50
|
||||
if mid$(a$,2,1)="M" and x<maxfle then x=x+1:goto 52
|
||||
if mid$(a$,2,1)="K" and x>1 then x=x-1:goto 52
|
||||
if mid$(a$,2,1)=";" then goto EditYaOwn
|
||||
if a$=chr$(27) then cls:color 15:end
|
||||
if a$=chr$(13) then file$=file$(x)+".LIF":goto 51
|
||||
goto 50
|
||||
51 on error goto HD
|
||||
open "I",#1,file$
|
||||
on error goto
|
||||
input#1,maxx
|
||||
input#1,maxy
|
||||
input#1,bakt,bcol
|
||||
input#1,nobak,nbcol
|
||||
input#1,birth,bicol
|
||||
input#1,death,dcol
|
||||
dim b(maxx+1,maxy+1)
|
||||
dim u(maxx+1,maxy+1)
|
||||
dim s(maxx+1,maxy+1)
|
||||
dim s2(maxx+1,maxy+1)
|
||||
for y=0 to maxy+1
|
||||
for x=0 to maxx+1
|
||||
b(x,y)=0
|
||||
u(x,y)=0
|
||||
next x
|
||||
next y
|
||||
for y=1 to maxy
|
||||
input#1,a$
|
||||
for x=1 to maxx
|
||||
if mid$(a$,x,1)="*" then b(x,y)=1 else b(x,y)=0
|
||||
next x
|
||||
next y
|
||||
close #1
|
||||
cls
|
||||
goto AfterHoleData
|
||||
|
||||
EditYaOwn:
|
||||
cls
|
||||
color hrot
|
||||
print "ððð Edit-Modus ððð"
|
||||
print
|
||||
color weiss
|
||||
print"Bitte geben Sie die gefragten Daten ein:"
|
||||
61 locate 4,1:input "Breite (X, 1-80): ",maxx
|
||||
if maxx<1 or maxx>80 then 61
|
||||
62 locate 5,1:input "L„nge (Y, 1-23): ",maxy
|
||||
if maxy<1 or maxy>23 then 62
|
||||
print "Zeichen f<>r Bakterie: ":gax=23:gay=6:gosub HoleASCII
|
||||
bakt=asccode
|
||||
print "Farbe f<>r Bakterie: ":gax=21:gay=7:gosub HoleCOL
|
||||
bcol=colcode
|
||||
print "Z. f<>r leeres Feld: ":gax=21:gay=8:gosub HoleASCII
|
||||
nobak=asccode
|
||||
print "F. f<>r leeres Feld: ":gax=21:gay=9:gosub HoleCOL
|
||||
nbcol=colcode
|
||||
print "Z. f<>r neue Bakterie: ":gax=23:gay=10:gosub HoleASCII
|
||||
birth=asccode
|
||||
print "F. f<>r neue Bakterie: ":gax=23:gay=11:gosub HoleCOL
|
||||
bicol=colcode
|
||||
print "Z. f<>r gestorbende Bakterie: ":gax=30:gay=12:gosub HoleASCII
|
||||
death=asccode
|
||||
print "F. f<>r gest. Bakterie: ":gax=24:gay=13:gosub HoleCOL
|
||||
dcol=colcode
|
||||
print
|
||||
color hgrun:print"Sind diese Daten richtig (J/N)? ";
|
||||
69 a$=inkey$:if a$="" then 69
|
||||
if a$="j" or a$="J" then print "J":print:goto 39
|
||||
if a$="n" or a$="N" then print "N":print:goto EditYaOwn
|
||||
goto 69
|
||||
39 print"Im folgenden k”nnen Sie das Feld aufbauen!"
|
||||
print"Mit den Cursortasten bewegen Sie den Cursor (_), und"
|
||||
print"mit der [SPACE]-Taste k”nnen Sie eine Bakterie setzen, bzw. entfernen"
|
||||
print"und mit [ESC]ape k”nnen Sie das Ganze abspeichern."
|
||||
print
|
||||
print"Mit Tastendruck geht's weiter..."
|
||||
79 a$=inkey$:if a$="" then 79
|
||||
goto EditField
|
||||
|
||||
HoleCOL:
|
||||
c=0
|
||||
color gelb
|
||||
if gay>1 then over=screen(gay-1,gax+5):locate gay-1,gax+5:print chr$(25);
|
||||
if gay<24 then under=screen(gay+1,gax+5):locate gay+1,gax+5:print chr$(24);
|
||||
74 c1=c
|
||||
if c=1 then c1=33
|
||||
if c=0 then c1=32
|
||||
color c1-2:locate gay,gax+3:print "Û"
|
||||
if c=0 then c3=32 else c3=c
|
||||
color c3-1:locate gay,gax+4:print "Û"
|
||||
color c:locate gay,gax+5:print "Û"
|
||||
if c=31 then c2=-1 else c2=c
|
||||
locate gay,gax+6:color c2+1:print "Û"
|
||||
c4=c
|
||||
if c=30 then c4=-1
|
||||
if c=31 then c4=-2
|
||||
locate gay,gax+7:color c4+2:print "Û"
|
||||
locate gay,gax:color gelb:print chr$(27);
|
||||
locate gay,gax+10:print chr$(26);
|
||||
73 a$=inkey$:if a$="" then 73
|
||||
if mid$(a$,2,1)="M" and c<31 then c=c+1:goto 74
|
||||
if mid$(a$,2,1)="M" and c=31 then c=0:goto 74
|
||||
if mid$(a$,2,1)="K" and c>0 then c=c-1:goto 74
|
||||
if mid$(a$,2,1)="K" and c=0 then c=31:goto 74
|
||||
if a$=chr$(13) then
|
||||
color hgrun
|
||||
if gay>1 then locate gay-1,gax+5:print chr$(25);
|
||||
if gay<24 then locate gay+1,gax+5:print chr$(24);
|
||||
locate gay,gax:print chr$(26)
|
||||
locate gay,gax+10:print chr$(27)
|
||||
for cox=gax to gax+3 step 1
|
||||
locate gay,cox
|
||||
print " ";chr$(26);
|
||||
locate gay,(gax+9)-(cox-gax)
|
||||
print chr$(27);" ";
|
||||
delay .1
|
||||
next cox
|
||||
color weiss
|
||||
if gay>1 then locate gay-1,gax+5:print chr$(over);
|
||||
if gay<24 then locate gay+1,gax+5:print chr$(under);
|
||||
for cox=gax+3 to gax step -1
|
||||
locate gay,cox
|
||||
color hgrun
|
||||
print chr$(26);
|
||||
color c:print "Û";
|
||||
color hgrun:print chr$(27);" "
|
||||
delay .25
|
||||
next cox
|
||||
let colcode=c:color weiss
|
||||
return
|
||||
end if
|
||||
goto 73
|
||||
|
||||
|
||||
|
||||
|
||||
HoleASCII:
|
||||
x=0
|
||||
color gelb
|
||||
if gay>1 then over=screen(gay-1,gax+5):locate gay-1,gax+5:print chr$(25);
|
||||
if gay<24 then under=screen(gay+1,gax+5):locate gay+1,gax+5:print chr$(24);
|
||||
64 x1=x
|
||||
if x=0 then x1=256
|
||||
if x=1 then x1=257
|
||||
color grau
|
||||
locate gay,gax+3:print using "!";chr$(x1-2)
|
||||
if x=0 then x3=256 else x3=x
|
||||
color hgrau
|
||||
locate gay,gax+4:print using "!";chr$(x3-1)
|
||||
color weiss
|
||||
locate gay,gax+5:print using "!";chr$(x)
|
||||
color hgrau
|
||||
if x=255 then x2=-1 else x2=x
|
||||
locate gay,gax+6:print using "!";chr$(x2+1)
|
||||
color grau
|
||||
x4=x
|
||||
if x=255 then x4=-1
|
||||
if x=254 then x4=-2
|
||||
locate gay,gax+7:print using "!";chr$(x4+2)
|
||||
locate gay,gax
|
||||
color gelb:print chr$(27)
|
||||
locate gay,gax+10:print chr$(26)
|
||||
63 a$=inkey$:if a$="" then 63
|
||||
if mid$(a$,2,1)="M" and x<255 then x=x+1:goto 64
|
||||
if mid$(a$,2,1)="M" and x=255 then x=0:goto 64
|
||||
if mid$(a$,2,1)="K" and x>0 then x=x-1:goto 64
|
||||
if mid$(a$,2,1)="K" and x=0 then x=255:goto 64
|
||||
if a$=chr$(13) then
|
||||
color hgrun
|
||||
if gay>1 then locate gay-1,gax+5:print chr$(25);
|
||||
if gay<24 then locate gay+1,gax+5:print chr$(24);
|
||||
locate gay,gax:print chr$(26)
|
||||
locate gay,gax+10:print chr$(27)
|
||||
for cox=gax to gax+3 step 1
|
||||
locate gay,cox
|
||||
print " ";chr$(26);
|
||||
locate gay,(gax+9)-(cox-gax)
|
||||
print chr$(27);" ";
|
||||
delay .1
|
||||
next cox
|
||||
if gay>1 then locate gay-1,gax+5:print chr$(over);
|
||||
if gay<24 then locate gay+1,gax+5:print chr$(under);
|
||||
for cox=gax+3 to gax step -1
|
||||
locate gay,cox
|
||||
color hgrun
|
||||
print chr$(26);
|
||||
color weiss
|
||||
print chr$(x);
|
||||
color hgrun
|
||||
print chr$(27);" "
|
||||
delay .25
|
||||
next cox
|
||||
let asccode=x:color weiss
|
||||
return
|
||||
end if
|
||||
goto 63
|
||||
|
||||
EditField:
|
||||
dim b(maxx,maxy)
|
||||
x=1
|
||||
y=1
|
||||
cls
|
||||
91 locate 1,1
|
||||
color hgrau
|
||||
for cx=1 to maxy
|
||||
for cy=1 to maxx
|
||||
locate cx,cy
|
||||
if b(cy,cx)=0 then print "ú" else print "þ"
|
||||
next cy
|
||||
next cx
|
||||
locate x,y:color weiss
|
||||
if b(y,x)=0 then print "ù"; else print "Û";
|
||||
90 a$=inkey$:if a$="" then 90
|
||||
if mid$(a$,2,1)="H" and x>1 then x2=x:x=x-1:goto 91
|
||||
if mid$(a$,2,1)="P" and x<maxx then x2=x:x=x+1:goto 91
|
||||
if mid$(a$,2,1)="K" and y>1 then y2=y:y=y-1:goto 91
|
||||
if mid$(a$,2,1)="M" and y<maxy then y2=y:y=y+1:goto 91
|
||||
if (a$=" " or a$=chr$(13)) and b(y,x)=0 then b(y,x)=1:goto 91
|
||||
if (a$=" " or a$=chr$(13)) and b(y,x)=1 then b(y,x)=0:goto 91
|
||||
if a$=chr$(27) then goto SaveData
|
||||
goto 90
|
||||
|
||||
SaveData:
|
||||
cls
|
||||
color hrot:print "ððð Edit-Modus ððð"
|
||||
color weiss
|
||||
print
|
||||
print"Bitte Dateinamen (max. 8 Zeichen) ohne Erweiterung eingeben, unter"
|
||||
print"dem das erstellte Gebilde gespeichert werden soll:"
|
||||
100 input"Dateiname: ",file$
|
||||
file$=file$+".LIF"
|
||||
on error goto IOFE
|
||||
open "O",#2,file$
|
||||
on error goto
|
||||
print
|
||||
color hgrun:print "Die Daten werden gesichert ... ";
|
||||
write#2,maxx
|
||||
write#2,maxy
|
||||
write#2,bakt,bcol
|
||||
write#2,nobak,nbcol
|
||||
write#2,birth,bicol
|
||||
write#2,death,dcol
|
||||
for y=1 to maxy
|
||||
writ$=""
|
||||
for x=1 to maxx
|
||||
if b(x,y)=1 then writ$=writ$+"*" else writ$=writ$+" "
|
||||
next x
|
||||
write#2,writ$
|
||||
next y
|
||||
print#2,chr$(26)
|
||||
print#2,"LIFE-DAT-File created by LIFE.EXE"
|
||||
print#2,"Copyright of LIFE.EXE (C)1995-96 by RoboCop INDUSTRIES"
|
||||
close #2
|
||||
print "OK"
|
||||
cls
|
||||
run
|
||||
|
||||
IOFE:
|
||||
resume 100
|
||||
|
||||
ENDE:
|
||||
rem Hier ist Schluá!
|
||||
locate 24,1:print space$(80);
|
||||
locate 24,1:end
|
||||
40
life/life.hlp
Normal file
40
life/life.hlp
Normal file
@ -0,0 +1,40 @@
|
||||
|
||||
|
||||
Die Datendatei von LIFE ist folgendermaáen aufgebaut:
|
||||
Zle Beschreibung
|
||||
---- -------------------------------------------------------------------------
|
||||
001: Breite des Feldes (MaxX) (Maximal: 80)
|
||||
002: H”he des Feldes (MaxY) (Maximal: 23)
|
||||
003: ASCII-Code des Bakterienzeichen, Farbe (0-15 Normal, 16-31 Blinkend)
|
||||
004: ASCII-Code f<>r ein leeres Feld, Farbe (siehe oben)
|
||||
005: ASCII-Code f<>r eine neue Bakterie (Geburt), Farbe
|
||||
006: ASCII-Code f<>r eine gestorbene Bakterie (Tod, Exitus, +), Farbe
|
||||
007: 1. Zeile des Spielfeldes (z.B.: "* * ")
|
||||
! Die Anzahl der Felder zw. den Anf<6E>hrungszeichen muá mit MaxX <20>bereinstimmen !
|
||||
008: 2. Zeile des Spielfeldes (z.B.: " * **") ! Muá auch mit MaxX hinhauen !
|
||||
009: 3. ..............
|
||||
.
|
||||
.
|
||||
.
|
||||
???: Xte Zeile des Spielfeldes (Es m<>ssen (!!) soviel Spielreihen sein,
|
||||
wie bei MaxY angegeben !!)
|
||||
|
||||
Eine Beispieldatei k”nnte so aussehen:
|
||||
C:\LIFE.DAT
|
||||
-----------
|
||||
5
|
||||
5
|
||||
254,15
|
||||
250,7
|
||||
254,14
|
||||
254,28
|
||||
" * "
|
||||
" * "
|
||||
" *** "
|
||||
" "
|
||||
" "
|
||||
-----------
|
||||
šbrigens: Das in der Beispieldatei gezeigte Objekt, nennt man "Glider", weil
|
||||
es <20>ber das Spielfeld geleitet, bis es am unteren Rand ankommt. Am
|
||||
unteren Rand formt es sich zu einem konstanten Gebilde.
|
||||
|
||||
11
life/life.lif
Normal file
11
life/life.lif
Normal file
@ -0,0 +1,11 @@
|
||||
5
|
||||
5
|
||||
254,15
|
||||
250,7
|
||||
42,10
|
||||
43,12
|
||||
"* * "
|
||||
" ** "
|
||||
" * "
|
||||
" "
|
||||
" "
|
||||
29
life/megaglid.lif
Normal file
29
life/megaglid.lif
Normal file
@ -0,0 +1,29 @@
|
||||
28
|
||||
20
|
||||
254,15
|
||||
7,8
|
||||
4,14
|
||||
9,7
|
||||
" * * "
|
||||
" ** "
|
||||
" * "
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
|
||||
LIFE-DAT-File created by LIFE.EXE
|
||||
Copyright of LIFE.EXE (C)1995-96 by RoboCop INDUSTRIES
|
||||
2
life/serial.num
Normal file
2
life/serial.num
Normal file
@ -0,0 +1,2 @@
|
||||
˜•šœ–š™–—••
|
||||
Markus Birth
|
||||
14
life/test.lif
Normal file
14
life/test.lif
Normal file
@ -0,0 +1,14 @@
|
||||
5
|
||||
5
|
||||
234,15
|
||||
250,8
|
||||
2,7
|
||||
1,17
|
||||
"* * *"
|
||||
" * "
|
||||
"*****"
|
||||
" * "
|
||||
"* * *"
|
||||
|
||||
LIFE-DAT-File created by LIFE.EXE
|
||||
Copyright of LIFE.EXE (C)1995-96 by RoboCop INDUSTRIES
|
||||
14
life/x.lif
Normal file
14
life/x.lif
Normal file
@ -0,0 +1,14 @@
|
||||
5
|
||||
5
|
||||
2,15
|
||||
254,7
|
||||
1,14
|
||||
43,8
|
||||
"* *"
|
||||
" * * "
|
||||
" * "
|
||||
" * * "
|
||||
"* *"
|
||||
|
||||
LIFE-DAT-File created by LIFE.EXE
|
||||
Copyright of LIFE.EXE (C)1995-96 by RoboCop INDUSTRIES
|
||||
20
logos/hcv.bas
Normal file
20
logos/hcv.bas
Normal file
@ -0,0 +1,20 @@
|
||||
COLOR 11,1
|
||||
print space$(80);
|
||||
PRINT" ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ ";
|
||||
PRINT" ÛÛÛÛÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛ ÛÛ ÛÛ ÛÛÛ ÛÛÛÛÛÛÛÛÛÛÛÛÛ ";
|
||||
PRINT" ÛÛÛÛÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛ ÛÛ ÛÛÛÛÛÜÜÛÛ ÛÛÛ ÛÛÛÛÛÛÛÛÛÛÛÛÛ ";
|
||||
PRINT" ÛÛÛÛÛÛÛÛÛÛÛÛÛ ÛÛ ÛÛÛÛÛÛÛÛÛ ÛÛÛ ÛÛÛÛÛÛÛÛÛÛÛÛÛ ";
|
||||
PRINT" ÛÛÛÛÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛ ÛÛ ÛÛÛÛÛßßÛÛÛ Û ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ ";
|
||||
PRINT" ÛÛÛÛÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛ ÛÛ ÛÛÛÛ ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ ";
|
||||
PRINT" ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ ";
|
||||
PRINT space$(80);
|
||||
PRINT space$(80);
|
||||
PRINT" ÛÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛ ÛÛÛ ÛÛÛ ";
|
||||
PRINT" ßß ÛÛÛ ÛÛÛ ÛÛÛ ÛÛÛ ß ÛÛÛ ÛÛÛ ÛÛÛ ÛÛÛ ";
|
||||
PRINT" ÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛÛ ÛÛÛ ÛÛÛ ÛÛÛ ";
|
||||
PRINT" ÜÜ ÛÛÛ ÛÛÛ ÛÛÛ ÛÛÛ ÛÛÛ ÛÛÛ ÛÛÛ ÛÛÛ ÛÛÛ ";
|
||||
PRINT" ÛÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛ ÛÛÛ ÛÛÛ ";
|
||||
PRINT space$(80);
|
||||
PRINT space$(80);
|
||||
END
|
||||
|
||||
21
logos/ibm.bas
Normal file
21
logos/ibm.bas
Normal file
@ -0,0 +1,21 @@
|
||||
PRINT
|
||||
PRINT" ÜÜÜÜÜÜÜÜÜÜ ÜÜÜÜÜÜÜÜÜÜÜÜÜÜ ÜÜÜÜÜÜ ÜÜÜÜÜÜ"
|
||||
PRINT" ÜÜÜÜÜÜÜÜÜÜ ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ ÜÜÜÜÜÜÜ ÜÜÜÜÜÜÜ"
|
||||
PRINT" ÜÜÜÜ ÜÜÜ ÜÜÜÜ ÜÜÜÜÜÜÜ ÜÜÜÜÜÜÜ"
|
||||
PRINT" ÜÜÜÜ ÜÜÜÜÜÜÜÜÜÜÜÜÜ ÜÜÜÜÜÜÜÜ ÜÜÜÜÜÜÜÜ"
|
||||
PRINT" ÜÜÜÜ ÜÜÜÜÜÜÜÜÜÜÜÜÜ ÜÜÜÜ ÜÜÜÜÜÜÜ ÜÜÜÜ"
|
||||
PRINT" ÜÜÜÜ ÜÜÜ ÜÜÜÜ ÜÜÜÜ ÜÜÜÜÜ ÜÜÜÜ"
|
||||
PRINT" ÜÜÜÜÜÜÜÜÜÜ ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ ÜÜÜÜÜ ÜÜÜ ÜÜÜÜÜ"
|
||||
PRINT" ÜÜÜÜÜÜÜÜÜÜ ÜÜÜÜÜÜÜÜÜÜÜÜÜÜ ÜÜÜÜÜ Ü ÜÜÜÜÜ"
|
||||
PRINT
|
||||
PRINT
|
||||
PRINT
|
||||
PRINT"ÛÛÛÛ ÛÛÛ ÛÛÛÛ ÛÛÛ ÛÛÛÛ ÛÛ Û ÛÛÛÛ Û ÛÛÛ ÛÛÛÛ Û Û ÛÛÛÛ Û Û ÛÛÛÛÛ ÛÛÛ ÛÛÛÛ"
|
||||
PRINT"Û Û Û Û Û Û Û Û ÛÛ Û Û Û Û Û Û Û ÛÛ ÛÛ Û Û Û Û Û Û Û Û"
|
||||
PRINT"ÛÛÛÛ ÛÛ ÛÛÛÛ ÛÛÛ Û Û Û Û ÛÛÛÛ Û Û Û Û Û Û Û ÛÛÛÛ Û Û Û ÛÛ ÛÛÛÛ"
|
||||
PRINT"Û Û Û Û Û Û Û Û ÛÛ Û Û Û Û Û Û Û Û Û Û Û Û Û Û Û Û"
|
||||
PRINT"Û ÛÛÛ Û Û ÛÛÛ ÛÛÛÛ Û ÛÛ Û Û ÛÛÛ ÛÛÛ ÛÛÛÛ Û Û Û ÛÛÛÛ Û ÛÛÛ Û Û"
|
||||
PRINT
|
||||
PRINT
|
||||
END
|
||||
|
||||
BIN
logos/logo.exe
Normal file
BIN
logos/logo.exe
Normal file
Binary file not shown.
BIN
makelst.exe
Normal file
BIN
makelst.exe
Normal file
Binary file not shown.
126
makeser.bas
Normal file
126
makeser.bas
Normal file
@ -0,0 +1,126 @@
|
||||
color 15:print"ððð MakeRegister ððð"
|
||||
print
|
||||
2 input"Manuelle oder Automatische Eingabe (M/A)";ask$
|
||||
if ask$="M" or ask$="m" then goto Manual
|
||||
if ask$="A" or ask$="a" then goto Automatic
|
||||
goto 2
|
||||
10 shell"DIR C:\*.* >makereg.tmp"
|
||||
open "I",#1,"makereg.tmp"
|
||||
line input#1,dummy$
|
||||
line input#1,hdname$
|
||||
line input#1,hdnumb$
|
||||
close #1
|
||||
open "O",#1,"makereg.tmp"
|
||||
print#1,"PHYSIKALISCH GEL™SCHTE DATEI!!!"
|
||||
close #1
|
||||
kill "makereg.tmp"
|
||||
hdname$=right$(hdname$,11)
|
||||
hdnumb$=right$(hdnumb$,9)
|
||||
5 for zet=1 to len(hdname$)
|
||||
midd$=mid$(hdname$,zet,1)
|
||||
if midd$="A" then nm$="1"
|
||||
if midd$="B" then nm$="5"
|
||||
if midd$="C" then nm$="3"
|
||||
if midd$="D" then nm$="2"
|
||||
if midd$="E" then nm$="9"
|
||||
if midd$="F" then nm$="8"
|
||||
if midd$="G" then nm$="7"
|
||||
if midd$="H" then nm$="4"
|
||||
if midd$="I" then nm$="6"
|
||||
if midd$="J" then nm$="0"
|
||||
if midd$="K" then nm$="2"
|
||||
if midd$="L" then nm$="1"
|
||||
if midd$="M" then nm$="3"
|
||||
if midd$="N" then nm$="4"
|
||||
if midd$="O" then nm$="7"
|
||||
if midd$="P" then nm$="9"
|
||||
if midd$="Q" then nm$="0"
|
||||
if midd$="R" then nm$="6"
|
||||
if midd$="S" then nm$="5"
|
||||
if midd$="T" then nm$="4"
|
||||
if midd$="U" then nm$="2"
|
||||
if midd$="V" then nm$="6"
|
||||
if midd$="W" then nm$="8"
|
||||
if midd$="X" then nm$="0"
|
||||
if midd$="Y" then nm$="9"
|
||||
if midd$="Z" then nm$="5"
|
||||
if midd$="0" then nm$="1"
|
||||
if midd$="1" then nm$="0"
|
||||
if midd$="2" then nm$="3"
|
||||
if midd$="3" then nm$="2"
|
||||
if midd$="4" then nm$="5"
|
||||
if midd$="5" then nm$="4"
|
||||
if midd$="6" then nm$="7"
|
||||
if midd$="7" then nm$="6"
|
||||
if midd$="8" then nm$="9"
|
||||
if midd$="9" then nm$="8"
|
||||
if midd$="_" then nm$="3"
|
||||
if nm$="" then nm$="5"
|
||||
hdn$=hdn$+nm$
|
||||
nm$=""
|
||||
next zet
|
||||
hdnumb$=left$(hdnumb$,4)+right$(hdnumb$,4)
|
||||
for zet=1 to 8
|
||||
midd$=mid$(hdnumb$,zet,1)
|
||||
if midd$="A" then nm$="2"
|
||||
if midd$="B" then nm$="4"
|
||||
if midd$="C" then nm$="6"
|
||||
if midd$="D" then nm$="8"
|
||||
if midd$="E" then nm$="1"
|
||||
if midd$="F" then nm$="3"
|
||||
if nm$="" then nm$=midd$
|
||||
hdnum$=hdnum$+nm$
|
||||
nm$=""
|
||||
next zet
|
||||
?"Codierter HD-Name : ";hdn$
|
||||
?"Codierte HD-Nummer: ";hdnum$
|
||||
ser$=str$(val(hdnum$)+val(hdn$))
|
||||
ser$=right$(ser$,len(ser$)-1)
|
||||
?"Registrationscode : ";ser$
|
||||
for zet=1 to len(ser$)
|
||||
serf$=serf$+chr$(asc(mid$(ser$,zet,1))+100)
|
||||
next zet
|
||||
?"Fertiger Code : ";serf$
|
||||
?"ASC-Code :"
|
||||
?
|
||||
for zet=1 to len(serf$)
|
||||
?asc(mid$(serf$,zet,1));" ";
|
||||
next zet
|
||||
print
|
||||
color 10
|
||||
print
|
||||
print"In der 2. Zeile der SERIAL.NUM ";:color 12:print"muá";:color 10
|
||||
print" der Name des Benutzers stehen!"
|
||||
color 15
|
||||
goto Ende
|
||||
|
||||
Manual:
|
||||
print
|
||||
input"Laufwerksbezeichnung (C): ",hdname$
|
||||
input"Laufwerksnummer (auch C): ",hdnumb$
|
||||
print
|
||||
goto 5
|
||||
|
||||
Automatic:
|
||||
print
|
||||
goto 10
|
||||
|
||||
Ende:
|
||||
print
|
||||
input"Soll die SERIAL.NUM geschrieben werden (J/N) ";yn$
|
||||
if yn$="j" or yn$="J" then goto WriteSER
|
||||
if yn$="n" or yn$="N" then goto ProgEnd
|
||||
goto Ende
|
||||
|
||||
WriteSER:
|
||||
print
|
||||
input"Benutzernamen eingeben: ";unam$
|
||||
open "O",#1,"SERIAL.NUM"
|
||||
print#1,serf$
|
||||
print#1,unam$
|
||||
close #1
|
||||
print
|
||||
print"FERTIG!"
|
||||
goto ProgEnd
|
||||
|
||||
ProgEnd:
|
||||
BIN
makeser.exe
Normal file
BIN
makeser.exe
Normal file
Binary file not shown.
101
maketext.bas
Normal file
101
maketext.bas
Normal file
@ -0,0 +1,101 @@
|
||||
randomize timer
|
||||
color 15:print"ðððúTEXT-MAKERúððð";
|
||||
color 7:print" written by RoboCopúINDUSTRIES"
|
||||
print
|
||||
5 x(1)=csrlin:rem aktuelle Zeile
|
||||
y(1)=pos(0):rem aktuelle Spalte
|
||||
color 12:print"šberlege ..."
|
||||
a$(1)="der":a$(2)="die":a$(3)="das":a$(4)="ein":a$(5)="alle":a$(6)="kein"
|
||||
b$(1)="Frau":b$(2)="Mann":b$(3)="Kind":b$(4)="Esel":b$(5)="Baum"
|
||||
c$(1)="ist":c$(2)="war":c$(3)="sind":c$(4)="wird"
|
||||
d$(1)="lustig":d$(2)="traurig":d$(3)="m<>de":d$(4)="brav"
|
||||
e$(1)="alt":e$(2)="jung":e$(3)="sch”n":e$(4)="braun":e$(5)="gut"
|
||||
f$(1)="und":f$(2)="oder":f$(3)="aber":f$(4)="auch"
|
||||
g$(1)="und":g$(2)="oder":g$(3)="aber":g$(4)="auch"
|
||||
h$(1)="haben":h$(2)="kaufen":h$(3)="essen":h$(4)="h”ren"
|
||||
i$(1)="Fr<46>chte":i$(2)="Obst":i$(3)="M”bel":i$(4)="Radio"
|
||||
j$(1)="und":j$(2)="oder":j$(3)="aber":j$(4)="auch"
|
||||
k$(1)="und":k$(2)="oder":k$(3)="aber":k$(4)="auch"
|
||||
REM Hauptprogramm
|
||||
|
||||
WortA:
|
||||
a=round((rnd*5)+1,0)
|
||||
art$=a$(a)
|
||||
text$=text$+art$+" "
|
||||
x=round((rnd*1)+1,0)
|
||||
if x=1 then WortE
|
||||
if x=2 then WortB
|
||||
|
||||
WortB:
|
||||
a=round((rnd*4)+1,0)
|
||||
subs$=b$(a)
|
||||
if art$="die" or art$="alle" and subs$="Mann" then subs$="M„nner"
|
||||
if art$="das" and subs$="Mann" then subs$="M„nnlein"
|
||||
text$=text$+subs$+" "
|
||||
x=round((rnd*2)+1,0)
|
||||
if x=1 then WortC
|
||||
if x=2 then WortH
|
||||
if x=3 then WortJ
|
||||
|
||||
WortC:
|
||||
a=round((rnd*3)+1,0)
|
||||
text$=text$+c$(a)+" "
|
||||
goto WortD
|
||||
|
||||
WortD:
|
||||
a=round((rnd*3)+1,0)
|
||||
text$=text$+d$(a)+" "
|
||||
x=round((rnd*1)+1,0)
|
||||
if x=1 then Fertig
|
||||
if x=2 then WortF
|
||||
|
||||
WortE:
|
||||
a=round((rnd*4)+1,0)
|
||||
text$=text$+e$(a)+" "
|
||||
x=round((rnd*1)+1,0)
|
||||
if x=1 then WortB
|
||||
if x=2 then WortG
|
||||
|
||||
WortF:
|
||||
a=round((rnd*3)+1,0)
|
||||
text$=text$+f$(a)+" "
|
||||
x=round((rnd*2)+1,0)
|
||||
if x=1 then WortD
|
||||
if x=2 then WortC
|
||||
if x=3 then WortA
|
||||
|
||||
WortG:
|
||||
a=round((rnd*3)+1,0)
|
||||
text$=text$+g$(a)+" "
|
||||
goto WortE
|
||||
|
||||
WortH:
|
||||
a=round((rnd*3)+1,0)
|
||||
text$=text$+h$(a)+" "
|
||||
goto WortI
|
||||
|
||||
WortI:
|
||||
a=round((rnd*3)+1,0)
|
||||
text$=text$+i$(a)+" "
|
||||
|
||||
x=round((rnd*1)+1,0)
|
||||
if x=1 then Fertig
|
||||
if x=2 then WortK
|
||||
|
||||
WortJ:
|
||||
a=round((rnd*3)+1,0)
|
||||
text$=text$+j$(a)+" "
|
||||
goto WortA
|
||||
|
||||
WortK:
|
||||
a=round((rnd*3)+1,0)
|
||||
text$=text$+k$(a)+" "
|
||||
x=round((rnd*3)+1,0)
|
||||
if x=1 then WortI
|
||||
if x=2 then WortH
|
||||
if x=3 then WortC
|
||||
if x=4 then WortA
|
||||
|
||||
Fertig:
|
||||
locate x(1)-1,y(1):color 7:print text$:text$=""
|
||||
if schon=1 then end else schon=1:goto 5
|
||||
34
mouse/mse.bas
Normal file
34
mouse/mse.bas
Normal file
@ -0,0 +1,34 @@
|
||||
1 CLS : REM Maus Basic Beispiel
|
||||
2 PRINT"Dies ist ein Beispiel in Basic geschrieben, das den Mouse Driver Aufruf zeigt."
|
||||
3 PRINT" Details entnehmen sie bitte dem Help File [Help.com]."
|
||||
4 PRINT
|
||||
5 PRINT" Funktion:"
|
||||
6 PRINT" Linker Knopf = Ausdruck von Knopfstatus und Cursorposition (x,y)"
|
||||
7 PRINT" Rechter Knopf = Ende."
|
||||
11 PRINT
|
||||
15 DEFINT A-Z
|
||||
18 DEF SEG=0
|
||||
20 MSEG=256*PEEK(51*4+3)+PEEK(51*4+2)
|
||||
30 MOUSE=256*PEEK(51*4+1)+PEEK(51*4)+2
|
||||
40 IF MSEG OR (MOUSE-2) THEN 60
|
||||
50 PRINT " Mouse Driver not found":END
|
||||
60 DEF SEG=MSEG
|
||||
70 IF PEEK(MOUSE-2)=207 THEN 50
|
||||
80 PRINT " Mouse Driver is installed"
|
||||
100 M1%=0
|
||||
110 CALL MOUSE(M1%, M2%, M3%, M4%)
|
||||
120 S$ = "Fehler" : IF M1=-1 THEN S$ = "O.K."
|
||||
140 PRINT "Status = ";S$
|
||||
150 M1=10:M2=1:M3=2:M4=5
|
||||
160 CALL MOUSE(M1%, M2%, M3%, M4%)
|
||||
170 M1=1
|
||||
180 CALL MOUSE(M1%, M2%, M3%, M4%)
|
||||
190 M1 = 3
|
||||
200 CALL MOUSE(M1%, M2%, M3%, M4%)
|
||||
210 IF M2% = 0 THEN 190
|
||||
220 PRINT"Button Status = ";M2,"Cursor Position: x = ";M3," y = ";M4
|
||||
230 M1=2
|
||||
240 CALL MOUSE(M1%, M2%, M3%, M4%)
|
||||
250 IF M2 = 1 THEN 170
|
||||
260 END
|
||||
|
||||
195
mouse/mt.bas
Normal file
195
mouse/mt.bas
Normal file
@ -0,0 +1,195 @@
|
||||
color 7,1
|
||||
laun$="MTLAUNCH.BAT"
|
||||
cls
|
||||
locate 10,1:color 14,1
|
||||
print"ÉÍÍ Abfrage ÍÍÍÍÍÍÍÍÍ»"
|
||||
for a=11 to 16
|
||||
locate a,1:print"º"
|
||||
locate a,22:print"º"
|
||||
next a
|
||||
print"ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
|
||||
locate 13,23:print"ÉÍÍ Tasten ÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
|
||||
locate 14,23:print"º ÚÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄ¿ º"
|
||||
locate 15,23:print"º ³ ³ ³ ³ º"
|
||||
locate 16,23:print"º ³ ³ ³ ³ º"
|
||||
locate 17,23:print"º ÃÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄ´ º"
|
||||
locate 18,23:print"º ³ Artec ³ º"
|
||||
locate 19,23:print"º ³ ³ º"
|
||||
locate 20,23:print"º ³ ³ º"
|
||||
locate 21,23:print"º ³ ³ º"
|
||||
locate 22,23:print"º ------8<-------8<----- º"
|
||||
locate 23,23:print"ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
|
||||
locate 10,23
|
||||
print"ÉÍÍ Koordinaten ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
|
||||
locate 11,23
|
||||
print"º":locate 11,75:print"º"
|
||||
locate 12,23
|
||||
print"ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
|
||||
locate 12,5
|
||||
color 15,7
|
||||
print" OK ";:color 8,1:print"Ü"
|
||||
locate 13,6:print"ßßßßßßßßßßßßßß"
|
||||
locate 15,5:color 15,7
|
||||
print" CANCEL ";:color 8,1:print"Ü"
|
||||
locate 16,6:print"ßßßßßßßßßßßßßß"
|
||||
locate 1,1:color 14,1
|
||||
print"ÉÍÍ Status ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
|
||||
for a=2 to 5
|
||||
locate a,1
|
||||
print"º º"
|
||||
next a
|
||||
print"ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
|
||||
defint a-z
|
||||
def seg=0
|
||||
mseg=256*peek(207)+peek(206)
|
||||
mouse=256*peek(205)+peek(204)+2
|
||||
if mseg or (mouse-2) then DrvInst else DrvNInst
|
||||
|
||||
DrvNInst:
|
||||
status$="Maus-Treiber nicht installiert"
|
||||
status=12
|
||||
gosub WriteStatus
|
||||
delay .5
|
||||
status$="Bitte installieren"
|
||||
status=15
|
||||
gosub WriteStatus
|
||||
delay .5
|
||||
status$="Programm wird unterbrochen!"
|
||||
status=11
|
||||
gosub WriteStatus
|
||||
end
|
||||
|
||||
DrvInst:
|
||||
def seg=mseg
|
||||
if peek(mouse-2)=207 then DrvNInst
|
||||
status=11
|
||||
status$="Suche Treiber..."
|
||||
gosub WriteStatus
|
||||
m1%=0
|
||||
call absolute mouse(m1%,m2%,m3%,m4%)
|
||||
status$="Maustreiber nicht resident!":status=12:if m1=-1 then status$="Maustreiber resident. ("+right$(str$(m2%),1)+" Tasten)":status=10
|
||||
gosub WriteStatus
|
||||
status=11
|
||||
status$="Maus-Cursor einstellen..."
|
||||
gosub WriteStatus
|
||||
m1=10:m2=0:m3=3:m4=5
|
||||
call absolute mouse(m1%,m2%,m3%,m4%)
|
||||
status=11
|
||||
status$="Maus-Cursor sichtbar machen..."
|
||||
gosub WriteStatus
|
||||
m1=1
|
||||
call absolute mouse(m1%,m2%,m3%,m4%)
|
||||
REM Ja, wo is' denn unser M„uschen?
|
||||
ReadKoord:
|
||||
m1=3
|
||||
call absolute mouse(m1%,m2%,m3%,m4%)
|
||||
status=11
|
||||
status$=""
|
||||
if m2%=1 then status$="l "
|
||||
if m2%=2 then status$=" r "
|
||||
if m2%=3 then status$="l r "
|
||||
if m2%=4 then status$=" m "
|
||||
if m2%=5 then status$="l m "
|
||||
if m2%=6 then status$=" m r "
|
||||
if m2%=7 then status$="l m r "
|
||||
if status$="" then goto NoSWrite
|
||||
status$=status$+"bei x"+str$(m3)+", y"+str$(m4)+" gedr<64>ckt"
|
||||
if status$=oldstat$ then NoSWrite
|
||||
oldstat$=status$
|
||||
gosub WriteStatus
|
||||
NoSWrite:
|
||||
gosub PaintButt
|
||||
butt=m2:x=m3:y=m4
|
||||
gosub WriteKoord
|
||||
if y=88 and x>=32 and x<=136 and butt=1 then LoadProg
|
||||
if y=112 and x>=32 and x<=136 and butt=1 then Beenden
|
||||
goto ReadKoord
|
||||
|
||||
WriteStatus:
|
||||
statusa$=statusb$
|
||||
statusa=statusb
|
||||
statusb$=statusc$
|
||||
statusb=statusc
|
||||
statusc$=statusd$
|
||||
statusc=statusd
|
||||
statusd$=left$(status$,38)
|
||||
if len(statusd$)<38 then for a=len(statusd$) to 38:statusd$=statusd$+" ":next a
|
||||
statusd=status
|
||||
locate 2,3
|
||||
color statusa,1
|
||||
print statusa$
|
||||
locate 3,3
|
||||
color statusb,1
|
||||
print statusb$
|
||||
locate 4,3
|
||||
color statusc,1
|
||||
print statusc$
|
||||
locate 5,3
|
||||
color statusd,1
|
||||
print statusd$
|
||||
return
|
||||
|
||||
WriteKoord:
|
||||
locate 11,25
|
||||
color 11,1
|
||||
print"Knopf-Status: ";butt;" X: ";m3;" Y: ";m4
|
||||
return
|
||||
|
||||
PaintButt:
|
||||
a=0:b=0:c=0
|
||||
if m2=1 then a=1
|
||||
if m2=2 then c=1
|
||||
if m2=3 then a=1:c=1
|
||||
if m2=4 then b=1
|
||||
if m2=5 then a=1:b=1
|
||||
if m2=6 then b=1:c=1
|
||||
if m2=7 then a=1:b=1:c=1
|
||||
ButtA1:
|
||||
if a<>1 then goto ButtA0
|
||||
locate 15,26:print"²²²²²²"
|
||||
locate 16,26:print"²²²²²²"
|
||||
goto ButtB1
|
||||
ButtA0:
|
||||
locate 15,26:print" "
|
||||
locate 16,26:print" "
|
||||
ButtB1:
|
||||
if b<>1 then goto ButtB0
|
||||
locate 15,33:print"²²²²²²"
|
||||
locate 16,33:print"²²²²²²"
|
||||
goto ButtC1
|
||||
ButtB0:
|
||||
locate 15,33:print" "
|
||||
locate 16,33:print" "
|
||||
ButtC1:
|
||||
if c<>1 then goto ButtC0
|
||||
locate 15,40:print"²²²²²²"
|
||||
locate 16,40:print"²²²²²²"
|
||||
return
|
||||
ButtC0:
|
||||
locate 15,40:print" "
|
||||
locate 16,40:print" "
|
||||
return
|
||||
|
||||
Beenden:
|
||||
status=11
|
||||
status$="Maus-Cursor unsichtbar machen..."
|
||||
gosub WriteStatus
|
||||
m1=2
|
||||
call absolute mouse(m1%,m2%,m3%,m4%)
|
||||
status=12
|
||||
status$="Programm beendet."
|
||||
gosub WriteStatus
|
||||
end
|
||||
|
||||
LoadProg:
|
||||
status=11
|
||||
status$="Maus-Cursor unsichtbar machen..."
|
||||
gosub WriteStatus
|
||||
m1=2
|
||||
call absolute mouse(m1%,m2%,m3%,m4%)
|
||||
status=14
|
||||
status$="Beenden und Starten von "+laun$+"..."
|
||||
gosub WriteStatus
|
||||
color 15,0,0
|
||||
cls
|
||||
execute laun$
|
||||
4
mouse/mtlaunch.bat
Normal file
4
mouse/mtlaunch.bat
Normal file
@ -0,0 +1,4 @@
|
||||
@ECHO OFF
|
||||
ECHO Datei aufgef<65>hrt!
|
||||
ECHO.
|
||||
mem |find "GrӇ"
|
||||
45
movetest.bas
Normal file
45
movetest.bas
Normal file
@ -0,0 +1,45 @@
|
||||
x=.028
|
||||
dim z(256)
|
||||
tim=50
|
||||
cls
|
||||
color 15
|
||||
locate 5,1:print"Programming ASCII-Codes ... ";
|
||||
let z(1)=32
|
||||
let z(2)=250
|
||||
let z(3)=249
|
||||
let z(4)=7
|
||||
let z(5)=254
|
||||
print "codes programmed"
|
||||
print "Counting values ... ";
|
||||
a=1
|
||||
1 if z(a)=0 and z(a+1)=0 then maxz=a-1:goto 2 else a=a+1:goto 1
|
||||
2 print "counted:";maxz;"values found"
|
||||
print "Playing sequence";tim;"times ... ";
|
||||
cx=csrlin
|
||||
cy=pos(0)
|
||||
atim=1
|
||||
|
||||
Anfang:
|
||||
for y=1 to maxz
|
||||
locate 1,1
|
||||
print chr$(z(y))
|
||||
delay x
|
||||
next y
|
||||
t1=atim/10
|
||||
t2=t1-int(t1)
|
||||
t3=t2*10
|
||||
t3=round(t3,0)
|
||||
tim$=str$(atim)+"th"
|
||||
if t3=3 and int(atim/10)<>1 then tim$=str$(atim)+"rd"
|
||||
if t3=2 and int(atim/10)<>1 then tim$=str$(atim)+"nd"
|
||||
if t3=1 and int(atim/10)<>1 then tim$=str$(atim)+"st"
|
||||
if atim>1 then s$="s" else s$=""
|
||||
locate cx,cy:print"seq. now played";tim$;" time";s$;" "
|
||||
tim$=""
|
||||
if atim=tim then goto Ende else atim=atim+1:goto Anfang
|
||||
|
||||
Ende:
|
||||
locate cx,cy
|
||||
print"sequence played";tim;"times "
|
||||
print"Shutting Down ... ";
|
||||
print"program completely shutted down. Bye!"
|
||||
32
n-eck.bas
Normal file
32
n-eck.bas
Normal file
@ -0,0 +1,32 @@
|
||||
pi=3.14159265358979323846
|
||||
screen 12
|
||||
rem window screen (0,31)-(0,39)
|
||||
cls:color 14
|
||||
print " ðððúnECKúððð":color 15
|
||||
print " by
|
||||
print " RoboCopúINDUSTRIES"
|
||||
print
|
||||
20 input"Ecken-Anzahl =",n:q=2*pi/n:if n<3 or n>12 goto 20
|
||||
dim P(5),x(n),y(n):p(0)=N
|
||||
input"Startl„nge =",p(1)
|
||||
50 input"Endl„nge =",p(2):if p(2)>=p(1) goto 50
|
||||
60 input"Drehwinkel =",p(3):d=p(3)*pi/180:if d>q/2 goto 60
|
||||
s=sin(d):c=cos(d):a=cos(q):b=sin(q)
|
||||
p(4)=b/(c*b+s-a*s):x(1)=a:y(1)=B
|
||||
print"Idealer Wert ="p(4):input"„ndern 0/1 =";r:p(5)=p(4)
|
||||
if r=1 then input"gew<65>nschter =",p(5)
|
||||
REM --------------- Eingabe beendet ----------------------
|
||||
cls:for i=1 to n-1:a=i*q:x(i)=cos(a):y(i)=sin(a):next i
|
||||
x(0)=1:y(0)=0:x(n)=1:y(n)=0:r=p(1)
|
||||
REM ------------------ Rechnen ---------------------------
|
||||
150 x1=r*x(0)+160:y1=r*y(0)+130: rem Startwert
|
||||
for i=1 to n:x2=r*x(i)+160:y2=r*y(i)+130
|
||||
line (x1,y1)-(x2,y2),15:x1=x2:y1=y2
|
||||
next i
|
||||
for i=0 to n:a=x(i)*c-y(i)*s:y(i)=y(i)*c+x(i)*s:x(i)=a
|
||||
next i: r=r*p(5):if r<p(2) goto 150: rem neues n-Eck
|
||||
REM ----------------- Anzeigen ---------------------------
|
||||
locate 23,1:print"Anfangsl„nge","Endl„nge","Drehwinkel","idealer Wert"
|
||||
locate 24,1:for i=1 to 5:print p(i),:next
|
||||
locate 25,1:input"Bitte [ENTER] dr<64>cken, wenn breit",FUCK$
|
||||
screen 0,0,0:cls
|
||||
74
oszi.bas
Normal file
74
oszi.bas
Normal file
@ -0,0 +1,74 @@
|
||||
cls:screen 12
|
||||
maxh=320
|
||||
maxv=240
|
||||
dim check(640)
|
||||
FOR SbPort = &H210 to &H280 STEP &H10
|
||||
OUT SbPort + &H6, 1
|
||||
FOR a = 1 to 10:next
|
||||
OUT SbPort + &H6, 0
|
||||
FOR a = 1 to 100
|
||||
IF INP(SbPort + &HA) = &HAA THEN GOTO SbFound
|
||||
NEXT
|
||||
NEXT
|
||||
PRINT "kein SoundBlaster => Ende..."
|
||||
END
|
||||
|
||||
SbFound:
|
||||
Strecke=640-maxh-(maxh/2)
|
||||
pset (strecke,240),0
|
||||
locate 1,1
|
||||
color 10:print"SoundBlaster an Adresse ";hex$(SbPort);"h gefunden."
|
||||
locate 30,1:print "+/- Breite Bi";chr$(24);"/Bi";chr$(25);" beides L/S Fenster speichern/laden *// H”he";
|
||||
DO
|
||||
|
||||
SkipText:
|
||||
ANFx=640/2-maxh/2
|
||||
ANFy=480/2-maxv/2
|
||||
if maxh<>oldmaxh or maxv<>oldmaxv then gosub PaintWindow
|
||||
oldmaxh=maxh
|
||||
oldmaxv=maxv
|
||||
OUT SbPort + &HC, &H20
|
||||
DO:LOOP UNTIL INP(SbPort + &HE) AND 128
|
||||
strecke=strecke+1
|
||||
if strecke>maxh+ANFx then strecke=ANFx
|
||||
value=(256-125+(inp(sbport+&HA)-125))/256*maxv
|
||||
value=value+ANFy
|
||||
pset (strecke,check(strecke)),0
|
||||
pset (strecke,value),15
|
||||
check(strecke)=value
|
||||
a$=inkey$
|
||||
if a$="+" then maxh=maxh+2
|
||||
if a$="-" then maxh=maxh-2
|
||||
if a$="*" then maxv=maxv+2
|
||||
if a$="/" then maxv=maxv-2
|
||||
if mid$(a$,2,1)="I" then maxh=maxh+2:maxv=maxv+2
|
||||
if mid$(a$,2,1)="Q" then maxh=maxh-2:maxv=maxv-2
|
||||
if a$="s" or a$="S" then gosub SaveWindow
|
||||
if a$="l" or a$="L" then gosub LoadWindow
|
||||
LOOP UNTIL a$=chr$(27)
|
||||
Goto Ende
|
||||
|
||||
SaveWindow:
|
||||
open "O",#1,"OSZI.WIN"
|
||||
write#1,maxh,maxv
|
||||
close #1
|
||||
return
|
||||
|
||||
LoadWindow:
|
||||
open "I",#1,"OSZI.WIN"
|
||||
input#1,maxh,maxv
|
||||
close #1
|
||||
return
|
||||
|
||||
PaintWindow:
|
||||
ANF2x=640/2-oldmaxh/2
|
||||
ANF2y=480/2-oldmaxv/2
|
||||
line (ANF2x-4,ANF2y-4)-(ANF2x+oldmaxh+4,ANF2y+oldmaxv+4),0,BF
|
||||
line (ANFx-1,ANFy)-(ANFx+maxh+1,ANFy+maxv+2),9,B
|
||||
return
|
||||
|
||||
|
||||
Ende:
|
||||
screen 0:width 80
|
||||
print"Programm beendet."
|
||||
|
||||
14
pbc.cmt
Normal file
14
pbc.cmt
Normal file
@ -0,0 +1,14 @@
|
||||
|
||||
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
|
||||
/°°°°°°°°°°±±±²²±±±\
|
||||
³°°°°°°°°°±±±²²ÛÛ²²±±³ ÜÜÜÜ ÜÜÜ ÜÜÜÜ ÜÜÜ ÜÜÜÜ ÜÜÜ ÜÜÜÜ
|
||||
³°°°°°°°°°°°±±±²²±±±°³ Û Û Û Û Û Û Û Û Û Û Û Û Û
|
||||
ÀÂÄÄÄÄÄÄÄÄÄÄ¿°±±±±°°°³ ÛßÛß Û Û ÛßßÜ Û Û Û Û Û Ûßßß
|
||||
³ÞÞÞÞÞÞÞÞÞÞ³°°±±°°°°³ Û Û Û Û Û Û Û Û Û Û Û Û
|
||||
ÚÁÄÄÄÄÄÄÄÄÄÄÙ°°°°°°°°³ ß ß ßßß ßßßß ßßß ßßßß ßßß ß
|
||||
³°°°°°°°°°°°°°°°°°°°°³ I N D U S T R I E S
|
||||
³°°°°°°°°°°°°°°°°°°°°³
|
||||
ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ (C)1995 by RoboCop INDUSTRIES
|
||||
|
||||
PowerBASIC v2.10f-File
|
||||
Converted with PowerBASIC-Compiler v2.10f
|
||||
209
pcalc.bas
Normal file
209
pcalc.bas
Normal file
@ -0,0 +1,209 @@
|
||||
$COMPILE EXE
|
||||
REM Printing Calculator
|
||||
REM Selbsttest
|
||||
color 15,0:print"ðððð Printing Calculator ðððð";:color 7,0
|
||||
print" was written by"
|
||||
print"ÜÜÜÜ ÜÜÜ ÜÜÜÜ ÜÜÜ ÜÜÜÜ ÜÜÜ ÜÜÜÜ"
|
||||
print"Û Û Û Û Û Û Û Û Û Û Û Û Û"
|
||||
print"ÛßÛß Û Û ÛßßÜ Û Û Û Û Û Ûßßß"
|
||||
print"Û Û Û Û Û Û Û Û Û Û Û Û"
|
||||
print"ß ß ßßß ßßßß ßßß ßßßß ßßß ß"
|
||||
print"I N D U S T R I E S"
|
||||
print
|
||||
print"Teste PCALC.EXE auf Viren. Dieser Test kann bis zu 30sek dauern!"
|
||||
print
|
||||
print"Test auf Viren l„uft...";
|
||||
gosub CheckFile
|
||||
goto Start 'if sum=1744 then print"OK":goto Start
|
||||
print"fehlgeschlagen"
|
||||
color 14:print
|
||||
print"Irgendetwas stimmt mit der Datei PCALC.EXE nicht!"
|
||||
print"šberpr<70>fen Sie folgende Sachverhalte:"
|
||||
print" þ Haben Sie sie nicht ver„ndert?"
|
||||
print" þ Haben Sie sie nicht umbenannt (Diese Datei MUá PCALC.EXE heissen)?"
|
||||
print" þ Haben Sie vielleicht einen Virus in Ihrem System?"
|
||||
print
|
||||
print"Wenn keiner dieser Sachverhalte zutrifft, dann fordern Sie eine"
|
||||
print"neue PCALC.EXE bei Ihrer Bezugsquelle an!"
|
||||
end
|
||||
Start:
|
||||
REM Aufbau des Tastenfeldes
|
||||
print"Aufbau der Textgrafik..."
|
||||
screen ,,1
|
||||
mstat$=" "
|
||||
tb=0
|
||||
color 15,0
|
||||
shell"loadfont <pcalc.fnt"
|
||||
locate 3,40:print"ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
|
||||
locate 4,40:print"³à 88888888888.³"
|
||||
locate 5,40:print"ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
|
||||
locate 8,43:print"ÚÄÄÄÄÄ¿ ÚÄÄÄÄÄ¿ ÚÄÄÄÄÄ¿"
|
||||
locate 9,43:print"ÀÄÄÄÄÄÙ ÀÄÄÄÄÄÙ ÀÄÄÄÄÄÙ"
|
||||
locate 7,43:print" TAB P/ NP OFF"
|
||||
color 3
|
||||
for x=11 to 20 step 3
|
||||
locate x,60:print"ÚÄÄÄ¿"
|
||||
locate x+2,60:print"ÀÄÄÄÙ"
|
||||
if x>=17 then color 12
|
||||
if x<17 then color 7
|
||||
locate x,26:print"ÚÄÄÄ¿"
|
||||
locate x+2,26:print"ÀÄÄÄÙ"
|
||||
color 3
|
||||
next x
|
||||
locate 12,60:print"³ Mæ³"
|
||||
locate 15,60:print"³ Mç³"
|
||||
locate 18,60:print"³ Mè³"
|
||||
locate 21,60:print"³ M*³"
|
||||
color 7
|
||||
locate 12,26:print"³ é ³"
|
||||
locate 15,26:print"³ % ³"
|
||||
color 12
|
||||
locate 18,26:print"³ CE³"
|
||||
locate 21,26:print"³ONC³"
|
||||
color 7
|
||||
locate 20,32:print"ÚÄÄÄÄ¿"
|
||||
locate 21,32:print"³ 0 ³"
|
||||
locate 22,32:print"ÀÄÄÄÄÙ"
|
||||
for x=11 to 17 step 3
|
||||
locate x,33:print"ÚÄÄÄ¿"
|
||||
locate x+1,33:print"³";18-x;"³"
|
||||
locate x+2,33:print"ÀÄÄÄÙ"
|
||||
locate x,38:print"ÚÄÄÄ¿"
|
||||
locate x+1,38:print"³";19-x;"³"
|
||||
locate x+2,38:print"ÀÄÄÄÙ"
|
||||
locate x,43:print"ÚÄÄÄ¿"
|
||||
locate x+1,43:print"³";20-x;"³"
|
||||
locate x+2,43:print"ÀÄÄÄÙ"
|
||||
next x
|
||||
locate 20,38:print"ÚÄÄÄ¿"
|
||||
locate 21,38:print"³ 00³"
|
||||
locate 22,38:print"ÀÄÄÄÙ"
|
||||
locate 20,43:print"ÚÄÄÄ¿"
|
||||
locate 21,43:print"³ . ³"
|
||||
locate 22,43:print"ÀÄÄÄÙ"
|
||||
for x=11 to 20 step 3
|
||||
locate x,54:print"ÚÄÄÄ¿"
|
||||
locate x+2,54:print"ÀÄÄÄÙ"
|
||||
if x<17 then
|
||||
locate x,49:print"ÚÄÄÄ¿"
|
||||
locate x+2,49:print"ÀÄÄÄÙ"
|
||||
end if
|
||||
next x
|
||||
locate 17,49:print"ÚÄÄÄ¿"
|
||||
locate 18,49:print"³ ³"
|
||||
locate 19,49:print"³ + ³"
|
||||
locate 20,49:print"³ ³"
|
||||
locate 21,49:print"³ ³"
|
||||
locate 22,49:print"ÀÄÄÄÙ"
|
||||
locate 12,49:print"³ x ³"
|
||||
locate 15,49:print"³ - ³"
|
||||
locate 12,54:print"³ \ ³"
|
||||
locate 15,54:print"³ = ³"
|
||||
locate 18,54:print"³#/P³"
|
||||
locate 21,54:print"³ * ³"
|
||||
color 0,3:locate 24,1
|
||||
print"[ENTER]-* M+-Mæ M--Mç MO-Mè M[ENTER]-M* ^-é ";
|
||||
locate 25,1
|
||||
print"[TAB]-TAB C-ON/C X-CE #-00 P-#/P Q-P/NP [ESC]-OFF ";
|
||||
screen ,,1,1
|
||||
color 15,0
|
||||
locate 4,41:print" "
|
||||
num$="0"
|
||||
gosub WriteN
|
||||
REM Hauptroutine
|
||||
1 a$=inkey$
|
||||
if a$="" then 1
|
||||
if a$="#" then a$="00"
|
||||
if a$=chr$(13) then goto Summe
|
||||
if a$="M" or a$="m" then goto Memory
|
||||
if A$="^" or a$="ø" then lprint:goto 1
|
||||
if a$="q" or a$="Q" then goto SwitchPrint
|
||||
if a$="P" or a$="p" then goto PrintDisp
|
||||
if a$=chr$(7) then goto SwitchTAB
|
||||
if a$="c" or a$="C" then goto ReLaunch
|
||||
if a$="x" or A$="X" then locate 4,41:print" ":num$="0":gosub WriteN:goto 1
|
||||
if a$=chr$(27) then end
|
||||
if num$="0" then num$=a$ else num$=num$+a$
|
||||
gosub WriteN
|
||||
goto 1
|
||||
|
||||
|
||||
|
||||
end
|
||||
|
||||
Summe:
|
||||
Memory:
|
||||
SwitchPrint:
|
||||
SwitchTAB:
|
||||
PrintDisp:
|
||||
ReLaunch:
|
||||
end
|
||||
|
||||
|
||||
|
||||
WriteN:
|
||||
REM Ausw„hlen der Anzeigeart
|
||||
if tb=0 then gosub WriteNumb
|
||||
if tb=1 then gosub WriteNumb0
|
||||
if tb=2 then gosub WriteNumb2
|
||||
if tb=3 then gosub WriteNumb3
|
||||
if tb=4 then gosub WriteNumb4
|
||||
if tb=5 then gosub WriteNumbA
|
||||
return
|
||||
|
||||
WriteNumb:
|
||||
REM Anzeigen der Zahl im Display (mstat$=Status des M/-/E & num=Zahl)
|
||||
color 15,0
|
||||
locate 4,41:print mstat$;" ";
|
||||
locate 4,42+(11-len(num$))
|
||||
if val(num$)=int(val(num$)) then prt$=num$+"." else prt$=num$+" "
|
||||
print prt$
|
||||
return
|
||||
|
||||
|
||||
WriteNumb0:
|
||||
REM Anzeigen der Zahl im Display (mstat$=Status des M/-/E & num=Zahl)mit TAB0
|
||||
color 15,0
|
||||
locate 4,41:print mstat$;:print using" ##########. ";num
|
||||
return
|
||||
|
||||
WriteNumb2:
|
||||
REM Anzeigen der Zahl im Display (mstat$=Status des M/-/E & num=Zahl)mit TAB2
|
||||
color 15,0
|
||||
locate 4,41:print mstat$;:print using" ########.## ";num
|
||||
return
|
||||
|
||||
WriteNumb3:
|
||||
REM Anzeigen der Zahl im Display (mstat$=Status des M/-/E & num=Zahl)mit TAB3
|
||||
color 15,0
|
||||
locate 4,41:print mstat$;:print using" #######.### ";num
|
||||
return
|
||||
|
||||
WriteNumb4:
|
||||
REM Anzeigen der Zahl im Display (mstat$=Status des M/-/E & num=Zahl)mit TAB4
|
||||
color 15,0
|
||||
locate 4,41:print mstat$;:print using" ######.#### ";num
|
||||
return
|
||||
|
||||
WriteNumbA:
|
||||
REM Anzeigen der Zahl im Display (mstat$=Status des M/-/E & num=Zahl)mit TABAUTO
|
||||
color 15,0
|
||||
locate 4,41:print mstat$;:print using" ########.## ";num
|
||||
return
|
||||
|
||||
PrintNumb:
|
||||
REM Ausdrucken der Zahl im Display (oper$=Operator & num=Zahl
|
||||
lprint using"##########,. ";num;:lprint oper$
|
||||
return
|
||||
|
||||
CheckFile:
|
||||
' open "I",#1,"compiled\PCALC\PCALC.EXE"
|
||||
' for z=1 to 999999
|
||||
' if eof(1) then exit for
|
||||
' line input #1,lin$
|
||||
' for x=1 to len(lin$)
|
||||
' sum=sum+asc(mid$(lin$,x,1))
|
||||
' next x
|
||||
' next z
|
||||
' close #1
|
||||
return
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user