; 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¢