Systems Routines Developed by J. Zingalis for Progam Developments May 21,1982 Table of Contents ----------------------- System Definitions .............. Page 1 Isam Definitions ................ Page 2 Isam Routines ................... Page 2 Crt Layouts and Definitions ..... Page 3 File Layouts .................... Page 4 Systems Routines ................ Page 5 Error Definitions ............... Page 6 Program Structure ............... Page 7 Copyright (c) 1982 All Rights Reserved Š Systems Doc Page 1 Systems Definitions ---------------------  Variable Description -------------- ---------------------------------- Bell$ Output Bell to terminal E$ Test for END to terminate CLS$ Clear CRT Screen HOME$ Put Cursor to top of page LI.ER$ Erase line on CRT NOR$ Normal Display on CRT REV$ Reverse Video on CRT X.ER Line value for error messages Y.ER Columb value for error Messages ESC$ Control Character for CRT N# Value used in number crunching X() Line value for display data Y() Colubm value for display data X1() Line value for Input data Y1() Columb value for Input data L() Length of input data Z$() Display Data TIME() Time display variables MO() Date Values Š  Systems Doc Page 2 Define Routines -----------------  FNDI$(X#) Used to convert a string to a double precision number. Uses 4 bytes string FNID#(X$) Used to convert a Double Precision number a 4 byte String. FNPC$(X,Y,L,Z$) Used to Print Display information on CRT. X is the line position and Y is the columb position, where L is the length of the input field and Z$ is the data to be displayed on CRT. (Ex. Print FNPC$(1,1,5,"Name"); ) would print "Name" at the First line first columb of the CRT with 5 dots to show the input length. (Name .....) FNPCTR$(X,Z$) This will print then string z$ on line X and position it in the center of the CRT screen. FNLG(X,X$) This is used to determine the value used in printing data on the center of a line. Ø  determineó  thå Width¬ anä X¤ ió thå string to be printed. FNLPCR$(X$) This is used to print X$ on the center of a line on the printer. FNUB%(X$) Reverse the string value to create an integer value used in Isam. FNBU$(X%) Converts an Integer to a String and reverse character. Š  Systems Doc Page 2 Systems Routines ---------------- Line # Description ----------- --------------------------------------- 50225 Convert Date String to Integer (Two Byte Interger) 50250 Convert Integer to Date String (8 Bytes String 'MM/DD/YR') 51000 Input Routine For Alphanumeric Data X = Line Coordinates Y = Colubm Coordinates Z = Length of Entry Field Z$ = Data Texted 51200 Input Number Routine in Single Precsion. With Lower and Upper Limits. LB! = Lower Limits Value UB! = Upper Limits Value 51300 Input Time Data Using the Following Format. ('HH:MM:SS') 51400 Input Date Data using the Following Format ('DD/MM/YR') 51500 Used to Indicate Date Used 51600 Input Dollar amount routine Double Precision number returned. 51800 Get yes or no value 51900 Set top of form. Š  Systems Doc Page 2 Systems Routines ---------------- Line # Description ----------- --------------------------------------- 52000 Convert Upper Case data to lower case with the first letter in the word being Upper case. (Ex®  CLEVELAND¬  OHIÏ  woulä bå Cleveland, Ohio) 52900 Convert Time to Common Value 52950 Convert Common Value to Time 53000 Set form to top of page 53300 Read Systems Clock 53400 Routine to set Systems clock. 54000 Error message Routines. Codes Error message Values --------- -------------------------------------- 1 Invalid Entry 2 Number out of range 3 Invalid Date 4 Invalid Time 5 Basic error with error code and line 6 Isam error 7 Record Key not found 8 Record Key already exsist 9 Out of Record blocks on Disk 10 File not Found 11 Invalid Password 12 Wrong Password and sign off 13 Disk error 14 Record Deleted from data base Š