StarInfo/Campbell/!Manuscrpt/Manuscrpt

Home » Archimedes archive » Acorn User » AU 1997-03 B.adf » Regulars » StarInfo/Campbell/!Manuscrpt/Manuscrpt

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 » Archimedes archive » Acorn User » AU 1997-03 B.adf » Regulars
Filename:	StarInfo/Campbell/!Manuscrpt/Manuscrpt
Read OK:	✔
File size:	0991 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM>Manuscrpt
   20
   30REM Blank Music Manuscript Paper printer for HP printer
   40REM LEN Graham Campbell - September 1996
   50
   60REM e-mail = gdc@argonet.co.uk
   70
   80REM ---------------------------------------------------
   90
  100MODE12
  110ON ERROR PROCerror
  120PROCinit
  130PROCpaper
  140PROCquit
  150END
  160
  170
  180DEFPROCinit
  190at%=@%:@%=&0:hp%=TRUE:wide%=0:medium%=0:narrow%=0
  200staveline$=STRING$(70,"_")
  210PROCblue
  220*IF "<my$printer>" = "hp" THEN
  230hp%=-1
  240ENDIF
  250a$="Music Manuscript Paper Printing Program - graham campbell - � ix.96"
  260PROCtitles(a$,2,TRUE)
  270ENDPROC
  280
  290DEFPROCblue:VDU19,0,4,0,0,0:ENDPROC
  300DEFPROCred:VDU19,0,1,0,0,0:ENDPROC
  310DEFPROCquit:@%=at%:CHAIN"<manuscript$dir>.Manu_Menu":END
  320
  330DEFPROCerror
  340REM ON ERROR OFF:COLOUR7:ON:OSCLI"FX3":VDU3:REPORT:PRINT" at line ";ERL
  350ON ERROR OFF:COLOUR7:ON:OSCLI"FX3":VDU3:OSCLI"DESKTOP"
  360END
  370
  380DEFPROCtitles(t$,line%,ul%)
  390tab%=((79-LENt$)/2):underline$=STRING$(LENt$,"-")
  400PRINTTAB(tab%,line%)t$
  410IF ul% PRINTTAB(tab%,line%+1)underline$
  420ENDPROC
  430
  440DEFPROCpaper
  450COLOUR3
  460a$="This program prints blank music manuscript paper"
  470b$="for all budding composers - and impoverished GCSE pupils!"
  480c$="n.b. It's currently set up for the Hewlett Packard family of printers"
  490PROCtitles(a$,6,FALSE)
  500PROCtitles(b$,8,FALSE)
  510PROCtitles(c$,11,TRUE)
  520COLOUR7
  530INPUTTAB(5,16)"Number of sheets of paper required? : "sheets%
  540IF sheets%=0 VDU7:RUN
  550COLOUR3
  560PRINTTAB(10,20)"Press  W  for Wide spacing of stave-lines  (= 10 staves)"
  570COLOUR6
  580PRINTTAB(10,22)"Press  M  for Medium spacing  (= 12 staves)"
  590COLOUR2
  600PRINTTAB(10,24)"Press  N  for Narrow spacing  (= 16 staves)"
  610COLOUR7
  620PRINTTAB(10,27)"c h o i c e  :  ";
  630SYS"OS_Confirm" TO ch%:CLS
  640
  650CASE ch% OF
  660WHEN ASC"w":wide%=-1
  670WHEN ASC"m":medium%=-1
  680WHEN ASC"n":narrow%=-1
  690OTHERWISE
  700RUN
  710ENDCASE
  720
  730IF hp% AND wide%   w$="9":s%=10
  740IF hp% AND medium% w$="11":s%=12
  750IF hp% AND narrow% w$="15":s%=16
  760
  770PROCprinter_alert
  780
  790OFF
  800FOR count%=1 TO sheets%
  810IF hp% PROCdraftHP:PROCline_spaceHP(w$)
  820a$="Printing for you ..."
  830PROCtitles(a$,15,0)
  840OSCLI"FX3,10":PROCprint:OSCLI"FX3"
  850IF hp% PROCflushHP
  860NEXT count%
  870ON
  880ENDPROC
  890
  900DEFPROCprinter_alert:COLOUR7:PROCred:CLS
  910PRINTTAB(5,15)"Check printer is on line and press a key . . . . . ";
  920k%=GET:CLS:PROCblue
  930ENDPROC
  940
  950DEFPROCprint
  960FOR stave%=1 TO s%
  970  FOR line%=1 TO 5:PRINTTAB(5)staveline$:NEXT
  980  FOR gap%=1 TO 5:PRINT:NEXT
  990NEXT stave%
 1000ENDPROC
 1010
 1020DEFPROCejectHP:VDU2,1,27,1,38,1,108,1,48,1,72,3:ENDPROC
 1030DEFPROCflushHP:VDU2,1,&1B,1,&45,3:ENDPROC
 1040DEFPROCdraftHP:VDU2,1,27,1,40,1,115,1,49,1,81,3:ENDPROC
 1050
 1060DEFPROCline_spaceHP(s$)
 1070LOCAL s1$,s2$
 1080IF LEN(s$)=1 THEN
 1090VDU2,1,27,1,38,1,108,1,ASC(s$),1,68,3
 1100ELSE
 1110s1$=LEFT$(s$,1):s2$=RIGHT$(s$,1)
 1120VDU2,1,27,1,38,1,108,1,ASC(s1$),1,ASC(s2$),1,68,3
 1130ENDIF
 1140ENDPROC


�>Manuscrpt

9� Blank Music Manuscript Paper printer for HP printer
((� � Graham Campbell - September 1996
2
< � e-mail = gdc@argonet.co.uk
F
P9� ---------------------------------------------------
Z
d�12
n� � �error
x	�init
�
�paper
�	�quit
��
�
�
�
��init
�2at%=@%:@%=&0:hp%=�:wide%=0:medium%=0:narrow%=0
�staveline$=�70,"_")
�	�blue
�"*IF "<my$printer>" = "hp" THEN
�
hp%=-1
��
�La$="Music Manuscript Paper Printing Program - graham campbell - � ix.96"
�titles(a$,2,�)
�

"��blue:�19,0,4,0,0,0:�
,��red:�19,0,1,0,0,0:�
61��quit:@%=at%:�"<manuscript$dir>.Manu_Menu":�
@
J��error
TI� ON ERROR OFF:COLOUR7:ON:OSCLI"FX3":VDU3:REPORT:PRINT" at line ";ERL
^#� � �:�7:�:�"FX3":�3:�"DESKTOP"
h�
r
|��titles(t$,line%,ul%)
�*tab%=((79-�t$)/2):underline$=ĩt$,"-")
��tab%,line%)t$
�#� ul% �tab%,line%+1)underline$
��
�
���paper
��3
�9a$="This program prints blank music manuscript paper"
�Bb$="for all budding composers - and impoverished GCSE pupils!"
�Nc$="n.b. It's currently set up for the Hewlett Packard family of printers"
��titles(a$,6,�)
��titles(b$,8,�)
��titles(c$,11,�)
�7
:�5,16)"Number of sheets of paper required? : "sheets%
� sheets%=0 �7:�
&�3
0F�10,20)"Press  W  for Wide spacing of stave-lines  (= 10 staves)"
:�6
D9�10,22)"Press  M  for Medium spacing  (= 12 staves)"
N�2
X9�10,24)"Press  N  for Narrow spacing  (= 16 staves)"
b�7
l�10,27)"c h o i c e  :  ";
vș"OS_Confirm" � ch%:�
�
�Ȏ ch% �
�� �"w":wide%=-1
�� �"m":medium%=-1
�� �"n":narrow%=-1
�
��
��
�
� � hp% � wide%   w$="9":s%=10
�!� hp% � medium% w$="11":s%=12
�!� hp% � narrow% w$="15":s%=16
�
�printer_alert

�
 � count%=1 � sheets%
*$� hp% �draftHP:�line_spaceHP(w$)
4a$="Printing for you ..."
>�titles(a$,15,0)
H�"FX3,10":�print:�"FX3"
R� hp% �flushHP
\� count%
f�
p�
z
���printer_alert:�7:�red:�
�A�5,15)"Check printer is on line and press a key . . . . . ";
�k%=�:�:�blue
��
�
���print
�� stave%=1 � s%
�$  � line%=1 � 5:�5)staveline$:�
�  � gap%=1 � 5:�:�
�� stave%
��
�
�.��ejectHP:�2,1,27,1,38,1,108,1,48,1,72,3:�
 ��flushHP:�2,1,&1B,1,&45,3:�
.��draftHP:�2,1,27,1,40,1,115,1,49,1,81,3:�

$��line_spaceHP(s$)
.
� s1$,s2$
8� �(s$)=1 �
B%�2,1,27,1,38,1,108,1,�(s$),1,68,3
L�
Vs1$=�s$,1):s2$=�s$,1)
`/�2,1,27,1,38,1,108,1,�(s1$),1,�(s2$),1,68,3
j�
t�
�

00000000  0d 00 0a 0f f4 3e 4d 61  6e 75 73 63 72 70 74 0d  |.....>Manuscrpt.|
00000010  00 14 04 0d 00 1e 39 f4  20 42 6c 61 6e 6b 20 4d  |......9. Blank M|
00000020  75 73 69 63 20 4d 61 6e  75 73 63 72 69 70 74 20  |usic Manuscript |
00000030  50 61 70 65 72 20 70 72  69 6e 74 65 72 20 66 6f  |Paper printer fo|
00000040  72 20 48 50 20 70 72 69  6e 74 65 72 0d 00 28 28  |r HP printer..((|
00000050  f4 20 a9 20 47 72 61 68  61 6d 20 43 61 6d 70 62  |. . Graham Campb|
00000060  65 6c 6c 20 2d 20 53 65  70 74 65 6d 62 65 72 20  |ell - September |
00000070  31 39 39 36 0d 00 32 04  0d 00 3c 20 f4 20 65 2d  |1996..2...< . e-|
00000080  6d 61 69 6c 20 3d 20 67  64 63 40 61 72 67 6f 6e  |mail = gdc@argon|
00000090  65 74 2e 63 6f 2e 75 6b  0d 00 46 04 0d 00 50 39  |et.co.uk..F...P9|
000000a0  f4 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |. --------------|
000000b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000000d0  2d 2d 2d 2d 2d 0d 00 5a  04 0d 00 64 07 eb 31 32  |-----..Z...d..12|
000000e0  0d 00 6e 0e ee 20 85 20  f2 65 72 72 6f 72 0d 00  |..n.. . .error..|
000000f0  78 09 f2 69 6e 69 74 0d  00 82 0a f2 70 61 70 65  |x..init.....pape|
00000100  72 0d 00 8c 09 f2 71 75  69 74 0d 00 96 05 e0 0d  |r.....quit......|
00000110  00 a0 04 0d 00 aa 04 0d  00 b4 0a dd f2 69 6e 69  |.............ini|
00000120  74 0d 00 be 32 61 74 25  3d 40 25 3a 40 25 3d 26  |t...2at%=@%:@%=&|
00000130  30 3a 68 70 25 3d b9 3a  77 69 64 65 25 3d 30 3a  |0:hp%=.:wide%=0:|
00000140  6d 65 64 69 75 6d 25 3d  30 3a 6e 61 72 72 6f 77  |medium%=0:narrow|
00000150  25 3d 30 0d 00 c8 17 73  74 61 76 65 6c 69 6e 65  |%=0....staveline|
00000160  24 3d c4 37 30 2c 22 5f  22 29 0d 00 d2 09 f2 62  |$=.70,"_").....b|
00000170  6c 75 65 0d 00 dc 22 2a  49 46 20 22 3c 6d 79 24  |lue..."*IF "<my$|
00000180  70 72 69 6e 74 65 72 3e  22 20 3d 20 22 68 70 22  |printer>" = "hp"|
00000190  20 54 48 45 4e 0d 00 e6  0a 68 70 25 3d 2d 31 0d  | THEN....hp%=-1.|
000001a0  00 f0 05 cd 0d 00 fa 4c  61 24 3d 22 4d 75 73 69  |.......La$="Musi|
000001b0  63 20 4d 61 6e 75 73 63  72 69 70 74 20 50 61 70  |c Manuscript Pap|
000001c0  65 72 20 50 72 69 6e 74  69 6e 67 20 50 72 6f 67  |er Printing Prog|
000001d0  72 61 6d 20 2d 20 67 72  61 68 61 6d 20 63 61 6d  |ram - graham cam|
000001e0  70 62 65 6c 6c 20 2d 20  a9 20 69 78 2e 39 36 22  |pbell - . ix.96"|
000001f0  0d 01 04 13 f2 74 69 74  6c 65 73 28 61 24 2c 32  |.....titles(a$,2|
00000200  2c b9 29 0d 01 0e 05 e1  0d 01 18 04 0d 01 22 1a  |,.)...........".|
00000210  dd f2 62 6c 75 65 3a ef  31 39 2c 30 2c 34 2c 30  |..blue:.19,0,4,0|
00000220  2c 30 2c 30 3a e1 0d 01  2c 19 dd f2 72 65 64 3a  |,0,0:...,...red:|
00000230  ef 31 39 2c 30 2c 31 2c  30 2c 30 2c 30 3a e1 0d  |.19,0,1,0,0,0:..|
00000240  01 36 31 dd f2 71 75 69  74 3a 40 25 3d 61 74 25  |.61..quit:@%=at%|
00000250  3a d7 22 3c 6d 61 6e 75  73 63 72 69 70 74 24 64  |:."<manuscript$d|
00000260  69 72 3e 2e 4d 61 6e 75  5f 4d 65 6e 75 22 3a e0  |ir>.Manu_Menu":.|
00000270  0d 01 40 04 0d 01 4a 0b  dd f2 65 72 72 6f 72 0d  |..@...J...error.|
00000280  01 54 49 f4 20 4f 4e 20  45 52 52 4f 52 20 4f 46  |.TI. ON ERROR OF|
00000290  46 3a 43 4f 4c 4f 55 52  37 3a 4f 4e 3a 4f 53 43  |F:COLOUR7:ON:OSC|
000002a0  4c 49 22 46 58 33 22 3a  56 44 55 33 3a 52 45 50  |LI"FX3":VDU3:REP|
000002b0  4f 52 54 3a 50 52 49 4e  54 22 20 61 74 20 6c 69  |ORT:PRINT" at li|
000002c0  6e 65 20 22 3b 45 52 4c  0d 01 5e 23 ee 20 85 20  |ne ";ERL..^#. . |
000002d0  87 3a fb 37 3a ee 3a ff  22 46 58 33 22 3a ef 33  |.:.7:.:."FX3":.3|
000002e0  3a ff 22 44 45 53 4b 54  4f 50 22 0d 01 68 05 e0  |:."DESKTOP"..h..|
000002f0  0d 01 72 04 0d 01 7c 1a  dd f2 74 69 74 6c 65 73  |..r...|...titles|
00000300  28 74 24 2c 6c 69 6e 65  25 2c 75 6c 25 29 0d 01  |(t$,line%,ul%)..|
00000310  86 2a 74 61 62 25 3d 28  28 37 39 2d a9 74 24 29  |.*tab%=((79-.t$)|
00000320  2f 32 29 3a 75 6e 64 65  72 6c 69 6e 65 24 3d c4  |/2):underline$=.|
00000330  a9 74 24 2c 22 2d 22 29  0d 01 90 13 f1 8a 74 61  |.t$,"-")......ta|
00000340  62 25 2c 6c 69 6e 65 25  29 74 24 0d 01 9a 23 e7  |b%,line%)t$...#.|
00000350  20 75 6c 25 20 f1 8a 74  61 62 25 2c 6c 69 6e 65  | ul% ..tab%,line|
00000360  25 2b 31 29 75 6e 64 65  72 6c 69 6e 65 24 0d 01  |%+1)underline$..|
00000370  a4 05 e1 0d 01 ae 04 0d  01 b8 0b dd f2 70 61 70  |.............pap|
00000380  65 72 0d 01 c2 06 fb 33  0d 01 cc 39 61 24 3d 22  |er.....3...9a$="|
00000390  54 68 69 73 20 70 72 6f  67 72 61 6d 20 70 72 69  |This program pri|
000003a0  6e 74 73 20 62 6c 61 6e  6b 20 6d 75 73 69 63 20  |nts blank music |
000003b0  6d 61 6e 75 73 63 72 69  70 74 20 70 61 70 65 72  |manuscript paper|
000003c0  22 0d 01 d6 42 62 24 3d  22 66 6f 72 20 61 6c 6c  |"...Bb$="for all|
000003d0  20 62 75 64 64 69 6e 67  20 63 6f 6d 70 6f 73 65  | budding compose|
000003e0  72 73 20 2d 20 61 6e 64  20 69 6d 70 6f 76 65 72  |rs - and impover|
000003f0  69 73 68 65 64 20 47 43  53 45 20 70 75 70 69 6c  |ished GCSE pupil|
00000400  73 21 22 0d 01 e0 4e 63  24 3d 22 6e 2e 62 2e 20  |s!"...Nc$="n.b. |
00000410  49 74 27 73 20 63 75 72  72 65 6e 74 6c 79 20 73  |It's currently s|
00000420  65 74 20 75 70 20 66 6f  72 20 74 68 65 20 48 65  |et up for the He|
00000430  77 6c 65 74 74 20 50 61  63 6b 61 72 64 20 66 61  |wlett Packard fa|
00000440  6d 69 6c 79 20 6f 66 20  70 72 69 6e 74 65 72 73  |mily of printers|
00000450  22 0d 01 ea 13 f2 74 69  74 6c 65 73 28 61 24 2c  |".....titles(a$,|
00000460  36 2c a3 29 0d 01 f4 13  f2 74 69 74 6c 65 73 28  |6,.).....titles(|
00000470  62 24 2c 38 2c a3 29 0d  01 fe 14 f2 74 69 74 6c  |b$,8,.).....titl|
00000480  65 73 28 63 24 2c 31 31  2c b9 29 0d 02 08 06 fb  |es(c$,11,.).....|
00000490  37 0d 02 12 3a e8 8a 35  2c 31 36 29 22 4e 75 6d  |7...:..5,16)"Num|
000004a0  62 65 72 20 6f 66 20 73  68 65 65 74 73 20 6f 66  |ber of sheets of|
000004b0  20 70 61 70 65 72 20 72  65 71 75 69 72 65 64 3f  | paper required?|
000004c0  20 3a 20 22 73 68 65 65  74 73 25 0d 02 1c 14 e7  | : "sheets%.....|
000004d0  20 73 68 65 65 74 73 25  3d 30 20 ef 37 3a f9 0d  | sheets%=0 .7:..|
000004e0  02 26 06 fb 33 0d 02 30  46 f1 8a 31 30 2c 32 30  |.&..3..0F..10,20|
000004f0  29 22 50 72 65 73 73 20  20 57 20 20 66 6f 72 20  |)"Press  W  for |
00000500  57 69 64 65 20 73 70 61  63 69 6e 67 20 6f 66 20  |Wide spacing of |
00000510  73 74 61 76 65 2d 6c 69  6e 65 73 20 20 28 3d 20  |stave-lines  (= |
00000520  31 30 20 73 74 61 76 65  73 29 22 0d 02 3a 06 fb  |10 staves)"..:..|
00000530  36 0d 02 44 39 f1 8a 31  30 2c 32 32 29 22 50 72  |6..D9..10,22)"Pr|
00000540  65 73 73 20 20 4d 20 20  66 6f 72 20 4d 65 64 69  |ess  M  for Medi|
00000550  75 6d 20 73 70 61 63 69  6e 67 20 20 28 3d 20 31  |um spacing  (= 1|
00000560  32 20 73 74 61 76 65 73  29 22 0d 02 4e 06 fb 32  |2 staves)"..N..2|
00000570  0d 02 58 39 f1 8a 31 30  2c 32 34 29 22 50 72 65  |..X9..10,24)"Pre|
00000580  73 73 20 20 4e 20 20 66  6f 72 20 4e 61 72 72 6f  |ss  N  for Narro|
00000590  77 20 73 70 61 63 69 6e  67 20 20 28 3d 20 31 36  |w spacing  (= 16|
000005a0  20 73 74 61 76 65 73 29  22 0d 02 62 06 fb 37 0d  | staves)"..b..7.|
000005b0  02 6c 1f f1 8a 31 30 2c  32 37 29 22 63 20 68 20  |.l...10,27)"c h |
000005c0  6f 20 69 20 63 20 65 20  20 3a 20 20 22 3b 0d 02  |o i c e  :  ";..|
000005d0  76 1a c8 99 22 4f 53 5f  43 6f 6e 66 69 72 6d 22  |v..."OS_Confirm"|
000005e0  20 b8 20 63 68 25 3a db  0d 02 80 04 0d 02 8a 0c  | . ch%:.........|
000005f0  c8 8e 20 63 68 25 20 ca  0d 02 94 13 c9 20 97 22  |.. ch% ...... ."|
00000600  77 22 3a 77 69 64 65 25  3d 2d 31 0d 02 9e 15 c9  |w":wide%=-1.....|
00000610  20 97 22 6d 22 3a 6d 65  64 69 75 6d 25 3d 2d 31  | ."m":medium%=-1|
00000620  0d 02 a8 15 c9 20 97 22  6e 22 3a 6e 61 72 72 6f  |..... ."n":narro|
00000630  77 25 3d 2d 31 0d 02 b2  05 7f 0d 02 bc 05 f9 0d  |w%=-1...........|
00000640  02 c6 05 cb 0d 02 d0 04  0d 02 da 20 e7 20 68 70  |........... . hp|
00000650  25 20 80 20 77 69 64 65  25 20 20 20 77 24 3d 22  |% . wide%   w$="|
00000660  39 22 3a 73 25 3d 31 30  0d 02 e4 21 e7 20 68 70  |9":s%=10...!. hp|
00000670  25 20 80 20 6d 65 64 69  75 6d 25 20 77 24 3d 22  |% . medium% w$="|
00000680  31 31 22 3a 73 25 3d 31  32 0d 02 ee 21 e7 20 68  |11":s%=12...!. h|
00000690  70 25 20 80 20 6e 61 72  72 6f 77 25 20 77 24 3d  |p% . narrow% w$=|
000006a0  22 31 35 22 3a 73 25 3d  31 36 0d 02 f8 04 0d 03  |"15":s%=16......|
000006b0  02 12 f2 70 72 69 6e 74  65 72 5f 61 6c 65 72 74  |...printer_alert|
000006c0  0d 03 0c 04 0d 03 16 05  87 0d 03 20 18 e3 20 63  |........... .. c|
000006d0  6f 75 6e 74 25 3d 31 20  b8 20 73 68 65 65 74 73  |ount%=1 . sheets|
000006e0  25 0d 03 2a 24 e7 20 68  70 25 20 f2 64 72 61 66  |%..*$. hp% .draf|
000006f0  74 48 50 3a f2 6c 69 6e  65 5f 73 70 61 63 65 48  |tHP:.line_spaceH|
00000700  50 28 77 24 29 0d 03 34  1d 61 24 3d 22 50 72 69  |P(w$)..4.a$="Pri|
00000710  6e 74 69 6e 67 20 66 6f  72 20 79 6f 75 20 2e 2e  |nting for you ..|
00000720  2e 22 0d 03 3e 14 f2 74  69 74 6c 65 73 28 61 24  |."..>..titles(a$|
00000730  2c 31 35 2c 30 29 0d 03  48 1b ff 22 46 58 33 2c  |,15,0)..H.."FX3,|
00000740  31 30 22 3a f2 70 72 69  6e 74 3a ff 22 46 58 33  |10":.print:."FX3|
00000750  22 0d 03 52 12 e7 20 68  70 25 20 f2 66 6c 75 73  |"..R.. hp% .flus|
00000760  68 48 50 0d 03 5c 0c ed  20 63 6f 75 6e 74 25 0d  |hHP..\.. count%.|
00000770  03 66 05 ee 0d 03 70 05  e1 0d 03 7a 04 0d 03 84  |.f....p....z....|
00000780  1d dd f2 70 72 69 6e 74  65 72 5f 61 6c 65 72 74  |...printer_alert|
00000790  3a fb 37 3a f2 72 65 64  3a db 0d 03 8e 41 f1 8a  |:.7:.red:....A..|
000007a0  35 2c 31 35 29 22 43 68  65 63 6b 20 70 72 69 6e  |5,15)"Check prin|
000007b0  74 65 72 20 69 73 20 6f  6e 20 6c 69 6e 65 20 61  |ter is on line a|
000007c0  6e 64 20 70 72 65 73 73  20 61 20 6b 65 79 20 2e  |nd press a key .|
000007d0  20 2e 20 2e 20 2e 20 2e  20 22 3b 0d 03 98 10 6b  | . . . . ";....k|
000007e0  25 3d a5 3a db 3a f2 62  6c 75 65 0d 03 a2 05 e1  |%=.:.:.blue.....|
000007f0  0d 03 ac 04 0d 03 b6 0b  dd f2 70 72 69 6e 74 0d  |..........print.|
00000800  03 c0 13 e3 20 73 74 61  76 65 25 3d 31 20 b8 20  |.... stave%=1 . |
00000810  73 25 0d 03 ca 24 20 20  e3 20 6c 69 6e 65 25 3d  |s%...$  . line%=|
00000820  31 20 b8 20 35 3a f1 8a  35 29 73 74 61 76 65 6c  |1 . 5:..5)stavel|
00000830  69 6e 65 24 3a ed 0d 03  d4 16 20 20 e3 20 67 61  |ine$:.....  . ga|
00000840  70 25 3d 31 20 b8 20 35  3a f1 3a ed 0d 03 de 0c  |p%=1 . 5:.:.....|
00000850  ed 20 73 74 61 76 65 25  0d 03 e8 05 e1 0d 03 f2  |. stave%........|
00000860  04 0d 03 fc 2e dd f2 65  6a 65 63 74 48 50 3a ef  |.......ejectHP:.|
00000870  32 2c 31 2c 32 37 2c 31  2c 33 38 2c 31 2c 31 30  |2,1,27,1,38,1,10|
00000880  38 2c 31 2c 34 38 2c 31  2c 37 32 2c 33 3a e1 0d  |8,1,48,1,72,3:..|
00000890  04 06 20 dd f2 66 6c 75  73 68 48 50 3a ef 32 2c  |.. ..flushHP:.2,|
000008a0  31 2c 26 31 42 2c 31 2c  26 34 35 2c 33 3a e1 0d  |1,&1B,1,&45,3:..|
000008b0  04 10 2e dd f2 64 72 61  66 74 48 50 3a ef 32 2c  |.....draftHP:.2,|
000008c0  31 2c 32 37 2c 31 2c 34  30 2c 31 2c 31 31 35 2c  |1,27,1,40,1,115,|
000008d0  31 2c 34 39 2c 31 2c 38  31 2c 33 3a e1 0d 04 1a  |1,49,1,81,3:....|
000008e0  04 0d 04 24 16 dd f2 6c  69 6e 65 5f 73 70 61 63  |...$...line_spac|
000008f0  65 48 50 28 73 24 29 0d  04 2e 0d ea 20 73 31 24  |eHP(s$)..... s1$|
00000900  2c 73 32 24 0d 04 38 0f  e7 20 a9 28 73 24 29 3d  |,s2$..8.. .(s$)=|
00000910  31 20 8c 0d 04 42 25 ef  32 2c 31 2c 32 37 2c 31  |1 ...B%.2,1,27,1|
00000920  2c 33 38 2c 31 2c 31 30  38 2c 31 2c 97 28 73 24  |,38,1,108,1,.(s$|
00000930  29 2c 31 2c 36 38 2c 33  0d 04 4c 05 cc 0d 04 56  |),1,68,3..L....V|
00000940  19 73 31 24 3d c0 73 24  2c 31 29 3a 73 32 24 3d  |.s1$=.s$,1):s2$=|
00000950  c2 73 24 2c 31 29 0d 04  60 2f ef 32 2c 31 2c 32  |.s$,1)..`/.2,1,2|
00000960  37 2c 31 2c 33 38 2c 31  2c 31 30 38 2c 31 2c 97  |7,1,38,1,108,1,.|
00000970  28 73 31 24 29 2c 31 2c  97 28 73 32 24 29 2c 31  |(s1$),1,.(s2$),1|
00000980  2c 36 38 2c 33 0d 04 6a  05 cd 0d 04 74 05 e1 0d  |,68,3..j....t...|
00000990  ff                                                |.|
00000991

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .