Action! Club Magazin 3A/Action_Club_Magazin_3_1987_Action_User_Group_Side_A.atr/rtp.act

Text File | 2023-02-26 | 3KB | 1 lines

¢¢; ACTION! RUNTIME-PACKAGE TEIL 1¢¢PROC RUDIV2=*()¢[$85 $86 $87 $38 $A9 $00 $E5 $86 $A8 $A9 $00 $E5 $87 $AA $98 $60]¢¢PROC RUMLT0=*()¢[$F0 $1B $CA $86 $C1 $AA $F0 $15 $86 $C0 $A9 $00 $A2 $08 $0A $06 $C0 $90 $02 $65 $C1 $CA $D0 $F6 $18 $65 $87 $85 $87 $A5 $86¢$A6 $87 $60]¢ ¢PROC RUMLT1=*()¢[$86 $C2 $E0 $00 $10 $03 $20 RUDIV2 $85 $82 $86 $83 $A5 $85 $10 $0E $AA $45 $C2 $85 $C2 $A5 $84 $20 RUDIV2 $85 $84 $86 $85¢$A9 $00 $85 $87 $60]¢¢PROC MULT=*()¢[$20 RUMLT1 $A6 $82 $F0 $1B $86 $C0 $A6 $84 $F0 $15 $CA $86 $C1 $A2 $08 $0A $26 $87 $06 $C0 $90 $06 $65 $C1 $90 $02 $E6  ¢$87 $CA $D0 $F0 $85 $86 $A5 $82 $A6 $85 $20 RUMLT0 $A5 $83 $A6 $84 $20 RUMLT0]¢¢PROC RUDIV=*() ¢[$A4 $C2 $10 $03 $4C RUDIV2 $60]¢¢PROC DIV=*()¢[$20 RUMLT1 $A5 $85 $F0 $27 $A2 $08 $26 $82 $26 $83 $26 $87 $38 $A5 $83 $E5 $84 $A8 $A5 $87 $E5 $85 $90 $04 $85 $87 $84    ¢$83 $CA $D0 $E7 $A5 $82 $2A $A2 $00 $A4 $83 $84 $86 $18 $90 $1D $A2 $10 $26 $82 $26 $83 $2A $B0 $04 $C5 $84 $90 $03 $E5  ¢$84 $38 $CA $D0 $EF $26 $82 $26 $83 $85 $86 $A5 $82 $A6 $83 $A4 $C2 $10 $10 $85 $84 $86 $85 $38 $A9 $00 $E5 $84 $A8 $A9  ¢$00 $E5 $85 $AA $98 $60]¢¢PROC MODULO=*()¢[$20 DIV $A5 $86 $A6 $87 $60] ¢¢PROC RRSH=*()¢[$A4 $84 $F0 $0A $86 $85 $46 $85 $6A $88 $D0 $FA $A6 $85 $60]¢¢PROC RLSH=*()¢[$A4 $84 $F0 $0A $86 $85 $0A $26 $85 $88 $D0 $FA $A6 $85 $60] ¢¢PROC PAR=*()¢[$85 $A0 $86 $A1 $84 $A2 $18 $68 $85 $84 $69 $03 $A8 $68 $85 $85 $69 $00 $48 $98 $48 $A0 $01 $B1 $84 $85 $82 $C8 $B1 $84   ¢$85 $83 $C8 $B1 $84 $A8 $B9 $A0 $00 $91 $82 $88 $10 $F8 $A5 $11 $D0 $05 $E6 $11 $6C $0A $00 $60]¢¢SET $4E4=RLSH¢SET $4E6=RRSH¢SET $4E8=MULT¢SET $4EA=DIV¢SET $4EC=MODULO¢SET $4EE=PAR¢¢; ACTION! RTP2¢¢MODULE¢DEFINE DEV="0"¢BYTE ARRAY EOF(7)=$5C0¢BYTE IOERR ¢¢PROC CIOL=*(BYTE CHN,CMD,      ¢            CARD BUFFER,LENGTH)¢[$85 $A0 $86 $A1 $0A $0A $0A $0A $AA $A5 $A1 $9D $42 $03 $98 $9D $44 $03 $A5 $A3 $9D $45 $03 $A5 $A4 $9D $48 $03 $A5 $A5 ¢$9D $49 $03]¢¢PROC CIO=*()¢[$20 $56 $E4 $A6 $A0 $85 $A0 $C0 $88 $D0 $09 $A9 $01 $9D $C0 $05 $8D IOERR $60 $A9 $00 $9D $C0 $05 $8C $FF $06 $60]¢¢BYTE FUNC CIOS =*(BYTE CHN,CMD,DATA)¢[$85 $A0 $86 $A1 $0A $0A $0A $0A $AA $A5 $A1 $9D $42 $03 $A9 $00 $9D $48 $03 $9D $49 $03 $98 $4C CIO]¢¢PROC SETAUX =*(BYTE CHN,AUX1,AUX2)¢[$86 $A1 $84 $A2 $0A $0A $0A $0A $AA $A5 $A1 $9D $4A $03 $A5 $A2 $9D $4B $03 $60]¢¢PROC OPEN (BYTE CHN,¢           BYTE POINTER FNAME,     ¢           BYTE AUX1,AUX2)¢¢BYTE ARRAY FSTR(17)¢BYTE POINTER BPTR¢BYTE Z¢¢BPTR=FNAME+1¢ ¢FOR Z=0 TO FNAME^-1¢    DO FSTR(Z)=BPTR^ BPTR==+1 OD¢FSTR(Z)=$9B ¢SETAUX(CHN,AUX1,AUX2)¢CIOL(CHN,3,FSTR,0)¢¢RETURN¢¢PROC CLOSE(BYTE CHN)¢CIOS(CHN,$0C,0)¢RETURN¢¢PROC GRAPHICS(BYTE GR)¢CLOSE (6)¢OPEN(6,"S:",(GR&$F0)!$1C,GR)¢RETURN¢¢ ¢