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$)"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