100 POKE54,31:POKE56,31:POKE644,31:CLR
110 SYS57812"TSG.O",8,0:POKE780,0:POKE781,0:POKE782,32:SYS65493
120 POKE53281,0:POKE53280,0:PRINT"[147]	":GOSUB520
130 PRINT"  [204]OAD A MNEMONIC OVERLAY FILE? ([158][217]/[158][206])":POKE198,0
140 GETA$:IFA$=""THEN140
150 IFA$="N"THEN330
160 PRINT"  [195]HOOSE AN OVERLAY...               ":POKE198,0
170 PRINT"     [158]1.[159] [211]TANDARD OPCODES"
180 PRINT"     [158]2.[159] [213]NDOCUMENTED OPCODES SET #1"
190 PRINT"     [158]3.[159] [213]NDOCUMENTED OPCODES SET #2"
200 PRINT"     [158]4.[159] [210]6511 OPCODES"
210 PRINT"     [158]5.[159] [210]65[195]02 OPCODES"
220 GETA$:IFA$=""THEN220
230 IFA$<"1"ORA$>"5"THEN220
240 ONVAL(A$)GOTO250,260,270,280,290
250 O$="STANDARD":GOTO300
260 O$="I-COMP":GOTO300
270 O$="I-TRAN":GOTO300
280 O$="R6500/":GOTO300
290 O$="R65CXXX"
300 PRINTLEFT$("",4+2*VAL(A$))"     "A$". "
310 SYS57812O$,8,0:POKE780,0:POKE781,3:POKE782,32:SYS65493
320 :
330 GOSUB810:EE=1:EC=0:PRINT"[158][198]ILE [212]O [196]ISASSEMBLE ";:GOSUB610:IN$=A$
340 PRINT"[153]  [*[159]=[204]OAD [193]DDRESS[153]]"
350 PRINT"[145][145][158][211]TARTING [193]DDRESS ([210]EAL) ? ";:EE=0:GOSUB620:SA$=A$
360 IF SA$="*" AND IN$<>"" THEN390
370 PRINT"[158][211]TOPPING [193]DDRESS ([210]EAL) ? ";:GOSUB620:EA$=A$
380 I$=SA$:PRINT"[158][205]EMORY [211]TARTING [193]DDRESS ? ";:GOSUB620:MA$=A$
390 EE=1:PRINT"[158][196]EFINITION [198]ILE.... ";:GOSUB610:DF$=A$
400 PRINT"[158][211]YMBOL [198]ILE........ ";:GOSUB610:SY$=A$
410 EC=1:PRINT"[158][207]PTIONS............ ";:GOSUB610:OP$=A$
420 PRINT"[147]":SYS8192:POKE53280,0
430 PRINT" [153]************** [198][201][206][201][211][200][197][196] [153]**************"
440 PRINT"  [159][199]ENERATE ANOTHER SOURCE FILE? ([217][159]/[206][159])";
450 GETA$:IFA$=""THEN450
460 IFA$="Y"THEN120
470 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
480 IFER<>63THENPRINT"[147]":END
490 A$="HELLO CONNECT":Q$=CHR$(34)
500 PRINT"[147][144]LOAD"Q$A$Q$",8"
510 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END
520 PRINT"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
530 PRINT"          [212]HE [211]OURCE [199]ENERATOR        "
540 PRINT"          [194]Y [212]HOMAS [195]ZARNECKI         "
550 PRINT"           [193]LL [210]IGHTS [210]ESERVED        "
560 PRINT"        [208]UBLISHED ON [204][207][193][196][211][212][193][210] #72     "
570 PRINT"      sUBSCRIPTIONS 1-800-831-2694    "
580 PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
590 RETURN
600 :
610 ML=16:H=0:GOTO630
620 ML=4:H=1
630 A$="":POKE198,0:K=0
640 PRINT"[159]"MID$("[164][175][185][162][162][185][175][164]",K+1,1)"[157]";:K=(K+1)AND7:GETD$:IFD$<>""THEN670
650 FORDC=1TO10:NEXTDC
660 IFD$=""THEN640
670 IFLEN(A$)=MLTHEN760
680 IFHTHEN740
690 IFD$=" "ORD$="."THEN800
700 IFD$>"/"ANDD$<":"THEN800
710 IFD$>"@"ANDD$<"["THEN800
720 IFD$>"[192]"ANDD$<"[219]"THEN800
730 IFD$=" "ORD$="."OR(D$=","ANDEC)THEN800
740 IF((D$>"/")AND(D$<":"))OR((D$>"@")AND(D$<"G"))THEN800
750 IFD$="*"ANDLEN(A$)=0THENPRINTD$:A$=D$:RETURN
760 IFD$=CHR$(13)AND(LEN(A$)OREE)THENPRINT" ":RETURN
770 IFD$<>CHR$(20)THEN640
780 IFLEN(A$)=0THEN640
790 A$=LEFT$(A$,LEN(A$)-1):PRINT"[157]  [157][157]";:GOTO640
800 PRINTD$;:A$=A$+D$:IFD$<>CHR$(20)THENGOTO640
810 PRINT"";:FORX=1TO18:PRINT"                                       ":NEXTX
820 RETURN