0 REM MOORMAN'S ALL PURPOSE BOOT PROGRAM
1 IFPEEK(44)<>8THEN10000
3 POKE788,49
5 F$="[215][207][210][196][211][215][207][210][212][200] [212][197][211][212]
6 N$[178]"STR$AVE (null)OORMAN"
7 FI$[178]"KWOR
8 DEFFNL(X)=X-FNH(X)*256
9 DEFFNH(X)=INT(X/256)
10 DV=PEEK(186):IFDV<8THENDV=8
12 L$="                                        "
13 PRINT"[147]";:POKE53280,0:POKE53281,0:POKE53272,22
14 C$="[152]"
15 F$=LEFT$(C$,(44-LEN(F$))/2)+F$
16 N$=LEFT$(C$,(44-LEN(N$))/2)+N$
20 POKE214,12:PRINT:PRINT"[155]"L$"[152]";
21 FORX=0TO8:PRINTL$;:NEXT:FORX=217TO240:POKEX,PEEK(X)OR128:NEXT
22 PRINT"[151]"L$;:Q$=CHR$(34)
23 POKE214,14:PRINT
24 PRINTF$
25 PRINT"BY
26 [153]N$
27 [153]:[153]"(null)SING (null)ORDS(null)ORTH BY STR$AVE (null)OORMAN"
28 [153]"(C)1999 MID$ & ASC (null)UBLISHING, RIGHT$NC."
29 [153]"ATNLL (null)IGHTS (null)ESERVED"
30 [153]"
40 POKE646,PEEK(53281)
100 PRINT"?CHR$(145);:L[207]"Q$"WORDSWORTH.STL"Q$","DV:QL=1
101 IFFI$<>""THENPRINT"?CHR$(145)CHR$(145);:RUN":QL=QL+1
102 IFFI$<>""THENPRINT"?CHR$(145);:L[207]"Q$FI$Q$","DV:QL=QL+1
103 PRINT"P[207]646,1:RUN";:QL=QL+1
200 READA$,A:IFA=0THEN300
201 SYS57812A$,DV,0:POKE780,0:POKE781,FNL(A):POKE782,FNH(A):SYS65493
300 FORX=1TOQL:POKE630+X,13:NEXT:POKE198,QL:END
1000 REM LIST OF ML LOADS AND ADDRESSES
1999 DATA"",0
9999 END
10000 POKE53280,0:POKE53281,0:POKE646,0:DV=PEEK(186)
10001 PRINT"[147]L[207]"CHR$(34)"B.TELE-WORD"CHR$(34)","DV
10002 PRINT"RUN":POKE198,2:POKE631,13:POKE632,13:POKE44,8:POKE8*256,0:END
19999 END
59999 END
60000 N$="B.KWOR":DV=PEEK(186):IFDV<8THENSTOP
60001 OPEN15,DV,15,"S0:"+N$:CLOSE15:SAVE"0:"+N$,DV