home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / FAQ-S.ZIP / SETUP2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-05-04  |  102.5 KB  |  2,199 lines
  1. function boostr (b:boolean):string;
  2. begin
  3. if b then boostr:='TRUE' else boostr:='FALSE';
  4. end;
  5.  
  6. procedure writestuff (stuff:string);
  7. var x,y:byte;
  8. begin
  9. x:=wherex;
  10. y:=wherey;
  11. textbackground (1);
  12. textcolor (15);
  13. gotoxy (1,24); write (' Current Setting: ');
  14. if length(stuff)>0 then write (stuff) else write ('No Setting!');
  15. clreol;
  16. gotoxy (x,y);
  17. end;
  18.  
  19. procedure writeblank;
  20. var x,y:byte;
  21. begin
  22. x:=wherex;
  23. y:=wherey;
  24. textbackground (1);
  25. textcolor (15);
  26. gotoxy (1,24); clreol;
  27. gotoxy (x,y);
  28. end;
  29.  
  30. procedure bbsinfo;
  31. var i,ii:integer;
  32.     page:integer;
  33.        c:char;
  34.        s:screens;
  35.        b:boolean;
  36.  
  37. { TheDraw Pascal Crunched Screen Image }
  38. const
  39.   TEMP_SCR_WIDTH=80;
  40.   TEMP_SCR_DEPTH=23;
  41.   TEMP_SCR_LENGTH=938;
  42.   TEMP_SCR : array [1..938] of Char = (
  43.     #11,#16,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,#18,'▓',
  44.     #17,#25,'(',#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,#4 ,
  45.     #15,'F','A','Q',' ','S','e','t','u','p',' ','P','r','o','g','r','a',
  46.     'm',' ','V','e','r','s','i','o','n',' ','1','.','0','0',#25,#5 ,#11,
  47.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#15,#17,#26,'(','─',#11,
  48.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█',
  49.     '█','█',#17,' ',' ',#16,#26,#23,'█',#17,' ',#16,'█','█',#17,#25,#2 ,
  50.     #16,'█','█','█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
  51.     '▓',#17,' ',#1 ,#16,'█','█',#17,#25,#2 ,#16,'█','█',#17,' ',' ',#11,
  52.     'F','u','l','l',' ','S','y','s','t','e','m',' ','N','a','m','e',#25,
  53.     #6 ,#1 ,#16,'█',#17,' ',' ',#16,'█','█',#17,#25,#2 ,#11,#16,#26,#19,
  54.     '▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',#17,' ',#16,
  55.     '█',#17,' ',#16,'█','█',#17,' ',#16,'█',#11,#17,'S','y','s','t','e',
  56.     'm',' ','P','h','o','n','e',' ','#',#25,#2 ,#1 ,#16,#26,#6 ,'█',#17,
  57.     ' ',' ',#16,'█','█',#17,' ',#16,'█',#17,' ',#11,#16,#26,#19,'▓',#24,
  58.     #26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,
  59.     #3 ,'█',#11,#17,'S','y','s','o','p',' ','H','a','n','d','l','e',#25,
  60.     #4 ,#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,
  61.     #26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',
  62.     #17,' ',#16,#26,#3 ,'█',#11,#17,'S','y','s','o','p',' ','A','u','t',
  63.     'o',' ','L','o','g','i','n',' ',#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,
  64.     #26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',
  65.     #17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'P','r',
  66.     'i','v','a','t','e',' ','S','y','s','t','e','m',#25,#2 ,#1 ,#16,#26,
  67.     #6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,
  68.     #26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,
  69.     #3 ,'█',#11,#17,'L','o','c','k','o','u','t',' ','P','a','s','s','w',
  70.     'o','r','d',' ',#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,
  71.     ' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,
  72.     #26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'D','o','w','n','l','o',
  73.     'a','d',' ','P','a','s','s','w','o','r','d',#1 ,#16,#26,#6 ,'█',#17,
  74.     ' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
  75.     #3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,
  76.     #17,'N','e','w',' ','U','s','e','r',' ','P','a','s','s','w','o','r',
  77.     'd',#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,
  78.     #26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',
  79.     #17,' ',#16,#26,#3 ,'█',#11,#17,'S','y','s','t','e','m',' ','P','a',
  80.     's','s','w','o','r','d',' ',' ',#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,
  81.     #26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',
  82.     #17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'S','y',
  83.     's','t','e','m',' ','2',' ','P','a','s','s','w','o','r','d',#1 ,#16,
  84.     #26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',
  85.     #24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,
  86.     #26,#3 ,'█',#11,#17,'S','y','s','t','e','m',' ','3',' ','P','a','s',
  87.     's','w','o','r','d',#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',
  88.     #17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,
  89.     #16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'N','e','x','t',' ',
  90.     'P','a','g','e',#25,#7 ,#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,
  91.     '█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',
  92.     #1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'E','x','i','t',
  93.     ' ','a','n','d',' ','S','a','v','e',#25,#3 ,#1 ,#16,#26,#6 ,'█',#17,
  94.     ' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
  95.     #3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,'█','█','█',#17,
  96.     #25,#17,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,
  97.     #26,#19,'▓',#24,#26,#16,'▓',#3 ,#26,'(','▓',#11,#26,#21,'▓',#24,#26,
  98.     'O','▓',#24);
  99.  
  100. { TheDraw Pascal Crunched Screen Image }
  101. const
  102.   TEMP2_SCR_WIDTH=80;
  103.   TEMP2_SCR_DEPTH=23;
  104.   TEMP2_SCR_LENGTH=871;
  105.   TEMP2_SCR : array [1..871] of Char = (
  106.     #11,#16,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,#18,'▓',
  107.     #17,#25,'(',#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,#4 ,
  108.     #15,'F','A','Q',' ','S','e','t','u','p',' ','P','r','o','g','r','a',
  109.     'm',' ','V','e','r','s','i','o','n',' ','1','.','0','0',#25,#5 ,#11,
  110.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#15,#17,#26,'(','─',#11,
  111.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█',
  112.     '█','█',#17,' ',' ',#16,#26,#23,'█',#17,' ',#16,'█','█',#17,#25,#2 ,
  113.     #16,'█','█','█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
  114.     '▓',#17,' ',' ',#1 ,#16,'█','█','█',#17,' ',' ',#16,'█','█','█',#11,
  115.     #17,'U','s','e',' ','E','M','S',' ','M','e','m','o','r','y',#1 ,#16,
  116.     #26,#6 ,'█',#17,' ',#16,'█','█',#17,#25,#2 ,#16,'█','█','█',#17,' ',
  117.     #11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█',
  118.     '█',#17,#25,#2 ,#16,'█','█',#17,' ',' ',#11,'P','a','t','h',' ','t',
  119.     'o',' ','F','A','Q',' ','D','i','r','e','c','t','o','r','y',' ',' ',
  120.     #1 ,#16,'█',#17,' ',' ',#16,'█','█',#17,#25,#2 ,#11,#16,#26,#19,'▓',
  121.     #24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',#17,' ',#16,'█',
  122.     #17,' ',#16,'█','█',#17,' ',' ',#11,'P','a','t','h',' ','t','o',' ',
  123.     'M','e','s','s','a','g','e',' ','B','a','s','e',' ',' ',#1 ,#16,'█',
  124.     '█',#17,' ',' ',#16,'█','█',#17,' ',#16,'█',#17,' ',#11,#16,#26,#19,
  125.     '▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',
  126.     #16,#26,#3 ,'█',#11,#17,'P','a','t','h',' ','t','o',' ','D','a','t',
  127.     'a',' ','F','i','l','e','s',' ',' ',#1 ,#16,#26,#3 ,'█',#17,' ',' ',
  128.     #16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
  129.     '▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'P',
  130.     'a','t','h',' ','t','o',' ','B','B','S',' ','D','a','t','a',' ','F',
  131.     'i','l','e','s',#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',
  132.     #11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,
  133.     #3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'P','a','t','h',' ','t','o',
  134.     ' ','A','s','c','i','i',' ','U','p','l','o','a','d','s',#1 ,#16,'█',
  135.     '█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,
  136.     #26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,
  137.     #3 ,'█',#11,#17,'P','a','t','h',' ','t','o',' ','T','e','x','t',' ',
  138.     'F','i','l','e','s',' ',#1 ,#16,#26,#4 ,'█',#17,' ',' ',#16,#26,#3 ,
  139.     '█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',
  140.     #1 ,#16,#26,#3 ,'█',#17,' ',#16,'█','█','█',#17,' ',#11,'P','a','t',
  141.     'h',' ','t','o',' ','N','e','t','w','o','r','k',' ','F','i','l','e',
  142.     's',#1 ,#16,'█','█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,
  143.     #26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',
  144.     #17,' ',#16,'█','█','█',#17,' ',#11,'P','a','t','h',' ','t','o',' ',
  145.     'D','o','o','r',' ','F','i','l','e','s',#1 ,#16,#26,#5 ,'█',#17,' ',
  146.     ' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,
  147.     '▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,'█','█','█',#17,' ',
  148.     #11,'P','r','e','v','i','o','u','s',' ','P','a','g','e',#25,#4 ,#1 ,
  149.     #16,#26,#5 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,
  150.     '▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',
  151.     #16,#26,#3 ,'█',#11,#17,'E','x','i','t',' ','a','n','d',' ','S','a',
  152.     'v','e',#25,#3 ,#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,
  153.     ' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,
  154.     #26,#3 ,'█',#17,' ',#16,'█','█','█',#17,#25,#17,#16,#26,#6 ,'█',#17,
  155.     ' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
  156.     #3 ,#26,'(','▓',#11,#26,#21,'▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,
  157.     #26,'O','▓',#24);
  158.  
  159. procedure writecurrentplace(i:integer);
  160. begin
  161. if page=1 then begin
  162. if i=1 then begin
  163. gotoxy (28,8); textcolor (15); textbackground (7);  write ('» Full System Name       ');
  164. writestuff (longname);
  165. end;
  166. if i=2 then begin
  167. gotoxy (28,9); textcolor (15); textbackground (7);  write ('» System Phone #         ');
  168. writestuff (telenumber);
  169. end;
  170. if i=3 then begin
  171. gotoxy (28,10); textcolor (15); textbackground (7); write ('» Sysop Handle           ');
  172. writestuff (sysopname);
  173. end;
  174. if i=4 then begin
  175. gotoxy (28,11); textcolor (15); textbackground (7); write ('» Sysop Auto Login       ');
  176. writestuff (boostr(autologin));
  177. end;
  178. if i=5 then begin
  179. gotoxy (28,12); textcolor (15); textbackground (7); write ('» Private System         ');
  180. writestuff (boostr(private));
  181. end;
  182. if i=6 then begin
  183. gotoxy (28,13); textcolor (15); textbackground (7); write ('» Lockout Password       ');
  184. writestuff (lockoutpw);
  185. end;
  186. if i=7 then begin
  187. gotoxy (28,14); textcolor (15); textbackground (7); write ('» Download Password      ');
  188. writestuff (downloadpw);
  189. end;
  190. if i=8 then begin
  191. gotoxy (28,15); textcolor (15); textbackground (7); write ('» New User Password      ');
  192. writestuff (newuserpass);
  193. end;
  194. if i=9 then begin
  195. gotoxy (28,16); textcolor (15); textbackground (7); write ('» System Password        ');
  196. writestuff (systempassword);
  197. end;
  198. if i=10 then begin
  199. gotoxy (28,17); textcolor (15); textbackground (7); write ('» System 2 Password      ');
  200. writestuff (system2password);
  201. end;
  202. if i=11 then begin
  203. gotoxy (28,18); textcolor (15); textbackground (7); write ('» System 3 Password      ');
  204. writestuff (system3password);
  205. end;
  206. if i=12 then begin
  207. gotoxy (28,19); textcolor (15); textbackground (7); write ('» Next Page              ');
  208. writeblank;
  209. end;
  210. if i=13 then begin
  211. gotoxy (28,20); textcolor (15); textbackground (7); write ('» Exit and Save          ');
  212. writeblank;
  213. end;
  214. end else if page=2 then begin
  215. if i=1 then begin
  216. gotoxy (28,8); textcolor (15); textbackground (7);  write ('» Use EMS Memory         ');
  217. writestuff (boostr(ems));
  218. end;
  219. if i=2 then begin
  220. gotoxy (28,9); textcolor (15); textbackground (7);  write ('» Path to FAQ Directory  ');
  221. writestuff (faqdir);
  222. end;
  223. if i=3 then begin
  224. gotoxy (28,10); textcolor (15); textbackground (7); write ('» Path to Message Base   ');
  225. writestuff (textdir);
  226. end;
  227. if i=4 then begin
  228. gotoxy (28,11); textcolor (15); textbackground (7); write ('» Path to Data Files     ');
  229. writestuff (datadir);
  230. end;
  231. if i=5 then begin
  232. gotoxy (28,12); textcolor (15); textbackground (7); write ('» Path to BBS Data Files ');
  233. writestuff (bbsdatadir);
  234. end;
  235. if i=6 then begin
  236. gotoxy (28,13); textcolor (15); textbackground (7); write ('» Path to Ascii Uploads  ');
  237. writestuff (uploaddir);
  238. end;
  239. if i=7 then begin
  240. gotoxy (28,14); textcolor (15); textbackground (7); write ('» Path to Text Files     ');
  241. writestuff (textfiledir);
  242. end;
  243. if i=8 then begin
  244. gotoxy (28,15); textcolor (15); textbackground (7); write ('» Path to Network Files  ');
  245. writestuff (networkdir);
  246. end;
  247. if i=9 then begin
  248. gotoxy (28,16); textcolor (15); textbackground (7); write ('» Path to Door Files     ');
  249. writestuff (doordir);
  250. end;
  251. if i=10 then begin
  252. gotoxy (28,17); textcolor (15); textbackground (7); write ('» Previous Page          ');
  253. writeblank;
  254. end;
  255. if i=11 then begin
  256. gotoxy (28,18); textcolor (15); textbackground (7); write ('» Exit and Save          ');
  257. writeblank;
  258. end;
  259. end;
  260. textcolor (15);
  261. textbackground (0);
  262. end;
  263.  
  264. begin
  265. readscr (s);
  266. i:=1;
  267. page:=1;
  268. b:=false;
  269. repeat
  270. if page=1 then
  271. UNCRUNCH(TEMP_SCR,ScreenAddr[(1*2)+(1*160)-162],TEMP_SCR_LENGTH)
  272. else if page=2 then
  273. UNCRUNCH(TEMP2_SCR,ScreenAddr[(1*2)+(1*160)-162],TEMP2_SCR_LENGTH);
  274. writecurrentplace (i);
  275. c:=upcase(readkey);
  276. case c of
  277. #72:begin
  278. if page=1 then begin
  279. if i=1 then i:=14;
  280. end else if page=2 then begin if i=1 then i:=12; end;
  281. i:=i-1;
  282. end;
  283. #80:begin
  284. if page=1 then begin
  285. if i=13 then i:=0;
  286. end else if page=2 then begin if i=11 then i:=0; end;
  287. i:=i+1;
  288. end;
  289. #13:begin
  290. if page=1 then begin
  291. case i of
  292. 1:longname:=inputinfo ('Full System Name','The Full Name of your System',longname,64);
  293. 2:telenumber:=inputinfo ('System Phone #','The Phone # of your System',telenumber,12);
  294. 3:sysopname:=inputinfo ('Sysop Handle','Your Sysop Handle',sysopname,30);
  295. 4:autologin:=inputbooinfo ('Sysop Auto Login','Skip Gateway and go right to main BBS',autologin,1);
  296. 5:private:=inputbooinfo ('Private System','Have a Private System and not allow new users',private,1);
  297. 6:lockoutpw:=inputinfo ('Lockout Password','Password to connect at restricted baud rates',lockoutpw,64);
  298. 7:downloadpw:=inputinfo ('Download Password','Password to download at restricted baud rates',downloadpw,64);
  299. 8:newuserpass:=inputinfo ('New User Pasword','Password required when users apply',newuserpass,30);
  300. 9:systempassword:=inputinfo ('System Password','Password required to login to System 1',systempassword,30);
  301. 10:system2password:=inputinfo ('System 2 Password','Password required to login to System 2',system2password,30);
  302. 11:system3password:=inputinfo ('System 3 Password','Password required to login to System 3',system3password,30);
  303. 12:begin page:=page+1; i:=1; end;
  304. 13:begin writeconfig; b:=true; end;
  305. end;
  306. end else if page=2 then begin
  307. case i of
  308. 1:ems:=inputbooinfo ('Use EMS Memory','Use EMS Memory for FAQ.OVR file (overlay)',ems,1);
  309. 2:faqdir:=inputinfo ('Path to FAQ Directory','The main FAQ directory for your BBS',faqdir,64);
  310. 3:textdir:=inputinfo ('Path to Message Base','The message base files are held in this sub-directory.',textdir,64);
  311. 4:datadir:=inputinfo ('Path to Data Files','Transfer and Sub-Board data files will use this path.',datadir,64);
  312. 5:bbsdatadir:=inputinfo ('Path to BBS Data Files','Main files like the user files, and status will use this path.',bbsdatadir,
  313. 64);
  314. 6:uploaddir:=inputinfo ('Path to Ascii Uploads','All uploads to sub-boards will be created in this path.',uploaddir,64);
  315. 7:textfiledir:=inputinfo ('Path to Text Files','This directory includes the menus(optional), info-form(s), etc.',textfiledir,
  316. 64);
  317. 8:networkdir:=inputinfo ('Path to Network Files','This directory stores all the network files.',networkdir,64);
  318. 9:doordir:=inputinfo ('Path to Door Files','Batch files for doors go in this directory by default.',doordir,64);
  319. 10:begin page:=page-1; i:=1; end;
  320. 11:begin writeconfig; b:=true; end;
  321. end;
  322. end;
  323. end;
  324. end;
  325. until (c=#27) or (b=true);
  326. writescr (s);
  327. end;
  328.  
  329. procedure modeminfo;
  330. var i,ii:integer;
  331.        c:char;
  332.     page:integer;
  333.        s:screens;
  334.        b:boolean;
  335.  
  336. { TheDraw Pascal Crunched Screen Image }
  337. const
  338.   TEMP_SCR_WIDTH=80;
  339.   TEMP_SCR_DEPTH=23;
  340.   TEMP_SCR_LENGTH=744;
  341.   TEMP_SCR : array [1..744] of Char = (
  342.     #11,#16,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,#18,'▓',
  343.     #17,#25,'(',#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,#4 ,
  344.     #15,'F','A','Q',' ','S','e','t','u','p',' ','P','r','o','g','r','a',
  345.     'm',' ','V','e','r','s','i','o','n',' ','1','.','0','0',#25,#5 ,#11,
  346.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#15,#17,#26,'(','─',#11,
  347.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█',
  348.     '█','█',#17,' ',' ',#16,#26,#23,'█',#17,' ',#16,'█','█',#17,#25,#2 ,
  349.     #16,'█','█','█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
  350.     '▓',#17,' ',#1 ,#16,'█','█',#17,#25,#2 ,#16,'█','█',#17,' ',' ',#11,
  351.     'S','u','p','p','o','r','t','e','d',' ','B','a','u','d',' ','R','a',
  352.     't','e','s',#25,#2 ,#1 ,#16,'█',#17,' ',' ',#16,'█','█',#17,#25,#2 ,
  353.     #11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█',
  354.     '█',#17,#25,#2 ,#16,'█','█',#17,' ',' ',#11,'D','o','w','n','l','o',
  355.     'a','d',' ','B','a','u','d',' ','R','a','t','e','s',#25,#3 ,#1 ,#16,
  356.     '█',#17,' ',' ',#16,'█','█',#17,#25,#2 ,#11,#16,#26,#19,'▓',#24,#26,
  357.     #16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',#17,' ',#16,'█',#17,' ',
  358.     #16,'█','█',#17,' ',' ',#11,'D','T','E',' ','B','a','u','d',' ','R',
  359.     'a','t','e',#25,#8 ,#1 ,#16,'█','█',#17,' ',' ',#16,'█','█',#17,' ',
  360.     #16,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,
  361.     ' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'L','o','c',
  362.     'k',' ','t','h','e',' ','C','O','M',' ','P','o','r','t',#25,#2 ,#1 ,
  363.     #16,#26,#3 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,
  364.     '▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',
  365.     #16,#26,#3 ,'█',#11,#17,'C','O','M',' ','P','o','r','t',#25,#8 ,#1 ,
  366.     #16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,
  367.     '▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',
  368.     #16,'█','█','█',#17,' ',#11,'M','o','d','e','m',' ','T','y','p','e',
  369.     #25,#6 ,#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,
  370.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,
  371.     '█',#17,' ',#16,#26,#3 ,'█',#11,#17,'I','n','p','u','t',' ','B','u',
  372.     'f','f','e','r',#25,#4 ,#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,
  373.     '█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',
  374.     #1 ,#16,#26,#3 ,'█',#17,' ',#16,'█','█','█',#17,' ',#11,'O','u','t',
  375.     'p','u','t',' ','B','u','f','f','e','r',#25,#3 ,#1 ,#16,#26,#6 ,'█',
  376.     #17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,
  377.     '▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',
  378.     #11,#17,'N','e','x','t',' ','P','a','g','e',#25,#7 ,#1 ,#16,#26,#6 ,
  379.     '█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,
  380.     #16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,
  381.     '█',#11,#17,'E','x','i','t',' ','a','n','d',' ','S','a','v','e',#25,
  382.     #3 ,#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,
  383.     #26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,'(',#11,#16,#26,#19,
  384.     '▓',#24,#26,#16,'▓',#3 ,#26,'(','▓',#11,#26,#21,'▓',#24,#26,'O','▓',
  385.     #24,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24);
  386.  
  387. { TheDraw Pascal Crunched Screen Image }
  388. const
  389.   TEMP2_SCR_WIDTH=80;
  390.   TEMP2_SCR_DEPTH=23;
  391.   TEMP2_SCR_LENGTH=708;
  392.   TEMP2_SCR : array [1..708] of Char = (
  393.     #11,#16,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,#18,'▓',
  394.     #17,#25,'(',#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,#4 ,
  395.     #15,'F','A','Q',' ','S','e','t','u','p',' ','P','r','o','g','r','a',
  396.     'm',' ','V','e','r','s','i','o','n',' ','1','.','0','0',#25,#5 ,#11,
  397.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#15,#17,#26,'(','─',#11,
  398.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█',
  399.     '█','█',#17,' ',' ',#16,#26,#23,'█',#17,' ',#16,'█','█',#17,#25,#2 ,
  400.     #16,'█','█','█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
  401.     '▓',#17,' ',#1 ,#16,'█','█',#17,#25,#2 ,#16,'█','█',#17,' ',' ',#11,
  402.     '#',' ','o','f',' ','R','i','n','g','s',' ','f','o','r',' ','A','n',
  403.     's','w','e','r',' ',' ',#1 ,#16,'█',#17,' ',' ',#16,'█','█',#17,#25,
  404.     #2 ,#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,
  405.     '█','█',#17,' ',#16,'█',#17,' ',#16,'█','█',#17,' ',' ',#11,'O','f',
  406.     'f','h','o','o','k',' ','o','n',' ','L','o','c','a','l',' ','c','a',
  407.     'l','l',' ',#1 ,#16,'█','█',#17,' ',' ',#16,'█','█',#17,' ',#16,'█',
  408.     #17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,
  409.     #16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'O','f','f','h','o',
  410.     'o','k',' ','a','f','t','e','r',' ','a',' ','c','a','l','l',#1 ,#16,
  411.     #26,#3 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',
  412.     #24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,
  413.     #26,#3 ,'█',#11,#17,'M','o','d','e','m',' ','S','e','t','u','p',' ',
  414.     't','e','x','t',' ',#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',
  415.     #17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,
  416.     #16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'M','o','d','e','m',
  417.     ' ','H','a','n','g','u','p',' ','t','e','x','t',#1 ,#16,#26,#6 ,'█',
  418.     #17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,
  419.     '▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',
  420.     #11,#17,'D','i','a','l',' ','P','r','e','f','i','x',#25,#5 ,#1 ,#16,
  421.     #26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',
  422.     #24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,
  423.     '█','█','█',#17,' ',#11,'D','i','a','l',' ','S','u','f','f','i','x',
  424.     #25,#5 ,#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,
  425.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,
  426.     '█',#17,' ',#16,#26,#3 ,'█',#11,#17,'P','r','e','v','i','o','u','s',
  427.     ' ','P','a','g','e',#25,#3 ,#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,
  428.     #3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,
  429.     ' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'E','x','i',
  430.     't',' ','a','n','d',' ','S','a','v','e',#25,#3 ,#1 ,#16,#26,#6 ,'█',
  431.     #17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,
  432.     '▓',#3 ,'▓','▓',#17,#25,'(',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,
  433.     #26,'(','▓',#11,#26,#21,'▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,
  434.     'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24);
  435.  
  436. procedure writecurrentplace(i:integer);
  437. begin
  438. if page=1 then begin
  439. if i=1 then begin
  440. gotoxy (28,8); textcolor (15); textbackground (7); write ('» Supported Baud Rates   ');
  441. writestuff (getbaudstr(supportedrates));
  442. end;
  443. if i=2 then begin
  444. gotoxy (28,9); textcolor (15); textbackground (7); write ('» Download Baud Rates    ');
  445. writestuff (getbaudstr(downloadrates));
  446. end;
  447. if i=3 then begin
  448. gotoxy (28,10); textcolor (15); textbackground (7); write ('» DTE Baud Rate          ');
  449. writestuff (strlong(defbaudrate));
  450. end;
  451. if i=4 then begin
  452. gotoxy (28,11); textcolor (15); textbackground (7); write ('» Lock the COM Port      ');
  453. writestuff (boostr(lockport));
  454. end;
  455. if i=5 then begin
  456. gotoxy (28,12); textcolor (15); textbackground (7); write ('» COM Port               ');
  457. writestuff (strr(usecom));
  458. end;
  459. if i=6 then begin
  460. gotoxy (28,13); textcolor (15); textbackground (7); write ('» Modem Type             ');
  461. writestuff (strr(usrspeed));
  462. end;
  463. if i=7 then begin
  464. gotoxy (28,14); textcolor (15); textbackground (7); write ('» Input Buffer           ');
  465. writestuff (strr(inbuf));
  466. end;
  467. if i=8 then begin
  468. gotoxy (28,15); textcolor (15); textbackground (7); write ('» Output Buffer          ');
  469. writestuff (strr(outbuf));
  470. end;
  471. if i=9 then begin
  472. gotoxy (28,16); textcolor (15); textbackground (7); write ('» Next Page              ');
  473. writeblank;
  474. end;
  475. if i=10 then begin
  476. gotoxy (28,17); textcolor (15); textbackground (7); write ('» Exit and Save          ');
  477. writeblank;
  478. end;
  479. end else if page=2 then begin
  480. if i=1 then begin
  481. gotoxy (28,8); textcolor (15); textbackground (7); write ('» # of Rings for Answer  ');
  482. writestuff (strr(answerring));
  483. end;
  484. if i=2 then begin
  485. gotoxy (28,9); textcolor (15); textbackground (7); write ('» Offhook on Local call  ');
  486. writestuff (boostr(offlocal));
  487. end;
  488. if i=3 then begin
  489. gotoxy (28,10); textcolor (15); textbackground (7); write ('» Offhook after a call   ');
  490. writestuff (boostr(offcall));
  491. end;
  492. if i=4 then begin
  493. gotoxy (28,11); textcolor (15); textbackground (7); write ('» Modem Setup text       ');
  494. writestuff (modemsetupstr);
  495. end;
  496. if i=5 then begin
  497. gotoxy (28,12); textcolor (15); textbackground (7); write ('» Modem Hangup text      ');
  498. writestuff (modemhangupstr);
  499. end;
  500. if i=6 then begin
  501. gotoxy (28,13); textcolor (15); textbackground (7); write ('» Dial Prefix            ');
  502. writestuff (modemdialprefix);
  503. end;
  504. if i=7 then begin
  505. gotoxy (28,14); textcolor (15); textbackground (7); write ('» Dial Suffix            ');
  506. writestuff (modemdialsuffix);
  507. end;
  508. if i=8 then begin
  509. gotoxy (28,15); textcolor (15); textbackground (7); write ('» Previous Page          ');
  510. writeblank;
  511. end;
  512. if i=9 then begin
  513. gotoxy (28,16); textcolor (15); textbackground (7); write ('» Exit and Save          ');
  514. writeblank;
  515. end;
  516. end;
  517. textcolor (15);
  518. textbackground (0);
  519. end;
  520.  
  521. begin
  522. readscr (s);
  523. i:=1;
  524. page:=1;
  525. b:=false;
  526. repeat
  527. if page=1 then 
  528. UNCRUNCH(TEMP_SCR,ScreenAddr[(1*2)+(1*160)-162],TEMP_SCR_LENGTH)
  529. else if page=2 then
  530. UNCRUNCH(TEMP2_SCR,ScreenAddr[(1*2)+(1*160)-162],TEMP2_SCR_LENGTH);
  531. writecurrentplace (i);
  532. c:=upcase(readkey);
  533. case c of
  534. #72:begin
  535. if page=1 then begin
  536. if i=1 then i:=11;
  537. end else if page=2 then begin if i=1 then i:=10; end;
  538. i:=i-1;
  539. end;
  540. #80:begin
  541. if page=1 then begin
  542. if i=10 then i:=0;
  543. end else if page=2 then begin if i=9 then i:=0; end;
  544. i:=i+1;
  545. end;
  546. #13:begin
  547. if page=1 then begin
  548. case i of
  549. 1:baudconf (supportedrates,'S');
  550. 2:baudconf (downloadrates,'D');
  551. 3:defbaudrate:=inputintinfo ('DTE Baud Rate','Your Default Baud Rate when initializing modem',
  552. strlong(defbaudrate),5,300,38400);
  553. 4:lockport:=inputbooinfo ('Lock the COM Port','Lock the COM Port at a 9600/19200/38400 call',
  554. lockport,1);
  555. 5:usecom:=inputintinfo ('COM Port','The COM port your modem is hooked into',strr(usecom),1,1,4);
  556. 6:usrspeed:=inputintinfo ('Modem Type','0:Hayes/Non Hayes  1:V.32  2:HST  3:Dual Standard',
  557. strr(usrspeed),1,0,3);
  558. 7:inbuf:=inputintinfo ('Input Buffer','Length in bytes of your modem input buffer',strr(inbuf),5,0,16384);
  559. 8:outbuf:=inputintinfo ('Output Buffer','Length in bytes of your modem output buffer',strr(inbuf),5,0,16384);
  560. 9:begin page:=page+1; i:=1; end;
  561. 10:begin writeconfig; b:=true; end;
  562. end;
  563. end else if page=2 then begin
  564. case i of
  565. 1:answerring:=inputintinfo ('# of Rings for Answer','Self Explanatory',strr(answerring),3,1,100);
  566. 2:offlocal:=inputbooinfo ('Offhook on Local call','Modem will go offhook on a local sysop call',
  567. offlocal,1);
  568. 3:offcall:=inputbooinfo ('Offhook after call','Modem will go offhook after a call so initialization won''t be interrupted',
  569. offcall,1);
  570. 4:modemsetupstr:=inputinfo ('Modem Setup text','Text sent to the modem between callers.  |:CR, ~:pause, ^x:control-char',
  571. modemsetupstr,64);
  572. 5:modemhangupstr:=inputinfo ('Modem Hangup text','Text sent to the modem to make it hang up.  |:CR, ~:pause, ^x:control-char',
  573. modemhangupstr,64);
  574. 6:modemdialprefix:=inputinfo ('Dial Prefix','Text sent to the modem before a phone number.  |:CR, ~:pause, ^x:control-char',
  575. modemdialprefix,64);
  576. 7:modemdialsuffix:=inputinfo ('Dial Suffix','Text sent to the modem after a phone number.  |:CR, ~:pause, ^x:control-char',
  577. modemdialsuffix,64);
  578. 8:begin page:=page-1; i:=1; end;
  579. 9:begin writeconfig; b:=true; end;
  580. end;
  581. end;
  582. end;
  583. end
  584. until (c=#27) or (b=true);
  585. writescr (s);
  586. end;
  587.  
  588. procedure levels;
  589. var i,ii:integer;
  590.        c:char;
  591.        s:screens;
  592.        b:boolean;
  593.  
  594. { TheDraw Pascal Crunched Screen Image }
  595. const
  596.   TEMP_SCR_WIDTH=80;
  597.   TEMP_SCR_DEPTH=23;
  598.   TEMP_SCR_LENGTH=679;
  599.   TEMP_SCR : array [1..679] of Char = (
  600.     #11,#16,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,#18,'▓',
  601.     #17,#25,'(',#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,#4 ,
  602.     #15,'F','A','Q',' ','S','e','t','u','p',' ','P','r','o','g','r','a',
  603.     'm',' ','V','e','r','s','i','o','n',' ','1','.','0','0',#25,#5 ,#11,
  604.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#15,#17,#26,'(','─',#11,
  605.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,'█','█',
  606.     '█',' ',' ',#26,#23,'█',' ','█','█',#25,#2 ,'█','█','█',' ',#11,#16,
  607.     #26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,'█','█',#25,#2 ,
  608.     '█','█',' ',' ',#11,'C','o','-','S','y','s','o','p',' ','L','e','v',
  609.     'e','l',#25,#8 ,#1 ,'█',' ',' ','█','█',#25,#2 ,#11,#16,#26,#19,'▓',
  610.     #24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,'█','█',' ','█',' ','█','█',
  611.     ' ','█',#11,'L','o','g','o','n',' ','L','e','v','e','l',#25,#11,#1 ,
  612.     '█',' ',' ','█','█',' ','█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
  613.     #3 ,'▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,'M','e','s',
  614.     's','a','g','e',' ','P','o','s','t',' ','L','e','v','e','l',#1 ,#26,
  615.     #5 ,'█',' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
  616.     #3 ,'▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,'A','u','t',
  617.     'o',' ','M','e','s','s','a','g','e',' ','L','e','v','e','l',#1 ,#26,
  618.     #5 ,'█',' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
  619.     #3 ,'▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,'T','i','m',
  620.     'e',' ','R','e','s','t','r','i','c','t',' ','L','e','v','e','l',#1 ,
  621.     #26,#4 ,'█',' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,
  622.     '▓',#3 ,'▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,'A','n',
  623.     'o','n','y','m','o','u','s',' ','L','e','v','e','l',#25,#5 ,#1 ,'█',
  624.     '█','█',' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
  625.     #3 ,'▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,'L','i','s',
  626.     't',' ','U','s','e','r','s',' ','L','e','v','e','l',' ',#1 ,#26,#6 ,
  627.     '█',' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,
  628.     '▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,'P','C','R',' ',
  629.     'E','x','e','m','p','t',' ','L','e','v','e','l',' ',#1 ,#26,#6 ,'█',
  630.     ' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
  631.     '▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,'U','/','D',' ','R',
  632.     'a','t','i','o',' ','E','x','e','m','p','t',' ',' ',#1 ,#26,#5 ,'█',
  633.     ' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
  634.     '▓',#17,' ',' ',#1 ,'█','█','█',' ',' ','█','█','█',#11,'E','x','i',
  635.     't',' ','a','n','d',' ','S','a','v','e',#25,#3 ,#1 ,#26,#6 ,'█',#25,
  636.     #2 ,'█','█','█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',
  637.     #17,' ',#1 ,#26,#3 ,'█',' ',#26,#27,'█',' ',' ',#26,#3 ,'█',' ',#11,
  638.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,#26,'(','▓',#11,#26,#21,'▓',#24,
  639.     #26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24);
  640.  
  641. procedure writecurrentplace (i:integer);
  642. begin
  643. if i=1 then begin
  644. gotoxy (28,8); textcolor (15); textbackground (7); write ('» Co-Sysop Level         ');
  645. writestuff (strr(sysoplevel));
  646. end;
  647. if i=2 then begin
  648. gotoxy (28,9); textcolor (15); textbackground (7); write ('» Logon Level            ');
  649. writestuff (strr(logonlevel));
  650. end;
  651. if i=3 then begin
  652. gotoxy (28,10); textcolor (15); textbackground (7); write ('» Message Post Level     ');
  653. writestuff (strr(postlevel));
  654. end;
  655. if i=4 then begin
  656. gotoxy (28,11); textcolor (15); textbackground (7); write ('» Auto Message Level     ');
  657. writestuff (strr(msgnextlvl));
  658. end;
  659. if i=5 then begin
  660. gotoxy (28,12); textcolor (15); textbackground (7); write ('» Time Restrict Level    ');
  661. writestuff (strr(timerestlvl));
  662. end;
  663. if i=6 then begin
  664. gotoxy (28,13); textcolor (15); textbackground (7); write ('» Anonymous Level        ');
  665. writestuff (strr(anonymouslevel));
  666. end;
  667. if i=7 then begin
  668. gotoxy (28,14); textcolor (15); textbackground (7); write ('» List Users Level       ');
  669. writestuff (strr(listuserlvl));
  670. end;
  671. if i=8 then begin
  672. gotoxy (28,15); textcolor (15); textbackground (7); write ('» PCR Exempt Level       ');
  673. writestuff (strr(pcrexempt));
  674. end;
  675. if i=9 then begin
  676. gotoxy (28,16); textcolor (15); textbackground (7); write ('» U/D Ratio Exempt Level ');
  677. writestuff (strr(udexempt));
  678. end;
  679. if i=10 then begin
  680. gotoxy (28,17); textcolor (15); textbackground (7); write ('» Exit and Save          ');
  681. writeblank;
  682. end;
  683. textcolor (15);
  684. textbackground (0);
  685. end;
  686.  
  687. begin
  688. readscr (s);
  689. i:=1;
  690. b:=false;
  691. repeat
  692. UNCRUNCH(TEMP_SCR,ScreenAddr[(1*2)+(1*160)-162],TEMP_SCR_LENGTH);
  693. writecurrentplace (i);
  694. c:=upcase(readkey);
  695. case c of
  696. #72:begin
  697. if i=1 then i:=11;
  698. i:=i-1;
  699. end;
  700. #80:begin
  701. if i=10 then i:=0;
  702. i:=i+1;
  703. end;
  704. #13:begin
  705. case i of
  706. 1:sysoplevel:=inputintinfo ('Co-Sysop Level','The Security Level for a Co-Sysop',strr(sysoplevel),
  707. 5,1,32767);
  708. 2:logonlevel:=inputintinfo ('Logon Level','The Security Level for a user to get the system password',strr(logonlevel),
  709. 5,1,32767);
  710. 3:postlevel:=inputintinfo ('Message Post Level','Level to post a message',strr(postlevel),5,1,32767);
  711. 4:msgnextlvl:=inputintinfo ('Auto Message Level','Level to leave an auto message',strr(msgnextlvl),5,1,32767);
  712. 5:timerestlvl:=inputintinfo ('Time Restrict Level','Level to call BBS at restricted hours',strr(timerestlvl),5,1,32767);
  713. 6:anonymouslevel:=inputintinfo ('Anonymous Level','Level to see the real names of Anonymous Posters',strr(anonymouslevel),
  714. 5,1,32767);
  715. 7:listuserlvl:=inputintinfo ('List Users Level','Level to list users',strr(listuserlvl),5,1,32767);
  716. 8:pcrexempt:=inputintinfo ('PCR Exempt Level','Level to be exempt from Post Call Ratio(s)',
  717. strr(pcrexempt),5,1,32767);
  718. 9:udexempt:=inputintinfo ('U/D Ratio Exempt Level','Level to be exempt from U/D Ratio(s)',
  719. strr(udexempt),5,1,32767);
  720. 10:begin writeconfig; b:=true; end;
  721. end;
  722. end;
  723. end
  724. until (c=#27) or (b=true);
  725. writescr (s);
  726. end;
  727.  
  728. procedure colors;
  729. var i,ii:integer;
  730.        c:char;
  731.        s:screens;
  732.        b:boolean;
  733.  
  734. { TheDraw Pascal Crunched Screen Image }
  735. const
  736.   TEMP_SCR_WIDTH=80;
  737.   TEMP_SCR_DEPTH=23;
  738.   TEMP_SCR_LENGTH=908;
  739.   TEMP_SCR : array [1..908] of Char = (
  740.     #11,#16,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,#18,'▓',
  741.     #17,#25,'(',#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,#4 ,
  742.     #15,'F','A','Q',' ','S','e','t','u','p',' ','P','r','o','g','r','a',
  743.     'm',' ','V','e','r','s','i','o','n',' ','1','.','0','0',#25,#5 ,#11,
  744.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#15,#17,#26,'(','─',#11,
  745.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█',
  746.     '█','█',#17,' ',' ',#16,'█','█','█',#17,' ',#16,#26,#19,'█',#17,' ',
  747.     #16,'█','█',#17,#25,#2 ,#16,'█','█','█',#17,' ',#11,#16,#26,#19,'▓',
  748.     #24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█','█','█',#17,' ',
  749.     ' ',#16,'█','█','█',#11,#17,'N','o','r','m','a','l',' ','C','o','l',
  750.     'o','r',#25,#9 ,#1 ,#16,'█','█',#17,#25,#2 ,#16,'█','█','█',#17,' ',
  751.     #11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,
  752.     '█','█','█',#17,' ',' ',#16,'█','█','█',#11,#17,'T','o','p',' ','S',
  753.     'p','l','i','t',' ','C','o','l','o','r',#25,#6 ,#1 ,#16,'█','█',#17,
  754.     #25,#2 ,#16,'█','█','█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
  755.     #3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',#17,#25,#2 ,#16,'█','█',#17,' ',
  756.     ' ',#11,'O','u','t','p','u','t','-','L','o','c','k',' ','C','o','l',
  757.     'o','r',#25,#5 ,#1 ,#16,'█',#17,' ',' ',#16,'█','█',#17,#25,#2 ,#11,
  758.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',
  759.     #17,' ',#16,'█',#17,' ',#16,'█','█',#17,' ',' ',#11,'S','p','l','i',
  760.     't','-','L','i','n','e',' ','C','o','l','o','r',#25,#5 ,#1 ,#16,'█',
  761.     '█',#17,' ',' ',#16,'█','█',#17,' ',#16,'█',#17,' ',#11,#16,#26,#19,
  762.     '▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',
  763.     #16,#26,#3 ,'█',#11,#17,'S','t','a','t','u','s',' ','L','i','n','e',
  764.     ' ','C','o','l','o','r',#25,#4 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,
  765.     #3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,
  766.     ' ',#1 ,#16,'█','█',#17,' ',#16,'█',#17,' ',#16,'█','█',#17,' ',' ',
  767.     #11,'D','e','f','a','u','l','t',' ','C','o','l','o','r',' ','#','1',
  768.     #25,#5 ,#1 ,#16,'█','█',#17,' ',' ',#16,'█','█',#17,' ',#16,'█',#17,
  769.     ' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,
  770.     #26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'D','e','f','a','u','l',
  771.     't',' ','C','o','l','o','r',' ','#','2',#25,#5 ,#1 ,#16,'█','█',#17,
  772.     ' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
  773.     #3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,
  774.     #17,'D','e','f','a','u','l','t',' ','C','o','l','o','r',' ','#','3',
  775.     #25,#5 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,
  776.     #26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',
  777.     #17,' ',#16,#26,#3 ,'█',#11,#17,'D','e','f','a','u','l','t',' ','C',
  778.     'o','l','o','r',' ','#','4',#25,#5 ,#1 ,#16,'█','█',#17,' ',' ',#16,
  779.     #26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',
  780.     #17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'D','e',
  781.     'f','a','u','l','t',' ','C','o','l','o','r',' ','#','5',#25,#5 ,#1 ,
  782.     #16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',
  783.     #24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,
  784.     #26,#3 ,'█',#11,#17,'D','e','f','a','u','l','t',' ','C','o','l','o',
  785.     'r',' ','#','6',#25,#5 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',
  786.     #17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,
  787.     #16,#26,#3 ,'█',#17,' ',#16,'█','█','█',#17,' ',#11,'E','x','i','t',
  788.     ' ','a','n','d',' ','S','a','v','e',#25,#3 ,#1 ,#16,#26,#6 ,'█',#17,
  789.     ' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
  790.     #3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,'█','█','█',#17,
  791.     #25,#17,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,
  792.     #26,#19,'▓',#24,#26,#16,'▓',#3 ,#26,'(','▓',#11,#26,#21,'▓',#24,#26,
  793.     'O','▓',#24,#26,'O','▓',#24);
  794.  
  795. procedure writecurrentplace (i:integer);
  796. begin
  797. if i=1 then begin
  798. gotoxy (28,8); textcolor (15); textbackground (7); write ('» Normal Color           ');
  799. writestuff (strr(normbotcolor));
  800. end;
  801. if i=2 then begin
  802. gotoxy (28,9); textcolor (15); textbackground (7); write ('» Top Split Color        ');
  803. writestuff (strr(normtopcolor));
  804. end;
  805. if i=3 then begin
  806. gotoxy (28,10); textcolor (15); textbackground (7); write ('» Output-Lock Color      ');
  807. writestuff (strr(outlockcolor));
  808. end;
  809. if i=4 then begin
  810. gotoxy (28,11); textcolor (15); textbackground (7); write ('» Split-Line Color       ');
  811. writestuff (strr(splitcolor));
  812. end;
  813. if i=5 then begin
  814. gotoxy (28,12); textcolor (15); textbackground (7); write ('» Status Line Color      ');
  815. writestuff (strr(statlinecolor));
  816. end;
  817. if i=6 then begin
  818. gotoxy (28,13); textcolor (15); textbackground (7); write ('» Default Color #1       ');
  819. writestuff (strr(defcolor1));
  820. end;
  821. if i=7 then begin
  822. gotoxy (28,14); textcolor (15); textbackground (7); write ('» Default Color #2       ');
  823. writestuff (strr(defcolor2));
  824. end;
  825. if i=8 then begin
  826. gotoxy (28,15); textcolor (15); textbackground (7); write ('» Default Color #3       ');
  827. writestuff (strr(defcolor3));
  828. end;
  829. if i=9 then begin
  830. gotoxy (28,16); textcolor (15); textbackground (7); write ('» Default Color #4       ');
  831. writestuff (strr(defcolor4));
  832. end;
  833. if i=10 then begin
  834. gotoxy (28,17); textcolor (15); textbackground (7); write ('» Default Color #5       ');
  835. writestuff (strr(defcolor5));
  836. end;
  837. if i=11 then begin
  838. gotoxy (28,18); textcolor (15); textbackground (7); write ('» Default Color #6       ');
  839. writestuff (strr(defcolor6));
  840. end;
  841. if i=12 then begin
  842. gotoxy (28,19); textcolor (15); textbackground (7); write ('» Exit and Save          ');
  843. writeblank;
  844. end;
  845. textcolor (15);
  846. textbackground (0);
  847. end;
  848.  
  849. begin
  850. readscr (s);
  851. i:=1;
  852. b:=false;
  853. repeat
  854. UNCRUNCH(TEMP_SCR,ScreenAddr[(1*2)+(1*160)-162],TEMP_SCR_LENGTH);
  855. writecurrentplace (i);
  856. c:=upcase(readkey);
  857. case c of
  858. #72:begin
  859. if i=1 then i:=13;
  860. i:=i-1;
  861. end;
  862. #80:begin
  863. if i=12 then i:=0;
  864. i:=i+1;
  865. end;
  866. #13:begin
  867. case i of
  868. 1:normbotcolor:=colorconf (normbotcolor,false);
  869. 2:normtopcolor:=colorconf (normtopcolor,false);
  870. 3:outlockcolor:=colorconf (outlockcolor,false);
  871. 4:splitcolor:=colorconf (splitcolor,false);
  872. 5:statlinecolor:=colorconf (statlinecolor,false);
  873. 6:defcolor1:=colorconf (defcolor1,true);
  874. 7:defcolor2:=colorconf (defcolor2,true);
  875. 8:defcolor3:=colorconf (defcolor3,true);
  876. 9:defcolor4:=colorconf (defcolor4,true);
  877. 10:defcolor5:=colorconf (defcolor5,true);
  878. 11:defcolor6:=colorconf (defcolor6,true);
  879. 12:begin writeconfig; b:=true; end;
  880. end;
  881. end;
  882. end
  883. until (c=#27) or (b=true);
  884. writescr (s);
  885. end;
  886.  
  887. procedure conf;
  888. var i,ii:integer;
  889.     page:integer;
  890.        c:char;
  891.        s:screens;
  892.        b:boolean;
  893.  
  894. { TheDraw Pascal Crunched Screen Image }
  895. const
  896.   TEMP_SCR_WIDTH=80;
  897.   TEMP_SCR_DEPTH=23;
  898.   TEMP_SCR_LENGTH=982;
  899.   TEMP_SCR : array [1..982] of Char = (
  900.     #11,#16,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,#18,'▓',
  901.     #17,#25,'(',#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,#4 ,
  902.     #15,'F','A','Q',' ','S','e','t','u','p',' ','P','r','o','g','r','a',
  903.     'm',' ','V','e','r','s','i','o','n',' ','1','.','0','0',#25,#5 ,#11,
  904.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#15,#17,#26,'(','─',#11,
  905.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█',
  906.     '█','█',#17,' ',' ',#16,#26,#23,'█',#17,' ',#16,'█','█',#17,#25,#2 ,
  907.     #16,'█','█','█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
  908.     '▓',#17,' ',' ',#1 ,#16,'█','█','█',#17,' ',' ',#16,'█','█','█',#11,
  909.     #17,'U','s','e',' ','C','o','n','f','e','r','e','n','c','e','s',#25,
  910.     #6 ,#1 ,#16,'█','█',#17,#25,#2 ,#16,'█','█','█',#17,' ',#11,#16,#26,
  911.     #19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█','█','█',
  912.     #17,' ',' ',#16,'█','█','█',#11,#17,'C','o','n','f','.',' ','#','1',
  913.     ' ','M','e','s','s','a','g','e',' ','N','a','m','e',' ',#1 ,#16,'█',
  914.     '█',#17,#25,#2 ,#16,'█','█','█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,
  915.     #16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',#17,#25,#2 ,#16,'█','█',
  916.     #17,' ',' ',#11,'C','o','n','f','.',' ','#','1',' ','X','f','e','r',
  917.     ' ','N','a','m','e',#25,#4 ,#1 ,#16,'█',#17,' ',' ',#16,'█','█',#17,
  918.     #25,#2 ,#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,
  919.     #16,'█','█',#17,' ',#16,'█',#17,' ',#16,'█','█',#17,' ',' ',#11,'C',
  920.     'o','n','f','.',' ','#','2',' ','M','e','s','s','a','g','e',' ','N',
  921.     'a','m','e',' ',#1 ,#16,'█','█',#17,' ',' ',#16,'█','█',#17,' ',#16,
  922.     '█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',
  923.     #1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'C','o','n','f',
  924.     '.',' ','#','2',' ','X','f','e','r',' ','N','a','m','e',#25,#3 ,#1 ,
  925.     #16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',
  926.     #24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',#17,' ',#16,'█',
  927.     #17,' ',#16,'█','█',#17,' ',' ',#11,'C','o','n','f','.',' ','#','3',
  928.     ' ','M','e','s','s','a','g','e',' ','N','a','m','e',' ',#1 ,#16,'█',
  929.     '█',#17,' ',' ',#16,'█','█',#17,' ',#16,'█',#17,' ',#11,#16,#26,#19,
  930.     '▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',
  931.     #16,#26,#3 ,'█',#11,#17,'C','o','n','f','.',' ','#','3',' ','X','f',
  932.     'e','r',' ','N','a','m','e',#25,#3 ,#1 ,#16,'█','█',#17,' ',' ',#16,
  933.     #26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',
  934.     #17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'C','o',
  935.     'n','f','.',' ','#','4',' ','M','e','s','s','a','g','e',' ','N','a',
  936.     'm','e',' ',#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,
  937.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,
  938.     '█',#17,' ',#16,#26,#3 ,'█',#11,#17,'C','o','n','f','.',' ','#','4',
  939.     ' ','X','f','e','r',' ','N','a','m','e',#25,#3 ,#1 ,#16,'█','█',#17,
  940.     ' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
  941.     #3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,
  942.     #17,'C','o','n','f','.',' ','#','5',' ','M','e','s','s','a','g','e',
  943.     ' ','N','a','m','e',' ',#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',
  944.     #17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,
  945.     #16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'C','o','n','f','.',
  946.     ' ','#','5',' ','X','f','e','r',' ','N','a','m','e',#25,#3 ,#1 ,#16,
  947.     '█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,
  948.     #26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,
  949.     #3 ,'█',#11,#17,'N','e','x','t',' ','P','a','g','e',#25,#7 ,#1 ,#16,
  950.     #26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',
  951.     #24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,
  952.     '█','█','█',#17,' ',#11,'E','x','i','t',' ','a','n','d',' ','S','a',
  953.     'v','e',#25,#3 ,#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,
  954.     ' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,
  955.     #26,#3 ,'█',#17,' ',#16,'█','█','█',#17,#25,#17,#16,#26,#6 ,'█',#17,
  956.     ' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
  957.     #3 ,#26,'(','▓',#11,#26,#21,'▓',#24,#26,'O','▓',#24);
  958.  
  959. { TheDraw Pascal Crunched Screen Image }
  960. const
  961.   TEMP2_SCR_WIDTH=80;
  962.   TEMP2_SCR_DEPTH=23;
  963.   TEMP2_SCR_LENGTH=964;
  964.   TEMP2_SCR : array [1..964] of Char = (
  965.     #11,#16,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,#18,'▓',
  966.     #17,#25,'(',#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,#4 ,
  967.     #15,'F','A','Q',' ','S','e','t','u','p',' ','P','r','o','g','r','a',
  968.     'm',' ','V','e','r','s','i','o','n',' ','1','.','0','0',#25,#5 ,#11,
  969.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#15,#17,#26,'(','─',#11,
  970.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█',
  971.     '█','█',#17,' ',' ',#16,#26,#23,'█',#17,' ',#16,'█','█',#17,#25,#2 ,
  972.     #16,'█','█','█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
  973.     '▓',#17,' ',' ',#1 ,#16,'█','█','█',#17,' ',' ',#16,'█','█','█',#11,
  974.     #17,'C','o','n','f','.',' ','#','1',' ','M','e','s','s','a','g','e',
  975.     ' ','P','W',#25,#2 ,#1 ,#16,'█','█',#17,#25,#2 ,#16,'█','█','█',#17,
  976.     ' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,
  977.     '█','█',#17,#25,#2 ,#16,'█','█',#17,' ',' ',#11,'C','o','n','f','.',
  978.     ' ','#','1',' ','X','f','e','r',' ','P','W',#25,#6 ,#1 ,#16,'█',#17,
  979.     ' ',' ',#16,'█','█',#17,#25,#2 ,#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
  980.     #3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',#17,' ',#16,'█',#17,' ',#16,'█',
  981.     '█',#17,' ',' ',#11,'C','o','n','f','.',' ','#','2',' ','M','e','s',
  982.     's','a','g','e',' ','P','W',#25,#2 ,#1 ,#16,'█','█',#17,' ',' ',#16,
  983.     '█','█',#17,' ',#16,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
  984.     #3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,
  985.     #17,'C','o','n','f','.',' ','#','2',' ','X','f','e','r',' ','P','W',
  986.     #25,#5 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,
  987.     #26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',#17,
  988.     ' ',#16,'█',#17,' ',#16,'█','█',#17,' ',' ',#11,'C','o','n','f','.',
  989.     ' ','#','3',' ','M','e','s','s','a','g','e',' ','P','W',#25,#2 ,#1 ,
  990.     #16,'█','█',#17,' ',' ',#16,'█','█',#17,' ',#16,'█',#17,' ',#11,#16,
  991.     #26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',
  992.     #17,' ',#16,#26,#3 ,'█',#11,#17,'C','o','n','f','.',' ','#','3',' ',
  993.     'X','f','e','r',' ','P','W',#25,#5 ,#1 ,#16,'█','█',#17,' ',' ',#16,
  994.     #26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',
  995.     #17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'C','o',
  996.     'n','f','.',' ','#','4',' ','M','e','s','s','a','g','e',' ','P','W',
  997.     #25,#2 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,
  998.     #26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',
  999.     #17,' ',#16,#26,#3 ,'█',#11,#17,'C','o','n','f','.',' ','#','4',' ',
  1000.     'X','f','e','r',' ','P','W',#25,#5 ,#1 ,#16,'█','█',#17,' ',' ',#16,
  1001.     #26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',
  1002.     #17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'C','o',
  1003.     'n','f','.',' ','#','5',' ','M','e','s','s','a','g','e',' ','P','W',
  1004.     #25,#2 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,
  1005.     #26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',
  1006.     #17,' ',#16,#26,#3 ,'█',#11,#17,'C','o','n','f','.',' ','#','5',' ',
  1007.     'X','f','e','r',' ','P','W',#25,#5 ,#1 ,#16,'█','█',#17,' ',' ',#16,
  1008.     #26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',
  1009.     #17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'P','r',
  1010.     'e','v','i','o','u','s',' ','P','a','g','e',#25,#3 ,#1 ,#16,#26,#6 ,
  1011.     '█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,
  1012.     #16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,
  1013.     '█',#11,#17,'N','e','x','t',' ','P','a','g','e',#25,#7 ,#1 ,#16,#26,
  1014.     #6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,
  1015.     #26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,'█',
  1016.     '█','█',#17,' ',#11,'E','x','i','t',' ','a','n','d',' ','S','a','v',
  1017.     'e',#25,#3 ,#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',
  1018.     #11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,
  1019.     #3 ,'█',#17,' ',#16,'█','█','█',#17,#25,#17,#16,#26,#6 ,'█',#17,' ',
  1020.     ' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,
  1021.     #26,'(','▓',#11,#26,#21,'▓',#24,#26,'O','▓',#24);
  1022.  
  1023. { TheDraw Pascal Crunched Screen Image }
  1024. const
  1025.   TEMP3_SCR_WIDTH=80;
  1026.   TEMP3_SCR_DEPTH=23;
  1027.   TEMP3_SCR_LENGTH=930;
  1028.   TEMP3_SCR : array [1..930] of Char = (
  1029.     #11,#16,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,#18,'▓',
  1030.     #17,#25,'(',#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,#4 ,
  1031.     #15,'F','A','Q',' ','S','e','t','u','p',' ','P','r','o','g','r','a',
  1032.     'm',' ','V','e','r','s','i','o','n',' ','1','.','0','0',#25,#5 ,#11,
  1033.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#15,#17,#26,'(','─',#11,
  1034.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█',
  1035.     '█','█',#17,' ',' ',#16,#26,#23,'█',#17,' ',#16,'█','█',#17,#25,#2 ,
  1036.     #16,'█','█','█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
  1037.     '▓',#17,' ',' ',#1 ,#16,'█','█','█',#17,' ',' ',#16,'█','█','█',#11,
  1038.     #17,'C','o','n','f','.',' ','#','1',' ','M','e','s','s','a','g','e',
  1039.     ' ','D','e','f','.',' ',#1 ,#16,'█','█',#17,#25,#2 ,#16,'█','█','█',
  1040.     #17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,
  1041.     #16,'█','█',#17,#25,#2 ,#16,'█','█',#17,' ',' ',#11,'C','o','n','f',
  1042.     '.',' ','#','1',' ','X','f','e','r',' ','D','e','f','.',#25,#4 ,#1 ,
  1043.     #16,'█',#17,' ',' ',#16,'█','█',#17,#25,#2 ,#11,#16,#26,#19,'▓',#24,
  1044.     #26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',#17,' ',#16,'█',#17,
  1045.     ' ',#16,'█','█',#17,' ',' ',#11,'C','o','n','f','.',' ','#','2',' ',
  1046.     'M','e','s','s','a','g','e',' ','D','e','f','.',' ',#1 ,#16,'█','█',
  1047.     #17,' ',' ',#16,'█','█',#17,' ',#16,'█',#17,' ',#11,#16,#26,#19,'▓',
  1048.     #24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,
  1049.     #26,#3 ,'█',#11,#17,'C','o','n','f','.',' ','#','2',' ','X','f','e',
  1050.     'r',' ','D','e','f','.',#25,#3 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,
  1051.     #3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,
  1052.     ' ',#1 ,#16,'█','█',#17,' ',#16,'█',#17,' ',#16,'█','█',#17,' ',' ',
  1053.     #11,'C','o','n','f','.',' ','#','3',' ','M','e','s','s','a','g','e',
  1054.     ' ','D','e','f','.',' ',#1 ,#16,'█','█',#17,' ',' ',#16,'█','█',#17,
  1055.     ' ',#16,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',
  1056.     #17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'C','o',
  1057.     'n','f','.',' ','#','3',' ','X','f','e','r',' ','D','e','f','.',#25,
  1058.     #3 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,
  1059.     #19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,
  1060.     ' ',#16,#26,#3 ,'█',#11,#17,'C','o','n','f','.',' ','#','4',' ','M',
  1061.     'e','s','s','a','g','e',' ','D','e','f','.',' ',#1 ,#16,'█','█',#17,
  1062.     ' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
  1063.     #3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,
  1064.     #17,'C','o','n','f','.',' ','#','4',' ','X','f','e','r',' ','D','e',
  1065.     'f','.',#25,#3 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',
  1066.     #11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,
  1067.     #3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'C','o','n','f','.',' ','#',
  1068.     '5',' ','M','e','s','s','a','g','e',' ','D','e','f','.',' ',#1 ,#16,
  1069.     '█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,
  1070.     #26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,
  1071.     #3 ,'█',#11,#17,'C','o','n','f','.',' ','#','5',' ','X','f','e','r',
  1072.     ' ','D','e','f','.',#25,#3 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,
  1073.     '█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',
  1074.     #1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'P','r','e','v',
  1075.     'i','o','u','s',' ','P','a','g','e',#25,#8 ,#1 ,#16,'█','█',#17,' ',
  1076.     ' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,
  1077.     '▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,'█','█','█',#17,' ',
  1078.     #11,'E','x','i','t',' ','a','n','d',' ','S','a','v','e',#25,#3 ,#1 ,
  1079.     #16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,
  1080.     '▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',
  1081.     #16,'█','█','█',#17,#25,#17,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,
  1082.     '█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,#26,'(','▓',#11,
  1083.     #26,#21,'▓',#24,#26,'O','▓',#24,#26,'O','▓',#24);
  1084.  
  1085. procedure writecurrentplace(i:integer);
  1086. begin
  1087. if page=1 then begin
  1088. if i=1 then begin
  1089. gotoxy (28,8); textcolor (15); textbackground (7);  write ('» Use Conferences        ');
  1090. writestuff (boostr(useconf));
  1091. end;
  1092. if i=2 then begin
  1093. gotoxy (28,9); textcolor (15); textbackground (7);  write ('» Conf. #1 Message Name  ');
  1094. writestuff (confm[1]);
  1095. end;
  1096. if i=3 then begin
  1097. gotoxy (28,10); textcolor (15); textbackground (7);  write ('» Conf. #1 Xfer Name     ');
  1098. writestuff (confx[1]);
  1099. end;
  1100. if i=4 then begin
  1101. gotoxy (28,11); textcolor (15); textbackground (7); write ('» Conf. #2 Message Name  ');
  1102. writestuff (confm[2]);
  1103. end;
  1104. if i=5 then begin
  1105. gotoxy (28,12); textcolor (15); textbackground (7); write ('» Conf. #2 Xfer Name     ');
  1106. writestuff (confx[2]);
  1107. end;
  1108. if i=6 then begin
  1109. gotoxy (28,13); textcolor (15); textbackground (7); write ('» Conf. #3 Message Name  ');
  1110. writestuff (confm[3]);
  1111. end;
  1112. if i=7 then begin
  1113. gotoxy (28,14); textcolor (15); textbackground (7); write ('» Conf. #3 Xfer Name     ');
  1114. writestuff (confx[3]);
  1115. end;
  1116. if i=8 then begin
  1117. gotoxy (28,15); textcolor (15); textbackground (7); write ('» Conf. #4 Message Name  ');
  1118. writestuff (confm[4]);
  1119. end;
  1120. if i=9 then begin
  1121. gotoxy (28,16); textcolor (15); textbackground (7); write ('» Conf. #4 Xfer Name     ');
  1122. writestuff (confx[4]);
  1123. end;
  1124. if i=10 then begin
  1125. gotoxy (28,17); textcolor (15); textbackground (7); write ('» Conf. #5 Message Name  ');
  1126. writestuff (confm[5]);
  1127. end;
  1128. if i=11 then begin
  1129. gotoxy (28,18); textcolor (15); textbackground (7); write ('» Conf. #5 Xfer Name     ');
  1130. writestuff (confx[5]);
  1131. end;
  1132. if i=12 then begin
  1133. gotoxy (28,19); textcolor (15); textbackground (7); write ('» Next Page              ');
  1134. writeblank;
  1135. end;
  1136. if i=13 then begin
  1137. gotoxy (28,20); textcolor (15); textbackground (7); write ('» Exit and Save          ');
  1138. writeblank;
  1139. end;
  1140. end else if page=2 then begin
  1141. if i=1 then begin
  1142. gotoxy (28,8); textcolor (15); textbackground (7);  write ('» Conf. #1 Message PW    ');
  1143. writestuff (confmpw[1]);
  1144. end;
  1145. if i=2 then begin
  1146. gotoxy (28,9); textcolor (15); textbackground (7);  write ('» Conf. #1 Xfer PW       ');
  1147. writestuff (confxpw[1]);
  1148. end;
  1149. if i=3 then begin
  1150. gotoxy (28,10); textcolor (15); textbackground (7); write ('» Conf. #2 Message PW    ');
  1151. writestuff (confmpw[2]);
  1152. end;
  1153. if i=4 then begin
  1154. gotoxy (28,11); textcolor (15); textbackground (7); write ('» Conf. #2 Xfer PW       ');
  1155. writestuff (confxpw[2]);
  1156. end;
  1157. if i=5 then begin
  1158. gotoxy (28,12); textcolor (15); textbackground (7); write ('» Conf. #3 Message PW    ');
  1159. writestuff (confmpw[3]);
  1160. end;
  1161. if i=6 then begin
  1162. gotoxy (28,13); textcolor (15); textbackground (7); write ('» Conf. #3 Xfer PW       ');
  1163. writestuff (confxpw[3]);
  1164. end;
  1165. if i=7 then begin
  1166. gotoxy (28,14); textcolor (15); textbackground (7); write ('» Conf. #4 Message PW    ');
  1167. writestuff (confmpw[4]);
  1168. end;
  1169. if i=8 then begin
  1170. gotoxy (28,15); textcolor (15); textbackground (7); write ('» Conf. #4 Xfer PW       ');
  1171. writestuff (confxpw[4]);
  1172. end;
  1173. if i=9 then begin
  1174. gotoxy (28,16); textcolor (15); textbackground (7); write ('» Conf. #5 Message PW    ');
  1175. writestuff (confmpw[5]);
  1176. end;
  1177. if i=10 then begin
  1178. gotoxy (28,17); textcolor (15); textbackground (7); write ('» Conf. #5 Xfer PW       ');
  1179. writestuff (confxpw[5]);
  1180. end;
  1181. if i=11 then begin
  1182. gotoxy (28,18); textcolor (15); textbackground (7); write ('» Previous Page          ');
  1183. writeblank;
  1184. end;
  1185. if i=12 then begin
  1186. gotoxy (28,19); textcolor (15); textbackground (7); write ('» Next Page              ');
  1187. writeblank;
  1188. end;
  1189. if i=13 then begin
  1190. gotoxy (28,20); textcolor (15); textbackground (7); write ('» Exit and Save          ');
  1191. writeblank;
  1192. end;
  1193. end else if page=3 then begin
  1194. if i=1 then begin
  1195. gotoxy (28,8); textcolor (15); textbackground (7);  write ('» Conf. #1 Message Def.  ');
  1196. writestuff (boostr(defconfm[1]));
  1197. end;
  1198. if i=2 then begin
  1199. gotoxy (28,9); textcolor (15); textbackground (7);  write ('» Conf. #1 Xfer Def.     ');
  1200. writestuff (boostr(defconfx[1]));
  1201. end;
  1202. if i=3 then begin
  1203. gotoxy (28,10); textcolor (15); textbackground (7); write ('» Conf. #2 Message Def.  ');
  1204. writestuff (boostr(defconfm[2]));
  1205. end;
  1206. if i=4 then begin
  1207. gotoxy (28,11); textcolor (15); textbackground (7); write ('» Conf. #2 Xfer Def.     ');
  1208. writestuff (boostr(defconfx[2]));
  1209. end;
  1210. if i=5 then begin
  1211. gotoxy (28,12); textcolor (15); textbackground (7); write ('» Conf. #3 Message Def.  ');
  1212. writestuff (boostr(defconfm[3]));
  1213. end;
  1214. if i=6 then begin
  1215. gotoxy (28,13); textcolor (15); textbackground (7); write ('» Conf. #3 Xfer Def.     ');
  1216. writestuff (boostr(defconfx[3]));
  1217. end;
  1218. if i=7 then begin
  1219. gotoxy (28,14); textcolor (15); textbackground (7); write ('» Conf. #4 Message Def.  ');
  1220. writestuff (boostr(defconfm[4]));
  1221. end;
  1222. if i=8 then begin
  1223. gotoxy (28,15); textcolor (15); textbackground (7); write ('» Conf. #4 Xfer Def.     ');
  1224. writestuff (boostr(defconfx[4]));
  1225. end;
  1226. if i=9 then begin
  1227. gotoxy (28,16); textcolor (15); textbackground (7); write ('» Conf. #5 Message Def.  ');
  1228. writestuff (boostr(defconfm[5]));
  1229. end;
  1230. if i=10 then begin
  1231. gotoxy (28,17); textcolor (15); textbackground (7); write ('» Conf. #5 Xfer Def.     ');
  1232. writestuff (boostr(defconfx[5]));
  1233. end;
  1234. if i=11 then begin
  1235. gotoxy (28,18); textcolor (15); textbackground (7); write ('» Previous Page          ');
  1236. writeblank;
  1237. end;
  1238. if i=12 then begin
  1239. gotoxy (28,19); textcolor (15); textbackground (7); write ('» Exit and Save          ');
  1240. writeblank;
  1241. end;
  1242. end;
  1243. textcolor (15);
  1244. textbackground (0);
  1245. end;
  1246.  
  1247. begin
  1248. readscr (s);
  1249. i:=1;
  1250. page:=1;
  1251. b:=false;
  1252. repeat
  1253. if page=1 then
  1254. UNCRUNCH(TEMP_SCR,ScreenAddr[(1*2)+(1*160)-162],TEMP_SCR_LENGTH)
  1255. else if page=2 then
  1256. UNCRUNCH(TEMP2_SCR,ScreenAddr[(1*2)+(1*160)-162],TEMP2_SCR_LENGTH)
  1257. else if page=3 then
  1258. UNCRUNCH(TEMP3_SCR,ScreenAddr[(1*2)+(1*160)-162],TEMP3_SCR_LENGTH);
  1259. writecurrentplace (i);
  1260. c:=upcase(readkey);
  1261. case c of
  1262. #72:begin
  1263. if page=1 then begin
  1264. if i=1 then i:=14;
  1265. end else if page=2 then begin if i=1 then i:=14; end else
  1266. if page=3 then begin if i=1 then i:=13; end;
  1267. i:=i-1;
  1268. end;
  1269. #80:begin
  1270. if page=1 then begin
  1271. if i=13 then i:=0;
  1272. end else if page=2 then begin if i=13 then i:=0; end else
  1273. if page=3 then begin if i=12 then i:=0; end;
  1274. i:=i+1;
  1275. end;
  1276. #13:begin
  1277. if page=1 then begin
  1278. case i of
  1279. 1:useconf:=inputbooinfo ('Use Conferences','If not then FAQ will only use the Main Conference',useconf,1);
  1280. 2:confm[1]:=inputinfo ('Conf. #1 Message Name','Name of Conference #1 for the Message Section',confm[1],64);
  1281. 3:confx[1]:=inputinfo ('Conf. #1 Xfer Name','Name of Conference #1 for the Xfer Section',confx[1],64);
  1282. 4:confm[2]:=inputinfo ('Conf. #2 Message Name','Name of Conference #2 for the Message Section',confm[2],64);
  1283. 5:confx[2]:=inputinfo ('Conf. #2 Xfer Name','Name of Conference #2 for the Xfer Section',confx[2],64);
  1284. 6:confm[3]:=inputinfo ('Conf. #3 Message Name','Name of Conference #3 for the Message Section',confm[3],64);
  1285. 7:confx[3]:=inputinfo ('Conf. #3 Xfer Name','Name of Conference #3 for the Xfer Section',confx[3],64);
  1286. 8:confm[4]:=inputinfo ('Conf. #4 Message Name','Name of Conference #4 for the Message Section',confm[4],64);
  1287. 9:confx[4]:=inputinfo ('Conf. #4 Xfer Name','Name of Conference #4 for the Xfer Section',confx[4],64);
  1288. 10:confm[5]:=inputinfo ('Conf. #5 Message Name','Name of Conference #5 for the Message Section',confm[5],64);
  1289. 11:confx[5]:=inputinfo ('Conf. #5 Xfer Name','Name of Conference #5 for the Xfer Section',confx[5],64);
  1290. 12:begin page:=page+1; i:=1; end;
  1291. 13:begin writeconfig; b:=true; end;
  1292. end;
  1293. end else if page=2 then begin
  1294. case i of
  1295. 1:confmpw[1]:=inputinfo ('Conf. #1 Message PW','PW for Conference #1 for the Message Section',confmpw[1],30);
  1296. 2:confxpw[1]:=inputinfo ('Conf. #1 Xfer PW','PW for Conference #1 for the Xfer Section',confxpw[1],30);
  1297. 3:confmpw[2]:=inputinfo ('Conf. #2 Message PW','PW for Conference #2 for the Message Section',confmpw[2],30);
  1298. 4:confxpw[2]:=inputinfo ('Conf. #2 Xfer PW','PW for Conference #2 for the Xfer Section',confxpw[2],30);
  1299. 5:confmpw[3]:=inputinfo ('Conf. #3 Message PW','PW for Conference #3 for the Message Section',confmpw[3],30);
  1300. 6:confxpw[3]:=inputinfo ('Conf. #3 Xfer PW','PW for Conference #3 for the Xfer Section',confxpw[3],30);
  1301. 7:confmpw[4]:=inputinfo ('Conf. #4 Message PW','PW for Conference #4 for the Message Section',confmpw[4],30);
  1302. 8:confxpw[4]:=inputinfo ('Conf. #4 Xfer PW','PW for Conference #4 for the Xfer Section',confxpw[4],30);
  1303. 9:confmpw[5]:=inputinfo ('Conf. #5 Message PW','PW for Conference #5 for the Message Section',confmpw[5],30);
  1304. 10:confxpw[5]:=inputinfo ('Conf. #5 Xfer PW','PW for Conference #5 for the Xfer Section',confxpw[5],30);
  1305. 11:begin page:=page-1; i:=1; end;
  1306. 12:begin page:=page+1; i:=1; end;
  1307. 13:begin writeconfig; b:=true; end;
  1308. end;
  1309. end else if page=3 then begin
  1310. case i of
  1311. 1:defconfm[1]:=inputbooinfo ('Conf. #1 Message Def.','Def. Access for Conference #1 for the Message Section',defconfm[1],1);
  1312. 2:defconfx[1]:=inputbooinfo ('Conf. #1 Xfer Def.','Def. Access for Conference #1 for the Xfer Section',defconfx[1],1);
  1313. 3:defconfx[2]:=inputbooinfo ('Conf. #2 Message Def.','Def. Access for Conference #2 for the Message Section',defconfm[2],1);
  1314. 4:defconfx[2]:=inputbooinfo ('Conf. #2 Xfer Def.','Def. Access for Conference #2 for the Xfer Section',defconfx[2],1);
  1315. 5:defconfx[3]:=inputbooinfo ('Conf. #3 Message Def.','Def. Access for Conference #3 for the Message Section',defconfm[3],1);
  1316. 6:defconfx[3]:=inputbooinfo ('Conf. #3 Xfer Def.','Def. Access for Conference #3 for the Xfer Section',defconfx[3],1);
  1317. 7:defconfx[4]:=inputbooinfo ('Conf. #4 Message Def.','Def. Access for Conference #4 for the Message Section',defconfm[4],1);
  1318. 8:defconfx[4]:=inputbooinfo ('Conf. #4 Xfer Def.','Def. Access for Conference #4 for the Xfer Section',defconfx[4],1);
  1319. 9:defconfx[5]:=inputbooinfo ('Conf. #5 Message Def.','Def. Access for Conference #5 for the Message Section',defconfm[5],1);
  1320. 10:defconfx[5]:=inputbooinfo ('Conf. #5 Xfer Def.','Def. Access for Conference #5 for the Xfer Section',defconfx[5],1);
  1321. 11:begin page:=page-1; i:=1; end;
  1322. 12:begin writeconfig; b:=true; end;
  1323. end;
  1324. end;
  1325. end;
  1326. end;
  1327. until (c=#27) or (b=true);
  1328. writescr (s);
  1329. end;
  1330.  
  1331. procedure netinfo;
  1332. var i,ii:integer;
  1333.        c:char;
  1334.        s:screens;
  1335.        b:boolean;
  1336.  
  1337. { TheDraw Pascal Crunched Screen Image }
  1338. const
  1339.   TEMP_SCR_WIDTH=80;
  1340.   TEMP_SCR_DEPTH=23;
  1341.   TEMP_SCR_LENGTH=928;
  1342.   TEMP_SCR : array [1..928] of Char = (
  1343.     #11,#16,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,#18,'▓',
  1344.     #17,#25,'(',#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,#4 ,
  1345.     #15,'F','A','Q',' ','S','e','t','u','p',' ','P','r','o','g','r','a',
  1346.     'm',' ','V','e','r','s','i','o','n',' ','1','.','0','0',#25,#5 ,#11,
  1347.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#15,#17,#26,'(','─',#11,
  1348.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█',
  1349.     '█','█',#17,' ',' ',#16,#26,#23,'█',#17,' ',#16,'█','█',#17,#25,#2 ,
  1350.     #16,'█','█','█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
  1351.     '▓',#17,' ',' ',#1 ,#16,'█','█','█',#17,' ',' ',#16,'█','█','█',#11,
  1352.     #17,'U','s','e',' ','C','e','l','e','r','i','t','y','N','e','t',#25,
  1353.     #6 ,#1 ,#16,'█','█',#17,#25,#2 ,#16,'█','█','█',#17,' ',#11,#16,#26,
  1354.     #19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█','█','█',
  1355.     #17,' ',' ',#16,'█','█','█',#11,#17,'N','e','t','w','o','r','k',' ',
  1356.     '#',#25,#12,#1 ,#16,'█','█',#17,#25,#2 ,#16,'█','█','█',#17,' ',#11,
  1357.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',
  1358.     #17,#25,#2 ,#16,'█','█',#17,' ',' ',#11,'N','e','t','w','o','r','k',
  1359.     ' ','P','a','s','s','w','o','r','d',#25,#6 ,#1 ,#16,'█',#17,' ',' ',
  1360.     #16,'█','█',#17,#25,#2 ,#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
  1361.     '▓',#17,' ',#1 ,#16,'█','█',#17,' ',#16,'█',#17,' ',#16,'█','█',#17,
  1362.     ' ',' ',#11,'N','e','t','w','o','r','k',' ','O','r','i','g','i','n',
  1363.     ' ','L','i','n','e',#25,#2 ,#1 ,#16,'█','█',#17,' ',' ',#16,'█','█',
  1364.     #17,' ',#16,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
  1365.     '▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'N',
  1366.     'e','t','w','o','r','k',' ','T','i','m','e',' ','B','e','g','i','n',
  1367.     #25,#3 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,
  1368.     #26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',#17,
  1369.     ' ',#16,'█',#17,' ',#16,'█','█',#17,' ',' ',#11,'N','e','t','w','o',
  1370.     'r','k',' ','T','i','m','e',' ','E','n','d',#25,#5 ,#1 ,#16,'█','█',
  1371.     #17,' ',' ',#16,'█','█',#17,' ',#16,'█',#17,' ',#11,#16,#26,#19,'▓',
  1372.     #24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,
  1373.     #26,#3 ,'█',#11,#17,'H','o','s','t',' ','P','h','o','n','e',' ','N',
  1374.     'u','m','b','e','r',#25,#4 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,
  1375.     '█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',
  1376.     #1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'E','x','t','e',
  1377.     'n','d','e','r',#25,#13,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',
  1378.     #17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,
  1379.     #16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'N','e','t',' ','M',
  1380.     'e','s','s','a','g','e','s',#25,#9 ,#1 ,#16,'█','█',#17,' ',' ',#16,
  1381.     #26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',
  1382.     #17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'N','e',
  1383.     't',' ','B','B','S',' ','L','i','s','t',#25,#9 ,#1 ,#16,'█','█',#17,
  1384.     ' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
  1385.     #3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,
  1386.     #17,'N','e','t',' ','R','u','m','o','r','s',#25,#11,#1 ,#16,'█','█',
  1387.     #17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,
  1388.     '▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',
  1389.     #11,#17,'N','e','t',' ','N','e','w','s',#25,#8 ,#1 ,#16,#26,#6 ,'█',
  1390.     #17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,
  1391.     '▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,'█','█','█',
  1392.     #17,' ',#11,'E','x','i','t',' ','a','n','d',' ','S','a','v','e',#25,
  1393.     #3 ,#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,
  1394.     #26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',
  1395.     #17,' ',#16,'█','█','█',#17,#25,#17,#16,#26,#6 ,'█',#17,' ',' ',#16,
  1396.     #26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,#26,'(',
  1397.     '▓',#11,#26,#21,'▓',#24,#26,'O','▓',#24);
  1398.  
  1399. procedure writecurrentplace (i:integer);
  1400. begin
  1401. if i=1 then begin
  1402. gotoxy (28,8); textcolor (15); textbackground (7); write ('» Use CelerityNet        ');
  1403. writestuff (boostr(usenet));
  1404. end;
  1405. if i=2 then begin
  1406. gotoxy (28,9); textcolor (15); textbackground (7); write ('» Network #              ');
  1407. writestuff (strr(netnum));
  1408. end;
  1409. if i=3 then begin
  1410. gotoxy (28,10); textcolor (15); textbackground (7); write ('» Network Password       ');
  1411. writestuff (netpas);
  1412. end;
  1413. if i=4 then begin
  1414. gotoxy (28,11); textcolor (15); textbackground (7); write ('» Network Origin Line    ');
  1415. writestuff (netcomment);
  1416. end;
  1417. if i=5 then begin
  1418. gotoxy (28,12); textcolor (15); textbackground (7); write ('» Network Time Begin     ');
  1419. writestuff (netstart);
  1420. end;
  1421. if i=6 then begin
  1422. gotoxy (28,13); textcolor (15); textbackground (7); write ('» Network Time End       ');
  1423. writestuff (netend);
  1424. end;
  1425. if i=7 then begin
  1426. gotoxy (28,14); textcolor (15); textbackground (7); write ('» Host Phone Number      ');
  1427. writestuff (hostphone);
  1428. end;
  1429. if i=8 then begin
  1430. gotoxy (28,15); textcolor (15); textbackground (7); write ('» Extender               ');
  1431. writestuff (extender);
  1432. end;
  1433. if i=9 then begin
  1434. gotoxy (28,16); textcolor (15); textbackground (7); write ('» Net Messages           ');
  1435. writestuff (boostr(featurea));
  1436. end;
  1437. if i=10 then begin
  1438. gotoxy (28,17); textcolor (15); textbackground (7); write ('» Net BBS List           ');
  1439. writestuff (boostr(featured));
  1440. end;
  1441. if i=11 then begin
  1442. gotoxy (28,18); textcolor (15); textbackground (7); write ('» Net Rumors             ');
  1443. writestuff (boostr(featuree));
  1444. end;
  1445. if i=12 then begin
  1446. gotoxy (28,19); textcolor (15); textbackground (7); write ('» Net News               ');
  1447. writestuff (boostr(featuref));
  1448. end;
  1449. if i=13 then begin
  1450. gotoxy (28,20); textcolor (15); textbackground (7); write ('» Exit and Save          ');
  1451. writeblank;
  1452. end;
  1453. textcolor (15);
  1454. textbackground (0);
  1455. end;
  1456.  
  1457. begin
  1458. readscr (s);
  1459. i:=1;
  1460. b:=false;
  1461. repeat
  1462. UNCRUNCH(TEMP_SCR,ScreenAddr[(1*2)+(1*160)-162],TEMP_SCR_LENGTH);
  1463. writecurrentplace (i);
  1464. c:=upcase(readkey);
  1465. case c of
  1466. #72:begin
  1467. if i=1 then i:=14;
  1468. i:=i-1;
  1469. end;
  1470. #80:begin
  1471. if i=13 then i:=0;
  1472. i:=i+1;
  1473. end;
  1474. #13:begin
  1475. case i of
  1476. 1:usenet:=inputbooinfo ('Use CelerityNet','Use the CelerityNetworking System',usenet,1);
  1477. 2:netnum:=inputintinfo ('Network Number','Your Network Number - Obtain from CelerityNet Support Systems',
  1478. strr(netnum),5,1,32767);
  1479. 3:netpas:=inputinfo ('Network Password','Encoding Password for CelerityNet',netpas,30);
  1480. 4:netcomment:=inputinfo ('Network Origin Line','Text to be printed out on all net posts originating here',
  1481. netcomment,64);
  1482. 5:netstart:=inputinfo ('Network Time Begin','Time for CelerityNet to start calling Host - xx:xx a/pm',netstart,8);
  1483. 6:netend:=inputinfo ('Network Time End','Time for CelerityNet to stop calling Host - xx:xx a/pm',netend,8);
  1484. 7:hostphone:=inputinfo ('Host Phone Number','The Number to the Host system of CelerityNet  xxx-xxx-xxxx',
  1485. hostphone,12);
  1486. 8:extender:=inputinfo ('Extender','The Extender for calling the Host - Usually ''1''',extender,64);
  1487. 9:featurea:=inputbooinfo ('Net Messages','Use the Net Messages Feature',featurea,1);
  1488. 10:featured:=inputbooinfo ('Net BBS List','Use the Net BBS List Feature',featured,1);
  1489. 11:featuree:=inputbooinfo ('Net Rumors','Use the Net Rumors',featuree,1);
  1490. 12:featuref:=inputbooinfo ('Net News','Use the Net News Feature',featuref,1);
  1491. 13:begin writeconfig; b:=true; end;
  1492. end;
  1493. end;
  1494. end
  1495. until (c=#27) or (b=true);
  1496. writescr (s);
  1497. end;
  1498.  
  1499. procedure nuv;
  1500. var i,ii:integer;
  1501.        c:char;
  1502.        s:screens;
  1503.        b:boolean;
  1504.  
  1505. { TheDraw Pascal Crunched Screen Image }
  1506. const
  1507.   TEMP_SCR_WIDTH=80;
  1508.   TEMP_SCR_DEPTH=23;
  1509.   TEMP_SCR_LENGTH=734;
  1510.   TEMP_SCR : array [1..734] of Char = (
  1511.     #11,#16,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,#18,'▓',
  1512.     #17,#25,'(',#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,#4 ,
  1513.     #15,'F','A','Q',' ','S','e','t','u','p',' ','P','r','o','g','r','a',
  1514.     'm',' ','V','e','r','s','i','o','n',' ','1','.','0','0',#25,#5 ,#11,
  1515.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#15,#17,#26,'(','─',#11,
  1516.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█',
  1517.     '█','█',#17,' ',' ',#16,#26,#23,'█',#17,' ',#16,'█','█',#17,#25,#2 ,
  1518.     #16,'█','█','█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
  1519.     '▓',#17,' ',' ',#1 ,#16,'█','█','█',#17,' ',' ',#16,'█','█','█',#11,
  1520.     #17,'U','s','e',' ','N','e','w',' ','U','s','e','r',' ','V','o','t',
  1521.     'i','n','g',#25,#2 ,#1 ,#16,'█','█',#17,#25,#2 ,#16,'█','█','█',#17,
  1522.     ' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,
  1523.     #16,'█','█','█',#17,' ',' ',#16,'█','█','█',#11,#17,'N','U','V',' ',
  1524.     'R','e','q','u','i','r','e','d',' ','L','e','v','e','l',#25,#3 ,#1 ,
  1525.     #16,'█','█',#17,#25,#2 ,#16,'█','█','█',#17,' ',#11,#16,#26,#19,'▓',
  1526.     #24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',#17,#25,#2 ,#16,
  1527.     '█','█',#17,' ',' ',#11,'A','u','t','o','m','a','t','e','d',' ','N',
  1528.     'U','V',' ',#25,#8 ,#1 ,#16,'█',#17,' ',' ',#16,'█','█',#17,#25,#2 ,
  1529.     #11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█',
  1530.     '█',#17,' ',#16,'█',#17,' ',#16,'█','█',#17,' ',' ',#11,'N','U','V',
  1531.     ' ','Y','e','s',' ','V','o','t','e','s',#25,#8 ,#1 ,#16,'█','█',#17,
  1532.     ' ',' ',#16,'█','█',#17,' ',#16,'█',#17,' ',#11,#16,#26,#19,'▓',#24,
  1533.     #26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,
  1534.     #3 ,'█',#11,#17,'N','U','V',' ','N','o',' ','V','o','t','e','s',#25,
  1535.     #9 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,
  1536.     #19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',#17,' ',
  1537.     #16,'█',#17,' ',#16,'█','█',#17,' ',' ',#11,'N','U','V',' ','M','a',
  1538.     'i','n',' ','L','e','v','e','l',#25,#7 ,#1 ,#16,'█','█',#17,' ',' ',
  1539.     #16,'█','█',#17,' ',#16,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,
  1540.     '▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',
  1541.     #11,#17,'N','U','V',' ','F','i','l','e',' ','L','e','v','e','l',#25,
  1542.     #7 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,
  1543.     #19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,
  1544.     ' ',#16,#26,#3 ,'█',#11,#17,'N','U','V',' ','F','i','l','e',' ','P',
  1545.     'o','i','n','t','s',#25,#6 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,
  1546.     '█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',
  1547.     #1 ,#16,#26,#3 ,'█',#17,' ',#16,'█','█','█',#17,' ',#11,'E','x','i',
  1548.     't',' ','a','n','d',' ','S','a','v','e',#25,#3 ,#1 ,#16,#26,#6 ,'█',
  1549.     #17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,
  1550.     '▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,'█','█','█',
  1551.     #17,#25,#17,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,
  1552.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,#26,'(','▓',#11,#26,#21,'▓',#24,
  1553.     #26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,
  1554.     'O','▓',#24);
  1555.  
  1556. procedure writecurrentplace (i:integer);
  1557. begin
  1558. if i=1 then begin
  1559. gotoxy (28,8); textcolor (15); textbackground (7); write ('» Use New User Voting    ');
  1560. writestuff (boostr(usenuv));
  1561. end;
  1562. if i=2 then begin
  1563. gotoxy (28,9); textcolor (15); textbackground (7); write ('» NUV Required Level     ');
  1564. writestuff (strr(newvotelvl));
  1565. end;
  1566. if i=3 then begin
  1567. gotoxy (28,10); textcolor (15); textbackground (7); write ('» Automated NUV          ');
  1568. writestuff (boostr(autonuv));
  1569. end;
  1570. if i=4 then begin
  1571. gotoxy (28,11); textcolor (15); textbackground (7); write ('» NUV Yes Votes          ');
  1572. writestuff (strr(valnu));
  1573. end;
  1574. if i=5 then begin
  1575. gotoxy (28,12); textcolor (15); textbackground (7); write ('» NUV No Votes           ');
  1576. writestuff (strr(delnu));
  1577. end;
  1578. if i=6 then begin
  1579. gotoxy (28,13); textcolor (15); textbackground (7); write ('» NUV Main Level         ');
  1580. writestuff (strr(volvl));
  1581. end;
  1582. if i=7 then begin
  1583. gotoxy (28,14); textcolor (15); textbackground (7); write ('» NUV File Level         ');
  1584. writestuff (strr(voflvl));
  1585. end;
  1586. if i=8 then begin
  1587. gotoxy (28,15); textcolor (15); textbackground (7); write ('» NUV File Points        ');
  1588. writestuff (strr(vofps));
  1589. end;
  1590. if i=9 then begin
  1591. gotoxy (28,16); textcolor (15); textbackground (7); write ('» Exit and Save          ');
  1592. writeblank;
  1593. end;
  1594. textcolor (15);
  1595. textbackground (0);
  1596. end;
  1597.  
  1598. begin
  1599. readscr (s);
  1600. i:=1;
  1601. b:=false;
  1602. repeat
  1603. UNCRUNCH(TEMP_SCR,ScreenAddr[(1*2)+(1*160)-162],TEMP_SCR_LENGTH);
  1604. writecurrentplace (i);
  1605. c:=upcase(readkey);
  1606. case c of
  1607. #72:begin
  1608. if i=1 then i:=10;
  1609. i:=i-1;
  1610. end;
  1611. #80:begin
  1612. if i=9 then i:=0;
  1613. i:=i+1;
  1614. end;
  1615. #13:begin
  1616. case i of
  1617. 1:usenuv:=inputbooinfo ('Use New User Voting','Use the New User Voting System',usenuv,1);
  1618. 2:newvotelvl:=inputintinfo ('NUV Required Level','Level Required to Vote',strr(newvotelvl),5,1,32767);
  1619. 3:autonuv:=inputbooinfo ('Automated NUV','Auto-Delete/Auto-Validate in NUV',autonuv,1);
  1620. 4:valnu:=inputintinfo ('NUV Yes Votes','# of Votes for a user to be Validated in NUV',strr(valnu),2,1,25);
  1621. 5:delnu:=inputintinfo ('NUV No Votes','# of Votes for a user to be Deleted in NUV',strr(delnu),2,1,25);
  1622. 6:volvl:=inputintinfo ('NUV Main Level','Level user gets when Validated in NUV',strr(volvl),5,1,32767);
  1623. 7:voflvl:=inputintinfo ('NUV File Level','File Level user gets when Validated in NUV',strr(voflvl),5,1,32767);
  1624. 8:vofps:=inputintinfo ('NUV File Points','File Points user gets when Validated in NUV',strr(vofps),5,0,32767);
  1625. 9:begin writeconfig; b:=true; end;
  1626. end;
  1627. end;
  1628. end
  1629. until (c=#27) or (b=true);
  1630. writescr (s);
  1631. end;
  1632.  
  1633. procedure filesect;
  1634. var i,ii,page:integer;
  1635.        c:char;
  1636.        s:screens;
  1637.        b:boolean;
  1638.  
  1639. { TheDraw Pascal Crunched Screen Image }
  1640. const
  1641.   TEMP_SCR_WIDTH=80;
  1642.   TEMP_SCR_DEPTH=23;
  1643.   TEMP_SCR_LENGTH=907;
  1644.   TEMP_SCR : array [1..907] of Char = (
  1645.     #11,#16,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,#18,'▓',
  1646.     #17,#25,'(',#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,#4 ,
  1647.     #15,'F','A','Q',' ','S','e','t','u','p',' ','P','r','o','g','r','a',
  1648.     'm',' ','V','e','r','s','i','o','n',' ','1','.','0','0',#25,#5 ,#11,
  1649.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#15,#17,#26,'(','─',#11,
  1650.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█',
  1651.     '█','█',#17,' ',' ',#16,'█','█','█',#17,#25,#3 ,#16,#26,#16,'█',#17,
  1652.     ' ',#16,'█','█',#17,#25,#2 ,#16,'█','█','█',#17,' ',#11,#16,#26,#19,
  1653.     '▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█','█','█',#17,
  1654.     ' ',' ',#16,'█','█','█',#11,#17,'A','u','t','o','-','V','a','l','i',
  1655.     'd','a','t','e',' ','U','p','l','o','a','d','s',' ',#1 ,#16,'█','█',
  1656.     #17,#25,#2 ,#16,'█','█','█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,
  1657.     '▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█','█','█',#17,' ',' ',#16,'█',
  1658.     '█','█',#11,#17,'P','o','i','n','t',' ','V','a','l','u','e',#25,#10,
  1659.     #1 ,#16,'█','█',#17,#25,#2 ,#16,'█','█','█',#17,' ',#11,#16,#26,#19,
  1660.     '▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',#17,#25,#2 ,
  1661.     #16,'█','█',#17,' ',' ',#11,'U','p','l','o','a','d',' ','f','a','c',
  1662.     't','o','r',#25,#9 ,#1 ,#16,'█',#17,' ',' ',#16,'█','█',#17,#25,#2 ,
  1663.     #11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█',
  1664.     '█',#17,' ',#16,'█',#17,' ',#16,'█','█',#17,' ',' ',#11,'A','u','t',
  1665.     'o','-','C','o','m','m','e','n','t',' ','U','p','l','o','a','d','s',
  1666.     ' ',' ',#1 ,#16,'█','█',#17,' ',' ',#16,'█','█',#17,' ',#16,'█',#17,
  1667.     ' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,
  1668.     #26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'D','S','Z',' ','L','o',
  1669.     'g',' ','F','i','l','e',' ','N','a','m','e',#25,#4 ,#1 ,#16,'█','█',
  1670.     #17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,
  1671.     '▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',#17,' ',#16,'█',#17,' ',#16,
  1672.     '█','█',#17,' ',' ',#11,'S','i','l','e','n','c','e',' ','J','m','o',
  1673.     'd','e','m',#25,#7 ,#1 ,#16,'█','█',#17,' ',' ',#16,'█','█',#17,' ',
  1674.     #16,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,
  1675.     ' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'U','p','l',
  1676.     'o','a','d',' ','T','i','m','e',' ','%',#25,#8 ,#1 ,#16,'█','█',#17,
  1677.     ' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',
  1678.     #3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,
  1679.     #17,'E','n','d',' ','o','f',' ','D','o','w','n','l','o','a','d',' ',
  1680.     'T','e','x','t',' ',' ',#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',
  1681.     #17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,
  1682.     #16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,'P','C','R',' ','R',
  1683.     'a','t','i','o','/','X','f','e','r',#25,#7 ,#1 ,#16,'█','█',#17,' ',
  1684.     ' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,
  1685.     '▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,'█',#11,#17,
  1686.     'U','/','L',' ','D','/','L',' ','R','a','t','i','o','/','X','f','e',
  1687.     'r',#25,#3 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,
  1688.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,
  1689.     '█',#17,' ',#16,'█','█','█',#17,' ',#11,'N','e','x','t',' ','P','a',
  1690.     'g','e',#25,#7 ,#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,
  1691.     ' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,
  1692.     #26,#3 ,'█',#17,' ',#16,'█','█','█',#17,' ',#11,'E','x','i','t',' ',
  1693.     'a','n','d',' ','S','a','v','e',#25,#3 ,#1 ,#16,#26,#6 ,'█',#17,' ',
  1694.     ' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,
  1695.     '▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,'█','█','█',#17,#25,
  1696.     #17,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,
  1697.     #19,'▓',#24,#26,#16,'▓',#3 ,#26,'(','▓',#11,#26,#21,'▓',#24,#26,'O',
  1698.     '▓',#24,#26,'O','▓',#24);
  1699.  
  1700. { TheDraw Pascal Crunched Screen Image }
  1701. const
  1702.   TEMP2_SCR_WIDTH=80;
  1703.   TEMP2_SCR_DEPTH=23;
  1704.   TEMP2_SCR_LENGTH=698;
  1705.   TEMP2_SCR : array [1..698] of Char = (
  1706.     #11,#16,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,#18,'▓',
  1707.     #17,#25,'(',#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,#4 ,
  1708.     #15,'F','A','Q',' ','S','e','t','u','p',' ','P','r','o','g','r','a',
  1709.     'm',' ','V','e','r','s','i','o','n',' ','1','.','0','0',#25,#5 ,#11,
  1710.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#15,#17,#26,'(','─',#11,
  1711.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█',
  1712.     '█','█',#17,' ',' ',#16,'█','█','█',#17,#25,#3 ,#16,#26,#16,'█',#17,
  1713.     ' ',#16,'█','█',#17,#25,#2 ,#16,'█','█','█',#17,' ',#11,#16,#26,#19,
  1714.     '▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,#16,'█','█','█',#17,
  1715.     ' ',' ',#16,'█','█','█',#11,#17,'P','C','R',' ','R','a','t','i','o',
  1716.     '/','G','-','F','i','l','e','s',#25,#4 ,#1 ,#16,'█','█',#17,#25,#2 ,
  1717.     #16,'█','█','█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
  1718.     '▓',#17,' ',' ',#1 ,#16,'█','█','█',#17,' ',' ',#16,'█','█','█',#11,
  1719.     #17,'U','/','L',' ','D','/','L',' ','R','a','t','i','o','/','G','-',
  1720.     'F','i','l','e','s',' ',#1 ,#16,'█','█',#17,#25,#2 ,#16,'█','█','█',
  1721.     #17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,
  1722.     #16,'█','█',#17,#25,#2 ,#16,'█','█',#17,' ',' ',#11,'A','l','l','o',
  1723.     'w',' ','F','i','l','e',' ','P','t','.',' ','L','o','a','n',#25,#3 ,
  1724.     #1 ,#16,'█',#17,' ',' ',#16,'█','█',#17,#25,#2 ,#11,#16,#26,#19,'▓',
  1725.     #24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,'█','█',#17,' ',#16,'█',
  1726.     #17,' ',#16,'█','█',#17,' ',' ',#11,'L','e','v','e','l',' ','t','o',
  1727.     ' ','t','a','k','e',' ','L','o','a','n',#25,#3 ,#1 ,#16,'█','█',#17,
  1728.     ' ',' ',#16,'█','█',#17,' ',#16,'█',#17,' ',#11,#16,#26,#19,'▓',#24,
  1729.     #26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,
  1730.     #3 ,'█',#11,#17,'M','a','x',' ','F','i','l','e',' ','P','t','.',' ',
  1731.     'L','o','a','n',#25,#4 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',
  1732.     #17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,
  1733.     #16,'█','█',#17,' ',#16,'█',#17,' ',#16,'█','█',#17,' ',' ',#11,'L',
  1734.     'e','e','c','h',' ','W','e','e','k',#25,#11,#1 ,#16,'█','█',#17,' ',
  1735.     ' ',#16,'█','█',#17,' ',#16,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,
  1736.     #16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,' ',#16,#26,#3 ,
  1737.     '█',#11,#17,'P','r','e','v','i','o','u','s',' ','P','a','g','e',#25,
  1738.     #8 ,#1 ,#16,'█','█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,
  1739.     #19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#16,#26,#3 ,'█',#17,
  1740.     ' ',#16,'█','█','█',#17,' ',#11,'E','x','i','t',' ','a','n','d',' ',
  1741.     'S','a','v','e',#25,#3 ,#1 ,#16,#26,#6 ,'█',#17,' ',' ',#16,#26,#3 ,
  1742.     '█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',
  1743.     #1 ,#16,#26,#3 ,'█',#17,' ',#16,'█','█','█',#17,#25,#17,#16,#26,#6 ,
  1744.     '█',#17,' ',' ',#16,#26,#3 ,'█',#17,' ',#11,#16,#26,#19,'▓',#24,#26,
  1745.     #16,'▓',#3 ,#26,'(','▓',#11,#26,#21,'▓',#24,#26,'O','▓',#24,#26,'O',
  1746.     '▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',
  1747.     #24);
  1748.  
  1749. procedure writecurrentplace (i:integer);
  1750. begin
  1751. if page=1 then begin
  1752. if i=1 then begin
  1753. gotoxy (28,8); textcolor (15); textbackground (7); write ('» Auto-Validate Uploads  ');
  1754. writestuff (boostr(autovalidate));
  1755. end;
  1756. if i=2 then begin
  1757. gotoxy (28,9); textcolor (15); textbackground (7); write ('» Point Value            ');
  1758. writestuff (strr(pointvalue));
  1759. end;
  1760. if i=3 then begin
  1761. gotoxy (28,10); textcolor (15); textbackground (7); write ('» Upload factor          ');
  1762. writestuff (strr(uploadfactor));
  1763. end;
  1764. if i=4 then begin
  1765. gotoxy (28,11); textcolor (15); textbackground (7); write ('» Auto-Comment Uploads   ');
  1766. writestuff (boostr(zipcomment));
  1767. end;
  1768. if i=5 then begin
  1769. gotoxy (28,12); textcolor (15); textbackground (7); write ('» DSZ Log File Name      ');
  1770. writestuff (dszlogname);
  1771. end;
  1772. if i=6 then begin
  1773. gotoxy (28,13); textcolor (15); textbackground (7); write ('» Silence Jmodem         ');
  1774. writestuff (boostr(jshutup));
  1775. end;
  1776. if i=7 then begin
  1777. gotoxy (28,14); textcolor (15); textbackground (7); write ('» Upload Time %          ');
  1778. writestuff (strr(ultimefactor));
  1779. end;
  1780. if i=8 then begin
  1781. gotoxy (28,15); textcolor (15); textbackground (7); write ('» End of Download Text   ');
  1782. writestuff (asciidownload);
  1783. end;
  1784. if i=9 then begin
  1785. gotoxy (28,16); textcolor (15); textbackground (7); write ('» PCR Ratio/Xfer         ');
  1786. writestuff (strr(xferpcr));
  1787. end;
  1788. if i=10 then begin
  1789. gotoxy (28,17); textcolor (15); textbackground (7); write ('» U/L D/L Ratio/Xfer     ');
  1790. writestuff (strr(udratio));
  1791. end;
  1792. if i=11 then begin
  1793. gotoxy (28,18); textcolor (15); textbackground (7); write ('» Next Page              ');
  1794. writeblank;
  1795. end;
  1796. if i=12 then begin
  1797. gotoxy (28,19); textcolor (15); textbackground (7); write ('» Exit and Save          ');
  1798. writeblank;
  1799. end;
  1800. end else if page=2 then begin
  1801. if i=1 then begin
  1802. gotoxy (28,8); textcolor (15); textbackground (7); write ('» PCR Ratio/G-Files      ');
  1803. writestuff (strr(gfpcr));
  1804. end;
  1805. if i=2 then begin
  1806. gotoxy (28,9); textcolor (15); textbackground (7); write ('» U/L D/L Ratio/G-Files  ');
  1807. writestuff (strr(gfratio));
  1808. end;
  1809. if i=3 then begin
  1810. gotoxy (28,10); textcolor (15); textbackground (7); write ('» Allow File Pt. Loan    ');
  1811. writestuff (boostr(allowloan));
  1812. end;
  1813. if i=4 then begin
  1814. gotoxy (28,11); textcolor (15); textbackground (7); write ('» Level to take Loan     ');
  1815. writestuff (strr(lvltoloan));
  1816. end;
  1817. if i=5 then begin
  1818. gotoxy (28,12); textcolor (15); textbackground (7); write ('» Max File Pt. Loan      ');
  1819. writestuff (strr(maxloan));
  1820. end;
  1821. if i=6 then begin
  1822. gotoxy (28,13); textcolor (15); textbackground (7); write ('» Leech Week             ');
  1823. writestuff (boostr(leechweek));
  1824. end;
  1825. if i=7 then begin
  1826. gotoxy (28,14); textcolor (15); textbackground (7); write ('» Previous Page          ');
  1827. writeblank;
  1828. end;
  1829. if i=8 then begin
  1830. gotoxy (28,15); textcolor (15); textbackground (7); write ('» Exit and Save          ');
  1831. writeblank;
  1832. end;
  1833. end;
  1834. textcolor (15);
  1835. textbackground (0);
  1836. end;
  1837.  
  1838. begin
  1839. readscr (s);
  1840. i:=1;
  1841. page:=1;
  1842. b:=false;
  1843. repeat
  1844. if page=1 then
  1845. UNCRUNCH(TEMP_SCR,ScreenAddr[(1*2)+(1*160)-162],TEMP_SCR_LENGTH)
  1846. else if page=2 then
  1847. UNCRUNCH(TEMP2_SCR,ScreenAddr[(1*2)+(1*160)-162],TEMP2_SCR_LENGTH);
  1848. writecurrentplace (i);
  1849. c:=upcase(readkey);
  1850. case c of
  1851. #72:begin
  1852. if page=1 then begin
  1853. if i=1 then i:=13;
  1854. end else if page=2 then begin if i=1 then i:=9; end;
  1855. i:=i-1;
  1856. end;
  1857. #80:begin
  1858. if page=1 then begin
  1859. if i=12 then i:=0;
  1860. end else if page=2 then begin if i=8 then i:=0; end;
  1861. i:=i+1;
  1862. end;
  1863. #13:begin
  1864. if page=1 then begin
  1865. case i of
  1866. 1:autovalidate:=inputbooinfo ('Auto-Validate Uploads','Auto-Validate Uploads by Point Value',
  1867. autovalidate,1);
  1868. 2:pointvalue:=inputintinfo ('Point Value','When a file is validated every xxx k gets 1 point',
  1869. strr(pointvalue),5,0,32767);
  1870. 3:uploadfactor:=inputintinfo
  1871. ('Upload factor','When you rate a file, the uploader will get (this number * rating)',strr(uploadfactor),
  1872. 5,1,32767);
  1873. 4:zipcomment:=inputbooinfo ('Auto-Comment Uploads','Comment all .ZIP uploads',zipcomment,1);
  1874. 5:dszlogname:=inputinfo ('DSZ Log File Name','Log file to use for DSZ',dszlogname,64);
  1875. 6:jshutup:=inputbooinfo ('Silence Jmodem','Shut Jmodem sound up',jshutup,1);
  1876. 7:ultimefactor:=inputintinfo ('Upload Time %','When a user uploads, they get this % of the u/l time',
  1877. strr(ultimefactor),4,1,1000);
  1878. 8:asciidownload:=inputinfo ('End of Download Text','Text sent at the end of an ASCII or G-File d/l',
  1879. asciidownload,64);
  1880. 9:xferpcr:=inputintinfo ('PCR Ratio/Xfer','Posts-per-call required to use the xfer section',
  1881. strr(xferpcr),3,1,200);
  1882. 10:udratio:=inputintinfo
  1883. ('U/L D/L Ratio/Xfer','The users # of u/ls divided by d/ls has to be greater than this',
  1884. strr(udratio),3,1,100);
  1885. 11:begin page:=page+1; i:=1; end;
  1886. 12:begin writeconfig; b:=true; end;
  1887. end;
  1888. end else if page=2 then begin
  1889. case i of
  1890. 1:gfpcr:=inputintinfo ('PCR Ratio/G-Files','Posts-per-call required to use the g-files section',
  1891. strr(gfpcr),3,1,200);
  1892. 2:gfratio:=inputintinfo
  1893. ('U/L D/L Ratio/G-Files','Upload/Download ratio for the G-Files section',strr(gfratio),3,1,100);
  1894. 3:allowloan:=inputbooinfo ('Allow File Pt. Loan','If yes, you can loan points to users',allowloan,1);
  1895. 4:lvltoloan:=inputintinfo ('Level to take Loan','If user has this level then he/she can get a pt. loan',
  1896. strr(lvltoloan),5,1,32767);
  1897. 5:maxloan:=inputintinfo ('Max File Pt. Loan','Maximum # of pts. to loan',strr(maxloan),5,1,32767);
  1898. 6:leechweek:=inputbooinfo ('Leech Week','If yes, all files will be free',leechweek,1);
  1899. 7:begin page:=page-1; i:=1; end;
  1900. 8:begin writeconfig; b:=true; end;
  1901. end;
  1902. end;
  1903. end;
  1904. end
  1905. until (c=#27) or (b=true);
  1906. writescr (s);
  1907. end;
  1908.  
  1909. procedure strings;
  1910. var i,ii:integer;
  1911.     page:integer;
  1912.        c:char;
  1913.        s:screens;
  1914.        b:boolean;
  1915.  
  1916. { TheDraw Pascal Crunched Screen Image }
  1917. const
  1918.   TEMP_SCR_WIDTH=80;
  1919.   TEMP_SCR_DEPTH=23;
  1920.   TEMP_SCR_LENGTH=763;
  1921.   TEMP_SCR : array [1..763] of Char = (
  1922.     #11,#16,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,#18,'▓',
  1923.     #17,#25,'(',#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,#4 ,
  1924.     #15,'F','A','Q',' ','S','e','t','u','p',' ','P','r','o','g','r','a',
  1925.     'm',' ','V','e','r','s','i','o','n',' ','1','.','0','0',#25,#5 ,#11,
  1926.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#15,#17,#26,'(','─',#11,
  1927.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,'█','█',
  1928.     '█',' ',' ',#26,#23,'█',' ','█','█',#25,#2 ,'█','█','█',' ',#11,#16,
  1929.     #26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,'█','█',#25,#2 ,
  1930.     '█','█',' ',' ',#11,'N','e','w',' ','U','s','e','r',' ','N','o','t',
  1931.     'e',#25,#9 ,#1 ,'█',' ',' ','█','█',#25,#2 ,#11,#16,#26,#19,'▓',#24,
  1932.     #26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,'█','█',#25,#2 ,'█','█',' ',' ',
  1933.     #11,'A','v','a','i','l','a','b','l','e',' ','S','t','r','i','n','g',
  1934.     #25,#6 ,#1 ,'█',' ',' ','█','█',#25,#2 ,#11,#16,#26,#19,'▓',#24,#26,
  1935.     #16,'▓',#3 ,'▓','▓',#17,' ',#1 ,'█','█',' ','█',' ','█','█',' ','█',
  1936.     #11,'N','o','t',' ','A','v','a','i','l','a','b','l','e',' ','S','t',
  1937.     'r','i','n','g',#25,#2 ,#1 ,'█',' ',' ','█','█',' ','█',' ',#11,#16,
  1938.     #26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',
  1939.     #26,#3 ,'█',#11,'C','h','a','t',' ','E','n','t','e','r',' ','P','h',
  1940.     'r','a','s','e',#1 ,#26,#6 ,'█',' ',' ',#26,#3 ,'█',' ',#11,#16,#26,
  1941.     #19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,
  1942.     #3 ,'█',#11,'C','h','a','t',' ','E','x','i','t',' ','P','h','r','a',
  1943.     's','e',' ',#1 ,#26,#6 ,'█',' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,
  1944.     '▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,
  1945.     '█',#11,'I','n','p','u','t',' ','T','i','m','e',' ','O','u','t',#25,
  1946.     #2 ,#1 ,#26,#6 ,'█',' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,
  1947.     #26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,
  1948.     'H','i','d','d','e','n','-','I','n','p','u','t',' ','C','h','a','r',
  1949.     #25,#3 ,#1 ,'█','█','█',' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',
  1950.     #24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',
  1951.     #11,'U','s','e',' ','L','o','g','o','n',' ','C','l','i','c','h','e',
  1952.     ' ',#1 ,#26,#6 ,'█',' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,
  1953.     #26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,
  1954.     '"','C','l','i','c','h','e','"',#25,#8 ,#1 ,#26,#6 ,'█',' ',' ',#26,
  1955.     #3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',
  1956.     #1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,'A','n','o','n','y','m','o','u',
  1957.     's',' ','S','t','r','i','n','g',' ',' ',#1 ,#26,#5 ,'█',' ',' ',#26,
  1958.     #3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',
  1959.     #1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,'N','e','x','t',' ','P','a','g',
  1960.     'e',#25,#8 ,#1 ,#26,#5 ,'█',' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,
  1961.     '▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,'█','█','█',' ',' ',
  1962.     '█','█','█',#11,'E','x','i','t',' ','a','n','d',' ','S','a','v','e',
  1963.     #25,#3 ,#1 ,#26,#6 ,'█',#25,#2 ,'█','█','█',' ',#11,#16,#26,#19,'▓',
  1964.     #24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#27,'█',
  1965.     ' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,#26,
  1966.     '(','▓',#11,#26,#21,'▓',#24,#26,'O','▓',#24,#26,'O','▓',#24);
  1967.  
  1968. { TheDraw Pascal Crunched Screen Image }
  1969. const
  1970.   TEMP2_SCR_WIDTH=80;
  1971.   TEMP2_SCR_DEPTH=23;
  1972.   TEMP2_SCR_LENGTH=835;
  1973.   TEMP2_SCR : array [1..835] of Char = (
  1974.     #11,#16,#26,'O','▓',#24,#26,'O','▓',#24,#26,'O','▓',#24,#26,#18,'▓',
  1975.     #17,#25,'(',#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,#25,#4 ,
  1976.     #15,'F','A','Q',' ','S','e','t','u','p',' ','P','r','o','g','r','a',
  1977.     'm',' ','V','e','r','s','i','o','n',' ','1','.','0','0',#25,#5 ,#11,
  1978.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#15,#17,#26,'(','─',#11,
  1979.     #16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',' ',#1 ,'█','█',
  1980.     '█',' ',' ',#26,#23,'█',' ','█','█',#25,#2 ,'█','█','█',' ',#11,#16,
  1981.     #26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,'█','█',#25,#2 ,
  1982.     '█','█',' ',' ',#11,'G','a','t','e','w','a','y',' ','T','y','p','e',
  1983.     #25,#10,#1 ,'█',' ',' ','█','█',#25,#2 ,#11,#16,#26,#19,'▓',#24,#26,
  1984.     #16,'▓',#3 ,'▓','▓',#17,' ',#1 ,'█','█',#25,#2 ,'█','█',' ',' ',#11,
  1985.     'G','a','t','e','w','a','y',' ','P','r','o','m','p','t',#25,#8 ,#1 ,
  1986.     '█',' ',' ','█','█',#25,#2 ,#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,
  1987.     '▓','▓',#17,' ',#1 ,'█','█',#25,#2 ,'█','█',' ',' ',#11,'G','a','t',
  1988.     'e','w','a','y',' ','S','y','s','t','e','m',' ','1',' ','C','o','m',
  1989.     'm','.',' ',#1 ,'█',' ',' ','█','█',#25,#2 ,#11,#16,#26,#19,'▓',#24,
  1990.     #26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,'█','█',#25,#2 ,'█','█',' ',' ',
  1991.     #11,'G','a','t','e','w','a','y',' ','S','y','s','t','e','m',' ','2',
  1992.     ' ','C','o','m','m','.',' ',#1 ,'█',' ',' ','█','█',#25,#2 ,#11,#16,
  1993.     #26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,'█','█',#25,#2 ,
  1994.     '█','█',' ',' ',#11,'G','a','t','e','w','a','y',' ','S','y','s','t',
  1995.     'e','m',' ','3',' ','C','o','m','m','.',' ',#1 ,'█',' ',' ','█','█',
  1996.     #25,#2 ,#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',#1 ,
  1997.     #26,#3 ,'█',' ',#26,#3 ,'█',#11,'G','a','t','e','w','a','y',' ','N',
  1998.     'e','w',' ','U','s','e','r',' ','C','o','m','m','.',#1 ,'█','█',' ',
  1999.     ' ',#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',
  2000.     #17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,'G','a','t','e','w','a',
  2001.     'y',' ','V','e','r','i','f','y',' ','C','o','m','m','.',#1 ,#26,#3 ,
  2002.     '█',' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,
  2003.     '▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,'G','a','t','e',
  2004.     'w','a','y',' ','F','e','e','d','b','a','c','k',' ','C','o','m','m',
  2005.     '.',#1 ,'█','█',' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,
  2006.     #16,'▓',#3 ,'▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,'G',
  2007.     'a','t','e','w','a','y',' ','P','a','g','e',' ','C','o','m','m','.',
  2008.     #25,#7 ,#1 ,#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,
  2009.     '▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,'G','a','t','e',
  2010.     'w','a','y',' ','L','o','g','o','f','f',' ','C','o','m','m','.',#25,
  2011.     #5 ,#1 ,#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓',
  2012.     '▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,'G','a','t','e','w',
  2013.     'a','y',' ','A','N','S','I',' ','C','o','m','m','.',#25,#3 ,#1 ,'█',
  2014.     '█',' ',' ',#26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,
  2015.     '▓','▓',#17,' ',#1 ,#26,#3 ,'█',' ',#26,#3 ,'█',#11,'P','r','e','v',
  2016.     'i','o','u','s',' ','P','a','g','e',#25,#4 ,#1 ,#26,#5 ,'█',' ',' ',
  2017.     #26,#3 ,'█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,
  2018.     ' ',' ',#1 ,'█','█','█',' ',' ','█','█','█',#11,'E','x','i','t',' ',
  2019.     'a','n','d',' ','S','a','v','e',#25,#3 ,#1 ,#26,#6 ,'█',#25,#2 ,'█',
  2020.     '█','█',' ',#11,#16,#26,#19,'▓',#24,#26,#16,'▓',#3 ,'▓','▓',#17,' ',
  2021.     #1 ,#26,#3 ,'█',' ',#26,#27,'█',' ',' ',#26,#3 ,'█',' ',#11,#16,#26,
  2022.     #19,'▓',#24,#26,#16,'▓',#3 ,#26,'(','▓',#11,#26,#21,'▓',#24,#26,'O',
  2023.     '▓',#24);
  2024.  
  2025. procedure writecurrentplace (i:integer);
  2026. begin
  2027. if page=1 then begin
  2028. if i=1 then begin
  2029. gotoxy (28,8); textcolor (15); textbackground (7); write ('» New User Note          ');
  2030. writestuff (newusernote);
  2031. end;
  2032. if i=2 then begin
  2033. gotoxy (28,9); textcolor (15); textbackground (7); write ('» Available String       ');
  2034. writestuff (availstr);
  2035. end;
  2036. if i=3 then begin
  2037. gotoxy (28,10); textcolor (15); textbackground (7); write ('» Not Available String   ');
  2038. writestuff (notavailstr);
  2039. end;
  2040. if i=4 then begin
  2041. gotoxy (28,11); textcolor (15); textbackground (7); write ('» Chat Enter Phrase      ');
  2042. writestuff (appear);
  2043. end;
  2044. if i=5 then begin
  2045. gotoxy (28,12); textcolor (15); textbackground (7); write ('» Chat Exit Phrase       ');
  2046. writestuff (disappear);
  2047. end;
  2048. if i=6 then begin
  2049. gotoxy (28,13); textcolor (15); textbackground (7); write ('» Input Time Out         ');
  2050. writestuff (strr(mintimeout));
  2051. end;
  2052. if i=7 then begin
  2053. gotoxy (28,14); textcolor (15); textbackground (7); write ('» Hidden-Input Char      ');
  2054. writestuff (dotchar);
  2055. end;
  2056. if i=8 then begin
  2057. gotoxy (28,15); textcolor (15); textbackground (7); write ('» Use Logon Cliche       ');
  2058. writestuff (boostr(usecliche));
  2059. end;
  2060. if i=9 then begin
  2061. gotoxy (28,16); textcolor (15); textbackground (7); write ('» "Cliche                ');
  2062. writestuff (cliche);
  2063. end;
  2064. if i=10 then begin
  2065. gotoxy (28,17); textcolor (15); textbackground (7); write ('» Anonymous String       ');
  2066. writestuff (anonymousstr);
  2067. end;
  2068. if i=11 then begin
  2069. gotoxy (28,18); textcolor (15); textbackground (7); write ('» Next Page              ');
  2070. writeblank;
  2071. end;
  2072. if i=12 then begin
  2073. gotoxy (28,19); textcolor (15); textbackground (7); write ('» Exit and Save          ');
  2074. writeblank;
  2075. end;
  2076. end else if page=2 then begin
  2077. if i=1 then begin
  2078. gotoxy (28,8); textcolor (15); textbackground (7); write ('» Gateway Type           ');
  2079. writestuff (strr(matrixtype));
  2080. end;
  2081. if i=2 then begin
  2082. gotoxy (28,9); textcolor (15); textbackground (7); write ('» Gateway Prompt         ');
  2083. writestuff (mprompt);
  2084. end;
  2085. if i=3 then begin
  2086. gotoxy (28,10); textcolor (15); textbackground (7); write ('» Gateway System 1 Comm. ');
  2087. writestuff (syst1);
  2088. end;
  2089. if i=4 then begin
  2090. gotoxy (28,11); textcolor (15); textbackground (7); write ('» Gateway System 2 Comm. ');
  2091. writestuff (syst2);
  2092. end;
  2093. if i=5 then begin
  2094. gotoxy (28,12); textcolor (15); textbackground (7); write ('» Gateway System 3 Comm. ');
  2095. writestuff (syst3);
  2096. end;
  2097. if i=6 then begin
  2098. gotoxy (28,13); textcolor (15); textbackground (7); write ('» Gateway New User Comm. ');
  2099. writestuff (mnew);
  2100. end;
  2101. if i=7 then begin
  2102. gotoxy (28,14); textcolor (15); textbackground (7); write ('» Gateway Verify Comm.   ');
  2103. writestuff (mcheck);
  2104. end;
  2105. if i=8 then begin
  2106. gotoxy (28,15); textcolor (15); textbackground (7); write ('» Gateway Feedback Comm. ');
  2107. writestuff (mfback);
  2108. end;
  2109. if i=9 then begin
  2110. gotoxy (28,16); textcolor (15); textbackground (7); write ('» Gateway Page Comm.     ');
  2111. writestuff (mchat);
  2112. end;
  2113. if i=11 then begin
  2114. gotoxy (28,17); textcolor (15); textbackground (7); write ('» Gateway Logoff Comm.   ');
  2115. writestuff (mlogoff);
  2116. end;
  2117. if i=11 then begin
  2118. gotoxy (28,18); textcolor (15); textbackground (7); write ('» Gateway ANSI Comm.     ');
  2119. writestuff (mansi);
  2120. end;
  2121. if i=12 then begin
  2122. gotoxy (28,19); textcolor (15); textbackground (7); write ('» Previous Page          ');
  2123. writeblank;
  2124. end;
  2125. if i=13 then begin
  2126. gotoxy (28,20); textcolor (15); textbackground (7); write ('» Exit and Save          ');
  2127. writeblank;
  2128. end;
  2129. end;
  2130. textcolor (15);
  2131. textbackground (0);
  2132. end;
  2133.  
  2134. begin
  2135. readscr (s);
  2136. i:=1;
  2137. b:=false;
  2138. page:=1;
  2139. repeat
  2140. if page=1 then
  2141. UNCRUNCH(TEMP_SCR,ScreenAddr[(1*2)+(1*160)-162],TEMP_SCR_LENGTH)
  2142. else if page=2 then
  2143. UNCRUNCH(TEMP2_SCR,ScreenAddr[(1*2)+(1*160)-162],TEMP2_SCR_LENGTH);
  2144. writecurrentplace (i);
  2145. c:=upcase(readkey);
  2146. case c of
  2147. #72:begin
  2148. if page=1 then begin
  2149. if i=1 then i:=13;
  2150. end else if page=2 then begin if i=1 then i:=14; end;
  2151. i:=i-1;
  2152. end;
  2153. #80:begin
  2154. if page=1 then begin
  2155. if i=12 then i:=0;
  2156. end else if page=2 then begin if i=13 then i:=0; end;
  2157. i:=i+1;
  2158. end;
  2159. #13:begin
  2160. if page=1 then begin
  2161. case i of
  2162. 1:newusernote:=inputinfo ('New User Note','Note to give to New Users',newusernote,30);
  2163. 2:availstr:=inputinfo ('Available String','String to show when you are available to chat',availstr,64);
  2164. 3:notavailstr:=inputinfo ('Not Available String','String to show when you are not available to chat',notavailstr,64);
  2165. 4:appear:=inputinfo ('Chat Enter Phrase','The phrase to show when you enter the chat',appear,64);
  2166. 5:disappear:=inputinfo ('Chat Exit Phrase','The phrase to show when you exit the chat',disappear,64);
  2167. 6:mintimeout:=inputintinfo ('Input Time Out','# of minutes of silence from remote user until the system hangs up',
  2168. strr(mintimeout),2,2,60);
  2169. 7:dotchar:=inputcharinfo ('Hidden-Input Character','Character to echo when user is entering a password',dotchar,1);
  2170. 8:usecliche:=inputbooinfo ('Use Logon Cliche','Show a "cliche" at the logon',usecliche,1);
  2171. 9:cliche:=inputinfo ('"Cliche"','This "cliche" will be printed out at the logon',cliche,64);
  2172. 10:anonymousstr:=inputinfo ('Anonymous String','The string for an anonymous post',anonymousstr,30);
  2173. 11:begin page:=page+1; i:=1; end;
  2174. 12:begin writeconfig; b:=true; end;
  2175. end;
  2176. end else begin
  2177. case i of
  2178. 1:matrixtype:=inputintinfo ('Gateway Type','0:None  1:Normal Gateway  2:DOS Gateway  '+
  2179. +'3:Pull-Down Gateway',strr(matrixtype),1,0,3);
  2180. 2:mprompt:=inputinfo ('Gateway Prompt','Prompt to show at Gateway #1',mprompt,64);
  2181. 3:syst1:=inputinfo ('Gateway System 1 Comm.','Command to access System 1 at Gateway #1',syst1,15);
  2182. 4:syst2:=inputinfo ('Gateway System 2 Comm.','Command to access System 2 at Gateway #1',syst2,15);
  2183. 5:syst3:=inputinfo ('Gateway System 3 Comm.','Command to access System 3 at Gateway #1',syst3,15);
  2184. 6:mnew:=inputinfo ('Gateway New User Comm.','Command to apply at Gateway #1',mnew,15);
  2185. 7:mcheck:=inputinfo ('Gateway Verify Comm.','Command to verify access at Gateway #1',mcheck,15);
  2186. 8:mfback:=inputinfo ('Gateway Feedback Comm.','Command to send feedback to the sysop at Gateway #1',mfback,15);
  2187. 9:mchat:=inputinfo ('Gateway Page Comm.','Command to page the sysop at Gateway #1',mchat,15);
  2188. 10:mlogoff:=inputinfo ('Gateway Logoff Comm.','Command to logoff the BBS at Gateway #1',mlogoff,15);
  2189. 11:mansi:=inputinfo ('Gateway ANSI Comm.','Command to toggle ANSI at Gateway #1',mansi,15);
  2190. 12:begin page:=page-1; i:=1; end;
  2191. 13:begin writeconfig; b:=true; end;
  2192. end;
  2193. end;
  2194. end;
  2195. end
  2196. until (c=#27) or (b=true);
  2197. writescr (s);
  2198. end;
  2199.