b.function

Home » Personal collection » Commodore disks » disk30c2_loadstar_131.d64 » b.function

b.function

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 » disk30c2_loadstar_131.d64
Filename:	b.function
Read OK:	✔
File size:	0500 bytes
Load address:	0801
Exec address:	0000

File contents

 63000 DV=PEEK(186):IFDV<8THENDV=8
 63010 DELAY=116:POKE53280,0:POKE53281,0
 63020 PRINT"<clr><text mode><shift disable><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down>";
 63030 FORI=8TO23:PRINT"<white>◤◤◤◤◤◤◤◤◤◤<light gray>◥◥◥◥◥◥◥◥◥◥◤◤◤◤◤◤◤◤◤◤<white>◥◥◥◥◥◥◥◥◥◥";:NEXT
 63040 PRINT"<home>":FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
 63050 POKE214,9:PRINT"<cursor up><cursor down>"TAB(2)"<reverse on><light green>▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁"
 63060 FORI=1TO11:PRINTTAB(2)"<reverse on><cyan>                                    <light gray><rev off>◥":NEXT
 63070 PRINTTAB(2)"<reverse on><green>▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔<rev off><light gray>◥"
 63080 PRINT"<light gray><cursor right><cursor right><cursor right>◤◤◤◤◤◤◤<dark gray>◥◥◥◥◥◥◥◥◥◥◤◤◤◤◤◤◤◤◤◤<light gray>◥◥◥◥◥◥◥◥◥<white>◥<home>"
 63090 POKE214,10:PRINT"<cursor up><cursor down><cyan>";
 63100 FORI=1TO11:READA$
 63110 PRINTSPC(20-LEN(A$)/2)"<reverse on>"A$:A$="":NEXT
 63120 DELAY=DELAY+1:J=PEEK(56320)AND16:GETA$:IF(A$="")ANDJ<>0ANDDEL<116THEN63120
 63130 A$="FUNCTION"
 63140 DATA"🭺 ╭ ╱ 🭸 🭰 ╮ 🭽 ╱   ♠ ╱ ♠ 🭼 🭵 ♥ 🭰","BY 🭰HOMAS 🭸ECHNER"
 63150 DATA"  (🭸)1994 BY ♥OFTDISK 🭾UBLISHING"
 63160 DATA"▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
 63170 DATA"   🭰HIS IS THE COPYRIGHTED WORK OF
 63180 DATA"♥🭽🭺🭰🭷╮♥╯ 🭾╭🭲🭼╮♥🭴╮╱🭱, ╱🭽🭰 INTENDED
 63190 DATA"FOR DISTRIBUTION AS PUBLIC DOMAIN ","OR SHAREWARE.  🭺OR INFORMATION ON
 63200 DATA"🭼🭽♠🭷♥🭰♠🭻 AND 🭼🭽♠🭷♥🭰♠🭻 PRODUCTS,   "
 63210 DATA"CALL ♥🭽🭺🭰🭷╮♥╯ 🭸USTOMER SERVICE AT"
 63220 DATA"1-800-594-3370 OR 1-318-221-8718
 63230 FORI=DVTODV:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN63250
 63240 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN63260
 63250 NEXT:PRINT"<home><white>"A$" NOT FOUND!":POKE186,8:END
 63260 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"<home>";
 63270 PRINT"<home><cursor down><cursor down>P🭽2048,0:P🭽44,8:P🭽43,1:P🭽56,160:P🭽55,0:CLR:L🭽"Q$A$Q$","I
 63280 PRINT"<home><cursor down><cursor down><cursor down><cursor down>R╭:<home>";:POKE631,13:POKE632,145:POKE633,145:POKE634,145
 63290 POKE635,145:POKE636,13:POKE198,6

�DV��(186):�DV�8�DV�8:"�DELAY�116:�53280,0:�53281,0N,��"�";�6��I�8�23:�"��������������������ߩ�������������������";:��@��"":�I�217�242:�I,�(I)�128:��J��214,9:�"�"�2)"�������������������������������������"(	T��I�1�11:��2)"�                                    ���":�\	^���2)"���������������������������������������"�	h��"������������������ߩ��������������������"�	r��214,10:�"��";�	|��I�1�11:�A$�	����20��(A$)�2)""A$:A$�"":�
��DELAY�DELAY�1:J��(56320)�16:�A$:�(A$�"")�J��0�DEL�116�63120&
��A$�"FUNCTION"a
���"� � � � � � � �   � � � ̠� � �","BY �HOMAS �ECHNER"�
���"  (�)1994 BY �OFTDISK �UBLISHING"�
���"�����������������������������������
��"   �HIS IS THE COPYRIGHTED WORK OF��"�������� ����������, ��� INTENDEDP��"FOR DISTRIBUTION AS PUBLIC DOMAIN ","OR SHAREWARE.  �OR INFORMATION ONz�"������ AND ������ PRODUCTS,   "��"CALL �������� �USTOMER SERVICE AT"��"1-800-594-3370 OR 1-318-221-8718����I�DV�DV:�2:�2,I,2:�2:�ST�63250'��15:�15,I,15,"R0:"�A$�"="�A$:�15,ER:�15:�ER�63�63260K��:�""A$" NOT FOUND!":�186,8:�l�Q$��(34):�646,�(53281):�"";�&��"P�2048,0:P�44,8:P�43,1:P�56,160:P�55,0:CLR:L�"Q$A$Q$","I�0��"R�:";:�631,13:�632,145:�633,145:�634,145�:��635,145:�636,13:�198,6

ZHX.dv..(186):.dv.8.dv.8@:H".delay.116:.53280,0:.53281,0@nH,..".NHQQQQQQQQ";@.H6..i.8.23:."E...............................E..........";:.@.H@.."S":.i.217.242:.i,.(i).128:.@.Hj..214,9:.".Q".2)"R....................................."@(It..i.1.11:..2)"R.                                    ...":.@£I....2)"R........................................"@.IH..".]]]......................................E.S"@.IR..214,10:.".Q.";@.I...i.1.11:.a$@.I....20..(a$).2)"R"a$:a$."":.@TJ..delay.delay.1:j..(56320).16:.a$:.(a$."").j..0.del.116.63120@&J..a$."function"@AJ...". . . . . . . .   . . . ... . .","by .homas .echner"@.J..."  (.)1994 by .oftdisk .ublishing"@.J..."..................................@.J..."   .his is the copyrighted work of@CK..."........ .........., ... intended@pK..."for distribution as public domain ","or shareware.  .or information on@ZK..."........ and ........ products,   "@.K..."call ........ .ustomer service at"@.K..."1-800-594-3370 or 1-318-221-8718@.K...i.dv.dv:.2:.2,i,2:.2:.st.63250@'LH..15:.15,i,15,"r0:".a$."=".a$:.15,er:.15:.er.63.63260@kLR..:."SE"a$" not found!":.186,8:.@LL£.q$..(34):.646,.(53281):."S";@.L&.."SQQp.2048,0:p.44,8:p.43,1:p.56,160:p.55,0:clr:l."q$a$q$","i@.L0.."SQQQQr.:S";:.631,13:.632,145:.633,145:.634,145@.L:..635,145:.636,13:.198,6@@@

00000000  1a 08 18 f6 44 56 b2 c2  28 31 38 36 29 3a 8b 44  |....DV..(186):.D|
00000010  56 b3 38 a7 44 56 b2 38  00 3a 08 22 f6 44 45 4c  |V.8.DV.8.:.".DEL|
00000020  41 59 b2 31 31 36 3a 97  35 33 32 38 30 2c 30 3a  |AY.116:.53280,0:|
00000030  97 35 33 32 38 31 2c 30  00 4e 08 2c f6 99 22 93  |.53281,0.N.,..".|
00000040  0e 08 11 11 11 11 11 11  11 11 22 3b 00 8c 08 36  |..........";...6|
00000050  f6 81 49 b2 38 a4 32 33  3a 99 22 05 a9 a9 a9 a9  |..I.8.23:.".....|
00000060  a9 a9 a9 a9 a9 a9 9b df  df df df df df df df df  |................|
00000070  df a9 a9 a9 a9 a9 a9 a9  a9 a9 a9 05 df df df df  |................|
00000080  df df df df df df 22 3b  3a 82 00 ae 08 40 f6 99  |......";:....@..|
00000090  22 13 22 3a 81 49 b2 32  31 37 a4 32 34 32 3a 97  |".":.I.217.242:.|
000000a0  49 2c c2 28 49 29 b0 31  32 38 3a 82 00 ea 08 4a  |I,.(I).128:....J|
000000b0  f6 97 32 31 34 2c 39 3a  99 22 91 11 22 a3 32 29  |..214,9:."..".2)|
000000c0  22 12 99 a4 a4 a4 a4 a4  a4 a4 a4 a4 a4 a4 a4 a4  |"...............|
000000d0  a4 a4 a4 a4 a4 a4 a4 a4  a4 a4 a4 a4 a4 a4 a4 a4  |................|
000000e0  a4 a4 a4 a4 a4 a4 a4 22  00 28 09 54 f6 81 49 b2  |.......".(.T..I.|
000000f0  31 a4 31 31 3a 99 a3 32  29 22 12 9f 20 20 20 20  |1.11:..2)"..    |
00000100  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000120  9b 92 df 22 3a 82 00 5c  09 5e f6 99 a3 32 29 22  |...":..\.^...2)"|
00000130  12 1e a3 a3 a3 a3 a3 a3  a3 a3 a3 a3 a3 a3 a3 a3  |................|
00000140  a3 a3 a3 a3 a3 a3 a3 a3  a3 a3 a3 a3 a3 a3 a3 a3  |................|
00000150  a3 a3 a3 a3 a3 a3 92 9b  df 22 00 91 09 68 f6 99  |........."...h..|
00000160  22 9b 1d 1d 1d a9 a9 a9  a9 a9 a9 a9 97 df df df  |"...............|
00000170  df df df df df df df a9  a9 a9 a9 a9 a9 a9 a9 a9  |................|
00000180  a9 9b df df df df df df  df df df 05 df 13 22 00  |..............".|
00000190  a5 09 72 f6 97 32 31 34  2c 31 30 3a 99 22 91 11  |..r..214,10:."..|
000001a0  9f 22 3b 00 b5 09 7c f6  81 49 b2 31 a4 31 31 3a  |.";...|..I.1.11:|
000001b0  87 41 24 00 d4 09 86 f6  99 a6 32 30 ab c3 28 41  |.A$.......20..(A|
000001c0  24 29 ad 32 29 22 12 22  41 24 3a 41 24 b2 22 22  |$).2)"."A$:A$.""|
000001d0  3a 82 00 14 0a 90 f6 44  45 4c 41 59 b2 44 45 4c  |:......DELAY.DEL|
000001e0  41 59 aa 31 3a 4a b2 c2  28 35 36 33 32 30 29 af  |AY.1:J..(56320).|
000001f0  31 36 3a a1 41 24 3a 8b  28 41 24 b2 22 22 29 af  |16:.A$:.(A$."").|
00000200  4a b3 b1 30 af 44 45 4c  b3 31 31 36 a7 36 33 31  |J..0.DEL.116.631|
00000210  32 30 00 26 0a 9a f6 41  24 b2 22 46 55 4e 43 54  |20.&...A$."FUNCT|
00000220  49 4f 4e 22 00 61 0a a4  f6 83 22 c6 20 d5 20 ce  |ION".a....". . .|
00000230  20 c3 20 d4 20 c9 20 cf  20 ce 20 20 20 c1 20 ce  | . . . . .   . .|
00000240  20 c1 20 cc a0 d9 20 d3  20 d4 22 2c 22 42 59 20  | . ... . .","BY |
00000250  d4 48 4f 4d 41 53 20 c3  45 43 48 4e 45 52 22 00  |.HOMAS .ECHNER".|
00000260  89 0a ae f6 83 22 20 20  28 c3 29 31 39 39 34 20  |....."  (.)1994 |
00000270  42 59 20 d3 4f 46 54 44  49 53 4b 20 d0 55 42 4c  |BY .OFTDISK .UBL|
00000280  49 53 48 49 4e 47 22 00  b2 0a b8 f6 83 22 a3 a3  |ISHING"......"..|
00000290  a3 a3 a3 a3 a3 a3 a3 a3  a3 a3 a3 a3 a3 a3 a3 a3  |................|
*
000002b0  00 db 0a c2 f6 83 22 20  20 20 d4 48 49 53 20 49  |......"   .HIS I|
000002c0  53 20 54 48 45 20 43 4f  50 59 52 49 47 48 54 45  |S THE COPYRIGHTE|
000002d0  44 20 57 4f 52 4b 20 4f  46 00 03 0b cc f6 83 22  |D WORK OF......"|
000002e0  d3 cf c6 d4 c4 c9 d3 cb  20 d0 d5 c2 cc c9 d3 c8  |........ .......|
000002f0  c9 ce c7 2c 20 ce cf d4  20 49 4e 54 45 4e 44 45  |..., ... INTENDE|
00000300  44 00 50 0b d6 f6 83 22  46 4f 52 20 44 49 53 54  |D.P...."FOR DIST|
00000310  52 49 42 55 54 49 4f 4e  20 41 53 20 50 55 42 4c  |RIBUTION AS PUBL|
00000320  49 43 20 44 4f 4d 41 49  4e 20 22 2c 22 4f 52 20  |IC DOMAIN ","OR |
00000330  53 48 41 52 45 57 41 52  45 2e 20 20 c6 4f 52 20  |SHAREWARE.  .OR |
00000340  49 4e 46 4f 52 4d 41 54  49 4f 4e 20 4f 4e 00 7a  |INFORMATION ON.z|
00000350  0b e0 f6 83 22 cc cf c1  c4 d3 d4 c1 d2 20 41 4e  |...."........ AN|
00000360  44 20 cc cf c1 c4 d3 d4  c1 d2 20 50 52 4f 44 55  |D ........ PRODU|
00000370  43 54 53 2c 20 20 20 22  00 a3 0b ea f6 83 22 43  |CTS,   "......"C|
00000380  41 4c 4c 20 d3 cf c6 d4  c4 c9 d3 cb 20 c3 55 53  |ALL ........ .US|
00000390  54 4f 4d 45 52 20 53 45  52 56 49 43 45 20 41 54  |TOMER SERVICE AT|
000003a0  22 00 ca 0b f4 f6 83 22  31 2d 38 30 30 2d 35 39  |"......"1-800-59|
000003b0  34 2d 33 33 37 30 20 4f  52 20 31 2d 33 31 38 2d  |4-3370 OR 1-318-|
000003c0  32 32 31 2d 38 37 31 38  00 ee 0b fe f6 81 49 b2  |221-8718......I.|
000003d0  44 56 a4 44 56 3a a0 32  3a 9f 32 2c 49 2c 32 3a  |DV.DV:.2:.2,I,2:|
000003e0  a0 32 3a 8b 53 54 a7 36  33 32 35 30 00 27 0c 08  |.2:.ST.63250.'..|
000003f0  f7 a0 31 35 3a 9f 31 35  2c 49 2c 31 35 2c 22 52  |..15:.15,I,15,"R|
00000400  30 3a 22 aa 41 24 aa 22  3d 22 aa 41 24 3a 84 31  |0:".A$."=".A$:.1|
00000410  35 2c 45 52 3a a0 31 35  3a 8b 45 52 b2 36 33 a7  |5,ER:.15:.ER.63.|
00000420  36 33 32 36 30 00 4b 0c  12 f7 82 3a 99 22 13 05  |63260.K....:."..|
00000430  22 41 24 22 20 4e 4f 54  20 46 4f 55 4e 44 21 22  |"A$" NOT FOUND!"|
00000440  3a 97 31 38 36 2c 38 3a  80 00 6c 0c 1c f7 51 24  |:.186,8:..l...Q$|
00000450  b2 c7 28 33 34 29 3a 97  36 34 36 2c c2 28 35 33  |..(34):.646,.(53|
00000460  32 38 31 29 3a 99 22 13  22 3b 00 ae 0c 26 f7 99  |281):.".";...&..|
00000470  22 13 11 11 50 cf 32 30  34 38 2c 30 3a 50 cf 34  |"...P.2048,0:P.4|
00000480  34 2c 38 3a 50 cf 34 33  2c 31 3a 50 cf 35 36 2c  |4,8:P.43,1:P.56,|
00000490  31 36 30 3a 50 cf 35 35  2c 30 3a 43 4c 52 3a 4c  |160:P.55,0:CLR:L|
000004a0  cf 22 51 24 41 24 51 24  22 2c 22 49 00 e3 0c 30  |."Q$A$Q$","I...0|
000004b0  f7 99 22 13 11 11 11 11  52 d5 3a 13 22 3b 3a 97  |..".....R.:.";:.|
000004c0  36 33 31 2c 31 33 3a 97  36 33 32 2c 31 34 35 3a  |631,13:.632,145:|
000004d0  97 36 33 33 2c 31 34 35  3a 97 36 33 34 2c 31 34  |.633,145:.634,14|
000004e0  35 00 ff 0c 3a f7 97 36  33 35 2c 31 34 35 3a 97  |5...:..635,145:.|
000004f0  36 33 36 2c 31 33 3a 97  31 39 38 2c 36 00 00 00  |636,13:.198,6...|
00000500

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .