� Display
� by George Speller
� (c) The Micro User
(� � �7:�error:�
2
�7:�setup
<�2:�23,1,0;0;0;0;
F�colsoff
P�os("LOAD "+F$)
Z� T%=�+5
d� � �>T%
n�rotate:� �
x:
���rotate:*fx19
��19,S%+E%,A%;0;
��19,S%+L%,0;0;:*fx19
��19,S%+4+E%,B%;0;
��19,S%+4+L%,0;0;:L%=E%
�E%=(E%+1)�4:�
�:
���setup:� b%256
�S%=8:L%=0:E%=0:*FX4,1
��0,10)"Display"'
��"Load filename: "F$
�� F$="" F$="SCREEN"
��'"Colour A (1-7)";:A%=�n

�'"Colour B (1-7)";:B%=�n

�

:

"� �n:� G%=�-48

,� G%>0 � G%<8:�;G%:=G%

6:

@��colsoff:�N%=8�15

J�19,N%;0;0;:�:�

T:

^� �os($b%):� X%,Y%:X%=b%

hY%=X%�256:�&FFF7:�

r:

|� �error:*FX4

�� �=17 � "Finished":�

��:�" at line ";�:�
�

00000000  0d 00 0a 0d f4 20 44 69  73 70 6c 61 79 0d 00 14  |..... Display...|
00000010  17 f4 20 62 79 20 47 65  6f 72 67 65 20 53 70 65  |.. by George Spe|
00000020  6c 6c 65 72 0d 00 1e 18  f4 20 28 63 29 20 54 68  |ller..... (c) Th|
00000030  65 20 4d 69 63 72 6f 20  55 73 65 72 0d 00 28 13  |e Micro User..(.|
00000040  ee 20 85 20 eb 37 3a f2  65 72 72 6f 72 3a e0 0d  |. . .7:.error:..|
00000050  00 32 0d eb 37 3a f2 73  65 74 75 70 0d 00 3c 15  |.2..7:.setup..<.|
00000060  eb 32 3a ef 32 33 2c 31  2c 30 3b 30 3b 30 3b 30  |.2:.23,1,0;0;0;0|
00000070  3b 0d 00 46 0c f2 63 6f  6c 73 6f 66 66 0d 00 50  |;..F..colsoff..P|
00000080  13 f2 6f 73 28 22 4c 4f  41 44 20 22 2b 46 24 29  |..os("LOAD "+F$)|
00000090  0d 00 5a 0c f5 20 54 25  3d 91 2b 35 0d 00 64 0c  |..Z.. T%=.+5..d.|
000000a0  f5 20 fd 20 91 3e 54 25  0d 00 6e 0f f2 72 6f 74  |. . .>T%..n..rot|
000000b0  61 74 65 3a fd 20 a3 0d  00 78 05 3a 0d 00 82 12  |ate:. ...x.:....|
000000c0  dd f2 72 6f 74 61 74 65  3a 2a 66 78 31 39 0d 00  |..rotate:*fx19..|
000000d0  8c 13 ef 31 39 2c 53 25  2b 45 25 2c 41 25 3b 30  |...19,S%+E%,A%;0|
000000e0  3b 0d 00 96 18 ef 31 39  2c 53 25 2b 4c 25 2c 30  |;.....19,S%+L%,0|
000000f0  3b 30 3b 3a 2a 66 78 31  39 0d 00 a0 15 ef 31 39  |;0;:*fx19.....19|
00000100  2c 53 25 2b 34 2b 45 25  2c 42 25 3b 30 3b 0d 00  |,S%+4+E%,B%;0;..|
00000110  aa 1a ef 31 39 2c 53 25  2b 34 2b 4c 25 2c 30 3b  |...19,S%+4+L%,0;|
00000120  30 3b 3a 4c 25 3d 45 25  0d 00 b4 11 45 25 3d 28  |0;:L%=E%....E%=(|
00000130  45 25 2b 31 29 83 34 3a  e1 0d 00 be 05 3a 0d 00  |E%+1).4:.....:..|
00000140  c8 13 dd f2 73 65 74 75  70 3a de 20 62 25 32 35  |....setup:. b%25|
00000150  36 0d 00 d2 19 53 25 3d  38 3a 4c 25 3d 30 3a 45  |6....S%=8:L%=0:E|
00000160  25 3d 30 3a 2a 46 58 34  2c 31 0d 00 dc 15 f1 8a  |%=0:*FX4,1......|
00000170  30 2c 31 30 29 22 44 69  73 70 6c 61 79 22 27 0d  |0,10)"Display"'.|
00000180  00 e6 18 e8 22 4c 6f 61  64 20 66 69 6c 65 6e 61  |...."Load filena|
00000190  6d 65 3a 20 22 46 24 0d  00 f0 17 e7 20 46 24 3d  |me: "F$..... F$=|
000001a0  22 22 20 46 24 3d 22 53  43 52 45 45 4e 22 0d 00  |"" F$="SCREEN"..|
000001b0  fa 1d f1 27 22 43 6f 6c  6f 75 72 20 41 20 28 31  |...'"Colour A (1|
000001c0  2d 37 29 22 3b 3a 41 25  3d a4 6e 0d 01 04 1d f1  |-7)";:A%=.n.....|
000001d0  27 22 43 6f 6c 6f 75 72  20 42 20 28 31 2d 37 29  |'"Colour B (1-7)|
000001e0  22 3b 3a 42 25 3d a4 6e  0d 01 0e 05 e1 0d 01 18  |";:B%=.n........|
000001f0  05 3a 0d 01 22 12 dd 20  a4 6e 3a f5 20 47 25 3d  |.:..".. .n:. G%=|
00000200  a5 2d 34 38 0d 01 2c 1a  fd 20 47 25 3e 30 20 80  |.-48..,.. G%>0 .|
00000210  20 47 25 3c 38 3a f1 3b  47 25 3a 3d 47 25 0d 01  | G%<8:.;G%:=G%..|
00000220  36 05 3a 0d 01 40 16 dd  f2 63 6f 6c 73 6f 66 66  |6.:..@...colsoff|
00000230  3a e3 4e 25 3d 38 b8 31  35 0d 01 4a 13 ef 31 39  |:.N%=8.15..J..19|
00000240  2c 4e 25 3b 30 3b 30 3b  3a ed 3a e1 0d 01 54 05  |,N%;0;0;:.:...T.|
00000250  3a 0d 01 5e 1c dd 20 f2  6f 73 28 24 62 25 29 3a  |:..^.. .os($b%):|
00000260  ea 20 58 25 2c 59 25 3a  58 25 3d 62 25 0d 01 68  |. X%,Y%:X%=b%..h|
00000270  16 59 25 3d 58 25 81 32  35 36 3a d6 26 46 46 46  |.Y%=X%.256:.&FFF|
00000280  37 3a e1 0d 01 72 05 3a  0d 01 7c 11 dd 20 f2 65  |7:...r.:..|.. .e|
00000290  72 72 6f 72 3a 2a 46 58  34 0d 01 86 19 e7 20 9f  |rror:*FX4..... .|
000002a0  3d 31 37 20 f1 20 22 46  69 6e 69 73 68 65 64 22  |=17 . "Finished"|
000002b0  3a e0 0d 01 90 16 f6 3a  f1 22 20 61 74 20 6c 69  |:......:." at li|
000002c0  6e 65 20 22 3b 9e 3a e0  0d ff                    |ne ";.:...|
000002ca