mirror of
https://github.com/kennethreitz/elizagen.org.git
synced 2026-06-21 15:10:57 +00:00
Rupert Lane
22 lines
1.8 KiB
Plaintext
22 lines
1.8 KiB
Plaintext
EXTERNAL FUNCTION (RADER) 006680
|
|
NORMAL MODE IS INTEGER 006690
|
|
ENTRY TO LVLRV1. 006700
|
|
ENTRY TO UPONE. 006710
|
|
W'R LNKR.(CONT.(READER+1)) .E. 0, T'O DONE 006720
|
|
COUNT = 006730
|
|
ENTRY TO LVLRVT. 006740
|
|
ENTRY TO UPALL. 006750
|
|
COUNT=LNKR(CONT.(READER+1)) 006760
|
|
GENRL THROUGH RAISE, ,FOR I=COUNT,-1, I .E. 0 006770
|
|
LINK=LINKR.(CONT,(READER)) 006780
|
|
FIRST=CONT.(LINK) 006790
|
|
SECOND=CONT.(LINK+1) 006800
|
|
STRIND.(FIRST,READER) 006810
|
|
STRIND.(SECOND,READER+1) 006820
|
|
RAISE RCELL.(LINK) 006830
|
|
T'O DONE 006840
|
|
ENTRY TO INITRD. 006850
|
|
SETIND.(-1,LNKL.(CONT.(READER+1)),-1,READER) 006860
|
|
DONE FUNCTION RETURN READER 006870
|
|
END OF FUNCTION 006880
|