100 os$=VER$:IF "JS" INSTR os$:LRUN "win1_boot_qdos"
110 WMON
120 KBD_TABLE d:LANG_USE d
130 DATA_USE win1_rext:PROG_USE win1_exec
140 :
150 LRESPR ATARI_rext
160 :
170 SELect ON MACHINE:REMark First the display
180  =2 :DISP_SIZE 768
190  =9 :DISP_SIZE 880,600,60,31000,,25
200  =24:DISP_SIZE 1024,512,80,45000
210 END SELect
220 :
230 SELect ON MACHINE:REMark Next additional harddisks
240  =2,9:WIN_DRIVE 2,1,0:WIN_REMV 2:WIN_DRIVE 8,0,0
245  =24:WIN_DRIVE 2,9,0:WIN_DRIVE 8,8,0
247 END SELect
250 :
260 LRESPR QMON:LRESPR JMON
270 LRESPR QPTR
280 LRESPR QLIB_bin:LRESPR QLIB_run:LRESPR QLIB_ext
290 LRESPR QREF_bin
300 LRESPR QTYP_SPELL
310 IF XLIM<700:LRESPR QPAC2:ELSE LRESPR QPAC2_hi
320 LRESPR THING_rext:LRESPR MENU_rext
330 LRESPR COMMBAS_rext
340 LRESPR SDUMP_rext
350 LRESPR PTRMENR_cde
360 LRESPR MIDINET_rext
370 LRESPR qd
375 a=RESPR(1442):LBYTES win1_rext_def_fnt,a:CHAR_DEF a,0:FOR c=0 TO 2:CHAR_USE#c,0,0
380 :
390 PAR_PULSE 50:TRA 3
400 OUTLN#0,512,200,0,56:WSET -1,4
410 :
420 DATA_USE win1_exec_
430 ERT HOT_LOAD('/','qram')
440 ERT HOT_WAKE(CHR$(27),'button_sleep')
450 ERT HOT_WAKE('#','button_pick')
460 IF RMODE=2
470  ERT HOT_CMD('(','CLOSE:OUTLN#0,512,132,0,124:WSET 0')
480 ELSE
490  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')
500 END IF
510 ERT HOT_CMD(')','CLOSE:OUTLN#0,512,200,0,56:WSET -1:PAUSE 5:MODE 4:HOT_DO "#"')
520 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')
530 ERT HOT_PICK('<','')
540 ERT HOT_PICK ('>','SBASIC')
550 ERT HOT_LOAD ('a','ALARM')
560 ERT HOT_THING('b','QD';'\e_bas \tSBAS/QD \hwin1_basic_help_ \dwin1_basic_')
570 ERT HOT_LOAD1('C','Config')
580 ERT HOT_LOAD1('c','MenuConfig')
590 ERT HOT_THING('D','QD')
600 ERT HOT_WAKE ('d','QD')
610 ERT HOT_WAKE ('e','EXEC')
620 ERT HOT_THING('F','FILES')
630 ERT HOT_PICK ('f','FILES')
640 ERT HOT_WAKE ('g','FILES';'\dflp1_')
650 ERT HOT_WAKE ('H','HOTKEYS')
660 ERT HOT_WAKE ('h','CHANNELS')
670 ERT HOT_WAKE ('j','JOBS')
680 ERT HOT_WAKE ('J','RJOB')
690 ERT HOT_WAKE ('k','FILES';'\ov\dwin1_keys\sn'!'View')
700 ERT HOT_KEY  ('l','win1_t87_lett_'&CHR$(216))
710 ERT HOT_LOAD1('m','Make20','MAKE')
720 ERT HOT_THING1('P','SBASIC';'LRUN win1_m_make_bas'!"Master")
730 ERT HOT_WAKE ('p','PICK')
740 ERT HOT_LOAD ('Q','QMAKE')
750 ERT HOT_LOAD1('q','QMAKE')
760 ERT HOT_THING('R','CALCULATOR')
770 ERT HOT_CHP1 ('r','CALCULATOR','Calculator')
780 ERT HOT_WAKE ('s','SYSDEF')
790 ERT HOT_THING('S','SBASIC')
800 ERT HOT_THING('V','QD';'\dwin1_verw_ \e_')
810 ERT HOT_THING1('v','SBASIC';'LRUN Verwaltung'!"Verwaltung")
820 ERT HOT_KEY  ('w','win1_t87_ger_'&CHR$(216))
830 ERT HOT_KEY  ('W','win1_t87_eng_'&CHR$(216))
840 ERT HOT_PICK ('x','JMON')
850 IF RMODE=2
860 ERT HOT_LOAD1('X','XCHANGE_MONO';'250')
870 ELSE
880 ERT HOT_LOAD1('X','XCHANGE';'250')
890 END IF
900 ERT HOT_LOAD ('Y','STARTTEXT87')
910 ERT HOT_PICK ('y','TEXT87')
920 IF RMODE=2:ERT HOT_LOAD ('z','win1_t87_mono_text87plus4','Text87'):ELSE ERT HOT_LOAD ('z','win1_t87_Text87plus4','Text87')
930 ERT HOT_WAKE ('1','FILES';'\me\dwin1_exec_\sn'!'Execute')
940 ERT HOT_WAKE ('2','FILES';'\ovt\d_err'!'View')
950 ERT HOT_WAKE ('3','FILES';'\dwin1_basic__bas')
960 ERT HOT_WAKE ('4','FILES';'\dwin1_smsq__bas')
970 ERT HOT_LOAD1('6','win1_qbox_sys_DISPWATCH'!'Dispwatch')
980 ERT HOT_PICK ('7','QLTERM')
990 ERT HOT_LOAD1('8','win1_qbox_sys_QBOX'!'Qbox')
1000 ERT HOT_LOAD1('9','win1_qbox_sys_LOOKMAIL';'win1_qbox_sys_')
1010 :
1020 HOT_GO:MIDINET
1030 EX 'SYSMON':EX 'CLOCK':EX 'SYSTAT'
1040 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'
1050 :
1060 DATA_USE win1_:PROG_USE dev1_
1070 HOT_DO '<'
1080 OUTLN#0,512,200,0,56:WSET -1
1090 MS_HOT CHR$(255)&'#'
1100 SPL_USE par:SER_FLOW H:SER_CDEOF 10
1110 SDP_DEV serdf:SDP_SET 6,1,0
1120 QLIB_USE dev1_,win1_,0,0,'0011011000'
1130 DEV_USE 1,win1_exec_,2
1140 DEV_USE 2,win1_basic_,3
1150 DEV_USE 3,win1_fax_,4
1160 DEV_USE 4,win1_qbox_sys_,1
1170 DEV_USE 7,n1_win1_
1180 DEV_USE 8,win1_m_
1190 IF A_MACHINE<>9
1200  IF RMODE=2
1210   DISP_INVERSE 1
1220  ELSE
1230   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
1240  END IF
1250 ELSE
1260   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
1270  DATA_USE win1_qbox_sys_
1280  EW LOOKMAIL;DATAD$
1290  EW WATCHDOG
1300  EW TOSSMAIL
1310  SER_BUFF 60
1320  HOT_DO '8':HOT_DO '6'
1330 END IF