216 lines
6.2 KiB
QBasic
216 lines
6.2 KiB
QBasic
$INCLUDE "LOGO.INC"
|
||
$INCLUDE "PBWINDOW.INC"
|
||
if command$="SKIP" or command$="skip" then goto SkipIt
|
||
color 15
|
||
Lin=csrlin-1
|
||
txt$="proudly presents"
|
||
txt$(1)=txt$
|
||
gosub WriteText
|
||
txt$="The Paintbrush Pick Info Remover"
|
||
txt$(2)=txt$
|
||
print
|
||
Lin=csrlin-1
|
||
delay 1
|
||
gosub WriteText
|
||
delay 1
|
||
color 9
|
||
Anf1=40-int(len(txt$(1))/2)+1
|
||
Anf2=40-int(len(txt$(2))/2)+1
|
||
locate Lin-1,Anf1:print txt$(1)
|
||
locate Lin,Anf2:print txt$(2)
|
||
delay .15
|
||
color 3
|
||
locate Lin-1,Anf1:print txt$(1)
|
||
locate Lin,Anf2:print txt$(2)
|
||
delay .15
|
||
color 11
|
||
locate Lin-1,Anf1:print Txt$(1)
|
||
locate Lin,Anf2:print txt$(2)
|
||
delay .15
|
||
color 15
|
||
locate Lin-1,Anf1:print txt$(1)
|
||
locate Lin,Anf2:print txt$(2)
|
||
goto Program
|
||
|
||
WriteText:
|
||
AnfLocX=40-int(len(txt$)/2)
|
||
x=1
|
||
1 if x>0 then LetA$=mid$(txt$,x,1)
|
||
if x>1 then LetB$=mid$(txt$,x-1,1)
|
||
if x>2 then LetC$=mid$(txt$,x-2,1)
|
||
if x>3 then LetD$=mid$(txt$,x-3,1)
|
||
if x>4 then LetE$=mid$(txt$,x-4,1)
|
||
if x>0 then color 15:locate Lin,AnfLocX+x:print LetA$
|
||
if x>1 then color 11:locate Lin,AnfLocX+x-1:print LetB$
|
||
if x>2 then color 3:locate Lin,AnfLocX+x-2:print LetC$
|
||
if x>3 then color 9:locate Lin,AnfLocX+x-3:print LetD$
|
||
if x>4 then color 1:locate Lin,AnfLocX+x-4:print LetE$
|
||
x=x+1:if x>len(txt$)+4 then 2 else delay .05:goto 1
|
||
2 delay 1
|
||
color 15:locate Lin,AnfLocX+1:print txt$
|
||
delay .1:color 11:locate Lin,AnfLocX+1:print txt$
|
||
delay .1:color 3:locate Lin,AnfLocX+1:print txt$
|
||
delay .1:color 9:locate Lin,AnfLocX+1:print txt$
|
||
delay .1:color 1:locate Lin,AnfLocX+1:print txt$
|
||
return
|
||
|
||
SkipIt:
|
||
color 15
|
||
txt$="proudly presents"
|
||
locate csrlin-1,40-int(len(txt$)/2):print txt$
|
||
txt$="The Paintbrush Pick Info Remover"
|
||
locate csrlin,40-int(len(txt$)/2):print txt$
|
||
goto Program
|
||
|
||
Program:
|
||
Item$(0)="[Programm w„hlen]"
|
||
gosub PF2:test=1
|
||
gosub CheckForPresence
|
||
gosub PF3:test=2
|
||
gosub CheckForPresence
|
||
gosub PCP:test=3
|
||
gosub CheckForPresence
|
||
Lin=17
|
||
call MakeWindow (15,9,5,63,ColAttr%(11,0),2,4,2)
|
||
call TitleWindow (1,"[Information]")
|
||
txt$="Zum Abbrechen [ESC] dr<64>cken, ansonsten eine Auswahl treffen"
|
||
if command$="skip" or command$="SKIP" then
|
||
locate Lin,40-int(len(txt$)/2)
|
||
color 15,0
|
||
print txt$
|
||
goto 7
|
||
end if
|
||
gosub WriteText:delay 1
|
||
color 9:locate 17,AnfLocX+1:print txt$:delay .15
|
||
color 3:locate 17,AnfLocX+1:print txt$:delay .15
|
||
color 11:locate 17,AnfLocX+1:print txt$:delay .15
|
||
color 15:locate 17,AnfLocX+1:print txt$
|
||
7 Call MakeMenu (3,3,ColAttr%(11,1),ColAttr%(0,3),4,4,2,1,3,Item$())
|
||
if CurntPos%=0 then ag=0:goto BreakItUp
|
||
if CurntPos%=1 and right$(Item$(1),17)<>"[nicht vorhanden]" then ag=0:gosub PF2:goto 20 else ag=1:goto 7
|
||
if CurntPos%=2 and right$(Item$(2),17)<>"[nicht vorhanden]" then ag=0:gosub PF3:goto 20 else ag=1:goto 7
|
||
if CurntPos%=3 and right$(Item$(3),17)<>"[nicht vorhanden]" then ag=0:gosub PCP:goto 20 else ag=1:goto 7
|
||
20 if ag=0 then Call RemoveWindow
|
||
goto ChangeWININI
|
||
|
||
CheckForPresence:
|
||
open "I",#1,"C:\WINDOWS\WIN.INI"
|
||
10 if eof(1) then close #1:return
|
||
line input#1,dummy$
|
||
if left$(dummy$,1)="[" then
|
||
tit$=""
|
||
for dummy=2 to 80
|
||
if mid$(dummy$,dummy,1)="]" then exit for else tit$=tit$+mid$(dummy$,dummy,1)
|
||
next dummy
|
||
else
|
||
goto 10
|
||
end if
|
||
if tit$=Title$ then Item$(test)=ProgInfo$:close #1:return else Item$(test)=ProgInfo$+" [nicht vorhanden]":goto 10
|
||
|
||
PF2:
|
||
Title$="PhotoFinish"
|
||
ProgInfo$="Photo Finish 2.0"
|
||
PickInfo$=lcase$("Pick")
|
||
return
|
||
|
||
PF3:
|
||
Title$="Photo Finish 3.0"
|
||
ProgInfo$="Photo Finish 3.0"
|
||
PickInfo$=lcase$("Pick")
|
||
return
|
||
|
||
PCP:
|
||
Title$="PC Paintbrush"
|
||
ProgInfo$="PC Paintbrush 1.0"
|
||
PickInfo$=lcase$("Pick")
|
||
return
|
||
|
||
ChangeWININI:
|
||
call MakeWindow(5,5,15,70,ColAttr%(14,1),1,4,1)
|
||
WinTit$="[Editing C:\WINDOWS\WIN.INI]ÄÄÄ[Mode: "+Title$+"]"
|
||
call TitleWindow(1,WinTit$)
|
||
per%=0
|
||
color 14,1
|
||
locate 7,8:print"Erstelle Sicherheitskopie von Ausgangs-Datei ... ";
|
||
CopyOrd$="COPY C:\WINDOWS\WIN.INI C:\WINDOWS\WIN.PPR /V /Y >NUL"
|
||
shell CopyOrd$
|
||
print "OK"
|
||
locate 8,8:print"™ffne Eingabe-Datei ... ";
|
||
open "I",#1,"C:\WINDOWS\WIN.INI"
|
||
print "OK"
|
||
locate 9,8:print"™ffne Temp-Datei ... ";
|
||
open "O",#2,"C:\WINDOWS\PPR.$$$"
|
||
print "OK"
|
||
zeil=1
|
||
6 line input#1,dummy$
|
||
if eof(1) then 5 else zeil=zeil+1:goto 6
|
||
5 close #1:open "I",#1,"C:\WINDOWS\WIN.INI"
|
||
locate 10,8:print "Bearbeite Temp-Datei ... "; '10,33 ist HIER
|
||
gosub ShowGraph
|
||
aktz=1
|
||
3 line input#1,zei$
|
||
if left$(zei$,1)="[" then
|
||
tit$=""
|
||
for g=2 to 80
|
||
if mid$(zei$,g,1)="]" then exit for else tit$=tit$+mid$(zei$,g,1)
|
||
next g
|
||
per%=(aktz/zeil)*100
|
||
gosub ShowGraph
|
||
print#2,zei$
|
||
locate 11,8:print"Momentane Gruppe: ";tit$
|
||
else
|
||
raus$=zei$
|
||
gosub CheckForParam
|
||
print#2,raus$
|
||
end if
|
||
if eof(1) then goto 4
|
||
aktz=aktz+1
|
||
goto 3
|
||
4 locate 11,8:print space$(64)
|
||
locate 11,8:print"Schlieáe Eingabe-Datei ... ";
|
||
close #1
|
||
print"OK"
|
||
locate 12,8:print"Schlieáe Temp-Datei ... ";
|
||
close #2
|
||
print "OK"
|
||
locate 13,8:print"L”sche alte WIN.INI ... ";
|
||
kill "C:\WINDOWS\WIN.INI"
|
||
print "OK"
|
||
locate 14,8:print"Benenne Temp-Datei in WIN.INI um ... ";
|
||
name "C:\WINDOWS\PPR.$$$" as "C:\WINDOWS\WIN.INI"
|
||
print "OK"
|
||
locate 16,8:print"Operation abgeschlossen!"
|
||
delay 1
|
||
call RemoveWindow
|
||
color 15,0
|
||
locate 24,1:print:print
|
||
locate 24,1
|
||
print"Alle Pick-Eintr„ge von ";chr$(34);Title$;chr$(34);" wurden entfernt!"
|
||
print
|
||
end
|
||
|
||
CheckForParam:
|
||
if lcase$(left$(zei$,len(PickInfo$)+2))=PickInfo$+"1=" and tit$=Title$ then raus$=PickInfo$+"1="
|
||
if lcase$(left$(zei$,len(PickInfo$)+2))=PickInfo$+"2=" and tit$=Title$ then raus$=PickInfo$+"2="
|
||
if lcase$(left$(zei$,len(PickInfo$)+2))=PickInfo$+"3=" and tit$=Title$ then raus$=PickInfo$+"3="
|
||
if lcase$(left$(zei$,len(PickInfo$)+2))=PickInfo$+"4=" and tit$=Title$ then raus$=PickInfo$+"4="
|
||
return
|
||
|
||
ShowGraph:
|
||
locate 10,57:print using"### %";per%
|
||
locate 10,35:print"°°°°°°°°°°°°°°°°°°°°"
|
||
locate 10,35
|
||
for z=0 to per%/5
|
||
if tst=1 then print "²"; else tst=1
|
||
next z
|
||
return
|
||
|
||
BreakItUp:
|
||
locate 24,1:print:print
|
||
call MakeWindow(10,27,5,26,ColAttr%(14,1),5,4,2)
|
||
call TitleWindow(1,"[Information]")
|
||
color 12,1:locate 12,29:print"Programm abgebrochen !"
|
||
if command$="skip" or command$="SKIP" then locate 24,1:end
|
||
delay 1.75
|
||
call RemoveWindow
|
||
locate 24,1:end |