DataMuseum.dk

top - metrics - download

    Length: 4450 (0x1162)
    Notes: pts_type(SC)
    Names: »SPLITT.SC«

└─⟦7b35573c9⟧ Bits:30009690 Philips computer tape "600402"
    └─⟦this⟧ »A:AF/SPLITT.SC« 

PTS(SC)

* 
*	S P L I T T 
*	THIS MODULE IS USED BY SCREEN PACKAGE.
*	IT CONTAINS KEYTABLES AND ERROR PRINTOUTS 
*	USED IN CONNECTION WITH SCREEN PACKAGE
* 
BSP1 EQU X'8D'
EDIT EQU X'82'
SEND EQU X'0F'
PF1 EQU X'01' 
PF2 EQU X'02' 
PF3 EQU X'03' 
PF4 EQU X'04' 
PF5 EQU X'05' 
PA1 EQU X'63' 
PA2 EQU X'64' 
PA3 EQU NOKEY 
PA4 EQU NOKEY 
PA5 EQU NOKEY 
FSP EQU X'8E' 
BSP EQU X'8D' 
RESET EQU X'1D' 
CANC1 EQU X'0D' 
REWRT EQU NOKEY 
EOI EQU X'1C' 
FWD EQU X'1C' 
BWD EQU X'0C' 
HOME EQU X'8C'
LF EQU X'8A'
LEFT EQU NOKEY
RIGHT EQU NOKEY 
DOWN EQU X'8B'
UP EQU X'8F'
HCOPY EQU X'62' 
DUP EQU NOKEY 
NOKEY EQU X'FF' 
INS EQU X'61' 
DEL EQU X'60' 
CLEAR EQU X'1E' 
* 
*	KEYTABLE USED WHEN CURSOR IS PLACED AT THE VERY 
*	FIRST POSITION IN THE CURRENT FIELD 
* 
SPKTAB1 KTAB BSP1,RESET,NOKEY,EOI,CANC1,		C 
		CLEAR,FWD,BWD,HOME,LF,LEFT,		C
		RIGHT,DOWN,UP,HCOPY,DUP,		C 
		EDIT,SEND,PF1,PF2,PF3,		C 
		PF4,PF5,PA1,PA2,PA3,		C 
		PA4,PA5 

* 
*	KEYTABLE USED WHEN CURSOR IS PLACED AT ANY
*	POSITION BUT THE VERY FIRST IN THE CURRENT FIELD
* 
SPKTAB2 KTAB BSP1,RESET,NOKEY,EOI,CANC1,		C 
		CLEAR,FWD,BWD,HOME,LF,LEFT,		C
		RIGHT,DOWN,UP,HCOPY,DUP,		C 
		EDIT,SEND,PF1,PF2,PF3,		C 
		PF4,PF5,PA1,PA2,PA3,		C 
		PA4,PA5 
* 
*	KEYTABLE USED IN EDIT MODE
* 
SPKTAB3 KTAB FSP,BSP,INS,DEL,NOKEY,		C		
		NOKEY,NOKEY,EOI,CANC1,CLEAR,		C 
		FWD,BWD,HOME,LF,LEFT,RIGHT,		C
		DOWN,UP,HCOPY,DUP,EDIT,		C
		SEND,PF1,PF2,PF3,PF4,		C
		PF5,PA1,PA2,PA3,PA4,		C 
		PA5 
* 


SPFTBERR FTABLE ER01,ER02,ER03,ER04,ER05

ER01 FRMT 
 FILLR '+',2
 FCOPY ='FOR F] TEGN' 
 FMEND

ER02 FRMT 
 FILLR '+',2
 FCOPY ='FEJL 2'
 FMEND

ER03 FRMT 
 FILLR '+',2
 FCOPY ='FEJL 3'
 FMEND

ER04 FRMT 
 FILLR '+',2
 FCOPY ='FEJL 4'
 FMEND

ER05 FRMT 
 FILLR '+',2
 FCOPY ='FELT MANGLER'
 FMEND