10 DIMPL$(16),PC$(16):FORD=0TO15:READPL$(D),PC$(D):NEXT:AK$="***************"
20 P=55629:CM=P:EC=CM+(560):CC(1)=3:CC(2)=4:CC(3)=5:CC(4)=6
30 CD=54272:N=1:N1=1:N2=2:TY=31:SP=32:AS=42:SB=60:RS=160
40 FR=14:FT=15:FY=40:FS=560:SH=600:S1=55483:S2=55494:DL$="":ML$=DL$+""
50 POKE53280,2:POKE53281,0:POKE808,225
60 PRINT"[147][159] [146] PRESS '1' FOR COLOR 1 (F1 TO CHANGE)":X(1)=55297:POKEX(1),3
70 PRINT"[150][209] PRESS '2' FOR COLOR 2 (F3 TO CHANGE)":X(2)=X(1)+40:POKEX(2),4
80 PRINT"[153][209] PRESS '3' FOR COLOR 3 (F5 TO CHANGE)":X(3)=X(2)+40:POKEX(3),5
90 PRINT"[154][209] PRESS '4' FOR COLOR 4 (F7 TO CHANGE)":X(4)=X(3)+40:POKEX(4),6
100 PRINT"[156]* SHIFT 'X' FOR ALL COLOR 1[146] TO COLOR 2[146]":POKES1,3:POKES2,4
110 PRINT"[155]* SHIFT 'P' PRINTS DESIGN ON PRINTER":PRINT:PRINT
120 PRINT" SHIFT CLR"
130 PRINT" TO CLEAR"
140 PRINT" SHIFT M"
150 PRINT" TO MOVE"
160 PRINT" SHIFT L"
170 PRINT" TO LOAD"
180 PRINT"[158] SHIFT S"
190 PRINT" TO SAVE"
200 PRINT"[156] SHIFT Q"
210 PRINT" TO QUIT[155]"
220 PRINT"           [172][175][185][162][158]NEEDLEGRAPH[146][162][185][175][187]"
230 PRINT"":FORV=1TO17:PRINTTAB(11)"[182]"TAB(29)"[181]":NEXT
240 PRINT"           [188][184][158]DOUG[184][158]&[184][158]DEB[184][158]1985[184][190]";
250 PRINT"":FORV=1TO15:PRINTTAB(13)AK$:NEXT:PRINT"[155]"
270 CC=CC(N):IFFC=0THENFC=CC-((CC=0)*11):GOTO290
280 IFFC>0THENFC=0
290 IFPEEK(P-CD)=ASTHENPOKEP,FC
300 IFPEEK(P-CD)=RSTHENPOKEP-CD,SP:GOTO270
310 IFPEEK(P-CD)=SPTHENPOKEP-CD,RS
320 GETK$:CH=PEEK(P-CD)
330 IFK$=""THEN390
340 IFK$="[157]"THEN430
350 IFK$=""THEN470
360 IFK$="[145]"THEN510
370 IFK$=" "THEN550
380 GOTO630
390 IFCH=ASTHENPOKEP,N1
400 P=P+N1:IFPEEK(P-CD)=SPTHENP=P-FT
410 M$="[157]":IFPEEK(203)=SBTHENCH=PEEK(P-CD):GOTO550
420 GOTO270
430 IFCH=ASTHENPOKEP,N1
440 P=P-N1:IFPEEK(P-CD)=SPTHENP=P+FT
450 M$="":IFPEEK(203)=SBTHENCH=PEEK(P-CD):GOTO550
460 GOTO270
470 IFCH=ASTHENPOKEP,N1
480 P=P+FY:IFPEEK(P-CD)=SPTHENP=P-SH
490 M$="[145]":IFPEEK(203)=SBTHENCH=PEEK(P-CD):GOTO550
500 GOTO270
510 IFCH=ASTHENPOKEP,N1
520 P=P-FY:IFPEEK(P-CD)=SPTHENP=P+SH
530 M$="":IFPEEK(203)=SBTHENCH=PEEK(P-CD):GOTO550
540 GOTO270
550 POKEP-CD,RS:POKEP,CC(N)
560 FORTT=1TO100:NEXT
570 CH=PEEK(P-CD):IFPEEK(203)<>SBTHEN270
580 IFM$="[145]"THENM$="":GOTO470
590 IFM$=""THENM$="":GOTO510
600 IFM$=""THENM$="":GOTO430
610 IFM$="[157]"THENM$="":GOTO390
620 GOTO270
630 FK=ABS(ASC(K$+CHR$(0))-132):ON(K$>"[129]"ANDK$<"[137]")+1GOTO680
640 CC(FK)=CC(FK)+1:IFCC(FK)=16THENCC(FK)=0
650 POKEX(FK),CC(FK)
660 IFFK=1THENPOKES1,CC(FK)
670 IFFK=2THENPOKES2,CC(FK)
680 IFK$>"0"ANDK$<"5"THENPOKEX(N)-CD,81:N=VAL(K$):CC=CC(N):FC=0:POKEX(N)-CD,RS
690 IFK$="[216]"THENGOSUB1000
700 IFK$="[208]"THENGOSUB2000
710 IFK$=""THENGOSUB3000
720 IFK$="[147]"THENGOSUB5000
730 IFK$="[211]"THENGOSUB6000
740 IFK$="[204]"THENGOSUB7000
750 IFK$="[205]"THENGOSUB8000
760 IFK$="[209]"THENPOKE808,237:END
770 GOTO270
1000 FORVV=CMTOECSTEPFY:FORHH=0TOFR:CP=VV+HH
1010 IF(PEEK(CP)ANDFT)=CC(N1)THENPOKECP,CC(N2)
1020 NEXT:NEXT:RETURN
2000 NN=1:PRINTML$;:INPUT"    TITLE ";PT$:PT$=LEFT$(PT$,16)
2010 OPEN4,4:PRINT#4,CHR$(27)CHR$(66)CHR$(2)
2020 PRINT#4,CHR$(27)CHR$(87)CHR$(1)
2030 PRINT#4,CHR$(27)CHR$(51)CHR$(23)
2040 PRINT#4,PT$:PRINT#4,"                    "PL$(0)"-"PC$(0)
2050 FORML=CMTOECSTEP40:FORBY=MLTOML+FR
2060 PRINT#4,PL$(PEEK(BY)ANDFT);:NEXT:PRINT#4,"     ";PL$(NN)"-"PC$(NN)
2070 NN=NN+N1:NEXT
2080 PRINT#4,CHR$(27)CHR$(64)
2090 PRINT#4:CLOSE4
2100 PRINT"                          [181][155]"
2110 RETURN
3000 IFPEEK(P-CD)=ASTHENPOKEP,N1:
3010 P=CM:RETURN
4000 S=1:OPEN2,8,2,"#"
4010 PRINT#15,"U1:"2;0;18;S:INPUT#15,E:IFE>0THENCLOSE2:RETURN
4020 PRINTDL$:FOREN=1TO8
4030 GET#2,TT$,SS$,PT$,L1$,L2$:IFEN=1THENTL=ASC(TT$+CHR$(0)):S=ASC(SS$+CHR$(0))
4040 IFASC(PT$+CHR$(0))<>129THENFORBY=1TO27:GET#2,CH$:NEXT:GOTO4120
4050 GET#2,I1$,I2$:ID$=I1$+I2$
4060 IFID$<>"N."THENFORBY=1TO25:GET#2,CH$:NEXT:GOTO4120
4070 FORBY=1TO8:GET#2,CH$:PRINTTAB(30)CH$;:NEXT
4080 IFASC(CH$+CHR$(0))<>32THENPRINT"-"
4090 IFASC(CH$+CHR$(0))=32THENFORBY=1TO6:GET#2,CH$:NEXT:PRINT:PRINT:GOTO4110
4100 FORBY=1TO6:GET#2,CH$:PRINTTAB(30)CH$;:NEXT:PRINT
4110 FORBY=1TO11:GET#2,CH$:NEXT
4120 NEXT
4130 PRINTTAB(30)"HIT A KEY[155]";:WAIT198,1:POKE198,0:GOSUB4200
4140 IFTL>0THENGOTO4010
4150 CLOSE2:CLOSE15:RETURN
4200 PRINTDL$:FORER=1TO17:PRINTTAB(30)"         ":NEXT:RETURN
5000 PRINTML$"             ERASE? (Y/N)[155]"
5010 WAIT198,1:GETAN$:IFAN$<>"Y"THEN5040
5020 FORML=CMTOECSTEPFY:FORER=MLTOML+FR
5030 POKEER,N1:POKEER-CD,AS:NEXT:NEXT:P=CM
5040 PRINT"                          [181][155]"
5050 RETURN
6000 INPUT"FILENAME";SF$:SF$=LEFT$(SF$,14):SF$="N."+SF$
6010 POKEP-CD,160:OPEN15,8,15,"I"
6020 OPEN8,8,8,SF$+",S,W":INPUT#15,E
6030 IFE=63THENCLOSE8:GOSUB6100:ON(RF+1)GOTO6020,6080
6040 IFE<>0THENPRINTML$TAB(12)"   DISK ERROR   [155]":FORTT=1TO3000:NEXT:GOTO6080
6050 FORML=CMTOECSTEPFY:FORBY=MLTOML+FR:BY$=STR$(PEEK(BY)ANDFT)
6060 FC$=RIGHT$(BY$,LEN(BY$)-1)
6070 PRINT#8,FC$:NEXT:NEXT
6080 CLOSE8:CLOSE15:PRINT"                          [181][155]"
6090 RETURN
6100 RF=0:PRINTML$"            REPLACE? (Y/N)[155]"
6110 GETAN$:IFAN$<>"Y"ANDAN$<>"N"THEN6110
6120 IFAN$="N"THENRF=1:RETURN
6130 PRINTML$" O.K., REPLACING [155]"
6135 PRINT#15,"S0:"+SF$
6140 RETURN
7000 INPUT"FILENAME";SF$:SF$=LEFT$(SF$,14):SF$="N."+SF$
7010 OPEN15,8,15,"I":IFMID$(SF$,3,1)="$"THENGOSUB4000:ONE+1GOTO7060:GOTO7030
7020 OPEN8,8,8,SF$+"*,S,R":INPUT#15,E
7030 IFE<>0THENPRINTML$TAB(12)"   DISK ERROR   [155]":FORTT=1TO2999:NEXT:GOTO7060
7040 FORML=CMTOECSTEPFY:FORBY=MLTOML+FR:INPUT#8,FC$:FC=VAL(FC$)
7050 POKEBY-CD,RS:POKEBY,FC:NEXT:NEXT
7060 CLOSE8:CLOSE15:PRINT"                          [181][155]"
7070 RETURN
8000 GETSH$:IFSH$=""THEN8000
8010 IFSH$<>""ANDSH$<>"[157]"ANDSH$<>""ANDSH$<>"[145]"THENRETURN
8020 IFSH$=""THENGOSUB8100:GOTO8000
8030 IFSH$="[157]"THENGOSUB8200:GOTO8000
8040 IFSH$=""THENGOSUB8300:GOTO8000
8050 IFSH$="[145]"THENGOSUB8400:GOTO8000
8100 FORVV=CMTOECSTEPFY:FORHH=VV+FRTOVVSTEP-N1
8110 IFHH=VV+FRTHENPP=PEEK(HH)ANDFT
8120 IFHH=VVTHENPOKEHH,PP:GOTO8140
8130 POKEHH,PEEK(HH-N1)ANDFT
8140 NEXT:NEXT:RETURN
8200 FORVV=CMTOECSTEPFY:FORHH=VVTOVV+FR
8210 IFHH=VVTHENPP=PEEK(HH)ANDFT
8220 IFHH=VV+FRTHENPOKEHH,PP:GOTO8140
8230 POKEHH,PEEK(HH+N1)ANDFT
8240 NEXT:NEXT:RETURN
8300 FORHH=CMTOCM+FR:FORVV=HH+FSTOHHSTEP-FY
8310 IFVV=HH+FSTHENPP=PEEK(VV)ANDFT
8320 IFVV=HHTHENPOKEVV,PP:GOTO8340
8330 POKEVV,PEEK(VV-FY)ANDFT
8340 NEXT:NEXT:RETURN
8400 FORHH=CMTOCM+FR:FORVV=HHTOHH+FSSTEPFY
8410 IFVV=HHTHENPP=PEEK(VV)ANDFT
8420 IFVV=HH+FSTHENPOKEVV,PP:GOTO8340
8430 POKEVV,PEEK(VV+FY)ANDFT
8440 NEXT:NEXT:RETURN
9000 DATA K,BLACK,W,WHITE,R,RED,C,CYAN,V,VIOLET,G,GREEN,B,BLUE,Y,YELLOW
9010 DATA O,ORANGE,T,TAN,P,PINK,1,DK. GRAY,2,MED. GRAY,L,LIME,S,SKY BLUE
9020 DATA 3,LT. GRAY