1 REM ******************************¢2 REM * MACRO EDITOR *¢3 REM * by Frank Seipel *¢4 REM * *¢5 REM * COPYRIGHT 1989 *¢6 REM * BY ANALOG COMPUTING *¢7 REM ******************************¢8 REM ¢18 GRAPHICS 17:POKE 710,14:POSITION 0,6:? #6;" ידךאנIJפגáלIJבפנצ":ACTIVE=PEEK(1536)=169¢19 ? #6:? #6;" BY FRANK SEIPEL":? #6:? #6:? #6:? #6;" please wait"¢20 FOR I=1536 TO 1672:READ D:POKE I,D:NEXT I¢25 GRAPHICS 0:IF NOT ACTIVE THEN TRAP 28:OLD=PEEK(1535):POKE 1535,104:X=USR(1535):POKE 1535,OLD¢28 ? :? "Enter macros. Hit <Start> after":? "entering each macro. Any"¢29 ? "¶פσ⌠⌡≥∈® keypresses will be part of":? "the macro.":? ¢30 ? "A macro is a string of text --":? "for instance, you could define"¢31 ? "Shift+Control+0 as LIST <Return>":? "with this program -- and then type"¢32 ? "Shift+Control+0 instead of LIST.":? :? "This program can be used to"¢33 ? "redefine the macros in memory, or":? "write out an AUTORUN.SYS file to"¢34 ? "your disk, which will automatically":? "install your macros every time you":? "boot-up.":? ¢35 OPEN #1,4,0,"K:":OFFSET=0:OFFTABLE=1673:DTABLE=1686¢36 ? :? "Hit <Return> for next page":GET #1,X:? CHR$(125):? :? "Sum length of all macros may"¢37 ? "not exceed 128. After using a":? "macro, you may not use it again until"¢38 ? "you have typed some other key, or":? "used another macro key.":? "(If this is a problem, just hit"¢39 ? "¶פσ⌠⌡≥∈® before executing the macro)":? ¢40 FOR I=0 TO 9¢42 POKE OFFTABLE+I,OFFSET¢50 ? :? "Enter macro for צΦΘµ⌠½ב∩∈⌠≥∩∮½";CHR$(I+48+128):? "-->";¢60 IF PEEK(53279)=6 THEN GOTO 140:REM *SAVE*¢70 IF PEEK(764)=255 THEN GOTO 60¢80 POKE DTABLE+OFFSET,PEEK(764):GET #1,X:? CHR$(X);¢130 OFFSET=OFFSET+1:GOTO 60¢140 POKE DTABLE+OFFSET,255:OFFSET=OFFSET+1:FOR D=1 TO 500:NEXT D:NEXT I¢200 ? :? :? "Would you like to make these":? "your default macros [i.e., would you"¢210 ? "like to write an AUTORUN.SYS":? "consisting of these macros and the":? "macro program to D1: ? <Y/N> -->";¢220 GET #1,X:IF X=ASC("y") OR X=ASC("Y") THEN ? "Yes":? :? "Working...":GOTO 30000¢230 ? "No":END ¢29010 DATA 169,0,141,149,6,165,12,141,46,6,165,13,141,47,6,169,23,133,12,169,6,133,13,160,48¢29020 DATA 162,6,169,6,32,92,228,173,149,6,201,1,240,6,169,1,141,149,6,96,76,224,7,72,138,72,173,147,6¢29030 DATA 208,44,173,9,210,197,0,240,17,133,0,162,0,189,127,6,205,9,210,240,11,232,224,10,208,243¢29060 DATA 104,170,104,76,95,228,169,1,141,147,6,189,137,6,141,148,6,76,80,6,174,148,6,189,150,6,201,255,240,9¢29200 DATA 141,252,2,238,148,6,76,80,6,169,0,141,147,6,76,80,6,242,223,222,218,216,221,219,243,245,240¢30000 CLOSE #1:OPEN #1,8,0,"D:AUTORUN.SYS"¢30010 START=300:XEND=318:GOSUB 31000¢30020 START=1536:XEND=1791:GOSUB 31000¢30030 PUT #1,226:PUT #1,2¢30040 PUT #1,227:PUT #1,2¢30050 PUT #1,0:PUT #1,6¢30060 CLOSE #1:END ¢31000 PUT #1,255:PUT #1,255¢31010 CELL=START:GOSUB 31200¢31020 PUT #1,LOW:PUT #1,HI¢31030 CELL=XEND:GOSUB 31200¢31040 PUT #1,LOW:PUT #1,HI¢31050 FOR I=START TO XEND¢31060 PUT #1,PEEK(I):NEXT I¢31200 HI=INT(CELL/256):LOW=CELL-HI*256:RETURN ¢
