home *** CD-ROM | disk | FTP | other *** search
/ Action! Club Magazin 4B / Action_Club_Magazin_4_1987_Action_User_Group_Side_B.atr / notedemo.act < prev    next >
Text File  |  2023-02-26  |  809b  |  1 lines

  1. ; note & point demo¢¢CARD POINTER SECTOR¢CARD STARTSECTOR¢BYTE POINTER SECTORBYTE¢BYTE STARTBYTE,CONSOLE=53279¢¢PROC NOTEDEMO()¢BYTE A¢¢GRAPHICS(0)¢PRINTE("Dieses Programm zeigt, welche") ¢PRINTE("Sectoren ein File belegt")¢PUTE()¢PRINTE("Um auf den Anfang des Files zu")¢PRINTE("'zeigen' (POINTen) >START< Taste")¢PUTE()¢PRINTE("Irgend eine Taste zum Start")¢¢A=GETD(7)¢¢CLOSE(2)¢OPEN(2,"D:*.*",4,0) ; IRGENDEINFILE¢                    ; OEFFNEN¢¢ NOTE(2,SECTOR,SECTORBYTE)¢  STARTSECTOR=SECTOR^¢  STARTBYTE=SECTORBYTE^¢¢DO¢ A=GETD(2)¢ NOTE(2,SECTOR,SECTORBYTE)¢¢print("Sector : ") printc(sector^)¢print(" und Byte ")¢               printb(Sectorbyte^)¢print(" inhalt ") printbe(A)    ¢¢IF CONSOLE=6 THEN  ; WENN STARTTASTE¢¢   POINT(2,STARTSECTOR,STARTBYTE)¢FI¢¢until EOF(2)=136 ; bis File zuende¢od¢return¢