PROGRAM VTDEMO C C This program is intended to demonstrate the capabilities of "VT" and C the use of various calls. The frequently occuring statement C CALL ISLEEP(0,0,0,ITICK) causes a wait between actions at the terminal C which should slow the execution of the program sufficiently for the C output to be followed on the listing as it executes on the screen. C The parameter ITICK controls the delay (set initially to 120 ticks = C 2 seconds). C CALL ANSI C C Note that the next statement is essential, if the graphics capability C of the VT100 terminal is to be used. C CALL IPOKE("44,"40000.OR.IPEEK("44)) !Enable lower case output ITICK=120 CALL CLRALL CALL CUP(10,10) TYPE *,'WELCOME TO VTDEMO!' CALL ISLEEP(0,0,0,ITICK) CALL DWL CALL ISLEEP(0,0,0,ITICK) CALL SGS TYPE *,' ooooooooooooooooo' CALL DGS CALL DWL CALL ISLEEP(0,0,0,ITICK) CALL ISLEEP(0,0,0,ITICK) CALL ISLEEP(0,0,0,ITICK) CALL ALIGND CALL ISLEEP(0,0,0,ITICK) CALL CUP(14,40) CALL ISLEEP(0,0,0,ITICK) CALL CLREND CALL ISLEEP(0,0,0,ITICK) CALL RI CALL ISLEEP(0,0,0,ITICK) CALL CLRBEG CALL ISLEEP(0,0,0,ITICK) CALL CUP(20,30) CALL ISLEEP(0,0,0,ITICK) CALL CLRLIN CALL ISLEEP(0,0,0,ITICK) CALL STBM(10,24) CALL ISLEEP(0,0,0,ITICK) CALL CUP(1) CALL ISLEEP(0,0,0,ITICK) CALL DWL CALL ISLEEP(0,0,0,ITICK) CALL CLRLIN CALL ISLEEP(0,0,0,ITICK) TYPE 100 100 FORMAT('+This should be a double width line'$) CALL ISLEEP(0,0,0,ITICK) CALL CUP(2) CALL ISLEEP(0,0,0,ITICK) CALL BIGTOP CALL ISLEEP(0,0,0,ITICK) TYPE 101 101 FORMAT('+This should be a double height line'$) CALL ISLEEP(0,0,0,ITICK) CALL CLREND CALL CUP(3) CALL ISLEEP(0,0,0,ITICK) CALL BIGBOT CALL ISLEEP(0,0,0,ITICK) TYPE 101 CALL ISLEEP(0,0,0,ITICK) CALL CLREND CALL CUP(24) CALL ISLEEP(0,0,0,ITICK) CALL IND CALL ISLEEP(0,0,0,ITICK) CALL IND CALL ISLEEP(0,0,0,ITICK) CALL IND CALL ISLEEP(0,0,0,ITICK) CALL CUP(10) CALL ISLEEP(0,0,0,ITICK) CALL RI CALL ISLEEP(0,0,0,ITICK) CALL RI CALL ISLEEP(0,0,0,ITICK) CALL RI CALL ISLEEP(0,0,0,ITICK) TYPE *,'Now light all LED''s in order, then turn them off' CALL ISLEEP(0,0,0,ITICK) CALL LL(1) CALL ISLEEP(0,0,0,ITICK) CALL LL(2) CALL ISLEEP(0,0,0,ITICK) CALL LL(3) CALL ISLEEP(0,0,0,ITICK) CALL LL(4) CALL ISLEEP(0,0,0,ITICK) CALL LL(10) CALL ISLEEP(0,0,0,ITICK) CALL CUP(10) CALL CLRLIN TYPE *,'Now shift to graphics mode' CALL ISLEEP(0,0,0,ITICK) CALL SGS DO 1 I=1,5 TYPE *,' lqk ' TYPE *,' qqqqqqqvqvqqqqqq ' TYPE *,' / \ ' TYPE *,' /lqqqqqqqqqqqqqqqqk\ ' TYPE *,' xlqk lqk x ' TYPE *,' xmqj mqj x ' TYPE *,' xlqk lqk lqk x ' TYPE *,' xmqj xix mqj x ' TYPE *,' mqqqqqqvqvqqqqqqqj ' TYPE *,'' TYPE *,'' 1 CONTINUE CALL DGS TYPE *,'Now we should be out of graphics mode' CALL ISLEEP(0,0,0,ITICK) TYPE *,'Now we''ll try resetting terminal to original state' CALL ISLEEP(0,0,0,ITICK) CALL RIS CALL EXIT END