392 lines
11 KiB
QBasic
392 lines
11 KiB
QBasic
ver$="1.02"
|
||
color 15:print"ððð KeyProg v";ver$;" ððð"
|
||
print"by:"
|
||
$INCLUDE "LOGO.INC"
|
||
color 15
|
||
shell"DIR C:\*.* >director.y__"
|
||
open "I",#2,"director.y__"
|
||
line input#2,dummy$
|
||
line input#2,hdname$
|
||
line input#2,hdnumb$
|
||
close #2
|
||
open "O",#2,"Director.y__"
|
||
print#2,"PHYSIKALISCH GEL™SCHT!"
|
||
close #2
|
||
kill "director.y__"
|
||
on error goto NotReg
|
||
open "I",#1,"serial.num"
|
||
on error goto
|
||
line input#1,ser$
|
||
line input#1,usnam$
|
||
close #1
|
||
for zet=1 to 11
|
||
ser2$=ser2$+chr$(asc(mid$(ser$,zet,1))-100)
|
||
next zet
|
||
hdname$=right$(hdname$,11)
|
||
hdnumb$=right$(hdnumb$,9)
|
||
for zet=1 to len(hdname$)
|
||
midd$=mid$(hdname$,zet,1)
|
||
if midd$="A" then nm$="1"
|
||
if midd$="B" then nm$="5"
|
||
if midd$="C" then nm$="3"
|
||
if midd$="D" then nm$="2"
|
||
if midd$="E" then nm$="9"
|
||
if midd$="F" then nm$="8"
|
||
if midd$="G" then nm$="7"
|
||
if midd$="H" then nm$="4"
|
||
if midd$="I" then nm$="6"
|
||
if midd$="J" then nm$="0"
|
||
if midd$="K" then nm$="2"
|
||
if midd$="L" then nm$="1"
|
||
if midd$="M" then nm$="3"
|
||
if midd$="N" then nm$="4"
|
||
if midd$="O" then nm$="7"
|
||
if midd$="P" then nm$="9"
|
||
if midd$="Q" then nm$="0"
|
||
if midd$="R" then nm$="6"
|
||
if midd$="S" then nm$="5"
|
||
if midd$="T" then nm$="4"
|
||
if midd$="U" then nm$="2"
|
||
if midd$="V" then nm$="6"
|
||
if midd$="W" then nm$="8"
|
||
if midd$="X" then nm$="0"
|
||
if midd$="Y" then nm$="9"
|
||
if midd$="Z" then nm$="5"
|
||
if midd$="0" then nm$="1"
|
||
if midd$="1" then nm$="0"
|
||
if midd$="2" then nm$="3"
|
||
if midd$="3" then nm$="2"
|
||
if midd$="4" then nm$="5"
|
||
if midd$="5" then nm$="4"
|
||
if midd$="6" then nm$="7"
|
||
if midd$="7" then nm$="6"
|
||
if midd$="8" then nm$="9"
|
||
if midd$="9" then nm$="8"
|
||
if midd$="_" then nm$="3"
|
||
if nm$="" then nm$="5"
|
||
hdn$=hdn$+nm$
|
||
nm$=""
|
||
next zet
|
||
hdnumb$=left$(hdnumb$,4)+right$(hdnumb$,4)
|
||
for zet=1 to 8
|
||
midd$=mid$(hdnumb$,zet,1)
|
||
if midd$="A" then nm$="2"
|
||
if midd$="B" then nm$="4"
|
||
if midd$="C" then nm$="6"
|
||
if midd$="D" then nm$="8"
|
||
if midd$="E" then nm$="1"
|
||
if midd$="F" then nm$="3"
|
||
if nm$="" then nm$=midd$
|
||
hdnum$=hdnum$+nm$
|
||
nm$=""
|
||
next zet
|
||
ser$=str$(val(hdnum$)+val(hdn$))
|
||
ser$=right$(ser$,len(ser$)-1)
|
||
if ser$=ser2$ then goto Anfang else goto NotRegisterd
|
||
|
||
NotReg:
|
||
resume NotRegisterd
|
||
|
||
NotRegisterd:
|
||
print
|
||
print"Dieses Programm ist noch nicht registriert !!!"
|
||
print"Lassen Sie sich unter (03322) 3198 registrieren."
|
||
print
|
||
print"Es wird nur die Taste F1 zu programmieren sein."
|
||
print
|
||
delay 10
|
||
unreg=1
|
||
usnam$="NIEMANDEN"
|
||
Anfang:
|
||
cls
|
||
color 14
|
||
print"ððð Key Prog v";ver$;" ððð":color 10
|
||
rstr$="Registriert f<>r <"
|
||
locate 1,80-len(usnam$)-1
|
||
print usnam$;:color 7:?">"
|
||
locate 1,80-len(usnam$)-1-len(rstr$)
|
||
print rstr$
|
||
color 12
|
||
print" by RoboCop INDUSTRIES"
|
||
color 15
|
||
print
|
||
print" 1 F1 21 Einfg (Z) 41 C 61 W 81 ' (Z) - auf dem Zehnerblock";
|
||
print" 2 F2 22 Entf (Z) 42 D 62 X 82 ,"
|
||
print" 3 F3 23 Pos1 43 E 63 Y 83 ."
|
||
print" 4 F4 24 ";chr$(24);" 44 F 64 Z 84 /"
|
||
print" 5 F5 25 Bild";chr$(24);" 45 G 65 1 85 `"
|
||
print" 6 F6 26 ";chr$(27);" 46 H 66 2 86 ";chr$(17);"ÄÙ (Z)"
|
||
print" 7 F7 27 ";chr$(26);" 47 I 67 3 87 / (Z)"
|
||
print" 8 F8 28 Ende 48 J 68 4 88 * (Z)"
|
||
print" 9 F9 29 ";chr$(25);" 49 K 69 5 89 - (Z)"
|
||
print" 10 F10 30 Bild";chr$(25);" 50 L 70 6 90 + (Z)"
|
||
print" 11 F11 31 Einfg 51 M 71 7 91 5 (Z)"
|
||
print" 12 F12 32 Entf 52 N 72 8"
|
||
print" 13 Pos1 (Z) 33 Druck 53 O 73 9 0 RAUS ZUM DOS"
|
||
print" 14 ";chr$(24);" (Z) 34 Pause 54 P 74 0"
|
||
print" 15 Bild";chr$(24);" (Z) 35 ";chr$(17);"ÄÄ 55 Q 75 -"
|
||
print" 16 ";chr$(27);" (Z) 36 ";chr$(17);"ÄÙ 56 R 76 ="
|
||
print" 17 ";chr$(26);" (Z) 37 TAB 57 S 77 ["
|
||
print" 18 Ende (Z) 38 NULL 58 T 78 ]"
|
||
print" 19 ";chr$(25);" (Z) 39 A 59 U 79 [SPACE]"
|
||
print" 20 Bild";chr$(25);" (Z) 40 B 60 V 80 ;"
|
||
1 locate 23,55:input"Taste: ",ein
|
||
if ein=0 then cls:goto ProgEnd
|
||
if ein<>1 and unreg=1 then 1
|
||
if ein<1 or ein>91 or int(ein)<>ein then 1
|
||
cls
|
||
if ein=1 then gosub F1
|
||
if unreg=1 then goto ProgKey
|
||
if ein=2 then gosub F2
|
||
if ein=3 then gosub F3
|
||
if ein=4 then gosub F4
|
||
if ein=5 then gosub F5
|
||
if ein=6 then gosub F6
|
||
if ein=7 then gosub F7
|
||
if ein=8 then gosub F8
|
||
if ein=9 then gosub F9
|
||
if ein=10 then gosub F10
|
||
if ein=11 then gosub F11
|
||
if ein=12 then gosub F12
|
||
if ein=13 then gosub ZHome
|
||
if ein=14 then gosub ZUp
|
||
if ein=15 then gosub ZPgUp
|
||
if ein=16 then gosub ZLt
|
||
if ein=17 then gosub ZRt
|
||
if ein=18 then gosub ZEnd
|
||
if ein=19 then gosub ZDn
|
||
if ein=20 then gosub ZPgDn
|
||
if ein=21 then gosub ZIns
|
||
if ein=22 then gosub ZDel
|
||
if ein=23 then gosub Home
|
||
if ein=24 then gosub Up
|
||
if ein=25 then gosub PgUp
|
||
if ein=26 then gosub Lt
|
||
if ein=27 then gosub Rt
|
||
if ein=28 then gosub Ende
|
||
if ein=29 then gosub Dn
|
||
if ein=30 then gosub PgDn
|
||
if ein=31 then gosub Ins
|
||
if ein=32 then gosub Del
|
||
if ein=33 then gosub PrtScr
|
||
if ein=34 then gosub Break
|
||
if ein=35 then gosub BckSpc
|
||
if ein=36 then gosub Ret
|
||
if ein=37 then gosub TABULATOR
|
||
if ein=38 then gosub NULL
|
||
if ein=39 then gosub A
|
||
if ein=40 then gosub B
|
||
if ein=41 then gosub C
|
||
if ein=42 then gosub D
|
||
if ein=43 then gosub E
|
||
if ein=44 then gosub F
|
||
if ein=45 then gosub G
|
||
if ein=46 then gosub H
|
||
if ein=47 then gosub I
|
||
if ein=48 then gosub J
|
||
if ein=49 then gosub K
|
||
if ein=50 then gosub L
|
||
if ein=51 then gosub M
|
||
if ein=52 then gosub N
|
||
if ein=53 then gosub O
|
||
if ein=54 then gosub P
|
||
if ein=55 then gosub Q
|
||
if ein=56 then gosub R
|
||
if ein=57 then gosub S
|
||
if ein=58 then gosub T
|
||
if ein=59 then gosub U
|
||
if ein=60 then gosub V
|
||
if ein=61 then gosub W
|
||
if ein=62 then gosub X
|
||
if ein=63 then gosub Y
|
||
if ein=64 then gosub Z
|
||
if ein=65 then gosub N1
|
||
if ein=66 then gosub N2
|
||
if ein=67 then gosub N3
|
||
if ein=68 then gosub N4
|
||
if ein=69 then gosub N5
|
||
if ein=70 then gosub N6
|
||
if ein=71 then gosub N7
|
||
if ein=72 then gosub N8
|
||
if ein=73 then gosub N9
|
||
if ein=74 then gosub N0
|
||
if ein=75 then gosub Minus
|
||
if ein=76 then gosub Equals
|
||
if ein=77 then gosub BrckO
|
||
if ein=78 then gosub BrckC
|
||
if ein=79 then gosub Space
|
||
if ein=80 then gosub Semicolon
|
||
if ein=81 then gosub Appostrophy
|
||
if ein=82 then gosub Comma
|
||
if ein=83 then gosub Punkt
|
||
if ein=84 then gosub Slash
|
||
if ein=85 then gosub Appostrophy2
|
||
if ein=86 then gosub ZRet
|
||
if ein=87 then gosub ZSlash
|
||
if ein=88 then gosub ZAsterisk
|
||
if ein=89 then gosub ZMinus
|
||
if ein=90 then gosub ZPlus
|
||
if ein=91 then gosub Z5
|
||
goto ProgKey
|
||
|
||
$INCLUDE "KEYCODES.INC"
|
||
|
||
ProgKey:
|
||
cls
|
||
print"ððð KeyProg v";ver$;" ððð"
|
||
if fle$="" then gosub InFileName
|
||
print
|
||
print"Taste: ";KeyString$
|
||
print
|
||
print"In welcher Verbindung w<>nschen Sie die Taste:"
|
||
print
|
||
if InitStringN$="NA" then color 8 else color 14
|
||
print"1 - NORMAL";:if InitStringN$="NA" then print:goto 2
|
||
if InitStringS$=InitStringN$ then print"/SHIFT";:InitStringS=1
|
||
if InitStringC$=InitStringN$ then print"/CTRL";:InitStringC=1
|
||
if InitStringA$=InitStringN$ then print"/ALT";:InitStringA=1
|
||
print
|
||
|
||
2 if InitStringS=1 then color 8 else color 14
|
||
if InitStringS$="NA" then color 8
|
||
print"2 - SHIFT";:if InitStringS$="NA" then print:goto 3
|
||
if InitStringC$=InitStringS$ then print"/CTRL";:InitStringC=1
|
||
if InitStringA$=InitStringS$ then print"/ALT";:InitStringA=1
|
||
print
|
||
|
||
3 if InitStringC=1 then color 8 else color 14
|
||
if InitStringC$="NA" then color 8
|
||
print"3 - CTRL";:if InitStringC$="NA" then print:goto 4
|
||
if InitStringA$=InitStringC$ then print"/ALT";:InitStringA=1
|
||
print
|
||
|
||
4 if InitStringA=1 then color 8 else color 14
|
||
if InitStringA$="NA" then color 8
|
||
print"4 - ALT"
|
||
|
||
5 ask$=inkey$:if ask$="" then 5
|
||
if ask$="1" and InitStringN$<>"NA" and InitStringN<>1 then goto Normal
|
||
if ask$="2" and InitStringS$<>"NA" and InitStringS<>1 then goto Shift
|
||
if ask$="3" and InitStringC$<>"NA" and InitStringC<>1 then goto Control
|
||
if ask$="4" and InitStringA$<>"NA" and InitStringA<>1 then goto Alt
|
||
goto 5
|
||
|
||
|
||
goto ProgEnd
|
||
|
||
Normal:
|
||
cls
|
||
print"ððð KeyProg v";ver$;" ððð"
|
||
print
|
||
color 15
|
||
print"Taste: ";KeyString$
|
||
print"Code : ";InitStringN$
|
||
cde$=InitStringN$
|
||
print
|
||
goto MakeString
|
||
|
||
Shift:
|
||
cls
|
||
color 15
|
||
print"Taste: [SHIFT]+";KeyString$
|
||
print"Code : ";InitStringS$
|
||
cde$=InitStringS$
|
||
print
|
||
goto MakeString
|
||
|
||
Control:
|
||
cls
|
||
color 15
|
||
print"Taste: [CTRL]+";KeyString$
|
||
print"Code : ";InitStringC$
|
||
cde$=InitStringC$
|
||
print
|
||
goto MakeString
|
||
|
||
Alt:
|
||
cls
|
||
color 15
|
||
print"Taste: [ALT]+";KeyString$
|
||
print"Code : ";InitStringA$
|
||
cde$=InitStringA$
|
||
print
|
||
goto MakeString
|
||
|
||
MakeString:
|
||
print"Welcher Befehl soll zur Programmierung verwendet werden:"
|
||
print"1 - PROMPT"
|
||
print"2 - ECHO"
|
||
print"3 - TYPE"
|
||
6 ask$=inkey$:if ask$="" then 6
|
||
if ask$="1" then lin$="PROMPT $e[":endlin$="PROMPT $p$g"
|
||
if ask$="2" then lin$="ECHO "+chr$(27)+"["
|
||
if ask$="3" then lin$=chr$(27)+"["
|
||
if val(ask$)<1 or val(ask$)>3 or int(val(ask$))<>val(ask$) then 6
|
||
lin$=lin$+cde$+";"+chr$(34)
|
||
input"Welcher String soll ausgegeben werden: ",ausg$
|
||
lin$=lin$+ausg$+chr$(34)
|
||
7 input"Soll nach der Ausgabe [ENTER] ausgef<65>hrt werden (J/N)";yn$
|
||
if yn$="j" or yn$="J" then lin$=lin$+";13p":goto 8
|
||
if yn$="n" or yn$="N" then lin$=lin$+"p":goto 8
|
||
goto 7
|
||
8 on error goto NoFile
|
||
open "A",#1,fle$
|
||
on error goto
|
||
if smf<>1 then
|
||
print#1,"@ECHO OFF"
|
||
print#1,": BATCH FILE made by KEYPROG v";ver$
|
||
if unreg=1 then print#1,": Unregistered Version!!!" else print#1,": Registered to <";usnam$;">"
|
||
print#1,": (C)1995 by RoboCop INDUSTRIES"
|
||
print#1,""
|
||
end if
|
||
print#1,lin$
|
||
if unreg=1 then goto ProgEnd
|
||
9 print"Noch mehr Codes eingeben (J)a, in ";fle$;"; Ja, (a)ndere Datei;(N)ein ";
|
||
input yn$
|
||
if yn$<>"j" and yn$<>"J" and endlin$<>"" then print#1,endlin$:close #1 else close#1
|
||
if yn$="j" or yn$="J" then goto YesSameFile
|
||
if yn$="a" or yn$="A" then goto YesOthaFile
|
||
if yn$="n" or yn$="N" then goto ProgEnd
|
||
goto 9
|
||
|
||
NoFile:
|
||
color 12
|
||
print"Ung<6E>ltige Datei!!"
|
||
color 15
|
||
print
|
||
print"Die Ausgabe-Datei ist ung<6E>ltig."
|
||
print
|
||
goto ProgEnd
|
||
|
||
YesSameFile:
|
||
cls
|
||
endlin$=""
|
||
InitStringN$=""
|
||
InitStringS$=""
|
||
InitStringC$=""
|
||
InitStringA$=""
|
||
KeyString$=""
|
||
lin$=""
|
||
ausg$=""
|
||
smf=1
|
||
goto Anfang
|
||
|
||
YesOthaFile:
|
||
cls
|
||
fle$=""
|
||
endlin$=""
|
||
InitStringN$=""
|
||
InitStringS$=""
|
||
InitStringC$=""
|
||
InitStringA$=""
|
||
KeyString$=""
|
||
lin$=""
|
||
ausg$=""
|
||
goto Anfang
|
||
|
||
InFileName:
|
||
input"Ausgabe-Datei (auáer bei TYPE-Mode, meiát .BAT): ",fle$
|
||
return
|
||
|
||
ProgEnd:
|
||
|