From 04e68443040c7abad84d66477e98f93bed701760 Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Mon, 4 Feb 2019 13:09:03 +0100
Subject: Initial import

---
 app/baisy/2.2.1-schulis/src/fetch save interface | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 app/baisy/2.2.1-schulis/src/fetch save interface

(limited to 'app/baisy/2.2.1-schulis/src/fetch save interface')

diff --git a/app/baisy/2.2.1-schulis/src/fetch save interface b/app/baisy/2.2.1-schulis/src/fetch save interface
new file mode 100644
index 0000000..24abb49
--- /dev/null
+++ b/app/baisy/2.2.1-schulis/src/fetch save interface	
@@ -0,0 +1,16 @@
+PACKET fetchsaveDEFINES savefetchmode,path:LET ascii=1,asciigerman=2,
+transparent=3,rowtext=5,ds=6,dump=7,atarist=10,ibm=11;INT PROC savefetchmode(
+TEXT CONST reservestring):TEXT VAR modus;INT CONST p:=pos(reservestring,":");
+IF p=0THEN modus:=reservestringELSE modus:=subtext(reservestring,1,p-1)FI ;
+modusnormieren;IF modus="FILEASCII"THEN asciiELIF modus="FILEASCIIGERMAN"
+THEN asciigermanELIF modus="FILEATARIST"THEN ataristELIF modus="FILEIBM"THEN 
+ibmELIF modus="FILETRANSPARENT"THEN transparentELIF modus="ROWTEXT"THEN 
+rowtextELIF modus="DS"THEN dsELIF modus="DUMP"THEN dumpELSE errorstop(
+"Unzulässige Betriebsart");-1FI .modusnormieren:changeall(modus," ","");INT 
+VAR i;FOR iFROM 1UPTO LENGTH modusREP INT CONST charcode:=code(modusSUB i);
+IF islowercaseTHEN replace(modus,i,uppercasechar)FI PER .islowercase:charcode
+>96AND charcode<123.uppercasechar:code(charcode-32).END PROC savefetchmode;
+TEXT PROC path(TEXT CONST reservestring):INT CONST p:=pos(reservestring,":");
+IF p=0THEN ""ELSE subtext(reservestring,p+1)FI .END PROC path;END PACKET 
+fetchsave;
+
-- 
cgit v1.2.3