Έχω Την Αίσθηση Βάρη Μου Θρόισμα Από Τη Λήψη Player 2 Παιχνίδια Μου

GCobol >>η μορφή πηγής είναι σταθερή *> *************************************************************** *> κατεβάστε player 2 Παιχνίδια συγγραφέας: Brian * > ημερομηνία: 10-Αύγουστο-2009 *> σκοπός: κύπελλα γρήγορη εκτύπωση *> τεκτονική: cobc-lcups-x cupscob.καλαμπόκι *> *************************************************************** διακύμανση αναγνώρισης. αναγνωριστικό προγράμματος. κύπελλα. πληροφορίες διακύμανση. τμήμα εργασίας-αποθήκευσης. 01 χρήση αποτέλεσμα δυαδικό-λαχταρούν. 01 cupsError χρήση binary star-long. 01 msgPointer χρήση δείκτη. 01 msgBuffer pic x (1024) υποστηρίζεται. 01 msgDisplay pic X (132)., *> *************************************************************** διακύμανση ρουτίνας. κλήση " cupsPrintFile "χρησιμοποιώντας" cupsQueue "& ex" 00 "" όνομα αρχείου.prn" & x "00" "GnuCOBOL ΦΛΙΤΖΆΝΙΑ διασύνδεσης" & x "00" από σεβασμό 0 παρελθόντος αναφοράς NULL οπισθοδρομική αφήστε τέλος-κλήση, αν οδηγήσει ισούται με το μηδέν κλήση "cupsLastError" επιστροφή cupsError οθόνη "Err:" cupsError κλήση "cupsLastErrorString" οπισθοδρομική msgPointer ορίσετε τη διεύθυνση του msgBuffer να msgPointer string msgBuffer οριοθετείται από το γράμμα x "00" στο msgDisplay τέλος-ισοπαλία λειτουργία επίδειξης φόρεμα ( msgDisplay ) άλλο επίδειξης "Δουλειά:" οδηγήσει τερματίσει -αν το goback., τερματίστε το πρόγραμμα cupscob.