[ 53280,0:53281,0:646,(162):"":" USE LYNX TO DISSOLVE THIS FILE":10 1 *LYNX XV BY WILL CORLEY 3 ANTIBLACKSOU.CVT 9 S 131 ANTIBLACKOUT.CVT 5 S 24 ANTIBLACKHDR.CVT 9 S 70 AntiBlackSource#PRG formatted GEOS file V1.0AWrite Image V2.0geoWrite V2.1  ...݅ ( >1 59 ..  9 < <` " . r " `(@1ʎsAڢ9 V&0h ;***************************** ;* ;*  Anti-Blackout ;* ;* (C) 1996 Bo Zimmerman ;*****************************   .if Pass1 0h .include Misc.MAC .include MemMap.EQ .endif  .psect ProgStart: cwi $fffe, #$cf90 bne NotIn sei ldw $fffe,#$faa2 cli ldw R0,#PanicData mvw $c2c3,R1 ldw R2,#$53 jsr MoveData ldw R0,#Install jmp DoDlgBox NotIn: ldw R0,#Destall jmp DoDlgBox  Exit: jmp $c22c  Install : .byte $80 | $02 .byte 17 ;Routine on Click .word Exit ;routine to execute on otherPress .byte 11 ;add text .byte $18,$20 .word DBTextA .byte 0 ;end of defintion DBTextA: .byte $18,"Blackout has been removed.",27,0 Destall: .byte $80 | $02 .byte 17 ;Routine on Click .word Exit ;routine to execute on otherPress .byte 11 ;add text .byte $18,$20 .word DBTextB .byte 0 ;end of defintion DBTextB: .byte $18,"Blackout is not in memory.",27,0 PanicData: .byte $68,$85,$02,$68,$85,$03,$38,$a5 .byte $02,$e9,$02,$85,$02,$a5,$03,$e9 .byte $00,$85,$03,$a5,$03,$a2,$00,$20 .byte $b2,$cf,$a5,$02,$20,$b2,$cf,$a9 .byte $cf,$85,$03,$a9,$d3,$85,$02,$20 .byte $56,$c2,$48,$4a,$4a,$4a,$4a,$20 .byte $c3,$cf,$e8,$68,$29,$0f,$20,$c3 .byte $cf,$e8,$60,$c9,$0a,$b0,$05,$18 .byte $69,$30,$d0,$03,$18,$69,$37,$9d .byte $ee,$cf,$60,$81,$0b,$10,$10,$da .byte $cf,$00,$18,$53,$79,$73,$74,$655yte $cf,$00,$18,$53,$79,$73,$74,$65yte $cf,$00,$18,$53,$79,$73,$74,$65AntiBlackout.lnk"PRG formatted GEOS file V1.0AWrite Image V2.0geoWrite V2.1  ...݅ ( >1 59 ..  9 < <` " . r " `(@1ʎsAڢ9 V&P ;***************************** ;* ;*  Anti-Blackout ;* ;* (C) 1996 Bo Zimmerman ;*****************************  P.output AntiBLACKOUT .header AntiBlackHdr.rel .seq .psect $0400 AntiBlackSou.rel n sei ldw $fffe,#$faa2 cli ldw R0,#PanicData mvw $c2c3,R1 ldw R2,#$53 jsr MoveData ldw R0,#Install jmp DoDlgBox NotIn: ldw R0,#Destall jmp DoDlgBox  Exit: jmp $c22c  Install : .byte $80 | $02 .byte 17 ;RAntiBlackHdr#PRG formatted GEOS file V1.0AWrite Image V2.0geoWrite V1.1GEOPROGRAMMER sample file.F0` ;***************************** ;* ;*  Anti-Blackout ;* ;* (C) 1996 Bo Zimmerman ;*****************************  0`.if Pass1 .include File&Disk.EQ .endif .header ;start of header section .word 0 ;first two bytes = 0 .byte 3 ;width in bytes .byte 21 ;and height in scanlines of: @ .byte $80 | USR ;Commodore type, bit 7 S .byte APPLICATION ;Geos file type .byte SEQUENTIAL ;Geos file structure type .word ProgStart ;load address of program .word $3ff ;end address, needed for ;desk accessories. .word ProgStart ;init address of program .byte "AntiBlackout 1.0",0,0,0,$00 ;perm. filename 12 chars, ;4 char version number, ;3 zeroes, ;40/80 column flag. .byte "Bo Zimmerman ",0 ;19 character author name ;end of header section which is checked for accuracy .block 160-117 ;skip 43 bytes... .byte "This is Anti-BLACKOUT for GEOS 2.0",13 ; auto wraps .byte " Written by Bo Zimmerman.",0 .endh .byte $00,$85,$03,$a5,$03,$a2,$00,$20 .byte $b2,$cf,$a5,$02,$20,$b2,$cf,$a9 .byte $cf,$85,$03,$a9,$d3,$85,$02,$20 .byte $56,$c2,$48,$4a,$4a,$4a,$4a,$20 .byte $c3,$cf,$e8,$68,$29,$0f,$20,$c3 .byte $cf,$e8,$60,$c9,$0a,$b0,$05,$18 .byte $69,$30,$y-u?y a