15 KBD_TABLE 1
110 DATA_USE win1_rext:PROG_USE win1_exec
120 :
130 ATARI_EXT
140 :
150 WIN_SLUG 20:WIN_REMV 2
160 IF A_EMULATOR=2:DISP_SIZE 880,600,60,31000,,25
170 IF A_MACHINE=9:ACCEL_SET M:REMark Mega STE
180 IF A_MACHINE+A_PROCESSOR=32:ACCEL_SET P,2:REMark HyperCache 030
190 IF A_MACHINE=24:DISP_SIZE 1024,512,80,45000:WIN_DRIVE 2,9,0:REMark TT
200 :
210 LRESPR QMON:LRESPR JMON
230 LRESPR QPTR
240 LRESPR QLIB_bin:LRESPR QLIB_run:LRESPR QLIB_ext
250 LRESPR QLOADREF_bin
260 LRESPR QTYP_SPELL
270 IF YLIM<300:LRESPR QPAC2:ELSE LRESPR QPAC2_hi
280 LRESPR TRA_rext
290 LRESPR THING_rext
300 LRESPR MENU_rext
310 LRESPR COMMBAS_rext
320 LRESPR DEV_rext
330 LRESPR QBASIC_rext
340 LRESPR SDUMP_rext
350 LRESPR ATARIDOS_rext
360 LRESPR PTRMENR_cde
370 LRESPR MIDINET_rext
380 LRESPR qd
390 :
400 PAR_PULSE 50
410 OUTLN#0,512,200,0,56:WSET -1,4
420 :
430 DATA_USE win1_exec_
440 ERT HOT_LOAD('/','qram')
450 ERT HOT_WAKE(CHR$(27),'button_sleep')
460 ERT HOT_WAKE('#','button_pick')
470 ERT HOT_CMD('(','CLOSE:OUTLN#0,768,280,0,0:window#1,360,279,408,0:window #2,410,228,0,0:window#0,410,52,0,227:border#0,1,4:border#2,1,4:border#1,1,4:mode 4')
480 ERT HOT_CMD(')','CLOSE:OUTLN#0,512,200,0,56:WSET -1:PAUSE 5:MODE 4:HOT_DO "#"')
490 ERT HOT_CMD(CHR$(249),'CLOSE:OUTLN#0,256,280,512,0:WINDOW#0,256,42,512,236:WINDOW#1,256,102,512,135:WINDOW#2,256,136,512,0:BORDER#0,1,4:BORDER#1,1,4:BORDER#2,1,4:MODE 4')
500 ERT HOT_PICK('<','')
505 ERT HOT_PICK ('>','SBASIC')
510 ERT HOT_LOAD ('a','ALARM')
520 ERT HOT_THING('b','QD';'\e _bas \tQBASIC \hwin1_basic_help_ \dwin1_basic_')
530 ERT HOT_LOAD1('C','Config')
540 ERT HOT_LOAD1('c','MenuConfig')
550 ERT HOT_THING('D','QD')
560 ERT HOT_WAKE ('d','QD')
570 ERT HOT_WAKE ('e','EXEC')
580 ERT HOT_THING('F','FILES')
590 ERT HOT_PICK ('f','FILES')
600 ERT HOT_WAKE ('g','FILES';'\dflp1_')
610 ERT HOT_WAKE ('H','HOTKEYS')
620 ERT HOT_WAKE ('h','CHANNELS')
630 ERT HOT_WAKE ('j','JOBS')
640 ERT HOT_WAKE ('J','RJOB')
650 ERT HOT_WAKE ('k','FILES';'\ov\dwin1_keys\sn'!'View')
660 ERT HOT_KEY  ('l','win1_t87_lett_'&CHR$(216))
670 ERT HOT_LOAD1('m','Make20','MAKE')
680 ERT HOT_LOAD1('n','STUFFNAME')
690 ERT HOT_LOAD1('P','win1_m_make_obj'!'Master')
700 ERT HOT_WAKE ('p','PICK')
710 ERT HOT_LOAD ('Q','QMAKE')
720 ERT HOT_LOAD1('q','QMAKE')
730 ERT HOT_THING('R','CALCULATOR')
740 ERT HOT_CHP1 ('r','CALCULATOR','Calculator')
750 ERT HOT_WAKE ('s','SYSDEF')
755 ERT HOT_THING('S','SBASIC')
760 ERT HOT_THING('V','QD';'\dwin1_verw_ \e_')
770 ERT HOT_LOAD1('v','Verwaltung')
780 ERT HOT_KEY  ('w','win1_t87_ger_'&CHR$(216))
790 ERT HOT_KEY  ('W','win1_t87_eng_'&CHR$(216))
800 ERT HOT_PICK ('x','JMON')
810 ERT HOT_LOAD1('X','XCHANGE';'250')
820 ERT HOT_LOAD ('Y','STARTTEXT87')
830 ERT HOT_PICK ('y','TEXT87')
840 IF RMODE=2:ERT HOT_LOAD ('z','win1_t87_mono_text87plus4','Text87'):ELSE ERT HOT_LOAD ('z','win1_t87_Text87plus4','Text87')
850 ERT HOT_WAKE ('1','FILES';'\me\dwin1_exec_\sn'!'Execute')
860 ERT HOT_WAKE ('2','FILES';'\ovt\d_err'!'View')
870 ERT HOT_WAKE ('3','FILES';'\dwin1_basic__bas')
875 ERT HOT_WAKE ('4','FILES';'\dwin1_smsq__bas')
880 ERT HOT_LOAD1('6','win1_qbox_sys_DISPWATCH'!'Dispwatch')
890 ERT HOT_PICK ('7','QLTERM')
900 ERT HOT_LOAD1('8','win1_qbox_sys_QBOX'!'Qbox')
910 ERT HOT_LOAD1('9','win1_qbox_sys_LOOKMAIL';'win1_qbox_sys_')
920 :
930 HOT_GO:MIDINET
940 EX 'SYSMON':EX 'CLOCK':EX 'SYSTAT'
950 BT_WAKE 'Hotkeys','Hotkey':BT_SLEEP 'Channels','Chan':BT_SLEEP 'Pick':BT_SLEEP 'Exec':BT_SLEEP 'Jobs':BT_SLEEP 'Rjob':BT_SLEEP 'Things','Thg':BT_SLEEP 'Sysdef','Sys':BT_EXEC 'Files','File'
960 :
965 DATA_USE win1_:PROG_USE dev1_
970 HOT_DO '<'
980 OUTLN#0,512,256,0,0
990 MS_HOT CHR$(255)&'#'
1000 SPL_USE par:SER_FLOW H:SER_CDEOF 10
1010 SDP_DEV serdf:SDP_SET 6,1,0
1020 QLIB_USE dev1_,win1_,0,0,'0011011000'
1040 DEV_USE 1,win1_exec_,2
1050 DEV_USE 2,win1_basic_,3
1060 DEV_USE 3,win1_fax_,4
1070 DEV_USE 4,win1_qbox_sys_,1
1075 DEV_USE 7,n1_win1_
1080 DEV_USE 8,win1_m_
1090 IF A_MACHINE<>9
1095  IF RMODE=2
1097   WSET -1:DISP_INVERSE 1
1098  ELSE 
1100   OUTLN#0,256,280,512,0:WINDOW#0,256,42,512,236:WINDOW#1,256,102,512,135:WINDOW#2,256,136,512,0:BORDER#0,1,4:BORDER#1,1,4:BORDER#2,1,4
1105  END IF 
1110 ELSE 
1120   x=0:y=YLIM-256:OUTLN#0,510,256,x,y:WINDOW#0,510,42,x,y+214:WINDOW#1,256,215,x+254,y:WINDOW#2,256,215,x,y:BORDER#0,1,4:BORDER#1,1,4:BORDER#2,1,4
1130  DATA_USE win1_qbox_sys_
1140  EW LOOKMAIL;DATAD$
1150  EW WATCHDOG
1155  EW TOSSMAIL
1160  SER_BUFF 60
1170  HOT_DO '8':HOT_DO '6'
1180 END IF