Stars of Shareware: DFÜ und Kommunikation/SOS-DFUE.ISO/programm/dos/terminal/commo60/co1205/protocol.mac

Text File | 1993-12-05 | 9.0 KB | 133 lines

 {:pgda} (DOWNLOAD Protocol Menu Part I)
  {setv _menu1, A F1 1 ■ HELP}
  {setv _menu2, B F2 2 ■ AUTO ZMODEM BATCH-R (32-Bit CRC)}
  {setv _menu3, C F3 3 ■ AUTO ZMODEM BATCH-M (Moby Turbo)}
  {setv _menu4, D F4 4 ■ AUTO ZMODEM BATCH-Z (12-Bit RLE Compression)}
  {setv _menu5, E F5 5 ■ AUTO ZMODEM BATCH-W (1024 KB Sliding Window)}
  {setv _menu6, F F6 6 ■ YMODEM BATCH-G}
  {setv _menu7, G F7 7 ■ YMODEM BATCH}
  {setv _menu8, H F8 8 ■ XMODEM 1K-G}
  {setv _menu9, I F9 9 ■ XMODEM 1K CRC}
  {setv _menu10, J F10  ■ XMODEM 1K CSUM}
  {setv _menu11, K F11  ■ XMODEM -G}
  {setv _menu12, L F12  ■ XMODEM CRC}
  {setv _menu13, M      ■ XMODEM CSUM}
  {setv _menu14, N      ■ YMODEM BATCH-G-INT}
  {setv _menu15, O      ■ YMODEM BATCH-INT}
  {setv _menu16, P      ■ XMODEM 1K CRC-INT}
  {setv _menu17, Q      ■ XMODEM CRC-INT}
  {setv _menu18, R      ■ XMODEM CSUM-INT}
  {setv _menu19, S      ■     - Go Forward to Next Menu -}
  {setv _mlabel,phld,zm1r,zm2r,zm3r,zm4r,yg1r,yg2r,xk2r,xk3r,xk4r,xc3r,xc2r,xs2r,yb1r,yb2r,xk1r,xc1r,xs1r,enda}
  {menu 23,61,DOWNLOAD Protocol Menu Part I} {sete pgdproto}
  {:pgdproto} {macl commo.mac,zzz} {}
 HELP {:phld} {help z} {goto pgdproto}
 ZMODEM BATCH-R {:zmodema} {:zm1r} {exec-a %z_prog rz -r %dldir} {goto pgdproto} {} (Need GSZ)
 ZMODEM BATCH-M {:zm2r} {exec-a %z_prog rz -mr %dldir} {goto pgdproto} {} (Need GSZ)
 ZMODEM BATCH-Z {:zm3r} {exec-a %z_prog rz %dldir} {goto pgdproto} {} (Need GSZ)
 ZMODEM BATCH-W {:zm4r} {exec-a %z_prog rz %dldir} {goto pgdproto} {} (Need GSZ)
 YMODEM BATCH-G {:yg1r} {exec-a %z_prog rb -g %dldir} {goto pgdproto} {} (Need GSZ)
 YMODEM BATCH   {:yg2r} {exec-a %z_prog rb %dldir} {goto pgdproto} {} (Need GSZ)
 XMODEM 1K-G    {:xk2r} {call gfnd} {exec-a %z_prog rc -gk %file} {goto pgdproto} {} (Need GSZ)
 XMODEM 1K CRC  {:xk3r} {call gfnd} {exec-a %z_prog rc -k %file} {goto pgdproto} {} (Need GSZ)
 XMODEM 1K CSUM {:xk4r} {call gfnd} {exec-a %z_prog rx -k %file} {goto pgdproto} {} (Need GSZ)
 XMODEM -G      {:xc3r} {call gfnd} {exec-a %z_prog rc -g %file} {goto pgdproto} {} (Need GSZ)
 XMODEM CRC     {:xc2r} {call gfnd} {exec-a %z_prog rc %file} {goto pgdproto} {} (Need GSZ)
 XMODEM CSUM    {:xs2r} {call gfnd} {exec-a %z_prog rx %file} {goto pgdproto} {} (Need GSZ)
 YMODEM BATCH-G-INT {:yb1r} {rymo-ga %dldir} {goto pgdproto} {}
 YMODEM BATCH-INT {:yb2r} {rymo-a %dldir} {goto pgdproto} {}
 XMODEM 1K CRC-INT {:xk1r} {call gfnd} {rxmo-ka %file} {goto pgdproto} {}
 XMODEM CRC-INT {:xc1r} {call gfnd} {rxmo-ca %file} {goto pgdproto} {}
 XMODEM CSUM-INT{:xs1r} {call gfnd} {rxmo-c0a %file} {goto pgdproto} {}
 {:gfnd} {setv file,%dldir\} {input file,Enter a filename to DOWNLOAD} {ifex %file,,gf_y} {input %yn,File exists, overwrite? [Y/n]} {comp yn} {ifco gf_y} {comp yn,y} {ifco gf_y} {}
 {:gf_y} {return}
 {:pgua} (UPLOAD Protocol Menu Part I)
  {setv _menu1, A F1 1 ■ HELP}
  {setv _menu2, B F2 2 ■ AUTO ZMODEM BATCH-R (32-Bit CRC)}
  {setv _menu3, C F3 3 ■ AUTO ZMODEM BATCH-M (Moby Turbo)}
  {setv _menu4, D F4 4 ■ AUTO ZMODEM BATCH-Z (12-Bit RLE Compression)}
  {setv _menu5, E F5 5 ■ AUTO ZMODEM BATCH-W (1024 KB Sliding Window)}
  {setv _menu6, F F6 6 ■ YMODEM BATCH-G}
  {setv _menu7, G F7 7 ■ YMODEM BATCH}
  {setv _menu8, H F8 8 ■ XMODEM 1K-G}
  {setv _menu9, I F9 9 ■ XMODEM 1K CRC}
  {setv _menu10, J F10  ■ XMODEM 1K CSUM}
  {setv _menu11, K F11  ■ XMODEM -G}
  {setv _menu12, L F12  ■ XMODEM CRC}
  {setv _menu13, M      ■ XMODEM CSUM}
  {setv _menu14, N      ■ YMODEM BATCH-G-INT}
  {setv _menu15, O      ■ YMODEM BATCH-INT}
  {setv _menu16, P      ■ XMODEM 1K CRC-INT}
  {setv _menu17, Q      ■ XMODEM CRC-INT}
  {setv _menu18, R      ■ XMODEM CSUM-INT}
  {setv _menu19, S      ■     - Go Forward to Next Menu -}
  {setv _mlabel,phlu,zm1s,zm2s,zm3s,zm4s,yg1s,yg2s,xk2s,xk3s,xk4s,xc3s,xc2s,xs2s,yb1s,yb2s,xk1s,xc1s,xs1s,homa}
  {menu 23,61,UPLOAD Protocol Menu Part I} {sete pguproto}
  {:pguproto} {macl commo.mac,zzz} {}
 HELP {:phlu} {help z} {goto pguproto}
 ZMODEM BATCH-R {:pnszupa} {:zm1s} {call PNS} {exec-a %z_prog sz -r @%pnsf} {goto pnsdone} (Need GSZ and PNS52)
 ZMODEM BATCH-M {:zm2s} {call PNS} {exec-a %z_prog sz -m @%pnsf} {goto pnsdone} (Need GSZ and PNS52)
 ZMODEM BATCH-Z {:zm3s} {call PNS} {exec-a %z_prog sz -Z @%pnsf} {goto pnsdone} (Need GSZ and PNS52)
 ZMODEM BATCH-W {:zm4s} {call PNS} {exec-a %z_prog sz -w1024 @%pnsf} {goto pnsdone} (Need GSZ and PNS52)
 YMODEM BATCH-G {:yg1s} {call PNS} {exec-a %z_prog sb -g @%pnsf} {goto pnsdone} (Need GSZ and PNS52)
 YMODEM BATCH   {:yg2s} {call PNS} {exec-a %z_prog sb -k @%pnsf} {goto pnsdone} (Need GSZ and PNS52)
 XMODEM 1K-G    {:xk2s} {call PNS} {call PNSGetName} {exec-a %z_prog sx -k %PNSUpf} {goto pnsdone} (Need GSZ and PNS52)
 XMODEM 1K CRC  {:xk3s} {call PNS} {call PNSGetName} {exec-a %z_prog sx -k %PNSUpf} {goto pnsdone} (Need GSZ and PNS52)
 XMODEM 1K CSUM {:xk4s} {call PNS} {call PNSGetName} {exec-a %z_prog sx -k %PNSUpf} {goto pnsdone} (Need GSZ and PNS52)
 XMODEM -G      {:xc3s} {call PNS} {call PNSGetName} {exec-a %z_prog sx %PNSUpf} {goto pnsdone} (Need GSZ and PNS52)
 XMODEM CRC     {:xc2s} {call PNS} {call PNSGetName} {exec-a %z_prog sx %PNSUpf} {goto pnsdone} (Need GSZ and PNS52)
 XMODEM CSUM    {:xs2s} {call PNS} {call PNSGetName} {exec-a %z_prog sx %PNSUpf} {goto pnsdone} (Need GSZ and PNS52)
 YMODEM BATCH-G-INT {:yb1s} {call PNS} {symo-gka @%pnsf} {goto pnsdone} (Need PNS52)
 YMODEM BATCH-INT {:yb2s} {call PNS} {symo-ka @%pnsf} {goto pnsdone} (Need PNS52)
 XMODEM 1K CRC-INT {:xk1s} {call PNS} {call PNSGetName} {sxmo-ka %PNSUpf} {goto pnsdone} (Need PNS52)
 XMODEM CRC-INT {:xc1s} {call PNS} {call PNSGetName} {sxmo-a %PNSUpf} {goto pnsdone} (Need PNS52)
 XMODEM CSUM-INT{:xs1s} {call PNS} {call PNSGetName} {sxmo-a %PNSUpf} {goto pnsdone} (Need PNS52)
 {:gfnu} {setv file,%uldir\} {input file,Enter a filename to UPLOAD} {return}
 {:enda} (DOWNLOAD Protocol Menu Part II)
  {setv _menu1, A F1 1 ■ XMODEM OVERTHRUSTER}
  {setv _menu2, B F2 2 ■ XMODEM -G (PCBoard/Qmodem)}
  {setv _menu3, C F3 3 ■ BPLUS (CompuServe)}
  {setv _menu4, D F4 4 ■ BIMODEM BATCH}
  {setv _menu5, E F5 5 ■      - Go Back to Previous Menu -}
  {setv _mlabel,xor1r,xg1r,cisr,bimr,pgda}
  {menu 23,61,DOWNLOAD Protocol Menu Part II} {sete endproto}
  {:endproto} {macl commo.mac,zzz} {}
 XMODEM OVERTHRUSTER {:xor1r} {call gfnd} {exec-a %z_prog ro %file} {goto endproto} {} (Need GSZ)
 XMODEM -G (PCBoard/Qmodem) {:xg1r} {call gfnd} {exec-a %z_prog rx -g %file} {goto endproto} {} (Need GSZ)
 CIS BPLUS {:cisr} {exec-a OZBEXT /c%_por /f%dldir /j /x} {goto endproto} {} (Need OZBEXT)
 BIMODEM BATCH  {:bimr} {exec-a BIMOD} {goto endproto} {} (Need BIMOD124)
 {:homa} (UPLOAD Protocol Menu Part II)
  {setv _menu1, A F1 1 ■ XMODEM OVERTHRUSTER}
  {setv _menu2, B F2 2 ■ XMODEM -G (PCBoard/Qmodem)}
  {setv _menu3, C F3 3 ■ BPLUS (CompuServe)}
  {setv _menu4, D F4 4 ■ BIMODEM BATCH}
  {setv _menu5, E F5 5 ■      - Go Back to Previous Menu -}
  {setv _mlabel,xor1s,xg1s,ciss,bims,pgua}
  {menu 23,61,UPLOAD Protocol Menu Part II} {sete homproto}
  {:homproto} {macl commo.mac,zzz} {}
 XMODEM OVERTHRUSTER {:xor1s} {call PNS} {call PNSGetName} {exec-a %z_prog so %PNSUpf} {goto pnsdone} (Need GSZ and PNS52)
 XMODEM -G (PCBoard/Qmodem) {:xg1s} {call PNS} {call PNSGetName} {exec-a %z_prog sx -g %PNSUpf} {goto pnsdone} (Need GSZ and PNS52)
 CIS BPLUS {:ciss} {exec-a OZBEXT /c%_por /f%uldir /j /x} {goto homproto} {} (Need OZBEXT)
 BIMODEM BATCH  {:bims} {exec-a BIMOD} {goto homproto} {} (Need BIMOD124)
 PNS Macros  (Need PNS52)
 Auto Zmodem Upload, add "aut=pnszup,^xB01" to COMMO.SET * Label menu GOTOs
 The '@' and drive specifier MUST be included, or GSZ won't work.
 {:PNS1} {SETV pns_hslink,true}
 {:PNS} {SETV pnsf,C:\FILE.LST} ^^^^^^^^^^^ Configurable, file to put tagged file list. {EXEC COMMOPNS %pnsf -ON -D%uldir -S%_speed} * The -ON Sort files by filename. * The -D option to specify in which directory to start.
        * The -S option to specify the bps rate. {COMP pns_hslink,true} {IFCO PNSReturn} {IFEX %pnsf,,PNSD}
 {:PNSReturn} {SETV pns_hslink} {RETURN}
 {:PNSGetName} * For internal Xmodem protocols {ROPEN %pnsf,PNSG} {READ %PNSUpf} {RCLOSE}
 {:PNSG} {RETURN}
 {:PNSDone} {EXEC ERASE %pnsf}
 {:PNSD} {SETV pnsf} {SETV PNSUpf} {goto pguproto} {}
 {:PNSRegister} {SPOC N} {CLEAR} {DISP 2,1,6a,COMMOPNS Registration} {DISP 4,1,07,Use underlines instead of spaces in your name.(e.g. Jane_Doe)} {DISP 5,1,07,Registration Name: } {GETS PNSname,30,PNSR20} {DISP 6,1,07,Serial Number: }
               {GETS PNSserial,4,PNSR20} {DISP 7,1,07,Activation Code: } {GETS PNScode,5,PNSR20} {EXEC-W COMMOPNS -R%PNSserial %PNScode %PNSname} {SETV PNSSerial} {SETV PNScode} {SETV PNSname}
 {:PNSR20} {CLEAR} {MACRO}
 Macro to Execute at NO CARRIER
 {:ncr1} {macl commo.mac,ncr1} {}
 ******************************************************************************
 IMPORTANT--> This is PROTOCOL.MAC of COMM1205.  It contains protocol
 macros for COMMO552 and is to be used with COMMO.MAC.
 Updated 12-5-93.  Courtesy of:  Richard Grant ArtWorld BBS! [phone]
 ******************************************************************************