From a62c612432fe5de76d8e0e700ccda9b1e33fe7da Mon Sep 17 00:00:00 2001
From: rswindell <>
Date: Wed, 31 Aug 2005 20:35:10 +0000
Subject: [PATCH] New @-code: INCLUDE, just like TYPE, except no
 auto-prepending of CRLF (blank line). Used for including head.asc and
 tail.asc in the new main.asc.

---
 src/sbbs3/atcodes.cpp | 5 +++++
 text/menu/main.asc    | 5 +++--
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/src/sbbs3/atcodes.cpp b/src/sbbs3/atcodes.cpp
index 2ce46bf79b..a54ae01a17 100644
--- a/src/sbbs3/atcodes.cpp
+++ b/src/sbbs3/atcodes.cpp
@@ -597,6 +597,11 @@ char* sbbs_t::atcode(char* sp, char* str)
 		return(nulstr);
 	}
 
+	if(!strncmp(sp,"INCLUDE:",5)) {
+		printfile(cmdstr(sp+8,nulstr,nulstr,str),P_NOCRLF);
+		return(nulstr);
+	}
+
 	if(!strcmp(sp,"QUESTION"))
 		return(question);
 
diff --git a/text/menu/main.asc b/text/menu/main.asc
index e6078d9833..55e4225160 100644
--- a/text/menu/main.asc
+++ b/text/menu/main.asc
@@ -1,4 +1,4 @@
-@TYPE:%zmenu/head.asc@ b�h� wRead/Post Messages�nb�h� wMessage Area Selection   nb�h� wElectronic Mail
+@INCLUDE:%zmenu/head.asc@ b�h� wRead/Post Messages�nb�h� wMessage Area Selection   nb�h� wElectronic Mail
 b�nb�Ŀ�h�nb�Ŀ�h�nb�Ŀ
 � hcNnb� wNew message scan�b� hcJnb� wJump to new msg area   b� hcEnb� wRead/Send E-mail
 b� hcRnb� wRead message prompt   b����   hc* nList sub-boards    b����
@@ -12,4 +12,5 @@
 hb�nb�Ŀ�� hcGnb� wText file section�b�hc/Lnb� wNode activity
 b� hcFnb� wFind text in messages b� hcCnb� wChat section�b�hc^Knb� wCtrl-key Menu
 b� hcSnb� wScan for msgs to you  b� hcXnb� wExternal programs�b� hcOnb� wLogoff BBS (or /O)
-b��������������(n      hc!n=Sysop Menu)@TYPE:%zmenu/tail.asc@
\ No newline at end of file
+b��������������(n      hc!n=Sysop Menu)
+@INCLUDE:%zmenu/tail.asc@
\ No newline at end of file
-- 
GitLab