home *** CD-ROM | disk | FTP | other *** search
/ Action! Club Magazin 3B / Action_Club_Magazin_3_1987_Action_User_Group_Side_B.atr / dump1029.act < prev    next >
Text File  |  2023-02-26  |  2KB  |  1 lines
  1. ¢¢; SCREEN DUMP 1029¢; (C) 1987 BY ACTION USER GROUP¢¢¢; BINARY I/O      ¢; EQUATES¢¢DEFINE IOCB="$340",¢       IOCBNR="16" ; ALWAYS CH#1¢BYTE POINTER ICCOM,  ;  =$342¢             ICSTA,  ;  =$343¢             ICAUX1, ;  =$34A¢             ICAUX2  ;  =$34B¢CARD POINTER ICBADR, ;  =$344 ¢             ICBLEN  ;  =$348¢¢PROC CIO=$E456(BYTE AKKU,XREG) RETURN¢PROC BIO(BYTE CHANNEL        ¢         CARD ADRESS,LENGHTH¢         BYTE COMMAND)¢ CHANNEL==LSH 4¢¢ ICCOM=$342   ICCOM==+CHANNEL¢              ICCOM^=COMMAND¢¢ ICBADR=$344 ICBADR==+CHANNEL¢             ICBADR^=ADRESS¢¢ ICBLEN=$348 ICBLEN==+CHANNEL¢             ICBLEN^=LENGHTH¢¢ CIO(0,CHANNEL)¢RETURN¢¢PROC BPUT(BYTE CHANNEL¢          CARD ADRESS,LENGHTH)¢ BIO(CHANNEL,ADRESS,LENGHTH,11)¢RETURN¢¢PROC BGET(BYTE CHANNEL¢          CARD ADRESS,LENGHTH)¢ BIO(CHANNEL,ADRESS,LENGHTH,7)¢RETURN¢¢PROC XIO(BYTE CHANNEL,DUMMY,¢              COMMAND,AUX1,AUX2 ¢         CARD FILADR)¢ CHANNEL==LSH 4¢¢ ICCOM=$342   ICCOM==+CHANNEL¢              ICCOM^=COMMAND¢¢ ICBADR=$344 ICBADR==+CHANNEL¢             ICBADR^=FILADR¢¢ ICAUX1=$34A ICAUX1==+CHANNEL¢             ICAUX1^=AUX1¢¢ ICAUX2=$34B ICAUX2==+CHANNEL¢             ICAUX2^=AUX2¢¢ CIO(0,CHANNEL)¢RETURN¢¢;************************************¢                MODULE¢;************************************¢¢CARD X,I,I1¢BYTE Y,YPOS,BIT,A,SENDBYTE ¢BYTE ARRAY SENDBYTES(320)  ¢¢PROC DUMP()¢¢FOR YPOS=0 TO 191 STEP 7¢ DO¢  CLOSE (1)¢  OPEN(1,"P:",8,0) ¢  PUTD(1,27) PUTD(1,57) ; 9 LINES/INCH¢  PUTD(1,27) PUTD(1,65) ; BIT IMAGE¢  PUTD(1,1) PUTD(1,64)  ; BYTES¢  FOR X=0 TO 319¢   DO¢    BIT=128 SENDBYTE=0 ¢    FOR Y=YPOS TO YPOS+7¢     DO¢      BIT==/2¢      IF Y<=191 THEN¢       A=LOCATE(X,Y) ¢       IF A=1 THEN SENDBYTE==+BIT FI¢      FI¢     OD¢      SENDBYTES(X)=SENDBYTE¢   OD¢   FOR I1=0 TO 319 ¢    DO¢     PUTD(1,SENDBYTES(I1))¢    OD  ¢ OD¢CLOSE(1)¢RETURN¢¢PROC R()¢PROC GET_PIC()¢BYTE ARRAY FILE(20)¢CARD Q2,Q3 ¢CARD POINTER SCRADR=88¢¢GRAPHICS(0) ¢ PUTE()¢ PRINTE("FILESPEC??")¢ INPUTMD(0,FILE,20)¢¢CLOSE(2) OPEN(2,FILE,4,0)¢GRAPHICS(8+16) ¢BGET(2,SCRADR^,7680)¢DUMP()¢RETURN ¢