Initial commit
This commit is contained in:
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<52>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<63>ftigung bei der man nicht funken kann"
|
||||
"QRM","St<53>rungen"
|
||||
"QRT","Ende / Schlu<6C>"
|
||||
"QRV","Bereit / auf Empfang"
|
||||
"QRX","Bitte warten!"
|
||||
"QRZ","Kommen / Rufe ..."
|
||||
"QSA","Lautst<73>rke / Santiagowert"
|
||||
"QSB","Fading"
|
||||
"QSL","Empfangsbest<73>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<73>rke nicht mehr m<>glich"
|
||||
"S9","<22>u<EFBFBD>erst lautes Signal"
|
||||
"55","viel Erfolg / viele QSO's"
|
||||
"73","die besten Gr<47><72>e"
|
||||
"74","la<6C> 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,"<22> DELTREE-Versuch <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
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<65>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"<22><><EFBFBD> EditPath <20><><EFBFBD> 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"<22><><EFBFBD> EditPath <20><><EFBFBD> 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 <20>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"<22><><EFBFBD> EditPath <20><><EFBFBD> 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"-=<3D><> Elektrische Felder <20><>=-"
|
||||
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"<22>";:color 8:print" negativ"
|
||||
locate 2,1:color npos:print"<22>";:color 8:print" positiv"
|
||||
locate 3,1:color nneu:print"<22>";: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"<22>";
|
||||
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"<22>";:locate y,65:print"<22>";: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"<22>";
|
||||
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 "<22>"; 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"<22>";
|
||||
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 "-=<3D><> Elektrische Felder <20><>=-"
|
||||
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<65>ndert. ";
|
||||
Question:
|
||||
color 15:print"<22>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<65>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 "<22> 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)+"<22>"
|
||||
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,"<22>"+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,"<22>"+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,"<22>"+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,"<22> FORMAT-Versuch <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
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<65>t momentan deaktiviert."
|
||||
|
||||
61
HTML2LST.BAS
Normal file
61
HTML2LST.BAS
Normal file
@@ -0,0 +1,61 @@
|
||||
dim eta(1000)
|
||||
cls
|
||||
print"<22> 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 "-=<3D><> Olson Software Help Tools Cracker <20><>=-"
|
||||
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 "<22>";
|
||||
x$=right$(str$(x),len(str$(x))-1)
|
||||
print "<22>";
|
||||
open "A",#1,"regutil.out"
|
||||
print "<22>";
|
||||
print #1,chr$(13)+"["+x$+"] ";
|
||||
print "<22>";
|
||||
close #1
|
||||
print "<22>";
|
||||
print"<22> "+x$+" <20>";
|
||||
shel$="regutil.exe "+hf$+" "+chr$(34)+nam$+chr$(34)+" "+x$+" >>regutil.out"
|
||||
print "<22>";
|
||||
shell shel$
|
||||
print "<22>";
|
||||
x=x+1
|
||||
print "<22> 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 = "<22><><EFBFBD><EFBFBD>"
|
||||
CONST Zeichenk = 4
|
||||
CONST FColor = 16
|
||||
CONST BColor = 8
|
||||
CLS
|
||||
PRINT " AGEN V111.111<EFBFBD>"
|
||||
PRINT " (c) Arndt Grass"
|
||||
PRINT : PRINT
|
||||
INPUT "Filename"; datei$
|
||||
INPUT "Wie soll die ANSI-Ausgabedatei hei<65>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<65>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"<22><><EFBFBD> ANSI-PACKer <20><><EFBFBD> v";ver$;" by RoboCop INDUSTRIES"
|
||||
print
|
||||
print"Dieses Programm sucht in ANSI-Dateien (mei<65>t mit .ANS Endung) nach"
|
||||
print"doppelten Deklarationen. (z.B.: 0;36m<36>0;37m<37> ==> 0;36m<36>37m<37>)!"
|
||||
|
||||
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"[<5B>]ndern!?":color 14
|
||||
1 a$=inkey$:if a$="" then 1
|
||||
if a$="g" or a$="G" then goto 2
|
||||
if a$="<22>" or a$="<22>" then goto 3
|
||||
goto 1
|
||||
|
||||
WheresTheFile:
|
||||
print
|
||||
color 28:print"Datei nicht gefunden!!!"
|
||||
color 12:print"<22>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"<22>ffne Eingabedatei ... ";
|
||||
open "I",#1,fil$
|
||||
print"Datei ge<67>ffnet"
|
||||
print"<22>ffne Ausgabedatei ... ";
|
||||
open "O",#2,outfil$
|
||||
print"Datei ge<67>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" <20><><EFBFBD>"; 'Bargraph forward
|
||||
color 9,BG3:print"<22> ";
|
||||
color 11,BG3:print"<22><>";
|
||||
color 11,BG2:print"<22><>";
|
||||
color 10,BG2:print"<22><>";
|
||||
color 14,BG2:print"<22><><EFBFBD>";
|
||||
color 14,BG4:print"<22><>";
|
||||
color 12,BG4:print"<22><><EFBFBD>";
|
||||
delay .05
|
||||
color 12,BG4:print"۲<>"; 'Bargraph backward
|
||||
color 14,BG4:print"<22><>";
|
||||
color 14,BG2:print"۲<>";
|
||||
color 10,BG2:print"۱";
|
||||
color 11,BG2:print"<22><>";
|
||||
color 11,BG3:print"۱";
|
||||
color 9,BG3:print" <20>";
|
||||
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 @@
|
||||
<EFBFBD>: Total <20><>۱ <20>۲<EFBFBD><DBB2>۱<EFBFBD>۲<EFBFBD><DBB2><EFBFBD><EFBFBD> 888 + 888 = 888 Mb Phys= 888
|
||||
Chr-ASCII-Code <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Chr FC BC
|
||||
FC -Vordergrund <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>219/12/x
|
||||
BC -Hintergrund <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>178/12/4
|
||||
x = egal <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>177/12/4
|
||||
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>177/14/4
|
||||
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>178/14/4
|
||||
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>219/14/x
|
||||
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>178/14/2
|
||||
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>177/14/2
|
||||
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>219/10/x
|
||||
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>177/10/2
|
||||
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>177/11/2
|
||||
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>178/11/2
|
||||
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>219/11/x
|
||||
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>177/11/3
|
||||
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 32/ x/3
|
||||
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>177/ 9/3
|
||||
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>219/ 9/x
|
||||
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>178/ 9/1
|
||||
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>177/ 9/1
|
||||
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 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<49>r"
|
||||
textb$="[2] BIN<49>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<69>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<69>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<6C> 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<69>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<69>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<69>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<6C> mich in ruh'!"
|
||||
print"Fick dich ins Knie!"
|
||||
color 15
|
||||
input"Geben Sie einen Bin<69>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<49>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"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ"
|
||||
locate 22,1:color 15:print"<22> Status <20>"
|
||||
locate 23,1:color 15:print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ"
|
||||
locate 24,1:color 15:print"<22> --------------------- <20>";
|
||||
locate 25,1:color 15:print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ";
|
||||
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$="<22>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$="<22>ffne '"+File$+"' ... ge<67>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)
|
||||
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Gr<EFBFBD><EFBFBD>e : H+F+B
|
||||
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
|
||||
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 <20><> Dateigr<67><72>e (komplett)
|
||||
04 03 00 Ľ
|
||||
12 68 30 <20><><EFBFBD> Breite
|
||||
13 02 01 Ľ
|
||||
16 9A CD <20><><EFBFBD> H<>he
|
||||
17 01 00 Ľ
|
||||
1C 08 08 <20><><EFBFBD> Farbtiefe (08-8bit, 0F - 16bit, 18-24bit)
|
||||
|
||||
Byte(s) Beschreibung
|
||||
---------- ------------------------------------
|
||||
0000-0001 Kennung "BM" f<>r BitMap
|
||||
0002-0009 Gr<47><72>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" <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
print" <20> <20> <20> <20> <20> <20> <20>"
|
||||
print" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>"
|
||||
print" <20> <20> <20> <20> <20> <20><> <20>"
|
||||
print" <20> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><> <20>"
|
||||
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"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
print"<22><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
print"<22><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
print"<22><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
locate 25,1:print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
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 @@
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
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"-=<3D> Beats Per Minute <20>=-"
|
||||
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"-=<3D> Beats Per Minute <20>=-"
|
||||
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"<22>BEAT<41>";: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"<22>BEAT<41>";
|
||||
if beats/2<>int(beats/2) and BeatStage=1 then print"<22>BEAT<41>";
|
||||
if beats/2=int(beats/2) and BeatStage=2 then print"<22>BEAT<41>";
|
||||
if beats/2<>int(beats/2) and BeatStage=2 then print"<22>BEAT<41>";
|
||||
if BeatStage=3 then print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
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"-=<3D> Beats Per Minute <20>=-"
|
||||
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"-=<3D> Beats Per Minute <20>=-"
|
||||
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"<22>BEAT<41>";: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
|
||||
' <20><> 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<65>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"<22>BEAT<41>";
|
||||
if beats/2<>int(beats/2) and BeatStage=1 then print"<22>BEAT<41>";
|
||||
if beats/2=int(beats/2) and BeatStage=2 then print"<22>BEAT<41>";
|
||||
if beats/2<>int(beats/2) and BeatStage=2 then print"<22>BEAT<41>";
|
||||
if BeatStage=3 then print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
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<72>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
|
||||
' <20>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"<22>ADJUST<53>";
|
||||
if oldlm<>lockmax then
|
||||
locate 1,68:color 14
|
||||
if lockmax=1 then print "-=<3D>LOCKED<45>=-"; else print " ";
|
||||
end if
|
||||
if beats<>oldbeats then NoNew=0 else NoNew=NoNew+1
|
||||
oldmax=maxvalue 'alles mit einem 'max' in der Variablen geh<65>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"<22>BEAT<41>";
|
||||
if beats/2<>int(beats/2) and BeatStage=1 then print"<22>BEAT<41>";
|
||||
if beats/2=int(beats/2) and BeatStage=2 then print"<22>BEAT<41>";
|
||||
if beats/2<>int(beats/2) and BeatStage=2 then print"<22>BEAT<41>";
|
||||
if BeatStage=3 then print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
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<72>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"<22>";: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"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";: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"<22>";: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$="<22>" ELSE ZEI$="<22>"
|
||||
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<6D>en aus:"
|
||||
print
|
||||
print" <20> ";:color 11:print" Die Zahlen 1-3 sind die Schalen, Al ist der":color 15
|
||||
print" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 3";:color 11:print" Stoff (Alu), 13 ist die Ordnungszahl, die <20>":color 15
|
||||
print" <20><><EFBFBD><EFBFBD><EFBFBD>8<EFBFBD><38><EFBFBD> 2";:color 11:print" sind die Ionen und die 2 bzw. 8 sind die":color 15
|
||||
print" <20><><EFBFBD><EFBFBD><EFBFBD>2<EFBFBD><32><EFBFBD> 1";:color 11:print" Anzahl der <20> auf der Schale, da nur die":color 15
|
||||
print" <20><>Al";:color 11:print" <20>u<EFBFBD>erste Schale interressant ist.":color 15
|
||||
print" <20><>"
|
||||
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" <20>"
|
||||
print" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 7"
|
||||
print" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 6"
|
||||
print" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 5"
|
||||
print" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 4"
|
||||
print" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 3"
|
||||
print" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 2"
|
||||
print" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 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<65>scht !!! >ZERO.DAT"
|
||||
shell"ECHO indem sie mit diesem Text <20>berschrieben und DANN gel<65>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" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ <20><>Ŀ <20><>Ŀ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ"
|
||||
print" <20> <20> <20> <20> <20> <20> <20> <20> <20> Ȼ <20><> <20>"
|
||||
print" <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ <20> <20> <20> <20> <20> <20><><EFBFBD><EFBFBD>ͼ <20> Ȼ <20><> <20>"
|
||||
print" <20> <20> <20> <20> <20> <20> <20> <20> <20> Ȼ <20><> <20>"
|
||||
print" <20> <20> <20> <20><><EFBFBD><EFBFBD> <20> <20> <20><><EFBFBD>Ŀ <20> <20><><EFBFBD><EFBFBD> <20>"
|
||||
print" <20> <20> <20> <20> <20> <20> <20> ɻ ɻ <20>"
|
||||
print" <20> <20> <20> <20><>ͻ <20> <20> <20><><EFBFBD>ͼ <20> <20><><EFBFBD> ɼ<> <20>"
|
||||
print" <20> <20> <20> <20> <20> <20> <20> <20> <20> <20> <20><> ɼ <20> <20>"
|
||||
print" <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ <20> <20> <20> <20> <20> <20><><EFBFBD><EFBFBD>Ŀ <20> <20> <20><> ɼ <20> <20>"
|
||||
print" <20> <20> <20> <20> <20> <20> <20> <20> <20> <20> <20><> ɼ <20> <20>"
|
||||
print" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ <20><>ͼ <20><>ͼ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ <20><><EFBFBD><EFBFBD>ͼ <20><>ͼ <20><><EFBFBD><EFBFBD>ͼ";
|
||||
return
|
||||
|
||||
PrintDia:
|
||||
locate 14,1
|
||||
print" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ"
|
||||
print" <20> <20> <20> <20> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͻ <20>"
|
||||
print" <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͻ <20> <20> <20> <20> <20> <20> <20>"
|
||||
print" <20> <20> <20> <20> <20> <20> <20> <20> <20> <20>"
|
||||
print" <20> <20> <20> <20> <20> <20> <20> <20> <20> <20>"
|
||||
print" <20> <20> <20> <20> <20> <20> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>"
|
||||
print" <20> <20> <20> <20> <20> <20> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͻ <20>"
|
||||
print" <20> <20> <20> <20> <20> <20> <20> <20> <20> <20>"
|
||||
print" <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20> <20> <20> <20> <20> <20>"
|
||||
print" <20> <20> <20> <20> <20> <20> <20> <20>"
|
||||
print" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ";
|
||||
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<EFBFBD>rmig,2.1,1.008,1,0,0,0,0,0,0
|
||||
data 2,He,Helium,gasf<EFBFBD>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<65>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,"<22> LOG-Datei vom Dark Forces Voice Name Changer v1.00"
|
||||
print#2,"<22> von RoboCop INDUSTRIES"
|
||||
print#2,"<22>"
|
||||
print#2,"<22> Gew<65>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,"<22> <EOLF - End Of List File >"
|
||||
goto Ende
|
||||
end if
|
||||
goto 1
|
||||
|
||||
NamesToNumbers:
|
||||
print"Gew<65>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,"<22> LOG-Datei vom Dark Forces Voice Name Changer v1.00"
|
||||
print#2,"<22> von RoboCop INDUSTRIES"
|
||||
print#2,"<22>"
|
||||
print#2,"<22> Gew<65>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,"<22> <EOLF - End Of List File >"
|
||||
goto Ende
|
||||
end if
|
||||
goto 2
|
||||
|
||||
FEHLER:
|
||||
print#2,"====================================================="
|
||||
PRINT#2,"<22> !!!WARNUNG!!!"
|
||||
print#2,"<22> Ein unbekannter Fehler ist aufgetreten! Vielleicht"
|
||||
print#2,"<22> haben Sie die FALSCHE FUNKTION gew<65>hlt. Wenn es das"
|
||||
print#2,"<22> 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,"<22> 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"<22><><EFBFBD> CITIZEN 120D <20><><EFBFBD>"
|
||||
print
|
||||
gosub ShowIt
|
||||
2 locate lx+2,ly
|
||||
if matrix(ly,lx)=0 then color 30:print"<22>" else color 26:print"<22>"
|
||||
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"<22>"
|
||||
if matrix(x,y)=0 then color 8:print"<22>"
|
||||
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"<22>"
|
||||
if matrix(x,y)=0 then color 8:print"<22>"
|
||||
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 "<22><><EFBFBD> CITIZEN 120D <20><><EFBFBD> ";
|
||||
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"<22><><EFBFBD> CITIZEN 120D <20><><EFBFBD> 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" ##_,#<23>><3E><>";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 <20>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 <20>ndern"
|
||||
190 LOCATE 13,30:PRINT"^/<2F> - EXIT TO DOS"
|
||||
200 LOCATE 14,30:PRINT"[SPCE]- alle Werte <20>ndern"
|
||||
210 LOCATE 1,2:IF A=1 THEN COLOR BR:PRINT"<22>" ELSE COLOR PIN:PRINT"o"
|
||||
220 LOCATE 2,1:IF A=2 THEN COLOR BR:PRINT"<22><>" ELSE IF A=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"<22>"
|
||||
230 LOCATE 3,2:IF A=3 THEN COLOR BR:PRINT"<22>" ELSE COLOR PIN:PRINT"o"
|
||||
240 LOCATE 1,4:IF B=1 THEN COLOR BR:PRINT"<22>" ELSE COLOR PIN:PRINT"o"
|
||||
250 LOCATE 2,3:IF B=2 THEN COLOR BR:PRINT"<22><>" ELSE IF B=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"<22>"
|
||||
260 LOCATE 3,4:IF B=3 THEN COLOR BR:PRINT"<22>" ELSE COLOR PIN:PRINT"o"
|
||||
270 LOCATE 1,6:IF C=1 THEN COLOR BR:PRINT"<22>" ELSE COLOR PIN:PRINT"o"
|
||||
280 LOCATE 2,5:IF C=2 THEN COLOR BR:PRINT"<22><>" ELSE IF C=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"<22>"
|
||||
290 LOCATE 3,6:IF C=3 THEN COLOR BR:PRINT"<22>" ELSE COLOR PIN:PRINT"o"
|
||||
300 LOCATE 1,8:IF D=1 THEN COLOR BR:PRINT"<22>" ELSE COLOR PIN:PRINT"o"
|
||||
310 LOCATE 2,7:IF D=2 THEN COLOR BR:PRINT"<22><>" ELSE IF D=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"<22>"
|
||||
320 LOCATE 3,8:IF D=3 THEN COLOR BR:PRINT"<22>" ELSE COLOR PIN:PRINT"o"
|
||||
330 LOCATE 1,10:IF E=1 THEN COLOR BR:PRINT"<22>" ELSE COLOR PIN:PRINT"o"
|
||||
340 LOCATE 2,9:IF E=2 THEN COLOR BR:PRINT"<22><>" ELSE IF E=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"<22>"
|
||||
350 LOCATE 3,10:IF E=3 THEN COLOR BR:PRINT"<22>" ELSE COLOR PIN:PRINT"o"
|
||||
360 LOCATE 1,12:IF F=1 THEN COLOR BR:PRINT"<22>" ELSE COLOR PIN:PRINT"o"
|
||||
370 LOCATE 2,11:IF F=2 THEN COLOR BR:PRINT"<22><>" ELSE IF F=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"<22>"
|
||||
380 LOCATE 3,12:IF F=3 THEN COLOR BR:PRINT"<22>" ELSE COLOR PIN:PRINT"o"
|
||||
390 LOCATE 1,14:IF G=1 THEN COLOR BR:PRINT"<22>" ELSE COLOR PIN:PRINT"o"
|
||||
400 LOCATE 2,13:IF G=2 THEN COLOR BR:PRINT"<22><>" ELSE IF G=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"<22>"
|
||||
410 LOCATE 3,14:IF G=3 THEN COLOR BR:PRINT"<22>" ELSE COLOR PIN:PRINT"o"
|
||||
420 REM Untere Reihe
|
||||
430 LOCATE 13,2:IF H=1 THEN COLOR BR:PRINT"<22>" ELSE COLOR PIN:PRINT"o"
|
||||
440 LOCATE 14,1:IF H=2 THEN COLOR BR:PRINT"<22><>" ELSE IF H=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"<22>"
|
||||
450 LOCATE 15,2:IF H=3 THEN COLOR BR:PRINT"<22>" ELSE COLOR PIN:PRINT"o"
|
||||
460 LOCATE 13,4:IF I=1 THEN COLOR BR:PRINT"<22>" ELSE COLOR PIN:PRINT"o"
|
||||
470 LOCATE 14,3:IF I=2 THEN COLOR BR:PRINT"<22><>" ELSE IF I=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"<22>"
|
||||
480 LOCATE 15,4:IF I=3 THEN COLOR BR:PRINT"<22>" ELSE COLOR PIN:PRINT"o"
|
||||
490 LOCATE 13,6:IF J=1 THEN COLOR BR:PRINT"<22>" ELSE COLOR PIN:PRINT"o"
|
||||
500 LOCATE 14,5:IF J=2 THEN COLOR BR:PRINT"<22><>" ELSE IF J=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"<22>"
|
||||
510 LOCATE 15,6:IF J=3 THEN COLOR BR:PRINT"<22>" ELSE COLOR PIN:PRINT"o"
|
||||
520 LOCATE 13,8:IF K=1 THEN COLOR BR:PRINT"<22>" ELSE COLOR PIN:PRINT"o"
|
||||
530 LOCATE 14,7:IF K=2 THEN COLOR BR:PRINT"<22><>" ELSE IF K=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"<22>"
|
||||
540 LOCATE 15,8:IF K=3 THEN COLOR BR:PRINT"<22>" ELSE COLOR PIN:PRINT"o"
|
||||
550 LOCATE 13,10:IF L=1 THEN COLOR BR:PRINT"<22>" ELSE COLOR PIN:PRINT"o"
|
||||
560 LOCATE 14,9:IF L=2 THEN COLOR BR:PRINT"<22><>" ELSE IF L=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"<22>"
|
||||
570 LOCATE 15,10:IF L=3 THEN COLOR BR:PRINT"<22>" ELSE COLOR PIN:PRINT"o"
|
||||
580 LOCATE 13,12:IF M=1 THEN COLOR BR:PRINT"<22>" ELSE COLOR PIN:PRINT"o"
|
||||
590 LOCATE 14,11:IF M=2 THEN COLOR BR:PRINT"<22><>" ELSE IF M=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"<22>"
|
||||
600 LOCATE 15,12:IF M=3 THEN COLOR BR:PRINT"<22>" ELSE COLOR PIN:PRINT"o"
|
||||
610 LOCATE 13,14:IF N=1 THEN COLOR BR:PRINT"<22>" ELSE COLOR PIN:PRINT"o"
|
||||
620 LOCATE 14,13:IF N=2 THEN COLOR BR:PRINT"<22><>" ELSE IF N=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"<22>"
|
||||
630 LOCATE 15,14:IF N=3 THEN COLOR BR:PRINT"<22>" ELSE COLOR PIN:PRINT"o"
|
||||
640 LOCATE 1,40:IF TUR=0 THEN COLOR OF:PRINT"<22><><EFBFBD>" ELSE COLOR 14:PRINT"<22><><EFBFBD>"
|
||||
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"<22>":LOCATE 7,2:PRINT"<22>"
|
||||
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"<22><><EFBFBD>"
|
||||
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"<22><><EFBFBD>"
|
||||
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"<22>":LOCATE 7,6:PRINT"<22>"
|
||||
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"<22>":LOCATE 7,9:PRINT"<22>"
|
||||
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"<22><><EFBFBD>"
|
||||
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"<22>":LOCATE 7,13:PRINT"<22>"
|
||||
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"<22>":LOCATE 10,2:PRINT"<22>"
|
||||
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"<22><><EFBFBD>"
|
||||
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"<22>":LOCATE 10,6:PRINT"<22>"
|
||||
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"<22>":LOCATE 10,9:PRINT"<22>"
|
||||
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"<22><><EFBFBD>"
|
||||
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"<22><><EFBFBD>"
|
||||
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"<22>":LOCATE 10,13:PRINT"<22>"
|
||||
1090 COLOR OF:LOCATE 11,7:PRINT"<22>":LOCATE 11,14:PRINT"<22>"
|
||||
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$="<22>" 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 <20>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,"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
if LogIt=1 then print#1,"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
if LogIt=1 then print#1,"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
if LogIt=1 then print#1,"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> CSAFE-LOG-FILE <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
if LogIt=1 then print#1,"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2><EFBFBD><EFBFBD><EFBFBD> (C)1995 by RoboCop INDUSTRIES <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
if LogIt=1 then print#1,"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
if LogIt=1 then print#1,"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
if LogIt=1 then print#1,"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
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,"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
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"-=<3D> CSAFE v2.00 <20>=-":color 15
|
||||
print
|
||||
print"Syntax: ";:color 14:?"CSAFE Passwort [Log-Datei]":color 7
|
||||
print
|
||||
print"<22>Passwort - Das Passwort, das eingegeben werden mu<6D>"
|
||||
print"<22>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"<22><><EFBFBD> DART <20><><EFBFBD> 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"<22><><EFBFBD> Spielregeln <20><><EFBFBD>":color 14
|
||||
print
|
||||
print"Punkteverteilung: Auge - 50 Punkte"
|
||||
print" 25-Ring - 25 Punkte"
|
||||
print" mittlere Zone - 2x"
|
||||
print" <20>u<EFBFBD>ere Zone - 3x"
|
||||
print
|
||||
color 10:print" === Taste dr<64>cken, wenn bereit ===":color 15
|
||||
2 a$=inkey$:if a$="" then 2
|
||||
print"<22><><EFBFBD> Spielregeln <20><><EFBFBD>":color 14
|
||||
print
|
||||
print"Regeln: 1. Die Zielscheibe ist so aufzuh<75>ngen, da<64> die Mitte 1,72m <20>ber dem"
|
||||
print" Fu<46>boden h<>ngt. Der Abstand von der Wurflinie zur Scheibe betr<74>gt"
|
||||
print" 2,44m, die Wurflinie darf nicht <20>bertreten werden."
|
||||
print" 2. Jeder Spieler wirft zun<75>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<6D> exakt ";chr$(34);"Null";chr$(34);" erreicht werden."
|
||||
print" 6. Wird in der Endphase eine gr<67><72>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"<22><><EFBFBD> DARTGAME <20><><EFBFBD>"
|
||||
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,"<22><><EFBFBD> DARTGAME <20><><EFBFBD> (by RoboCop INDUSTRIES)"
|
||||
print#1,""
|
||||
print#1,"Name Wurf Pfeil Punkte ges.Punkte <20> "
|
||||
print#1,"============ ==== ===== ====== ========== ===== "
|
||||
cls
|
||||
color 15:print"<22><><EFBFBD> DARTGAME <20><><EFBFBD>"
|
||||
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 <20> "
|
||||
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"<22><><EFBFBD> DART <20><><EFBFBD> was written by"
|
||||
$INCLUDE "LOGO.INC"
|
||||
print
|
||||
end
|
||||
|
||||
4
dart.gam
Normal file
4
dart.gam
Normal file
@@ -0,0 +1,4 @@
|
||||
<EFBFBD><EFBFBD><EFBFBD> DARTGAME <20><><EFBFBD> (by RoboCop INDUSTRIES)
|
||||
|
||||
Name Wurf Pfeil Punkte ges.Punkte <20>
|
||||
============ ==== ===== ====== ========== =====
|
||||
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]<5D><><EFBFBD>[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"<22>ffne Eingabe-Datei ... ";
|
||||
open "I",#1,"C:\WINDOWS\WIN.INI"
|
||||
print "OK"
|
||||
locate 9,8:print"<22>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<69>e Eingabe-Datei ... ";
|
||||
close #1
|
||||
print"OK"
|
||||
locate 12,8:print"Schlie<69>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<74>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"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
locate 10,35
|
||||
for z=0 to per%/5
|
||||
if tst=1 then print "<22>"; 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<65>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,"<22> LOG-Datei vom Dark Forces Voice Name Changer v1.00"
|
||||
print#2,"<22> von RoboCop INDUSTRIES"
|
||||
print#2,"<22>"
|
||||
print#2,"<22> Gew<65>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,"<22> <EOLF - End Of List File >"
|
||||
goto Ende
|
||||
end if
|
||||
goto 1
|
||||
|
||||
NamesToNumbers:
|
||||
print"Gew<65>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,"<22> LOG-Datei vom Dark Forces Voice Name Changer v1.00"
|
||||
print#2,"<22> von RoboCop INDUSTRIES"
|
||||
print#2,"<22>"
|
||||
print#2,"<22> Gew<65>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,"<22> <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<65>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<65>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,"<22> Programm beendet."
|
||||
|
||||
GanzEnde:
|
||||
|
||||
71
dostrend.bas
Normal file
71
dostrend.bas
Normal file
@@ -0,0 +1,71 @@
|
||||
cls
|
||||
color 15
|
||||
print"<22><><EFBFBD> DOS Trend - Sortierer <20><><EFBFBD>";: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"<22>ffne Kanal #1 ... ";
|
||||
open "I",#1,"TEMP.$$$"
|
||||
print"OK"
|
||||
on error goto
|
||||
print"<22>ffne Kanal #2 ... ";
|
||||
open "O",#2,"DOSTREND.OUT"
|
||||
print"OK"
|
||||
print"Schreibe Dateikopf ... ";
|
||||
print#2,"<22><><EFBFBD> DOS Trend - Sortierer <20><><EFBFBD>"
|
||||
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"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
line input#1,zle$
|
||||
2 locate 25,1:color 12:print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
print#2,zle$
|
||||
1 if eof(1) then 3
|
||||
locate 25,1:color 10:print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
line input#1,zle2$
|
||||
locate 25,1:color 14:print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
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<69>e Kanal #1 ... ";
|
||||
close #1
|
||||
print"OK"
|
||||
print"Schlie<69>e Kanal #2 ... ";
|
||||
close #2
|
||||
print"OK"
|
||||
print"L<>sche TEMP.$$$ Datei ... ";
|
||||
kill "temp.$$$"
|
||||
shell "echo .>temp.$$$"
|
||||
kill "temp.$$$"
|
||||
print"OK"
|
||||
print
|
||||
print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͻ"
|
||||
print"<22> Die Liste befindet sich <20>"
|
||||
print"<22> sortiert in der Datei <20>"
|
||||
print"<22> DOSTREND.OUT. <20>"
|
||||
print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ"
|
||||
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"<22><><EFBFBD> EditPath <20><><EFBFBD> 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"<22><><EFBFBD> EditPath <20><><EFBFBD> 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 <20>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"<22><><EFBFBD> EditPath <20><><EFBFBD> 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<53>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<46>che an." else print"."
|
||||
locate 6,2
|
||||
print"Es werden w<>hrend der Installation ca. 25,5 MB sp<73>ter ca. 17 MB ben<65>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" <20> Ben<65>tigt : ,,,,,,,,,,,,";17*(1024^2)
|
||||
print " <20> Frei auf ";lw$;:print using": : ,,,,,,,,,,,";frei*1000
|
||||
print using" <20> Noch ben<65>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:?"<22>"
|
||||
color 0,7:locate 14,17:print" <20>NDERN ";:color 8,1:?"<22>"
|
||||
color 0,7:locate 14,32:print" ENDE ";:color 8,1:?"<22>"
|
||||
for z=3 to 33 step 15
|
||||
locate 15,z:print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
next z
|
||||
color 0,3
|
||||
locate 25,2:print"JA";
|
||||
locate 25,10:print"<22>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$="<22>":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" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
locate 15,c
|
||||
print" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
locate 16,2:print space$(79);
|
||||
locate 17,2:print space$(79);
|
||||
delay 1
|
||||
if wahl$="J" then InstallRout
|
||||
if wahl$="<22>" 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<70> 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<74>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"<22><><EFBFBD> Left"
|
||||
160 IF A=152 OR A=153 OR A=154 OR A=155 THEN LOCATE 15,60:PRINT"Right <20><><EFBFBD>"
|
||||
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 <20>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"<22><><EFBFBD> KeyProg v";ver$;" <20><><EFBFBD>"
|
||||
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<45>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"<22><><EFBFBD> Key Prog v";ver$;" <20><><EFBFBD>":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);"<22><> (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);"<22><> 55 Q 75 -"
|
||||
print" 16 ";chr$(27);" (Z) 36 ";chr$(17);"<22><> 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"<22><><EFBFBD> KeyProg v";ver$;" <20><><EFBFBD>"
|
||||
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"<22><><EFBFBD> KeyProg v";ver$;" <20><><EFBFBD>"
|
||||
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<61>er bei TYPE-Mode, mei<65>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<73>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 "<22><><EFBFBD> Edit-Modus <20><><EFBFBD>"
|
||||
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 "<22>"
|
||||
if c=0 then c3=32 else c3=c
|
||||
color c3-1:locate gay,gax+4:print "<22>"
|
||||
color c:locate gay,gax+5:print "<22>"
|
||||
if c=31 then c2=-1 else c2=c
|
||||
locate gay,gax+6:color c2+1:print "<22>"
|
||||
c4=c
|
||||
if c=30 then c4=-1
|
||||
if c=31 then c4=-2
|
||||
locate gay,gax+7:color c4+2:print "<22>"
|
||||
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 "<22>";
|
||||
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 "<22>" else print "<22>"
|
||||
next cy
|
||||
next cx
|
||||
locate x,y:color weiss
|
||||
if b(y,x)=0 then print "<22>"; else print "<22>";
|
||||
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 "<22><><EFBFBD> Edit-Modus <20><><EFBFBD>"
|
||||
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<EFBFBD>!
|
||||
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<6D>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<6D> mit MaxX <20>bereinstimmen !
|
||||
008: 2. Zeile des Spielfeldes (z.B.: " * **") ! Mu<4D> 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
|
||||
" * "
|
||||
" * "
|
||||
" *** "
|
||||
" "
|
||||
" "
|
||||
-----------
|
||||
<EFBFBD>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 @@
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
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" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ";
|
||||
PRINT" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ";
|
||||
PRINT" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ";
|
||||
PRINT" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ";
|
||||
PRINT" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ";
|
||||
PRINT" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ";
|
||||
PRINT" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ";
|
||||
PRINT space$(80);
|
||||
PRINT space$(80);
|
||||
PRINT" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> ";
|
||||
PRINT" <20><> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> ";
|
||||
PRINT" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> ";
|
||||
PRINT" <20><> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> ";
|
||||
PRINT" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> ";
|
||||
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" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
PRINT" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
PRINT" <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
PRINT" <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
PRINT" <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>"
|
||||
PRINT" <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>"
|
||||
PRINT" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>"
|
||||
PRINT" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD>"
|
||||
PRINT
|
||||
PRINT
|
||||
PRINT
|
||||
PRINT"<22><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><> <20> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20> <20><><EFBFBD><EFBFBD> <20> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD>"
|
||||
PRINT"<22> <20> <20> <20> <20> <20> <20> <20> <20><> <20> <20> <20> <20> <20> <20> <20> <20><> <20><> <20> <20> <20> <20> <20> <20> <20> <20>"
|
||||
PRINT"<22><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20> <20> <20> <20> <20><><EFBFBD><EFBFBD> <20> <20> <20> <20> <20> <20> <20> <20><><EFBFBD><EFBFBD> <20> <20> <20> <20><> <20><><EFBFBD><EFBFBD>"
|
||||
PRINT"<22> <20> <20> <20> <20> <20> <20> <20> <20><> <20> <20> <20> <20> <20> <20> <20> <20> <20> <20> <20> <20> <20> <20> <20> <20>"
|
||||
PRINT"<22> <20><><EFBFBD> <20> <20> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20><> <20> <20> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20> <20> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD> <20> <20>"
|
||||
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"<22><><EFBFBD> MakeRegister <20><><EFBFBD>"
|
||||
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<45>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<6D>";: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"<22><><EFBFBD><EFBFBD>TEXT-MAKER<45><52><EFBFBD><EFBFBD>";
|
||||
color 7:print" written by RoboCop<6F>INDUSTRIES"
|
||||
print
|
||||
5 x(1)=csrlin:rem aktuelle Zeile
|
||||
y(1)=pos(0):rem aktuelle Spalte
|
||||
color 12:print"<22>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<63>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"<22><><EFBFBD> Abfrage <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͻ"
|
||||
for a=11 to 16
|
||||
locate a,1:print"<22>"
|
||||
locate a,22:print"<22>"
|
||||
next a
|
||||
print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ"
|
||||
locate 13,23:print"<22><><EFBFBD> Tasten <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͻ"
|
||||
locate 14,23:print"<22> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ <20>"
|
||||
locate 15,23:print"<22> <20> <20> <20> <20> <20>"
|
||||
locate 16,23:print"<22> <20> <20> <20> <20> <20>"
|
||||
locate 17,23:print"<22> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ĵ <20>"
|
||||
locate 18,23:print"<22> <20> Artec <20> <20>"
|
||||
locate 19,23:print"<22> <20> <20> <20>"
|
||||
locate 20,23:print"<22> <20> <20> <20>"
|
||||
locate 21,23:print"<22> <20> <20> <20>"
|
||||
locate 22,23:print"<22> ------8<-------8<----- <20>"
|
||||
locate 23,23:print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ"
|
||||
locate 10,23
|
||||
print"<22><><EFBFBD> Koordinaten <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͻ"
|
||||
locate 11,23
|
||||
print"<22>":locate 11,75:print"<22>"
|
||||
locate 12,23
|
||||
print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ"
|
||||
locate 12,5
|
||||
color 15,7
|
||||
print" OK ";:color 8,1:print"<22>"
|
||||
locate 13,6:print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
locate 15,5:color 15,7
|
||||
print" CANCEL ";:color 8,1:print"<22>"
|
||||
locate 16,6:print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
locate 1,1:color 14,1
|
||||
print"<22><><EFBFBD> Status <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͻ"
|
||||
for a=2 to 5
|
||||
locate a,1
|
||||
print"<22> <20>"
|
||||
next a
|
||||
print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ"
|
||||
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"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
locate 16,26:print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
goto ButtB1
|
||||
ButtA0:
|
||||
locate 15,26:print" "
|
||||
locate 16,26:print" "
|
||||
ButtB1:
|
||||
if b<>1 then goto ButtB0
|
||||
locate 15,33:print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
locate 16,33:print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
goto ButtC1
|
||||
ButtB0:
|
||||
locate 15,33:print" "
|
||||
locate 16,33:print" "
|
||||
ButtC1:
|
||||
if c<>1 then goto ButtC0
|
||||
locate 15,40:print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
locate 16,40:print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
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<EFBFBD><EFBFBD>"
|
||||
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 " <20><><EFBFBD><EFBFBD>nECK<43><4B><EFBFBD><EFBFBD>":color 15
|
||||
print " by
|
||||
print " RoboCop<6F>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<74>nge =",p(1)
|
||||
50 input"Endl<64>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"<22>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<73>nge","Endl<64>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 @@
|
||||
|
||||
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
/<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>\
|
||||
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD>
|
||||
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20> <20> <20> <20> <20> <20> <20> <20> <20> <20> <20> <20>
|
||||
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20> <20><><EFBFBD><EFBFBD> <20> <20> <20> <20> <20> <20><><EFBFBD><EFBFBD>
|
||||
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><DEB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20> <20> <20> <20> <20> <20> <20> <20> <20> <20> <20>
|
||||
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ٰ<EFBFBD><D9B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20>
|
||||
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> I N D U S T R I E S
|
||||
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (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"<22><><EFBFBD><EFBFBD> Printing Calculator <20><><EFBFBD><EFBFBD>";:color 7,0
|
||||
print" was written by"
|
||||
print"<22><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD>"
|
||||
print"<22> <20> <20> <20> <20> <20> <20> <20> <20> <20> <20> <20> <20>"
|
||||
print"<22><><EFBFBD><EFBFBD> <20> <20> <20><><EFBFBD><EFBFBD> <20> <20> <20> <20> <20> <20><><EFBFBD><EFBFBD>"
|
||||
print"<22> <20> <20> <20> <20> <20> <20> <20> <20> <20> <20> <20>"
|
||||
print"<22> <20> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20>"
|
||||
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"<22>berpr<70>fen Sie folgende Sachverhalte:"
|
||||
print" <20> Haben Sie sie nicht ver<65>ndert?"
|
||||
print" <20> Haben Sie sie nicht umbenannt (Diese Datei MU<4D> PCALC.EXE heissen)?"
|
||||
print" <20> 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"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ"
|
||||
locate 4,40:print"<22><> 88888888888.<2E>"
|
||||
locate 5,40:print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
locate 8,43:print"<22><><EFBFBD><EFBFBD><EFBFBD>Ŀ <20><><EFBFBD><EFBFBD><EFBFBD>Ŀ <20><><EFBFBD><EFBFBD><EFBFBD>Ŀ"
|
||||
locate 9,43:print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
locate 7,43:print" TAB P/ NP OFF"
|
||||
color 3
|
||||
for x=11 to 20 step 3
|
||||
locate x,60:print"<22><><EFBFBD>Ŀ"
|
||||
locate x+2,60:print"<22><><EFBFBD><EFBFBD><EFBFBD>"
|
||||
if x>=17 then color 12
|
||||
if x<17 then color 7
|
||||
locate x,26:print"<22><><EFBFBD>Ŀ"
|
||||
locate x+2,26:print"<22><><EFBFBD><EFBFBD><EFBFBD>"
|
||||
color 3
|
||||
next x
|
||||
locate 12,60:print"<22> M<><4D>"
|
||||
locate 15,60:print"<22> M<><4D>"
|
||||
locate 18,60:print"<22> M<><4D>"
|
||||
locate 21,60:print"<22> M*<2A>"
|
||||
color 7
|
||||
locate 12,26:print"<22> <20> <20>"
|
||||
locate 15,26:print"<22> % <20>"
|
||||
color 12
|
||||
locate 18,26:print"<22> CE<43>"
|
||||
locate 21,26:print"<22>ONC<4E>"
|
||||
color 7
|
||||
locate 20,32:print"<22><><EFBFBD><EFBFBD>Ŀ"
|
||||
locate 21,32:print"<22> 0 <20>"
|
||||
locate 22,32:print"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
for x=11 to 17 step 3
|
||||
locate x,33:print"<22><><EFBFBD>Ŀ"
|
||||
locate x+1,33:print"<22>";18-x;"<22>"
|
||||
locate x+2,33:print"<22><><EFBFBD><EFBFBD><EFBFBD>"
|
||||
locate x,38:print"<22><><EFBFBD>Ŀ"
|
||||
locate x+1,38:print"<22>";19-x;"<22>"
|
||||
locate x+2,38:print"<22><><EFBFBD><EFBFBD><EFBFBD>"
|
||||
locate x,43:print"<22><><EFBFBD>Ŀ"
|
||||
locate x+1,43:print"<22>";20-x;"<22>"
|
||||
locate x+2,43:print"<22><><EFBFBD><EFBFBD><EFBFBD>"
|
||||
next x
|
||||
locate 20,38:print"<22><><EFBFBD>Ŀ"
|
||||
locate 21,38:print"<22> 00<30>"
|
||||
locate 22,38:print"<22><><EFBFBD><EFBFBD><EFBFBD>"
|
||||
locate 20,43:print"<22><><EFBFBD>Ŀ"
|
||||
locate 21,43:print"<22> . <20>"
|
||||
locate 22,43:print"<22><><EFBFBD><EFBFBD><EFBFBD>"
|
||||
for x=11 to 20 step 3
|
||||
locate x,54:print"<22><><EFBFBD>Ŀ"
|
||||
locate x+2,54:print"<22><><EFBFBD><EFBFBD><EFBFBD>"
|
||||
if x<17 then
|
||||
locate x,49:print"<22><><EFBFBD>Ŀ"
|
||||
locate x+2,49:print"<22><><EFBFBD><EFBFBD><EFBFBD>"
|
||||
end if
|
||||
next x
|
||||
locate 17,49:print"<22><><EFBFBD>Ŀ"
|
||||
locate 18,49:print"<22> <20>"
|
||||
locate 19,49:print"<22> + <20>"
|
||||
locate 20,49:print"<22> <20>"
|
||||
locate 21,49:print"<22> <20>"
|
||||
locate 22,49:print"<22><><EFBFBD><EFBFBD><EFBFBD>"
|
||||
locate 12,49:print"<22> x <20>"
|
||||
locate 15,49:print"<22> - <20>"
|
||||
locate 12,54:print"<22> \ <20>"
|
||||
locate 15,54:print"<22> = <20>"
|
||||
locate 18,54:print"<22>#/P<>"
|
||||
locate 21,54:print"<22> * <20>"
|
||||
color 0,3:locate 24,1
|
||||
print"[ENTER]-* M+-M<> M--M<> MO-M<> M[ENTER]-M* ^-<2D> ";
|
||||
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$="<22>" 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<73>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