Liren Large Software Subsidy 6/06.iso/b/b034/gz.img/CBHS-71A.PRG

Text File | 1989-10-12 | 3.6 KB | 126 lines

*│╔▒╛║╦╦π╫╙│╠╨≥╓«╞▀╥╗:CBHS-71.PRG
xgm='   '
@ 3,0 say xg(1)+' ---- 1'
@ 4,0 say xg(2)+' ---- 2'
@ 5,0 say xg(3)+' ---- 3'
@ 6,0 say xg(4)+' ---- 4'
@ 7,0 say xg(5)+' ---- 5'
@ 8,0 say xg(6)+' ---- 6'
@ 9,0 say xg(7)+' ---- 7'
@ 10,0 say xg(8)+' ---- 8'
@ 11,0 say xg(9)+' ---- 9'
@ 12,0 say xg(10)+' ---- 10'
@ 13,0 say xg(11)+' ---- 11'
@ 14,0 say xg(12)+' ---- 12'
@ 15,0 say xg(13)+' ---- 13'
@ 16,0 say xg(14)+' ---- 14'
@ 17,0 say xg(15)+' ---- 15'
@ 18,0 say xg(16)+' ---- 16'
@ 19,0 say xg(17)+' ---- 17'
@ 20,0 say xg(18)+' ---- 18'
@ 21,0 say xg(19)+' ---- 19'
@ 22,0 say xg(20)+' ---- 20'
@ 3,27 say xg(21)+' ---- 21'
@ 4,27 say xg(22)+' ---- 22'
@ 5,27 say xg(23)+' ---- 23'
@ 6,27 say xg(24)+' ---- 24'
@ 7,27 say xg(25)+' ---- 25'
@ 8,27 say xg(26)+' ---- 26'
@ 9,27 say xg(27)+' ---- 27'
@ 10,27 say xg(28)+' ---- 28'
@ 11,27 say xg(29)+' ---- 29'
@ 12,27 say xg(30)+' ---- 30'
@ 13,27 say xg(31)+' ---- 31'
@ 14,27 say xg(32)+' ---- 32'
@ 15,27 say xg(33)+' ---- 33'
@ 16,27 say xg(34)+' ---- 34'
@ 17,27 say xg(35)+' ---- 35'
@ 18,27 say xg(36)+' ---- 36'
@ 19,27 say xg(37)+' ---- 37'
@ 20,27 say xg(38)+' ---- 38'
@ 21,27 say xg(39)+' ---- 39'
@ 22,27 say xg(40)+' ---- 40'
@ 3,54 say xg(41)+' ---- 41'
@ 4,54 say xg(42)+' ---- 42'
@ 5,54 say xg(43)+' ---- 43'
@ 6,54 say xg(44)+' ---- 44'
@ 7,54 say xg(45)+' ---- 45'
@ 8,54 say xg(46)+' ---- 46'
@ 9,54 say xg(47)+' ---- 47'
@ 10,54 say xg(48)+' ---- 48'
@ 11,54 say xg(49)+' ---- 49'
@ 12,54 say xg(50)+' ---- 50'
@ 13,54 say xg(51)+' ---- 51'
@ 14,54 say xg(52)+' ---- 52'
@ 15,54 say xg(53)+' ---- 53'
@ 16,54 say xg(54)+' ---- 54'
@ 17,54 say xg(55)+' ---- 55'
@ 18,54 say xg(56)+' ---- 56'
@ 19,54 say xg(57)+' ---- 57'
@ 20,54 say xg(58)+' ---- 58'
@ 21,54 say xg(59)+' ---- 59'
@ 22,54 say xg(60)+' ---- 60'
@ 24,5 say '╘┌┤╦╥│╨▐╕─┬≡(Y/N)?' get xgm
     read
if xgm='n'.or.xgm='N'
@ 3,0 clear
@ 3,0 say xg(61)+' ---- 61'
@ 4,0 say xg(62)+' ---- 62'
@ 5,0 say xg(63)+' ---- 63'
@ 6,0 say xg(64)+' ---- 64'
@ 7,0 say xg(65)+' ---- 65'
@ 8,0 say xg(66)+' ---- 66'
@ 9,0 say xg(67)+' ---- 67'
@ 10,0 say xg(68)+' ---- 68'
@ 11,0 say xg(69)+' ---- 69'
@ 12,0 say xg(70)+' ---- 70'
@ 13,0 say xg(71)+' ---- 71'
@ 14,0 say xg(72)+' ---- 72'
@ 15,0 say xg(73)+' ---- 73'
@ 16,0 say xg(74)+' ---- 74'
@ 17,0 say xg(75)+' ---- 75'
@ 18,0 say xg(76)+' ---- 76'
@ 19,0 say xg(77)+' ---- 77'
@ 20,0 say xg(78)+' ---- 78'
@ 3,27 say xg(79)+' ---- 79'
@ 4,27 say xg(80)+' ---- 80'
@ 5,27 say xg(81)+' ---- 81'
@ 6,27 say xg(82)+' ---- 82'
@ 7,27 say xg(83)+' ---- 83'
@ 8,27 say xg(84)+' ---- 84'
@ 9,27 say xg(85)+' ---- 85'
@ 10,27 say xg(86)+' ---- 86'
@ 11,27 say xg(87)+' ---- 87'
@ 12,27 say xg(88)+' ---- 88'
@ 13,27 say xg(89)+' ---- 89'
@ 14,27 say xg(90)+' ---- 90'
@ 15,27 say xg(91)+' ---- 91'
@ 16,27 say xg(92)+' ---- 92'
@ 17,27 say xg(93)+' ---- 93'
@ 18,27 say xg(94)+' ---- 94'
@ 19,27 say xg(95)+' ---- 95'
@ 20,27 say xg(96)+' ---- 96'
@ 3,54 say xg(97)+' ---- 97'
@ 4,54 say xg(98)+' ---- 98'
@ 5,54 say xg(99)+' ---- 99'
@ 6,54 say xg(100)+' ---- 100'
@ 7,54 say xg(101)+' ---- 101'
@ 8,54 say xg(102)+' ---- 102'
@ 9,54 say xg(103)+' ---- 103'
@ 10,54 say xg(104)+' ---- 104'
@ 11,54 say xg(105)+' ---- 105'
@ 12,54 say xg(106)+' ---- 106'
@ 13,54 say xg(107)+' ---- 107'
@ 14,54 say xg(108)+' ---- 108'
@ 15,54 say xg(109)+' ---- 109'
@ 16,54 say xg(110)+' ---- 110'
@ 17,54 say xg(111)+' ---- 111'
@ 18,54 say xg(112)+' ---- 112'
@ 19,54 say xg(113)+' ---- 113'
@ 20,54 say xg(114)+' ---- 114'
endif
@ 24,35 say '╟δ╩Σ╚δ▒α║┼:' get bh
     read
return