1$32768$32768.0$* Ķh6•€€p€Āĸ pĀ€7*€Ā.€€6?€€Ā 7ˆ€ĀĀB:€ĀĀpĀĀ€ 7m€ĀĀ€0R6|€ĀĀ€@€ R€Ā€p62€ĀHĀtd4d4MDBS/CBASIC Interface Utility$d4d4d4€€[€€[€Ā€ ĀĀ€7ë€Ā€ In your operating environment the highest memory$d4 address for a user program is $€Ā$d4d4Enter the address at which you will ORG the$d4 MDBS.DMS system:n;€ hd4Ā 7Ū€ 6000€ Ā s€€p€ €6ÐĀ T€ Ā 7€ Ā Ā €UQ€Ā€pĀ € 7ú€ĀĀ p€0pĀ €@7€Ā€p€ p6ÂĀ.7&€Ā:66€Ā.€: € ĀĀTo obtain a DMS origin of $€Ā$,the$d4 CBASIC SAVEMEM statement should specify a$d4 value of $€Ā $d4d4d4A skeletal program may be generated for your convenience.$d4 If you wish to use this feature, enter a file$d4 name to which the program may be written.$d4d4File name? n;€ hĀ 7{.Ā €\€7–€ Ā .BAS€Ā -&c€&REM--Any DIM or COMMON statements should be placed after this line,?&c€&DIM W0%(5),?&c€&A0%=€Ā,?&c€&SAVEMEM €Ā ,"DMS.COM",?&c€&IF PEEK(A0%)<>0C3H OR PEEK(A0%+3)<>0C3H THEN \,?&c€& PRINT "DMS Load Error": STOP,?&c€&REM--Set up global variables,?&c€&POKE A0%+6, VARPTR(E0%),?&c€&POKE A0%+7, VARPTR(E0%)/256,?&c€&POKE A0%+8, VARPTR(C0$),?&c€&POKE A0%+9, VARPTR(C0$)/256,?&c€&POKE A0%+10, VARPTR(W0%(1)),?&c€&POKE A0%+11, VARPTR(W0%(1))/256,?&c€&REM--Define Functions,?&c€&DEF FN.DMS%(CMD$),?&c€& C0$=CMD$,?&c€& CALL A0%,?&c€& FN.DMS%=E0%,?&c€& IF E0%<>0 AND E0%<>255 THEN\,?&c€& PRINT "DMS error ";E0%;"encountered: ";C0$:\,?&c€& C0$="CLOSE":\,?&c€& CALL A0% :\,?&c€& STOP,?&c€& RETURN,?&c€&FEND,?&c€&DEF FN.DMS.DEF%(CMD$),?&c€& C0$=CMD$,?&c€& CALL A0%+3,?&c€& FN.DMS.DEF%=E0%,?&c€& IF E0%<>0 THEN\,?&c€& PRINT "DMS error ";E0%;"encountered: ";C0$:\,?&c€& C0$="CLOSE":\,?&c€& CALL A0% :\,?&c€& STOP,?&c€& RETURN,?&c€&FEND,?&c€&REM--Set up OPEN call,?&c€&REM--(Variables 01$-04$ must be initialized prior to this section of code),?&c€&W0%(1)=4,?&c€&W0%(2)=VARPTR(O1$),?&c€&W0%(3)=VARPTR(O2$),?&c€&W0%(4)=VARPTR(O3$),?&c€&W0%(5)=VARPTR(O4$),?&c€&E0%=FN.DMS.DEF%("DEFINE,OPENBLK"),?&c€&E0%=FN.DMS%("OPEN,OPENBLK"),?d4€ C0$="CLOSE":\,?&c€& CALL A0% :\,?&c€&