- 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
