The Official GBBS Pro Repository

  • Home
  • ACOS GBBS Pro
    • Welcome to the GBBS Pro Archive
    • Apple II RoundTable – Lance Taylor-Warren
    • GBBS Pro System Software Version 2.1
    • GBBS Pro System Software 2.11 And Source Code
    • Legacy GBBS Pro System Software
    • Legacy DOS Based GBBS II Version 1.7
  • ACOS Utility Segs
    • ACOS Boss
    • ACOS GBBS Editor Version 1.1
    • DarkFire 2000 BBS Version 2.41
    • Day of the week mod
    • SysOp Mail Dashboard – Mail Utility v4.0
    • ACOS Device list
    • Top of screen stats
    • Midnight call counter fix
    • Mail fix utility
    • E-Mail subject mod
    • Speed with HST Modems
  • ACOS Game Segs
    • Calculate Medical Age
  • Misc Utilities
    • TCPSER Package
    • Exfer 4.3b Delta13
    • Super Total Access Control
    • Crash Proofing GBBS II Systems
    • Message Tracking Mod
    • ACOS Math
    • Email to multiple or all users
    • Preventing unauthorized access to site via malicious upload

ACOS GBBS Editor Version 1.1

Acos Edit is a program which was designed for editing Acos segments remotely.  The program was written for the Information Station BBS in Auburn Washington by Bill Martens.  There are two files included in this Mod.  The first is the program and the second part is the menu text file.  Both files are required for this system.  The segment is believed to require MACOS 1.45 to be installed in order to function, however, this detail has not been confirmed yet.  This segment is released under the GPL License as of 2017.

— Start of ACOS.EDIT.S Program —

; *************************************
;
; Acos GBBS Editor Version 1.1
; Main Utility Segment
; (c) April 1988
; Northwest Computer Services
;
; *************************************
;
; Written by
; W. P. Martens
; 28 April 1988
;
; *************************************
;
; Nortwest Computer Services
; Address Removed
;
; *************************************

on nocar goto dropped

public main.acos

qu=0

acos.editor
open #1,”h:segs.data”
input #1,ll
close
print \\”There currently are “ll” segments in this section.”\

main.acos
print \”Acos.Editor (?=menu) >”;
input i$
if i$=”?” goto menu.acos
if i$=”E” goto edit.seg
if i$=”D” goto delete.acos
if i$=”L” goto list.seg
if I$=”Q” goto link.main
if i$=”R” goto execute.seg
if i$=”H” goto help.file
if (i$=”*”) and (info(5)) goto link.sysop
print \”Illegal Command”
goto main.acos

menu.acos
f$=”acos.edit.menu”
gosub show.file
goto main.acos

help.file
setint(1)
copy “h:editor.help”
setint(“”)
goto main.acos

link.sysop
Print\\”Entering System Operator Utility”
link “h:edit.sys”

list.seg
print \”Enter file number to list”
input”>”;i$
if i$=”” goto main.acos
if i$=”?” kq=1:goto show.list
kl=val(i$)
if kl<1 or kl>ll goto file.none
f$=”h:seg.”+i$+”.s”
gosub show.file
goto main.acos

file.none
print \”That segment does not exist
goto list.seg

delete.acos
print\”Enter file number to delete”
input”>”;i$
if i$=”” goto main.acos
kl=val(i$)
if kl<1 or kl>ll goto del.none
open #1,”h:segs.list”
position#1,16,kl
input #1,fu$,sy,sw
close
if (sw<>un) and (not info(5)) goto del.belong
f$=”h:seg.”+i$+”.s”
f9$=”h:seg.”+i$+”.g”
kill f9$
kill f$
if ll=kl goto del.done
open #1,”h:segs.list”
for x=kl to ll-1
position #1,16,x+1
input #1,fu$,sy,sw
position #1,16,x
print #1,fu$,sy,sw
next
close
ll=ll-1
open #1,”h:segs.data”
print#1,ll
close

del.belong
print \”That segment was not written by you”
print “thus, you are not allowed to delete it.”
goto main.acos

del.done
print \”Deleted!!”
goto main.acos

del.none
print \”That file does not exist.”
goto delete.acos

execute.seg
print \\”Execute A Segment…”
print \”Enter number to execute”
input “>”;i$
if i$=”” goto main.acos
if i$=”?” kq=4: goto show.list
kl=val(i$)
if kl <1 or kl>ll then goto ex.none
open #1,”h:segs.list”
position #1,16,kl
input #1,k9$,k8,k7
close
if k8=0 goto ex.verify
f$=”h:seg.”+i$+”.s”
link f$
return

ex.verify
print \’
That program has not been verified by the System operator yet.  Try again later or choose another selection’
goto execute.seg

ex.none
print \”That segement does not exist”
goto execute.seg

log.out
print \\”breech of security”
print”Goodbye…”
goto dropped

link.main
link”a:main.seg”,”fromsys”

edit.seg
print\”Editor Command ->”;
input i$
if i$=”?” goto ed.menu
if i$=”A” goto add.file
if i$=”E” goto edit.file
if i$=”L” kq=2:goto show.list
if i$=”Q” goto main.acos

ed.menu
setint(1)
copy “h:edit.menu.1”
setint(“”)
goto edit.seg

add.file
print \”Add a Segment…”
edit(0)
gosub editor
if not edit(2) goto edit.seg

add.name
print \”Name of Acos Segment”
input “>”;i$
if i$=”” goto add.none
nq$=i$:ll=ll+1:f$=”h:seg.”+STR$(LL)+”.s”
kill f$:create f$:open #1,f$
copy #8,#1:close
print\\”File Saved!”
create “h:segs.list”
open #1,”h:segs.list”
position #1,16,ll
print #1,nq$,qu,un
close
open #1,”h:segs.data”
print #1,ll
close
goto edit.seg

add.none
print\”Do you really want to abort? (Y/N)”
input “>”;i$
if i$=”” print \”enter Yes or No”:goto add.none
if left$(i$,1)=”Y” goto main.acos
goto add.name

edit.file
print \”File number to edit”
input”>”;i$
if i$=”” goto edit.seg
if i$=”?” kq=3:goto show.list
kl=val(i$)
if kl>ll or kl<1 goto edit.none
open #1,”h:segs.list”
position #1,16,kl
input #1,f8$,x,y
close
f$=”h:seg.”+i$+”.s”
edit(0)
copy i$,#8
gosub editor
if not edit(2) goto edit.seg
kill f$:create f$:open #1,f$
copy #8,#1:close
open#1,”h:segs.list”
position #1,16,kl
print #1,f8$,qu,un
close
goto edit.seg

edit.none
print \”That segment does not exist.”
goto edit.file

; subroutines

show.list
print \”Segments List :”\
if ll=0 goto show.list2
print \”#  Title of segment      Verified”
setint(1)
open#1,”h:segs.list”
for x=1 to ll
position #1,16,x
input #1,sg$,sq,sr
print x”> “;sg$;”        “;
if sq=1 print “Yes”
if sq=0 print “No”
next
close
setint(“”)

show.ret
if kq=1 goto list.seg
if kq=2 goto edit.seg
if kq=3 goto edit.file
if kq=4 goto execute.seg

show.list2
print\\”There are currently no existing segments”
goto show.ret

editor
print \”Acos Segment Editor   “edit(3)”Cols., 4k max.”
print “.s to save, .h to get help, .a to abort”
print “=======================================”
edit(1)
return

dropped
link”a:main.seg”,”term1″

show.file
print \”Acos Editor V.1.0 Source File Lister”
print “<Ctrl><S> to pause, <Space> to stop”
print “====================================”\
setint(1)
copy f$
setint(“”)
return

— End of Program —

— Start of ACOS.EDIT.MENU —
[]===================================[]
[]      Acos Editor System Menu      []
[]===================================[]

[?] Get This Menu
[E] Enter Editor System
[D] Delete A Segment
[L] List A Segment
[R] Execute A Segment
[H] Get The Help File
[Q] Quit to Main System

[]===================================[]

— End of File —

Recent Posts

  • GBBS Pro 2.2 Beta 1 Software & Book Now Available
  • GBBS Pro System Software Version 2.14 and Source
  • GBBS Pro System Software 2.11 And Source Code
  • GBBS Pro System Software Version 2.1
  • Legacy GBBS Pro System Software

Recent Comments

    Archives

    • July 2019
    • February 2017
    • January 2017

    Categories

    • Bulletin Board Systems
    • GBBS System
    • General

    Meta

    • Log in
    • Entries feed
    • Comments feed
    • WordPress.org
    CyberChimps ©2022