; UPLOAD.GENIE V1.00 BY Ä. ÃOTTON
; -------------------------------
;
; ÔHIS SCRIPT IS USED FOR UPLOADING MULTIPLE FILES TO THE ÃOMMODORE ÒÔ
; USING ÄIALOGUE 128. ÕSE ÁÌÔ-Á TO CALL UP THE SCRIPT AFTER PLACING THE
; PROPER INFORMATION IN YOUR BUFFER FOR THE FILES YOU WISH TO UPLOAD (SEE
; SAMPLE AT THE END OF THE SCRIPT). ÙOU SHOULD ALSO SET YOU UPLOAD PROTOCOL
; TO ØÍÏÄÅÍ ÃÒÃ AND KILL THE ÂÅÌÌ IN YOUR CONFIGURATION BEFORE STARTING
; THIS FILE.
;
   °R                                  ; RESET TO FIRST LINE IN BUFFER
   T "M625;3"                          ; GO TO LIBRARY MENU
10 W "ÅNTER # OR <Ð>REVIOUS?"          ; WAIT FOR PROMPT
   $ = Â                               ; GET LIB#, ÓËÉÐ, OR ÓÔÏÐ
   IF $ = "ÓÔÏÐ": G 40                 ; JUMP TO END OF SCRIPT
   IF $ = "ÓËÉÐ": G 15                 ; USE SAME LIBRARY
   T "8"                               ; CHANGE TO SPECIFIC LIBRARY
   W "ÉTEM #, OR <ÒÅÔÕÒÎ> FOR MORE?"   ; WAIT FOR PROMPT
   T $                                 ; LIBRARY NUMBER
   W "ÅNTER # OR <Ð>REVIOUS?"          ; WAIT FOR PROMPT
15 T "5"                               ; SELECT UPLOAD
   W "-->"                             ; WAIT FOR PROMPT
   W "?"                               ; WAIT FOR PROMPT
   $ = Â                               ; GET FILENAME
   T $                                 ; SEND FILENAME
   W "-->"                             ; WAIT FOR PROMPT
   W "?"                               ; WAIT FOR PROMPT
   $ = Â                               ; GET SHORT DESCRIPTION
   T $                                 ; SEND SHORT DESCRIPTION
20 W ">"                               ; WAIT FOR PROMPT
   $ = Â                               ; GET LONG DESCRIPTION LINE
   IF $ = "ÅÎÄ": G 30                  ; CHECK FOR END OF DESCRIPTION
   T $                                 ; SEND LONG DESCRIPTION LINE
   G 20                                ; GET ANOTHER LINE
30 T "*S"                              ; END OF DESC - SEND IT
   W "?"                               ; WAIT FOR PROMPT
   $ = Â                               ; GET KEYWORD LIST
   T $                                 ; SEND KEYWORD LIST
   W "×HICH ITEM?"                     ; WAIT FOR PROMPT
   T "3"                               ; SELECT ØÍÏÄÅÍ ÃÒÃ PROTOCOL
   W "START YOUR ØÍÏÄÅÍ UPLOAD."       ; WAIT FOR PROMPT
   W "ÒÅÁÄÙ ÆÏÒ ÉÎÐÕÔ"                 ; WAIT FOR PROMPT
   $ = Â                               ; GET FILENAME STRING
   ½U$                                 ; UPLOAD "\SFILENAME,S\R" (OR ,P)
   W "ÐRESS <ÒETURN>?"                 ; WAIT FOR PROMPT
   T "\R"                              ; SEND <ÒÅÔÕÒÎ>
   W "IN THE LIBRARY (Ù/Î)?"           ; WAIT FOR PROMPT
   T "Y"                               ; OKAY THE UPLOAD
   G 10                                ; LOOP BACK FOR ANOTHER FILE
40 E                                   ; END OF SCRIPT
;
; ÂUFFER ÓAMPLE ÄATA (BE SURE THAT YOU DON'T START LINES WITH THE ';')
; --------------------------------------------------------------------
;
; 4
; FX-80.GC.CVT
; ÅPSON ÆØ-80 ÇÅÏÃÁÂÌÅ ÄRIVER
; ÔHIS IS A ÇÅÏÃÁÂÌÅ VERSION OF THE STANDARD 80 DPI ÅPSON ÆØ-80 PRINTER
; DRIVER FOR ÇÅÏÓ.
; ÅÎÄ
; EPSON,FX,FX-80,PRINTER,DRIVER,PRINTER DRIVER,GEOCABLE,GC
; \SFX-80.GC.CVT,S\R
; ÓËÉÐ
; FX-80.DS.GC.CVT
; ÅPSON ÆØ-80 ÄÓ ÇÅÏÃÁÂÌÅ ÄRIVER
; ÔHIS IS A ÇÅÏÃÁÂÌÅ VERSION OF THE DOUBLE-STRIKE ÅPSON ÆØ-80 PRINTER
; DRIVER FOR ÇÅÏÓ.
; ÅÎÄ
; EPSON,FX,FX-80,PRINTER,DRIVER,PRINTER DRIVER,GEOCABLE,GC
; \SFX-80.DS.GC.CVT,S\R
; ÓËÉÐ
; FX-80.QS.GC.CVT
; ÅPSON ÆØ-80 ÑÓ ÇÅÏÃÁÂÌÅ ÄRIVER
; ÔHIS IS A ÇÅÏÃÁÂÌÅ VERSION OF THE QUADRUPLE-STRIKE ÅPSON ÆØ-80 PRINTER
; DRIVER FOR ÇÅÏÓ.
; ÅÎÄ
; EPSON,FX,FX-80,PRINTER,DRIVER,PRINTER DRIVER,GEOCABLE,GC
; \SFX-80.QS.GC.CVT,S\R
; ÓÔÏÐ