-+-+-+-+-+-+-+-+ START OF PART 5 -+-+-+-+-+-+-+-+ 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;1 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 (PDENIZE@WAIKATO.AC.NZ)`20 X * X * Contributing authors: Rex Croft (CCC_REX@WAIKATO.AC.NZ) X * Lawrence D'Oliviero (LDO@WAIKATO.AC.NZ) X * Chris Guthrey (CGUTHREY@WAIKATO.AC.NZ) 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;1 1666029369 $ v=f$verify(v) $ EXIT