' Wowbagger editor ' by Richard Karsmakers, September 13th 1990 ' buf%=LPEEK(&H4C2) IF buf%>3 !Harddisk attached path$="C:\*.*" ELSE !Floppies only path$="A:\*.*" ENDIF FILESELECT path$,"WOWBAGGR.ACC",lo$ IF lo$="" !Cancel EDIT ENDIF IF EXIST(lo$) !File exists buf$=SPACE$(2) !Buffer OPEN "U",#1,lo$ !Open the file SEEK #1,&H3EE6 !Correct offset for value in minutes BGET #1,V:buf$,2 !Get it out of the file CLS PRINT "THE CURRENT WAIT TIME IS ";buf$;" MINUTES!" INPUT "NEW VALUE FOR THAT (1-99)...";buf$ buf%=VAL(buf$) !Get numeric value buf$=STR$(buf%) !Convert that back into a string IF LEN(buf$)=1 !Only one character long buf$="0"+buf$ ELSE buf$=RIGHT$(buf$,2) !Get the two right ones ENDIF SEEK #1,&H3EE6 !Seek correct offset again BPUT #1,V:buf$,2 !Put new values there buf$=SPACE$(1) !Erase minutes number SEEK #1,&H3EFF !Offset for Printer output flag BGET #1,V:buf$,1 !Get the flag (which is Y or N) PRINT "THE CURRENT STATUS FOR PRINTER OUTPUT IS ";buf$;"!" INPUT "NEW STATUS FOR THAT (Y or N)...";buf$ buf$=UPPER$(buf$) !Make capitals SEEK #1,&H3EFF !Offset IF buf$<>"Y" !Enable printer output buf$="N" !If not "Y" then make it "N" ENDIF BPUT #1,V:buf$,1 !Write the new character SEEK #1,&H3F0E !Offset for Screen output flag BGET #1,V:buf$,1 !Get the flag (which is Y or N) PRINT "THE CURRENT STATUS FOR SCREEN OUTPUT IS ";buf$;"!" INPUT "NEW STATUS FOR THAT (Y or N)...";buf$ buf$=UPPER$(buf$) !Make capitals SEEK #1,&H3F0E !Offset IF buf$<>"Y" !Enable screen output buf$="N" !If not "Y" then make it "N" ENDIF BPUT #1,V:buf$,1 !Write the new character CLOSE #1 ENDIF