HIDEMESS |
|---|
|
|---|
| by Don Steffen |
|---|
| This is the first of 2 programs on Hidemess and Findmess progroms for the TI 99 4/A computer.. Click below to read the other program |
|---|
|
|---|
| The Hidemess program accepts up to 120 characters and stores them in Characters 128 to 143. Since the TI 99 4/A keeps those character patterns between programs, as long as it is powered up, they can be found by tanother program. See below on how to read that program. |
|---|
|
|---|
| 10 ! "HIDEMESS" By Don Steffen |
|---|
| 20 X$=*0000000000000000* :: FOR X=128 TO 143 :: CALL CHAR(X,X$):: NEXT X |
|---|
| 30 INPUT "MESSAGE TO HIDE?":M$ :: l=LEN(m4):: NK=L/8 |
|---|
| 40 FOR H=1 TO NK*8 ;; E$=SEG7(M$,H,8):: LS=LEN(E$) ;; IF LS<8 THEN E$=E$& RPT("",8-LS) ! to make a full 16 character pattem |
|---|
| 50 PRINT E$ :: FOR K=1 TO 8 :: A=ASC(SEG$(E$,K,1)) :: H$=H$&STR$(A) :: NEXT K :: PRINT H$ |
|---|
| 60 CALL CHAR(128+N,H$) :: H$,E$="" :: N=N+1 |
|---|
| 70 NEXT H :: PRINT "THIS IS THE HIDDEN PATTERN"
|
|---|
| 80 FOR P=128 TO 143 :: PRINT CHR$(P); :: NEXT P |
|---|
| 90 STOP |
|---|
| To be able to find the items you need to use the Findmess program. To read and use this program click here. |
|---|
|
|---|
|
|---|
| If you would like to go back to the technical index: click here |
|---|
| If yo care to go to the menu click here. |
|---|
|
|---|
|
|---|
any Comments, Questions, or Inquiries:  E-Mail w7wwg@jps.net
|
|---|