home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / EDITORES / TSCREDD1.ZIP / SCRDISK1.EXE / TSCREDIT.OVR (.txt) < prev    next >
Encoding:
Turbo Pascal Overlay  |  1990-05-23  |  104.8 KB  |  479 lines
  1. TPOVU
  2. Dir Mask ? 
  3. Invalid Directory specified..<
  4. Directory <
  5.                
  6.      
  7. <Dir>
  8.           
  9.                              
  10. Press Any Key to continue..!Press Any Key to Return to menu..U
  11.     Undefined
  12. <%> has a file name longer than 8 chars
  13. ** File Name Contains a <
  14. > That
  15. s a  no no **
  16. .'> Copy only uses ".SBK" or ".SCR" Files
  17. *'* Invalid File Name <xxxxxxxx.SCR> OnlyU
  18.  You May Continue..    Undefined
  19. -You cannot edit Turbo ScrEdit`s screens file 
  20. > Exists..Over Lay it Y/N
  21. Create backup screen file <
  22. > (y/n)?
  23. =Not enought disk space for backup -  NO BACKUP FILE CREATED!!#** FILE BACKUP HAS BEEN CANCELED **!> does not exist. Create it? Y/N 
  24. > Is an invalid file name.
  25.                 
  26. Out of Disk Space 
  27. Create file CANCELED
  28.  <ESC> to end program 
  29. *** Copy File <
  30. > Not found in Directory ***    Undefined$Copy file does not contain screens..$ First Screen in "Copy" screen File - This is the last screen in the "COPY" file. U
  31. !This is the First Screen in file.
  32. This is the last screen entry!
  33. No screens are in file..U
  34. Deleted
  35.  Out of disk space <
  36. > Screen not created 
  37. Page[
  38. ] SCREEN NAME =>
  39.                  FILE =>
  40.                BUFFER =>U
  41. L                      =                                =====================
  42.      Number of Fields =>1                            = ---- C O L O R ----
  43.        Starting Field =>1                            = Norm  Pompt DisplayL======================================================== ----- ----- -------LP  P  N                                            T        B      B      B LH  R  E                                   R  C  L  Y     F  A   F  A   F  A LY  E  X                                   O  O  E  P     O  C   O  C   O  C LS  V  T  [         Field Name           ] W  L  N  E     R  K   R  K   R  K L-- -- -- [------------------------------] -- -- -- ----  -- --  -- --  -- --U
  44. Ready Printer...<Esc> to Abort
  45. PrintingP1       10        20        30        40        50        60        70        80P=========|=========|=========|=========|=========|=========|=========|=========|
  46. SCREEN FIELD DEFINITIONS :
  47. ** SCREEN IS NOT COMPILED **
  48. ] M.............................................................................M-----------------------------------------------------------------------------
  49. Press PgUp to Form FeedU
  50. >>qPu!
  51. ITAB:next SHIFT TAB:prev ESC:end  F1:AutoHelp ON/OFF F9:clear F10:set dupe% Display Fields Only - <ESC> to Exit 
  52. TScrEdit.ScrU
  53. ScrEdTmp.Scr
  54.                 
  55. DeletedU
  56.  File Maintenance 
  57.  I/O error <
  58. > detected..I ------------------------------------------------------------------------I Rebuilding the screen file has failed. Enter a new drive and path where " there is enough disk work space <# bytes> to contain the entire file.
  59.  Example: C:\TURBO\NEWPROG\
  60.  File Maintenance Finished U
  61. Menu_Screen
  62. UnregU
  63. PromptN********     This field is already defined -- Any key To continue.    ********
  64.  <F1>=Help [Defining]
  65.  <ESC>=Exit 
  66. Display Data
  67. [Normal] B<
  68. [Prompt] B<
  69. [Display] B<
  70. > <F1>=Help           U
  71.  <ESC> to end program     Undefined
  72.  Load work file - CANCELED 
  73.  Load copy file - CANCELED 
  74.  Delete request CANCELED! 
  75.  Rename request CANCELED! 
  76.  Add screen request CANCELED! / A screen name must be provied - Esc to Abort. %ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_0 Screen name must begin with an alpha character # Invalid character in screen name. 
  77. Screen name already exists!
  78. Deleted
  79. Maxavail =
  80.    Memavail =
  81. ** No Work File Loaded **
  82. A!** You must ADD a screen first **
  83. ** Screen must be compiled **
  84. ** No File To Edit **
  85. ** No Screen to Edit **, Save Screen (Y/N) <ESC> to continue editing
  86. / Screen must be compiled before you can use it 
  87. Menu_Screen
  88. ** No work file To Compile **
  89. ** No Screen to Compile **
  90. ** No work file To List **
  91. ** No Screen to List **# This screen has no fields defined 
  92. ** No EDIT file is opened **
  93.  No COPY file is open 
  94. ** No screen to rename **
  95. ** No screen to delete **
  96. ** File Full **
  97. Enter the new screen name.
  98. Rename <
  99. > to ?  (Press <ESC> to cancel)
  100. Press <Del> Again to delete <
  101. > or <ESC> to abortU
  102.     Undefined
  103.  <ESC> to end program 
  104.  ** End of Program ** U
  105. #    K    [    f    p    
  106. !'!/!9!>!Z!d!n!|!
  107. #B#U#
  108. #I$k$
  109. $-%b%
  110. &$&)&M&b&
  111. '0']'r'w'
  112. (<(](~(
  113. (.)3)F)K)d)l)
  114. *9*>*M*U*_*d*r*w*
  115. +"+,+:+
  116. ,',/,4,9,N,X,`,e,j,
  117. ,f/|/
  118. 0 0*02070<0N0S0X0j0o0t0
  119. 1O3e3
  120. 4"4Q4
  121. 5)5.535E5J5O5a5f5k5
  122. 7*7D7^7x7
  123. 8.8B8Y8p8}8
  124. 9/9F9]9t9y9~9
  125. :J:O:T:
  126. <0<E<Y<m<
  127. =y=B>f>{>
  128. ?"?0?5?J?^?r?
  129. ?.@8@o@
  130. A5AfA
  131. AlBqB
  132. BECtCyC
  133. C$D)D8D@DjDoD
  134. HaIfI
  135. M-M5M
  136. N%N8N=NVN[NrNzN
  137. O O%O/O4OGOLOZO_OoOtO
  138. Q!Q3QGQ]QgQlQ
  139. R(R<R[RoR
  140. S6SJSiS
  141. T$T7TFTWU
  142. W6WoW
  143. Y%Y/Y9YCYQYiYyY
  144. Z+Z5Z?ZMZeZuZ
  145. Z=[w[
  146. \@\p\
  147. \%]V]
  148. _5_O_
  149. f"fWf
  150. gEg_g|g
  151. g$h)h^hqhvh
  152. i9i\ibili
  153. j2j7jQj|j
  154. k)kGk_kdkpk
  155. l+l4l^mwm
  156. n8nGn
  157. o&oXo]ouozo
  158. q qDqIqXq`qjqoq
  159. q<rQrcrxr
  160. t    t't9tWt
  161. u?uYu
  162. v-vbvzv
  163. w$w.w<w
  164. x#x(x3xU
  165. _BUFFERDEF   = RECORD
  166. STRING[
  167. REAL;
  168.                  
  169.      
  170. :          END;
  171. VAR    _BUF   : 
  172. _BUFFERDEF;
  173. PROCEDURE INITIALIZE_
  174. _BUF;
  175. BEGIN    FILLCHAR(
  176. _BUF,
  177. ,00);
  178. S_STORE_BUF_LOC ('
  179. ,ADDR(
  180. _BUF));
  181. END;U
  182. typedef struct {
  183.     char   
  184.     double 
  185.     }
  186. _BUFFERDEF_TYPE;
  187. _BUFFERDEF_TYPE 
  188. _buf;
  189. void Initialize_
  190. _buf()
  191.     {
  192.     setmem(&
  193. _buf.
  194. ,00);
  195.     S_Store_Buf_Loc ("
  196. ,(char *)&
  197. _buf);U
  198. Creating screen buffer <
  199. Io Error <
  200. > - Check disk space
  201.  - Any Key to Contiue -!Finished creating screen buffer <U
  202. MM2** Error 101 ** Months must be represented as 'MM'
  203. DD0** Error 102 ** Days must be represented as 'DD'
  204. YY;** Error 103 ** Years must be represented as 'YY' or 'YYYY'U
  205. IN )** Error 201** Expected comparison values*** Error 202** a value can not span lines.+** Error 203 ** Unexpected end of statments
  206.    :** Error 204 ** Continueation line must start with (=,\,'):** Error 205 ** Only one (^) can be used in a range value.*** Error 205 ** Expected a message string.+** Error 206 ** Message must end with a (')3** Error 207 ** expected a value or range of values)** Error 208 ** expected end of value (')U
  207. InputString
  208. SKIP IF BLANK
  209. REQ    REQUIRED 
  210. REQUIRED
  211. EDIT 
  212. EDIT F 
  213. ?** ERROR ** Edit Masks allowed only on fields of type  8 and 9.1** ERROR ** Missing EDIT mask part of statement..M** ERROR ** Edit mask must end with single quote " ' " Example:'####-##-####'
  214. I** ERROR ** Last character in edit mask must be # or 3, @ or 2, or $ or 4J** ERROR ** First character in edit mask must be # or 3, @ or 2, or $ or 43** ERROR ** Edit mask does not match field length..
  215. HELP +** ERROR ** Help string must end with " ' ">** ERROR ** HELP requires a 'message inside of single quotes '
  216. SET *** ERROR ** SET string must end with " ' "D** ERROR ** SET requires an 'initial value inside of single quotes '
  217. UP SHIFT ON
  218. UP SHIFT OFF
  219. IF :** Error ** "IF" statements can not follow "IN" statements
  220. ERR9"ERROR" statement is only allowed inside "IF" statements.
  221. ERRO4** Error 0.5 ** Expected feild value test statements%** Error 01 ** Undefined field name <
  222. >:** Error 02 ** Comparison value expected after field name.9** Error 03 ** Comparison value missing after field name.
  223. THEN:** Error 04 ** Expected AND,OR,THEN or (') at end of line.
  224.     7** Error 05 ** IF continuation line must start with (')0** Error 5.1 ** Expected  "THEN" before "ENDIF".
  225. ENDIF'** Error 5.2 ** Missing EndIf statement
  226. ERROR5ERROR statement requires 'a message in single quotes'
  227. ** Error 06 ** If inside If1** ERROR 07 ** Line contains unrcognizable symbolU
  228. Deleted)** Error ** If statement is not complete.U
  229. DeletedU
  230. Deleted
  231. Deleted         U
  232. >Bq1u
  233. TC15ALanguage is currently set to..(use L,P,C)......<Turbo C 1.5>     
  234. TC20ALanguage is currently set to..(use L,P,C)......<Turbo C 2.0>     ALanguage is currently set to..(use L,P,C)......<Turbo Pascal 4.0>
  235. TP50ALanguage is currently set to..(use L,P,C)......<Turbo Pascal 5.0>
  236. TP55ALanguage is currently set to..(use L,P,C)......<Turbo Pascal 5.5>> -------------------------------------------------------------D The following values will be assigned to any new fields names that D have been added to the screen since the last time it was compiled  D To select a different field attribute, press one of the hi-lited   < keys or one of the other keys in the "(use??)" descripiton.>Field type..(use 0 thru 9)...<0>..Integer fields 00000000     >Field type..(use 0 thru 9)...<2>..Decimal fields 000000.0     >Field type..(use 0 thru 9)...<3>..Decimal fields 00000.00     >Field type..(use 0 thru 9)...<4>..Decimal fields 0000.000     >Field type..(use 0 thru 9)...<5>..Decimal fields 000.0000     >Field type..(use 0 thru 9)...<6>..Decimal fields 00.00000     >Field type..(use 0 thru 9)...<7>..Decimal fields 0.000000     >Field type..(use 0 thru 9)...<8>..Alpha only (space, A-Z, a-z)>Field type..(use 0 thru 9)...<9>..Any keyboard character      >Default new fields to be..(use D)....(DISPLAY ONLY/data entry)>Default new fields to be..(use D)....(display only/DATA ENTRY)*Accept the values as shown? (Y)  F1 = Help
  237. Compile_Screen
  238. *    Compiling
  239. F1     
  240.    Help
  241. F2     
  242.  Delete
  243. F3     
  244.  Insert
  245. F5  1st
  246.    line
  247. F6 Last
  248. F7 Prev
  249. F8 Next
  250. ESC    
  251.    ExitG <F1> for Help  <DEL> delete char  <LEFT> & <RIGHT> arrows move cursor U
  252. N The following errors have been detected in this screen:                      )Press any key to continue error listing..
  253.                 
  254. > Row=
  255.  Col=
  256. >1                                                 FPresss <H> for a printer listing of errors - Any other key to continue
  257.  Printing Error Listing U
  258. >>qBu
  259. >>qB}
  260. F1 Help
  261.  System
  262. F2 Edit
  263. Process
  264.        
  265. F5 1st 
  266.   Field
  267. F6 Last
  268. F7 Prev
  269. F8 Next
  270. ESC Ret
  271. To Menu*                             <F1> for helpU
  272. H Not enough disk space to add new fields... Free space before continung.
  273. Type must be 0 or 2 through 9'Display type must be BLANK or <D>isplay( No more processing lines can be added. 
  274. Deleted( End of processing specifications edit. 
  275. TempFile
  276.  Cannot allocate work file on <
  277. > Check disk space. 
  278. Compile_Help
  279. ** Any key to continue **
  280. Compile_ScreenU
  281. Compile_ScreenU
  282.     '    ?    W    
  283.  ' ~ 
  284. !4!9!K!d!w!
  285. "%":"_"
  286. #D#I#[#n#
  287. %/%[%x%
  288. %<&b&g&y&
  289. '?'b'u'
  290. (2([(p(
  291. )+)R)h)
  292. *$*I*S*o*
  293. *%+A+K+p+z+
  294. -"-G-U-_-m-
  295. -R.X.f.x.
  296. 010D0]0s0
  297. 0'1Y1
  298. 162R2n2
  299. 3P3s3
  300. 464I4w4
  301. 6'656C6U6k6y6
  302. 9F9m9
  303. :8:e:
  304. ;Q;V;e;m;
  305. ;q<v<
  306. <\=a=
  307. >5?:?I?Q?n?s?
  308. ?B@G@V@^@
  309. G#G6GKGZGpG
  310. H.HFHeHyH
  311. I1IEIdI
  312. I    J#J=JWJ
  313. K!K1K6KEKMKWK\KgK
  314. L+L<LQLfL
  315. L(M>MVM
  316. O O.OFOPOZO_O
  317. QSQ^QrQ
  318. R,R6RORqR
  319. S4S>SWShS
  320. U/UBUUUhU{U
  321. V&V9VLV
  322. X1XMX^X~X
  323. YdYnY}Y
  324. Z+Z5Z?ZMZiZ
  325. ZW[a[p[
  326. \(\6\H\M\R\f\k\
  327. ]']:]M]`]s]
  328. ^1^D^W^G`
  329. bcbhbwb
  330. c!cCcVchc
  331. g6gig
  332. i.i?i
  333. k6k[k
  334. l.lMlnlvl
  335. r#r<rDr^rhrrr
  336. s%s/s
  337. sDuSuXugu{u
  338. 8** HighLight a block of text **  <F1>= Help  <ESC>= Exit
  339.  <Esc>=Exit <F1>=Help DPostion HighLighted Block and Press ENTER or <F1>= Help  <ESC>= ExitU
  340. ><qPu
  341. )Ins <On>  
  342. )Ins <Off> 
  343. Graph <Off> 
  344. Graph <On>  
  345.  Ctrl+U(
  346. Back<
  347. > [ Color ] For<
  348.  <Esc>=Exit <F1>=Help 
  349. Invalid key stroke.
  350.  Okay to store ? N/Y 
  351. Help_Screen
  352. ** Any key to continue **/Are you sure you want to undo this screen (N,Y)
  353. OkL A Copy Screen File has not been selected from main menu - Any Key Continue M* CURRENT SCREEN * Copy:<B>lock <L>ine - <M>ove:block - <S>wap - <ESC> ResumeM** COPY  SCREEN ** Copy:<B>lock <L>ine <A>ll -  <S>wap - <ESC> resume        
  354. ) Use F10 to define line or box character <Place cursor on top left extreme of box or line and PRESS F7APlace cursor on bottom right extreme of box or line and PRESS F8 
  355. Paint Area Y/N@ Enter "v" an ASCII character code (0 thru 255) <ESC> to Resume I ASCII char code <00-255>  <S>ingle <D>ouble <B>old <P>aint  <ESC> Reset 
  356. <3> ** Invalid ** 0 - 255 only  <RETURN> to continue 
  357.  <Esc>=Exit  S_F1=Help
  358. ><qPu
  359. ><qPu
  360. >>qP~    
  361.  <Esc>=Exit <F1>=Help U
  362. S %!?"2#L$
  363. %'%,%?%m%
  364. &"&>&y&
  365. ' '%'7't'
  366. )6)R)
  367. )A*`*n*x*
  368. J  Specify the DOS directory where the ScrEdit skeleton files are located. 3                         Example: C:\PASCAL\SCREDITJ  If you leave this field blank the current DOS default directory is used.F        What character case do you want the source code to consist of?=                "M" = Mixed characters (upper and lower case):                "U" = convert all characters to upper case>                "L" = Lower case key words for "C" programmersI    Do you want screen buffer definitions be copied into the source file?C        "Y" = Yes, copy screen buffer definitions into source code.D        "N" = No, $I compile directives will be placed in the sourceA              code to include buffer definitions at compile time.GDo you want documentation comments suppressed from the new source file?2                          "Y" = Yes       "N" = No0Specify the programming language you are using..D          TP40 = Turbo Pascal 4.0                 TC15 = Turbo C 1.5D          TP50 = Turbo Pascal 5.0                 TC20 = Turbo C 2.01          TP55 = Turbo Pascal 5.5                7                  Use PGDN key to scroll language types9                   << Press ESC to ABORT - F1 for Help >>U
  369. {----
  370. /*----
  371. ----}
  372. ----*/
  373. **Version**
  374. Uses Dos, Crt, ScrEdit;
  375. #include "ScrEdit.H"
  376. **Buffers**
  377. SkipIt
  378. ** Error reading **
  379. #include "
  380. "/ ** ERROR ** Above screen has not been compiled
  381. **ScreenFileName**
  382. s_openscreenfile(
  383. S_OpenScreenFile(
  384. **InitRoutines**
  385. Initialize_
  386. _Buf;
  387. _buf();
  388. **Screens**
  389. : s_loadscreen(
  390. : S_LoadScreen(
  391.       
  392.             case 
  393. break;U
  394. System_Screen
  395.  Top of Screen Names List 
  396.  End of Screen Names List 
  397.  No screens have been selected 
  398. skeleton.C
  399. skeleton.P
  400. > has not been found
  401. Source File <
  402. > exists.. Continue Y/N
  403. YM                         ** GENERATING SOURCE CODE **                        U
  404. Io Error <
  405. > - Check disk spaceU
  406.  2 G Y j 
  407.  #"("w"
  408. "    #"#,#O#Y#k#
  409. $!$@$E$m$r$y$
  410. % %6%@%R%i%w%|%
  411. & &%&3&8&F&K&`&e&
  412. ' '9'I'S'l'|'
  413. (((2(M(W(r(|(
  414. );)l)
  415. )$                               Page<I-------------------- <C>opyright 1989 by iHn Systems --------------------ITopic                  ScrEdit User Documentation                    PageI-----  ------------------------------------------------------------  ----U
  416. %                                Page<G-----------------------------------------------------------------------0                      ScrEdit User DocumentationU
  417. End of document <
  418. > no match found..End of document. Can not scroll down any more.
  419. > no match found
  420. End Of Text
  421. Top of document <,Top of document. Can not scroll up any more.
  422. Top of document.U
  423. Printing Entire Manual.
  424. Printing Manual Index only.
  425. Printing Topic <
  426. > thru <
  427. I/O error 
  428.  reading manual ** Aborted **
  429.      
  430. Help_ScrU
  431. ** Index **  Press ESC to exit help system. U
  432. ScrEdit Manual
  433.  You MUST define a search string.
  434.  Searching <
  435. Search string ===>
  436. Index line number=>
  437. Topic number =====>
  438. ** Index **" Enter a number from 1 to 21 only 
  439. Enter a number from 1 to 
  440.  only 
  441. Starting Topic# =>:Start topic <##> <E>ntire manual <I>ndex only or ESC=Abort
  442. Ending topic# ==>
  443. Ending topic# or ESC=abort=Ending topic must be greater than or equal to starting topic.
  444. Invalid printing command.U
  445. 1<Su-
  446. ScrEdit Manual
  447. Auto Entry for Topic U
  448. TScrEdit.Sys#** Unable to locate TscrEdit.SYS **
  449. Help_ScrU
  450.  C y 
  451. $1$S%]%b%
  452. %;&P&`&e&
  453. )V)y)
  454. *B*L*_*q*{*
  455. +%+C+X+b+
  456. /y/~/
  457. 0,010H0Z0_0h0
  458. TScrEdit.Sys
  459. ScrEdit Manual
  460. *** TScrEdit.Sys *** 
  461. Registered to 
  462.                          
  463. Licenced to ============>
  464. Registration Number ====>
  465.        All rights reserved!  Unregistered Evaluation Version
  466. F1Key
  467. C:\ScrEdit\Editor\ScrEdit.Exe
  468. TScrEdit.Scr
  469. TSCREDIT.SCR
  470. 2ScrEdit screen file is missing or has been altered    Undefined
  471. tScrEdit.Cfg
  472. Executing 
  473. TScrEdit.Cfg1Unable to Create configuration file - I/O Error <5Press <F1> for Registration Information <ESC> to Exit
  474. Registration
  475.  Press any key to continue 
  476. Intro_Screen>This evaluation version of Turbo ScrEdit displays this messageDto remind you that Turbo ScrEdit is a "user supported" product with Da very low registration fee of $25.00.  Press the F1 key for more   >details on how to order a registered version of this program. 
  477.        All rights reserved&<Esc>=Exit, <F1> for registration info-Please review PrintMe.1st before continuing..U
  478. 3    H    M    1
  479.