{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: COMPSAJE)}}
====== COMPSAJE ======
(George Source)
22FL #OPT K0IE=K0ALLGEO>0
22^= #OPT K0COMPSAJE=K0IE>K0ALLGEO>0
23DW #LIS K0COMPSAJE
23L4 ...# (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982.
23R= ...#DEF EDLOOP=1
23YG #
24D6 # DICK RUSBRIDGE
24XQ #
25CB #
25X2 # THIS SEGMENT CONTAINS THE DEFINITIONS OF THE UNIVERSALS AND
26BL # INCLUDES FOR CHAPTERS USED BY THE GEORGE 3/4 INTEGRAL EDITOR
26W= #
27*W # 1 LISTING LEVELS.
27TG # -----------------
28*6 #
28SQ #OPT K0EDITOR=K0IE>0
294J ...#OPT K0EDITORA=K0IE>0
29#B #OPT K0EDITAR=K0IE>0
29S2 #OPT K0EDITET=K0IE>0
2=?L #OPT K0EDITPT=K0IE>0
2=R= #OPT K0EDWRITE=K0IE>0
2?=W #OPT K0EDITEX=K0IE>0
2?QG #OPT K0EDIT=K0IE>0
2#=6 #OPT K0EDITER=K0IE>0
2#PQ #OPT K0EDITMFO=K0IE>0
2*9B #OPT K0OMNIERR=K0IE>0
2*P2 #OPT K0FFFNORM=K0IE>0
2B8L #
2BN= #
2C7W # 2 INCLUDES - MARK 7 ONWARDS
2CMG # --------------------------
2D76 #
2DLQ #
2F6B #
2FL2 #
2G5L #
2GD3 ...# #INC EDITOR867
2GQD ...# #INC EDITORA865
2H4W ...# #INC EDITET7
2HJG ...# #INC EDITAR867
2J46 ...# #INC EDITPT867
2JHQ ...# #INC EDITEX7
2K3B ...# #INC EDWRITE867
2KH2 ...# #INC EDIT867
2L2L ...# #INC EDITMFO867
2LG= ...# #INC FFFNORM7
2L^W ...# #INC EDITER867
2MFG ...# #INC OMNIERR
2M^6 #
2NDQ # 3 EDITOR'S CPAT EXTENSION.
2NYB # --------------------------
2PD2 #
2PXL #DEF IESW=A1+CPATLEN [SWITCH WORD
2QC= #
2QWW # SWITCH WORD USED AS FOLLOWS :-
2RBG # B0=1 PLEASE LIST
2RW6 # B1=1 IF LISTING PLEASE NUMBER
2S*Q # B2=1 I AM IN AN 'I' INSTRUCTION
2STB # B3=1 PLEASE WORK IN 'W' MODE
2T*2 # B4=1 IF W MODE I HAVE ALREADY LISTED THIS
2TSL # B5 FREE
2W#= # B6=1 EOF WAS READ LAST TIME
2WKL ...# B7=1 READING 1ST RECORD OF O/F (EDIT)
2WRW ...# B8=1 ACTIVITY PRIORITY REDUCED (ICT)
2X26 ...# B9-18 FREE
2X8B ...# B19=1 'D' PARAMETER PRESENT IN GEDIT
2XFQ ...# B20=1 YRTL DURING A,B OR R
2XR6 # B21=1 WE ARE DOING A GEDIT
2Y=Q # B22=1 AN F WAS GIVEN IN PREVIOUS RECORD
2YQB # B23=1 AN F WAS GIVEN IN THIS RECORD
2^=2 #
2^PL #
329= #DEF IEFS=IESW+1 [NUMBER OF EDITING FILES OPEN
32NW #DEF IEFT=IEFS+1 [TYPES 1=MOP/JS 0=REAL
338G #DEF IEIA=IEFT+1 [EDIT FILE BLOCK ADDRESS
33N6 #DEF IEIM=IEIA+1 [EDIT FILE PHOTO COUNT
347Q #DEF IEIP=IEIM+1 [EDIT FILE CHARACTER MODIFIER
34MB #DEF IEIH=IEIP+1 [EDIT FILE BLOCK END MODIFIER
3572 #
35LL #DEF IEON=IEIH+1 [NUMBER OF FILES OPEN
366= #DEF IEOA=IEON+1 [OLD FILE BLOCK
36KW #DEF IEOM=IEOA+1 [OLD FILE PHOTO COUNT
375G #DEF IEOH=IEOM+1 [OLD FILE BLOCK END MODIFIER
37K6 #DEF IEOT=IEOH+1 [OLD FILE PERIPHERAL TYPE/MODE
384Q #
38JB #DEF IENA=IEOT+1 [NEW FILE BLOCK ADDRESS
3942 #DEF IENM=IENA+1 [NEW FILE PHOTO COUNT
39HL #DEF IENH=IENM+1 [NEW FILE RECORD LIMIT(CHARACTERS)
3=3= #DEF IENL=IENH+1 [NEW FILE RECORDS LIMIT (RECORDS)
3=GW #
3?2G #DEF IEDS=IENL+1 [DUMMY SYMBOL
3?G6 #DEF IEVS=IEDS+1 [VISIBLE SPACE
3?^Q #DEF IENO=IEVS+1 [NEW ORIGIN
3#FB #DEF IEPF=IENO+1 [PFCC
3#^2 #
3*DL #DEF IEPS=IEPF+1 [PARSE START ADDRESS
3*Y= #DEF IEPC=IEPS+1 [PARENTHESEIS COUNT
3BCW #DEF IESE=IEPC+1 [SYNTAX ERROR LIMIT ADDRESS
3BXG #
3CC6 #DEF IESP=IESE+1 [SYNTAX STACK POINTER
3CWQ #DEF IECC=IESP+1 [CONDL. REPTN. STOPPING POINTER
3DBB #DEF IESY=IECC+1 [STOPPING VALUE OF IESP(TEMP)
3DW2 #DEF IEEP=IESY+1 [STOPPING VALUE OF IEIP(TEMP)
3F*L #
3FT= #SKI JDIAG1
3G#W (
3GSG #DEF IESD=IEEP+1 [SEQUENCE WORD DUMP
3H#6 ...#DEF IEOG=IESD+1 [OLDFILE RECORD HEADER LENGTH (+A1)
3HRQ ...#DEF IENG=IEOG+1 [NEWFILE RECORD HEADER LENGTH (+A1)
3J?B #DEF IEIG=IENG+1 [EDITFILE RECORD HEADER LENGTH (+A1)
3JR2 #
3K=L #DEF IEL1=IEIG+1 [LINK COORDS.
3KQ= )
3L9W #SKI JDIAG1<1$1
3LPG #DEF IEL1=IEEP+1 [LINK COORDS.
3M96 #DEF IEL2=IEL1+1
3MNQ #DEF IEL3=IEL2+1
3N8B #DEF IEL4=IEL3+1
3NN2 #DEF IEL5=IEL4+1
3P7L #
3PM= #DEF IEWT=IEL5+1 [ WORDS
3Q6W #DEF IENZ=IEWT+5 [THE FOLLOWING WORDS ARE CHARACTER
3QLG #DEF IEOZ=IENZ+2 [AND RECORD POINTERS TO THE OLD
3R66 #DEF IENY=IEOZ+2 [AND NEW FILE THESE ARE THREE
3RKQ #DEF IEOY=IENY+2 [SETS OF FOUR WORDS FOR THE CURRENT
3S5B #DEF IENR=IEOY+2 [POSITIONS (NOW, AT THE START OF
3SK2 #DEF IENC=IENR+1 [THIS EDITING RECORD, AT THE START
3T4L #DEF IEOR=IENC+1 [OF THE PREVIOUS EDITING RECORD)
3TJ= #DEF IEOC=IEOR+1
3W3W #
3WHG #DEF IEOW=IEOC+1 [10 ELEMENT STACK FOR POSITIONS
3X36 # [IN ALL THE OLD FILES OPEN
3XGQ #
3Y2B #DEF IESTACK=IEOW+20 [REPETITION STACK
3YG2 #
3YH= ...#UNS EDLOOP
3YJG ...#DEF IEOS=IESTACK+45 [TOTAL OLDFILE RECORD TRANSFERS
3YKQ ...#UNS EDLOOP
3YM2 ...#SKI
3YN= ...#DEF IEOS=IESTACK+35 [TOTAL OLDFILE RECORD TRANSFERS
3YWG ...#DEF IENS=IEOS+1 [TOTAL NEWFILE RECORD TRANSFERS
3^4Q ...#
3^5B ...
3^62 ...#UNS EDPOINTER
3^6L ...(
3^7= ...#DEF IEBF=IENS+1
3^7M ...#DEF IERP=IEBF+4 [CH.CHANGE COUNT FOR LETOPRUN-E8159
3^84 ...#DEF IEXT=IERP+1-A1-CPATLEN [LENGTH OF EXTENSION
3^8G ...)
3^96 ...#UNS EDPOINTER
3^9Q ...#SKI
3^=B ...(
3^#M ...#DEF IERP=IENS+1 [CH.CHANGE COUNT FOR LETOPRUN-E8159
3^BY ...#DEF IEXT=IERP+1-A1-CPATLEN [LENGTH OF EXTENSION
3^F= #
3^YW #DEF IEBF=ACOM1 [OUTPUT BUFFER
4264 ...
42?= ...)
42DG #
42Y6 #
43CQ #
43XB #
^^^^ ...507540210011