Enhanced Character Interpreter (Gagprogramm)
Was halten Sie von den unverständlichen Drei-Buchstaben-Kürzeln in der Computerbranche? Unser Programm "ECI" für MS-DOS-Computer entschlüsselt alle Kürzel auf sehr spezielle Art.
Eigentlich könnte man ein paar Kürzel auch einfach im Kopf behalten. CGA ist ein Color-Graphics-Adapter, RGB heißt Rot-Grün-Blau und SCART heißt.. .was heißt das eigentlich? An diesem Punkt sollten Sie den "ECI" einsetzen, den Enhanced Character Interpreter.
Nach dem Start tippen Sie einfach die Kombination aus drei Buchstaben ein, und das Programm gibt Ihnen dann in Sekundenschnelle die ausgeschriebene Bezeichnung an.
Kürzel mit einer anderen Länge als drei Buchstaben nimmt das Programm nicht an. Und wie machen Sie das mit SCART? Sie teilen einfach die Bezeichnung: Einmal geben Sie SCA und beim zweitenmal ART ein.
Viel Spaß mit dem ECI! hf
ECI ★
von O. Buschek und B. Wilpert
Computertyp: MS-DOS-Computer
Sprache: GW-Basic
Eingabehilfe: DORLE
Kurzbeschreibung: Entschlüsselungsprogramm für unverständliche Drei-Buchstaben-Kürzel
Länge in Byte: 1771
* ist schnell abgetippt
** nehmen Sie sich etwas Zeit
*** besser am Wochenende
Achtung: Wichtige Meldung der ZGS (Zentralkomitee gegen Schwachsinn). Nehmen Sie das Programm nicht zu ernst.
10 DIM A$(25)
20 FOR I=0 TO 25
30 FOR J=0 TO 2
40 READ T$
50 A$(I)=A$(I)+LEFT$(T$+"<19>",20)
60 NEXT J
70 NEXT I
80 REM
90 REM
100 CLS
110 PRINT "Enhanced Character Interpreter zum"
120 PRINT "Compacted Character Code"
130 PRINT
140 PRINT "Bitte geben Sie die 3stellige Abkür-"
150 PRINT "zung (nur Großbuchstaben) oder zum"
160 PRINT "Ausdrucken der kompletten Liste ein!"
170 PRINT
180 PRINT "Ihre Eingabe:";
190 INPUT E$
200 IF E$="*" THEN GOSUB 440:GOTO 380
210 IF LEN(E$)<> 3 THEN 100
220 REM
230 REM
240 FOR I=0 TO 2
250 T(I)=ASC(MID$(E$,I+1,1))-65
260 IF T(I)<0 OR T(I)>25 THEN 100
270 NEXT I
280 PRINT:PRINT
290 PRINT "Die korrekte Interpretation lautet:"
300 PRINT
310 FOR I=0 TO 2
320 T$=MID$(A$(T(I)),I*20+1,20)
330 FOR J=1 TO LEN(T$)
340 IF MID$(T$,J,1)=" " THEN 360
350 NEXT J
360 PRINT LEFT$(T$,J);
370 NEXT I
380 PRINT:PRINT
390 PRINT "Wollen Sie noch einmal (j/n)";:INPUT R$
400 IF R$="N" OR R$="n" THEN END
410 GOTO 100
420 REM
430 REM
440 OPEN "prn" FOR OUTPUT AS #1
450 PRINT#1,,, "The Compacted Character Code V1.3:"
460 PRINT#1,
470 PRINT#1,
480 FOR I=0 TO 25
490 IF I=24 THEN I=I+1
500 PRINT#1,, CHR$(65+1);
510 PRINT#1, ":<6>"+A$(I)
520 NEXT I
530 PRINT#1, CHR$(12)
540 RETURN
550 REM
560 REM
570 DATA ALGORITHMIC,ARRAY,ANALYZER
580 DATA BIDIRECTIONAL,BOOT,BLOCK
590 DATA COMPACTED,CHARACTER,CODE
600 DATA DIGITAL,DATA,DEVICE
610 DATA ENHANCED,ERROR,EDITOR
620 DATA FLOATING,FRAME,FREEZER
630 DATA GLOBAL,GRAPHICS,GATE
640 DATA HORIZONTAL,HARDWARE,HEADER
650 DATA INTEGRATED,INDEX,INTERPRETER
660 DATA JOINED,JUMP,JOB
670 DATA KEYPRESSED,KILOBYTE,KERNAL
680 DATA LOGICAL,LINE,LOADER
690 DATA MODULAR,MEMORY,MANAGER
700 DATA NON-MASKABLE,NUMBER, NETWORK
710 DATA OPERATING,OVERFLOW,OUTPUT
720 DATA PROCESSING,PROGRAM,PIXEL
730 DATA QUICK,QUANTITY,QUERY
740 DATA RELATIVE,ROTATION,REQUEST
750 DATA SERIAL,SYNTAX,SERVER
760 DATA TEMPORARY,TARGET,TRANSFER
770 DATA UNI VERSAL,USER, UTILITY
780 DATA VIRTUAL,VIDEO,VIRUS
790 DATA WINDOWING,WORD,WRITER
800 DATA X-TERNAL,X-PAND,X-TENDER
810 DATA ,,
820 DATA ZERO, ZOOM, ZONE
Gesamtprüfsumme über alles: <A90B>
Nach dem Abtippen sollten Sie "ECI" mit unserer Tipphilfe DORLE prüfen