From 4dbb8b2fcc1d28b6c1b484a1072db790fe11a716 Mon Sep 17 00:00:00 2001
From: rigreco <rigreco.grc@gmail.com>
Date: Fri, 27 Feb 2015 10:15:59 +0100
Subject: [PATCH] Adding Basic files.

---
 AppleII/Integer adc 1 Byte/UNIFUN.BAS    | 7 +++++++
 AppleII/Integer adc 2 Byte/UNIFUN2.BAS   | 9 +++++++++
 AppleII/Memory dump/UNIPROX.BAS          | 4 ++++
 AppleII/N integer adc 2 Byte/UNIFUN3.BAS | 7 +++++++
 4 files changed, 27 insertions(+)
 create mode 100644 AppleII/Integer adc 1 Byte/UNIFUN.BAS
 create mode 100644 AppleII/Integer adc 2 Byte/UNIFUN2.BAS
 create mode 100644 AppleII/Memory dump/UNIPROX.BAS
 create mode 100644 AppleII/N integer adc 2 Byte/UNIFUN3.BAS

diff --git a/AppleII/Integer adc 1 Byte/UNIFUN.BAS b/AppleII/Integer adc 1 Byte/UNIFUN.BAS
new file mode 100644
index 0000000..289a32f
--- /dev/null
+++ b/AppleII/Integer adc 1 Byte/UNIFUN.BAS	
@@ -0,0 +1,7 @@
+ 10  HOME 
+ 20  PRINT  CHR$ (4);"BLOAD UNIDRIVE"
+ 25  INPUT "N1,N2? ";N1,N2
+ 30  POKE 10,N1
+ 35  POKE 11,N2
+ 40  CALL 32768
+ 50  PRINT : PRINT "RESULT IS "; PEEK (12)
\ No newline at end of file
diff --git a/AppleII/Integer adc 2 Byte/UNIFUN2.BAS b/AppleII/Integer adc 2 Byte/UNIFUN2.BAS
new file mode 100644
index 0000000..36e823f
--- /dev/null
+++ b/AppleII/Integer adc 2 Byte/UNIFUN2.BAS	
@@ -0,0 +1,9 @@
+ 10  HOME 
+ 20  PRINT  CHR$ (4);"BLOAD UNIDRIVE2"
+ 25  INPUT "N1,N2? ";N1,N2
+ 30  POKE 25,(N1 -  INT (N1 / 256) * 256)
+ 32  POKE 26, INT (N1 / 256)
+ 35  POKE 27,(N2 -  INT (N2 / 256) * 256)
+ 37  POKE 28, INT (N2 / 256)
+ 40  CALL 32768
+ 50  PRINT : PRINT "RESULT IS "; PEEK (29) + 256 *  PEEK (30)
\ No newline at end of file
diff --git a/AppleII/Memory dump/UNIPROX.BAS b/AppleII/Memory dump/UNIPROX.BAS
new file mode 100644
index 0000000..6926a01
--- /dev/null
+++ b/AppleII/Memory dump/UNIPROX.BAS	
@@ -0,0 +1,4 @@
+10  HOME 
+ 20  PRINT  CHR$ (4);"BLOAD UNIPROX"
+ 30  CALL 32768
+ 40  PRINT  CHR$ (4);"BSAVE UNIROM,A$2000,L$1FFF"
\ No newline at end of file
diff --git a/AppleII/N integer adc 2 Byte/UNIFUN3.BAS b/AppleII/N integer adc 2 Byte/UNIFUN3.BAS
new file mode 100644
index 0000000..ed4dd8a
--- /dev/null
+++ b/AppleII/N integer adc 2 Byte/UNIFUN3.BAS	
@@ -0,0 +1,7 @@
+ 10  HOME 
+ 20  PRINT  CHR$ (4);"BLOAD UNIDRIVE3"
+ 25  INPUT "N  ";N1
+ 30  POKE 25,(N1 -  INT (N1 / 256) * 256)
+ 32  POKE 26, INT (N1 / 256)
+ 40  CALL 32768
+ 50  PRINT : PRINT "RESULT IS "; PEEK (29) + 256 *  PEEK (30)
\ No newline at end of file