home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1993 #2
/
Image.iso
/
comm
/
mbbs25a4.zip
/
MACRODAT.MAC
< prev
next >
Wrap
Text File
|
1993-05-30
|
10KB
|
375 lines
MACRODAT.MAC 2.5 ALPHA
by Jeff Oberlee (C)opyright 1992,93
{:alr} {MACL MACROBBS.MAC,WF3} {:alu} {MACL MACROBBS.MAC,bbs}
{:close}
{RCLO}
{WCLO}
{:time_out}
{MACL MACROBBS.MAC,time_out}
{:cls}
{CLEA}
{COMP on,} {IFCO CLS3}
{COMP mnu,A} {IFCO CLS1}
{SEND ^[[2J}
{GOTO CLS2}
{:CLS1} {SEND ^L}
{:CLS2} {DISP 1,1,4F,│ }
{DISP 1,3,4E,%login_name #%userno}
{DISP 1,40,47,AL=%al}
{DISP 1,49,47,%mspeed}
{DISP 1,57,47,%_ela mins}
{DISP 1,70,4F,%an9%%chat}
{DISP 2,1,4F,│ }
{DISP 2,3,47,%rname - %from}
{DISP 3,1,4F,└──────────────────────────────────────────────────────────────────────────────}
{DISP 4,1,07,}
{:CLS3} {RETURN}
{:press_any_key}
{COMP mnu,a} {IFCO PAK1}
{SEND %an3%%an9^[[24;1h^[[24;1f[Press Any Key]%an0}
{GOTO PAK2}
{:PAK1} {SEND ^J^M^J[Press Any Key]}
{:PAK2} {SETG 300,time_out}
{GETS-H temp,1,PAK}
{:PAK} {SEND ^M ^M}
{SETV temp}
{RETURN}
{:read_user}
{ROPE %userdir%%userno.USR,RU1}
{READ login_name}
{READ password}
{READ al}
{READ protocol}
{READ expert}
{READ a}
{READ fa}
{READ l_call}
{READ rname}
{READ from}
{READ pcpd}
{READ clr2}
{READ arcer}
{READ arc}
{RCLO}
{:RU1} {RETURN}
{:write_user}
{WOPE %userdir%%userno.USR}
{WRIT %login_name}
{WRIT %password}
{WRIT %al}
{WRIT %protocol}
{WRIT %expert}
{WRIT %a}
{WRIT %fa}
{WRIT %_dwt %_dat}
{WRIT %rname}
{WRIT %from}
{WRIT %pcpd}
{WRIT %clr2}
{WRIT %arcer}
{WRIT %arc}
{WCLO}
{RETURN}
{:chg_password}
{SEND ^J^M}
{:NU10} {PUSH}
{SEND ^J^M%an4%Choose a password. You will need it each time you log-on.^J^M}
{:NU1} {SEND %an0%Password: }
{:NU7} {CALL cd}
{GETS password,15,NU7}
{LENG %password} {COMP %_len,4} {IFCO-GE NU3}
{SEND ^J^M%an1%Invalid password. %an0%Must be at least 4 characters long.^J^M}
{GOTO NU1}
{:NU3} {POPS}
{:NU8} {RETURN}
{:get_protocol}
{PUSH}
{SETE time_out}
{SEND ^J^M}
{:GP2} {COMP expert,ON} {IFCO GP1}
{CALL CLS}
{SEND ^J^M%an1}
{SEND ^J^M ┌───────────────────────────────────────────────────┐}
{SEND ^J^M │ %an0▒▒▒▒▒▒▒▒▒▒▒▒ %an7%File Transfer Protocols %an0▒▒▒▒▒▒▒▒▒▒▒▒ %an1│}
{SEND ^J^M └───────────────────────────────────────────────────┘^J^M}
{IFEX MBBSPROT.LST,,GP7}
{ROPE MBBSPROT.LST,GP7}
{:GP8} {READ ch} {LENG %ch} {COMP _len,1} {IFCO ,GP8}
{IFEX MBXPRO-%ch.MAC,,GP8}
{READ dline}
{SEND ^J^M %an1[%an0%%ch%%an1] %dline}
{GOTO GP8}
{:GP7}
{SEND ^J^M %an1[%an0%G%an1] Ymodem-G}
{SEND ^J^M %an1[%an0%Y%an1] Ymodem}
{SEND ^J^M %an1[%an0%K%an1] Xmodem-1k}
{SEND ^J^M %an1[%an0%X%an1] Xmodem-CRC^J^M}
{:GP4} {SEND ^J^M}
{SEND %an0%Please select a default file transfer protocol.^J^M}
{SEND You can always change it later...^J^M^J}
{:GP1} {SEND ^M%an1%Your choice:%an0 ^H}
{SETG 300,time_out}
{:GP3} {GETS-H ch,1,GP3}
{COMP ch,*} {IFCO time_out}
{COMP ch,?} {IFCO GP1}
{COMP ch,,} {IFCO GP1}
{IFEX MBXPRO-%ch.MAC,GP6}
{SETV dline,xkyg} {INST dline,%ch} {IFCO ,GP1}
{:GP6}
{SETV protocol,%ch}
{SEND ^J^M}
{COMP new,1} {IFCO GP5}
{POPS}
{RETURN}
{:GP5} {MACL MACROBBS.MAC,NU11}
{:update_clist}
{ROPE %datadir%CALLERS.LST,UC1}
{WOPE %datadir%TEMP.000}
{:UC2} {READ ch} {READ cline} {READ dline}
{COMP ch,%userno} {IFCO UC3}
{WRIT %ch} {WRIT %cline} {WRIT %dline} {GOTO UC2}
{:UC3} {COMP s,1} {IFCO UC5}
{:UC4} {WRIT %ch}
{WRIT %login_name}
{WRIT %password}
{:UC5} {READ dline} {WRIT %dline} {GOTO UC5}
{:UC1} {WCLO}
{EXEC-N COPY %datadir%TEMP.000 %datadir%CALLERS.LST}
{EXEC-N DEL %datadir%TEMP.000}
{RETURN}
{:screen_full}
{SEND More? (Y,n) : }
{SETG 300,SF3}
{:SF1} {GETS-H ch,1,SF2}
{COMP ch,y} {IFCO SF4}
{COMP ch,n} {IFCO SF4}
{SEND ^H} {GOTO SF1}
{:SF2} {SETV ch,y} {GOTO SF4}
{:SF3} {SETV ch,n}
{:SF4} {SEND ^M ^M}
{SETG 300,time_out}
{RETURN}
{:cd}
{IFCA cd1}
{COMP on,1} {IFCO time_out}
{:cd1} {RETURN}
{:expert_tog}
{COMP expert,ON}
{IFCO ET1}
{SETV expert,ON}
{GOTO ET2}
{:ET1} {SETV expert,OFF}
{:ET2} {RETURN}
{:msgread_tog}
{COMP clr2,y} {IFCO MSG1}
{SETV clr2,y}
{GOTO MSG2}
{:MSG1}
{SETV clr2,n}
{:MSG2}
{RETURN}
{:get_rname}
{PUSH}
{SEND ^J^M^J%an7%For the records, what's your REAL name?}
{SEND ^J^M%an0(Press ENTER if your system handle IS your real name.)^J^M}
{SEND %an0->%an5 }
{GETS rname,30,GN7}
{:GN8} {POPS}
{RETURN}
{:GN7} {SETV rname,%login_name}
{SEND %rname}
{GOTO GN8}
{:get_from}
{PUSH}
{SEND ^J^M^J%an7%Where are you calling from? %an0(City, State)^J^M}
{SEND %an0->%an1 }
{:GN9} {GETS from,30,GN9}
{POPS}
{RETURN}
/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
{:start}
{SETE time_out}
{CALL cls}
{SEND ^J^M%an3 System Information Request%an0^J^M}
{SEND ^J^M All information you provide here is strictly for the records.
{SEND ^J^M Please answer honestly.^J^M}
{WOPE %userdir%DATA\%userno.DAT}
{ROPE %datadir%PERSONAL.DAT,E3}
{SETV count,0}
{SETG 300,close}
{:E1} {SEND ^J^M}
{READ ch} {READ dline} {INCR count}
{SEND %an7%%count.%an0 %dline: %an7}
{:E2} {GETS dline,%ch,E2}
{WRIT %dline}
{GOTO E1}
{:E3} {WCLO}
{SETV mcount,%count}
{SETV dline} {SETV ch} {SETV count}
{:ST1} {SEND ^J^M%an4%Change anything? %an0(y,n) : }
{SETG 120,time_out}
{:ST2} {GETS ch,1,ST2}
{COMP ch,n} {IFCO N1}
{COMP ch,y} {IFCO M1}
{SEND ^H} {GOTO ST2}
{:D0} {CALL cls}
{SETV mcount,0}
{:D1} {SEND ^J^M}
{SETV count,0}
{INCR mcount}
{ROPE %datadir%PERSONAL.DAT,M0}
{:D2} {INCR count} {READ dline} {READ dline}
{COMP count,%mcount} {IFCO ,D2}
{SEND %an7%%mcount. }
{:D6} {RCLO} {SEND %an0%%dline: } {SETV count,0}
{ROPE %userdir%DATA\%userno.DAT,M1}
{:D3} {INCR count} {READ dline}
{COMP count,%mcount} {IFCO ,D3}
{RCLO} {SEND %an7%%dline}
{GOTO D1}
{:M0} {DECR mcount}
{:M1} {SEND ^J^M%an5%Change which? %an0(1 - %mcount, L=List, ENTER=quit) : }
{:M7} {GETS ch,2,ST1}
{COMP ch,l} {IFCO D0}
{COMP ch,1} {IFCO-L M8}
{COMP ch,%mcount} {IFCO-G M8,M9}
{:M8} {SEND ^H} {GOTO M7}
{:M9} {SETV count,0}
{ROPE %datadir%PERSONAL.DAT}
{:M2} {INCR count} {READ temp} {READ dline}
{COMP count,%ch} {IFCO ,M2}
{RCLO}
{SEND ^J^M^J%an3%%dline: %an7}
{GETS dline,%temp,M1}
{SEND ^J^M%an7%Updating . . .}
{ROPE %userdir%DATA\%userno.DAT,M5}
{WOPE %datadir%TEMP.000}
{SETV count,0}
{:M3} {INCR count} {READ temp}
{COMP count,%ch} {IFCO M4}
{WRIT %temp} {GOTO M3}
{:M4} {WRIT %dline}
{:M10} {READ dline} {WRIT %dline} {GOTO M10}
{:M5} {WCLO}
{EXEC-N COPY %datadir%TEMP.000 %userdir%DATA\%userno.DAT}
{SEND ^J^M}
{GOTO M1}
//////////////////////////////////////////////////////////////////
{:user_info}
{SETE time_out}
{SETV pass,%password}
{PUSH}
{:UI1}
{CALL cls}
{SEND ^J^M}
{SETV ch,%tlc} {DECR ch,%_ela}
{SEND ^J^M%an1%Time on-line : %an7%%_ela %an0%minute(s)}
{SEND ^J^M%an1%Time remaining: %an7%%ch %an0%minute(s)^J^M^J}
{SEND %an0 Name/Handle: %an3%%login_name^J^M^J}
{SEND %an7%1. %an0 Real Name..: %an7%%rname^J^M}
{SEND %an7%2. %an0 Location...: %an7%%from^J^M}
{SEND %an7%3. %an0 Password...: %an7%%password^J^M}
{SEND %an7%4. %an0 Protocol...: %an7%%protocol^J^M}
{SEND %an7%5. %an0 Expert Mode: %an7%%expert^J^M}
{SEND %an7%6. %an0 MsgReadCls.: %an7%%clr2^J^M^J}
{SEND %an7%S. %an0 Save changes^J^M}
{SEND %an7%Q. %an0 Quit to MAIN MENU (no save)^J^M^J}
{SEND %an3%Change Data %an0%%_tim^J^M}
{SETV ch,%tlc} {DECR ch,%_ela}
{SEND %an0%Mins Left: %ch^J^M}
{SEND %an7%CD Command:%an0 }
{:UI6}
{SETG 300,time_out}
{GETS-H ch,1,UI6}
{COMP ch,*} {IFCO time_out}
{COMP ch,s} {IFCO UI2}
{COMP ch,q} {IFCO UI5}
{COMP ch,1} {IFCO get_rname}
{COMP ch,2} {IFCO get_from}
{COMP ch,3} {IFCO chg_password}
{COMP ch,4} {IFCO get_protocol}
{COMP ch,5} {IFCO expert_tog}
{COMP ch,6} {IFCO msgread_tog}
{SEND ^H} {GOTO UI6}
{:UI2}
{SEND ^J^M^J%an1%Saving...}
{CALL write_user}
{COMP pass,%password} {IFCO UI4}
{CALL update_clist}
{:UI4}
{SEND %an0%Ok}
{:UI3}
{SETV pass}
{GOTO N2}
{:UI5}
{CALL read_user}
{GOTO UI3}
{:intro_msg]
{SETE time_out}
{IFEX %datadir%INTROMSG.MSG,,IM3}
{SEND ^J^M^J%an7%Current%an1 INTROMSG%an0:^J^M^J}
{ROPE %datadir%INTROMSG.MSG,IM3}
{:IM9} {READ dline} {SEND ^M%dline^J^M} {GOTO IM9}
{:IM3} {SEND ^J^M%an4%Change it? %an0(y,%an7%N%an0%) : }
{CALL cd}
{:IM5} {GETS-H ch,1,IM4}
{COMP ch,y} {IFCO IM0}
{COMP ch,n} {IFCO IM4}
{SEND ^H} {GOTO IM5}
{:IM0} {WOPE %datadir%INTROMSG.MSG} {WRIT %login_name #%userno} {WCLO}
{WOPE-A %datadir%LOG-1.LOG} {WRIT %_tim : Altered INTROMSG} {WCLO}
{SEND ^J^M^J%an1%INTROMSG %an0%Five lines max - %an7/s%an0 to save^J^M}
{SETV count,0}
{:IM1} {INCR count}
{COMP count,6} {IFCO-E IM2}
{SEND ^J^M%an7%%count> %an0%}
{CALL cd}
{GETS dline,79}
{COMP dline,/s} {IFCO IM2}
{WOPE-A %datadir%INTROMSG.MSG} {WRIT %dline} {WCLO}
{GOTO IM1}
{:IM2} {SEND ^J^M%an1%Saving...}
{ROPE %datadir%INTROMSG.MSG,IM8}
{WOPE-A %datadir%LOG-1.LOG}
{:IM7} {READ dline} {WRIT %dline} {GOTO IM7}
{:IM8} {WCLO}
{:IM4} {SETV dline} {SETV count}
{GOTO N2}
{:N1} {SETV count} {SETV mcount} {SETV dline} {SETV temp}
{MACL MACROBBS.MAC,BB21}
{:N2} {MACL MACROBBS.MAC,main_menu}