The Sinclair QL Forum

Code: Select all

20592 DEFine FuNction hps_openOver%(c%,fnam$):REMark Opens device for writing

Code: Select all

20592 DEFine FuNction hps_openOver%(c,fnam$):REMark Opens device for writing
        REMark                      c% (see above) gives the fatal error

Code: Select all

1 REMark hps_slb - my (hps) SuperBasic Library
2 REMark               ^^^  ^    ^     ^
3 REMark Last updated 2025-02-12 Wed
9 :
10 REMark GO TO 32752 is used instead of STOP, which may have problems on some VER$
19 :
20 REMark Required Toolkits:
21 REMark SuperToolkit II, TurboToolkit
40 REMark EDLINE$ function improved from me (hps), see:
41 REMark http://peter-sulzer.bplaced.net/htdocs/index.php?pagefile=ql%2fqldownloadEN.php
90 :
98 REMark U N D E R   C O N S T R U C T I O N !
99 :
100 REMark Following line eventually needed (delete if not needed):
101 c%=1:f%=4:REMark c%: Console channel - f%: File channel
19996 :
20000 REMark Library procedures and functions
20004 REMark Required: SuperToolkit II, TurboToolkit
20008 :
20100 DEFine PROCedure test
20110   PRINT 'In PROCedure "test"'
20120 END DEFine
20588 :
20592 DEFine FuNction hps_openOver%(c%,fnam$):REMark Opens device for writing
20596   REMark Commented function and tests see in SUPERBASIC_DIRECTORY_test_
20600   REMark (e.g. WIN1_home_hps_bas_test_) the file hpsOpenOver_bas.
20604 :
20608   IF DEVICE_STATUS(0,fnam$)>=0:DELETE fnam$
20612   IF DEVICE_STATUS(1,DATAD$&fnam$)>=0:RETurn -15:REMark A fully qualified
20616   REMark filename must be passed to this function!
20620   RETurn FOP_NEW(#c%,fnam$)
20624 END DEFine :REMark hps_openOver()
32750 :
32751 REMark Use GO TO 32752 instead of STOP. STOP may not work on all ROM versions!)
32752 REMark END OF PROGRAM (NO LINES MUST follow, some ROMs may not allow line numbers >= 32752!

Code: Select all

err%

Code: Select all

100 err%=hps_openOver(#4,'RAM1_DELETE_ME')
19990 :
20000 REMark Library functions
20010 REMark Required: SuperToolkit II, TurboToolkit
20040 :
20080 DEFine FuNction hps_openOver%(c%,fnam$):REMark Opens device for writing
20090   REMark If it's a file (filename) which already exists it will first be
20100   REMark deleted before the file is opened new (with fop_new(). If the file
20110   REMark could not be opened for read/write, an error is returned
20120   REMark The arguments (parameters) are not altered by the function
20130   REMark W A R N I N G : fnam$ must be a fully qualified name (no default from
20140   REMark SuperToolkit II, e.g. DATAD$ is added before fnam$)! If not a fully
20150   REMark qualified filename, error "bad parameter" (-15) is returned.
20160   REMark Note: File is not really opened with FOP_OVER but it's deleted and
20170   REMark then opened with FOP_NEW(). This means it also will work on UQLX
20180   REMark which does NOT support OPEN_OVER
20190 :
20220   IF DEVICE_STATUS(0,fnam$)>=0:DELETE fnam$
20260   IF DEVICE_STATUS(1,DATAD$&fnam$)>=0:RETurn -15:REMark A fully qualified
20300   REMark filename must be passed to this function!
20340   RETurn FOP_NEW(#c%,fnam$)
20380 END DEFine :REMark hps_openOver()
32757 :
32758 REMark Use GO TO 32759 instead of STOP. STOP may not work on all ROM versions!)
32759 REMark END OF PROGRAM (NO LINES MUST follow, some ROMs may not allow line numbers >= 32760!