mbirth/gwbasic
1
0
Fork 0
mirror of https://github.com/mbirth/gwbasic.git synced 2024-12-25 03:54:07 +00:00
Code Issues Releases Wiki Activity

Added CODE.BAS + example.

Browse Source
This commit is contained in:
Markus Birth 1995-12-14 19:10:34 +01:00
parent 145d76f152
commit ad163cfb55
Signed by: mbirth
GPG Key ID: A9928D7A098C3A9A
2 changed files with 71 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

68
CODIER/CODE.BAS Normal file
View File

@ -0,0 +1,68 @@
5 CODE=0
10 CLS
20 COLOR 12
30 LOCATE 1,27:PRINT"*** CODIERUNGs-Programm ***"
40 COLOR 10
50 LOCATE 2,26:PRINT"Geschrieben in GW-Basic v3.23"
60 LOCATE 3,27:PRINT"von Markus ";CHR$(34);"RoboCop";CHR$(34);" Birth"
70 COLOR 15
80 PRINT:PRINT:PRINT
90 PRINT"Geben Sie die Umwandlungsart ein:"
100 PRINT
110 COLOR 14
120 PRINT" CODE - Text Codieren"
130 PRINT"DECODE - Text DeCodieren"
140 LOCATE 24,76:PRINT CODE;
150 LOCATE 7,1:INPUT"Geben Sie die Umwandlungsart ein: ",WAND$
160 WAND=0
170 IF WAND$="CODE" OR WAND$="code" THEN WAND=1
180 IF WAND$="DECODE" OR WAND$="decode" THEN WAND=2
190 IF WAND=0 THEN GOTO 140
200 CLS:COLOR 15
210 IF WAND=1 THEN X$="Text" ELSE X$="Code"
220 PRINT"Geben Sie den zu šbersetzenden ";X$;" ein!"
230 COLOR 14:PRINT"Aktueller Modus: ";
240 IF WAND=1 THEN COLOR 12:PRINT"TEXT --> CODE"
250 IF WAND=2 THEN COLOR 12:PRINT"CODE --> TEXT"
260 COLOR 14:PRINT"CODEWEITE: ";:COLOR 12:PRINT CODE
270 COLOR 15
280 PRINT "LoAd - gespeicherten ";X$;" aus OUTPUT.TXT laden"
290 INPUT">",TEXT$
300 IF TEXT$="LoAd" THEN GOSUB 600
310 LOCATE 5,2:PRINT TEXT$
320 L=LEN(TEXT$)
330 DIM ER$(L+1)
340 FOR Z=1 TO L
350 CHAR$=MID$(TEXT$,Z,1)
360 IF WAND=1 THEN ER$(Z)=CHR$(ASC(CHAR$)+CODE+Z)
370 IF WAND=2 THEN ER$(Z)=CHR$(ASC(CHAR$)-CODE-Z)
380 LOCATE 15,Z:PRINT ER$(Z)
390 FOR W=0 TO 1500:NEXT
400 NEXT Z
410 FOR Z=1 TO L
420 ERG$=ERG$+ER$(Z)
430 NEXT Z
440 LOCATE 14,1:COLOR 15
450 PRINT"Der šbersetzte ";X$;" lautet:"
460 REM PRINT ERG$
470 COLOR 12:LOCATE 22,1:PRINT"[S] šbersetzten ";X$;" in Datei OUTPUT.TXT speichern"
480 LOCATE 24,29:COLOR 10:PRINT"Bitte Taste dr<64>cken...";
490 A$=INKEY$:IF A$="" THEN 490
500 IF A$="s" OR A$="S" THEN GOSUB 540
510 CLS:PRINT"Fertig!!!":COLOR 15
520 PRINT
530 END
540 REM SAVE-Routine
550 OPEN "O",#1,"OUTPUT.TXT"
560 WRITE#1,CODE
570 WRITE#1,ERG$
580 CLOSE #1
590 RETURN
600 REM LOAD-Routine
610 OPEN "I",#1,"OUTPUT.TXT"
620 INPUT#1,CODE
630 LOCATE 3,17:COLOR 12:PRINT CODE:COLOR 15
640 INPUT#1,TEXT$
650 CLOSE #1
660 RETURN


3
CODIER/OUTPUT.TXT Normal file
View File

@ -0,0 +1,3 @@
5
"Yhvm|l,[o<>r<EFBFBD>4~焔8~ラ<>∞@<40>潔葛券JKLM"