home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Antic Magazine 1985 June
/
Antic_Magazine_1985_06_Antic_Side_A.atr
/
diskio.act
< prev
next >
Wrap
Text File
|
2023-02-26
|
2KB
|
1 lines
; DISKIO (LISTING 7) ¢¢MODULE:BYTE err¢BYTE ARRAY fln(16),abort=" áIJאנפקדגá"¢¢PROC MyErr(BYTE e)¢Position(1,16):Print("áדפפנפá")¢PrintB(e):err=1:mes^=lin21¢Position(12,21):PrintB(e)¢WHILE key=255 DO OD key=21:RETURN¢¢PROC CIO=$E456(BYTE a,x)¢¢PROC IO2(BYTE cmd CARD buf,len)¢BYTE IOcmd=866 ;7-LOAD 11-SAVE¢CARD IObuf=868,IOlen=872¢IOcmd=cmd:IObuf=buf:IOlen=len¢CIO(0,32):RETURN¢¢PROC Dir():BYTE i,j,lft=82¢BYTE ARRAY a(18),f(9)¢lft=22:Position(22,3)¢FOR i=1 TO 11 DO Pb(16):PutE() OD¢Position(22,3):j=0¢Close(2):Open(2,"D:*.V3D",6,0)¢FOR i=1 TO 22 DO InputSD(2,a)¢ IF a(0)=16 THEN EXIT FI¢ SCopyS(f,a,3,10):Print(f)¢ IF j=0 THEN j=1:Put(' )¢ ELSE j=0:PutE() FI¢OD Position(22,14):Print(a)¢Close(2):lft=1:RETURN¢¢PROC Inp(BYTE ARRAY f):BYTE i¢BYTE ARRAY a(10)¢SCopy(f,"D: ")¢Position(23,16):Pb(15)¢Position(23,16):InputS(a)¢i=a(0)+3:IF i>11 THEN i=11 FI¢SAssign(f,a,3,10):SAssign(f,".V3D",i,14)¢Position(23,16):Print(f):RETURN¢¢PROC SaveP():BYTE k:CARD n,t¢Position(1,16):Print("áצáIJáשáדá ") ¢Inp(fln)¢Position(1,16):Print("[S]-áצIJשדá")¢WHILE key=255 DO OD k=key:key=255¢IF k<>62 THEN Position(1,16):Put('S)¢ Print(abort):RETURN¢FI t=Error:Error=MyErr:err=0¢n=8*P(0)+18:Close(2):Open(2,fln,8,0)¢IF err>0 THEN Close(2):Error=t:RETURN FI¢IO2(11,P,n):IO2(11,C7,5):Close(2)¢Position(1,16):Print(" áצIJשדגá ")¢Error=t:Dir() RETURN¢¢PROC LoadP():BYTE k:CARD n,t¢Position(1,16):Print("áכáנáIJáגá ")¢Inp(fln)¢Position(1,16):Print("[L]-áכנIJגá")¢WHILE key=255 DO OD k=key:key=255¢IF k<>0 THEN Position(1,16):Put('L)¢ Print(abort):RETURN¢FI t=Error:Error=MyErr:err=0¢Close(2):Open(2,fln,4,0)¢IF err>0 THEN Close(2):Error=t:RETURN FI¢IO2(7,P,2):n=8*P(0)+16¢IO2(7,P+2,n):IO2(7,C7,5):Close(2)¢Position(1,16):Print(" áכנIJגדגá ")¢Error=t:SetDfault():CPon()¢Position(30,19):Pb(6):RETURN¢¢