- KLASSTU ;GLRISC/PDW NEW STUSMAN STUDENT;DEC 18,1990@13:54:58 [ 12/13/94 8:02 AM ]
- ;;1.0
- S U="^" D DT^DICRW S IOP="HOME" D ^%ZIS ;K ^XUTL("XQ",$J)
- X ^%ZOSF("TYPE-AHEAD")
- S IOP="HOME" D ^%ZIS
- ASK ;D HOME^%ZIS
- U IO W @IOF,!,"YOU ARE ON DEVICE ",$I
- INST W !!,"Please select your Instructor/Class",! K DIC S DIC="^KLAS(1200,",DIC(0)="AEQMZ",D="B",DZ="??" D DQ^DICQ,^DIC K D,DZ G:Y'>0 STOP
- S CLNUM=$P(Y(0),"^",3),(DA(1),JOB)=+Y,DIC=DIC_JOB_",""M"",",DIC("S")="I $P(^(0),""^"",5)=""""",DIC(0)="AEQMLZ",DIC("A")="Enter Your Name Please :" S:'$D(^KLAS(1200,JOB,"M",0)) ^(0)="^1200.03^^" D ^DIC G:Y'>0 STOP1
- S STUDA=+Y,NAME=Y(0,0),DIE=DIC,DR="3///NOW;5///"_$J_";4///"_IO_";1///"_NAME_" HAS JOINED"_";1///@",DA=+Y D ^DIE K DIC,DR
- K DIC S DIC="^KLAS(1200.4,"_CLNUM_",1,",DIC(0)="L",X="NEW",DA(1)=CLNUM S:'$D(^KLAS(1200.4,CLNUM,1,0)) ^(0)="^1200.44^^" D ^DIC
- S (SLNUM,DA)=+Y,DR=".01///"_NAME_";1//1;2///NOW;3///NOW",DIE=DIC D ^DIE
- S MS=1,K=0,CTRL=1
- ST W !!,?15,">>>>> To EXIT the class enter '^' <<<<<",! H 2 U IO(0) W @IOF
- S KLWCNT=0,T1=0,KLSTMC=0,LIMIT=1000,TL=$P($H,",",2),X2=0,KEY=0,TYPE=^%ZOSF("TYPE-AHEAD")
- CON S X=0 X ^%ZOSF("RM"),^("EOFF"),^("TYPE-AHEAD"),^("TRMON") S TMC=^%ZOSF("TRMRD"),TCK="",XON=0,TK=1,CTRL=1,CC=$C(CTRL),KLEN=0
- LOOP ;
- I '$D(^KLAS(1200,JOB,"P1")) H 1 G LOOP
- S KLMCNT=^KLAS(1200,JOB,"P1")
- I $D(^KLAS(1200,JOB,"M",STUDA,"AMSG")) G RMES
- G:$D(^KLAS(1200,JOB,"P3")) PURGE I $P($H,",",2)>(TL+45) W " ",$C(8) S TL=$P($H,",",2)
- I KEY D KEY
- I 'KEY R *Z:0 D:Z=42 VIEW^KLASSTU1 I Z=94 W !,"^",!,"LEAVING THE CLASS",! G EXIT
- I KLWCNT=KLMCNT X:('KEY)!(KEY&T1) "H 1",TYPE G LOOP
- S:(KLWCNT>(LIMIT-1))&(KLMCNT'=LIMIT) KLWCNT=0
- I KLWCNT<KLMCNT S KLDIF=KLMCNT-KLWCNT S:KLDIF>10 KLDIF=10 D SCAN G LOOP
- S KLDIF=LIMIT-KLWCNT S:KLDIF>10 KLDIF=10 D SCAN G LOOP
- SCAN ;
- F K=1:1:KLDIF D:'$D(^KLAS(1200,JOB,"S",KLWCNT+K,0)) DLOOP S B(K)=^KLAS(1200,JOB,"S",KLWCNT+K,0)
- F K=1:1:KLDIF W B(K) S KLEN=KLEN+$L(B(K)) I KLEN>800 S KLEN=0 H 2
- S KLWCNT=KLWCNT+KLDIF,TL=$P($H,",",2)
- Q
- DLOOP ;
- H:'KEY 1 G:'$D(^KLAS(1200,JOB,"S",KLWCNT,0)) DLOOP
- Q
- KEY ;
- U IO(0) R Z#200:TK S Z=TCK_Z,TCK="",TK=0 I X TMC S TCK=$C(Y) S:Y=CTRL TCK="" G:Y=CTRL CTRL S:Y=27 TK=1
- I Z="" S:$P($H,",",2)>(TL+6) TK=1 Q
- S TL=$P($H,",",2) I Z'[CC S KLSTMC=$S(KLSTMC<LIMIT:KLSTMC+1,1:0),^KLAS(1200,JOB,"R",KLSTMC,0)=Z,^KLAS(1200,JOB,"R1")=KLSTMC
- Q
- ;-----
- CTRL U IO(0) W @IOF," | CTRL-",$C(CTRL+64)," | " R *Z:10 G:Z="" LOOP
- I Z=35 X ^%ZOSF("EON") R !,"Enter the new command character ? ",*X:30 X ^%ZOSF("EOFF") Q:X="" S X=X#32 S CTRL=X,CC=$C(CTRL) W !,"COMMAND CHARACTER IS NOW >>CTRL-",$C(64+CTRL),"<<",!,">>ON LINE MODE<<-------",! Q
- I Z=43 D ^KLASSTU1 Q ;TAPE FOR STUDENT
- S Z=Z#32 W " | CTRL-",$C(Z+64)," | ",! S Z=$C(Z) S:$A(Z)=3 Z=Z_$C(13)
- S KLSTMC=$S(KLSTMC<LIMIT:KLSTMC+1,1:0),^KLAS(1200,JOB,"R",KLSTMC,0)=Z,^KLAS(1200,JOB,"R1")=KLSTMC Q
- RMES ;
- S MSG=$O(^KLAS(1200,JOB,"M",STUDA,"AMSG","")) K ^(MSG) D:MSG="GRAB" GRAB D:MSG="RELEASE" RELEASE K MSG G LOOP
- GRAB W !!,"YOU HAVE BEEN GIVEN COMMAND - GO FOR IT !",!," to send 'CTRL-x' use 'CRTL-A' followed by 'x'",!!
- W !,"to change the Command Character use 'CTRL-A' followed by '#'",!!
- R Z:0 S KEY=1,KLSTMC=0,^KLAS(1200,JOB,"R1")=0 X ^%ZOSF("EOFF") Q
- ;-----
- PURGE G PURGE^KLASSTU1
- ;-----
- RELEASE W !!,"SORRY COMMAND HAS BEEN TAKEN AWAY",! S KEY=0 Q
- ;-----
- EXIT I $D(JOB) S DA(1)=JOB,DIE="^KLAS(1200,JOB,""M"",",DA(1)=JOB,DA=STUDA,DR="1///"_NAME_" HAS LEFT" D ^DIE H 3 S DR=".01///@" D ^DIE
- ;
- STOP W !!,"YOU HAVE BEEN EXITED FROM THE CLASS",!
- I $D(CLNUM) S DIE="^KLAS(1200.4,"_CLNUM_",1,",DA=SLNUM,DR="3///NOW" D ^DIE
- STOP1 K STUDA,DA,KEY,Y,KLMCNT,KLWCNT,TL,NAME,DIC,DIE,Z,MS,MSG,JOB,LIMIT,DR,DA,DINUM,DIC,X,X2,KLSTMC,CLNUM,SLNUM,DIC,K,T1,Y,C,CC,KLDIF,K,KLEN,KLNS,KLNSC,M,B,OPEX,TC,TCK,TK,TMC,TYPE,XON,KLZZ,CTRL
- S X=IOM X ^%ZOSF("RM"),^("EON"),^("TRMOFF")
- Q
- ;----------------------UTILITY CODE--------------------
- XRAY D XRAY^KLASDIA Q
- XX D XX^KLASDIA Q
- STUFF D STUFF^KLASDIA Q
- SXRAY D SXRAY^KLASDIA Q
- KLASSTU ;GLRISC/PDW NEW STUSMAN STUDENT;DEC 18,1990@13:54:58 [ 12/13/94 8:02 AM ]
- +1 ;;1.0
- +2 ;K ^XUTL("XQ",$J)
- SET U="^"
- DO DT^DICRW
- SET IOP="HOME"
- DO ^%ZIS
- +3 XECUTE ^%ZOSF("TYPE-AHEAD")
- +4 SET IOP="HOME"
- DO ^%ZIS
- ASK ;D HOME^%ZIS
- +1 USE IO
- WRITE @IOF,!,"YOU ARE ON DEVICE ",$IO
- INST WRITE !!,"Please select your Instructor/Class",!
- KILL DIC
- SET DIC="^KLAS(1200,"
- SET DIC(0)="AEQMZ"
- SET D="B"
- SET DZ="??"
- DO DQ^DICQ
- DO ^DIC
- KILL D,DZ
- IF Y'>0
- GOTO STOP
- +1 SET CLNUM=$PIECE(Y(0),"^",3)
- SET (DA(1),JOB)=+Y
- SET DIC=DIC_JOB_",""M"","
- SET DIC("S")="I $P(^(0),""^"",5)="""""
- SET DIC(0)="AEQMLZ"
- SET DIC("A")="Enter Your Name Please :"
- IF '$DATA(^KLAS(1200,JOB,"M",0))
- SET ^(0)="^1200.03^^"
- DO ^DIC
- IF Y'>0
- GOTO STOP1
- +2 SET STUDA=+Y
- SET NAME=Y(0,0)
- SET DIE=DIC
- SET DR="3///NOW;5///"_$JOB_";4///"_IO_";1///"_NAME_" HAS JOINED"_";1///@"
- SET DA=+Y
- DO ^DIE
- KILL DIC,DR
- +3 KILL DIC
- SET DIC="^KLAS(1200.4,"_CLNUM_",1,"
- SET DIC(0)="L"
- SET X="NEW"
- SET DA(1)=CLNUM
- IF '$DATA(^KLAS(1200.4,CLNUM,1,0))
- SET ^(0)="^1200.44^^"
- DO ^DIC
- +4 SET (SLNUM,DA)=+Y
- SET DR=".01///"_NAME_";1//1;2///NOW;3///NOW"
- SET DIE=DIC
- DO ^DIE
- +5 SET MS=1
- SET K=0
- SET CTRL=1
- ST WRITE !!,?15,">>>>> To EXIT the class enter '^' <<<<<",!
- HANG 2
- USE IO(0)
- WRITE @IOF
- +1 SET KLWCNT=0
- SET T1=0
- SET KLSTMC=0
- SET LIMIT=1000
- SET TL=$PIECE($HOROLOG,",",2)
- SET X2=0
- SET KEY=0
- SET TYPE=^%ZOSF("TYPE-AHEAD")
- CON SET X=0
- XECUTE ^%ZOSF("RM")
- XECUTE ^("EOFF")
- XECUTE ^("TYPE-AHEAD")
- XECUTE ^("TRMON")
- SET TMC=^%ZOSF("TRMRD")
- SET TCK=""
- SET XON=0
- SET TK=1
- SET CTRL=1
- SET CC=$CHAR(CTRL)
- SET KLEN=0
- LOOP ;
- +1 IF '$DATA(^KLAS(1200,JOB,"P1"))
- HANG 1
- GOTO LOOP
- +2 SET KLMCNT=^KLAS(1200,JOB,"P1")
- +3 IF $DATA(^KLAS(1200,JOB,"M",STUDA,"AMSG"))
- GOTO RMES
- +4 IF $DATA(^KLAS(1200,JOB,"P3"))
- GOTO PURGE
- IF $PIECE($HOROLOG,",",2)>(TL+45)
- WRITE " ",$CHAR(8)
- SET TL=$PIECE($HOROLOG,",",2)
- +5 IF KEY
- DO KEY
- +6 IF 'KEY
- READ *Z:0
- IF Z=42
- DO VIEW^KLASSTU1
- IF Z=94
- WRITE !,"^",!,"LEAVING THE CLASS",!
- GOTO EXIT
- +7 IF KLWCNT=KLMCNT
- IF ('KEY)!(KEY&T1)
- XECUTE "H 1"
- XECUTE TYPE
- GOTO LOOP
- +8 IF (KLWCNT>(LIMIT-1))&(KLMCNT'=LIMIT)
- SET KLWCNT=0
- +9 IF KLWCNT<KLMCNT
- SET KLDIF=KLMCNT-KLWCNT
- IF KLDIF>10
- SET KLDIF=10
- DO SCAN
- GOTO LOOP
- +10 SET KLDIF=LIMIT-KLWCNT
- IF KLDIF>10
- SET KLDIF=10
- DO SCAN
- GOTO LOOP
- SCAN ;
- +1 FOR K=1:1:KLDIF
- IF '$DATA(^KLAS(1200,JOB,"S",KLWCNT+K,0))
- DO DLOOP
- SET B(K)=^KLAS(1200,JOB,"S",KLWCNT+K,0)
- +2 FOR K=1:1:KLDIF
- WRITE B(K)
- SET KLEN=KLEN+$LENGTH(B(K))
- IF KLEN>800
- SET KLEN=0
- HANG 2
- +3 SET KLWCNT=KLWCNT+KLDIF
- SET TL=$PIECE($HOROLOG,",",2)
- +4 QUIT
- DLOOP ;
- +1 IF 'KEY
- HANG 1
- IF '$DATA(^KLAS(1200,JOB,"S",KLWCNT,0))
- GOTO DLOOP
- +2 QUIT
- KEY ;
- +1 USE IO(0)
- READ Z#200:TK
- SET Z=TCK_Z
- SET TCK=""
- SET TK=0
- IF $TEST
- XECUTE TMC
- SET TCK=$CHAR(Y)
- IF Y=CTRL
- SET TCK=""
- IF Y=CTRL
- GOTO CTRL
- IF Y=27
- SET TK=1
- +2 IF Z=""
- IF $PIECE($HOROLOG,",",2)>(TL+6)
- SET TK=1
- QUIT
- +3 SET TL=$PIECE($HOROLOG,",",2)
- IF Z'[CC
- SET KLSTMC=$SELECT(KLSTMC<LIMIT:KLSTMC+1,1:0)
- SET ^KLAS(1200,JOB,"R",KLSTMC,0)=Z
- SET ^KLAS(1200,JOB,"R1")=KLSTMC
- +4 QUIT
- +5 ;-----
- CTRL USE IO(0)
- WRITE @IOF," | CTRL-",$CHAR(CTRL+64)," | "
- READ *Z:10
- IF Z=""
- GOTO LOOP
- +1 IF Z=35
- XECUTE ^%ZOSF("EON")
- READ !,"Enter the new command character ? ",*X:30
- XECUTE ^%ZOSF("EOFF")
- IF X=""
- QUIT
- SET X=X#32
- SET CTRL=X
- SET CC=$CHAR(CTRL)
- WRITE !,"COMMAND CHARACTER IS NOW >>CTRL-",$CHAR(64+CTRL),"<<",!,">>ON LINE MODE<<-------",!
- QUIT
- +2 ;TAPE FOR STUDENT
- IF Z=43
- DO ^KLASSTU1
- QUIT
- +3 SET Z=Z#32
- WRITE " | CTRL-",$CHAR(Z+64)," | ",!
- SET Z=$CHAR(Z)
- IF $ASCII(Z)=3
- SET Z=Z_$CHAR(13)
- +4 SET KLSTMC=$SELECT(KLSTMC<LIMIT:KLSTMC+1,1:0)
- SET ^KLAS(1200,JOB,"R",KLSTMC,0)=Z
- SET ^KLAS(1200,JOB,"R1")=KLSTMC
- QUIT
- RMES ;
- +1 SET MSG=$ORDER(^KLAS(1200,JOB,"M",STUDA,"AMSG",""))
- KILL ^(MSG)
- IF MSG="GRAB"
- DO GRAB
- IF MSG="RELEASE"
- DO RELEASE
- KILL MSG
- GOTO LOOP
- GRAB WRITE !!,"YOU HAVE BEEN GIVEN COMMAND - GO FOR IT !",!," to send 'CTRL-x' use 'CRTL-A' followed by 'x'",!!
- +1 WRITE !,"to change the Command Character use 'CTRL-A' followed by '#'",!!
- +2 READ Z:0
- SET KEY=1
- SET KLSTMC=0
- SET ^KLAS(1200,JOB,"R1")=0
- XECUTE ^%ZOSF("EOFF")
- QUIT
- +3 ;-----
- PURGE GOTO PURGE^KLASSTU1
- +1 ;-----
- RELEASE WRITE !!,"SORRY COMMAND HAS BEEN TAKEN AWAY",!
- SET KEY=0
- QUIT
- +1 ;-----
- EXIT IF $DATA(JOB)
- SET DA(1)=JOB
- SET DIE="^KLAS(1200,JOB,""M"","
- SET DA(1)=JOB
- SET DA=STUDA
- SET DR="1///"_NAME_" HAS LEFT"
- DO ^DIE
- HANG 3
- SET DR=".01///@"
- DO ^DIE
- +1 ;
- STOP WRITE !!,"YOU HAVE BEEN EXITED FROM THE CLASS",!
- +1 IF $DATA(CLNUM)
- SET DIE="^KLAS(1200.4,"_CLNUM_",1,"
- SET DA=SLNUM
- SET DR="3///NOW"
- DO ^DIE
- STOP1 KILL STUDA,DA,KEY,Y,KLMCNT,KLWCNT,TL,NAME,DIC,DIE,Z,MS,MSG,JOB,LIMIT,DR,DA,DINUM,DIC,X,X2,KLSTMC,CLNUM,SLNUM,DIC,K,T1,Y,C,CC,KLDIF,K,KLEN,KLNS,KLNSC,M,B,OPEX,TC,TCK,TK,TMC,TYPE,XON,KLZZ,CTRL
- +1 SET X=IOM
- XECUTE ^%ZOSF("RM")
- XECUTE ^("EON")
- XECUTE ^("TRMOFF")
- +2 QUIT
- +3 ;----------------------UTILITY CODE--------------------
- XRAY DO XRAY^KLASDIA
- QUIT
- XX DO XX^KLASDIA
- QUIT
- STUFF DO STUFF^KLASDIA
- QUIT
- SXRAY DO SXRAY^KLASDIA
- QUIT
