'===========================================================================
' Subject: R-RAD TYPER                       Date: 09-21-96 (17:53)       
' Author:  Ryan White                        Code: QB, QBasic, PDS        
' Origin:  BIGFOOT@InfoAve.Net             Packet: TEXT.ABC
'===========================================================================
'Rrad typer...  Kinda like krad, only made by me so I can understand it.
'By Ryan White
'Feel free to change and mess with it.
'Suggested edits: make colors 1-15 more intense with out-commands, put in a
'                 text menu like interface, make the characters where U can
'                 read them your way, make it where you type a normal page,
'                 and the program converts the page to Rrad.
' Warning to newbies  DONT use ASC #'s 0 to 32!!!   Just dont.
SCREEN 0, 0, 0, 0
CLS
WIDTH 80, 50
COLOR 15, 0
ON KEY(1) GOSUB chngcol: KEY(1) ON
ON KEY(2) GOSUB clr: KEY(2) ON
ON KEY(3) GOSUB redo: KEY(3) ON
ON KEY(4) GOSUB enditnow: KEY(4) ON
PRINT "This is R-rad typer.    Just type the letter and it's done."
PRINT "Commands: Press F1 to change colors, F2 to clear screen, F3 to restart,"
PRINT "and F4 to quit.  ****  To get the effect of pressin enter.. you must type"
PRINT "an appostrophe(`)  The thing next to the 1.": PRINT
INPUT "Enter new filename and extension:", fle$
OPEN fle$ FOR OUTPUT AS #1
CLS
st:
DO
Ans$ = INKEY$
LOOP UNTIL Ans$ <> ""
IF col >= 75 THEN col = 0: PRINT : PRINT #1,
SELECT CASE UCASE$(Ans$)
 CASE "A"
  PRINT "’"; : PRINT #1, "’"; : col = col + 1
 CASE "B"
  PRINT "á"; : PRINT #1, "á", : col = col + 1
 CASE "C"
  PRINT "<"; : PRINT #1, "<"; : col = col + 1
 CASE "D"
  PRINT "|)"; : PRINT #1, "|)"; : col = col + 2
 CASE "E"
  PRINT "ä"; : PRINT #1, "ä"; : col = col + 1
 CASE "F"
  PRINT "Ÿ"; : PRINT #1, "Ÿ"; : col = col + 1
 CASE "G"
  PRINT "G"; : PRINT #1, "G"; : col = col + 1
 CASE "H"
  PRINT "]-["; : PRINT #1, "]-["; : col = col + 3
 CASE "I"
  PRINT "³"; : PRINT #1, "³"; : col = col + 1
 CASE "J"
  PRINT "õ"; : PRINT #1, "õ"; : col = col + 1
 CASE "K"
  PRINT "]<"; : PRINT #1, "]<"; : col = col + 2
 CASE "L"
  PRINT "œ"; : PRINT #1, "œ"; : col = col + 1
 CASE "M"
  PRINT "/\/\"; : PRINT #1, "/\/\"; : col = col + 4
 CASE "N"
  PRINT "ü"; : PRINT #1, "ü"; : col = col + 1
 CASE "O"
  PRINT "()"; : PRINT #1, "()"; : col = col + 2
 CASE "P"
  PRINT "ž"; : PRINT #1, "ž"; : col = col + 1   'just imaging the t wasn't there
 CASE "Q"
  PRINT "q"; : PRINT #1, "q"; : col = col + 1
 CASE "R"
  PRINT "â"; : PRINT #1, "â"; : col = col + 1
 CASE "S"
  PRINT "$"; : PRINT #1, "$"; : col = col + 1
 CASE "T"
  PRINT "Ñ"; : PRINT #1, "Ñ"; : col = col + 1
 CASE "U"
  PRINT "�"; : PRINT #1, "�"; : col = col + 1
 CASE "V"
  PRINT "\/"; : PRINT #1, "\/"; : col = col + 2
 CASE "W"
  PRINT "\/\/"; : PRINT #1, "\/\/"; : col = col + 4
 CASE "X"
  PRINT "><"; : PRINT #1, "><"; : col = col + 2
 CASE "Y"
  PRINT "�"; : PRINT #1, "�"; : col = col + 1
 CASE "Z"
  PRINT "z"; : PRINT #1, "z"; : col = col + 1
 CASE "!"
  PRINT "­"; : PRINT #1, "­"; : col = col + 1
 CASE "?"
  PRINT "¨"; : PRINT #1, "¨"; : col = col + 1
 CASE "1"
  PRINT "I"; : PRINT #1, "I"; : col = col + 1
 CASE "2"
  PRINT "II"; : PRINT #1, "II"; : col = col + 1
 CASE "3"
  PRINT "III"; : PRINT #1, "III"; : col = col + 1
 CASE "4"
  PRINT "IV"; : PRINT #1, "IV"; : col = col + 1
 CASE "5"
  PRINT "V"; : PRINT #1, "V"; : col = col + 1
 CASE "6"
  PRINT "VI"; : PRINT #1, "VI"; : col = col + 1
 CASE "7"
  PRINT "VII"; : PRINT #1, "VII"; : col = col + 1
 CASE "8"
  PRINT "VIII"; : PRINT #1, "VIII"; : col = col + 1
 CASE "9"
  PRINT "IX"; : PRINT #1, "IX"; : col = col + 1
 CASE "0"
  PRINT "§"; : PRINT #1, "§"; : col = col + 1
 CASE "`"
  PRINT : PRINT #1, : col = 0
 CASE "."
  PRINT "."; : PRINT #1, "."; : col = col + 1
 CASE " "
  PRINT " "; : PRINT #1, " "; : col = col + 1
END SELECT
GOTO st

chngcol:
c = INT(RND * 15) + 1
COLOR c
RETURN
clr:
CLS     'WOW
RETURN
redo:
CLOSE #1
OPEN fle$ FOR OUTPUT AS #1
CLS : PRINT "Filename is empty..."
PRINT "Type on...": PRINT : PRINT
RETURN
enditnow:
CLOSE #1
PRINT "Done editing.  "; fle$; "is alive now.   Have fun.  Byebye"
END