KLASMAN3.m

KLASMAN3 ;ROUTINE FOR CLASSROOM CRTS W/INSTRUCTION  PDW/CINCINNATI  ;DEC 18,1990@13:54:58 [ 07/28/93  3:11 PM ]

 ;;1.0

DOC U IO(0)

 W !!," INSTRUCTIONS FOR USING THIS PROGRAM ARE:",!!

 W !,?5,"Press CTRL-",$C(CTRL+64)," followed by:"

 W !,?10,"? ..... Review Instructions"

 W !,?10,"^ ..... Stop and Exit the Class"

 W !,?10,"# ..... Change Command Character"

 W !,?10,"char .. Send CTRL-char (for CTRL Characters that are not transparent)"

 W !,?10,"***********************************"

 W !,?10,"+ ..... Direct Input Mode"

 W !,?10,"* ..... Give Command to a Student"

 W !,?10,"= ..... Switch IO Device"

 W !,?10,"@ ..... Purge Student List"

 W !,?10,"% ..... System Status"

 W !,?10,"***********************************"

 W !,?10,"$ ..... Save Screens"

 W !,?10,"0 ..... Turn Broadcast Off"

 W !,?10,"1 ..... Turn Broadcast On"

 W !,?10,"& ..... Pickup A Class"

 W !,?10,"` ..... Xray View Text Buffer"

 W !!,?5,">> BE SURE TO EXIT YOUR APPLICATION BEFORE STOPPING THE CLASS.  <<"

 U IO(0) W !,"YOU ARE NOW CONNECTED TO YOUR APPLICATION, PLEASE CONTINUE.",!,"------->>ON-LINE MODE<<",!

 Q

PORT ;EP FOR PORT SELECTION

 B

 W !,"CURRENT DEVICE IS  ",ION S P2=ION X:KNAM'=ION ^%ZIS("C") U IO(0) X TERMNORM

 W !,"You are ",$S(KNAM=ION:"ON ",1:"LEAVING "),":",ION,! D:KNAM'=ION ^%ZISC

 S DIC="^%ZIS(1,",DIC(0)="EQMZ",X="KLASDEV",DIC("S")="I ($P(^(0),""^"")=KNAM)!(DIY'[""CLASS"")"

 D ^DIC S IOP=$S(Y>0:Y(0,0),1:KNAM) D ^%ZIS I POP W !,"SORRY ! BUSY !...",! S IOP=KNAM D ^%ZIS G PORT

 W !,"YOU ARE ON :",ION,!,$C(7) H 1 U IO(0) X TERMKLAS W !,"------>>ON LINE MODE<<",! U IO S X=0 X ^%ZOSF("RM"),^("EOFF"),^("TYPE-AHEAD"),^("TRMOFF")

 ;U IO:(0::::801001) ; CODE FOR MSM 2.1 UNIX

 ;U IO:(::::2097152) S X=0 X ^%ZOSF("RM") Q  ; CODE FOR READING SI  CTRL-O FOR DSM-11 FOR DSM

 Q

KLASMAN3  ;ROUTINE FOR CLASSROOM CRTS W/INSTRUCTION  PDW/CINCINNATI  ;DEC 18,1990@13:54:58 [ 07/28/93  3:11 PM ]

 +1       ;;1.0

DOC        USE IO(0)

 +1        WRITE !!," INSTRUCTIONS FOR USING THIS PROGRAM ARE:",!!

 +2        WRITE !,?5,"Press CTRL-",$CHAR(CTRL+64)," followed by:"

 +3        WRITE !,?10,"? ..... Review Instructions"

 +4        WRITE !,?10,"^ ..... Stop and Exit the Class"

 +5        WRITE !,?10,"# ..... Change Command Character"

 +6        WRITE !,?10,"char .. Send CTRL-char (for CTRL Characters that are not transparent)"

 +7        WRITE !,?10,"***********************************"

 +8        WRITE !,?10,"+ ..... Direct Input Mode"

 +9        WRITE !,?10,"* ..... Give Command to a Student"

 +10       WRITE !,?10,"= ..... Switch IO Device"

 +11       WRITE !,?10,"@ ..... Purge Student List"

 +12       WRITE !,?10,"% ..... System Status"

 +13       WRITE !,?10,"***********************************"

 +14       WRITE !,?10,"$ ..... Save Screens"

 +15       WRITE !,?10,"0 ..... Turn Broadcast Off"

 +16       WRITE !,?10,"1 ..... Turn Broadcast On"

 +17       WRITE !,?10,"& ..... Pickup A Class"

 +18       WRITE !,?10,"` ..... Xray View Text Buffer"

 +19       WRITE !!,?5,">> BE SURE TO EXIT YOUR APPLICATION BEFORE STOPPING THE CLASS.  <<"

 +20       USE IO(0)

           WRITE !,"YOU ARE NOW CONNECTED TO YOUR APPLICATION, PLEASE CONTINUE.",!,"------->>ON-LINE MODE<<",!

 +21       QUIT 

PORT      ;EP FOR PORT SELECTION

 +1        BREAK 

 +2        WRITE !,"CURRENT DEVICE IS  ",ION

           SET P2=ION

           IF KNAM'=ION

               XECUTE ^%ZIS("C")

           USE IO(0)

           XECUTE TERMNORM

 +3        WRITE !,"You are ",$SELECT(KNAM=ION:"ON ",1:"LEAVING "),":",ION,!

           IF KNAM'=ION

               DO ^%ZISC

 +4        SET DIC="^%ZIS(1,"

           SET DIC(0)="EQMZ"

           SET X="KLASDEV"

           SET DIC("S")="I ($P(^(0),""^"")=KNAM)!(DIY'[""CLASS"")"

 +5        DO ^DIC

           SET IOP=$SELECT(Y>0:Y(0,0),1:KNAM)

           DO ^%ZIS

           IF POP

               WRITE !,"SORRY ! BUSY !...",!

               SET IOP=KNAM

               DO ^%ZIS

               GOTO PORT

 +6        WRITE !,"YOU ARE ON :",ION,!,$CHAR(7)

           HANG 1

           USE IO(0)

           XECUTE TERMKLAS

           WRITE !,"------>>ON LINE MODE<<",!

           USE IO

           SET X=0

           XECUTE ^%ZOSF("RM")

           XECUTE ^("EOFF")

           XECUTE ^("TYPE-AHEAD")

           XECUTE ^("TRMOFF")

 +7       ;U IO:(0::::801001) ; CODE FOR MSM 2.1 UNIX

 +8       ;U IO:(::::2097152) S X=0 X ^%ZOSF("RM") Q  ; CODE FOR READING SI  CTRL-O FOR DSM-11 FOR DSM

 +9        QUIT