With this program that is musically tuned You can listen to Your files.
It is even possible to make dry compositions with it, just make a file &
Play it by typing the filename after the questionmark in the beginning.
Again means a new input, Begin means play it again, Close equals the end.


If You wish You can CLIPBOARD the following HTML direct from the screen.
This is made in the tradition of WYSIWYG, What You See Is What You Get.
START with locating Your cursor UNDER this rule until the STOP-sign.

    1 CLS:INPUT b$:REM:SYSTEM DATACOMP.PBS
    2 OPENb$FORINPUTAS#1:GOTOXY(20,1)
    3 GET#1a$:PRINTa$;:GOTOXY(WHEREX,WHEREY):IFWHEREX<=37THENGOTOXY(WHEREX-37,WHEREY+1):IFWHEREY>=8THENGOTOXY(1,2)
    4 IFASC(a$)>45ORASC(a$)<58THENGOSUB50
    5 IFASC(a$)>64ORASC(a$)<123THENGOSUB80
    6 IFEOF(1)=0THEN3
    7 CLS:PRINT"Again,Begin,Close":GETc$
    8 IFc$="A"ORc$="a"THENCLOSE:GOTO2
    9 IFc$="B"ORc$="b"THENRUN
   10 IFc$="C"ORc$="c"THENEND
   20 GOTO7
   50 REM sub 1
   51 IFa$="1"THENa=1
   52 IFa$="2"THENa=a*2
   53 IFa$="3"THENa=a*3
   54 IFa$="4"THENa=a*4
   55 IFa$="6"THENa=a*6
   57 IFa$="7"THENa=a*7
   58 IFa$="8"THENa=a*8
   59 IFa$="9"THENa=a*9
   60 IFa$="0"THENa=a*10
   64 IFa$="."THENa=a*.1
   65 IFa$="/"THENa=a*.5
   66 IFa>999THENa=a*.5:GOTOXY(20,3):PRINTCHR$(009);a;a$:GOTOXY(20,1):GOTO66
   69 RETURN
   80 REM sub 2
   81 IF ASC(a$)>96ANDASC(a$)<123THEN150
   82 IF ASC(a$)>64ANDASC(a$)<91THEN100
   99 RETURN
  100 REM sub frequenty 1
  101 IF a$="B"THENSOUND1,a
  102 IF a$="C"THENSOUND3,a
  103 IF a$="D"THENSOUND5,a
  104 IF a$="E"THENSOUND7,a
  105 IF a$="F"THENSOUND9,a
  106 IF a$="G"THENSOUND11,a
  107 IF a$="A"THENSOUND13,a
  108 IF a$="H"THENSOUND15,a
  109 IF a$="I"THENSOUND17,a
  110 IF a$="J"THENSOUND19,a
  111 IF a$="K"THENSOUND21,a
  112 IF a$="M"THENSOUND23,a
  149 RETURN
  150 REM sub frequenty 2
  151 IF a$="b"THENSOUND0,a
  152 IF a$="c"THENSOUND2,a
  153 IF a$="d"THENSOUND4,a
  154 IF a$="e"THENSOUND6,a
  155 IF a$="f"THENSOUND8,a
  156 IF a$="g"THENSOUND10,a
  157 IF a$="a"THENSOUND12,a
  158 IF a$="h"THENSOUND14,a
  159 IF a$="i"THENSOUND16,a
  160 IF a$="j"THENSOUND18,a
  161 IF a$="k"THENSOUND20,a
  162 IF a$="l"THENSOUND22,a
  163 IF a$="m"THENSOUND24,a
  199 RETURN

STOP ABOVE THIS RULE AND COPY THE TEXT TO YOUR CLIPBOARD.
The best advice I can give You now is: SAVE THE CLIPBOARD



I want to write EMAIL
NEXT