10 on error goto 3000:color
15,1,1:rem Codeit Version 2.0 - A freeware program / Power Basic 3.0 (will not run under QBASIC)
12 cls:print:print:print"Welcome to CODEIT Version 2.0 By MRGALAXY":print"MRGALAXY@AOL.COM":print:print"A FREEWARE PROGRAM - (C)opyright 1995":delay 3:cls
18 cls:dim c$(1000):on error goto 3000
19 if command$="?" or command$="/?" then goto 2000
22 if command$="" then goto 26 else fe$=command$:open fe$ for input as 1
23 b=0
24 if eof(1) then close:b=b+1:goto 26 else b=b+1:line input #1, c$(b):goto 24
26 print:input"Enter a code keyword/phrase or (Q)uit: ";a$:a$=ucase$(a$)
27 if left$(a$,1)="Q" then stop
28 if command$<>"" then goto 152
30 cls:print:input"Do you want to (C)ode, (D)ecode, or (Q)uit (C, D, or Q): ";f$
40 f$=ucase$(f$):f$=left$(f$,1)
50 if f$<>"C" and f$<>"D" and f$<>"Q" then goto 30
55 if f$="Q" then stop
60 if f$="D" then goto 400
70 cls:b=1:print
72 print"Begin typing in your message.  Check each line for mistakes before"
74 print"hitting the ENTER button.  Hitting ENTER alone stops the program"
76 print"from asking for input....":
78 print
79 print
80 print"Enter line ";b;" of message: "
90 input c$(b):if c$(b)="" then goto 120
100 b=b+1:goto 80
120 for a=1 to b-1:c$(a)=lcase$(c$(a))
150 next a
152 cls:print:input "Code to (F)ile, (S)creen, or (Q)uit (F, S, or Q): ";x$:x$=ucase$(x$):if x$="Q" then stop
153 x$=left$(x$,1):if x$="Q" then stop
154 cls:if x$="F" then cls:input "Enter path/filename to use: ";u$
155 if x$<>"F" then goto 158
156 on error goto 3000:open u$ for output as 1
158 if x$="F" then print:print"Writing to a file and the screen....":print
159 if x$="S" then print:print"Writing codes to screen....":print
160 for a=1 to b-1
165 v$=""
170 if len(v$)<len(c$(A)) then v$=v$+a$:goto 170
180 for l=1 to len(c$(a))
185 print asc(mid$(c$(a),l,1))-asc(mid$(v$,l,1)),
187 if x$="F" then print #1, asc(mid$(c$(a),l,1))-asc(mid$v$,l,1));
190 next l
192 if x$="F" then print #1,255
200 print "255":if x$="F" then print #1,""
210 next a
220 close
230 print:print:input"Press ENTER to continue: ";he$:goto 152
400 cls:print:print:input "From (K)eyboard or (F)ile? (K or F): ";hj$
405 hj$=ucase$(hj$:hj$=left$(hj$,1)
410 if hj$<>"K" and hj$<>"F" then goto 400
420 if hj$="F" then goto 600
430 je$=""
435 je$=je$+a$:if len(je$)<240 then goto 435
440 qq=1
445 input "Enter number (0 quits): ";vv
447 if vv=0 then run
450 if vv<>255 then print"The letter is: ";chr$(vv+asc(mid$(je$,qq,1)))
460 if vv=255 then print"New line starts here":print:let qq=1:goto 445
470 qq=qq+1:goto 445
600 cls:print:input"Enter path and filename: ";ef$:cls:print
605 je$=""
606 je$=je$+a$:if len(je$)<240 then goto 606
610 on error goto 3000:open ef$ for input as 1
612 qq=1
620 if eof(1) then goto 700
625 input #1,za
630 if za<>255 then print chr$(za+asc(mid$(je$,qq,1)));
635 if za=255 then print:qq=0:input #1,za
640 qq=qq+1:goto 620
700 print:print:input"Press ENTER to continue: ";re$:run
2000 cls
2005 print:print
2010 print"Welcome to CODEIT Version 2.0.":print
2020 print"To code an ASCII text file, type: ":print
2030 print"CODEIT filename.ext":print
2040 print"or you can simply type CODEIT to manually code a message...":print
2050 print
2060 print"By P. H."
2065 print"710 Peachtree St. NE 430"
2070 print"Atlanta, GA 30308":print
2080 print"MRGALAXY@AOL.COM"
2090 stop
3000 cls:print:print"An error has occured!  Either a file name or path was entered incorrectly,"
3005 print"or another problem has occurred... Please try again...":stop