100 SYS700
110 ; SCRATCH AND SAVE
120 ; BOB HAYES; WINNIPEG, MANITOBA
130 ; ROUTINE HELP FROM BRIAN MUNSHAW'S
140 ; "NEW ERROR WEDGE".
150 .OPT OO
160 WRITE =*
170 JSR $AD9E
180 JSR $B6A3
190 STX $FB
200 STY $FC
210 PHA
220 LDX #0
230 MLOOP =*
240 LDA SMSG,X
250 JSR $FFD2
260 INX
270 CPX #11
280 BNE MLOOP
290 LDA #8
300 JSR $FFB1 ;LISTEN
310 LDA #$6F
320 JSR $FF93 ;SEND SECONDARY ADDRESS
330 LDA #"S"
340 JSR $FFA8 ;CIOUT
350 ;LDA #":"
360 ;JSR $FFA8 ;CIOUT
370 PLA
380 TAX
390 LDY #0
400 SLOOP =*
410 LDA ($FB),Y
420 JSR $FFA8 ;CIOUT
430 JSR $FFD2
440 INY
450 DEX
460 BNE SLOOP
470 STY $FD
480 JSR $FFAE ;UNLSN
490 LDA $FD
500 LDX $FB
510 LDY $FC
515 JSR $FFBD ;SETNAM
520 LDA #8
530 TAY
540 TAX
550 JSR $FFBA ;SETLFS (OPEN8,8,8)
560 LDA #$2B
570 LDX $2D
580 LDY $2E
590 JMP $FFD8 ;SAVE $2B,2C TO .X,.Y
600 SMSG .ASC "SCRATCHING "