Source Code 1994 March/Source_Code_CD-ROM_Walnut_Creek_March_1994.iso/compsrcs/games/vmsnet/reflex/part02

Internet Message Format | 1993-04-08 | 21KB

Path: uunet!decwrl!waikato.ac.nz!cguthrey
From: [e-mail]
Newsgroups: vmsnet.sources.games
Subject: Reflex - Test your, [2/2]
Message-ID: <[e-mail]>
Date: 9 Apr 93 21:14:22 +1200
Organization: University of Waikato, Hamilton, New Zealand
Lines: 730
Xref: uunet vmsnet.sources.games:679

-+-+-+-+-+-+-+-+ START OF PART 2 -+-+-+-+-+-+-+-+
X          current_state.games`5Bj`5D := old_games;
X          me := j;
X        END;
X      current_state.score`5Bme`5D := this_score;
X      IF present(newname) then
X        current_state.name`5Bme`5D := newname;
X    END;
XEND;
X
X`5BGLOBAL`5D
XPROCEDURE  increment_game_count;
XVAR
X  last_score : integer;
X  directory : v_array;
X  gamename  : v_array;
X  username  : v_array;
X  i,j,k, me : integer;
X  newname : s_array;
X  current_state : everything;
X  date_time : date_time_type;
XBEGIN
X  username := Get_jpi_str(jpi$_username,8);
X  Get_Image_dir_and_ACN_name (directory,gamename);
X
X  REPEAT
X    OPEN (newfile,directory+gamename+'.ACN',old,,direct,error:=continue);
X    CASE status(newfile) of
X      PAS$K_SUCCESS,
X      PAS$K_FILNOTFOU,
X      PAS$K_ACCMETINC,
X      PAS$K_RECLENINC : ;
X      OTHERWISE sleep (1);
X    END;
X  UNTIL (status(newfile)=PAS$K_SUCCESS) or
X        (status(newfile)=PAS$K_FILNOTFOU) or
X        (status(newfile)=PAS$K_ACCMETINC) or
X        (status(newfile)=PAS$K_RECLENINC);
X
X  IF status(newfile)=PAS$K_SUCCESS THEN
X    BEGIN
X      reset (newfile);
X      current_state := newfile`5E;
X      date_time := Get_Date_time;`20
X      update_topten (current_state,date_time,username,-maxint-1,me,last_scor
Ve);
X      rewrite (newfile);
X      newfile`5E := current_state;
X      Put (newfile);
X      Close (newfile);
X      game_count_incremented := true;
X    END;
XEND;
X
X`5BGLOBAL`5D
XPROCEDURE  read_top_ten;
XVAR
X  last_score : integer;
X  directory : v_array;
X  gamename  : v_array;
X  username  : v_array;
X  i,j,k, me : integer;
X  newname : s_array;
X  current_state : everything;
X  date_time : date_time_type;
XBEGIN
X  reset_screen;
X  clear;
X  posn (1,1);
X
X  username := Get_jpi_str(jpi$_username,8);
X  Get_Image_dir_and_ACN_name (directory,gamename);
X
X  REPEAT
X    OPEN (infile,directory+gamename+'.ACN',old,,direct,error:=continue);
X    CASE status(infile) of
X      PAS$K_SUCCESS : ;
X      PAS$K_FILNOTFOU : BEGIN
X            qio_writeln ('Can''t find file '+gamename+'.ACN Creating New Fil
Ve ...');
X            date_time := Get_Date_time;`20
X            create_new_score_file(directory,gamename,date_time);
X          END;
X      PAS$K_ACCMETINC,
X      PAS$K_RECLENINC : BEGIN
X            qio_writeln ('Error in file format of '+gamename+'.ACN');
X            $exit(1);
X          END;
X      OTHERWISE sleep (1);
X    END;
X  UNTIL status(infile)=PAS$K_SUCCESS;
X  reset (infile);
X  current_state := infile`5E;
X  close (infile);
X
X  date_time := Get_Date_time;`20
X  update_topten (current_state,date_time,username,-maxint-1,me,last_score);
X  Display_screen (current_state,date_time,me,gamename,last_score);
XEND;
X
X`5BGLOBAL`5D
XFUNCTION  read_last_score : integer;
XVAR
X  last_score : integer;
X  directory : v_array;
X  gamename  : v_array;
X  username  : v_array;
X  i,j,k, me : integer;
X  newname : s_array;
X  current_state : everything;
X  date_time : date_time_type;
XBEGIN
X  username := Get_jpi_str(jpi$_username,8);
X  Get_Image_dir_and_ACN_name (directory,gamename);
X  REPEAT
X    OPEN (infile,directory+gamename+'.ACN',old,,direct,error:=continue);
X    CASE status(infile) of
X      PAS$K_SUCCESS,
X      PAS$K_FILNOTFOU,
X      PAS$K_ACCMETINC,
X      PAS$K_RECLENINC : last_score := -maxint-1;
X      OTHERWISE sleep (1);
X    END;
X  UNTIL (status(infile)=PAS$K_SUCCESS) or
X        (status(infile)=PAS$K_FILNOTFOU) or
X        (status(infile)=PAS$K_ACCMETINC) or
X        (status(infile)=PAS$K_RECLENINC);
X `20
X  IF status(infile)=PAS$K_SUCCESS THEN
X    BEGIN
X      reset (infile);
X      current_state := infile`5E;
X      close (infile);
X      date_time := Get_Date_time;`20
X      update_topten (current_state,date_time,username,-maxint-1,me,last_scor
Ve);
X    END;
X  read_last_score := last_score;
XEND;
X
X`5BGLOBAL`5D
XPROCEDURE  top_ten ( this_score : integer );
XVAR
X  last_score : integer;
X  directory : v_array;
X  gamename  : v_array;
X  username  : v_array;
X  i,j,k, me : integer;
X  v_name : v_array;
X  newname : s_array;
X  current_state : everything;
X  date_time : date_time_type;
XBEGIN
X  reset_screen;
X  clear;
X  posn (1,1);
X
X  username := Get_jpi_str(jpi$_username,8);
X  Get_Image_dir_and_ACN_name (directory,gamename);
X
X  REPEAT
X    OPEN (infile,directory+gamename+'.ACN',old,,direct,error:=continue);
X    CASE status(infile) of
X      PAS$K_SUCCESS : ;
X      PAS$K_FILNOTFOU : BEGIN
X            qio_writeln ('Can''t find file '+gamename+'.ACN Creating New Fil
Ve ...');
X            date_time := Get_Date_time;`20
X            create_new_score_file(directory,gamename,date_time);
X          END;
X      PAS$K_ACCMETINC,
X      PAS$K_RECLENINC : BEGIN
X            qio_writeln ('Error in file format of '+gamename+'.ACN');
X            $exit(1);
X          END;
X      OTHERWISE sleep (1);
X    END;
X  UNTIL status(infile)=PAS$K_SUCCESS;
X  reset (infile);
X  current_state := infile`5E;
X  close (infile);
X
X  date_time := Get_Date_time;`20
X  update_topten (current_state,date_time,username,this_score,me,last_score);
X  Display_screen (current_state,date_time,me,gamename,last_score);
X  Display_current_score (last_score,this_score);
X  Display_update_prompts(me,last_score,this_score);
X
X  newname := current_state.name`5Bme`5D;
X  IF (( last_score < this_score ) or ( last_score = -maxint-1 )) AND ( me <
V 12 ) THEN
X    BEGIN
X      Formated_read (v_name,'XXXXXXXXXXXX',55,5+me,newname);
X      newname := v_name;
X    END;
X
X  REPEAT
X    OPEN (newfile,directory+gamename+'.ACN',old,,direct,error:=continue);
X    CASE status(newfile) of
X      PAS$K_SUCCESS : ;
X      PAS$K_FILNOTFOU,
X      PAS$K_ACCMETINC,
X      PAS$K_RECLENINC : BEGIN
X            qio_writeln ('Unknown File Error in '+gamename+'.ACN');
X            $exit(1);
X          END;
X      OTHERWISE
X          BEGIN
X            sleep (1);
X            clear;
X            Posn(1,1);
X            qio_writeln (trim(Username)+', Updating Please Wait ...');
X          END;
X    END;
X  UNTIL status(newfile)=PAS$K_SUCCESS;
X  reset (newfile);
X  current_state := newfile`5E;
X  date_time := Get_Date_time;`20
X  update_topten (current_state,date_time,username,this_score,me,last_score,n
Vewname);
X  rewrite (newfile);
X  newfile`5E := current_state;
X  Put (newfile);
X  Close (newfile);
X  posn (1,23);
XEND;
X
X
XEND.
$ CALL UNPACK MISC.PAS;19 2069850872
$ create 'f'
X(***************************************************************************
V*
X ***************************************************************************
V*
X **
X **  Reflex.  Written By Chris Guthrey, 1991.`20
X **  This code copyright, University Of Waikato.`20
X **  No warranty of any kind is supplied.
X **
X **  Based on an old CP/M game. I don't know who created original concept.
X **
X **  email: [e-mail]
X **
X ** This was written specifically for the Waikato University games library.
X ** It may or may not work on any other VAX system without modification.
X **)
X
X`5BINHERIT('misc')`5D
XPROGRAM Reflex;
X
X(*****************************
X * Display Characters
X *)
XCONST          `20
X  player_C = 'O';
X  enemy_C  = '@';
X  target_C = '$';
X  mines_C  = '+';
X  hyper_C  = 'H';
X  left_deflect_C  = '/';
X  right_deflect_C = '\';
X  carriage_return = CHR(13);
X(********************
X * keyboard control characters
X *)
X  kbd_left = '4';
X  kbd_right= '6';
X  kbd_delete='5';
X  kbd_quit = 'Q';
X  kbd_redraw = 'R';
X
X(*******************
X * game constants
X *)
X  x_ofs = 1;
X  y_ofs = 1;
X  pf_width = 38;
X  pf_length = 21;
X  start_delay = 0.160;
X  delay_decrement = 0.02;
X(********************
X * type decls
X *)
XTYPE
X  directions  = (up,down,left,right);
X  game_states = (_playing, _quit, _dead, _hit_target, _hit_mine, _hit_hyper,
V`20
X                 _hit_enemy, _hit_left, _hit_right );
X
X  player_type = RECORD
X                  c      : CHAR;
X                  x, y   : INTEGER;
X                  _x,_y  : INTEGER;
X                  state  : game_states;
X                  dir    : directions;
X                  score  : INTEGER;
X                  level  : INTEGER;`20
X                  delete : BOOLEAN;
X                  delay  : REAL;
X                  moving : BOOLEAN;
X               END;
X
X  enemy_type  = RECORD
X                  active : BOOLEAN;
X                  c      : CHAR;
X                  state  : game_states;
X                  x, y   : INTEGER;
X                  _x,_y  : INTEGER;
X                  dir    : directions;
X                  speed  : INTEGER;
X                END;`20
X
X  target_type = RECORD
X                  c        : CHAR;`20
X                  x, y     : INTEGER;
X                  timeleft : REAL;
X                END;                `20
X(*******************
X * Game Global Vars
X *)
XVAR
X  PlayField : ARRAY`5B0..pf_width,0..pf_length`5D OF CHAR := ZERO;
X  sp_init : BOOLEAN := TRUE;
X  player  : player_type;
X  enemy   : enemy_type;
X  target  : target_type;  `20
X  mines   : INTEGER := 0;
X  cx,cy   : INTEGER := 0; (* Global current x and y pos *)
X  level_jump : INTEGER := 10;
X
XPROCEDURE WriteScoreBoard;
XBEGIN
X  `20
X  QIO_Write( Get_Posn( 7,24 )+ UDEC( player.score,6 ) );
X  QIO_Write( Get_Posn( 22,24 )+ UDEC( player.level,2 ) );
X  QIO_Write( Get_Posn( 37,24 ) + UDEC( TRUNC(target.timeleft),3 ) );
XEND;
X
XPROCEDURE RepositionTarget;
XVAR x,y,i : INTEGER;
XBEGIN
X  REPEAT
X    target.x := Rnd(1, pf_width ); target.y := Rnd( 1,pf_length );
X  UNTIL (player.x <> target.x) AND (player.y<>target.y);
X  target.timeleft := 200.0;
X  PlayField`5Btarget.x,target.y`5D := target_C;
X  qio_write( Get_Posn( x_ofs+target.x, y_ofs+target.y ) + target.c );`20
X  FOR i := 1 TO mines DO BEGIN
X    REPEAT
X      x := Rnd( 1,pf_width )-1; y := Rnd( 1,pf_length );
X    UNTIL PlayField`5Bx,y`5D = ' ';
X    PlayField`5Bx,y`5D := mines_C;
X    Qio_Write( Get_Posn( x_ofs+x, y_ofs+y ) + mines_C );`20
X  END;
XEND;
X
XPROCEDURE Draw_Screen;
XVAR x,y : INTEGER;
XBEGIN
X  Clear;
X  FOR y := 1 TO 24 DO BEGIN
X    QIO_Write( Get_Posn( 1,y ) + VT100_wide );
X  END;
X  Square( 1,1, pf_width +2, pf_length+2 );
X  QIO_Write( Get_Posn( 1,24 ) + 'SCORE:         LEVEL:     TIME LEFT:');
X  WriteScoreBoard;
XEND;
X
XPROCEDURE ReDraw_PlayField;
XVAR x,y : INTEGER;
X    s   : VARYING`5B80`5D OF CHAR;
XBEGIN
X  Draw_Screen;
X  FOR y := 1 TO pf_length DO BEGIN
X    s := '';
X    FOR x := 1 TO pf_width DO`20
X      s := s + PlayField`5Bx,y`5D;
X    QIO_Write( Get_Posn( x_ofs+1,y_ofs+y)+s );
X  END;
XEND;
X
XPROCEDURE ReDraw_Screen;
XBEGIN
X  Draw_Screen;
X  ReDraw_PlayField;
XEND;
X
XPROCEDURE Clear_PlayField;
XVAR x,y :INTEGER;
XBEGIN
X  FOR y := 1 TO pf_length DO
X    FOR x := 1 TO pf_width DO
X      PlayField`5Bx,y`5D := ' ';
X  ReDraw_PlayField;
X  player.x := pf_width DIV 2;  player.y := pf_length DIV 2;
X  player.c := Player_C;
X  player.moving := false;
X  player.state := _playing;
X  player._x := player.x;  player._y := player.y;
X  qio_write( Get_Posn( x_ofs+player.x, y_ofs+player.y ) + player.c );
X  target.c := Target_C;
X  RepositionTarget;
XEND;
X
XPROCEDURE SetUp_PlayField_Players;
XVAR x,y :INTEGER;
XBEGIN
X  Draw_Screen;
X  sp_init := TRUE;
X  FOR y := 1 TO pf_length DO
X    FOR x := 1 TO pf_width DO
X      PlayField`5Bx,y`5D := ' ';
X  Seed_Initialize;
X  player.x := pf_width DIV 2;  player.y := pf_length DIV 2;
X  player.c := Player_C;
X  player.state := _playing;
X  player.moving := false;
X  player._x := player.x;  player._y := player.y;
X  qio_write(Get_Posn( x_ofs+player.x, y_ofs+player.y ) +  player.c );
X  target.c := Target_C;
X  RepositionTarget;
XEND;
X
XPROCEDURE UpDatePlayerDisplay;
XBEGIN
X  IF player.moving THEN BEGIN
X    CASE player.dir OF
X    right: IF player.x > 1 THEN BEGIN
X             QIO_Write( Get_Posn( x_ofs+player._x, y_ofs+player._y ) +`20
X                PlayField`5Bplayer._x, player._y`5D+player.c );
X           END;
X    left : IF player.x < pf_width THEN BEGIN
X             QIO_Write( Get_Posn( x_ofs+player.x, y_ofs+player.y ) +`20
X                player.c+PlayField`5Bplayer._x, player._y`5D );
X           END;
X    OTHERWISE`20
X      BEGIN
X        QIO_Write( Get_Posn( x_ofs+player.x, y_ofs+player.y ) + player.c );
X        QIO_Write( Get_Posn( x_ofs+player._x, y_ofs+player._y ) +`20
X            PlayField`5Bplayer._x, player._y`5D);
X      END;
X    END;
X    QIO_Write( Carriage_Return );
X    player._x := player.x; player._y := player.y;
X  END;
XEND;`20
X
XPROCEDURE NormalMovePlayer;
XBEGIN
X  IF player.moving THEN
X    CASE player.dir OF
X    up    : IF player.y > 1 THEN
X              player.y := player.y -1
X            ELSE BEGIN
X              player.dir := down;
X            END;
X    down  : IF player.y < pf_length THEN
X              player.y := player.y +1
X            ELSE BEGIN
X              player.dir := up;
X            END;
X    left  : IF player.x > 1 THEN
X              player.x := player.x -1
X            ELSE BEGIN
X              player.dir := right;
X            END;
X    right : IF player.x < pf_width THEN
X              player.x := player.x +1
X            ELSE BEGIN
X              player.dir := left;
X            END;
X    END;
XEND; `7BNormalMovePlayer`7D
X
XPROCEDURE ReflexLeft;  `7B/`7D
XBEGIN
X  IF player.delete THEN BEGIN`20
X
X    PlayField`5Bplayer.x,player.y`5D := ' ';
X    player.delete := FALSE;
X    player.score := player.score - 100;
X    IF player.score < 0 THEN player.score :=0;
X    END
X  ELSE BEGIN   `20
X    CASE player.dir OF
X      up   : player.dir := right;
X      down : player.dir := left;
X      left : player.dir := down;
X      right: player.dir := up;
X    END;
X  END;
X  player.state := _playing;
X  NormalMovePlayer;
X  UpdatePlayerDisplay;
XEND;   `20
X
XPROCEDURE ReflexRight; `7B\`7D
XBEGIN
X  IF player.delete THEN BEGIN
X    PlayField`5Bplayer.x,player.y`5D := ' ';
X    player.delete := FALSE;
X    player.score := player.score - 100;
X    IF player.score < 0 THEN player.score :=0;
X    END
X  ELSE BEGIN   `20
X    CASE player.dir OF
X      up   : player.dir := left;
X      down : player.dir := right;
X      left : player.dir := up;
X      right: player.dir := down;
X    END;
X  END;
X  player.state := _playing;
X  NormalMovePlayer;
X  UpdatePlayerDisplay;
XEND;
X
XPROCEDURE NextLevel;
XVAR i : INTEGER;
XBEGIN
X  player.level := player.level + 1;
X  IF player.level mod level_jump = 0 THEN BEGIN (* clear screen, inc. speed
V *)
X    IF player.delay > 0.0 THEN         `20
X      player.delay := player.delay - delay_decrement;
X      if player.delay < 0.0 then player.delay := 0.0;
X    mines := player.level div level_jump;
X    Clear_PlayField;
X  END ELSE BEGIN
X    (*mines := mines + 1;*)
X    PlayField`5Btarget.x,target.y`5D := ' ';
X    RepositionTarget;
X  END;
X  player.state := _playing;
X  FOR i := 1 TO (TRUNC(target.timeleft) DIV 10) DO BEGIN
X    player.score := player.score + 10+player.level;
X    WriteScoreBoard;
X    sleep(0,0.025);
X  END;
XEND;
X
XPROCEDURE DieFool;
XVAR i  : INTEGER;
XBEGIN
X  player.state := _dead;
X  FOR i := 32 TO 96 DO BEGIN
X    Posn( x_ofs+player.x, y_ofs+player.y);
X    Qio_Write( CHR(i) );
X  END;
X  FOR i := 95 DOWNTO 32 DO BEGIN
X    Posn( x_ofs+player.x, y_ofs+player.y);
X    Qio_Write( CHR(i) );
X  END;
XEND; `20
X
XPROCEDURE GameLoop;
XVAR ch : CHAR;
X    oldtime : INTEGER;
XBEGIN
X  WHILE (player.state = _playing) DO BEGIN
X    (* check player space *)
X    CASE PlayField`5Bplayer.x,player.y`5D OF
X      enemy_C : player.state := _hit_enemy;
X      target_C: player.state := _hit_target;
X      mines_C : player.state := _hit_mine;
X      hyper_C : player.state := _hit_hyper;
X      left_deflect_C : player.state := _hit_left;
X      right_deflect_C : player.state := _hit_right;
X    END;  `20
X
X    IF (player.moving) THEN BEGIN
X      oldtime := TRUNC( target.timeleft );
X      target.timeleft := target.timeleft - player.delay;
X      IF oldtime <> TRUNC( target.timeleft ) THEN
X        WriteScoreBoard;
X      IF target.timeleft <= 0 THEN player.state := _dead;
X    END;
X
X      (* get player input *)
X    ch := Upper_Case( QIO_1_Char_Now );
X    IF (player.state = _playing) OR (player.state= _hit_right)
X       OR (player.state = _hit_left) THEN BEGIN   `20
X      CASE ch OF
X        kbd_left : BEGIN
X                     PlayField`5Bplayer.x,player.y`5D := left_deflect_C;
X                     player.state := _hit_left;
X                     if not player.moving then player.moving := true;
X                   END;
X        kbd_right: BEGIN`20
X                     PlayField`5Bplayer.x,player.y`5D := right_deflect_C;
X                     player.state := _hit_right;
X                     if not player.moving then player.moving := true;
X                   END;
X      END;`7Bcase`7D
X    END;`7Bif`7D
X
X    CASE ch OF
X      kbd_delete: IF player.moving THEN player.delete:= TRUE;
X      kbd_quit : player.state := _quit;
X      kbd_redraw : Redraw_Screen;
X    END;
X `20
X    CASE player.state OF
X      _playing    : BEGIN
X                      NormalMovePlayer;
X                      UpDatePlayerDisplay;
X                      Sleep( 0, player.delay );
X                    END;
X      _hit_target : NextLevel;
X      _hit_mine   : DieFool;
X      _hit_hyper  : `7BHyperJump`7D;
X      _hit_enemy  : DieFool;
X      _hit_left   : ReflexLeft;
X      _hit_right  : ReflexRight;
X    END;
X  END;
X  Top_Ten( player.score );
XEND;
X
X
XPROCEDURE ExitHandler;
XBEGIN
X  Reset_Screen;
X  Posn( 1,21 );
XEND;
X
XBEGIN`20
X  Initialize_Channel;
X  Setup_Handler( iaddress( ExitHandler ) );
X  Force;
X  mines := 0;
X  player.delay := start_delay;
X  player.score := 0;
X  enemy.active := FALSE; (* no enemies yet *)
X  Show_graphedt( 'REFLEX.PIC', true );
X  Increment_Game_Count;
X  SetUp_PlayField_Players;
X  GameLoop;
XEND.
$ CALL UNPACK REFLEX.PAS;39 370274486
$ create 'f'
X`1B`5BH`1B`5BJ`1B(B`1B`5B0m
X`1B`5B1;1H`1B#6       `1B(0lqqqqqqqqqqqqqqqqqqqqqqqqk
X`1B`5B2;1H`1B#3lqqqqqqu`1B(B* ** *** REFLEX *** ** *`1B(0tqqqqqqk
X`1B`5B3;1H`1B#4l      u`1B(B* ** *** REFLEX *** ** *`1B(0t      k
X`1B`5B4;1H`1B#6x      mqqqqqqqqqqqqqqqqqqqqqqqqj      x
X`1B`5B5;1H`1B#6x`1B(B   Chris Guthrey, Waikato University `1B`5B5;40H`1B(0x
X`1B`5B6;1H`1B#6x`1B(B         Hamilton, New Zealand       `1B`5B6;40H`1B(0x
X`1B`5B7;1H`1B#6tqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqu
X`1B`5B8;1H`1B#6x
X`1B`5B8;12Hlqk   lqk
X`1B`5B8;40Hx`1B`5B9;1H`1B#6x  U`1B(Bse the `1B(0x4x `1B(B& `1B(0x6x`20
X`1B`5B9;22H`1B(Bkeys to deflect   `1B(0x
X`1B`5B10;1H`1B#6x
X`1B`5B10;12Hmqj   mqj
X`1B`5B10;40Hx`1B`5B11;1H`1B#6x     `1B(Byourself towards the target.  `20
X`1B`5B11;38H  `1B(0x
X`1B`5B12;1H`1B#6x`1B`5B12;11Hlqk`1B`5B12;40Hx
X`1B`5B13;1H`1B#6x U`1B(Bse the `1B(0x5x `1B(Bkey to destroy the next  `1B(0x
X`1B`5B14;1H`1B#6x`1B`5B14;11Hmqj`1B`5B14;40Hx
X`1B`5B15;1H`1B#6x  `1B(Bdeflector you hit. (Costs points)   `1B(0x
X`1B`5B16;1H`1B#6x`1B`5B16;40Hx`1B`5B17;1H`1B#6tqqqqqqqqqqqqqqqqqqqqqq
X`1B`5B17;24Hqqqqqqqqqqqqqqqqu
X`1B`5B18;1H`1B#6x  Y`1B(Bou - O    Target - $    Mines - +  `1B(0x
X`1B`5B19;1H`1B#6x`1B`5B19;40Hx
X`1B`5B20;1H`1B#6x
X`1B`5B20;12HD`1B(Beflectors - /  \`1B`5B20;40H`1B(0x
X`1B`5B21;1H`1B#6x`1B`5B21;40Hx
X`1B`5B22;1H`1B#6mqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqj`1B`5B1;1H`1B(B`1B*
$ CALL UNPACK REFLEX.PIC;9 1919887789
$ create 'f'
X(* DIGITAL VT100 Terminal Control Codes.`20
X *
X * * This file is a component of the INTERACT Pascal Games Library * *
X *       ** from Waikato University, Hamilton, NEW ZEALAND **
X *
X *  Written by Paul Denize ([e-mail])`20
X *
X *  Contributing authors: Rex Croft ([e-mail])
X *                        Lawrence D'Oliviero ([e-mail])
X *                        Chris Guthrey ([e-mail])
X *)
XCONST
X  VT100_ESC  = chr(27);
X
X  VT100_top      = ''(27)'#3';
X  VT100_bottom   = ''(27)'#4';
X  VT100_wide     = ''(27)'#6';
X
X  VT100_normal   = ''(27)'`5Bm';
X  VT100_bright   = ''(27)'`5B1m';
X  VT100_flash    = ''(27)'`5B5m';
X  VT100_inverse  = ''(27)'`5B7m';
X
X  VT100_bright_only  = ''(27)'`5B0;1m';
X  VT100_flash_only   = ''(27)'`5B0;5m';
X  VT100_inverse_only = ''(27)'`5B0;7m';
X
X  VT100_store    = ''(27)'7';
X  VT100_restore  = ''(27)'8';
X
X  VT100_graphics_on  = ''(27)'(0';
X  VT100_graphics_off = ''(27)'(B';
X  VT100_Alternate_graphics = ''(27)')0';
X
X  VT100_normal_scroll = ''(27)'`5B0;24r';
X  VT100               = ''(27)'<';
X
X  VT100_application_keypad    = ''(27)'=';
X  VT100_no_application_keypad = ''(27)'>';
X
X  VT100_bell = chr(7);
X  VT100_bs   = chr(8);
X  VT100_lf   = chr(10);
X  VT100_cr   = chr(13);
X  VT100_si   = chr(14);
X  VT100_so   = chr(15);
X
X  (* VT320 Specific Codes added by Chris Guthrey (10 March 93) *)
X
X  VT320_G1_Char_Set = chr( 14 );
X  VT320_G0_Char_Set = chr( 15 );
X
X  VT320_VT100_Mode = ''(27)'`5B61"p';
X  VT320_8bit_Mode = ''(27)'`5B62"p';
X  VT320_7bit_Mode = ''(27)'`5B63;1"p';   (* default Vt320 mode *)
$ CALL UNPACK VT100_ESC_SEQS.PAS;12 1666029369
$ v=f$verify(v)
$ EXIT