Home » CEEFAX disks » telesoftware15.adl » 28-04-89/Chars
28-04-89/Chars
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 » CEEFAX disks » telesoftware15.adl |
| Filename: | 28-04-89/Chars |
| Read OK: | ✔ |
| File size: | 152A bytes |
| Load address: | FFFF1A00 |
| Exec address: | FFFF8023 |
File contents
10 REM *****************************
20 REM ** User Defined Character ***
30 REM ** Designer Program *********
40 REM ** Version IIa **************
50 REM ** (c) D Mc Guigan 25/7/88 **
60 REM *****************************
70:
80 VDU 6
90 MODE 1:VDU23;8202;0;0;0;0;
100 PROCinit
110 PROCenter_details
120 DIM value%(8*xsize%,8*ysize%)
130 PROCgrid
140 PROCscreen
150 PROCinit_cursor
160 REPEAT
170 REPEAT
180 PROCmove_cursor
190 UNTIL key=32 OR key=13
200 IF key=32:PROCtoggle
210 UNTIL key=13
220 MODE 7:VDU23;8202;0;0;0;0;
230 PROChead("User Defined Characters Designer")
240 PROCtotals
250 PROCdisplay_totals
260 PROCagain
270 IF FNy_n=2:RUN
280:
290 DEFPROCexit
300 CALL!&FFFC
310 ENDPROC
320:
330 DEFPROCinit
340 ONERRORPROCerror
350 *FX 4 1
360 VDU 19,0,4,0,0,0
370 VDU 19,1,0,0,0,0
380 VDU 23,129,127,127,127,127,127,127,127,0
390 PROCtitle("User Defined Characters Designer")
400 F=0
410 ENDPROC
420:
430DEFPROChead(A$)
440 PRINTTAB(0,1);:VDU 132,157
450 PRINTTAB(0,2);:VDU 132,157
460 x%=(37-LEN(A$))DIV 2
470 PRINTTAB(x%,1);:VDU 141,131:PRINT A$
480 PRINTTAB(x%,2);:VDU 141,131:PRINT A$
490 VDU 28,2,24,39,3
500ENDPROC
510:
520 DEFPROCerror
530 VDU 22,7
540 PROChead("User Defined Characters Designer")
550 IF ERR=17:PROCexit
560 REPORT:PRINT" at line ";ERL:END
570 ENDPROC
580:
590 DEFFNy_n
600 REPEAT
610 SOUND3,-10,149,1:SOUND2,-10,169,1:SOUND1,-10,185,1
620 C$=GET$
630 IF C$="y":C$="Y"
640 IF C$="n":C$="N"
650 UNTIL C$="Y" OR C$="N"
660 IF C$="Y":C=2:ELSE C=3
670 =C
680:
690 DEFPROCtitle2
700 VDU 158,155,141,153,32,133,141,143,149,151,141,139,32,131,147,135,153,135,137,157,141,153,155,32,133,141,155,149,145,151,141,153
710 MOVE x+45,y+56
720 VDU 128,154,140,152,32,132,140,142,148,150,140,138,32,130,146,134,152,134,136,156,140,152,154,32,132,140,154,148,144,150,140,152
730 ENDPROC
740:
750 DEFPROCtitle(T$)
760 x=610-(32*LEN(T$)/2)
770 y=850:l=32*LEN(T$)+75:h=120
780 GCOL 0,2:PROCbox(x,y,l,h)
790 VDU 5:GCOL 0,1:MOVE x+45,y+88
800 PROCtitle2
810 GCOL 0,2:x=x+8:y=y+8
820 MOVE x+45,y+88:PROCtitle2
830 VDU 4
840 ENDPROC
850:
860 DEFPROCbox(x,y,l,h)
870 FOR box=1 TO 2
880 MOVE x,y:DRAW x,y+h:DRAW x+l,y+h:DRAW x+l,y:DRAW x,y
890 x=x+12:y=y+12:l=l-24:h=h-24
900 NEXT
910 ENDPROC
920:
930 DEFPROCsquare(x1,y1,x2,y2)
940 MOVE x1,y1:MOVE x2,y1:PLOT 85,x2,y2
950 MOVE x1,y2:PLOT 85,x1,y1
960 ENDPROC
970:
980 DEFPROCenter_details
990 PRINTTAB(3,8);"Please enter number of horizontal Characters (1-3) :";
1000 REPEAT
1010 SOUND3,-10,149,1:SOUND2,-10,169,1:SOUND1,-10,185,1
1020 xsize%=GET-48
1030 UNTIL xsize%>=1 AND xsize%<=3
1040 PRINT STR$(xsize%)
1050 PRINTTAB(3,11);"Please enter number of vertical Characters (1-3) :";
1060 REPEAT
1070 SOUND3,-10,149,1:SOUND2,-10,169,1:SOUND1,-10,185,1
1080 ysize%=GET-48
1090 UNTIL ysize%>=1 AND ysize%<=3
1100 PRINT STR$(ysize%)
1110 ENDPROC
1120:
1130 DEFPROCgrid
1140 x%=580-(256*xsize%/2)
1150 y%=410-(256*ysize%/2)
1160 VDU 28,0,31,39,7,12
1170 ENDPROC
1180:
1190 DEFPROCscreen
1200 x=x%:y=y%
1210 FOR L%=1 TO ysize%
1220 FOR K=1 TO xsize%
1230 FOR X=0 TO 8
1240 MOVE x%+X*32,y%
1250 DRAW x%+X*32,y%+256
1260 MOVE x%,y%+X*32
1270 DRAW x%+256,y%+X*32
1280 NEXT
1290 x%=x%+256
1300 NEXT
1310 y%=y%+256:x%=x
1320 NEXT
1330 x%=x:y%=y:GCOL 0,1
1340 FOR L%=1 TO ysize%
1350 FOR K=1 TO xsize%
1360 FOR X=0 TO 8 STEP 8
1370 MOVE x%+X*32,y%
1380 DRAW x%+X*32,y%+256
1390 MOVE x%,y%+X*32
1400 DRAW x%+256,y%+X*32
1410 NEXT
1420 x%=x%+256
1430 NEXT
1440 y%=y%+256:x%=x
1450 NEXT
1460 VDU 28,0,31,39,6
1470 x%=x:y%=y
1480 FOR X=1 TO xsize%
1490 PRINTTAB(x%/32+4,y%/32);CHR$(X+64)
1500 x%=x%+256
1510 NEXT
1520 x%=x
1530 FOR Y=ysize% TO 1 STEP -1
1540 PRINTTAB(x%/32-1,y%/32+4);STR$(Y)
1550 y%=y%+256
1560 NEXT
1570 MOVE 1120,500
1580 DRAW 1120+32*xsize%+4,500
1590 DRAW 1120+32*xsize%+4,500+32*ysize%+4
1600 DRAW 1120,500+32*ysize%+4
1610 DRAW 1120,500
1620 ENDPROC
1630
1640 DEFPROCinit_cursor
1650 x%=x:y%=y
1660 GCOL 4,3
1670 VDU 5
1680 MOVE x%,y%+28
1690 PRINT"*"
1700 xloc=1:yloc=1
1710 ENDPROC
1720:
1730 DEFPROCmove_cursor
1740 REPEAT
1750 key=GET
1760 UNTIL key>=136 AND key<=139 OR key=32 OR key=13
1770 IF key=13 OR key=32:ENDPROC
1780 IF key=136 AND xloc<>1:MOVE x%,y%+28:PRINT"*":xloc=xloc-1:x%=x%-32:MOVE x%,y%+28:PRINT"*":ENDPROC
1790 IF key=137 AND xloc<>8*xsize%:MOVE x%,y%+28:PRINT"*":xloc=xloc+1:x%=x%+32:MOVE x%,y%+28:PRINT"*":ENDPROC
1800 IF key=138 AND yloc<>1:MOVE x%,y%+28:PRINT"*":yloc=yloc-1:y%=y%-32:MOVE x%,y%+28:PRINT"*":ENDPROC
1810 IF key=139 AND yloc<>8*ysize%:MOVE x%,y%+28:PRINT"*":yloc=yloc+1:y%=y%+32:MOVE x%,y%+28:PRINT"*":ENDPROC
1820 ENDPROC
1830:
1840 DEFPROCtoggle
1850 MOVE x%,y%+28:PRINTCHR$129
1860 PLOT 70,1120+4*xloc,500+4*yloc
1870 value%(xloc,yloc)=(value%(xloc,yloc)+1)MOD 2
1880 ENDPROC
1890:
1900 DEFPROCtotals
1910 PRINTTAB(8,8);"�Calculating Values."
1920 PRINTTAB(10,10);"��Please Wait!"
1930 C=0
1940 FOR X=1 TO xsize%
1950 FOR Y=1 TO 8*ysize%
1960 C=C+8:total=0
1970 FOR K=0 TO 128
1980 V=K+1
1990 total=total+value%(C,Y)*V
2000 K=K*2:C=C-1
2010 NEXT
2020 value%(X,Y)=total
2030 NEXT
2040 C=C+8
2050 NEXT
2060 ENDPROC
2070:
2080 DEFPROCdisplay_totals
2090 VDU 22,7,23;8202;0;0;0;0;
2100 PROChead("User Defined Characters Designer")
2110 PRINTTAB(1,1)"�Send values to printer (Y/N)"
2120 P=FNy_n
2130 IF M%=0:PRINT:PRINTTAB(1);"�Send values to file (Y/N)"
2140 PRINT
2150 IF M%=0:IF FNy_n=2:PROCfile
2160 CLS
2170 VDU P,14
2180 IF F=1:OSCLI"SPOOLON "+F$
2190 PRINT"REM Values For User Defined Characters"
2200 PRINT"REM =================================="
2210 FOR X=1 TO xsize%
2220 FOR Y=1 TO 8*ysize% STEP 8
2230 PRINT:PRINT"REM Character ";CHR$(64+X);
2240 PRINTSTR$((Y+7)DIV 8):PRINT"REM ============":PRINT:PRINT"DATA ";
2250 FOR Z=8 TO 2 STEP -1
2260 PRINT STR$(value%(X,Y+Z-1));",";
2270 NEXT
2280 PRINT STR$(value%(X,Y+Z-1))
2290 NEXT
2300 NEXT
2310 PRINT:PRINT
2320 VDU 3
2330 IF F=1:*SPOOL
2340 PRINT" Press Space To Continue."
2350 REPEAT:UNTIL GET=32
2360 ENDPROC
2370:
2380 DEFPROCagain
2390 CLS
2400 PRINTTAB(1,2)"�Define Another Character (Y/N)"
2410 ENDPROC
2420:
2430 DEFPROCfile
2440 F$="C.DATA"
2450 F=1
2460 ENDPROC
$ � *****************************
$ � ** User Defined Character ***
$ � ** Designer Program *********
($ � ** Version IIa **************
2$ � ** (c) D Mc Guigan 25/7/88 **
<$ � *****************************
F:
P � 6
Z � 1:�23;8202;0;0;0;0;
d
�init
n �enter_details
x � value%(8*xsize%,8*ysize%)
�
�grid
� �screen
� �init_cursor
� �
� �
� �move_cursor
� � key=32 � key=13
� � key=32:�toggle
�
� key=13
� � 7:�23;8202;0;0;0;0;
�. �head("User Defined Characters Designer")
� �totals
� �display_totals
�again
� �y_n=2:�
:
" ��exit
, �!&FFFC
6 �
@:
J ��init
T ��error
^ *FX 4 1
h � 19,0,4,0,0,0
r � 19,1,0,0,0,0
|- � 23,129,127,127,127,127,127,127,127,0
�1 �title("User Defined Characters Designer")
�
F=0
� �
�:
���head(A$)
� �0,1);:� 132,157
� �0,2);:� 132,157
� x%=(37-�(A$))� 2
� �x%,1);:� 141,131:� A$
� �x%,2);:� 141,131:� A$
� � 28,2,24,39,3
��
�:
��error
� 22,7
0 �head("User Defined Characters Designer")
& � �=17:�exit
0 �:�" at line ";�:�
: �
D:
N
ݤy_n
X �
b/ �3,-10,149,1:�2,-10,169,1:�1,-10,185,1
l
C$=�
v � C$="y":C$="Y"
� � C$="n":C$="N"
� � C$="Y" � C$="N"
� � C$="Y":C=2:� C=3
� =C
�:
�
��title2
�� � 158,155,141,153,32,133,141,143,149,151,141,139,32,131,147,135,153,135,137,157,141,153,155,32,133,141,155,149,145,151,141,153
� � x+45,y+56
Ѕ � 128,154,140,152,32,132,140,142,148,150,140,138,32,130,146,134,152,134,136,156,140,152,154,32,132,140,154,148,144,150,140,152
� �
�:
� ��title(T$)
� x=610-(32*�(T$)/2)
! y=850:l=32*�(T$)+75:h=120
� 0,2:�box(x,y,l,h)
� 5:� 0,1:� x+45,y+88
�title2
* � 0,2:x=x+8:y=y+8
4 � x+45,y+88:�title2
>
� 4
H �
R:
\ ��box(x,y,l,h)
f � box=1 � 2
p. � x,y:� x,y+h:� x+l,y+h:� x+l,y:� x,y
z$ x=x+12:y=y+12:l=l-24:h=h-24
� �
� �
�:
� ��square(x1,y1,x2,y2)
�! � x1,y1:� x2,y1:� 85,x2,y2
� � x1,y2:� 85,x1,y1
� �
�:
� ��enter_details
�K �3,8);"Please enter number of horizontal Characters (1-3) :";
� �
�/ �3,-10,149,1:�2,-10,169,1:�1,-10,185,1
� xsize%=�-48
� xsize%>=1 � xsize%<=3
� �(xsize%)
L �3,11);"Please enter number of vertical Characters (1-3) :";
$ �
./ �3,-10,149,1:�2,-10,169,1:�1,-10,185,1
8 ysize%=�-48
B � ysize%>=1 � ysize%<=3
L � �(ysize%)
V �
`:
j ��grid
t x%=580-(256*xsize%/2)
~ y%=410-(256*ysize%/2)
� � 28,0,31,39,7,12
� �
�:
�
��screen
� x=x%:y=y%
� � L%=1 � ysize%
� � K=1 � xsize%
� � X=0 � 8
� � x%+X*32,y%
� � x%+X*32,y%+256
� � x%,y%+X*32
� � x%+256,y%+X*32
�
x%=x%+256
�
y%=y%+256:x%=x
( �
2 x%=x:y%=y:� 0,1
< � L%=1 � ysize%
F � K=1 � xsize%
P � X=0 � 8 � 8
Z � x%+X*32,y%
d � x%+X*32,y%+256
n � x%,y%+X*32
x � x%+256,y%+X*32
� �
� x%=x%+256
�
�
� y%=y%+256:x%=x
� �
� � 28,0,31,39,6
� x%=x:y%=y
� � X=1 � xsize%
�! �x%/32+4,y%/32);�(X+64)
� x%=x%+256
� �
� x%=x
� � Y=ysize% � 1 � -1
�x%/32-1,y%/32+4);�(Y)
y%=y%+256
�
" � 1120,500
, � 1120+32*xsize%+4,500
6) � 1120+32*xsize%+4,500+32*ysize%+4
@ � 1120,500+32*ysize%+4
J � 1120,500
T �
^
h ��init_cursor
r x%=x:y%=y
| � 4,3
�
� 5
� � x%,y%+28
� �"*"
� xloc=1:yloc=1
� �
�:
� ��move_cursor
� �
� key=�
�. � key>=136 � key<=139 � key=32 � key=13
� � key=13 � key=32:�
�Q � key=136 � xloc<>1:� x%,y%+28:�"*":xloc=xloc-1:x%=x%-32:� x%,y%+28:�"*":�
�X � key=137 � xloc<>8*xsize%:� x%,y%+28:�"*":xloc=xloc+1:x%=x%+32:� x%,y%+28:�"*":�
Q � key=138 � yloc<>1:� x%,y%+28:�"*":yloc=yloc-1:y%=y%-32:� x%,y%+28:�"*":�
X � key=139 � yloc<>8*ysize%:� x%,y%+28:�"*":yloc=yloc+1:y%=y%+32:� x%,y%+28:�"*":�
�
&:
0
��toggle
: � x%,y%+28:�129
D" � 70,1120+4*xloc,500+4*yloc
N1 value%(xloc,yloc)=(value%(xloc,yloc)+1)� 2
X �
b:
l
��totals
v$ �8,8);"�Calculating Values."
� �10,10);"��Please Wait!"
�
C=0
� � X=1 � xsize%
� � Y=1 � 8*ysize%
� C=C+8:total=0
� � K=0 � 128
� V=K+1
�& total=total+value%(C,Y)*V
� K=K*2:C=C-1
� �
� value%(X,Y)=total
�
�
� C=C+8
�
�
:
��display_totals
* � 22,7,23;8202;0;0;0;0;
40 �head("User Defined Characters Designer")
>, �1,1)"�Send values to printer (Y/N)"
H
P=�y_n
R1 � M%=0:�:�1);"�Send values to file (Y/N)"
\ �
f � M%=0:� �y_n=2:�file
p �
z
� P,14
� � F=1:�"SPOOLON "+F$
�0 �"REM Values For User Defined Characters"
�0 �"REM =================================="
� � X=1 � xsize%
� � Y=1 � 8*ysize% � 8
�' �:�"REM Character ";�(64+X);
�7 ��((Y+7)� 8):�"REM ============":�:�"DATA ";
� � Z=8 � 2 � -1
�& � �(value%(X,Y+Z-1));",";
� �
� � �(value%(X,Y+Z-1))
�
�
� �
�:�
� 3
� F=1:*SPOOL
$& �" Press Space To Continue."
. �:� �=32
8 �
B:
L ��again
V �
`. �1,2)"�Define Another Character (Y/N)"
j �
t:
~ ��file
� F$="C.DATA"
�
F=1
� �
� 00000000 0d 00 0a 24 20 f4 20 2a 2a 2a 2a 2a 2a 2a 2a 2a |...$ . *********|
00000010 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
00000020 2a 2a 2a 2a 0d 00 14 24 20 f4 20 2a 2a 20 55 73 |****...$ . ** Us|
00000030 65 72 20 44 65 66 69 6e 65 64 20 43 68 61 72 61 |er Defined Chara|
00000040 63 74 65 72 20 2a 2a 2a 0d 00 1e 24 20 f4 20 2a |cter ***...$ . *|
00000050 2a 20 44 65 73 69 67 6e 65 72 20 50 72 6f 67 72 |* Designer Progr|
00000060 61 6d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 00 28 24 |am *********..($|
00000070 20 f4 20 2a 2a 20 56 65 72 73 69 6f 6e 20 49 49 | . ** Version II|
00000080 61 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |a **************|
00000090 0d 00 32 24 20 f4 20 2a 2a 20 28 63 29 20 44 20 |..2$ . ** (c) D |
000000a0 4d 63 20 47 75 69 67 61 6e 20 32 35 2f 37 2f 38 |Mc Guigan 25/7/8|
000000b0 38 20 2a 2a 0d 00 3c 24 20 f4 20 2a 2a 2a 2a 2a |8 **..<$ . *****|
000000c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
000000d0 2a 2a 2a 2a 2a 2a 2a 2a 0d 00 46 05 3a 0d 00 50 |********..F.:..P|
000000e0 08 20 ef 20 36 0d 00 5a 1a 20 eb 20 31 3a ef 32 |. . 6..Z. . 1:.2|
000000f0 33 3b 38 32 30 32 3b 30 3b 30 3b 30 3b 30 3b 0d |3;8202;0;0;0;0;.|
00000100 00 64 0a 20 f2 69 6e 69 74 0d 00 6e 13 20 f2 65 |.d. .init..n. .e|
00000110 6e 74 65 72 5f 64 65 74 61 69 6c 73 0d 00 78 20 |nter_details..x |
00000120 20 de 20 76 61 6c 75 65 25 28 38 2a 78 73 69 7a | . value%(8*xsiz|
00000130 65 25 2c 38 2a 79 73 69 7a 65 25 29 0d 00 82 0a |e%,8*ysize%)....|
00000140 20 f2 67 72 69 64 0d 00 8c 0c 20 f2 73 63 72 65 | .grid.... .scre|
00000150 65 6e 0d 00 96 11 20 f2 69 6e 69 74 5f 63 75 72 |en.... .init_cur|
00000160 73 6f 72 0d 00 a0 06 20 f5 0d 00 aa 08 20 20 20 |sor.... ..... |
00000170 f5 0d 00 b4 15 20 20 20 20 20 f2 6d 6f 76 65 5f |..... .move_|
00000180 63 75 72 73 6f 72 0d 00 be 18 20 20 20 fd 20 6b |cursor.... . k|
00000190 65 79 3d 33 32 20 84 20 6b 65 79 3d 31 33 0d 00 |ey=32 . key=13..|
000001a0 c8 17 20 20 20 e7 20 6b 65 79 3d 33 32 3a f2 74 |.. . key=32:.t|
000001b0 6f 67 67 6c 65 0d 00 d2 0d 20 fd 20 6b 65 79 3d |oggle.... . key=|
000001c0 31 33 0d 00 dc 1a 20 eb 20 37 3a ef 32 33 3b 38 |13.... . 7:.23;8|
000001d0 32 30 32 3b 30 3b 30 3b 30 3b 30 3b 0d 00 e6 2e |202;0;0;0;0;....|
000001e0 20 f2 68 65 61 64 28 22 55 73 65 72 20 44 65 66 | .head("User Def|
000001f0 69 6e 65 64 20 43 68 61 72 61 63 74 65 72 73 20 |ined Characters |
00000200 44 65 73 69 67 6e 65 72 22 29 0d 00 f0 0c 20 f2 |Designer").... .|
00000210 74 6f 74 61 6c 73 0d 00 fa 14 20 f2 64 69 73 70 |totals.... .disp|
00000220 6c 61 79 5f 74 6f 74 61 6c 73 0d 01 04 0b 20 f2 |lay_totals.... .|
00000230 61 67 61 69 6e 0d 01 0e 0f 20 e7 20 a4 79 5f 6e |again.... . .y_n|
00000240 3d 32 3a f9 0d 01 18 05 3a 0d 01 22 0b 20 dd f2 |=2:.....:..". ..|
00000250 65 78 69 74 0d 01 2c 0e 20 20 20 d6 21 26 46 46 |exit..,. .!&FF|
00000260 46 43 0d 01 36 06 20 e1 0d 01 40 05 3a 0d 01 4a |FC..6. ...@.:..J|
00000270 0b 20 dd f2 69 6e 69 74 0d 01 54 0f 20 20 20 ee |. ..init..T. .|
00000280 85 f2 65 72 72 6f 72 0d 01 5e 0e 20 20 20 2a 46 |..error..^. *F|
00000290 58 20 34 20 31 0d 01 68 15 20 20 20 ef 20 31 39 |X 4 1..h. . 19|
000002a0 2c 30 2c 34 2c 30 2c 30 2c 30 0d 01 72 15 20 20 |,0,4,0,0,0..r. |
000002b0 20 ef 20 31 39 2c 31 2c 30 2c 30 2c 30 2c 30 0d | . 19,1,0,0,0,0.|
000002c0 01 7c 2d 20 20 20 ef 20 32 33 2c 31 32 39 2c 31 |.|- . 23,129,1|
000002d0 32 37 2c 31 32 37 2c 31 32 37 2c 31 32 37 2c 31 |27,127,127,127,1|
000002e0 32 37 2c 31 32 37 2c 31 32 37 2c 30 0d 01 86 31 |27,127,127,0...1|
000002f0 20 20 20 f2 74 69 74 6c 65 28 22 55 73 65 72 20 | .title("User |
00000300 44 65 66 69 6e 65 64 20 43 68 61 72 61 63 74 65 |Defined Characte|
00000310 72 73 20 44 65 73 69 67 6e 65 72 22 29 0d 01 90 |rs Designer")...|
00000320 0a 20 20 20 46 3d 30 0d 01 9a 06 20 e1 0d 01 a4 |. F=0.... ....|
00000330 05 3a 0d 01 ae 0e dd f2 68 65 61 64 28 41 24 29 |.:......head(A$)|
00000340 0d 01 b8 16 20 f1 8a 30 2c 31 29 3b 3a ef 20 31 |.... ..0,1);:. 1|
00000350 33 32 2c 31 35 37 0d 01 c2 16 20 f1 8a 30 2c 32 |32,157.... ..0,2|
00000360 29 3b 3a ef 20 31 33 32 2c 31 35 37 0d 01 cc 15 |);:. 132,157....|
00000370 20 78 25 3d 28 33 37 2d a9 28 41 24 29 29 81 20 | x%=(37-.(A$)). |
00000380 32 0d 01 d6 1c 20 f1 8a 78 25 2c 31 29 3b 3a ef |2.... ..x%,1);:.|
00000390 20 31 34 31 2c 31 33 31 3a f1 20 41 24 0d 01 e0 | 141,131:. A$...|
000003a0 1c 20 f1 8a 78 25 2c 32 29 3b 3a ef 20 31 34 31 |. ..x%,2);:. 141|
000003b0 2c 31 33 31 3a f1 20 41 24 0d 01 ea 13 20 ef 20 |,131:. A$.... . |
000003c0 32 38 2c 32 2c 32 34 2c 33 39 2c 33 0d 01 f4 05 |28,2,24,39,3....|
000003d0 e1 0d 01 fe 05 3a 0d 02 08 0c 20 dd f2 65 72 72 |.....:.... ..err|
000003e0 6f 72 0d 02 12 0d 20 20 20 ef 20 32 32 2c 37 0d |or.... . 22,7.|
000003f0 02 1c 30 20 20 20 f2 68 65 61 64 28 22 55 73 65 |..0 .head("Use|
00000400 72 20 44 65 66 69 6e 65 64 20 43 68 61 72 61 63 |r Defined Charac|
00000410 74 65 72 73 20 44 65 73 69 67 6e 65 72 22 29 0d |ters Designer").|
00000420 02 26 13 20 20 20 e7 20 9f 3d 31 37 3a f2 65 78 |.&. . .=17:.ex|
00000430 69 74 0d 02 30 19 20 20 20 f6 3a f1 22 20 61 74 |it..0. .:." at|
00000440 20 6c 69 6e 65 20 22 3b 9e 3a e0 0d 02 3a 06 20 | line ";.:...:. |
00000450 e1 0d 02 44 05 3a 0d 02 4e 0a 20 dd a4 79 5f 6e |...D.:..N. ..y_n|
00000460 0d 02 58 08 20 20 20 f5 0d 02 62 2f 20 20 20 20 |..X. ...b/ |
00000470 20 d4 33 2c 2d 31 30 2c 31 34 39 2c 31 3a d4 32 | .3,-10,149,1:.2|
00000480 2c 2d 31 30 2c 31 36 39 2c 31 3a d4 31 2c 2d 31 |,-10,169,1:.1,-1|
00000490 30 2c 31 38 35 2c 31 0d 02 6c 0d 20 20 20 20 20 |0,185,1..l. |
000004a0 43 24 3d be 0d 02 76 18 20 20 20 20 20 e7 20 43 |C$=...v. . C|
000004b0 24 3d 22 79 22 3a 43 24 3d 22 59 22 0d 02 80 18 |$="y":C$="Y"....|
000004c0 20 20 20 20 20 e7 20 43 24 3d 22 6e 22 3a 43 24 | . C$="n":C$|
000004d0 3d 22 4e 22 0d 02 8a 18 20 20 20 fd 20 43 24 3d |="N".... . C$=|
000004e0 22 59 22 20 84 20 43 24 3d 22 4e 22 0d 02 94 19 |"Y" . C$="N"....|
000004f0 20 20 20 e7 20 43 24 3d 22 59 22 3a 43 3d 32 3a | . C$="Y":C=2:|
00000500 8b 20 43 3d 33 0d 02 9e 09 20 20 20 3d 43 0d 02 |. C=3.... =C..|
00000510 a8 05 3a 0d 02 b2 0d 20 dd f2 74 69 74 6c 65 32 |..:.... ..title2|
00000520 0d 02 bc 85 20 20 20 ef 20 31 35 38 2c 31 35 35 |.... . 158,155|
00000530 2c 31 34 31 2c 31 35 33 2c 33 32 2c 31 33 33 2c |,141,153,32,133,|
00000540 31 34 31 2c 31 34 33 2c 31 34 39 2c 31 35 31 2c |141,143,149,151,|
00000550 31 34 31 2c 31 33 39 2c 33 32 2c 31 33 31 2c 31 |141,139,32,131,1|
00000560 34 37 2c 31 33 35 2c 31 35 33 2c 31 33 35 2c 31 |47,135,153,135,1|
00000570 33 37 2c 31 35 37 2c 31 34 31 2c 31 35 33 2c 31 |37,157,141,153,1|
00000580 35 35 2c 33 32 2c 31 33 33 2c 31 34 31 2c 31 35 |55,32,133,141,15|
00000590 35 2c 31 34 39 2c 31 34 35 2c 31 35 31 2c 31 34 |5,149,145,151,14|
000005a0 31 2c 31 35 33 0d 02 c6 12 20 20 20 ec 20 78 2b |1,153.... . x+|
000005b0 34 35 2c 79 2b 35 36 0d 02 d0 85 20 20 20 ef 20 |45,y+56.... . |
000005c0 31 32 38 2c 31 35 34 2c 31 34 30 2c 31 35 32 2c |128,154,140,152,|
000005d0 33 32 2c 31 33 32 2c 31 34 30 2c 31 34 32 2c 31 |32,132,140,142,1|
000005e0 34 38 2c 31 35 30 2c 31 34 30 2c 31 33 38 2c 33 |48,150,140,138,3|
000005f0 32 2c 31 33 30 2c 31 34 36 2c 31 33 34 2c 31 35 |2,130,146,134,15|
00000600 32 2c 31 33 34 2c 31 33 36 2c 31 35 36 2c 31 34 |2,134,136,156,14|
00000610 30 2c 31 35 32 2c 31 35 34 2c 33 32 2c 31 33 32 |0,152,154,32,132|
00000620 2c 31 34 30 2c 31 35 34 2c 31 34 38 2c 31 34 34 |,140,154,148,144|
00000630 2c 31 35 30 2c 31 34 30 2c 31 35 32 0d 02 da 06 |,150,140,152....|
00000640 20 e1 0d 02 e4 05 3a 0d 02 ee 10 20 dd f2 74 69 | .....:.... ..ti|
00000650 74 6c 65 28 54 24 29 0d 02 f8 19 20 20 20 78 3d |tle(T$).... x=|
00000660 36 31 30 2d 28 33 32 2a a9 28 54 24 29 2f 32 29 |610-(32*.(T$)/2)|
00000670 0d 03 02 21 20 20 20 79 3d 38 35 30 3a 6c 3d 33 |...! y=850:l=3|
00000680 32 2a a9 28 54 24 29 2b 37 35 3a 68 3d 31 32 30 |2*.(T$)+75:h=120|
00000690 20 0d 03 0c 1a 20 20 20 e6 20 30 2c 32 3a f2 62 | .... . 0,2:.b|
000006a0 6f 78 28 78 2c 79 2c 6c 2c 68 29 0d 03 16 1c 20 |ox(x,y,l,h).... |
000006b0 20 20 ef 20 35 3a e6 20 30 2c 31 3a ec 20 78 2b | . 5:. 0,1:. x+|
000006c0 34 35 2c 79 2b 38 38 0d 03 20 0e 20 20 20 f2 74 |45,y+88.. . .t|
000006d0 69 74 6c 65 32 0d 03 2a 18 20 20 20 e6 20 30 2c |itle2..*. . 0,|
000006e0 32 3a 78 3d 78 2b 38 3a 79 3d 79 2b 38 0d 03 34 |2:x=x+8:y=y+8..4|
000006f0 1a 20 20 20 ec 20 78 2b 34 35 2c 79 2b 38 38 3a |. . x+45,y+88:|
00000700 f2 74 69 74 6c 65 32 0d 03 3e 0a 20 20 20 ef 20 |.title2..>. . |
00000710 34 0d 03 48 06 20 e1 0d 03 52 05 3a 0d 03 5c 13 |4..H. ...R.:..\.|
00000720 20 dd f2 62 6f 78 28 78 2c 79 2c 6c 2c 68 29 0d | ..box(x,y,l,h).|
00000730 03 66 12 20 20 20 e3 20 62 6f 78 3d 31 20 b8 20 |.f. . box=1 . |
00000740 32 0d 03 70 2e 20 20 20 20 20 ec 20 78 2c 79 3a |2..p. . x,y:|
00000750 df 20 78 2c 79 2b 68 3a df 20 78 2b 6c 2c 79 2b |. x,y+h:. x+l,y+|
00000760 68 3a df 20 78 2b 6c 2c 79 3a df 20 78 2c 79 0d |h:. x+l,y:. x,y.|
00000770 03 7a 24 20 20 20 20 20 78 3d 78 2b 31 32 3a 79 |.z$ x=x+12:y|
00000780 3d 79 2b 31 32 3a 6c 3d 6c 2d 32 34 3a 68 3d 68 |=y+12:l=l-24:h=h|
00000790 2d 32 34 0d 03 84 08 20 20 20 ed 0d 03 8e 06 20 |-24.... ..... |
000007a0 e1 0d 03 98 05 3a 0d 03 a2 1a 20 dd f2 73 71 75 |.....:.... ..squ|
000007b0 61 72 65 28 78 31 2c 79 31 2c 78 32 2c 79 32 29 |are(x1,y1,x2,y2)|
000007c0 0d 03 ac 21 20 20 20 ec 20 78 31 2c 79 31 3a ec |...! . x1,y1:.|
000007d0 20 78 32 2c 79 31 3a f0 20 38 35 2c 78 32 2c 79 | x2,y1:. 85,x2,y|
000007e0 32 0d 03 b6 19 20 20 20 ec 20 78 31 2c 79 32 3a |2.... . x1,y2:|
000007f0 f0 20 38 35 2c 78 31 2c 79 31 0d 03 c0 06 20 e1 |. 85,x1,y1.... .|
00000800 0d 03 ca 05 3a 0d 03 d4 14 20 dd f2 65 6e 74 65 |....:.... ..ente|
00000810 72 5f 64 65 74 61 69 6c 73 0d 03 de 4b 20 20 20 |r_details...K |
00000820 f1 8a 33 2c 38 29 3b 22 50 6c 65 61 73 65 20 65 |..3,8);"Please e|
00000830 6e 74 65 72 20 6e 75 6d 62 65 72 20 6f 66 20 68 |nter number of h|
00000840 6f 72 69 7a 6f 6e 74 61 6c 20 20 20 20 20 20 20 |orizontal |
00000850 43 68 61 72 61 63 74 65 72 73 20 28 31 2d 33 29 |Characters (1-3)|
00000860 20 3a 22 3b 0d 03 e8 08 20 20 20 f5 0d 03 f2 2f | :";.... ..../|
00000870 20 20 20 20 20 d4 33 2c 2d 31 30 2c 31 34 39 2c | .3,-10,149,|
00000880 31 3a d4 32 2c 2d 31 30 2c 31 36 39 2c 31 3a d4 |1:.2,-10,169,1:.|
00000890 31 2c 2d 31 30 2c 31 38 35 2c 31 0d 03 fc 14 20 |1,-10,185,1.... |
000008a0 20 20 20 20 78 73 69 7a 65 25 3d a5 2d 34 38 0d | xsize%=.-48.|
000008b0 04 06 1e 20 20 20 fd 20 78 73 69 7a 65 25 3e 3d |... . xsize%>=|
000008c0 31 20 80 20 78 73 69 7a 65 25 3c 3d 33 0d 04 10 |1 . xsize%<=3...|
000008d0 12 20 20 20 f1 20 c3 28 78 73 69 7a 65 25 29 0d |. . .(xsize%).|
000008e0 04 1a 4c 20 20 20 f1 8a 33 2c 31 31 29 3b 22 50 |..L ..3,11);"P|
000008f0 6c 65 61 73 65 20 65 6e 74 65 72 20 6e 75 6d 62 |lease enter numb|
00000900 65 72 20 6f 66 20 76 65 72 74 69 63 61 6c 20 20 |er of vertical |
00000910 20 20 20 20 20 20 20 43 68 61 72 61 63 74 65 72 | Character|
00000920 73 20 28 31 2d 33 29 20 3a 22 3b 0d 04 24 08 20 |s (1-3) :";..$. |
00000930 20 20 f5 0d 04 2e 2f 20 20 20 20 20 d4 33 2c 2d | ..../ .3,-|
00000940 31 30 2c 31 34 39 2c 31 3a d4 32 2c 2d 31 30 2c |10,149,1:.2,-10,|
00000950 31 36 39 2c 31 3a d4 31 2c 2d 31 30 2c 31 38 35 |169,1:.1,-10,185|
00000960 2c 31 0d 04 38 14 20 20 20 20 20 79 73 69 7a 65 |,1..8. ysize|
00000970 25 3d a5 2d 34 38 0d 04 42 1e 20 20 20 fd 20 79 |%=.-48..B. . y|
00000980 73 69 7a 65 25 3e 3d 31 20 80 20 79 73 69 7a 65 |size%>=1 . ysize|
00000990 25 3c 3d 33 0d 04 4c 12 20 20 20 f1 20 c3 28 79 |%<=3..L. . .(y|
000009a0 73 69 7a 65 25 29 0d 04 56 06 20 e1 0d 04 60 05 |size%)..V. ...`.|
000009b0 3a 0d 04 6a 0b 20 dd f2 67 72 69 64 0d 04 74 1c |:..j. ..grid..t.|
000009c0 20 20 20 78 25 3d 35 38 30 2d 28 32 35 36 2a 78 | x%=580-(256*x|
000009d0 73 69 7a 65 25 2f 32 29 0d 04 7e 1c 20 20 20 79 |size%/2)..~. y|
000009e0 25 3d 34 31 30 2d 28 32 35 36 2a 79 73 69 7a 65 |%=410-(256*ysize|
000009f0 25 2f 32 29 0d 04 88 18 20 20 20 ef 20 32 38 2c |%/2).... . 28,|
00000a00 30 2c 33 31 2c 33 39 2c 37 2c 31 32 0d 04 92 06 |0,31,39,7,12....|
00000a10 20 e1 0d 04 9c 05 3a 0d 04 a6 0d 20 dd f2 73 63 | .....:.... ..sc|
00000a20 72 65 65 6e 0d 04 b0 10 20 20 20 78 3d 78 25 3a |reen.... x=x%:|
00000a30 79 3d 79 25 0d 04 ba 16 20 20 20 e3 20 4c 25 3d |y=y%.... . L%=|
00000a40 31 20 b8 20 79 73 69 7a 65 25 0d 04 c4 17 20 20 |1 . ysize%.... |
00000a50 20 20 20 e3 20 4b 3d 31 20 b8 20 78 73 69 7a 65 | . K=1 . xsize|
00000a60 25 0d 04 ce 14 20 20 20 20 20 20 20 e3 20 58 3d |%.... . X=|
00000a70 30 20 b8 20 38 0d 04 d8 19 20 20 20 20 20 20 20 |0 . 8.... |
00000a80 20 20 ec 20 78 25 2b 58 2a 33 32 2c 79 25 0d 04 | . x%+X*32,y%..|
00000a90 e2 1d 20 20 20 20 20 20 20 20 20 df 20 78 25 2b |.. . x%+|
00000aa0 58 2a 33 32 2c 79 25 2b 32 35 36 0d 04 ec 19 20 |X*32,y%+256.... |
00000ab0 20 20 20 20 20 20 20 20 ec 20 78 25 2c 79 25 2b | . x%,y%+|
00000ac0 58 2a 33 32 0d 04 f6 1d 20 20 20 20 20 20 20 20 |X*32.... |
00000ad0 20 df 20 78 25 2b 32 35 36 2c 79 25 2b 58 2a 33 | . x%+256,y%+X*3|
00000ae0 32 0d 05 00 0c 20 20 20 20 20 20 20 ed 0d 05 0a |2.... ....|
00000af0 14 20 20 20 20 20 20 20 78 25 3d 78 25 2b 32 35 |. x%=x%+25|
00000b00 36 0d 05 14 0a 20 20 20 20 20 ed 0d 05 1e 17 20 |6.... ..... |
00000b10 20 20 20 20 79 25 3d 79 25 2b 32 35 36 3a 78 25 | y%=y%+256:x%|
00000b20 3d 78 0d 05 28 08 20 20 20 ed 0d 05 32 16 20 20 |=x..(. ...2. |
00000b30 20 78 25 3d 78 3a 79 25 3d 79 3a e6 20 30 2c 31 | x%=x:y%=y:. 0,1|
00000b40 0d 05 3c 16 20 20 20 e3 20 4c 25 3d 31 20 b8 20 |..<. . L%=1 . |
00000b50 79 73 69 7a 65 25 0d 05 46 17 20 20 20 20 20 e3 |ysize%..F. .|
00000b60 20 4b 3d 31 20 b8 20 78 73 69 7a 65 25 0d 05 50 | K=1 . xsize%..P|
00000b70 18 20 20 20 20 20 20 20 e3 20 58 3d 30 20 b8 20 |. . X=0 . |
00000b80 38 20 88 20 38 0d 05 5a 19 20 20 20 20 20 20 20 |8 . 8..Z. |
00000b90 20 20 ec 20 78 25 2b 58 2a 33 32 2c 79 25 0d 05 | . x%+X*32,y%..|
00000ba0 64 1d 20 20 20 20 20 20 20 20 20 df 20 78 25 2b |d. . x%+|
00000bb0 58 2a 33 32 2c 79 25 2b 32 35 36 0d 05 6e 19 20 |X*32,y%+256..n. |
00000bc0 20 20 20 20 20 20 20 20 ec 20 78 25 2c 79 25 2b | . x%,y%+|
00000bd0 58 2a 33 32 0d 05 78 1d 20 20 20 20 20 20 20 20 |X*32..x. |
00000be0 20 df 20 78 25 2b 32 35 36 2c 79 25 2b 58 2a 33 | . x%+256,y%+X*3|
00000bf0 32 0d 05 82 0c 20 20 20 20 20 20 20 ed 0d 05 8c |2.... ....|
00000c00 14 20 20 20 20 20 20 20 78 25 3d 78 25 2b 32 35 |. x%=x%+25|
00000c10 36 0d 05 96 0a 20 20 20 20 20 ed 0d 05 a0 17 20 |6.... ..... |
00000c20 20 20 20 20 79 25 3d 79 25 2b 32 35 36 3a 78 25 | y%=y%+256:x%|
00000c30 3d 78 0d 05 aa 08 20 20 20 ed 0d 05 b4 15 20 20 |=x.... ..... |
00000c40 20 ef 20 32 38 2c 30 2c 33 31 2c 33 39 2c 36 0d | . 28,0,31,39,6.|
00000c50 05 be 10 20 20 20 78 25 3d 78 3a 79 25 3d 79 0d |... x%=x:y%=y.|
00000c60 05 c8 15 20 20 20 e3 20 58 3d 31 20 b8 20 78 73 |... . X=1 . xs|
00000c70 69 7a 65 25 0d 05 d2 21 20 20 20 20 20 f1 8a 78 |ize%...! ..x|
00000c80 25 2f 33 32 2b 34 2c 79 25 2f 33 32 29 3b bd 28 |%/32+4,y%/32);.(|
00000c90 58 2b 36 34 29 0d 05 dc 12 20 20 20 20 20 78 25 |X+64).... x%|
00000ca0 3d 78 25 2b 32 35 36 0d 05 e6 08 20 20 20 ed 0d |=x%+256.... ..|
00000cb0 05 f0 0b 20 20 20 78 25 3d 78 0d 05 fa 1a 20 20 |... x%=x.... |
00000cc0 20 e3 20 59 3d 79 73 69 7a 65 25 20 b8 20 31 20 | . Y=ysize% . 1 |
00000cd0 88 20 2d 31 0d 06 04 20 20 20 20 20 20 f1 8a 78 |. -1... ..x|
00000ce0 25 2f 33 32 2d 31 2c 79 25 2f 33 32 2b 34 29 3b |%/32-1,y%/32+4);|
00000cf0 c3 28 59 29 0d 06 0e 12 20 20 20 20 20 79 25 3d |.(Y).... y%=|
00000d00 79 25 2b 32 35 36 0d 06 18 08 20 20 20 ed 0d 06 |y%+256.... ...|
00000d10 22 11 20 20 20 ec 20 31 31 32 30 2c 35 30 30 0d |". . 1120,500.|
00000d20 06 2c 1d 20 20 20 df 20 31 31 32 30 2b 33 32 2a |.,. . 1120+32*|
00000d30 78 73 69 7a 65 25 2b 34 2c 35 30 30 0d 06 36 29 |xsize%+4,500..6)|
00000d40 20 20 20 df 20 31 31 32 30 2b 33 32 2a 78 73 69 | . 1120+32*xsi|
00000d50 7a 65 25 2b 34 2c 35 30 30 2b 33 32 2a 79 73 69 |ze%+4,500+32*ysi|
00000d60 7a 65 25 2b 34 0d 06 40 1d 20 20 20 df 20 31 31 |ze%+4..@. . 11|
00000d70 32 30 2c 35 30 30 2b 33 32 2a 79 73 69 7a 65 25 |20,500+32*ysize%|
00000d80 2b 34 0d 06 4a 11 20 20 20 df 20 31 31 32 30 2c |+4..J. . 1120,|
00000d90 35 30 30 0d 06 54 06 20 e1 0d 06 5e 05 20 0d 06 |500..T. ...^. ..|
00000da0 68 12 20 dd f2 69 6e 69 74 5f 63 75 72 73 6f 72 |h. ..init_cursor|
00000db0 0d 06 72 10 20 20 20 78 25 3d 78 3a 79 25 3d 79 |..r. x%=x:y%=y|
00000dc0 0d 06 7c 0c 20 20 20 e6 20 34 2c 33 0d 06 86 0a |..|. . 4,3....|
00000dd0 20 20 20 ef 20 35 0d 06 90 11 20 20 20 ec 20 78 | . 5.... . x|
00000de0 25 2c 79 25 2b 32 38 0d 06 9a 0b 20 20 20 f1 22 |%,y%+28.... ."|
00000df0 2a 22 0d 06 a4 14 20 20 20 78 6c 6f 63 3d 31 3a |*".... xloc=1:|
00000e00 79 6c 6f 63 3d 31 0d 06 ae 06 20 e1 0d 06 b8 05 |yloc=1.... .....|
00000e10 3a 0d 06 c2 12 20 dd f2 6d 6f 76 65 5f 63 75 72 |:.... ..move_cur|
00000e20 73 6f 72 0d 06 cc 08 20 20 20 f5 0d 06 d6 0e 20 |sor.... ..... |
00000e30 20 20 20 20 6b 65 79 3d a5 0d 06 e0 2e 20 20 20 | key=..... |
00000e40 fd 20 6b 65 79 3e 3d 31 33 36 20 80 20 6b 65 79 |. key>=136 . key|
00000e50 3c 3d 31 33 39 20 84 20 6b 65 79 3d 33 32 20 84 |<=139 . key=32 .|
00000e60 20 6b 65 79 3d 31 33 0d 06 ea 1a 20 20 20 e7 20 | key=13.... . |
00000e70 6b 65 79 3d 31 33 20 84 20 6b 65 79 3d 33 32 3a |key=13 . key=32:|
00000e80 e1 0d 06 f4 51 20 20 20 e7 20 6b 65 79 3d 31 33 |....Q . key=13|
00000e90 36 20 80 20 78 6c 6f 63 3c 3e 31 3a ec 20 78 25 |6 . xloc<>1:. x%|
00000ea0 2c 79 25 2b 32 38 3a f1 22 2a 22 3a 78 6c 6f 63 |,y%+28:."*":xloc|
00000eb0 3d 78 6c 6f 63 2d 31 3a 78 25 3d 78 25 2d 33 32 |=xloc-1:x%=x%-32|
00000ec0 3a ec 20 78 25 2c 79 25 2b 32 38 3a f1 22 2a 22 |:. x%,y%+28:."*"|
00000ed0 3a e1 0d 06 fe 58 20 20 20 e7 20 6b 65 79 3d 31 |:....X . key=1|
00000ee0 33 37 20 80 20 78 6c 6f 63 3c 3e 38 2a 78 73 69 |37 . xloc<>8*xsi|
00000ef0 7a 65 25 3a ec 20 78 25 2c 79 25 2b 32 38 3a f1 |ze%:. x%,y%+28:.|
00000f00 22 2a 22 3a 78 6c 6f 63 3d 78 6c 6f 63 2b 31 3a |"*":xloc=xloc+1:|
00000f10 78 25 3d 78 25 2b 33 32 3a ec 20 78 25 2c 79 25 |x%=x%+32:. x%,y%|
00000f20 2b 32 38 3a f1 22 2a 22 3a e1 0d 07 08 51 20 20 |+28:."*":....Q |
00000f30 20 e7 20 6b 65 79 3d 31 33 38 20 80 20 79 6c 6f | . key=138 . ylo|
00000f40 63 3c 3e 31 3a ec 20 78 25 2c 79 25 2b 32 38 3a |c<>1:. x%,y%+28:|
00000f50 f1 22 2a 22 3a 79 6c 6f 63 3d 79 6c 6f 63 2d 31 |."*":yloc=yloc-1|
00000f60 3a 79 25 3d 79 25 2d 33 32 3a ec 20 78 25 2c 79 |:y%=y%-32:. x%,y|
00000f70 25 2b 32 38 3a f1 22 2a 22 3a e1 0d 07 12 58 20 |%+28:."*":....X |
00000f80 20 20 e7 20 6b 65 79 3d 31 33 39 20 80 20 79 6c | . key=139 . yl|
00000f90 6f 63 3c 3e 38 2a 79 73 69 7a 65 25 3a ec 20 78 |oc<>8*ysize%:. x|
00000fa0 25 2c 79 25 2b 32 38 3a f1 22 2a 22 3a 79 6c 6f |%,y%+28:."*":ylo|
00000fb0 63 3d 79 6c 6f 63 2b 31 3a 79 25 3d 79 25 2b 33 |c=yloc+1:y%=y%+3|
00000fc0 32 3a ec 20 78 25 2c 79 25 2b 32 38 3a f1 22 2a |2:. x%,y%+28:."*|
00000fd0 22 3a e1 0d 07 1c 06 20 e1 0d 07 26 05 3a 0d 07 |":..... ...&.:..|
00000fe0 30 0d 20 dd f2 74 6f 67 67 6c 65 0d 07 3a 17 20 |0. ..toggle..:. |
00000ff0 20 20 ec 20 78 25 2c 79 25 2b 32 38 3a f1 bd 31 | . x%,y%+28:..1|
00001000 32 39 0d 07 44 22 20 20 20 f0 20 37 30 2c 31 31 |29..D" . 70,11|
00001010 32 30 2b 34 2a 78 6c 6f 63 2c 35 30 30 2b 34 2a |20+4*xloc,500+4*|
00001020 79 6c 6f 63 0d 07 4e 31 20 20 20 76 61 6c 75 65 |yloc..N1 value|
00001030 25 28 78 6c 6f 63 2c 79 6c 6f 63 29 3d 28 76 61 |%(xloc,yloc)=(va|
00001040 6c 75 65 25 28 78 6c 6f 63 2c 79 6c 6f 63 29 2b |lue%(xloc,yloc)+|
00001050 31 29 83 20 32 0d 07 58 06 20 e1 0d 07 62 05 3a |1). 2..X. ...b.:|
00001060 0d 07 6c 0d 20 dd f2 74 6f 74 61 6c 73 0d 07 76 |..l. ..totals..v|
00001070 24 20 20 20 f1 8a 38 2c 38 29 3b 22 83 43 61 6c |$ ..8,8);".Cal|
00001080 63 75 6c 61 74 69 6e 67 20 56 61 6c 75 65 73 2e |culating Values.|
00001090 22 0d 07 80 20 20 20 20 f1 8a 31 30 2c 31 30 29 |"... ..10,10)|
000010a0 3b 22 81 88 50 6c 65 61 73 65 20 57 61 69 74 21 |;"..Please Wait!|
000010b0 22 0d 07 8a 0a 20 20 20 43 3d 30 0d 07 94 15 20 |".... C=0.... |
000010c0 20 20 e3 20 58 3d 31 20 b8 20 78 73 69 7a 65 25 | . X=1 . xsize%|
000010d0 0d 07 9e 19 20 20 20 20 20 e3 20 59 3d 31 20 b8 |.... . Y=1 .|
000010e0 20 38 2a 79 73 69 7a 65 25 0d 07 a8 18 20 20 20 | 8*ysize%.... |
000010f0 20 20 20 20 43 3d 43 2b 38 3a 74 6f 74 61 6c 3d | C=C+8:total=|
00001100 30 0d 07 b2 16 20 20 20 20 20 20 20 e3 20 4b 3d |0.... . K=|
00001110 30 20 b8 20 31 32 38 0d 07 bc 12 20 20 20 20 20 |0 . 128.... |
00001120 20 20 20 20 56 3d 4b 2b 31 0d 07 c6 26 20 20 20 | V=K+1...& |
00001130 20 20 20 20 20 20 74 6f 74 61 6c 3d 74 6f 74 61 | total=tota|
00001140 6c 2b 76 61 6c 75 65 25 28 43 2c 59 29 2a 56 0d |l+value%(C,Y)*V.|
00001150 07 d0 18 20 20 20 20 20 20 20 20 20 4b 3d 4b 2a |... K=K*|
00001160 32 3a 43 3d 43 2d 31 0d 07 da 0c 20 20 20 20 20 |2:C=C-1.... |
00001170 20 20 ed 0d 07 e4 1c 20 20 20 20 20 20 20 76 61 | ..... va|
00001180 6c 75 65 25 28 58 2c 59 29 3d 74 6f 74 61 6c 0d |lue%(X,Y)=total.|
00001190 07 ee 0a 20 20 20 20 20 ed 0d 07 f8 0e 20 20 20 |... ..... |
000011a0 20 20 43 3d 43 2b 38 0d 08 02 08 20 20 20 ed 0d | C=C+8.... ..|
000011b0 08 0c 06 20 e1 0d 08 16 05 3a 0d 08 20 15 20 dd |... .....:.. . .|
000011c0 f2 64 69 73 70 6c 61 79 5f 74 6f 74 61 6c 73 0d |.display_totals.|
000011d0 08 2a 1e 20 20 20 ef 20 32 32 2c 37 2c 32 33 3b |.*. . 22,7,23;|
000011e0 38 32 30 32 3b 30 3b 30 3b 30 3b 30 3b 0d 08 34 |8202;0;0;0;0;..4|
000011f0 30 20 20 20 f2 68 65 61 64 28 22 55 73 65 72 20 |0 .head("User |
00001200 44 65 66 69 6e 65 64 20 43 68 61 72 61 63 74 65 |Defined Characte|
00001210 72 73 20 44 65 73 69 67 6e 65 72 22 29 0d 08 3e |rs Designer")..>|
00001220 2c 20 20 20 f1 8a 31 2c 31 29 22 83 53 65 6e 64 |, ..1,1)".Send|
00001230 20 76 61 6c 75 65 73 20 74 6f 20 70 72 69 6e 74 | values to print|
00001240 65 72 20 28 59 2f 4e 29 22 0d 08 48 0d 20 20 20 |er (Y/N)"..H. |
00001250 50 3d a4 79 5f 6e 0d 08 52 31 20 20 20 e7 20 4d |P=.y_n..R1 . M|
00001260 25 3d 30 3a f1 3a f1 8a 31 29 3b 22 83 53 65 6e |%=0:.:..1);".Sen|
00001270 64 20 76 61 6c 75 65 73 20 74 6f 20 66 69 6c 65 |d values to file|
00001280 20 28 59 2f 4e 29 22 0d 08 5c 08 20 20 20 f1 0d | (Y/N)"..\. ..|
00001290 08 66 1c 20 20 20 e7 20 4d 25 3d 30 3a e7 20 a4 |.f. . M%=0:. .|
000012a0 79 5f 6e 3d 32 3a f2 66 69 6c 65 0d 08 70 08 20 |y_n=2:.file..p. |
000012b0 20 20 db 0d 08 7a 0d 20 20 20 ef 20 50 2c 31 34 | ...z. . P,14|
000012c0 0d 08 84 1b 20 20 20 e7 20 46 3d 31 3a ff 22 53 |.... . F=1:."S|
000012d0 50 4f 4f 4c 4f 4e 20 22 2b 46 24 0d 08 8e 30 20 |POOLON "+F$...0 |
000012e0 20 20 f1 22 52 45 4d 20 56 61 6c 75 65 73 20 46 | ."REM Values F|
000012f0 6f 72 20 55 73 65 72 20 44 65 66 69 6e 65 64 20 |or User Defined |
00001300 43 68 61 72 61 63 74 65 72 73 22 0d 08 98 30 20 |Characters"...0 |
00001310 20 20 f1 22 52 45 4d 20 3d 3d 3d 3d 3d 3d 3d 3d | ."REM ========|
00001320 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
00001330 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 22 0d 08 a2 15 20 |==========".... |
00001340 20 20 e3 20 58 3d 31 20 b8 20 78 73 69 7a 65 25 | . X=1 . xsize%|
00001350 0d 08 ac 1d 20 20 20 20 20 e3 20 59 3d 31 20 b8 |.... . Y=1 .|
00001360 20 38 2a 79 73 69 7a 65 25 20 88 20 38 0d 08 b6 | 8*ysize% . 8...|
00001370 27 20 20 20 20 20 20 20 f1 3a f1 22 52 45 4d 20 |' .:."REM |
00001380 43 68 61 72 61 63 74 65 72 20 22 3b bd 28 36 34 |Character ";.(64|
00001390 2b 58 29 3b 0d 08 c0 37 20 20 20 20 20 20 20 f1 |+X);...7 .|
000013a0 c3 28 28 59 2b 37 29 81 20 38 29 3a f1 22 52 45 |.((Y+7). 8):."RE|
000013b0 4d 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 22 3a |M ============":|
000013c0 f1 3a f1 22 44 41 54 41 20 22 3b 0d 08 ca 19 20 |.:."DATA ";.... |
000013d0 20 20 20 20 20 20 e3 20 5a 3d 38 20 b8 20 32 20 | . Z=8 . 2 |
000013e0 88 20 2d 31 0d 08 d4 26 20 20 20 20 20 20 20 20 |. -1...& |
000013f0 20 f1 20 c3 28 76 61 6c 75 65 25 28 58 2c 59 2b | . .(value%(X,Y+|
00001400 5a 2d 31 29 29 3b 22 2c 22 3b 0d 08 de 0c 20 20 |Z-1));",";.... |
00001410 20 20 20 20 20 ed 0d 08 e8 1f 20 20 20 20 20 20 | ..... |
00001420 20 f1 20 c3 28 76 61 6c 75 65 25 28 58 2c 59 2b | . .(value%(X,Y+|
00001430 5a 2d 31 29 29 0d 08 f2 0a 20 20 20 20 20 ed 0d |Z-1)).... ..|
00001440 08 fc 08 20 20 20 ed 0d 09 06 0a 20 20 20 f1 3a |... ..... .:|
00001450 f1 0d 09 10 0a 20 20 20 ef 20 33 0d 09 1a 13 20 |..... . 3.... |
00001460 20 20 e7 20 46 3d 31 3a 2a 53 50 4f 4f 4c 0d 09 | . F=1:*SPOOL..|
00001470 24 26 20 20 20 f1 22 20 20 20 20 50 72 65 73 73 |$& ." Press|
00001480 20 53 70 61 63 65 20 54 6f 20 43 6f 6e 74 69 6e | Space To Contin|
00001490 75 65 2e 22 0d 09 2e 0f 20 20 20 f5 3a fd 20 a5 |ue.".... .:. .|
000014a0 3d 33 32 0d 09 38 06 20 e1 0d 09 42 05 3a 0d 09 |=32..8. ...B.:..|
000014b0 4c 0c 20 dd f2 61 67 61 69 6e 0d 09 56 08 20 20 |L. ..again..V. |
000014c0 20 db 0d 09 60 2e 20 20 20 f1 8a 31 2c 32 29 22 | ...`. ..1,2)"|
000014d0 83 44 65 66 69 6e 65 20 41 6e 6f 74 68 65 72 20 |.Define Another |
000014e0 43 68 61 72 61 63 74 65 72 20 28 59 2f 4e 29 22 |Character (Y/N)"|
000014f0 0d 09 6a 06 20 e1 0d 09 74 05 3a 0d 09 7e 0b 20 |..j. ...t.:..~. |
00001500 dd f2 66 69 6c 65 0d 09 88 12 20 20 20 46 24 3d |..file.... F$=|
00001510 22 43 2e 44 41 54 41 22 0d 09 92 0a 20 20 20 46 |"C.DATA".... F|
00001520 3d 31 0d 09 9c 06 20 e1 0d ff |=1.... ...|
0000152a 
28-04-89/Chars.m0
28-04-89/Chars.m1
28-04-89/Chars.m2
28-04-89/Chars.m4
28-04-89/Chars.m5
.