10 D=PEEK(186):IFD<8THENPOKE186,8:GOTO10
15 POKE829,1:READT$
16 GOSUB41000:OPEN15,D,15,"R0:B."+T$+"=B."+T$:INPUT#15,EN:CLOSE15
17 IFEN=62THEN2000
18 Q=831:T$="M."+T$:T$=CHR$(LEN(T$))+T$
19 FORX=1TOLEN(T$):POKEQ+X,ASC(MID$(T$,X)):NEXT
20 A$="MEDIAMEISTER":B$="L[207]A$,D"+CHR$(13)+"R[213]"+CHR$(13):PRINT"[144]";
30 FORX=1TO10:POKE630+X,ASC(MID$(B$,X)):NEXT:POKE198,10
40 IFPEEK(44)<>8THENPOKE44,8:POKE8*256,0
1000 END
2000 SAVE"B."+T$,D:OPEN4,8,4,"M."+T$+",P,W"
2001 PRINT#4,"  <E>":CLOSE4
2010 PRINT"[217]OUR [208]RODUCTION [194]OOT,"
2011 PRINT"B."T$" AND SCRIPT, M."T$
2012 PRINT"ARE READY.
9999 [128]
10000 [140]:[135]N$:N$[178]"B."[170]N$
10001 D[178][194](186):[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[128]
21013 [128]
41000 [151]53280,0:[151]53281,0:[151]53272,22:[153]"LOAD"
41002 [151]214,13:[153]
41004 [153][163]1)"LIST                                     "
41005 [129]X[178]1[164]8
41006 [153][163]1)"PRINT#                                     "
41007 [130]
41013 [153][163]1)"POKE                                     "
41020 [129]X[178]1[164]6:[135]A$:[151]214,14[170]X:[153]
41021 [139]X[178]1[167][139][195](A$)[179]19[167][141]41050
41022 [153][163]19[171][195](A$)[173]2)"PRINT#"A$
41024 [130]
41030 T[178]TI[170]60
41031 [139]T[177]TI[167]41031
41032 [153]"":[142]
41050 B$[178]""
41051 [129]Y[178]1[164][195](A$):B$[178]B$[170][202](A$,Y,1)[170]" ":[130]:A$[178][200](B$,[195](B$)[171]1):[142]
60000 [143]  FILENAME (NO PREFIX/EXTENSION)
60001 [131]"LEXPO2004
60002 REM  PRODUCTION NAME
60003 DATA"[204][213][195][203][217] [197][216][208][207] 2004
60004 [143]  CREDIT
60005 [131]"BY STR$AVE (null)OORMAN
60006 DATA""
60007 DATA"[213]SING [205][197][196][201][193][205][197][201][211][212][197][210] BY [196]. [205]OORMAN"
60008 DATA"(C) 2001 BY [202] & [198] [208]UBLISHING, [201]NC.
60009 [131]"WWW.LOADSTAR.COM