home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 423.lha / Prism_v1.10 / Prism.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-09-01  |  56.0 KB  |  2,149 lines
  1. /************************************************************************
  2. *                       Prism - THE Amiga ANSI Animator            *
  3. *                              By: Colin Vernon                         *
  4. *             Prism 1.00 - October 15, 1989            *
  5. *  lc -ma -cu Prism.c                            *
  6. *  blink lib:cback.o Prism.o LIB lib:lcm.lib lib:lc.lib lib:amiga.lib   *
  7. ************************************************************************/
  8. #include "stdio.h"
  9. #include "stdlib.h"
  10. #include "exec/types.h"
  11. #include "exec/memory.h"
  12. #include "intuition/intuition.h"
  13. #include "graphics/sprite.h"
  14. #include "proto/dos.h"
  15. #include "dos.h"
  16. #include "libraries/diskfont.h"
  17.  
  18. #define MAXHEIGHT 24
  19. #define MAXWIDTH 80
  20. #define MINHEIGHT 1
  21. #define MINWIDTH 1
  22. #define MAXCHARSETS 12
  23. #define SPACE 0x20
  24. #define BACKSPACE 0x08
  25. #define LINEFEED 0x0a
  26. #define FORMFEED 0x0c
  27. #define RETURN 0x0d
  28. #define TAB 0x09
  29. #define CURSOR_UP 'A'
  30. #define CURSOR_DOWN 'B'
  31. #define CURSOR_RIGHT 'C'
  32. #define CURSOR_LEFT 'D'
  33. #define ESC 0x1b
  34. #define MAXINPUTLEN 80
  35.  
  36. struct ANSI 
  37. { 
  38.      struct ANSI *next;
  39.      struct ANSI *previous;
  40.      short x;
  41.      short y;
  42.      short fcolour;
  43.      short bcolour;
  44.      UBYTE letter;
  45.      UBYTE attr;
  46. };
  47. /***** End Of Header *****/
  48. static unsigned char Titlebar[] = "Prism 1.10 By Colin Vernon";
  49. struct IntuitionBase *IntuitionBase;
  50. struct GfxBase *GfxBase;
  51. ULONG *DiskfontBase;
  52. struct Screen *WorkScreen;
  53. struct Window *WorkWindow;
  54. struct Window *Gads;
  55. struct Window *ReqWindow;
  56. struct IntuiMessage *message;
  57. struct IOStdReq ioStdReq;
  58. struct Device *ConsoleDevice = NULL;
  59. struct SimpleSprite Cursor;
  60.  
  61. void OpenLibs(), CloseLibs();
  62. ULONG OpenDevice();
  63. SHORT RawKeyConvert();
  64. /************************** Sprite Defs *********************************/
  65. UWORD Cursor_Data[] = 
  66. {
  67.     0,0,
  68.     0xf000, 0xf000,
  69.     0x0000, 0x0000,
  70.     0x0000, 0x0000,
  71.     0x0000, 0x0000,
  72.     0x0000, 0x0000,
  73.     0x0000, 0x0000,
  74.     0x0000, 0x0000,
  75.     0xf000, 0xf000,
  76.     0,0
  77. };
  78. UWORD Blank_Data[] =
  79. {
  80.     0,0,
  81.     0x0000, 0x0000,    0x0000, 0x0000,    0x0000, 0x0000,    0x0000, 0x0000,
  82.     0x0000, 0x0000,    0x0000, 0x0000,    0x0000, 0x0000,    0x0000, 0x0000,
  83.     0,0
  84. };
  85. WORD Spr1;
  86. UWORD *ChipCursor, *ChipBlank, *Helping;
  87. /*************************** Gadget Definitions **************************/
  88. struct IntuiText Colour15 ={0,15,JAM2,0,0,NULL," 15 ",NULL,};
  89. struct IntuiText Colour14 ={0,14,JAM2,0,0,NULL," 14 ",NULL,};
  90. struct IntuiText Colour13 ={0,13,JAM2,0,0,NULL," 13 ",NULL,};
  91. struct IntuiText Colour12 ={0,12,JAM2,0,0,NULL," 12 ",NULL,};
  92. struct IntuiText Colour11 ={0,11,JAM2,0,0,NULL," 11 ",NULL,};
  93. struct IntuiText Colour10 ={0,10,JAM2,0,0,NULL," 10 ",NULL,};
  94. struct IntuiText Colour9 ={0,9,JAM2,0,0,NULL,"  9 ",NULL,};
  95. struct IntuiText Colour8 ={0,8,JAM2,0,0,NULL,"  8 ",NULL,};
  96. struct IntuiText Colour7 ={0,7,JAM2,0,0,NULL,"  7 ",NULL,};
  97. struct IntuiText Colour6 ={0,6,JAM2,0,0,NULL,"  6 ",NULL,};
  98. struct IntuiText Colour5 ={0,5,JAM2,0,0,NULL,"  5 ",NULL,};
  99. struct IntuiText Colour4 ={0,4,JAM2,0,0,NULL,"  4 ",NULL,};
  100. struct IntuiText Colour3 ={0,3,JAM2,0,0,NULL,"  3 ",NULL,};
  101. struct IntuiText Colour2 ={0,2,JAM2,0,0,NULL,"  2 ",NULL,};
  102. struct IntuiText Colour1 ={0,1,JAM2,0,0,NULL,"  1 ",NULL,};
  103. struct IntuiText Colour0 ={1,0,JAM2,0,0,NULL,"  0 ",NULL,};
  104.  
  105. struct IntuiText ForeBackText =
  106. {
  107.     15,0,JAM2,2,6,NULL,(UBYTE *)"Fore/Back",NULL
  108. };
  109. struct Gadget ForeBackGadget =
  110. {
  111.     NULL,560,10,76,19,
  112.     GADGHCOMP | SELECTED,RELVERIFY,BOOLGADGET,
  113.     NULL,NULL,&ForeBackText,0,NULL,17,NULL
  114. };
  115. struct Gadget SelColour15 =
  116. {
  117.     &ForeBackGadget,512,11,32,8,
  118.     GADGHCOMP,RELVERIFY | GADGIMMEDIATE,BOOLGADGET,
  119.     NULL,NULL,&Colour15,0,NULL,16,NULL
  120. };
  121.  
  122. struct Gadget SelColour14 =
  123. {
  124.     &SelColour15,478,11,32,8,
  125.     GADGHCOMP,RELVERIFY | GADGIMMEDIATE,BOOLGADGET,
  126.     NULL,NULL,&Colour14,0,NULL,15,NULL
  127. };
  128.  
  129. struct Gadget SelColour13 =
  130. {
  131.     &SelColour14,444,11,32,8,
  132.     GADGHCOMP,RELVERIFY | GADGIMMEDIATE,BOOLGADGET,
  133.     NULL,NULL,&Colour13,0,NULL,14,NULL
  134. };
  135.  
  136. struct Gadget SelColour12 =
  137. {
  138.     &SelColour13,410,11,32,8,
  139.     GADGHCOMP,RELVERIFY | GADGIMMEDIATE,BOOLGADGET,
  140.     NULL,NULL,&Colour12,0,NULL,13,NULL
  141. };
  142.  
  143. struct Gadget SelColour11 =
  144. {
  145.     &SelColour12,376,11,32,8,
  146.     GADGHCOMP,RELVERIFY | GADGIMMEDIATE,BOOLGADGET,
  147.     NULL,NULL,&Colour11,0,NULL,12,NULL
  148. };
  149.  
  150. struct Gadget SelColour10 =
  151. {
  152.     &SelColour11,342,11,32,8,
  153.     GADGHCOMP,RELVERIFY | GADGIMMEDIATE,BOOLGADGET,
  154.     NULL,NULL,&Colour10,0,NULL,11,NULL
  155. };
  156.  
  157. struct Gadget SelColour9 =
  158. {
  159.     &SelColour10,308,11,32,8,
  160.     GADGHCOMP,RELVERIFY | GADGIMMEDIATE,BOOLGADGET,
  161.     NULL,NULL,&Colour9,0,NULL,10,NULL
  162. };
  163.  
  164. struct Gadget SelColour8 =
  165. {
  166.     &SelColour9,274,11,32,8,
  167.     GADGHCOMP,RELVERIFY | GADGIMMEDIATE,BOOLGADGET,
  168.     NULL,NULL,&Colour8,0,NULL,9,NULL
  169. };
  170.  
  171. struct Gadget SelColour7 =
  172. {
  173.     &SelColour8,240,11,32,8,
  174.     GADGHCOMP,RELVERIFY | GADGIMMEDIATE,BOOLGADGET,
  175.     NULL,NULL,&Colour7,0,NULL,8,NULL
  176. };
  177.  
  178. struct Gadget SelColour6 =
  179. {
  180.     &SelColour7,206,11,32,8,
  181.     GADGHCOMP,RELVERIFY | GADGIMMEDIATE,BOOLGADGET,
  182.     NULL,NULL,&Colour6,0,NULL,7,NULL
  183. };
  184.  
  185. struct Gadget SelColour5 =
  186. {
  187.     &SelColour6,172,11,32,8,
  188.     GADGHCOMP,RELVERIFY | GADGIMMEDIATE,BOOLGADGET,
  189.     NULL,NULL,&Colour5,0,NULL,6,NULL
  190. };
  191.  
  192. struct Gadget SelColour4 =
  193. {
  194.     &SelColour5,138,11,32,8,
  195.     GADGHCOMP,RELVERIFY | GADGIMMEDIATE,BOOLGADGET,
  196.     NULL,NULL,&Colour4,0,NULL,5,NULL
  197. };
  198.  
  199. struct Gadget SelColour3 =
  200. {
  201.     &SelColour4,104,11,32,8,
  202.     GADGHCOMP,RELVERIFY | GADGIMMEDIATE,BOOLGADGET,
  203.     NULL,NULL,&Colour3,0,NULL,4,NULL
  204. };
  205.  
  206. struct Gadget SelColour2 =
  207. {
  208.     &SelColour3,70,11,32,8,
  209.     GADGHCOMP,RELVERIFY | GADGIMMEDIATE,BOOLGADGET,
  210.     NULL,NULL,&Colour2,0,NULL,3,NULL
  211. };
  212.  
  213. struct Gadget SelColour1 =
  214. {
  215.     &SelColour2,36,11,32,8, 
  216.     GADGHCOMP,RELVERIFY | GADGIMMEDIATE,BOOLGADGET,
  217.     NULL,NULL,&Colour1,0,NULL,2,NULL
  218. };
  219.  
  220. struct Gadget SelColour0 =
  221. {
  222.     &SelColour1,    /* NextGadget */
  223.     2,11,32,8,  /* LeftEdge, TopEdge, Width, Height*/
  224.     GADGHCOMP,  /* Flags */
  225.     RELVERIFY | GADGIMMEDIATE,   /* Activation */
  226.     BOOLGADGET,     /* Gadget Type */
  227.     NULL, /* Gadget Render */
  228.     NULL,       /* Select Render */
  229.     &Colour0,       /* GadgetText */
  230.     0,          /* MutualExclude */
  231.     NULL,       /* SpecialInfo */
  232.     1,          /* GadgetID */
  233.     NULL        /* UserData */
  234. };
  235. /************************** Requester Definitions ************************/
  236. /***** The About Requester *****/
  237. struct IntuiText AboutProg7Text =
  238. {
  239.     4,7,JAM2,30,59,NULL,"version.",NULL
  240. };
  241. struct IntuiText AboutProg6Text =
  242. {
  243.     4,7,JAM2,30,50,NULL,
  244.     "so no registration fee is required for a fully working",
  245.     &AboutProg7Text
  246. };
  247. struct IntuiText AboutProg5Text =
  248. {
  249.     4,7,JAM2,30,41,NULL,
  250.     "are not modified.  This version of Prism is public domain",
  251.     &AboutProg6Text
  252. };
  253. struct IntuiText AboutProg4Text =
  254. {
  255.     4,7,JAM2,30,32,NULL,
  256.     "distributed as long as the original files in the archive",
  257.     &AboutProg5Text
  258. };
  259. struct IntuiText AboutProg3Text =
  260. {
  261.     4,7,JAM2,30,23,NULL,
  262.     "Prism is an ANSI animator for the Amiga.  It can be",
  263.     &AboutProg4Text
  264. };
  265. struct IntuiText AboutProgText =
  266. {
  267.     1,7,JAM1,205,9,NULL,"Prism by Colin Vernon",&AboutProg3Text
  268. };
  269. /***** The File Requester *****/
  270. unsigned char PathBuffer[512] = "";
  271. unsigned char FileBuffer[33] = "Unnamed.ans";
  272. unsigned char UndoBuffer[512];
  273. UBYTE FileStr[8][33];
  274. WORD RenderB[4];
  275. struct Gadget ReqFiles[8];
  276. struct IntuiText FileStInfo[8];
  277. struct StringInfo PathInfo =
  278. {
  279.     &PathBuffer[0],&UndoBuffer[0],
  280.     0,511,0,0,0,0,0,0,NULL,0,NULL
  281. };
  282. struct StringInfo FileInfo =
  283. {
  284.     &FileBuffer[0], &UndoBuffer[0],
  285.     0,31,0,0,0,0,0,0,NULL,0,NULL
  286. };
  287. struct IntuiText GenStrInfo =
  288. {
  289.     7,0,JAM2,0,0,NULL,NULL,NULL
  290. };
  291. struct PropInfo SlideInfo =
  292. {
  293.     AUTOKNOB | FREEVERT, 0x0000, 0x0000, 0x0800, 0x0800, 0,0,0,0,0,0
  294. };
  295. SHORT StringPairs[] =
  296. {
  297.     0,0,241,0,241,9,0,9,0,0
  298. };
  299. SHORT SelectPairs[] =
  300. {
  301.     0,0,61,0,61,11,0,11,0,0,
  302. };
  303.  
  304. struct Border StringBorder =
  305. {
  306.     -1,-1,3,0,JAM1,5,StringPairs,NULL,
  307. };
  308. struct Border SelectBorder =
  309. {
  310.     0,0,3,0,JAM1,5,SelectPairs,NULL,
  311. };
  312. struct IntuiText ParentText =
  313. {
  314.     7,0,JAM2,6,2,NULL,"Parent",NULL,
  315. };
  316. struct IntuiText PathText =
  317. {
  318.     7,0,JAM2,-58,0,NULL,"Drawer",NULL,
  319. };
  320. struct IntuiText FileText =
  321. {
  322.     7,0,JAM2,-42,0,NULL,"File",NULL,
  323. };
  324. struct IntuiText CancelText =
  325. {
  326.     7,0,JAM2,6,2,NULL,"Cancel",NULL,
  327. };
  328. struct IntuiText OKText =
  329. {
  330.     7,0,JAM2,22,2,NULL,"OK",NULL,
  331. };
  332. struct Gadget FileNameGadget =
  333. {
  334.     NULL,20,120,240,8,
  335.     GADGHCOMP, RELVERIFY, BOOLGADGET,
  336.     NULL, NULL, NULL,
  337.     NULL, NULL, 0, NULL
  338. };
  339. struct Gadget Parent =
  340. {
  341.     &ReqFiles[0],135,125,62,12,
  342.     GADGHCOMP, RELVERIFY, BOOLGADGET,
  343.     (APTR)&SelectBorder, NULL, &ParentText,
  344.     NULL,NULL,6,NULL
  345. };
  346. struct Gadget Slide =
  347. {
  348.     &Parent,293,32,15,73,
  349.     GADGHCOMP, RELVERIFY, PROPGADGET,
  350.     (APTR)RenderB,NULL,NULL,
  351.     NULL,(APTR)&SlideInfo,5,NULL
  352. };
  353. struct Gadget Path =
  354. {
  355.     &Slide,65,20,240,8,
  356.     GADGHCOMP, RELVERIFY, STRGADGET,
  357.     (APTR)&StringBorder,NULL,&PathText,
  358.     NULL,(APTR)&PathInfo,4,NULL
  359. };
  360. struct Gadget File =
  361. {
  362.     &Path,65,110,240,8,
  363.     GADGHCOMP, RELVERIFY, STRGADGET,
  364.     (APTR)&StringBorder,NULL,&FileText,
  365.     NULL,(APTR)&FileInfo,3,NULL
  366. };
  367. struct Gadget Cancel =
  368. {
  369.     &File,240,125,62,12,
  370.     GADGHCOMP,RELVERIFY, BOOLGADGET,
  371.     (APTR)&SelectBorder,NULL,&CancelText,
  372.     NULL,NULL,1,NULL
  373. };
  374. struct Gadget OK =
  375. {
  376.     &Cancel,30,125,62,12,
  377.     GADGHCOMP, RELVERIFY, BOOLGADGET,
  378.     (APTR)&SelectBorder,NULL,&OKText,
  379.     NULL,NULL,2,NULL
  380. };
  381.  
  382. /***** The Requester Window *****/
  383. struct NewWindow RequesterWindow =
  384. {
  385.     135,50,370,100,0,7,
  386.     GADGETUP,
  387.     SIMPLE_REFRESH | ACTIVATE,NULL,NULL,NULL,NULL,NULL,0,0,0,0,
  388.     CUSTOMSCREEN,
  389. };
  390. /***** The True Requester Definition *****/
  391. struct Requester FileSelectBox;
  392. /*************************************************************************/
  393. struct TextAttr WorkFont =
  394. {
  395.     (STRPTR)"IBM.font",
  396.     8,
  397.     FS_NORMAL,
  398.     FPF_DISKFONT | FPF_ROMFONT
  399. };
  400. struct TextAttr DisplayFont =
  401. {
  402.     (STRPTR)"topaz.font", TOPAZ_EIGHTY, FS_NORMAL, FPF_ROMFONT
  403. };
  404. struct NewScreen FirstWorkScreen =
  405. {
  406.     0,-1,        /* LeftEdge, TopEdge    */
  407.     640,202,    /* Width, Height    */
  408.     4,        /* Depth        */
  409.     4,7,        /* DetailPen, BlockPen    */
  410.     HIRES | SPRITES,/* ViewModes        */
  411.     CUSTOMSCREEN,    /* Type                */
  412.     &DisplayFont,    /* Font                   */
  413.     Titlebar,
  414.     NULL,        /* Gadgets        */
  415.     NULL,        /* CustonBitMap            */
  416. };
  417.  
  418. struct NewWindow FirstWorkWindow =
  419. {
  420.     0,10,        /* LeftEdge, TopEdge    */
  421.     640,192,    /* Width, Height    */
  422.     4,7,        /* DetailPen, BlockPen    */
  423.     MOUSEBUTTONS |    /* IDCMP Flags        */
  424.     RAWKEY |
  425.     MENUPICK,
  426.     SMART_REFRESH |    /* Flags        */
  427.     ACTIVATE |
  428.     BORDERLESS |
  429.     GIMMEZEROZERO,
  430.     NULL,           /* First Gadget         */
  431.     NULL,        /* CheckMark            */
  432.     NULL,        /* Window Title        */
  433.     NULL,        /* Screen        */
  434.     NULL,        /* BitMap        */
  435.     0,0,        /* Min Width, Height    */
  436.     0,0,        /* Max Width, Height    */
  437.     CUSTOMSCREEN,    /* Type                */
  438. };
  439.  
  440. struct NewWindow GadgetWindow =
  441. {
  442.     0,170,
  443.     640,30,
  444.     4,7,
  445.     GADGETUP | ACTIVEWINDOW,
  446.     SMART_REFRESH | WINDOWDRAG,
  447.     &SelColour0,
  448.     NULL,
  449.     "Gadget Box",
  450.     NULL,
  451.     NULL,
  452.     0,0,
  453.     0,0,
  454.     CUSTOMSCREEN
  455. };
  456.  
  457. struct InputEvent inputEvent =
  458. {
  459.     0,IECLASS_RAWKEY,0,0,0
  460. };
  461. UWORD AtrColours[16] =
  462. {
  463.     0x000,0xf00,0x3f1,0xfe0,0x00f,0xf0c,0x2cd,0xddd,
  464.     0x444,0x800,0x281,0x870,0x008,0x806,0x177,0x888
  465. };
  466. /**************************** Menu Definition **************************/
  467. struct IntuiText FourplanesText =
  468. {
  469.     4,7,JAM2,18,1,&DisplayFont,"16 Colors",NULL
  470. };
  471. struct IntuiText ThreeplanesText =
  472. {
  473.     4,7,JAM2,18,1,&DisplayFont,"8 Colors",NULL
  474. };
  475. struct IntuiText TwoplanesText =
  476. {
  477.     4,7,JAM2,18,1,&DisplayFont,"4 Colors",NULL
  478. };
  479. struct IntuiText ColorsText =
  480. {
  481.     4,7,JAM2,0,1,&DisplayFont,"Colors",NULL
  482. };
  483. struct IntuiText QuitText =
  484. {
  485.     4,7,JAM2,0,1,&DisplayFont,"Quit",NULL
  486. };
  487. struct IntuiText AppendText =
  488. {
  489.     4,7,JAM2,0,1,&DisplayFont,"Append",NULL
  490. };
  491. struct IntuiText SaveText =
  492. {
  493.     4,7,JAM2,0,1,&DisplayFont,"Save",NULL
  494. };
  495. struct IntuiText LoadText =
  496. {
  497.     4,7,JAM2,0,1,&DisplayFont,"Load",NULL
  498. };
  499. struct IntuiText ClearText =
  500. {
  501.     4,7,JAM2,0,1,&DisplayFont,"Clear",NULL
  502. };
  503. struct IntuiText PlaybackText =
  504. {
  505.     4,7,JAM2,0,1,&DisplayFont,"Playback",NULL
  506. };
  507. struct IntuiText AboutText =
  508. {
  509.     4,7,JAM2,0,1,&DisplayFont,"About",NULL
  510. };
  511. struct MenuItem Fourplanes =
  512. {
  513.     NULL,80,20,130,10,ITEMTEXT|ITEMENABLED|HIGHCOMP|COMMSEQ|
  514.     CHECKIT|CHECKED,3,(APTR)&FourplanesText,NULL,'4',NULL,0
  515. };
  516. struct MenuItem Threeplanes =
  517. {
  518.     &Fourplanes,80,10,130,10,ITEMTEXT|ITEMENABLED|HIGHCOMP|COMMSEQ|
  519.     CHECKIT,5,(APTR)&ThreeplanesText,NULL,'3',NULL,0
  520. };
  521. struct MenuItem Twoplanes =
  522. {
  523.     &Threeplanes,80,0,130,10,ITEMTEXT|ITEMENABLED|HIGHCOMP|COMMSEQ|
  524.     CHECKIT,6,(APTR)&TwoplanesText,NULL,'2',NULL,0
  525. };
  526. struct MenuItem Colors =
  527. {
  528.     NULL,0,0,110,10,ITEMTEXT | ITEMENABLED | HIGHCOMP,0,
  529.     (APTR)&ColorsText,NULL,0,&Twoplanes,0
  530. };
  531. struct MenuItem Quit =
  532. {
  533.     NULL,0,60,120,10,ITEMTEXT | ITEMENABLED | HIGHBOX | COMMSEQ,0,
  534.     (APTR)&QuitText,NULL,'Q',NULL,0
  535. };
  536. struct MenuItem AppSave =
  537. {
  538.     NULL,80,10,60,10,ITEMTEXT | ITEMENABLED | HIGHCOMP,0,
  539.     (APTR)&SaveText,NULL,0,NULL,0
  540. };
  541. struct MenuItem AppLoad =
  542. {
  543.     &AppSave,80,0,60,10,ITEMTEXT | ITEMENABLED | HIGHCOMP,0,
  544.     (APTR)&LoadText,NULL,0,NULL,0
  545. };
  546. struct MenuItem Append =
  547. {
  548.     &Quit,0,50,120,10,ITEMTEXT | ITEMENABLED | HIGHCOMP,0,
  549.     (APTR)&AppendText,NULL,0,&AppLoad,0
  550. };
  551. struct MenuItem Save =
  552. {
  553.     &Append,0,40,120,10,ITEMTEXT | ITEMENABLED | HIGHCOMP | COMMSEQ,0,
  554.     (APTR)&SaveText,NULL,'S',NULL,0
  555. };
  556. struct MenuItem Load =
  557. {
  558.     &Save,0,30,120,10,ITEMTEXT | ITEMENABLED | HIGHCOMP | COMMSEQ,0,
  559.     (APTR)&LoadText,NULL,'L',NULL,0
  560. };
  561. struct MenuItem Clear =
  562. {
  563.     &Load,0,20,120,10,ITEMTEXT | ITEMENABLED | HIGHCOMP | COMMSEQ,0,
  564.     (APTR)&ClearText,NULL,'C',NULL,0
  565. };    
  566. struct MenuItem Playback =
  567. {
  568.     &Clear,0,10,120,10,ITEMTEXT | ITEMENABLED | HIGHCOMP | COMMSEQ,0,
  569.     (APTR)&PlaybackText,NULL,'P',NULL,0
  570. };
  571. struct MenuItem About =
  572. {
  573.     &Playback,0,0,120,10,ITEMTEXT | ITEMENABLED | HIGHCOMP,0,
  574.     (APTR)&AboutText,NULL,0,NULL,0
  575. };
  576. struct Menu Setup =
  577. {
  578.     NULL,
  579.     100,0,100,10,
  580.     MENUENABLED,
  581.     "Setup",
  582.     &Colors
  583. };
  584. struct Menu Project =
  585. {
  586.     &Setup,
  587.     0, 0, 100, 10,
  588.     MENUENABLED,
  589.     "Project",
  590.     &About
  591. };
  592. /**************************** External Variables ************************/
  593. UBYTE Buffer[MAXINPUTLEN];
  594. SHORT scanner;
  595. struct ANSI storage = { NULL,NULL,-1,-1,-1,-1,NULL };
  596. struct ANSI *sdlstptr, *lastptr, *middle, *front, *back;
  597. struct TextFont *TFont;
  598. SHORT conDevErr = FALSE;
  599. int length = 0,position = 0;    /* used to display where editor is */
  600. int cx = 1, cy = 1;        /* cursor co-ordinates */
  601. static int maxlinelength = 255;
  602. static int tabspacing = 8;
  603. BOOL changes = FALSE;
  604. static char funckey[MAXCHARSETS][8] =
  605. {
  606.     {0xb3, 0xc4, 0xc5, 0xc0, 0xd9, 0xda, 0xbf, 0xd8},
  607.     {0xba, 0xcd, 0xce, 0xc8, 0xbc, 0xc9, 0xbb, 0xd7},
  608.     {0xc1, 0xc2, 0xb4, 0xc3, 0xca, 0xcb, 0xb9, 0xcc},
  609.     {0xbe, 0xd4, 0xb8, 0xd5, 0xbd, 0xd3, 0xb7, 0xd6},
  610.     {0xd0, 0xd2, 0xb6, 0xc7, 0xcf, 0xd1, 0xb5, 0xc6},
  611.     {0xdb, 0xdc, 0xdd, 0xde, 0xdf, 0xb0, 0xb1, 0xb2},
  612.     {0xa0, 0xa1, 0xa2, 0xa3, 0xa4, 0xa5, 0xa6, 0xa7},
  613.     {0xe0, 0xe1, 0xe2, 0xe3, 0xe4, 0xe5, 0xe6, 0xe7},
  614.     {0xe8, 0xe9, 0xea, 0xeb, 0xec, 0xed, 0xee, 0xef},
  615.     {0xf0, 0xf1, 0xf2, 0xf3, 0xfe, 0xf6, 0xfd, 0xfb},
  616.     {0xa8, 0xa9, 0xaa, 0xab, 0xac, 0xad, 0xae, 0xaf},
  617.     {0xf4, 0xf5, 0xf6, 0xf7, 0xf8, 0xf9, 0xfa, 0xfc}
  618. };
  619. long _stack = 10000;        /* my Load-And-Stay Resident stack size */
  620. char *_procname = "Prism";    /* my proceedure name */
  621. long _priority = 0;        /* A regular priority */
  622. long _BackGroundIO = 0;        /* If this != 0, I can Write() to CLI but
  623.                    I must Close(_Backstdout) when done */
  624. extern BPTR _Backstdout;    /* CLI file handle */
  625.  
  626. struct IntuiText GeneralText =
  627. {
  628.     1,0,        /* FrontPen, BackPen */
  629.     JAM2,       /* DrawMode */
  630.     0,0,        /* LeftEdge, TopEdge */
  631.     &WorkFont,  /* Font */
  632.     Buffer,
  633.     NULL
  634. };
  635. /************************************************************************
  636. *                       And now.... THE BEGINNING!!                    *
  637. ************************************************************************/
  638. main()
  639. {
  640.     ULONG MessageClass;
  641.     USHORT code, qualifier;
  642.     
  643.     struct Message *GetMsg();
  644.     char memusestr[81];        /* display position and length */
  645.     int mx, my;            /* mouse co-ordinates */
  646.     int fcolour = 7;        /* initialize fourground colour */
  647.     int bcolour = 0;
  648.     int tabplace, tempnum, memleft, jx, jy;
  649.     short int presset = 0;
  650.     BOOL mbuttons = FALSE, BGmode = FALSE, gadwinfront = TRUE;
  651.     struct Gadget *GadgetPtr;
  652.     USHORT GadgetID;
  653.     
  654.     FirstWorkScreen.Depth = 4;
  655.     OpenLibs();
  656.     lastptr = &storage;
  657.     middle = lastptr;
  658.     
  659.     FOREVER
  660.     {
  661.     mx = (int) (WorkWindow->GZZMouseX)/8+1;
  662.     my = (int) (WorkWindow->GZZMouseY)/8+1;
  663.         if (cx >= MINWIDTH && cx <= MAXWIDTH && cy >= MINHEIGHT &&
  664.         cy <= MAXHEIGHT)
  665.     {
  666.         jx = (cx-1)*8-2;
  667.         jy = (cy-1)*8+FirstWorkWindow.TopEdge;
  668.         MoveSprite(&WorkScreen->ViewPort,&Cursor,jx,jy);
  669.     }
  670.  
  671.     if (message = (struct IntuiMessage *)GetMsg(WorkWindow->UserPort))
  672.     {
  673.         MessageClass = message->Class;
  674.         code = message->Code;
  675.             qualifier = message->Qualifier;
  676.         ReplyMsg(message);
  677.             if (MessageClass & MOUSEBUTTONS)
  678.             {
  679.                 switch(code)
  680.                 {
  681.                     case SELECTDOWN :
  682.                         mbuttons = TRUE;
  683.                         break;
  684.                                         
  685.                     case SELECTUP :
  686.                         mbuttons = FALSE;
  687.                         break;
  688.                 }
  689.             }
  690.         else switch (MessageClass)
  691.         {
  692.                 case RAWKEY :
  693.                     if(!(code & IECODE_UP_PREFIX))
  694.                     {
  695.                         inputEvent.ie_Code = code;
  696.                         inputEvent.ie_Qualifier = qualifier;
  697.             scanner = RawKeyConvert(&inputEvent,Buffer,
  698.                 MAXINPUTLEN,NULL);
  699.                         Buffer[scanner] = NULL;
  700.             if(Buffer[0]==0x9b && scanner>1)
  701.             {
  702.                 switch(Buffer[1])
  703.                 {
  704.                 case CURSOR_UP :
  705.                                 cy--;
  706.                                 if(cy < MINHEIGHT)
  707.                                    cy = MINHEIGHT;
  708.                 break;
  709.                 
  710.                 case CURSOR_DOWN :
  711.                                 cy++;
  712.                                 if(cy > MAXHEIGHT)
  713.                                    cy = MAXHEIGHT;
  714.                 break;
  715.                 
  716.                 case CURSOR_LEFT :
  717.                 if(qualifier & IEQUALIFIER_CONTROL)
  718.                 {
  719.                     if(middle != NULL && middle != &storage)
  720.                     {
  721.                     back = middle;
  722.                     tempnum = 1;
  723.                     while(back != NULL && 
  724.                           back != &storage &&
  725.                           tempnum == 1)
  726.                     {
  727.                         back=back->previous;
  728.                         if(middle->x == back->x &&
  729.                            middle->y == back->y)
  730.                         {
  731.                         memusestr[0]=back->letter;
  732.                         memusestr[1]=NULL;
  733.                         ColourTextXY(WorkWindow,
  734.                          memusestr,back->x,back->y,
  735.                          back->fcolour,
  736.                          back->bcolour);
  737.                          tempnum = 0;
  738.                         }
  739.                     }
  740.                     if(back==NULL || back==&storage)
  741.                     {
  742.                         memusestr[0] = SPACE;
  743.                         memusestr[1] = NULL;
  744.                         ColourTextXY(WorkWindow,
  745.                           memusestr,middle->x,
  746.                           middle->y,1,0);
  747.                     }
  748.                     middle=middle->previous;
  749.                     if(middle != &storage)
  750.                     {
  751.                         cx = middle->x;
  752.                         cy = middle->y;
  753.                     }
  754.                     else
  755.                     {
  756.                         cx = MINWIDTH;
  757.                         cy = MINHEIGHT;
  758.                     } 
  759.                     --position;
  760.                     }
  761.                 } 
  762.                 else
  763.                 {
  764.                     cx--;
  765.                     if(cx < MINWIDTH) cx = MINWIDTH;
  766.                 }
  767.                 break;
  768.                 
  769.                 case CURSOR_RIGHT :
  770.                 if(qualifier & IEQUALIFIER_CONTROL)
  771.                 {
  772.                     if(middle != NULL)
  773.                     {
  774.                     if(middle->next != NULL)
  775.                     {
  776.                         middle=middle->next;
  777.                         cx = middle->x; cy = middle->y;
  778.                         ++position;
  779.                     }
  780.                     memusestr[0]=middle->letter;
  781.                     memusestr[1]=NULL;
  782.                     ColourTextXY(WorkWindow,memusestr,
  783.                       middle->x,middle->y,
  784.                       middle->fcolour,middle->bcolour);
  785.                     }
  786.                 } 
  787.                 else
  788.                 {
  789.                     cx++;
  790.                     if(cx > MAXWIDTH) cx = MAXWIDTH;
  791.                 }
  792.                 break;
  793.                 
  794.                 default :
  795.                 if (scanner == 3 && Buffer[2] == '~')
  796.                 {
  797.                     if (Buffer[1] == '?')
  798.                     {
  799.                     if(gadwinfront)
  800.                     {
  801.                         WindowToBack(Gads);
  802.                         gadwinfront = FALSE;
  803.                     }
  804.                     else
  805.                     {
  806.                         WindowToFront(Gads);
  807.                         gadwinfront = TRUE;
  808.                     }
  809.                     break;
  810.                     }
  811.                     Buffer[2] = NULL;
  812.                     tempnum = atoi(&Buffer[1]);
  813.                     Buffer[2] = '~';
  814.                         if(tempnum >= 0 && tempnum <= 7)
  815.                         {
  816.                     Buffer[0] = funckey[presset][tempnum];
  817.                     Buffer[1] = NULL;
  818.                     scanner = 1;
  819.                         }
  820.                     if(tempnum == 8)
  821.                         {
  822.                     ++presset;
  823.                     if(presset > MAXCHARSETS-1)
  824.                         presset = 0;
  825.                          }
  826.                         if(tempnum == 9)
  827.                         {
  828.                     --presset;
  829.                     if(presset < 0)
  830.                             presset = MAXCHARSETS-1;
  831.                         }
  832.                 }
  833.                 }
  834.             }
  835.                         if(scanner > 0 && Buffer[0] != 0x9b)
  836.                         {
  837.                             switch(Buffer[0])
  838.                             {
  839.                                 case RETURN : 
  840.                                     cx = MINWIDTH;
  841.                                     cy++;
  842.                                     if (cy > MAXHEIGHT)
  843.                                         cy = MAXHEIGHT;
  844.                                     break;
  845.                                 
  846.                                 case BACKSPACE :
  847.                                     if (lastptr == &storage ||
  848.                     middle == &storage)
  849.                                         break;
  850.                     back = middle;
  851.                     tempnum = 1;
  852.                     while(back != NULL && back != &storage 
  853.                         && tempnum == 1)
  854.                     {
  855.                     back=back->previous;
  856.                     if(middle->x == back->x &&
  857.                        middle->y == back->y)
  858.                     {
  859.                         memusestr[0]=back->letter;
  860.                         memusestr[1]=NULL;
  861.                         ColourTextXY(WorkWindow,
  862.                           memusestr,back->x,back->y,
  863.                           back->fcolour,back->bcolour);
  864.                         tempnum = 0;
  865.                     }
  866.                     }
  867.                     if(back==NULL || back==&storage)
  868.                     {
  869.                     memusestr[0] = SPACE;
  870.                     memusestr[1] = NULL;
  871.                     ColourTextXY(WorkWindow,
  872.                       memusestr,middle->x,middle->y,1,0);
  873.                     }
  874.                     if(middle->next == NULL)
  875.                     {
  876.                     free((char *)lastptr);
  877.                                     lastptr = sdlstptr;
  878.                                     sdlstptr = sdlstptr->previous;
  879.                                     lastptr->next = NULL;
  880.                     memusestr[0] = lastptr->letter;
  881.                     memusestr[1] = NULL;
  882.                     if(lastptr != &storage)
  883.                     {
  884.                         ColourTextXY(WorkWindow,memusestr,
  885.                           lastptr->x,lastptr->y,
  886.                           lastptr->fcolour,lastptr->bcolour);
  887.                         cx = lastptr->x; cy = lastptr->y;
  888.                     }
  889.                     middle = lastptr;
  890.                     }
  891.                     else
  892.                     {
  893.                     for(back = middle, front = back->next;
  894.                         front != NULL; back=back->next,
  895.                         front = back->next)
  896.                     {
  897.                         back->fcolour = front->fcolour;
  898.                         back->bcolour = front->bcolour;
  899.                         back->x = front->x;
  900.                         back->y = front->y;
  901.                         back->letter = front->letter;
  902.                         back->attr = front->attr;
  903.                     }
  904.                     free((char *)lastptr);
  905.                                     lastptr = sdlstptr;
  906.                                     sdlstptr = sdlstptr->previous;
  907.                                     lastptr->next = NULL;
  908.                     middle = middle->previous;
  909.                     memusestr[0] = middle->letter;
  910.                     memusestr[1] = NULL;
  911.                     if(middle != &storage)
  912.                     {
  913.                         ColourTextXY(WorkWindow,memusestr,
  914.                         middle->x,middle->y,
  915.                         middle->fcolour,middle->bcolour);
  916.                         cx = middle->x; cy = middle->y;
  917.                     }
  918.                     }
  919.                                     position--; length--; changes = TRUE;
  920.                                     break;
  921.                                     
  922.                                 case TAB :
  923.                                     tabplace = cx;
  924.                     tabplace += (tabspacing -
  925.                         ((cx-1) % tabspacing));
  926.                                     if(tabplace > MAXWIDTH)
  927.                                     {
  928.                                         tabplace = MINWIDTH;
  929.                                         cy++;
  930.                                         if(cy > MAXHEIGHT)
  931.                                             cy = MAXHEIGHT;
  932.                                     }
  933.                                     cx = tabplace;
  934.                                     break;
  935.                                                     
  936.                                 default :
  937.                 for(tempnum = 0; tempnum < scanner;
  938.                     tempnum++)
  939.                 {
  940.                                     if (Buffer[tempnum] < 32 || 
  941.                     Buffer[tempnum] == 127) break;
  942.                                     sdlstptr = lastptr;
  943.                                     lastptr = (struct ANSI *)
  944.                                         malloc(sizeof(struct ANSI));
  945.                                     if (lastptr == NULL)
  946.                     {
  947.                     lastptr = sdlstptr;
  948.                     sdlstptr = lastptr->previous;
  949.                                         break;
  950.                     }
  951.                     sdlstptr->next = lastptr;
  952.                     lastptr->previous = sdlstptr;
  953.                     lastptr->next = NULL;
  954.                     if (middle->next == lastptr)
  955.                     {
  956.                                     lastptr->letter = Buffer[tempnum];
  957.                                     lastptr->x = cx;
  958.                                     lastptr->y = cy;
  959.                                     lastptr->fcolour = fcolour;
  960.                     lastptr->bcolour = bcolour;
  961.                     middle = lastptr;
  962.                     } 
  963.                     else
  964.                     {
  965.                     middle = middle->next;
  966.                     for(back = lastptr,
  967.                         front = back->previous;
  968.                         back != middle;
  969.                         back = back->previous,
  970.                         front = back->previous)
  971.                     {
  972.                         back->fcolour = front->fcolour;
  973.                         back->bcolour = front->bcolour;
  974.                         back->x = front->x;
  975.                         back->y = front->y;
  976.                         back->letter = front->letter;
  977.                         back->attr = front->attr;
  978.                     }
  979.                                     middle->letter = Buffer[tempnum];
  980.                                     middle->x = cx;
  981.                                     middle->y = cy;
  982.                                     middle->fcolour = fcolour;
  983.                     middle->bcolour = bcolour;
  984.                     }
  985.                                     ColourTextXY(WorkWindow,
  986.                                         Buffer,cx,cy,fcolour,bcolour);
  987.                                     cx++;
  988.                                     if(cx > MAXWIDTH)
  989.                                     {
  990.                                         cx = MINWIDTH; cy++;
  991.                                         if (cy > MAXHEIGHT)
  992.                                             cy=MAXHEIGHT;
  993.                                     }
  994.                                     position++; length++;
  995.                     changes = TRUE;
  996.                 }
  997.                                 break;
  998.                             }
  999.                         }
  1000.                     }
  1001.                     break;
  1002.  
  1003.                 case MENUPICK :
  1004.                     MenuAnalyse(code);
  1005.                     break;
  1006.         }
  1007.     } 
  1008.     else
  1009.     {
  1010.         sprintf(memusestr,"P:X=%2d Y=%2d",mx,my);
  1011.         if(mx < 1 || my < 1)
  1012.             sprintf(memusestr,"P:         ");
  1013.         ColourText(Gads,memusestr,488,1,7,0);
  1014.         sprintf(memusestr,"C:X=%2d Y=%2d",cx,cy);
  1015.         ColourText(Gads,memusestr,380,1,7,0);
  1016.             sprintf(memusestr,"Pos: %5d  Len: %5d",position,length);
  1017.             ColourText(Gads,memusestr,2,1,7,0);
  1018.             sprintf(memusestr,"ForeC: %2d  BackC: %2d",fcolour,bcolour);
  1019.             ColourText(Gads,memusestr,200,1,fcolour,bcolour);
  1020.         sprintf(memusestr,
  1021.             "Set:%2d F1=%c F2=%c F3=%c F4=%c F5=%c F6=%c F7=%c F8=%c",
  1022.         presset+1,funckey[presset][0],funckey[presset][1],
  1023.         funckey[presset][2],funckey[presset][3],
  1024.         funckey[presset][4],funckey[presset][5],
  1025.         funckey[presset][6],funckey[presset][7]);
  1026.         ColourText(Gads,memusestr,3,20,7,0);
  1027.         sprintf(memusestr,"Free Memory:%7d",memleft = AvailMem(0));
  1028.         ColourText(Gads,memusestr,390,20,3,0);
  1029.     }
  1030.     if (message = (struct IntuiMessage *)
  1031.         GetMsg(Gads->UserPort))
  1032.     {
  1033.         MessageClass = message->Class;
  1034.         code = message->Code;
  1035.             qualifier = message->Qualifier;
  1036.             GadgetPtr = (struct Gadget *) message->IAddress;
  1037.         ReplyMsg(message);
  1038.             GadgetID = GadgetPtr->GadgetID;
  1039.             switch(MessageClass)
  1040.             {
  1041.                 case GADGETUP :
  1042.             if (GadgetID == 17)
  1043.             {
  1044.                 BGmode ^= TRUE;
  1045.             break;
  1046.             }
  1047.             if (BGmode == TRUE)
  1048.             {
  1049.             if (GadgetID >= 1 && GadgetID <=8)
  1050.             {
  1051.                 bcolour = (int)GadgetID-1;
  1052.                 BGmode = FALSE;
  1053.             }
  1054.             } else {
  1055.                         if (GadgetID >= 1 && GadgetID <= 16)
  1056.                         {
  1057.                             fcolour = (int)GadgetID - 1;
  1058.                         }
  1059.             }
  1060.                     break;
  1061.                     
  1062.         case ACTIVEWINDOW :
  1063.                     ActivateWindow(WorkWindow);
  1064.                     break;
  1065.             }
  1066.             ActivateWindow(WorkWindow);
  1067.         }
  1068.         if (mbuttons)
  1069.         {
  1070.             /**** Move the cursor to (mx,my) ****/;
  1071.             cx = mx;
  1072.             cy = my;
  1073.         if (cx < MINWIDTH) cx = MINWIDTH;
  1074.         if (cx > MAXWIDTH) cx = MAXWIDTH;
  1075.         if (cy < MINHEIGHT) cy = MINHEIGHT;
  1076.         if (cy > MAXHEIGHT) cy = MAXHEIGHT;
  1077.         }
  1078.     }
  1079. }
  1080. /************************************************************************
  1081. *                Now, for the Libraries that need to be opened            *
  1082. ************************************************************************/
  1083. void OpenLibs()
  1084. {
  1085.     void *OpenLibrary();
  1086.     struct Window *OpenWindow();
  1087.     struct Screen *OpenScreen();
  1088.     int i;
  1089.     
  1090.     if(!(IntuitionBase = (struct IntuitionBase *)
  1091.     OpenLibrary("intuition.library", 0L)))
  1092.     {
  1093.     CloseLibs("Intuition Library cannot be found");
  1094.     exit(FALSE);
  1095.     }
  1096.     if(!(GfxBase = (struct GfxBase *)
  1097.     OpenLibrary("graphics.library", 0L)))
  1098.     {
  1099.     CloseLibs("Graphics Library cannot be found");
  1100.     exit(FALSE);
  1101.     }
  1102.     if((DiskfontBase = (ULONG*)
  1103.     OpenLibrary("diskfont.library",0))==NULL)
  1104.     {
  1105.     CloseLibs("Diskfont Library cannot be found");
  1106.     exit(FALSE);
  1107.     }
  1108.     if((TFont = (struct TextFont *) 
  1109.     OpenDiskFont(&WorkFont)) == NULL)
  1110.     {
  1111.     WorkFont.ta_Name = (STRPTR)"topaz.font";
  1112.     WorkFont.ta_YSize = TOPAZ_EIGHTY;
  1113.     }
  1114.     ChipCursor = (UWORD*)AllocMem(sizeof(Cursor_Data),MEMF_CLEAR|MEMF_CHIP);
  1115.     ChipBlank = (UWORD*)AllocMem(sizeof(Blank_Data),MEMF_CLEAR|MEMF_CHIP);
  1116.     if ((ChipCursor == 0) | (ChipBlank == 0)) CloseLibs("No chip memory");
  1117.     Helping = ChipCursor;
  1118.     for (i=0; i<(sizeof(Cursor_Data)/sizeof(UWORD));i++)
  1119.     {
  1120.     *Helping = Cursor_Data[i];
  1121.     Helping++;
  1122.     }
  1123.     for (i=0; i<(sizeof(Blank_Data)/sizeof(UWORD));i++)
  1124.     {
  1125.     *Helping = Blank_Data[i];
  1126.     Helping++;
  1127.     }
  1128.     Cursor.x = -1;
  1129.     Cursor.y = 36;
  1130.     Cursor.height = 8;
  1131.     Spr1 = GetSprite(&Cursor,-1);
  1132.     if(Spr1 == -1)
  1133.     {
  1134.     CloseLibs("Sprite cannot be displayed");
  1135.     exit(FALSE);
  1136.     }
  1137.     ChangeSprite(&WorkScreen->ViewPort,&Cursor,ChipCursor);
  1138.  
  1139.     OpenSAW();
  1140.     
  1141.     if (!(OpenDevice("console.device",-1L,&ioStdReq,0L)))
  1142.         ConsoleDevice = ioStdReq.io_Device;
  1143.     else 
  1144.     CloseLibs("Could not open console.device");
  1145. }
  1146. OpenSAW()
  1147. {
  1148.     struct ViewPort *vp;
  1149.  
  1150.     if(!(WorkScreen = (struct Screen *)
  1151.     OpenScreen(&FirstWorkScreen)))
  1152.     {
  1153.     CloseLibs("Screen cannot be opened");
  1154.     exit(FALSE);
  1155.     }
  1156.     vp = &WorkScreen->ViewPort;
  1157.     LoadRGB4(vp,AtrColours,16);
  1158.     RemakeDisplay();
  1159.     FirstWorkWindow.Screen = WorkScreen;
  1160.     if(!(WorkWindow = (struct Window *)    OpenWindow(&FirstWorkWindow)))
  1161.     {
  1162.     CloseLibs("Window cannot be opened");
  1163.     exit(FALSE);
  1164.     }
  1165.     GadgetWindow.Screen = WorkScreen;
  1166.     if(!(Gads = (struct Window *) OpenWindow(&GadgetWindow)))
  1167.     {
  1168.     CloseLibs("Gadget window cannot be opened");
  1169.     exit(FALSE);
  1170.     }
  1171.     SetMenuStrip(WorkWindow, &Project);
  1172.     return(0);
  1173. }
  1174. /************************************************************************
  1175. *       If Libraries have to be opened, then they have to be closed!    *
  1176. ************************************************************************/
  1177. void CloseLibs(str)
  1178. char *str;
  1179. {
  1180.     int dummy=0, handle;
  1181.     
  1182.     FreeAllMem();
  1183.     if(Spr1 != -1)    FreeSprite(Spr1);
  1184.     if(ChipCursor != 0) FreeMem(ChipCursor,sizeof(Cursor_Data));
  1185.     if(ChipBlank != 0)    FreeMem(ChipBlank,sizeof(Blank_Data));
  1186.     CloseSAW();
  1187.     if(TFont)        CloseFont(TFont);
  1188.     if(DiskfontBase)    CloseLibrary(DiskfontBase);
  1189.     if(GfxBase)            CloseLibrary(GfxBase);
  1190.     if(IntuitionBase)    CloseLibrary(IntuitionBase);
  1191.     if(str[0] != '~')
  1192.     {    
  1193.         handle = open("RAW:160/50/320/25/Prism",0,dummy);
  1194.         if (handle != -1)
  1195.         {
  1196.         write(handle,str,strlen(str));
  1197.         Delay(120L);
  1198.         close(handle);
  1199.         }
  1200.     }
  1201. }
  1202. CloseSAW()
  1203. {
  1204.     if(Gads)    CloseWindow(Gads);
  1205.     if(WorkWindow)
  1206.     {
  1207.         ClearMenuStrip(WorkWindow);
  1208.     CloseWindow(WorkWindow);
  1209.     }
  1210.     if(WorkScreen)    CloseScreen(WorkScreen);
  1211.     return(0);
  1212. }
  1213. /*************************************************************************
  1214. *                  The colour version of the Text routine                *
  1215. *************************************************************************/
  1216. ColourText(w_ptr,s,x,y,fc,bc)
  1217. struct Window *w_ptr;
  1218. char *s;
  1219. int x,y;
  1220. int fc,bc;
  1221. {
  1222.     GeneralText.FrontPen = (UBYTE) fc;
  1223.     GeneralText.BackPen = (UBYTE) bc;
  1224.     GeneralText.IText = (UBYTE *) s;
  1225.     PrintIText(w_ptr->RPort,&GeneralText,x,y);
  1226.     return(TRUE);
  1227. }
  1228. /*************************************************************************
  1229. *      X and Y now represent the row and column of TEXT and not bits     *
  1230. *************************************************************************/
  1231. ColourTextXY(w_ptr,s,x,y,fc,bc)
  1232. struct Window *w_ptr;
  1233. char *s;
  1234. int x,y;
  1235. int fc,bc;
  1236. {
  1237.     int ix,iy;
  1238.     
  1239.     GeneralText.FrontPen = (UBYTE) fc;
  1240.     GeneralText.BackPen = (UBYTE) bc;
  1241.     GeneralText.IText = (UBYTE *) s;
  1242.  
  1243.     if (x < MINWIDTH || x > MAXWIDTH || y < MINHEIGHT || y > MAXHEIGHT)
  1244.         return(FALSE);
  1245.     ix = (x-1)*8; /* to calculate distance by text size and not pixels */
  1246.     iy = (y-1)*8;
  1247.     
  1248.     PrintIText(w_ptr->RPort,&GeneralText,ix,iy);
  1249.     return(TRUE);
  1250. }
  1251. /*************************************************************************
  1252. *                         Free the used memory                           *
  1253. *************************************************************************/
  1254. FreeAllMem()
  1255. {
  1256.     struct IntuiText ClearingText =
  1257.     {
  1258.     4,7,JAM2,126,11,NULL,"Clearing Current ANSI.  Please Wait.",NULL
  1259.     };
  1260.     
  1261.     InitRequester(&FileSelectBox);
  1262.     FileSelectBox.LeftEdge = 50;
  1263.     FileSelectBox.TopEdge = 85;
  1264.     FileSelectBox.Width = 540;
  1265.     FileSelectBox.Height = 30;
  1266.     FileSelectBox.ReqText = &ClearingText;
  1267.     FileSelectBox.BackFill = 7;
  1268.     Request(&FileSelectBox, WorkWindow);
  1269.     for(lastptr=storage.next; lastptr != NULL; lastptr = lastptr->next)
  1270.     {
  1271.     free((char *)lastptr);
  1272.     }
  1273.     storage.next = NULL;
  1274.     lastptr = &storage;
  1275.     middle = lastptr;
  1276.     length = 0; position = 0;
  1277.     cx = MINWIDTH; cy = MINHEIGHT; changes = FALSE;
  1278.     EndRequest(&FileSelectBox, WorkWindow);
  1279.     return(TRUE);
  1280. }
  1281. /*************************************************************************
  1282. *               Attempt to playback what what stored in Memory           *
  1283. *************************************************************************/
  1284. PlayBack()
  1285. {
  1286.     char displaystr[2];
  1287.     char *LeftMouse = (char *)0xBFE001;
  1288.     
  1289.     position = length = 0;
  1290.     ClearWorkWindow();
  1291.     WindowToFront(WorkWindow);
  1292.     ChangeSprite(&WorkScreen->ViewPort,&Cursor,ChipBlank);
  1293.     Delay(30L);
  1294.     displaystr[1] = NULL;
  1295.     for(lastptr=storage.next; lastptr != NULL; lastptr = lastptr->next)
  1296.     {
  1297.         displaystr[0] = lastptr->letter;
  1298.         ColourTextXY(WorkWindow,displaystr,lastptr->x,lastptr->y,
  1299.             lastptr->fcolour,lastptr->bcolour);
  1300.     ++position;++length;
  1301.     if((*LeftMouse & 0x40)==0x40) Delay(1L);
  1302.     }
  1303.     lastptr = sdlstptr->next;
  1304.     middle = lastptr;
  1305.     cx = middle->x; cy = middle->y;
  1306.     ChangeSprite(&WorkScreen->ViewPort,&Cursor,ChipCursor);
  1307.     WindowToBack(WorkWindow);
  1308.     return(TRUE);
  1309. }
  1310. /*************************************************************************
  1311. *                        Clear the WorkWindow                            *
  1312. *************************************************************************/
  1313. ClearWorkWindow()
  1314. {
  1315.     int i;
  1316.     static char blanker[] = "                                                                                ";
  1317.     
  1318.     for (i = 0; i <= 206; i += 8)
  1319.     {
  1320.         ColourText(WorkWindow,blanker,0,i,1,0);
  1321.     }
  1322.     return(TRUE);
  1323. }
  1324. /************************************************************************
  1325. *               Analyse which item was picked on the menu               *
  1326. ************************************************************************/
  1327. MenuAnalyse(Menunumber)
  1328. USHORT Menunumber;
  1329. {
  1330.     USHORT Menu, MenuItem, SubItem;
  1331.     
  1332.     Menu = MENUNUM(Menunumber);
  1333.     MenuItem = ITEMNUM(Menunumber);
  1334.     SubItem = SUBNUM(Menunumber);
  1335.     switch(Menu)
  1336.     {
  1337.         case 0 :    /* The "Project" Menu */
  1338.             ProjectMenu(MenuItem,SubItem);
  1339.             break;
  1340.         
  1341.     case 1 :    /* The "Setup" Menu */
  1342.         SetupMenu(MenuItem,SubItem);
  1343.         break;
  1344.     }
  1345.     return(TRUE);
  1346. }
  1347. ProjectMenu(MenuItem,SubItem)
  1348. USHORT MenuItem, SubItem;
  1349. {
  1350.     BOOL GetResponce;
  1351.     
  1352.     switch(MenuItem)
  1353.     {
  1354.         case 0 :    /* The "About" MenuItem */
  1355.             AboutReq();
  1356.             break;
  1357.             
  1358.         case 1 :    /* The "Playback" MenuItem */
  1359.             PlayBack();
  1360.             break;
  1361.             
  1362.         case 2 :    /* The "Clear" MenuItem */
  1363.         GetResponce = AreYouSure("Clear Memory?");
  1364.         if(GetResponce == TRUE)
  1365.         {
  1366.         if(changes == TRUE)
  1367.         {
  1368.             GetResponce = AreYouSure("Save with new changes?");
  1369.             if(GetResponce == TRUE) SaveANSI(TRUE);
  1370.         }
  1371.         FreeAllMem();
  1372.         ClearWorkWindow();
  1373.         }
  1374.             break;
  1375.  
  1376.         case 3 :    /* The "Load" MenuItem */
  1377.         LoadANSI(TRUE);
  1378.             break;
  1379.         
  1380.     case 4 :    /* The "Save" MenuItem */
  1381.         SaveANSI(TRUE);
  1382.         break;
  1383.         
  1384.     case 5 :    /* The "Append" Submenu */
  1385.         switch(SubItem)
  1386.         {
  1387.         case 0 :    /* The "Append Load" SubItem */
  1388.             LoadANSI(FALSE);
  1389.             break;
  1390.         case 1 :    /* The "Append Save" SubItem */
  1391.             SaveANSI(FALSE);
  1392.             break;
  1393.         }
  1394.         break;
  1395.  
  1396.     case 6 :    /* The "Quit" MenuItem */
  1397.         GetResponce = AreYouSure("Exit Prism?");
  1398.         if(GetResponce == TRUE)
  1399.         {
  1400.         if(changes == TRUE)
  1401.         {
  1402.             GetResponce = AreYouSure("Save with new changes?");
  1403.             if(GetResponce == TRUE) SaveANSI(TRUE);
  1404.         }
  1405.         CloseLibs("~");
  1406.         exit(TRUE);
  1407.         }
  1408.         break;
  1409.     }
  1410.     return(TRUE);
  1411. }
  1412. SetupMenu(MenuItem,SubItem)
  1413. USHORT MenuItem,SubItem;
  1414. {
  1415.     switch(MenuItem)
  1416.     {
  1417.     case 0 :    /* The "Colors" SubMenu */
  1418.         SelColour3.NextGadget = &SelColour4;
  1419.         SelColour7.NextGadget = &SelColour8;
  1420.         switch(SubItem)
  1421.         {
  1422.         case 0 :    /* The "2 Planes" SubItem */
  1423.             CloseSAW();
  1424.             FirstWorkScreen.Depth = 2;
  1425.             SelColour3.NextGadget = &ForeBackGadget;
  1426.             OpenSAW();
  1427.             break;
  1428.             
  1429.         case 1 :    /* The "3 Planes" SubItem */
  1430.             CloseSAW();
  1431.             FirstWorkScreen.Depth = 3;
  1432.             SelColour7.NextGadget = &ForeBackGadget;
  1433.             OpenSAW();
  1434.             break;
  1435.             
  1436.         case 2 :    /* The "4 Planes" SubItem */
  1437.             CloseSAW();
  1438.             FirstWorkScreen.Depth = 4;
  1439.             OpenSAW();
  1440.             break;
  1441.         }
  1442.         break;
  1443.     }
  1444.     return(TRUE);
  1445. }
  1446. /************************************************************************
  1447. *                     An "Are You Sure?" Requester                      *
  1448. ************************************************************************/
  1449. AreYouSure(yousaidit)
  1450. char *yousaidit;
  1451. {
  1452.     BOOL Responce;
  1453.     
  1454.     struct IntuiText Really =
  1455.     {
  1456.         0,1,JAM1,40,5,NULL,NULL,NULL
  1457.     };
  1458.     struct IntuiText Yes =
  1459.     {
  1460.         0,1,JAM1,5,3,NULL,"YES",NULL
  1461.     };
  1462.     struct IntuiText No =
  1463.     {
  1464.         0,1,JAM1,5,3,NULL,"NO!",NULL
  1465.     };
  1466.     Really.IText = (UBYTE *)yousaidit;
  1467.     Responce = AutoRequest(WorkWindow,&Really,&Yes,&No,0,0,
  1468.     TextLength(WorkWindow->RPort,yousaidit,strlen(yousaidit))+100,50);
  1469.     return((int)Responce);
  1470. }
  1471. /*************************************************************************
  1472. *              The "Something Went Wrong" Requester Routine              *
  1473. *************************************************************************/
  1474. GenErrorReq(thecatch)
  1475. char *thecatch;
  1476. {
  1477.     BOOL Answer = FALSE;
  1478.     struct IntuiText SomethingText =
  1479.     {
  1480.         0,1,JAM2,15,8,NULL,NULL,NULL
  1481.     };
  1482.     struct IntuiText AlrightText =
  1483.     {
  1484.         0,1,JAM2,5,3,NULL,"OK?",NULL
  1485.     };
  1486.     SomethingText.IText = (UBYTE *)thecatch;
  1487.     Answer = AutoRequest(WorkWindow,&SomethingText,NULL,&AlrightText,0,0,
  1488.     TextLength(WorkWindow->RPort,thecatch,strlen(thecatch))+100,37);
  1489.     return((int)Answer);
  1490. }
  1491. /*************************************************************************
  1492. *                     The "About" Requester Routine                      *
  1493. *************************************************************************/
  1494. AboutReq()
  1495. {
  1496.     BOOL Answer = FALSE, Waiting;
  1497.     char *LeftMouse = (char *)0xBFE001;
  1498.  
  1499.     ChangeSprite(&WorkScreen->ViewPort,&Cursor,ChipBlank);
  1500.     RequesterWindow.LeftEdge = 41;
  1501.     RequesterWindow.TopEdge = 20;
  1502.     RequesterWindow.Width = 558;
  1503.     RequesterWindow.Height = 82;
  1504.     RequesterWindow.Title = NULL;
  1505.     RequesterWindow.Screen = WorkScreen;
  1506.     RequesterWindow.FirstGadget = NULL;
  1507.     InitRequester(&FileSelectBox);
  1508.     FileSelectBox.LeftEdge = 4;
  1509.     FileSelectBox.TopEdge = 2;
  1510.     FileSelectBox.Width = 550;
  1511.     FileSelectBox.Height = 90;
  1512.     FileSelectBox.ReqText = &AboutProgText;
  1513.     FileSelectBox.BackFill = 7;
  1514.     if(!(ReqWindow = (struct Window *) OpenWindow(&RequesterWindow)))
  1515.     {
  1516.     ChangeSprite(&WorkScreen->ViewPort,&Cursor,ChipCursor);
  1517.         return(FALSE);
  1518.     }
  1519.     Request(&FileSelectBox, ReqWindow);
  1520.     Waiting = TRUE;
  1521.     while(Waiting)
  1522.     {
  1523.     if(!((*LeftMouse & 0x40) == 0x40)) Waiting = FALSE;
  1524.     }
  1525.     EndRequest(&FileSelectBox, ReqWindow);
  1526.     if (ReqWindow)  CloseWindow(ReqWindow);
  1527.     ChangeSprite(&WorkScreen->ViewPort,&Cursor,ChipCursor);
  1528.     return((int)Answer);
  1529. }
  1530. /************************************************************************
  1531. *               Load ANSI from Disk                *
  1532. ************************************************************************/
  1533. LoadANSI(loadtype)
  1534. BOOL loadtype;
  1535. {
  1536.     FILE *ansiin;
  1537.     BOOL Answer;
  1538.     char ch;
  1539.     int cx = 1, cy = 1, fcolour = 1, bcolour = 0;
  1540.     int esclength, semicount, scanplace, actualnum, biggerbit;
  1541.     BOOL endofit;
  1542.  
  1543.     struct IntuiText LoadingText =
  1544.     {
  1545.     4,7,JAM2,122,11,NULL,"Loading ANSI from disk.  Please Wait.",NULL
  1546.     };
  1547.     ChangeSprite(&WorkScreen->ViewPort,&Cursor,ChipBlank);
  1548.     if(loadtype == TRUE)
  1549.     Answer = MakeFileReq("Load");
  1550.     else
  1551.     Answer = MakeFileReq("Append Load");
  1552.     if (Answer == FALSE) 
  1553.     {
  1554.     ChangeSprite(&WorkScreen->ViewPort,&Cursor,ChipCursor);
  1555.     return(FALSE);
  1556.     }
  1557.     if (!(ansiin = fopen(FileBuffer,"r")))
  1558.     {
  1559.         GenErrorReq("File can't open for read!");
  1560.     ChangeSprite(&WorkScreen->ViewPort,&Cursor,ChipCursor);
  1561.         return(FALSE);
  1562.     }
  1563. /***** Start Loading *****/
  1564.     if (loadtype == TRUE)
  1565.     {
  1566.     FreeAllMem();
  1567.     ClearWorkWindow();
  1568.     }
  1569.     InitRequester(&FileSelectBox);
  1570.     FileSelectBox.LeftEdge = 50;
  1571.     FileSelectBox.TopEdge = 85;
  1572.     FileSelectBox.Width = 540;
  1573.     FileSelectBox.Height = 30;
  1574.     FileSelectBox.ReqText = &LoadingText;
  1575.     FileSelectBox.BackFill = 7;
  1576.     Request(&FileSelectBox, WorkWindow);
  1577.     while((ch = getc(ansiin)) != EOF)
  1578.     {
  1579.     switch(ch)
  1580.     {
  1581.         case ESC :
  1582.         esclength = semicount = 0;
  1583.         do {
  1584.             ch = getc(ansiin);
  1585.             Buffer[esclength] = ch;
  1586.             esclength++;
  1587.             if (ch == ';') ++semicount;
  1588.            } while (ch == '[' || ch == ';' ||
  1589.             (ch >= '0' && ch <= '9'));
  1590.         Buffer[esclength] = NULL;
  1591.         switch(Buffer[esclength-1])
  1592.         {
  1593.             case 'm':
  1594.             if (esclength == 3 && Buffer[1] == '0')
  1595.             {
  1596.                 fcolour = 1; bcolour = 0;
  1597.                 break;
  1598.             }
  1599.             else
  1600.             {
  1601.                 scanplace = 0; endofit = TRUE;
  1602.                 while(endofit)
  1603.                 {
  1604.                 actualnum = numscan(Buffer,&scanplace);
  1605.                 if (actualnum == -1) endofit = FALSE;
  1606.                 switch(actualnum)
  1607.                 {
  1608.                     case 0:
  1609.                     biggerbit = 0;
  1610.                     break;
  1611.                     
  1612.                     case 1:
  1613.                     biggerbit = 1;
  1614.                     break;
  1615.                     
  1616.                     case 30:
  1617.                     if(biggerbit == 1) fcolour = 8;
  1618.                     else fcolour = 0;
  1619.                     break;
  1620.                     
  1621.                     case 31:
  1622.                         if(biggerbit == 1) fcolour = 9;
  1623.                     else fcolour = 1;
  1624.                     break;
  1625.                     
  1626.                     case 32:
  1627.                         if (biggerbit == 1) fcolour = 10;
  1628.                     else fcolour = 2;
  1629.                     break;
  1630.                     
  1631.                     case 33:
  1632.                         if (biggerbit == 1) fcolour = 11;
  1633.                     else fcolour = 3;
  1634.                     break;
  1635.                     
  1636.                     case 34:
  1637.                     if (biggerbit == 1) fcolour = 12;
  1638.                     else fcolour = 4;
  1639.                     break;
  1640.                     
  1641.                     case 35:
  1642.                     if (biggerbit == 1) fcolour = 13;
  1643.                     else fcolour = 5;
  1644.                     break;
  1645.                     
  1646.                     case 36:
  1647.                         if (biggerbit == 1) fcolour = 14;
  1648.                     else fcolour = 6;
  1649.                     break;
  1650.                     
  1651.                     case 37:
  1652.                         if (biggerbit == 1) fcolour = 15;
  1653.                     else fcolour = 7;
  1654.                     break;
  1655.                     
  1656.                     case 40: bcolour = 0; break;
  1657.                     case 41: bcolour = 1; break;
  1658.                     case 42: bcolour = 2; break;
  1659.                     case 43: bcolour = 3; break;
  1660.                     case 44: bcolour = 4; break;
  1661.                     case 45: bcolour = 5; break;
  1662.                     case 46: bcolour = 6; break;
  1663.                     case 47: bcolour = 7; break;
  1664.                 }
  1665.                 }
  1666.             }
  1667.             break;
  1668.  
  1669.             case 'H':
  1670.             if(esclength == 2)
  1671.             {
  1672.                 cx = MINWIDTH; cy = MINHEIGHT;
  1673.             }
  1674.             else if(semicount == 1)
  1675.             {
  1676.                 scanplace = 0;
  1677.                 actualnum = numscan(Buffer,&scanplace);
  1678.                 if (actualnum >= MINHEIGHT && actualnum <=
  1679.                 MAXHEIGHT) cy = actualnum;
  1680.                 actualnum = numscan(Buffer,&scanplace);
  1681.                 if (actualnum >= MINWIDTH && actualnum <=
  1682.                 MAXWIDTH) cx = actualnum;
  1683.             }
  1684.             else if(semicount == 0 && esclength > 2)
  1685.             {
  1686.                 scanplace = 0;
  1687.                 actualnum = numscan(Buffer,&scanplace);
  1688.                 if (actualnum >= MINHEIGHT && actualnum <=
  1689.                 MAXHEIGHT) cy = actualnum;
  1690.                 cx = MINWIDTH;
  1691.             }
  1692.             break;
  1693.             
  1694.             case CURSOR_UP:
  1695.             scanplace = 0;
  1696.             actualnum = numscan(Buffer,&scanplace);
  1697.             if (actualnum == -1) cy--;
  1698.             else cy -= actualnum;
  1699.             if(cy < MINHEIGHT) cy = MINHEIGHT;
  1700.             break;
  1701.  
  1702.             case CURSOR_DOWN:
  1703.             scanplace = 0;
  1704.             actualnum = numscan(Buffer,&scanplace);
  1705.             if (actualnum == -1) cy++;
  1706.             else cy += actualnum;
  1707.             if(cy > MAXHEIGHT) cy = MAXHEIGHT;
  1708.             break;
  1709.  
  1710.             case CURSOR_RIGHT:
  1711.             scanplace = 0;
  1712.             actualnum = numscan(Buffer,&scanplace);
  1713.             if (actualnum == -1) cx++;
  1714.             else cx += actualnum;
  1715.             if(cx > MAXWIDTH) cx = MAXWIDTH;
  1716.             break;
  1717.  
  1718.             case CURSOR_LEFT:
  1719.             scanplace = 0;
  1720.             actualnum = numscan(Buffer,&scanplace);
  1721.             if (actualnum == -1) cx--;
  1722.             else cx -= actualnum;
  1723.             if(cx < MINWIDTH) cx = MINWIDTH;
  1724.             break;
  1725.         }
  1726.         break;
  1727.         
  1728.         case LINEFEED : 
  1729.         cx = MINWIDTH;
  1730.         cy++;
  1731.         if (cy > MAXHEIGHT) cy = MAXHEIGHT;
  1732.         break;
  1733.  
  1734.         default :
  1735.         if (ch < 32 || ch == 127) break;
  1736.         sdlstptr = lastptr;
  1737.         lastptr = (struct ANSI *) malloc(sizeof(struct ANSI));
  1738.         if (lastptr == NULL) break;
  1739.         middle = lastptr;
  1740.         sdlstptr->next = lastptr;
  1741.         lastptr->previous = sdlstptr;
  1742.         lastptr->next = NULL;
  1743.         lastptr->letter = ch;
  1744.         lastptr->x = cx;
  1745.         lastptr->y = cy;
  1746.         lastptr->fcolour = fcolour;
  1747.         lastptr->bcolour = bcolour;
  1748.         cx++;
  1749.         if(cx > MAXWIDTH)
  1750.         {
  1751.             cx = MINWIDTH; cy++;
  1752.             if (cy > MAXHEIGHT) cy=MAXHEIGHT;
  1753.         }
  1754.     }
  1755.     }    
  1756.     fclose(ansiin);
  1757.     EndRequest(&FileSelectBox, WorkWindow);
  1758.     PlayBack();
  1759.     ChangeSprite(&WorkScreen->ViewPort,&Cursor,ChipCursor);
  1760.     return(TRUE);
  1761. }
  1762. numscan(str,place)
  1763. char *str;
  1764. int *place;
  1765. {
  1766.     int num, holder;
  1767.     char convert[11];
  1768.     
  1769.     holder = *place;
  1770.     while(str[holder] < '0' || str[holder] > '9')
  1771.     {
  1772.     if(str[holder] == NULL)    return(-1);
  1773.     holder++;
  1774.     }
  1775.     num = atoi(&str[holder]);
  1776.     sprintf(convert,"%d",num);
  1777.     holder += strlen(convert);
  1778.     *place = holder;
  1779.     return(num);
  1780. }
  1781. /************************************************************************
  1782. *                           Save ANSI to disk                           *
  1783. ************************************************************************/
  1784. SaveANSI(savetype)
  1785. BOOL savetype;
  1786. {
  1787.     FILE *ansiout;
  1788.     struct ANSI *behindptr;
  1789.     BOOL Answer;
  1790.     short int bit8;
  1791.     int truefcol, truebcol, linelength, xpos, ypos;
  1792.     char outputstr[41], endofline[41], savetypechr[2];
  1793.     
  1794.     struct IntuiText SavingText =
  1795.     {
  1796.     4,7,JAM2,134,11,NULL,"Saving ANSI to disk.  Please Wait.",NULL
  1797.     };
  1798.     ChangeSprite(&WorkScreen->ViewPort,&Cursor,ChipBlank);
  1799.     if(savetype == TRUE)
  1800.     {
  1801.     savetypechr[0] = 'w';
  1802.     savetypechr[1] = NULL;
  1803.     Answer = MakeFileReq("Save");
  1804.     }
  1805.     else
  1806.     {
  1807.     savetypechr[0] = 'a';
  1808.     savetypechr[1] = NULL;
  1809.     Answer = MakeFileReq("Append Save");
  1810.     }
  1811.     if (Answer == FALSE) 
  1812.     {
  1813.     ChangeSprite(&WorkScreen->ViewPort,&Cursor,ChipCursor);
  1814.     return(FALSE);
  1815.     }
  1816.     if (!(ansiout = fopen(FileBuffer,savetypechr)))
  1817.     {
  1818.         GenErrorReq("File can't open for write!");
  1819.     ChangeSprite(&WorkScreen->ViewPort,&Cursor,ChipCursor);
  1820.         return(FALSE);
  1821.     }
  1822. /***** Start Saving *****/
  1823.     InitRequester(&FileSelectBox);
  1824.     FileSelectBox.LeftEdge = 50;
  1825.     FileSelectBox.TopEdge = 85;
  1826.     FileSelectBox.Width = 540;
  1827.     FileSelectBox.Height = 30;
  1828.     FileSelectBox.ReqText = &SavingText;
  1829.     FileSelectBox.BackFill = 7;
  1830.     Request(&FileSelectBox, WorkWindow);
  1831.     fprintf(ansiout,"%c[0m%c[H%c[J",ESC,ESC,ESC);
  1832.     linelength = 10;
  1833.     for(lastptr=storage.next; lastptr != NULL; lastptr = lastptr->next)
  1834.     {
  1835.         behindptr = lastptr->previous;
  1836.     xpos = behindptr->x+1; ypos = behindptr->y;
  1837.     if(xpos > MAXWIDTH)
  1838.     {
  1839.         xpos = MINWIDTH;
  1840.         ypos++;
  1841.         if(ypos > MAXHEIGHT) ypos = MAXHEIGHT;
  1842.     }    
  1843. /***** Check for colour changes *****/
  1844.         if((lastptr->fcolour != behindptr->fcolour) ||
  1845.         (lastptr->bcolour != behindptr->bcolour))
  1846.         {
  1847.         truefcol = lastptr->fcolour;
  1848.         truebcol = lastptr->bcolour;
  1849.         if(behindptr->bcolour == lastptr->bcolour)
  1850.         {
  1851.         if(FirstWorkScreen.Depth <= 3 && truefcol < 8)
  1852.             sprintf(outputstr,"%c[3%dm",ESC,truefcol);
  1853.         else
  1854.         {
  1855.                 if(truefcol&8) bit8 = 1; else bit8 = 0;
  1856.                 sprintf(outputstr,"%c[%d;3%dm",ESC,bit8,truefcol&7);
  1857.         }
  1858.         }
  1859.         else if(behindptr->fcolour == lastptr->fcolour)
  1860.         {
  1861.         sprintf(outputstr,"%c[4%dm",ESC,truebcol);
  1862.         }
  1863.         else
  1864.         {
  1865.             if(FirstWorkScreen.Depth <= 3 && truefcol < 8)
  1866.             sprintf(outputstr,"%c[3%d;4%dm",ESC,truefcol,truebcol);
  1867.         else
  1868.         {
  1869.             if(truefcol&8) bit8 = 1; else bit8 = 0;
  1870.                 sprintf(outputstr,"%c[%d;3%d;4%dm",ESC,bit8,truefcol&7,
  1871.             truebcol);
  1872.         }
  1873.         }
  1874.             linelength += strlen(outputstr);
  1875.             if((linelength+1) >= maxlinelength)
  1876.             {
  1877.         sprintf(endofline,"%c%c[%d;%dH",RETURN,ESC,ypos,xpos);
  1878.                 fprintf(ansiout,"%s",endofline);
  1879.                 linelength = strlen(endofline);
  1880.         linelength += strlen(outputstr);
  1881.             }
  1882.             fprintf(ansiout,"%s",outputstr);
  1883.         }
  1884. /***** Check for position changes *****/
  1885.         if((lastptr->x != xpos) || (lastptr->y != ypos))
  1886.         {
  1887.         if(xpos == lastptr->x && ypos > lastptr->y)
  1888.         {
  1889.         if(ypos - lastptr->y == 1)
  1890.             sprintf(outputstr,"%c[A",ESC);
  1891.         else
  1892.             sprintf(outputstr,"%c[%dA",ESC,ypos - lastptr->y);
  1893.         }
  1894.         else if(xpos == lastptr->x && ypos < lastptr->y)
  1895.         {
  1896.         if(lastptr->y - ypos == 1)
  1897.             sprintf(outputstr,"%c[B",ESC);
  1898.         else
  1899.             sprintf(outputstr,"%c[%dB",ESC,lastptr->y - ypos);
  1900.         }
  1901.         else if(xpos < lastptr->x && ypos == lastptr->y)
  1902.         {
  1903.         if(lastptr->x - xpos == 1)
  1904.             sprintf(outputstr,"%c[C",ESC);
  1905.         else
  1906.             sprintf(outputstr,"%c[%dC",ESC,lastptr->x - xpos);
  1907.         }
  1908.         else if(xpos > lastptr->x && ypos == lastptr->y)
  1909.         {
  1910.         if(xpos - lastptr->x == 1)
  1911.             sprintf(outputstr,"%c[D",ESC);
  1912.         else
  1913.             sprintf(outputstr,"%c[%dD",ESC,xpos - lastptr->x);
  1914.         }
  1915.         else
  1916.         sprintf(outputstr,"%c[%d;%dH",ESC,lastptr->y,lastptr->x);
  1917.         linelength += strlen(outputstr);
  1918.         if((linelength+1) >= maxlinelength)
  1919.         {
  1920.         fprintf(ansiout,"%c",RETURN);
  1921.         sprintf(outputstr,"%c[%d;%dH",ESC,lastptr->y,lastptr->x);
  1922.         linelength = strlen(outputstr);
  1923.         }
  1924.         fprintf(ansiout,"%s",outputstr);
  1925.         }
  1926. /***** Print the actual character *****/
  1927.         if((linelength+1) >= maxlinelength)
  1928.         {
  1929.             fprintf(ansiout,"%c",RETURN);
  1930.             sprintf(outputstr,"%c[%d;%dH",ESC,lastptr->y,lastptr->x);
  1931.             fprintf(ansiout,"%s",outputstr);
  1932.             linelength = strlen(outputstr);
  1933.         }
  1934.         fprintf(ansiout,"%c",lastptr->letter);
  1935.         linelength++;
  1936.     }
  1937.     lastptr = sdlstptr->next;
  1938.     fclose(ansiout);
  1939.     changes = FALSE;
  1940.     EndRequest(&FileSelectBox, WorkWindow);
  1941.     ChangeSprite(&WorkScreen->ViewPort,&Cursor,ChipCursor);
  1942.     return(TRUE);
  1943. }
  1944. /************************************************************************
  1945. *                Make File Requester                *
  1946. ************************************************************************/
  1947. MakeFileReq(string)
  1948. char *string;
  1949. {
  1950.     int error, formula;
  1951.     struct Gadget *GadgetPtr;
  1952.     struct IntuiMessage *ReqMess;
  1953.     struct FILEINFO GetFilename;
  1954.     USHORT GadgetID;
  1955.     ULONG MessageClass;
  1956.     BOOL Waiton = TRUE, readdir = TRUE;
  1957.     char names[3000], *pointers[300], *showme;
  1958.     short int count=0;
  1959.     
  1960.     RequesterWindow.LeftEdge = 155;
  1961.     RequesterWindow.TopEdge = 25;
  1962.     RequesterWindow.Width = 330;
  1963.     RequesterWindow.Height = 147;
  1964.     RequesterWindow.Title = (UBYTE *)string;
  1965.     RequesterWindow.Screen = WorkScreen;
  1966.     RequesterWindow.FirstGadget = &OK;
  1967.  
  1968.     for (error=0; error<8; error++)
  1969.     {
  1970.     ReqFiles[error] = FileNameGadget;
  1971.     FileStInfo[error] = GenStrInfo;
  1972.     FileStInfo[error].IText = (UBYTE *)&FileStr[error];
  1973.     ReqFiles[error].TopEdge = 33 + error * 9;
  1974.     ReqFiles[error].GadgetID = 20 + error;
  1975.     ReqFiles[error].GadgetText = &FileStInfo[error];
  1976.     ReqFiles[error].NextGadget = &ReqFiles[error+1];
  1977.     }
  1978.     ReqFiles[7].NextGadget = NULL;
  1979.     
  1980.     if(!(ReqWindow = (struct Window *) OpenWindow(&RequesterWindow)))
  1981.         return(FALSE);
  1982.     if(error = chdir(PathBuffer))
  1983.     GenErrorReq("No directory!");
  1984.     while (Waiton)
  1985.     {
  1986.         if(ReqMess = (struct IntuiMessage *)
  1987.            GetMsg(ReqWindow->UserPort))
  1988.         {
  1989.         MessageClass = ReqMess->Class;
  1990.         GadgetPtr = (struct Gadget *) ReqMess->IAddress;
  1991.         ReplyMsg(ReqMess);
  1992.         GadgetID = GadgetPtr->GadgetID;
  1993.         if (MessageClass == GADGETUP)
  1994.         {
  1995.         if (GadgetID >= 20 && GadgetID <= 27)
  1996.         {
  1997.             if(FileStr[GadgetID-20][0] != '»')
  1998.             {
  1999.             error = strcmp(FileStr[GadgetID-20],FileBuffer);
  2000.             if(error)
  2001.             {
  2002.                 strcpy(FileBuffer,FileStr[GadgetID-20]);
  2003.                 RefreshGList(&File,ReqWindow,NULL,1);
  2004.             }
  2005.             else
  2006.             {
  2007.                 if (ReqWindow)  CloseWindow(ReqWindow);
  2008.                 return(TRUE);
  2009.             }
  2010.             }
  2011.             else
  2012.             {
  2013.             chdir(&FileStr[GadgetID-20][1]);
  2014.             getcd(0,PathBuffer);
  2015.                 readdir = TRUE;
  2016.             count = 0;
  2017.             }
  2018.             RefreshGList(&Path,ReqWindow,NULL,1);
  2019.         }
  2020.         else switch(GadgetID)
  2021.         {
  2022.             case 4:     /* The "Path" Gadget */
  2023.             if(error = chdir(PathBuffer))
  2024.             GenErrorReq("No such directory!");
  2025.             else
  2026.             {
  2027.                 readdir = TRUE;
  2028.             count = 0;
  2029.             }
  2030.             break;
  2031.  
  2032.             case 1:     /* The "Cancel" Gadget */
  2033.             if (ReqWindow)  CloseWindow(ReqWindow);
  2034.             return(FALSE);
  2035.             break;
  2036.             
  2037.             case 2:    /* The "OK" Gadget */
  2038.             Waiton = FALSE;
  2039.             break;
  2040.             
  2041.             case 3:    /* The "File" Gadget */
  2042.             Waiton = FALSE;
  2043.             break;
  2044.  
  2045.             case 5:    /* The "Slider" Gadget */
  2046.             if(count > 8)
  2047.             {
  2048.             formula = SlideInfo.VertPot/(65535/(count-8));
  2049.             showfiles(&pointers[formula],count);
  2050.             }
  2051.             break;
  2052.             
  2053.             case 6:    /* The "Parent" Gadget */
  2054.             chdir("/");
  2055.             getcd(0,PathBuffer);
  2056.             RefreshGList(&Path,ReqWindow,NULL,1);
  2057.             readdir = TRUE;
  2058.             count = 0;
  2059.         }
  2060.         }
  2061.         }
  2062.     if(readdir)
  2063.     {
  2064.         if(count < 1)
  2065.         {
  2066.         showme = &names[0];
  2067.         error = dfind(&GetFilename,"#?",1);
  2068.         if(error == 0)
  2069.         {
  2070.             if(GetFilename.fib_DirEntryType > 0)
  2071.             showme = (char *)stpcpy(showme,"»");
  2072.             showme = (char *)stpcpy(showme,&GetFilename.fib_FileName[0]);
  2073.             showme++;
  2074.             *(showme) = NULL;
  2075.             count = strbpl(pointers,300,names);
  2076.             SlideInfo.VertPot = 0;
  2077.             SlideInfo.VertBody = 65535;
  2078.             showfiles(pointers,count);
  2079.             RefreshGList(&Slide,ReqWindow,NULL,1);
  2080.         }
  2081.         else 
  2082.         {
  2083.             readdir = FALSE;
  2084.             for(error = 0; error < sizeof(names); ++error)
  2085.             names[error] = NULL;
  2086.             count = strbpl(pointers,300,names);
  2087.             showfiles(pointers,count);
  2088.         }
  2089.         }
  2090.         else
  2091.         {
  2092.         error = dnext(&GetFilename);
  2093.         if(error == 0 && (showme+32 < names+sizeof(names)))
  2094.         {
  2095.             if(GetFilename.fib_DirEntryType > 0)
  2096.                 showme = (char *)stpcpy(showme,"»");
  2097.             showme = (char *)stpcpy(showme,&GetFilename.fib_FileName[0]);
  2098.             ++count; ++showme;
  2099.             *(showme) = NULL;
  2100.             count = strbpl(pointers,300,names);
  2101.             if (count > 8)
  2102.             {
  2103.             SlideInfo.VertBody = (65535/count)*8;
  2104.             formula = SlideInfo.VertPot/(65535/(count-8));
  2105.             showfiles(&pointers[formula],count);
  2106.             }
  2107.             else
  2108.             {
  2109.             SlideInfo.VertBody = 65535;
  2110.             showfiles(pointers,count);
  2111.             }
  2112.             RefreshGList(&Slide,ReqWindow,NULL);
  2113.         }
  2114.         else
  2115.         {
  2116.             readdir = FALSE;
  2117.             tqsort(pointers,count);
  2118.             showfiles(pointers,count);
  2119.             SlideInfo.VertPot = 0;
  2120.             RefreshGList(&Slide,ReqWindow,NULL,1);
  2121.         }
  2122.         }
  2123.     }
  2124.     }
  2125.     if (ReqWindow)  CloseWindow(ReqWindow);
  2126.     return(TRUE);
  2127. }
  2128. showfiles(strstuff,max)
  2129. char *strstuff[];
  2130. int max;
  2131. {
  2132.     int i;
  2133.  
  2134.     for(i = 0; i < 8; i++)
  2135.     {
  2136.     sprintf(FileStr[i],"%-30s","                              ");
  2137.     if(i > max)
  2138.     {
  2139.         RefreshGList(&ReqFiles[i],ReqWindow,NULL,1);
  2140.     }
  2141.     else
  2142.     {
  2143.         sprintf(FileStr[i],"%-30s",strstuff[i]);
  2144.         RefreshGList(&ReqFiles[i],ReqWindow,NULL,1);
  2145.         strcpy(FileStr[i],strstuff[i]);
  2146.     }
  2147.     }
  2148.     return(TRUE);
  2149. }