Home » Personal collection » Commodore disks » disk48b_basic_scr.d64 » coo20
coo20
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
Tape/disk: | Home » Personal collection » Commodore disks » disk48b_basic_scr.d64 |
Filename: | coo20 |
Read OK: | ✔ |
File size: | 3604 bytes |
Load address: | 8909 |
Exec address: | 0000 |
File contents
308 . 8224 <stop>FN<stop>NEW 10413 UNTILGOSUB(USING╮((./(USING0DDLOAD8E*8<esc>GOSUB(USINGSTEP( ?ILLEGAL NEXT LINE ADDRESS
�4 �� Nk �� ���������������������������MAPIRQ NES ��������.BYTE _3S .BYTE$ _ �� �ϥ �ϩυ�Ӆ V�HJJJJ LHERE .TEXT "CLICK TO CONTINUE�" m error near $xxxx ��������` * *"* * *#** ** * * * * * * * * * * * * * *!** *** *** *)** *********'*****(**$***%**** *&0�(�(�(�* * * * * � ��� ������� ���(�(f(d(�(�(�(9(�(�(F(a(�(�(�(m(�(5(C((�(�(�((�(&(0(Z(�((\(�(q(�(�(�(�(G(�(�(D(�(-(�(�(�(�(e({(�(�(�(:(�(�((�(7(B(�(W(i(�(�( (`(�(�(�(((�(�(�(x(�(=(�(�(�(�(c(P(/(�(�(�($(�(*((�((�((�(�(�(�(z(�(�(�(�(2(�(�(�(�(�(�(�(�(,(�(](w(R(L(�((h(( (((H(�(�(�(t(�((�(�(�(?(�(b(+(M(#(_(�(X(�(�(j(O("(�(8(I(<((Y(3(y(�(}(�(�(�(^(�(o((l(�((�(((�(U(�((�(J( ([(�(�(�((g((�(E(A( (Q(u(�(N(�(6((�(r(v(!(�(|(�(>(�((�(S(~((n(@(�((�(�(�(()(�(%(s(�(�(�(�(4(�(�(�('(�(�(�(.( (�(�(�(�((�(V(K(p(�(k(T(�((�0�((�(1(�(;(0�`�8��8�(0�8�8��( (��8�0��8�(�(�i( �(��(�m(�(��(]8��(��8�0��(�� ����� ������ ��������0�*�*@* *****L80�8�(�8��(@0٭(��8��(��8�8�8�( �8��(��8�8�(�i( �(��(�i(0߭(��(�(��( �8�)(0�8�(� (��(��8�)(�8�(�i(HJJJJ�8�(� (�)(�8�(�)(��8�8��( �(�0ݠ( �(��D8.�(��E8.�8�8�( �)!Щ(�8ܙ) H0܈�(�(��)Щ(�8��( �(�i( �(��(�i((�(��(�i( �(��(�i((�(��( �8�(��(���(�0۩(�(��(؍(��(D�(��(��(����8��(ܮ(��(��8��0ڑ(��(��(� 82�8��(P�(��(��8��0ؑ(���(��(D�(��8�0נ( � �� ��� ������ŀ(�(-(�(�(�(�* ,Z,R(,(�(�(�(�* ,Z,J(((&(�(�* ,Z,((('(�(�* ,Z,X((+(�(�(�* ,Z,((*(�(�(�* ,Z, (()(�(�(�* ,Z,P((((�(�(�* ,Z,H(,(.(�(�(�* ,Z,(-(/(�(�(�* ,Z,(!("(#('(�* ,Z,@($(%(&(0(�* ,Z,((( (�(�(�* ,�, ()( (�(�(�* ,�,�(+( (�(�(�* ,�,(*( (�(�(�* ,�,� .BYTE $05,$FF,$FF,$FF,$FF� .BYTE 1,%01011010,%01000010� .BYTE $06,$FF,$FF,$FF,$FF� .BYTE 1,%01011010,%00011000( (�(�(�(�0�* ,Z,Z� ������� ���������`�80��8 `0��8 8G�(�8 8G�8 �8 8G�( �8�0��,`�8 8G�(�8 8G�8�8 8G�( �8 �8�8��, 0Э(�( (�(�8� 8� 8I�8 0��8�( (�(�8� 8� 8I�8 0��8�( (�(�8� 8� 8I�8 0��8�(0ʩ( L8ˍ(�(�8� 8� 8I�8�8��( 8I� BRIDGES...0��8� FINALLY ADD THE0�L8�`0��(`�( �8��(�8��(�8�0��( L8��)(�i(0Ø0�`0�L8��8��(�8�8�8 �(�8��(�8 �8 0� 8� 8G�8��(��8��m80� 8��8�(�8��8��8��-(�8�0���8í8!�8��(�8��(�0��8�0��( � NOW GET CURVE TYPE�( (��(�8� 8�0��8��( (@�(�8� 8�0��8%�( ( �(�8� 8�0��8��( (�(�8� 8�0��8#�( (�(�8� 8�0��8"�( (�(�8� 8�0��8��(�(�8� 8�0��8$�(�8� 8��8��(� BINARY BITS...�( � NOW COMPACT INTO�8 �8�8� 8I�8�8% 8I�8�8� 8I�8 �8# 8I�8 �8� 8I�8�8$ 8I�8�8� 8I�8 �8"� SQUARES... 8I� SURROUNDING�8� FIND CONTENTS OF�8!JJJJJ0� 8I�8 �8� CORNERS...0��(� NOW ROUND OFF0�L8��8��(��8�8�8 �(�8��(�8 0��8 8G�8��( 8��8!�8�0��8!0��8�(�8�0��( L8�m(��8�0��( �(�8�)(JJJJJ�8�80��8 �8JJJJJJ�8�8��( 8I�8 0��8 �8JJJJJJ�8�8��( 8I0��8 � WATER TO RIGHT0�L8��8�8��( 8I�8 0��8 �8�8��( 8I�8 �8!�( �8�(� LAND TO RIGHT�8��( 8I�8�8!�(�80��(��8 �8�(�0.@) �0.@)��( �8��DJ0.@! @[�(��(��8��0��(��( �( �(��D8.�(�0/�E8.� ������� ��������L)��)�D83�)�E83�) Ѝ)Ѝ)Щ(��)�G�(�)�G�(�)�G�( �)Щ( �)�1!�(1/`�8 h�0 @*h�9%�(C1&�0 @*L9%�0 @*�9%�( �9&�(@ȑ8 1%�( ��0 @*�(A��8 �( H�0 @*H�8 �9/)(�(��)�D9!�)�E9!�)�1"�(��1+*@***1'* ***@*A*B*�*�1.L9�8 h�0 @*h�h�8 9+�8 �( H��)(JJJ�8�0 @*i( �0 @*�8 m8 m8� 1(�8�L9*h�0 @*i( �0 @*�8 i(��8 H�*8�9(1*�*�(>�9*�(>JJ�8�0 @*�(A�8 �9'�JJJJJ�8�H�0 @*H�8 �9.)(�(��9-�( �)�G1-��(�)Ѝ) Ѝ)Щ(|�) Ѝ)Ѝ)Щ(R�)Ѝ)Щ(؍)Ѝ)Щ(��) Ѝ)Щ(x�)%Щ(�)�)(�)Ѝ)Ѝ)Ѝ)Щ(��)� (�0��)ЀL9�91�9L9�9�()(�9�9�8�m8�)(1�8��8��9�(p�8�)(p�(81�8�L9�9)(�9�9�8�m8�)(1�8�8��9�8�)(pi(�8�9�8�1�9�L9�91 �9L9�9 �9�9�8�m8�)(�1�8�8��9�8�)(i(1�8�L9�9 �()(�9�9�8�m8�)(�1�8��8��9�(�8�)(�(8�8�9�8�1�9�`�9�( �8��9�8��8��91�8��9�9)(��9���8�1�9�1 `�9�(�9 (��8�8�9m8JJJ�(28�8 �9�9)(�8�8�9m811i( �91�( JJ1J�(8�9�8 �8�9 �8��9 1�8�0�*�*�*�*�*�*0�**** *@*�0�`L8�1 91 9�))�0��( L9�))��8��8��0���8�( �8�I(�8��8��8��)�K�)�G�( �)� )й8�J0���8��( �8��8�)(�i(�)Ѝ8�)(�i(�)�h� �Hm8�JJJJ�8�8�i*2 �880�8�)�-)�0�8�L8�)� )й8��8��( �J0���8��( �8��8�)(�i(�) Ѝ8�)(�i(�)�h� �0�H�8�m8�)(�8�8�0�8��8�8�i(��8�i( �( � �88�8�8�13�8�9�8�93�*8�9�812�8�9�8�92�*(8�9�80��8�L8��8��8��8�0�( �8�)Ѝ)Ѝ)Ѝ)Щ( �)�0�(0�L8�1L9� ���� ��������Ҁ*l*s*z*�*D*H*L*Q*V*[*`*f*+*-*0*3*6*9*=*@**** *"*$*&*(************ ********* * * * 0�* ********�*4*x*i*�*�*�*�*X*~*�*�*�*�*�*4*�**a*o*�*�*�*^*K*U*~*�*d*�*�*?*�*8*�*k*F*/*%***?**�*<*�*r* *�**l*�*5*�**�0�* *I*�*�**g*��0u* *****�*0*H*`*�**0�** ****$�0�* **� ����� ��0�`�8�8��8�80�h���8��80��80��(L8��(�8��80��80��( L8��(�8��8�80{H`��h�i(�8��)(0���JJJJ��8�)(Hh��8 �i(JH0z�L8+0� 8� 8q�8�0��8�8�(�8��8�8�0��8�8�(�8��8�8�0��8�8�(�8��8�8�0��8�8�(�8��8�8�0��8�8�(�)�)(��0&@*�8��(�8�8�8�0��8�8�(�)�)(��0&@*�8��(�8�8�8�0��8�8�(�)�)(��8&�8��(�8�8�8��8�80j�( 0�L8+`�( �0 @*i( �0 @*�8 i(0o�8 L8v�8o�(Ȩ0|h�)ԩ(��)Խ8*�8&�)Խ8'�)Խ8)�)Խ8(�8�)Խ8��) Ԭ8�8�H��)(?�8 �8�8 8z�8�80��8��h�h 8{�(8�8H�H��8��(0�8�(�8�80~�80}�(L8~�( �8}�8�8�8* )(@0y�8 L8| 8{�(8 8zH��8y0x�(�L8p�0 @*�0@*�8 �8�8�(�8p�8�8x0w�(�L8p�8�( �0@*�0 @*�8�8 �8w�(��8p�(��8m�(��8n0v�8 0r�( �8�)��(8�8r�(0t�8L8r�8�)�i(�8r�(0s�8L8r�8�)Խ8u��8t�(�8s�(�8rJJJJ�8 0q�(�0 @*i( �0 @*�8 i(0p�8 0nL8o0mL81� ����� �����`X�)ԩ( �8�D8+�8�E8+0lx`X�8�8�8�(�8�)ԩ(�8�8�8�8�8k�0k�) ԩ( �(�0@*�( �0 @*�D8-�8�(8�8 �E8-�8�D8j�8�E8j01x� ����� ��/���0i`�)�K�8i�( �)�G0��)�K�8��( �)�G�( �8��8i�8�)� (�)Ѝ)(Щ(�)'Щ( �)�m8 m8 J)(��)Ѝ)Ѝ)Э8 �)Ѝ) �0h�8�)�K�8h�( �)�G0��)�K�8��( �)�G�(�8��8h02�8�8 �8 �8f�(��8 �8 0d�8 L82�8 �8 �8f�(2�8 �8 0c�8 L82�8�8�8f�(X�8f0g�8 �8 �(�8g�8�80b�80fL82�8�8�8f�(�8f0e�8 �8 �( �8e�(��8�80a�8L8_0^ 8bL8]0\ 8aL8[0Z 8dL8Y0X 8cL8W0V 8dL8U0T 8cL8S0R 8bL8Q0P 8a0`l8�8�8`I()(0_�) ��8^)(0]�) ��8\)(0[�) ��8Z)(0Y�) ��8X)(0W�) ��8V0U�(7�8T0S�(2�8R0Q�(�8P0O�(�8�8O�(�(ō81$�( 9"�9$�8�)�03�(� ���� ��������`�8N�*�8�80N 8?�8�( 82�8�(D�)Щ(�)� (�)Ѝ)#Щ(�)"Щ(�) � ()(��) ݍ)� (�)ݍ)!Ѝ) Щ( �8M�(ܮ(��(��8M�0M�(��(�(��(��8L�(L�(��(��8L�0L�(��( �( �(��(D�(�00�( `�( 0K�(�( (��(�8K)(0J�8�( (@�(�8J)(�8�( 8I�8 J�8�8J0C�8`)(?�(�0I 8H`�( �(�m(�J�8 �(�i( �(��(�m(� )(�8 �(�i( �D8.�(�iE8.0H�8`�(�h 8H0GH`�8F�((�8�8�8�(�i( �(��(�i(�(��(�0F 8C�8�( �8m8�8�80E�8L8D��(�i( �(��(�i((�(�0D�8E�8�(��( �(�0?�8`�8B�*�8�8�8�(�i( �(��(�i((�(��(�0B 8C�8�( �8�8�8m8�(��8�(�08�8� ������ ������0�L84 8��8��*$0@�(ō)� ()(�)Ѝ( �8 8?�8A�()(�(��(��(��8Aȑ(�0A�(��( �8�(�(��((�(��( �8�(�I(�(��8�8�8@�(�8�8@�(�0<�8 �)� ()(�)Ѝ( �8 8?�8=�()(0>�(�L8=�(��(��8=�( �8>�(�ȑ(�0=�(��( �(��((�8�(��( �8�(�I(�(��8�8�8<�8�8<�(409�8 �)� ()(�)Ѝ( �8 88�8:�()(0;�(�L8:�(��(��8:�( �8;�( ȑ(�0:�(��( �8�('�(��(��( �8�(�I(�(��8�8�89�(ح8�89�8 �89�(V05�8�)� ()(�)Ѝ( �8 88�86�()(07�(�L86�(��(��86�( �87�(ȑ(�06�(��( �(��8�(��( �8�(�I(�(��8�8�85�8�85�8 �85�(04�8X�)�D83�)�E83�)Щ( �)Щ(�) ܍)Ѝ)Щ(x 81 80�8 �( �8 �(��8�(���0�@*�0�@*�(��0�@*�0�@*�(@�0�@*�0�@*�8�8�(��0�@*�0�@*�0�@*�8��8� DO NOT DELETE�(�8�(�1@*�1@*�1@*�9��8�8�( 8/�(�(6� ������������) �( ( ( (�( ( ( ( ( ( ( ( ( ( ( ( (�(�( ( ( ( (�(�( (�(�( ((�( (�(�( (?( ( ((�( (?( ( (( ( ((�( ((�( (�(�( (�(�( (�(�( (�(�( ( ( ( ( ( (�( ( ( ( ( ( ( ( ( ( ( ( (@( (�(�( ( (@( (�(�( (�(�( (B(�( (�( ( (7( ( (A(�( (3( ( ((@( (B(�( (@(@( (�(@( (�( (�(�(�( (�( ( ( ( ( ( ( ( ( ( ( ( ( (( ( ( ( ( (( ( (( ( (( ( (( ( (l( ( (F( ( (( ( ((�( (|( ( (~( ( (p( ( (x( ( (@( ( (`( ( ( ( (�( ( ( ( ( ( ( ( ((�( ( ( ( ((�( ((�( ( (�( ((�( (�( ( (�( ( (�(@( (�(�( (�(�( (�(�( (�( ( (�( ( (�( ( (�( ( (�( ( (�( ( �� D-� 4-C = �AP� 2+3 = ��LASS� 0+1 = �OUSE�) @� ������ ���* * * 2061( ((( ( (��) �1)�1)�1) 1)�1)�1) 0�)�0�) 0�)�0�) 0.) �0-) � ��������0+)1� ��� ��������0***0)*�*�0(*�*�0'*!*!)��0&)�0�)�0�)�0�)�0�)�0�)�0�)�0%)�0�)�0#)�0�)�0$)�0�)�0")�0!)�0 )�0)�0)�0)�0)�0)�0)�0)�0)�0)�0)�0)�0)�0)�0)�0)�0)�0)�� 16 BIT0)�0 )�0)�0)�0 )�0 )�0)�0)�0)�0)�0)�0)�0)�0)�0 (&� ������Ӏ 9000-CFFF = �EVEL� 8000-8FFF = ���ŀ 5800-7FFF = �PRITES� 5000-57FF = �HAR�ET� 4C00-4FFF = �AP� 4400-4BFF = �CREEN� 4000-43FF = ���� �PRITES� 2000-3FFF = �USIC� 080D-1FFF = �ODE� 0800-080C = ���À 0400-07FF = �OB �O-ORDS� 02A7-02FF = �ARIABLES� ������ �Ѐ�---------------------------------------�- 22/5/96 - 04/7/96 -�---------------------------------------�- ����Ġ�٠������à���� -�---------------------------------------�- ������� �� ������ -�---------------------------------------�TURBO((((((('''' ' '���������������������������������������������������Ń�����������������Ń��������Ń�����������Ń�������������������Ń��������Ń�����������Ń���������������Ń��������Ń�����������Ń�����������������Ń�����������������Ń���'Ń���������Ń�������������Ń���Ń��������Ń������Ń�������������Ã���Ł���������������������������Ń��Ł������������Ń����Ń�Ń����Ł��������Ł�����������������������������Ń����'ń���Ń����ŃŃŃŃƃ�ƃ�ƃ�ƃ�ƃ����ŃŃŃŃŃŃŃŃŃ�����Ń�����Ń����Ń�����Ń������Ń�����Ń������Ä���ń����������������������������Ä����'Ä��������������Ɓ��������������Ä�������'��Ł�����Ń��������������Ń������Ń������Ń�������������Ń���������Ń�������Ń����������Ń��Ń�������������Ń��������������������������Á����Ł��������Ń�����������Ń���������Ń���������Ń����Ń����Ń����Ń����Ń�ŃÁ����������������Ã���������Ã�����Ń����Ń���Ã����' '��ń������Ń����Ń������Ń������Ń���������������Ń������Á����������������Á�������ń�Ł��������������������������������Á��������������Á����ń�Ń�Ń�������Á�����Ã����������������������Ń������Ń�������Ń���������Ń���������Ł�����Ń�������Ń�Ń��������Ń��������Ł������Ń���������Ń�ƃ����������������������������Ä���������������������������Ń������������Ł��������������������������ń����������������ƃ�������ȃ������ń�����������������'ƃ����Ł�����������Ń���������������Ń�����Ճ����������Ń�����������Ń����������Ń����Ń��Ń�����Ń���������ԏ�Ł�������������������������������������Ń���Ń����Ń����Ń����Ń����Ń����Ń�����Ń�����Ã��������Ł������Ń�����������Á����Ń������Ł�֏���������ŃŃ������Ń������Ń������Ń�������������Ń��������ŁŃ�& $"$"'Ń����Ł��������Ł��������������Ń���������������������������Ä����������Ń�����������������������Ń�����Ł���������������Ń����'Ń����������Ń����Ã��� '`�=��Y�ZNЪOÉD͌;0 �;��:��� ������:�;��������������������:�;����<���<�� �� ����CURREN�V�V�V�TEMPSTOR�VECT�VECT�CLIC�X�Y�XP�HOU�RANMA�XC�YC�REPAD�REST�REST�REST�REST�VOLSTOR�REPSTA�ENVNU�XSTOR�XPO�YPO�SCREMI�XPO�XPO�YPO�T�XPOG�YPOG�GOE�LB�RB�UB�DB�WAVE�WAVE�A�S�PULS�IRQRO�OUTD�BOTMUSI�LEVDAT�CREAT�SCREENU�MSTAR�CONTRO�IR�SCROLC�NOLEF�SOLEF�SOLCH�VERTDIS�NORIGH�SORI�SORCH�NOU�SOU�SOUCH�HORIDIS�NODOW�SODOW�XPLO�CHARGE�YPLOP�YFINS�YPLO�SQUSE�SQUSTAR�SQUGE�NORI�NOLO�SCNCL�COLSE�NEXTLI�CONCHEC�LEFT�LK�RIGHT�RK�UP�UPK�DOWN�DK�UP�UJ�DOWN�DJ�LEFT�LJ�RIGHT�RJ�CJC�LEF�RIGH�U�DOW�NOTF�FI�NOT0�NHGLAS�QTR�MP�CLESOU�MSTO�MAGAI�NLINE�NEXTLIN�SKIPLIN�PROCES�DYNFI�CRES�DECRES�VOLUM�PROLO�NOTSETR�NOREP�PLAYNOT�LENFETC�RESTMAK�FINIRES�V1MV�V3TES�NOTV�NORES�PITCH�PITCH�PITCH�IRQCON�V2DE�V3DE�R1DE�R2DE�R3DE�R4DE�VDEC�VDECE�NOROL�LENGT�R1LES�R34TES�R3LES�R13TES�RESTX�RESTMAD�CRECL�CREALOP�NOCRE�LANDU�LAND�CREFI�NLANDU�FINECR�PUTSQ�NOTNO�CREGLO�CRNEX�RANDO�CRENE�FIRSTC�FCRLO�ULB�URB�DRB�DLB�CORNER�RANTA�RANLO�GOTRA�RANRE�KEYTA�DECC�NOU�SOL�NOUL�N�NOUL�NOU�NOUR�NOR�NODR�NOD�NOD�NODL�NOL�GETCUR�NOC�NOCHC�CURVLO�ENDCU�CURBO�NECUR�CHEC�GETRCUR�CHECK�RERAN�BRIDG�NOVER�WALE�WALEB��NOUB�NORB�BNE�NODB�NOVER�NOVI�NOVIB�NOVIS�NORA�SCROLSC�RADA�RADCLO�RADFI�RADCOL�RADBO�CL0LO�RADDIS�GETSQ�NOSEA�NO8BI�RADBIT�MAPSTA�NM�MAPON�MAPON�ARM�MOB�MOBEN�ARLO�MO�MO�YPOO�IRQTEM�NOCA�MO�NOCAR�NOEX�BIT�BITSE�EXTRA�BITC�MOBEND�ARMYON�ARMYMA�SELSTA�MO�NOCL�IRQT�NOCL�NOSE�NOSELC�NOAMO�MOX�NOXE�MOY�MOT�MOX�MOY�ARDCLO�MOVEO�NOMOVO�A�MON�MOV�XEX�XCHANG�YCHANG�MON�YEX�MONY�M�CHAB�MOP�ARDLO�ARDCLOP�SETMOV�ARMCLO�XCHRI�MONX�YCHU�MONY�MOXD�NOMAPI�MAPIR�MAPTO�NOMA�NOMAP�MAPSC�FINMAP�SPRITE�NOMSU�CURRN�SPRDOW�SPRIOR�SPROR�REDEF�NODRA�MAPTOPE�NOXSU�NOXA�VLEF�VTO�0X�#�`1���jP��� � ���x�@ ���m#��BC� �:� � �#�ǂ� 2 ,� 4�*�@ ege�$ �@ hl�p $ � q�q�p�� �hS !�B � � �� � �(4�� � � �} �p � <���� �@��� �Tu�w�`P �HA5� 2 @�t� � nd �"