TIB: Re: New to this but.....
[Prev][Next][Index][Thread]
TIB: Re: New to this but.....
I don't understand a lot of your code... I assume that this is for 89/92/+,
right? Anyway, I though that Define was only for a subroutine, and it has
to be either a program or a function... I could be wrong...
-Miles Raymond EML: m_rayman@bigfoot.com
ICQ: 13217756 IRC: Killer2 AIM: MRayMan
http://www.bigfoot.com/~m_rayman/
-----Original Message-----
From: Andon Coleman <gizmo98@earthlink.net>
To: ti-basic@lists.ticalc.org <ti-basic@lists.ticalc.org>
Date: Saturday, April 03, 1999 12:22 AM
Subject: TIB: New to this but.....
>I have a WEEEE little problem here...
>Don't mind my Source it's a little F'ed up right now because I've been
>trying to get it to fit on the screen any way possible...
>
>Here
>
>Take a look...
>
>()
>Prgm
>Define ?=""
>ClrIO
>Disp "","","",""," Andon13's Encryption"," Toolkit Version 0.7.1c"
>Dialog
>Title " EnCrYpTiOn ToOlZ"
>DropDown "Use your own Encryption KEY?",{"Yes","No"},
>EndDlog
>If =2 Then
>Goto default
>DelVar
>EndIf
>Goto custm
>Lbl default
>Define ?=3
>Define =6
>Define .=9
>Define ?=4
>Goto test
>Lbl custm
>ClrIO
>Disp "Enter 'KEY MATRIX'"
>Disp "Enter 1st Variable:"
>[[0,0][0,0]]mat1
>Disp mat1T
>Input ?
>ClrIO
>[[?,0][0,0]]mat2
>Disp mat2T
>Disp "Enter 2nd Variable:"
>Input
>ClrIO
>[[?,0][,0]]mat3
>Disp mat3T
>Disp "Enter 3rd Variable:"
>Input .
>ClrIO
>[[?,.][,0]]mat4
>Disp mat4T
>Disp "Enter 4th Variable:"
>Input ?
>ClrIO
>[[?,.][,?]]mat5
>Disp mat5T,"","This will be your","encryption KEY MATRIX"
>Pause
>Lbl test
>[[?,.][,?]]mat0
>If ?*-.*?=0 Then
>ClrIO
>Disp mat0T," Has no inverse"
>Disp "Sorry, but that KEY MATRIX","is not workable"
>Pause
>Goto custm
>EndIf
>---SUB-ROUTINE---
>ClrIO
>Dialog
>Title "Encryption test"
>Text ""
>Text "Enter what you wish to encrypt below"
>Text ""
>Request "ENCRYPT THIS?",e
>EndDlog
>dim(e)g
>Loop
>ClrIO
>ord(e)y
>Define a=char(y)
>g-1g
>Disp g
>shift(e,1)e
>ord(e)x
>Define c=char(x)
>y*+x*?S
>y*?+x*.'
>[[S,']]i
>?&string(i)&","?
>g-1g
>If go0 Then
>Goto encrypt
>EndIf
>Disp g
>shift(e,1)e
>EndLoop
>Lbl encrypt
>ClrIO
>label
>[[y*+x*?][y*?+x*.]]mat3
>Disp "","","","","Encoded Matrix:"
>Disp mat3T
>ClrIO
>Disp "Remember your 'KEY MATRIX'",""
>Disp mat0T,""
>Disp "Hit ENTER to view results"
>Pause
>Disp "End Results"
>Disp ?
>Pause
>Pause
>EndPrgm
>
>I went as far as to do an
>If dim(?)>=15 Then
>.... .... .... But that didn't even seem to help... Any suggestions on how
>to word wrap?
Follow-Ups: