P464ORACLE 464 Mon20 Jan C4 1702:25
‖F22012p2‖a35test211820/01/86‖i25BASICFA
mstrad CPC 464$÷X÷@÷←─m This is a bigger
test program÷X÷w÷XL÷½─m for the Amstrad
uploader÷X÷‖─÷X─X÷½─U ÷g÷X÷‖─÷X÷l÷→─* ÷
l÷X÷l÷Xx÷→÷0 ÷q÷b, ÷q÷v, ÷m, ÷q÷j÷X÷‖─÷X
÷4÷→─b ÷h÷X÷‖─÷X@÷↑─c ÷i÷X÷↑÷X─L÷↑─2÷X÷o
÷X÷‖─÷#─F ÷e÷X÷X÷A ÷G ÷tA÷X ■D ■tZ÷X÷X■l
÷Xl÷#─F ÷e÷X÷X÷B ÷G ÷g ÷D ÷q÷T÷X÷h÷X÷(÷#
─g ÷W÷←(÷e÷X÷X÷A);÷X÷c÷X4÷‖──X ÷e÷X÷X÷B÷
X÷c÷X─@÷‖──X ÷e÷X÷X÷A÷X÷k÷X÷T÷‖─÷0 ÷g, ÷
q(, ÷g, ÷q÷q÷X÷↑÷X‖─÷a─2÷X÷↑÷X─l÷a÷(÷X÷g
÷X(÷b─E ÷q÷b ─G ÷v─H÷g÷X÷m÷X─4÷a÷e÷X÷Xx─
Y ÷G ÷WE ÷N ÷r@÷Y÷X÷m÷X÷H÷b÷e÷X÷Xx─Z ÷G
÷WE ÷N ÷r@÷Y÷X÷p÷XT÷c÷e÷X÷X÷Q ÷G ÷q÷ ■L
÷WE ÷N ÷q÷ ÷X+÷X÷÷h÷c─F ÷e÷X÷X÷P ÷G ■r@
÷Y ÷M ÷e÷X÷Xx─Y ÷D ÷r@÷Y ÷L ÷e÷X÷Xx─Z ■>
÷h÷X÷↑÷X÷t÷d÷3÷X÷h÷X─(÷d─d ÷r@÷Y, ÷f, ÷
g÷X÷m÷X÷<÷d─V ÷e÷X÷X÷P ÷M ÷h, ÷e÷X÷X÷Q÷X
÷c÷XH÷e─g " ";÷X÷i÷X─T÷e─V ÷e÷X÷X÷P, ÷e÷
X÷X÷Q÷X÷c÷X÷h÷f─g "£";÷X÷↑÷Xt÷f÷4÷X÷c÷X÷
0÷f─X ÷e÷X÷X÷P÷X÷b÷X<÷g─H ÷v─4÷a÷X÷e÷X─H
÷g─V ÷r@÷Y, ÷f÷X÷u÷X÷½÷h─< ÷e÷X÷X÷P ■L ■
n, ÷e÷X÷X÷Q ÷M ÷q÷h, ÷f÷X÷↑÷Xh÷h÷!÷X‖c
P464ORACLE 464 Mon20 Jan C4 1714:47
‖F22022p2‖a35test211820/01/86‖i25BASICFA
mstrad CPC 464@÷X÷$÷h÷←÷X÷X÷9÷G÷WC÷Y ─m
PRESS ANY KEY TO INITIATE A NEW PATTERN
SEQUENCE÷X÷l÷X0÷i─I ÷←÷X÷X÷9÷G"" ÷C ■v÷$
÷h÷X÷↑÷X─<÷i─2÷X;÷X÷P÷i÷e÷X÷X÷E÷G÷W÷d(÷W
E÷N÷i)÷Y─m SELECT A RANDOM NUMBER BETWEE
N 0 AND 3÷X6÷X½÷j─I ÷e÷X÷X÷E÷F÷h ÷C ■v÷P
÷i÷Y─m try again if the value exceeds 2÷
X÷c÷X─h÷j─U ÷e÷X÷X÷E÷X+÷X$÷k÷e÷X÷Xi─Y÷G÷
WE÷N÷q÷r÷Y─m select random ink values÷X÷
h÷X─0÷k÷e÷X÷Xi─Z÷G÷WE÷N÷q÷r÷X÷v÷X÷D÷k─I
÷W÷X(÷e÷X÷Xi─Y÷M÷e÷X÷Xi─Z)÷I÷k ÷C ÷v$÷k÷
X÷p÷XP÷l─J ÷f,÷e÷X÷Xi─Y÷Y─J ÷g,÷e÷X÷Xi─Z
÷X÷h÷X─½÷l÷e÷X÷X÷K÷G÷+E÷N÷k÷L÷i÷X÷f÷X÷p÷
m÷÷h ÷r@÷Y,÷M÷qd÷X÷t÷X‖‖÷m─F ÷e÷X÷X÷P÷G
÷M÷r÷@÷← ÷D ÷f ÷> ÷e÷X÷X÷K÷X÷a÷X÷8÷m─V ÷
f,÷f÷X÷o÷XD÷n─< ÷e÷X÷X÷P,÷r,÷Y÷Y─< ÷f,÷r
X÷Z÷X÷b÷X─P÷n─V ÷f,÷f÷X÷p÷X÷d÷o─< ÷M÷e÷X
÷X÷P,÷r,÷Y÷Y─< ÷f,÷rX÷Z÷X÷d÷Xp÷o÷←÷X÷X÷9
÷G÷WC÷X=÷X÷,÷o─I ÷←÷X÷X÷9÷J"" ÷C ÷v─<÷i÷
Y─m interrupt the loop by pressing any k
ey÷X÷c÷X8÷p─X ÷e÷X÷X÷P÷X÷a÷X─D÷p─H ■v÷$÷
h÷X÷X÷X‖c