� Custom screens
� by Barnaby Short
� (c) The Micro User
#"� �<&1900 : �=&1900:�"10KSCRL"
(�2
2�declare
<
�assemble
F>$&900="*SAVE SCRCODE "+�~(codestart%)+" "+�~(codeend%)+�13
PX%=0:Y%=&9:�oscli
Z�scrform
dS%=&5800
n�drawhiddenscreen
x�reset(S%)
��drawshowscreen
��
�*FX21,0
��-73 �move(+&200)
��-105 �move(-&200)
��-67 �move(-8)
��-98 �move(8)
��-99 �reveal
��0,0);~S%;" ";
�	*FX19
��reset(S%)
��0
��

��reveal

�reset(&3000)

�

"
���-99

,�

6��reset(s%)

@�23,0,12,s% �2048;0;0;0

J�23,0,13,s% �2048 �8;0;0;0

T�

^��move(s%)

hS%=S%+s%

r� S%>&8000 S%=S%-&2800

|� S%<&5800 S%=S%+&2800

��

���assemble

��pass=0�2 �2

�P%=codestart%

�
[OPT pass

�.scrform

�"LDA&355:CMP#3:BCC modechekskip

�BRK:RTS

�/]:A$="Bad mode"+�13+�0:$P%=A$:P%=P%+�(A$)+1

�[OPTpass

�.modechekskip

�-LDA&355:TAY:LDAtextlen,Y:LDY#83:STAdata,Y

�SEI
LDA#&FF:STA&FE42
LDA#12:STA&FE40
LDA#13:STA&FE40
&CLI
07LDY#0:.loop LDAdata,Y:JSRoswrch:INY:CPY#50:BNE loop
:TYA:PHA
DVLDA#multitab �256:STA&E0:LDA#multitab �256:STA&E1:LDA#&58:STA&34E:LDA#12:JSRoswrch
NLDA#0:STA&352:LDA#2:STA&353
XPLA:TAY
b3.loop1 LDAdata,Y:JSRoswrch:INY:CPY#85:BNE loop1
lLDA#&28:STA&354
vRTS
�.multitab:]
�S�a%=0�23:b%=a%*&200:?(multitab+(a%*2))=b% � 256:?(multitab+1+(a%*2))=b% � 256:�
�P%=P%+(30*2)
�[OPTpass:.data:]
�#� �dnB:�A%=0�84:� ?P%:P%=P%+1:�
�[OPTpass:.textlen:]
�"� �DRC:�A%=0�2:� ?P%:P%=P%+1:�
�codeend%=P%
��
��
�� New screen vectors
�� 23,0,12,6,0,0,0,0,0,0
�� 23,0,13,0,0,0,0,0,0,0
� 23,0,6,20,0,0,0,0,0,0
� 23,0,7,28,0,0,0,0,0,0
� 23,1,0,0,0,0,0,0,0,0
 � 23,0,8,2,0,0,0,0,0,0
*� 23,0,1,64,0,0,0,0,0,0
4� 23,0,2,89,0,0,0,0,0,0
>� 28,0,19,15,0
H#� Different text window lengths
R� 63,31,15
\��drawhiddenscreen
f�reset(&3000)
p$�T%=0�&2800 �7:T%!&3000=�(&20):�
z�
���drawshowscreen
�
�129:�
��132:�3
��24,0;384;1018;1023;
�.�0,384:�0,1023:�1018,1023:�1018,384:�0,384
�YS=1023-384
��A=1�20
��0,�(7)
�)�(1016),384+�(YS):�(1016),384+�(YS)
��85,�(1016),384+�(YS)
��
��
�
��declare
oscli=&FFF7
oswrch=&FFEE
codestart%=&1100
$�
�

00000000  0d 00 0a 14 f4 20 43 75  73 74 6f 6d 20 73 63 72  |..... Custom scr|
00000010  65 65 6e 73 0d 00 14 16  f4 20 62 79 20 42 61 72  |eens..... by Bar|
00000020  6e 61 62 79 20 53 68 6f  72 74 0d 00 1e 18 f4 20  |naby Short..... |
00000030  28 63 29 20 54 68 65 20  4d 69 63 72 6f 20 55 73  |(c) The Micro Us|
00000040  65 72 0d 00 23 22 e7 20  90 3c 26 31 39 30 30 20  |er..#". .<&1900 |
00000050  3a 20 d0 3d 26 31 39 30  30 3a d7 22 31 30 4b 53  |: .=&1900:."10KS|
00000060  43 52 4c 22 0d 00 28 06  eb 32 0d 00 32 0c f2 64  |CRL"..(..2..2..d|
00000070  65 63 6c 61 72 65 0d 00  3c 0d f2 61 73 73 65 6d  |eclare..<..assem|
00000080  62 6c 65 0d 00 46 3e 24  26 39 30 30 3d 22 2a 53  |ble..F>$&900="*S|
00000090  41 56 45 20 53 43 52 43  4f 44 45 20 22 2b c3 7e  |AVE SCRCODE "+.~|
000000a0  28 63 6f 64 65 73 74 61  72 74 25 29 2b 22 20 22  |(codestart%)+" "|
000000b0  2b c3 7e 28 63 6f 64 65  65 6e 64 25 29 2b bd 31  |+.~(codeend%)+.1|
000000c0  33 0d 00 50 15 58 25 3d  30 3a 59 25 3d 26 39 3a  |3..P.X%=0:Y%=&9:|
000000d0  d6 6f 73 63 6c 69 0d 00  5a 0c d6 73 63 72 66 6f  |.oscli..Z..scrfo|
000000e0  72 6d 0d 00 64 0c 53 25  3d 26 35 38 30 30 0d 00  |rm..d.S%=&5800..|
000000f0  6e 15 f2 64 72 61 77 68  69 64 64 65 6e 73 63 72  |n..drawhiddenscr|
00000100  65 65 6e 0d 00 78 0e f2  72 65 73 65 74 28 53 25  |een..x..reset(S%|
00000110  29 0d 00 82 13 f2 64 72  61 77 73 68 6f 77 73 63  |).....drawshowsc|
00000120  72 65 65 6e 0d 00 8c 05  f5 0d 00 96 0b 2a 46 58  |reen.........*FX|
00000130  32 31 2c 30 0d 00 a0 16  e7 a6 2d 37 33 20 f2 6d  |21,0......-73 .m|
00000140  6f 76 65 28 2b 26 32 30  30 29 0d 00 aa 17 e7 a6  |ove(+&200)......|
00000150  2d 31 30 35 20 f2 6d 6f  76 65 28 2d 26 32 30 30  |-105 .move(-&200|
00000160  29 0d 00 b4 13 e7 a6 2d  36 37 20 f2 6d 6f 76 65  |)......-67 .move|
00000170  28 2d 38 29 0d 00 be 12  e7 a6 2d 39 38 20 f2 6d  |(-8)......-98 .m|
00000180  6f 76 65 28 38 29 0d 00  c8 11 e7 a6 2d 39 39 20  |ove(8)......-99 |
00000190  f2 72 65 76 65 61 6c 0d  00 d2 13 f1 8a 30 2c 30  |.reveal......0,0|
000001a0  29 3b 7e 53 25 3b 22 20  22 3b 0d 00 dc 09 2a 46  |);~S%;" ";....*F|
000001b0  58 31 39 0d 00 e6 0e f2  72 65 73 65 74 28 53 25  |X19.....reset(S%|
000001c0  29 0d 00 f0 06 fd 30 0d  00 fa 05 e0 0d 01 04 0c  |).....0.........|
000001d0  dd f2 72 65 76 65 61 6c  0d 01 0e 11 f2 72 65 73  |..reveal.....res|
000001e0  65 74 28 26 33 30 30 30  29 0d 01 18 05 f5 0d 01  |et(&3000).......|
000001f0  22 0a fd ac a6 2d 39 39  0d 01 2c 05 e1 0d 01 36  |"....-99..,....6|
00000200  0f dd f2 72 65 73 65 74  28 73 25 29 0d 01 40 1b  |...reset(s%)..@.|
00000210  ef 32 33 2c 30 2c 31 32  2c 73 25 20 81 32 30 34  |.23,0,12,s% .204|
00000220  38 3b 30 3b 30 3b 30 0d  01 4a 1e ef 32 33 2c 30  |8;0;0;0..J..23,0|
00000230  2c 31 33 2c 73 25 20 83  32 30 34 38 20 81 38 3b  |,13,s% .2048 .8;|
00000240  30 3b 30 3b 30 0d 01 54  05 e1 0d 01 5e 0e dd f2  |0;0;0..T....^...|
00000250  6d 6f 76 65 28 73 25 29  0d 01 68 0c 53 25 3d 53  |move(s%)..h.S%=S|
00000260  25 2b 73 25 0d 01 72 1a  e7 20 53 25 3e 26 38 30  |%+s%..r.. S%>&80|
00000270  30 30 20 53 25 3d 53 25  2d 26 32 38 30 30 0d 01  |00 S%=S%-&2800..|
00000280  7c 1a e7 20 53 25 3c 26  35 38 30 30 20 53 25 3d  ||.. S%<&5800 S%=|
00000290  53 25 2b 26 32 38 30 30  0d 01 86 05 e1 0d 01 90  |S%+&2800........|
000002a0  0e dd f2 61 73 73 65 6d  62 6c 65 0d 01 9a 10 e3  |...assemble.....|
000002b0  70 61 73 73 3d 30 b8 32  20 88 32 0d 01 a4 11 50  |pass=0.2 .2....P|
000002c0  25 3d 63 6f 64 65 73 74  61 72 74 25 0d 01 ae 0d  |%=codestart%....|
000002d0  5b 4f 50 54 20 70 61 73  73 0d 01 b8 0c 2e 73 63  |[OPT pass.....sc|
000002e0  72 66 6f 72 6d 0d 01 c2  22 4c 44 41 26 33 35 35  |rform..."LDA&355|
000002f0  3a 43 4d 50 23 33 3a 42  43 43 20 6d 6f 64 65 63  |:CMP#3:BCC modec|
00000300  68 65 6b 73 6b 69 70 0d  01 cc 0b 42 52 4b 3a 52  |hekskip....BRK:R|
00000310  54 53 0d 01 d6 2f 5d 3a  41 24 3d 22 42 61 64 20  |TS.../]:A$="Bad |
00000320  6d 6f 64 65 22 2b bd 31  33 2b bd 30 3a 24 50 25  |mode"+.13+.0:$P%|
00000330  3d 41 24 3a 50 25 3d 50  25 2b a9 28 41 24 29 2b  |=A$:P%=P%+.(A$)+|
00000340  31 0d 01 e0 0c 5b 4f 50  54 70 61 73 73 0d 01 ea  |1....[OPTpass...|
00000350  11 2e 6d 6f 64 65 63 68  65 6b 73 6b 69 70 0d 01  |..modechekskip..|
00000360  f4 2d 4c 44 41 26 33 35  35 3a 54 41 59 3a 4c 44  |.-LDA&355:TAY:LD|
00000370  41 74 65 78 74 6c 65 6e  2c 59 3a 4c 44 59 23 38  |Atextlen,Y:LDY#8|
00000380  33 3a 53 54 41 64 61 74  61 2c 59 0d 01 fe 07 53  |3:STAdata,Y....S|
00000390  45 49 0d 02 08 14 4c 44  41 23 26 46 46 3a 53 54  |EI....LDA#&FF:ST|
000003a0  41 26 46 45 34 32 0d 02  12 13 4c 44 41 23 31 32  |A&FE42....LDA#12|
000003b0  3a 53 54 41 26 46 45 34  30 0d 02 1c 13 4c 44 41  |:STA&FE40....LDA|
000003c0  23 31 33 3a 53 54 41 26  46 45 34 30 0d 02 26 07  |#13:STA&FE40..&.|
000003d0  43 4c 49 0d 02 30 37 4c  44 59 23 30 3a 2e 6c 6f  |CLI..07LDY#0:.lo|
000003e0  6f 70 20 4c 44 41 64 61  74 61 2c 59 3a 4a 53 52  |op LDAdata,Y:JSR|
000003f0  6f 73 77 72 63 68 3a 49  4e 59 3a 43 50 59 23 35  |oswrch:INY:CPY#5|
00000400  30 3a 42 4e 45 20 6c 6f  6f 70 0d 02 3a 0b 54 59  |0:BNE loop..:.TY|
00000410  41 3a 50 48 41 0d 02 44  56 4c 44 41 23 6d 75 6c  |A:PHA..DVLDA#mul|
00000420  74 69 74 61 62 20 83 32  35 36 3a 53 54 41 26 45  |titab .256:STA&E|
00000430  30 3a 4c 44 41 23 6d 75  6c 74 69 74 61 62 20 81  |0:LDA#multitab .|
00000440  32 35 36 3a 53 54 41 26  45 31 3a 4c 44 41 23 26  |256:STA&E1:LDA#&|
00000450  35 38 3a 53 54 41 26 33  34 45 3a 4c 44 41 23 31  |58:STA&34E:LDA#1|
00000460  32 3a 4a 53 52 6f 73 77  72 63 68 0d 02 4e 1f 4c  |2:JSRoswrch..N.L|
00000470  44 41 23 30 3a 53 54 41  26 33 35 32 3a 4c 44 41  |DA#0:STA&352:LDA|
00000480  23 32 3a 53 54 41 26 33  35 33 0d 02 58 0b 50 4c  |#2:STA&353..X.PL|
00000490  41 3a 54 41 59 0d 02 62  33 2e 6c 6f 6f 70 31 20  |A:TAY..b3.loop1 |
000004a0  4c 44 41 64 61 74 61 2c  59 3a 4a 53 52 6f 73 77  |LDAdata,Y:JSRosw|
000004b0  72 63 68 3a 49 4e 59 3a  43 50 59 23 38 35 3a 42  |rch:INY:CPY#85:B|
000004c0  4e 45 20 6c 6f 6f 70 31  0d 02 6c 13 4c 44 41 23  |NE loop1..l.LDA#|
000004d0  26 32 38 3a 53 54 41 26  33 35 34 0d 02 76 07 52  |&28:STA&354..v.R|
000004e0  54 53 0d 02 80 0f 2e 6d  75 6c 74 69 74 61 62 3a  |TS.....multitab:|
000004f0  5d 0d 02 8a 53 e3 61 25  3d 30 b8 32 33 3a 62 25  |]...S.a%=0.23:b%|
00000500  3d 61 25 2a 26 32 30 30  3a 3f 28 6d 75 6c 74 69  |=a%*&200:?(multi|
00000510  74 61 62 2b 28 61 25 2a  32 29 29 3d 62 25 20 81  |tab+(a%*2))=b% .|
00000520  20 32 35 36 3a 3f 28 6d  75 6c 74 69 74 61 62 2b  | 256:?(multitab+|
00000530  31 2b 28 61 25 2a 32 29  29 3d 62 25 20 83 20 32  |1+(a%*2))=b% . 2|
00000540  35 36 3a ed 0d 02 94 10  50 25 3d 50 25 2b 28 33  |56:.....P%=P%+(3|
00000550  30 2a 32 29 0d 02 9e 14  5b 4f 50 54 70 61 73 73  |0*2)....[OPTpass|
00000560  3a 2e 64 61 74 61 3a 5d  0d 02 a8 23 f7 20 8d 64  |:.data:]...#. .d|
00000570  6e 42 3a e3 41 25 3d 30  b8 38 34 3a f3 20 3f 50  |nB:.A%=0.84:. ?P|
00000580  25 3a 50 25 3d 50 25 2b  31 3a ed 0d 02 b2 17 5b  |%:P%=P%+1:.....[|
00000590  4f 50 54 70 61 73 73 3a  2e 74 65 78 74 6c 65 6e  |OPTpass:.textlen|
000005a0  3a 5d 0d 02 bc 22 f7 20  8d 44 52 43 3a e3 41 25  |:]...". .DRC:.A%|
000005b0  3d 30 b8 32 3a f3 20 3f  50 25 3a 50 25 3d 50 25  |=0.2:. ?P%:P%=P%|
000005c0  2b 31 3a ed 0d 02 c6 0f  63 6f 64 65 65 6e 64 25  |+1:.....codeend%|
000005d0  3d 50 25 0d 02 d0 05 ed  0d 02 da 05 e1 0d 02 e4  |=P%.............|
000005e0  18 f4 20 4e 65 77 20 73  63 72 65 65 6e 20 76 65  |.. New screen ve|
000005f0  63 74 6f 72 73 0d 02 ee  1b dc 20 32 33 2c 30 2c  |ctors..... 23,0,|
00000600  31 32 2c 36 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |12,6,0,0,0,0,0,0|
00000610  0d 02 f8 1b dc 20 32 33  2c 30 2c 31 33 2c 30 2c  |..... 23,0,13,0,|
00000620  30 2c 30 2c 30 2c 30 2c  30 2c 30 0d 03 02 1b dc  |0,0,0,0,0,0.....|
00000630  20 32 33 2c 30 2c 36 2c  32 30 2c 30 2c 30 2c 30  | 23,0,6,20,0,0,0|
00000640  2c 30 2c 30 2c 30 0d 03  0c 1b dc 20 32 33 2c 30  |,0,0,0..... 23,0|
00000650  2c 37 2c 32 38 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |,7,28,0,0,0,0,0,|
00000660  30 0d 03 16 1a dc 20 32  33 2c 31 2c 30 2c 30 2c  |0..... 23,1,0,0,|
00000670  30 2c 30 2c 30 2c 30 2c  30 2c 30 0d 03 20 1a dc  |0,0,0,0,0,0.. ..|
00000680  20 32 33 2c 30 2c 38 2c  32 2c 30 2c 30 2c 30 2c  | 23,0,8,2,0,0,0,|
00000690  30 2c 30 2c 30 0d 03 2a  1b dc 20 32 33 2c 30 2c  |0,0,0..*.. 23,0,|
000006a0  31 2c 36 34 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |1,64,0,0,0,0,0,0|
000006b0  0d 03 34 1b dc 20 32 33  2c 30 2c 32 2c 38 39 2c  |..4.. 23,0,2,89,|
000006c0  30 2c 30 2c 30 2c 30 2c  30 2c 30 0d 03 3e 12 dc  |0,0,0,0,0,0..>..|
000006d0  20 32 38 2c 30 2c 31 39  2c 31 35 2c 30 0d 03 48  | 28,0,19,15,0..H|
000006e0  23 f4 20 44 69 66 66 65  72 65 6e 74 20 74 65 78  |#. Different tex|
000006f0  74 20 77 69 6e 64 6f 77  20 6c 65 6e 67 74 68 73  |t window lengths|
00000700  0d 03 52 0e dc 20 36 33  2c 33 31 2c 31 35 0d 03  |..R.. 63,31,15..|
00000710  5c 16 dd f2 64 72 61 77  68 69 64 64 65 6e 73 63  |\...drawhiddensc|
00000720  72 65 65 6e 0d 03 66 11  f2 72 65 73 65 74 28 26  |reen..f..reset(&|
00000730  33 30 30 30 29 0d 03 70  24 e3 54 25 3d 30 b8 26  |3000)..p$.T%=0.&|
00000740  32 38 30 30 20 88 37 3a  54 25 21 26 33 30 30 30  |2800 .7:T%!&3000|
00000750  3d b3 28 26 32 30 29 3a  ed 0d 03 7a 05 e1 0d 03  |=.(&20):...z....|
00000760  84 14 dd f2 64 72 61 77  73 68 6f 77 73 63 72 65  |....drawshowscre|
00000770  65 6e 0d 03 8e 0a fb 31  32 39 3a db 0d 03 98 0b  |en.....129:.....|
00000780  fb 31 33 32 3a fb 33 0d  03 a2 18 ef 32 34 2c 30  |.132:.3.....24,0|
00000790  3b 33 38 34 3b 31 30 31  38 3b 31 30 32 33 3b 0d  |;384;1018;1023;.|
000007a0  03 ac 2e ec 30 2c 33 38  34 3a df 30 2c 31 30 32  |....0,384:.0,102|
000007b0  33 3a df 31 30 31 38 2c  31 30 32 33 3a df 31 30  |3:.1018,1023:.10|
000007c0  31 38 2c 33 38 34 3a df  30 2c 33 38 34 0d 03 b6  |18,384:.0,384...|
000007d0  0f 59 53 3d 31 30 32 33  2d 33 38 34 0d 03 c0 0b  |.YS=1023-384....|
000007e0  e3 41 3d 31 b8 32 30 0d  03 ca 0b e6 30 2c b3 28  |.A=1.20.....0,.(|
000007f0  37 29 0d 03 d4 29 ec b3  28 31 30 31 36 29 2c 33  |7)...)..(1016),3|
00000800  38 34 2b b3 28 59 53 29  3a ec b3 28 31 30 31 36  |84+.(YS):..(1016|
00000810  29 2c 33 38 34 2b b3 28  59 53 29 0d 03 de 19 f0  |),384+.(YS).....|
00000820  38 35 2c b3 28 31 30 31  36 29 2c 33 38 34 2b b3  |85,.(1016),384+.|
00000830  28 59 53 29 0d 03 e8 05  ed 0d 03 f2 05 e1 0d 03  |(YS)............|
00000840  fc 0d dd f2 64 65 63 6c  61 72 65 0d 04 06 0f 6f  |....declare....o|
00000850  73 63 6c 69 3d 26 46 46  46 37 0d 04 10 10 6f 73  |scli=&FFF7....os|
00000860  77 72 63 68 3d 26 46 46  45 45 0d 04 1a 14 63 6f  |wrch=&FFEE....co|
00000870  64 65 73 74 61 72 74 25  3d 26 31 31 30 30 0d 04  |destart%=&1100..|
00000880  24 05 e1 0d ff                                    |$....|
00000885