These are my first steps with PE (Pointer Environment) and QPAC, it is a learning excersise for me.
I have started with PE v1.xx (PTR_GEN v1.73, WMAN v1.53, HOT_REXT v2.28)
My QL is JS ROM, QDOS v1.10, 512K simple addon RAM, TK2 ROM plugin v2.20.
I have QPAC2 Deutch version v1.39
I have QPAC1 English versions as below
- Alarm clock v1.01
- Calculator v1.02
- Calendar v1.03
- Clock v2.01 (also known as DIG)
This is my S*BASIC screen, please note that I use TV (albeit in monitor mode), therefore the leftmost PICK hot key button cannot be seen here. Hot keys list is displayed on standard channel #1 as help. This is my backdrop initial screen, I can also come back here when putting S*BASIC to sleep, by pressing ALT-F1. PE 1.xx is loaded before QPAC over SER2 serial port using LBYTES
Code: Select all
90 baud 9600
100 base1=RESPR(15140) : LBYTES SER2HR,base1 : CALL base1 : REMark PTR_GEN
110 base2=RESPR(10520) : LBYTES SER2HR,base2 : CALL base2 : REMark WMAN
120 base3=RESPR(11776) : LBYTES SER2HR,base3 : CALL base3 : REMark HOT_REXT
I boot RAMPRT ramdisk very first and copy all QPAC1 applications to RAM1_
Code: Select all
100 BAUD 9600
110 :
120 REMark First shrink S*BASIC windows
130 :
140 WINDOW #0,467,51,35,205 : BORDER #0
150 WINDOW #2,225,188,32,14 : BORDER #2,1,255
160 WINDOW #1,242,188,257,14 : BORDER #1,1,255
170 MODE 4
180 :
190 REMark - Resident extensions, Apps in RAM disk, Mouse driver
200 :
210 rext$='ser2': exec$='ram1_'
220 LRESPR rext$ : REMark RAMPRT
225 LRESPR rext$ : REMark QPAC2
240 COPY rext$ TO exec$ & 'alarm'
250 COPY rext$ TO exec$ & 'calendar'
260 COPY rext$ TO exec$ & 'calculator'
270 COPY rext$ TO exec$ & 'clock'
280 COPY rext$ TO exec$ & 'sysmon'
290 COPY rext$ TO exec$ & 'typer'
300 LRESPR rext$ : REMark Mouse1 SER1 port
310 :
320 REMark - Now Hotkeys to start things off
330 :
340 ERT HOT_CHP('k',exec$ & 'calendar')
350 ERT HOT_CHP('c',exec$ & 'calculator')
360 ERT HOT_CHP('a',exec$ & 'alarm')
370 ERT HOT_CHP1('w',exec$ & 'typer')
380 ERT HOT_PICK('b','')
390 ERT HOT_WAKE('x','Exec')
400 ERT HOT_WAKE('z','Wake')
410 ERT HOT_WAKE('p','Pick')
420 ERT HOT_WAKE('d','Dateien')
430 ERT HOT_WAKE('l','Ljob')
440 ERT HOT_WAKE('s','Sysdef')
450 ERT HOT_THING(CHR$(232),'Button_Schlaf')
460 ERT HOT_THING('.','Button_Pick')
470 :
480 REMark - Hotkeys set up, now go
490 HOT_GO
500 :
510 REMark - Any apps to launch at start up?
520 REMark : EX exec$ & 'sysmon'
530 REMark : EX exec$ & 'clock'
540 :
550 REMark - Now the buttons
560 BT_HOTKEY 'Pick'
570 BT_SLEEP 'Sysdef'
580 BT_SLEEP 'Rjob'
590 BT_SLEEP 'Jobs'
600 BT_SLEEP 'Wake'
610 BT_SLEEP 'Exec'
620 BT_EXEC 'Dateien'
630 BT_HOTKEY 'alarm'
640 BT_HOTKEY 'calendar'
650 BT_HOTKEY 'calculator'
660 PROG_USE exec$
670 PAUSE 50
680 HOT_DO 'b'
690 HOT_DO CHR$(232)
700 HOT_LIST
TYPER, and
SYSMON
I have these only for PE 2.xx
Can anyone share please?
Many thanks in advance.
Tom