Directory of image this file is from
This file as a plain text file

*20
	CLR
	LIF 0
	JMP 20
	SEGMNT 0
	*20
BEGIN,	CLR
	ESF
	SNS 0
	JMP .+3
	BSE I
	1
	SNS 1
	JMP .+3
	BSE I
	2
	SNS 2
	JMP .+3
	BSE I
	4
	SNS 3
	JMP .+3
	BSE I
	10
	SNS 4
	JMP .+3
	BSE I
	20
	SNS 5
	JMP .+3
	BSE I
	40
	ADA I
	1
	SAE I
SW,	0
	SKP
	JMP DISP
	STA
	SW
	COM
	STC 16
	LDA I
	LDF 0
	STC CF
	LDF 0
	CLR
	SET I 17
	-0
SRCH,	LDH I 17
	STC CHAR
	LDA
	17
	SAE I
	2000
	SKP
	JMP CDF
	LDA I
CHAR,	0
	SAE I
	34	/=\ END OF ALL TEXT
	SKP
	JMP NO
	SAE I
	76	/=> END OF THAT VERSE
	JMP SRCH
	XSK I 16
	JMP SRCH
	LDA
	17
	STC START
	JMP DISP
CDF,	LDA I
	1
	ADM
	.+1
CF,	LDF 0
	SET I 17
	-0
	LDH I 17
	STC CHAR
	JMP CHAR-1
NO,	LDA I
	2000
	STC START
	JMP DISP
DISP,	LDA I
	200
	STC Y
	SET I 17
START,	0
	SET I 1
	200
	LDA I
	-40
	ADM
	Y
A,	LDH I 17
	SAE I
	76	/=> END OF VERSE
	SKP
	JMP BEGIN
	SAE I
	43	/=CR
	SKP
	JMP START+1
	ROL 1
	ADA I
	PATRN-1
	STC 16
	LDA I
Y,	0
	DSC I 16
	DSC I 16
	LDA I
	4
	ADM
	1
	JMP A
/
/
/ADD PATTERNS TABLE HERE
/FIRST WORD PATRN,   4522
/
/
/PATTERN WORDS FOR CHAR DISPL.
PATRN,	4522		/AT SIGN
       	1645
   	4477		/A
	7744
	5177		/B
	2651
	4136		/C
	2241
	4177		/D
	3641
	4577		/E
	4145
	4477		/F
	4044
	4136		/G
	2645
	1077		/H
	7710
	7741		/I
	0041
	4142		/J
	4076
	1077		/K
	4324
	177		/L
	301
	3077		/M
	7730
	3077		/N
	7706
	4177		/O
	7741
	4477		/P
	3044
	4276		/Q
	376
	4477		/R
	3146
	5121		/S
	4651
	4040		/T
	4077
	177		/U
	7701
	176		/V
	7402
	677		/W
	7701
	1463		/X
	6314
	770		/Y
	7007
	4543		/Z
	6151
	7700		/[
	0041
	1020		/\
	0204
	4100		/]
	0077
	2000		/^
	2077
	3410		/BACK ARROW
	1010
	0		/SPACE
	0
	7500		/!
	0
	6060		/"
	0
	3614		/NUMBER SIGN
	1436
	7721		/DOLLAR SIGN
	4677
	1446		/%
	6130
	5166		/&
	0526
	5000		/APOSTROPHY
	60
	0000		/(
	4136
	3641		/)
	0000
	2050		/*
	50
	404		/+
	437
	0500		/,
	0006
	404		/-
	404
	1		/.
	0
	601		//
	4030
	4136		/0
	3641
	2101		/1
	177
	4523		/2
	2151
	4122		/3
	2651
	2414		/4
	477
	5172		/5
	651
	1506		/6
	4225
	4443		/7
	6050
	5126		/8
	2651
	5120		/9
	3651
	4200		/:
	0
	4201		/;
	0
	2410		/<
	0042
	1212		/=
	1212
	4200		/>
	1024
	4020		/?
PATEND,	2055
/END OF PATRNS TABLE
	PMODE
	*2000
TEXT (>VANITY, VANITY,  ALL IS VANITY
AND A STRIVING AFTER THE WIND.
>NOW IS THE TIME
>FOR ALL GOOD MEN
>TO COME TO THE
>AID OF THE PARTY.
>THE QUICK BROWN
>FOX JUMPED OVER
>THE LAZY DOG.
>9
>10
>11
>12
>13
>14
>15
>16
>17
>18
>19
>20>21>22>23>24>25>26>27>28>29
>30>31>32>33>34>35>36>37>38>39
>40>41>42>43>44>45>46>47>48>49
>50>51>52>53>54>55>56>57>58>59
>60>61>62>63>64>/>/(
/
/
/CAN INSERT UP TO 64 VERSES
/CAN FILL UP DATA FIELDS 1-7
/
/