� Blackout By R.Henderson
� �6:�23,1,0;0;0;0;:�2,11);" Please enter amount of time before ":� �5,13);" the screen is blacked out: "time%:� time%<1 � time% >255 �
^ �:�2,12);" The screen will be blanked every ":� �13,14);time%;" minutes.":�23,1,1;0;0;0;
K pblock=&68:!pblock=0:osword=&FFF1:?&70=50:?&71=60:?&72=time%:?&73=?&72
� � i%=0 � 2 � 2:P%=&900:[ OPT i%:PHP:PHA:TXA:PHA:TYA:PHA:LDA &EC:CMP #&0:BEQ test:.reset LDA #60:STA &71:LDA #50:STA &70:LDA &73:STA &72:LDA &74:CMP #&1:BEQ colour:PLA:TAY:PLA:TAX:PLA:PLP:RTS
� .test LDA &ED:CMP #&0:BNE reset:DEC &70:BNE ret:LDA #50:STA &70:DEC &71:BNE ret:LDA #60:STA &71:DEC &72:BNE ret:JSR blackout:JMP blk
� .blackout LDA #0:STA pblock+1:LDX #15:.loop STX &8E:STX pblock:LDX #pblock � 256:LDY #pblock � 256:LDA #11:JSR osword:LDA pblock+1:LDX &8E:STA &75,X:DEX:BNE loop:RTS
� .blk LDX #15:.blank TXA:STA pblock:LDA #0:STA pblock+1:STX &8F:LDX #pblock � 256:LDY #pblock � 256:LDA #12:JSR osword:LDX &8F:DEX:BNE blank:LDA #1:STA &74:JMP ret
	� .colour LDX #15:.restore TXA:STA pblock:LDA &75,X:STA pblock+1:STX &8F:LDX #pblock � 256:LDY #pblock � 256:LDA #12:JSR osword:LDX &8F:DEX:BNE restore:LDA #255:STA &74:.ret PLA:TAY:PLA:TAX:PLA:PLP:RTS:]:�

 ?&220=0:?&221=&9:*FX14,4
�

00000000  0d 00 01 1e 20 f4 20 42  6c 61 63 6b 6f 75 74 20  |.... . Blackout |
00000010  42 79 20 52 2e 48 65 6e  64 65 72 73 6f 6e 0d 00  |By R.Henderson..|
00000020  02 8b 20 eb 36 3a ef 32  33 2c 31 2c 30 3b 30 3b  |.. .6:.23,1,0;0;|
00000030  30 3b 30 3b 3a f1 8a 32  2c 31 31 29 3b 22 20 50  |0;0;:..2,11);" P|
00000040  6c 65 61 73 65 20 65 6e  74 65 72 20 61 6d 6f 75  |lease enter amou|
00000050  6e 74 20 6f 66 20 74 69  6d 65 20 62 65 66 6f 72  |nt of time befor|
00000060  65 20 22 3a e8 20 8a 35  2c 31 33 29 3b 22 20 74  |e ":. .5,13);" t|
00000070  68 65 20 73 63 72 65 65  6e 20 69 73 20 62 6c 61  |he screen is bla|
00000080  63 6b 65 64 20 6f 75 74  3a 20 22 74 69 6d 65 25  |cked out: "time%|
00000090  3a e7 20 74 69 6d 65 25  3c 31 20 84 20 74 69 6d  |:. time%<1 . tim|
000000a0  65 25 20 3e 32 35 35 20  f9 0d 00 03 5e 20 db 3a  |e% >255 ....^ .:|
000000b0  f1 8a 32 2c 31 32 29 3b  22 20 54 68 65 20 73 63  |..2,12);" The sc|
000000c0  72 65 65 6e 20 77 69 6c  6c 20 62 65 20 62 6c 61  |reen will be bla|
000000d0  6e 6b 65 64 20 65 76 65  72 79 20 22 3a f1 20 8a  |nked every ":. .|
000000e0  31 33 2c 31 34 29 3b 74  69 6d 65 25 3b 22 20 6d  |13,14);time%;" m|
000000f0  69 6e 75 74 65 73 2e 22  3a ef 32 33 2c 31 2c 31  |inutes.":.23,1,1|
00000100  3b 30 3b 30 3b 30 3b 0d  00 04 4b 20 70 62 6c 6f  |;0;0;0;...K pblo|
00000110  63 6b 3d 26 36 38 3a 21  70 62 6c 6f 63 6b 3d 30  |ck=&68:!pblock=0|
00000120  3a 6f 73 77 6f 72 64 3d  26 46 46 46 31 3a 3f 26  |:osword=&FFF1:?&|
00000130  37 30 3d 35 30 3a 3f 26  37 31 3d 36 30 3a 3f 26  |70=50:?&71=60:?&|
00000140  37 32 3d 74 69 6d 65 25  3a 3f 26 37 33 3d 3f 26  |72=time%:?&73=?&|
00000150  37 32 0d 00 05 c3 20 e3  20 69 25 3d 30 20 b8 20  |72.... . i%=0 . |
00000160  32 20 88 20 32 3a 50 25  3d 26 39 30 30 3a 5b 20  |2 . 2:P%=&900:[ |
00000170  4f 50 54 20 69 25 3a 50  48 50 3a 50 48 41 3a 54  |OPT i%:PHP:PHA:T|
00000180  58 41 3a 50 48 41 3a 54  59 41 3a 50 48 41 3a 4c  |XA:PHA:TYA:PHA:L|
00000190  44 41 20 26 45 43 3a 43  4d 50 20 23 26 30 3a 42  |DA &EC:CMP #&0:B|
000001a0  45 51 20 74 65 73 74 3a  2e 72 65 73 65 74 20 4c  |EQ test:.reset L|
000001b0  44 41 20 23 36 30 3a 53  54 41 20 26 37 31 3a 4c  |DA #60:STA &71:L|
000001c0  44 41 20 23 35 30 3a 53  54 41 20 26 37 30 3a 4c  |DA #50:STA &70:L|
000001d0  44 41 20 26 37 33 3a 53  54 41 20 26 37 32 3a 4c  |DA &73:STA &72:L|
000001e0  44 41 20 26 37 34 3a 43  4d 50 20 23 26 31 3a 42  |DA &74:CMP #&1:B|
000001f0  45 51 20 63 6f 6c 6f 75  72 3a 50 4c 41 3a 54 41  |EQ colour:PLA:TA|
00000200  59 3a 50 4c 41 3a 54 41  58 3a 50 4c 41 3a 50 4c  |Y:PLA:TAX:PLA:PL|
00000210  50 3a 52 54 53 0d 00 06  89 20 2e 74 65 73 74 20  |P:RTS.... .test |
00000220  4c 44 41 20 26 45 44 3a  43 4d 50 20 23 26 30 3a  |LDA &ED:CMP #&0:|
00000230  42 4e 45 20 72 65 73 65  74 3a 44 45 43 20 26 37  |BNE reset:DEC &7|
00000240  30 3a 42 4e 45 20 72 65  74 3a 4c 44 41 20 23 35  |0:BNE ret:LDA #5|
00000250  30 3a 53 54 41 20 26 37  30 3a 44 45 43 20 26 37  |0:STA &70:DEC &7|
00000260  31 3a 42 4e 45 20 72 65  74 3a 4c 44 41 20 23 36  |1:BNE ret:LDA #6|
00000270  30 3a 53 54 41 20 26 37  31 3a 44 45 43 20 26 37  |0:STA &71:DEC &7|
00000280  32 3a 42 4e 45 20 72 65  74 3a 4a 53 52 20 62 6c  |2:BNE ret:JSR bl|
00000290  61 63 6b 6f 75 74 3a 4a  4d 50 20 62 6c 6b 0d 00  |ackout:JMP blk..|
000002a0  07 aa 20 2e 62 6c 61 63  6b 6f 75 74 20 4c 44 41  |.. .blackout LDA|
000002b0  20 23 30 3a 53 54 41 20  70 62 6c 6f 63 6b 2b 31  | #0:STA pblock+1|
000002c0  3a 4c 44 58 20 23 31 35  3a 2e 6c 6f 6f 70 20 53  |:LDX #15:.loop S|
000002d0  54 58 20 26 38 45 3a 53  54 58 20 70 62 6c 6f 63  |TX &8E:STX pbloc|
000002e0  6b 3a 4c 44 58 20 23 70  62 6c 6f 63 6b 20 83 20  |k:LDX #pblock . |
000002f0  32 35 36 3a 4c 44 59 20  23 70 62 6c 6f 63 6b 20  |256:LDY #pblock |
00000300  81 20 32 35 36 3a 4c 44  41 20 23 31 31 3a 4a 53  |. 256:LDA #11:JS|
00000310  52 20 6f 73 77 6f 72 64  3a 4c 44 41 20 70 62 6c  |R osword:LDA pbl|
00000320  6f 63 6b 2b 31 3a 4c 44  58 20 26 38 45 3a 53 54  |ock+1:LDX &8E:ST|
00000330  41 20 26 37 35 2c 58 3a  44 45 58 3a 42 4e 45 20  |A &75,X:DEX:BNE |
00000340  6c 6f 6f 70 3a 52 54 53  0d 00 08 a7 20 2e 62 6c  |loop:RTS.... .bl|
00000350  6b 20 4c 44 58 20 23 31  35 3a 2e 62 6c 61 6e 6b  |k LDX #15:.blank|
00000360  20 54 58 41 3a 53 54 41  20 70 62 6c 6f 63 6b 3a  | TXA:STA pblock:|
00000370  4c 44 41 20 23 30 3a 53  54 41 20 70 62 6c 6f 63  |LDA #0:STA pbloc|
00000380  6b 2b 31 3a 53 54 58 20  26 38 46 3a 4c 44 58 20  |k+1:STX &8F:LDX |
00000390  23 70 62 6c 6f 63 6b 20  83 20 32 35 36 3a 4c 44  |#pblock . 256:LD|
000003a0  59 20 23 70 62 6c 6f 63  6b 20 81 20 32 35 36 3a  |Y #pblock . 256:|
000003b0  4c 44 41 20 23 31 32 3a  4a 53 52 20 6f 73 77 6f  |LDA #12:JSR oswo|
000003c0  72 64 3a 4c 44 58 20 26  38 46 3a 44 45 58 3a 42  |rd:LDX &8F:DEX:B|
000003d0  4e 45 20 62 6c 61 6e 6b  3a 4c 44 41 20 23 31 3a  |NE blank:LDA #1:|
000003e0  53 54 41 20 26 37 34 3a  4a 4d 50 20 72 65 74 0d  |STA &74:JMP ret.|
000003f0  00 09 d0 20 2e 63 6f 6c  6f 75 72 20 4c 44 58 20  |... .colour LDX |
00000400  23 31 35 3a 2e 72 65 73  74 6f 72 65 20 54 58 41  |#15:.restore TXA|
00000410  3a 53 54 41 20 70 62 6c  6f 63 6b 3a 4c 44 41 20  |:STA pblock:LDA |
00000420  26 37 35 2c 58 3a 53 54  41 20 70 62 6c 6f 63 6b  |&75,X:STA pblock|
00000430  2b 31 3a 53 54 58 20 26  38 46 3a 4c 44 58 20 23  |+1:STX &8F:LDX #|
00000440  70 62 6c 6f 63 6b 20 83  20 32 35 36 3a 4c 44 59  |pblock . 256:LDY|
00000450  20 23 70 62 6c 6f 63 6b  20 81 20 32 35 36 3a 4c  | #pblock . 256:L|
00000460  44 41 20 23 31 32 3a 4a  53 52 20 6f 73 77 6f 72  |DA #12:JSR oswor|
00000470  64 3a 4c 44 58 20 26 38  46 3a 44 45 58 3a 42 4e  |d:LDX &8F:DEX:BN|
00000480  45 20 72 65 73 74 6f 72  65 3a 4c 44 41 20 23 32  |E restore:LDA #2|
00000490  35 35 3a 53 54 41 20 26  37 34 3a 2e 72 65 74 20  |55:STA &74:.ret |
000004a0  50 4c 41 3a 54 41 59 3a  50 4c 41 3a 54 41 58 3a  |PLA:TAY:PLA:TAX:|
000004b0  50 4c 41 3a 50 4c 50 3a  52 54 53 3a 5d 3a ed 0d  |PLA:PLP:RTS:]:..|
000004c0  00 0a 1d 20 3f 26 32 32  30 3d 30 3a 3f 26 32 32  |... ?&220=0:?&22|
000004d0  31 3d 26 39 3a 2a 46 58  31 34 2c 34 0d ff        |1=&9:*FX14,4..|
000004de