From 504089d08d2f7b561aacbeea5e488e61abba8500 Mon Sep 17 00:00:00 2001
From: Oliver Lehmann <lehmann@ans-netz.de>
Date: Mon, 22 Aug 1988 08:02:38 +0000
Subject: [PATCH] cpm commands

---
 WEGA/contrib/cpm/cpmi | 47 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)
 create mode 100755 WEGA/contrib/cpm/cpmi

diff --git a/WEGA/contrib/cpm/cpmi b/WEGA/contrib/cpm/cpmi
new file mode 100755
index 0000000..328351f
--- /dev/null
+++ b/WEGA/contrib/cpm/cpmi
@@ -0,0 +1,47 @@
+: interaktives Verarbeiten von CP/M Disketten
+flags="-i -S 2 -m 64"
+typ="OS/M Format 6"
+file="/z/floppy"
+flag2=""
+ok=0
+
+while test $ok = 0
+do
+cat <<+++
+Welches Diskettenformat wird gewuenscht ?
+
+	1 OS/M Diskette
+	2 CP/A Diskette im 'DOS'-Format
+
++++
+read form rest
+if test a$form != a
+then
+	if test a$form = "a1"
+	then
+		flags="-i -S 2 -m 64"
+		typ="OS/M Format 6"
+		ok=1
+		file=/dev/fd196ds9
+	elif test a$form = "a2"
+	then
+		flags="-i -t 40 -b 1024 -r 9 -S 1 -m 64"
+		typ="CP/A Diskette im DOS-Format"
+		ok=1
+		file=/dev/fd148ss9
+	else 
+		echo 
+	fi
+else
+echo 
+fi
+done
+
+echo -n Name der CP/M Diskette \(Std. $file\):
+read fil rest
+if test a$fil != a
+then
+	file=$fil
+fi
+echo CP/M Diskettenemulation fuer $typ
+cpm -i $flags $flag2 $file