1000 ! TSTINF - Display Return Codes for INFLD.SBR From Microsabio
1005
1010 ! **** Written 12/87 by Brion Norton ****
1015 ! **** Seattle Refrigeration & Manufacturing ****
1020 ! **** Seattle, Washington ****
1025
1030 ! This program is intended as an instructional tool for teaching
1035 ! programmers the basics of using INFLD.SBR to enter data in a
1040 ! BASIC program. INFLD has many features beyond those that can
1045 ! be tested in this program.
1050
1055 ! Program uses INFLD.SBR to enter parameters for INFLD.SBR
1060 ! No other external subroutines are called
1065
1070 MAP1 INPUT'PARMS
1075 MAP2 EXCODE,F ! Exit Code
1080 MAP2 INXCTL,F ! Input Control (see AlphaAccounting INPUT)
1085 MAP2 REPEAT,F,,0 ! Default Control
1090 MAP2 TIMER,F,,0 ! Time-out Value (seconds)
1095 MAP2 ENTRY,S,50 ! Input Buffer
1100 MAP1 I'CTLX
1105 MAP2 IROW,S,2 ! Screen Row
1110 MAP2 COM1,S,1 ! Delimiter
1115 MAP2 ICOL,S,2 ! Screen Column
1120 MAP2 COM2,S,1 ! Delimiter
1125 MAP2 IMAX,S,2 ! Maximum Field Length
1130 MAP2 COM3,S,1 ! Delimiter
1135 MAP2 IMIN,S,2 ! Minimum Field Length
1140 MAP2 COM4,S,1 ! Delimiter
1145 MAP2 ITYP,S,24 ! Data Field Type Code(s)
1150 MAP1 ICTL,S,36,@I'CTLX ! Entry Control Variable
1155
1160 MAP1 MISCELLANY
1165 MAP2 DTIM,F ! Data Entry Time-out (seconds)
1170 MAP2 L,F ! String Length
1175 MAP2 X,F ! Work Variable
1180 MAP2 BLNK15,S,15,SPACE$(15)
1185 MAP2 DMAX,S,2 ! Data Field Maximum Size
1190 MAP2 DMIN,S,2 ! Data Field Minimum size
1195 MAP2 DTYP,S,10 ! Data Field Type Code(s)
1200
1205 ! =======================[ BEGIN PROGRAM ]========================
1210
1215 BEGIN:
1220 PRINT TAB(-1,0); TAB(1,21); "INFLD.SBR Return Codes and Data Formats";
1225 PRINT TAB(1,63); TAB(-1,33); TAB(1,18); TAB(-1,32);
1230 TIMER = 0
1235 TYP:
1240 PRINT TAB(4,24); " DATA TYPE: "; TAB(-1,9);
1245 REPEAT = 1 : ENTRY = DTYP ! load default type
1250 ICTL = "04,41,10,01,A]:" : CALL INPUT ! position cursor, enter data
1255 DTYP = ENTRY ! load type variable
1260 MAX:
1265 PRINT TAB(6,24); "MAX FIELD SIZE: "; TAB(-1,9);
1270 REPEAT = 1 : ENTRY = STR(VAL(DMAX)) ! load default maximum size
1275 ICTL = "06,41,02,00,#3:" : CALL INPUT ! position cursor, enter data
1280 X = VAL(ENTRY) : IF (X > 38) THEN &
CALL TOO'BIG : GOTO MAX ! too big for screen display
1285 DMAX = STR(X) USING "#Z" ! load maximum size variable
1290 IF (EXCODE = 3) THEN GOTO TYP ! up arrow to data type
1295 MIN:
1300 PRINT TAB(7,24); "MIN FIELD SIZE: "; TAB(-1,9);
1305 REPEAT = 1 : ENTRY = STR(VAL(DMIN)) ! load dafult minimum size
1310 ICTL = "07,41,02,00,#3:" : CALL INPUT ! position cursor, enter data
1315 X = VAL(ENTRY)
1320 DMIN = STR(X) USING "#Z" ! load minimum size variable
1325 IF (EXCODE = 3) THEN GOTO MAX ! up arrow to maximum size
1330 TIM:
1335 PRINT TAB(9,24); " TIME-OUT TIME: "; TAB(-1,9);
1340 REPEAT = 1 : ENTRY = STR(DTIM) ! load dafault time-out
1345 ICTL = "09,41,03,00,#3:" : CALL INPUT ! position cursor, enter data
1350 DTIM = VAL(ENTRY) ! load time-out variable
1355 IF (EXCODE = 3) THEN GOTO MIN ! up arrow to minimum size
1360 ICTL = "13,41,00,00," ! start loading control field
1365 IMAX = DMAX : IMIN = DMIN : ITYP = DTYP : TIMER = DTIM
1370 PRINT TAB(11,24); " CONTROL CODE: "; ICTL; TAB(-1,9);
1375 PRINT TAB(13,24); "KEYBOARD ENTRY: "; TAB(-1,9);
1380 IF (TIMER => 1) THEN CALL INPTIM ELSE CALL INPUT
1385 L = LEN(ENTRY)
1390 PRINT TAB(15,4); "( Length = "; STR(L); " )";
1395 PRINT TAB(15,24); " INPUT BUFFER: "; ENTRY;
1400 PRINT TAB(17,24); " INPUT CONTROL: "; STR(INXCTL);
1405 PRINT TAB(19,24); " EXIT CODE: "; STR(EXCODE);
1410 PRINT TAB(23,17); "Press RETURN To Continue "; &
"or ESCAPE To Quit"; TAB(-1,10); &
TAB(23,55); TAB(-1,33); TAB(23,46); TAB(-1,32); &
TAB(23,31); TAB(-1,33); TAB(23,22); TAB(-1,32);
1415 ICTL = "23,65,01,00,CI1:" : CALL INPUT
1420 IF (EXCODE = 1) THEN GOTO FINISH
1425 PRINT TAB(19,41); TAB(-1,9);
1430 PRINT TAB(17,41); TAB(-1,9);
1435 PRINT TAB(15,4); BLNK15; TAB(15,41); TAB(-1,9);
1440 GOTO TYP
1445
1450 ! =======================[ END OF PROGRAM ]=======================
1455
1460 FINISH:
1465 PRINT TAB(21,1); TAB(-1,10);
1470 PRINT TAB(22,31); "<<<< FINISH >>>>"; &
TAB(22,44); TAB(-1,33); TAB(22,35); TAB(-1,32)
1475 END
1480
1485 ! ====================[ UTILITY SUBROUTINES ]=====================
1490
1495 ! * Call External INFLD.SBR For Data Input *
1500
1505 INPUT:
1510 XCALL INFLD,IROW,ICOL,IMAX,IMIN,ITYP,ENTRY,INXCTL,1,REPEAT,EXCODE
1515 REPEAT = 0
1520 RETURN
1525
1530 ! * Data Entry With Time-Out *
1535
1540 INPTIM:
1545 XCALL INFLD,IROW,ICOL,IMAX,IMIN,ITYP,ENTRY,INXCTL,1,REPEAT,EXCODE,TIMER
1550 REPEAT = 0
1555 RETURN
1560
1565 ! * Message: Field Size Is Too Big For Screen *
1570
1575 TOO'BIG:
1580 PRINT TAB(24,5); "SORRY, IT WON'T FIT ON THE SCREEN"; CHR$(7);
1585 PRINT TAB(24,51); "Press RETURN To Continue"; CHR$(7);
1590 ICTL = "24,77,01,00,C:" : CALL INPUT
1595 PRINT TAB(24,1); TAB(-1,9);
1600 RETURN
1605
1610 ! End of Program
