;-----------------------------------------------------------PowerPPL v2.1----
; File           : 7&8-BIT.PPS
; Original by    : PAUL MILLER on 10/12/1996 at 20:21:23
; Last update by : PAUL MILLER on 10/12/1996 at 21:50:28
;----------------------------------------------------------------------------
;TAB_SETTING=2

; this program basically is an interface for the two functions, To7Bit and
; To8Bit, so I did not waste time commenting it.

*$USEFUNCS
*$INCLUDE:TO7BIT.PPS
*$INCLUDE:TO8BIT.PPS

Begin

String		str
String		response
String		allchars
Byte			x

For x = 127 to 254
	allchars = allchars+chr(x)
Next
allchars = mask_ascii()+allchars

str = "▓▒░ Sample 8-Bit string ░▒▓"

While (response != "Q") do
	Cls
	PrintLn "EMSI/IEMSI 7-Bit and 8-Bit translation"
	PrintLn "--------------------------------------"
	NewLine
	PrintLn "String = """, str, """"
	NewLine
	PrintLn "1.  Enter new string"
	PrintLn "2.  Convert to 7-Bit"
	PrintLn "3.  Convert to 8-Bit"
	NewLine
	InputStr "(Q=Quit) Selection", response, 7, 1, Mask_Ascii(), ERASELINE+UPCASE

	Select Case response
		Case 1
			InputStr "String", str, 7, 200, allchars, HIGHASCII
		Case 2
			Print "Working ..."
			str = To7Bit(str)
		Case 3
			Print "Working ..."
			str = To8Bit(str)
	End Select

EndWhile

End