- Update .bas files

- Rename files
- Update files extension
- Reorganize directory

AppleII/FP operations/PARABOLA.bas

@@ -0,0 +1,16 @@
+ 5  HOME 
+ 8  PRINT  CHR$ (4);"BLOAD UNIDRIVE4P"
+ 10  PRINT  CHR$ (4);"BLOAD CONV3P"
+ 12 X = 1
+ 15  CALL 32768,X
+ 20  CALL 24576
+ 25  PRINT  CHR$ (4);"BLOAD UNIDRIVE4P2"
+ 30  HGR2 : HCOLOR= 3
+ 40  FOR X =  - 10 TO 10 STEP .2
+ 45  CALL 32768,X
+ 50  CALL 24576
+ 55  CALL 32831,Y
+ 60  HPLOT X * 5 + 140,Y + 10
+ 65  NEXT 
+ 70  GET A$
+ 75  TEXT

AppleII/FP operations/SQUAREN.bas

@@ -0,0 +1,19 @@
+ 5  HOME 
+ 10  PRINT  CHR$ (4);"BLOAD UNIDRIVE4P"
+ 12  PRINT  CHR$ (4);"BLOAD CONV3P"
+ 13  PRINT "FLOATING POINT SQUARE N"
+ 14  PRINT 
+ 15  INPUT "TYPE REAL NUMBER TO SQUARE --> ";X
+ 20  CALL 32768,X
+ 27  CALL 24576
+ 30  CALL 32831,Y
+ 40  PRINT Y
+ 45  PRINT 
+ 50  PRINT  CHR$ (4);"BLOAD UNIDRIVE4P2"
+ 55  INPUT "N1 ? ";X
+ 60  CALL 32768,X
+ 65  CALL 24576
+ 70  CALL 32831,Y
+ 80  PRINT Y
+ 85  PRINT 
+ 90  GOTO 55

AppleII/FP operations/unix.bas

@@ -1,14 +0,0 @@
- 2  PRINT  CHR$ (4);"BLOAD UNIDRIVE4P"
- 5  PRINT  CHR$ (4);"BLOAD CONV3P"
- 15  INPUT "N1 ? ";X
- 20  CALL 32768,X
- 27  CALL 24576
- 30  CALL 32831,Y
- 40  PRINT Y
- 50  PRINT  CHR$ (4);"BLOAD UNIDRIVE4P2"
- 55  INPUT "N1 ? ";X
- 60  CALL 32768,X
- 65  CALL 24576
- 70  CALL 32831,Y
- 80  PRINT Y
- 90  GOTO 55

AppleII/Integer adc 1 Byte/UNIFUN.bas

@@ -1,5 +1,5 @@
  10  HOME 
- 20  PRINT  CHR$ (4);"BLOAD UNIDRIVE"
+ 20  PRINT  CHR$ (4);"BLOAD UNICALC"
  25  INPUT "N1,N2? ";N1,N2
  30  POKE 10,N1
  35  POKE 11,N2

AppleII/Integer adc 2 Byte/SUMN.bas

@@ -1,5 +1,7 @@
  10  HOME 
  20  PRINT  CHR$ (4);"BLOAD UNIDRIVE2"
+ 22  PRINT "TWO BYTE SUM OF 2 INTEGER NUMBER N1+N2"
+ 23  PRINT 
  25  INPUT "N1,N2? ";N1,N2
  30  POKE 25,(N1 -  INT (N1 / 256) * 256)
  32  POKE 26, INT (N1 / 256)
@@ -7,3 +9,5 @@
  37  POKE 28, INT (N2 / 256)
  40  CALL 32768
  50  PRINT : PRINT "RESULT IS "; PEEK (29) + 256 *  PEEK (30)
+ 55  PRINT 
+ 60  GOTO 25

AppleII/N integer adc 2 Byte/SUM1N.bas

@@ -0,0 +1,11 @@
+ 10  HOME 
+ 20  PRINT  CHR$ (4);"BLOAD UNIDRIVE3"
+ 22  PRINT "TWO BYTE SUM OF FIRST N INTEGER NUMBER 1+2+3+...+(N-1)+N"
+ 23  PRINT 
+ 25  INPUT "TYPE INTEGER NUMBER 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)
+ 55  PRINT 
+ 60  GOTO 25

AppleII/N integer adc 2 Byte/UNIDFUN3.bas

@@ -1,7 +0,0 @@
- 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)