Software Du Jour/SoftwareDuJour.iso/BUSINESS/DBASE/DB3ASCII.ARC/ASCII.PRO

Text File | 1985-08-18 | 5.1 KB | 272 lines

SET TALK OFF
SET INTE OFF
SET BELL OFF
CLEA
DO WHIL .T.
STOR 1 TO line
STOR 174 TO counting
STOR 175 TO count
DO WHIL line<=20
@ line,8 SAY CHR(counting)
@ line,69 SAY CHR(count)
STOR line+1 TO line
ENDD
@  1,9 SAY "------------------------------------"+;
"------------------------"
@ 20,9 SAY "------------------------------------"+;
"------------------------"
STOR CHR(186) TO g
STOR CHR(186) TO d
@  3,15 SAY g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+;
g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+;
g+g+g+g
@  3,14 SAY CHR(201)
STOR 3 TO lines
DO WHIL lines<=16
@ lines+1,14 SAY D
STOR lines+1 TO lines
ENDD
@ 18,14 SAY CHR(200)
@ 18,15 SAY g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+;
g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g
@ 18,62 SAY CHR(188)
@  3,62 SAY CHR(187)
STOR 18 TO lines
DO WHIL lines>4
@ lines-1,62 SAY D
STOR lines-1 TO lines
ENDD
STOR " " TO blank
@  8,17 SAY "<0>  EXIT TO DBASE III."
@  9,17 SAY "<1>  SHOW ASCII VALUES FROM '33' AND UP. "
@ 10,17 SAY "<2>  SELECT NUMBERS TO BE SHOWN AS ASCII. "
@ 11,17 SAY "<3>  FILL A SCREEN WITH ASCII VALUES. "
STOR CHR(219) TO blank
STOR CHR(176) TO S
@ 16,22 SAY "PICK A NUMBER HERE "+s
@ 16,42 GET blank
@ 16,41 SAY CHR(175)
@ 16,43 SAY CHR(174)
READ
IF blank='0'
SET INTE ON
SET BELL ON
CLEA
CLEA ALL
SET PROCEDURE TO
RETU
ENDI
IF blank $"123"
SET PROCEDURE TO ascii.pro
STOR "CHRFUNC"+blank TO choice
STOR 0 TO time
DO WHIL time<>25
?
STOR time+1 TO time
ENDD
DO &choice
ENDI
ENDD
RETU
PROCEDURE chrfunc1
CLEA
SET TALK OFF
SET INTE ON
STOR 33 TO num
DO WHIL num>32
STOR 0 TO section
DO WHIL (section)<=3
STOR 1 TO line
DO WHIL (line)<=20
@ line,section*20 SAY CHR(num)
@ line,section*20+5 GET num
STOR (line+1) TO line
STOR num+1 TO num
@ 22,20 SAY " HIT CTRL-S TO STOP DISPLAY!"
IF num=113 .OR. num=193
STOR 1 TO X
DO WHIL X<70
STOR X+1 TO X
ENDD
CLEA GETS
STOR " " TO ans
@ 22,8 SAY "DO YOU WANT TO "+;
"CONTINUE?  (This will then run "+;
"until memvar = 256.)" GET ans PICT '!'
READ
IF ans='Y'
CLEA
LOOP
ELSE
CLEA
SET INTE OFF
RETU
ENDI
ENDI
IF num=257
CLEA GETS
STOR ' ' TO quit
@ 22,5 SAY "That's it-Enter Carriage Return (Cr.) " + ;
"when ready to return to the menu." GET quit
READ
SET INTE OFF
CLEA
RETU
ENDI
ENDD
STOR (section+1) TO section
ENDD
ENDD
PROCEDURE chrfunc2
CLEA
SET TALK OFF
SET BELL OFF
CLEA ALL
STOR .T. TO again
DO WHIL again
STOR "   " TO num
@ 22,0 SAY "PLEASE ENTER NUMBER TO BE DISPLAYED: "+;
"( > 0 AND < 300)"
@ 23,0 SAY "IF YOUR ENTRY IS 0 OR > 300, YOU WILL "+;
"HAVE THE OPTION TO RETURN"
@ 22,55 GET num
READ
STOR num TO NUMB
IF VAL(numb)>0 .AND. VAL(numb)<300
CLEA
@  3,11 SAY "THIS BOX BELOW REPRESENTS THE ASCII "+;
"VALUE YOU HAVE CHOSE......"
STOR 1 TO box
DO WHIL box<50
STOR box+1 TO box
ENDD
@  6,5 SAY CHR(&numb)
@  7,5 SAY CHR(&numb)
@  8,5 SAY CHR(&numb)
@  9,5 SAY CHR(&numb)
@ 10,5 SAY CHR(&numb)
@ 11,5 SAY CHR(&numb)
@ 12,5 SAY CHR(&numb)
@  6,70 SAY CHR(&numb)
@  7,70 SAY CHR(&numb)
@  8,70 SAY CHR(&numb)
@  9,70 SAY CHR(&numb)
@ 10,70 SAY CHR(&numb)
@ 11,70 SAY CHR(&numb)
@ 12,70 SAY CHR(&numb)
STOR CHR(&numb) TO x
@  6,5 SAY x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+;
x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+;
x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x
@ 12,5 SAY x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+;
x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+;
x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x
@  9,19 SAY "THIS IS YOUR ASCII-CODE VALUE IN USE "
LOOP
CLEA
ENDI
?
CLEA
STOR " " TO more
@  1,1 SAY "DO ANOTHER? (Y/N) " GET more PICT '!'
READ
IF more='Y'
CLEA
LOOP
ELSE
CLEA
RETU
ENDI
ENDD
PROCEDURE chrfunc3
SET INTE ON
SET TALK OFF
SET EXACT ON
CLEA
DO WHIL .T.
STOR " 33" TO asc
@ 12,20 SAY "WHAT IS YOUR CHOICE OF NUMBER? (33 and up)." ;
GET asc PICTURE '###'
READ
IF asc="   "
CLEA
@  2,1 SAY "YOU DID NOT ENTER A VALID CODE... "+;
"HIT <return> AND RE-ENTER"
SET CONS OFF
CLEA
LOOP
ELSE
@ 23,0 SAY "OK, MY FRIEND - HERE WE GO... "
STOR 1 TO timer
DO WHIL timer<80
STOR timer+1 TO timer
ENDD
?
?
?
?
?
?
?
?
?
?
?
?
?
?
?
?
?
?
?
?
?
?
?
?
?
STOR 1 TO c
STOR 1 TO line1
DO WHIL .T.
SET INTE OFF
DO WHIL line1<=20
@ line1,4 SAY '|'
@ line1,74 SAY '|'
STOR line1+1 TO line1
ENDD
@  1,5 SAY "------------------------------------"+;
"---------------------------------"
@ 20,5 SAY "------------------------------------"+;
"---------------------------------"
STOR CHR(&asc) TO x
STOR x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+;
x+x+x+x+x+x+x+x+x TO points
STOR points+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x;
+x+x+x+x+x+x+x+x+x TO points
STOR points+x+x+x+x+x+x+x+x TO points
STOR 1 TO line2
DO WHIL line2<=18
@ line2+1,7 SAY points
STOR line2+1 TO line2
ENDD
STOR CHR(219) TO y
@  9,28 SAY y+y+y+y+y+y+y+y+y+y+y+y+y+y+y+y+y+y+;
y+y+y+y
@ 10,27 SAY " WELCOME TO ASCII-WORLD "
@ 11,28 SAY y+y+y+y+y+y+y+y+y+y+y+y+y+y+y+y+y+y+y+y+y+y
@ 22,36 SAY " "
STOR 1 TO teller
DO WHIL teller<50
STOR teller+1 TO teller
ENDD
STOR C+1 TO C
IF C>2
CLEA
RETU
ENDI
ENDD
ENDI
ENDD