Changeset 236 for trunk/SRC/ReadWrite/scanoasis.pro
- Timestamp:
- 03/21/07 18:18:44 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ReadWrite/scanoasis.pro
r232 r236 28 28 , error=err 29 29 if err ne 0 then begin 30 print,!err_string30 ras = report(!err_string) 31 31 return 32 32 endif … … 35 35 WHILE NOT EOF(unit) DO BEGIN 36 36 readu, unit, char8 37 print, char837 ras = report(char8) 38 38 readu, unit 39 39 ENDWHILE
Note: See TracChangeset
for help on using the changeset viewer.