100 REM COPYRIGHT MAURICE JONES 1992
110 POKE56,56:POKE51,0:CLR:DV=PEEK(186):IFDV<8THENDV=8
120 DIMI,X,Y,J,K,M,MT,DV,E,J1,K1
130 SYS52480,CHR$(13)+"[145][157]",20,20,20,20
140 PRINTCHR$(14);CHR$(8):MT=36864:BOX=MT+15:CE=MT+27:CM=MT:ME=CM+48
150 GOTO1510
160 REM CHOICE*
170 GOSUB220
180 FORI=1TOLEN(CH$):IFA$=MID$(CH$,I,1)THENRETURN
190 NEXT:GOTO170
200 REM ANY KEY-GET A$*
210 X=0:Y=24:GOSUB240:PRINT"[146][159]           PLEASE PRESS A KEY         [145][145][145]"
220 GETA$:IFA$=""THEN220:RETURN
230 REM PRINT AT*
240 POKE211,X:POKE214,Y:SYS58732:RETURN
250 REM SELECT SQUARES
260 X=5:Y=3:GOSUB240:PRINT"[158][146]^":K=1:J=0
270 CH$=CHR$(13)+"[145][157]":GOSUB170:ONIGOTO280,290,310,330,350
280 Q(M)=4*J+K:PRINT"  ":RETURN
290 IFJ=0THEN270
300 PRINT"  ":Y=Y-3:GOSUB240:PRINT"[146][158]^":J=J-1:GOTO270
310 IFJ=6THEN270
320 PRINT"  ":Y=Y+3:GOSUB240:PRINT"[146][158]^":J=J+1:GOTO270
330 IFK=1THEN270
340 PRINT"  ":X=X-2:GOSUB240:PRINT"[146][158]^":K=K-1:GOTO270
350 IFK=4THEN270
360 PRINT"  ":X=X+2:GOSUB240:PRINT"[146][158]^":K=K+1:GOTO270
370 REM START UP
380 DIMQ1$(7,4),CL(14),Q(16),B$(7,4),X(16),Y(16),CC(14)
390 Q1$(2,1)="[163]":Q1$(2,2)="[164]":Q1$(2,3)="[165]":Q1$(2,4)="[166]"
400 Q1$(3,1)="#":Q1$(3,2)="$":Q1$(3,3)="%":Q1$(3,4)="&"
410 Q1$(5,1)="[163]":Q1$(5,2)="[164]":Q1$(5,3)="[165]":Q1$(5,4)="[166]"
420 Q1$(1,1)="'":Q1$(1,2)="[146][160]":Q1$(1,3)=" ":Q1$(1,4)="[160]"
430 B$(2,1)="[163]'[157][157][160][163]":B$(2,2)="[164][160][157][157]'[164]":B$(2,3)="[160][165][157][157][165]'":B$(2,4)="'[166][157][157][166][160]"
440 B$(3,1)="#'[157][157] #":B$(3,2)="$ [157][157]'$":B$(3,3)=" %[157][157]%'":B$(3,4)="'&[157][157]& "
450 B$(5,1)="[163]'[157][157][160][163]":B$(5,2)="[164][160][157][157]'[164]":B$(5,3)="[160][165][157][157][165]'":B$(5,4)="'[166][157][157][166][160]"
460 B$(1,1)="''[157][157]''":B$(1,2)="[160][160][157][157][160][160]":B$(1,3)="  [157][157]  ":B$(1,4)="[160][160][157][157][160][160]"
470 FORI=1TO12:CL(I)=I-1:NEXT:CL(13)=13:CL(14)=14
480 B $(4,1)=B $(3,1):B $(4,2)=B $(3,2):B $(4,3)=B$(3,3):B $(4,4)=B $(3,4)
490 B$(6,1)=B$(5,1):B$(6,2)=B$(5,2):B$(6,3)=B$(5,3):B$(6,4)=B$(5,4)
500 B$(7,1)=B$(5,1):B$(7,2)=B$(5,2):B$(7,3)=B$(5,3):B$(7,4)=B$(5,4)
510 K=23:FORI=1TO4:X(I)=K:X(I+4)=K:X(I+8)=K:X(I+12)=K:K=K+2:NEXT
520 FORI=1TO4:Y(I)=5:NEXT:FORI=5TO8:Y(I)=7:NEXT:    FORI=9TO12:Y(I)=9:NEXT
530 FORI=13TO16:Y(I)=11:NEXT
540 DEFFNJ(X)=INT((X-1)/4):DEFFNK(X)=X-4*(INT((X-1)/4))
550 Q1$(4,1)=Q1$(3,1):Q1$(4,2)=Q1$(3,2):Q1$(4,3)=Q1$(3,3):Q1$(4,4)=Q1$(3,4)
560 Q1$(6,1)=Q1$(5,1):Q1$(6,2)=Q1$(5,2):Q1$(6,3)=Q1$(5,3):Q1$(6,4)=Q1$(5,4)
570 Q1$(7,1)=Q1$(5,1):Q1$(7,2)=Q1$(5,2):Q1$(7,3)=Q1$(5,3):Q1$(7,4)=Q1$(5,4)
580 NR(2)=1:NR(3)=3:NR(4)=6
590 FORI=1TO14:READCC(I):NEXT
600 DATA144,5,28,159,156,30,31,158,129,149,150,151,153,154
610 REM NEXT 3 LINES DEFINE A QUILT
620 DATA4,3,14,14,3,6,2,3,2,9,11,8,7,12,10,2,3,2,5,3,3
630 FORI=1TO4:READCO(I):NEXT:   FORI=1TO16:READQ(I):NEXT:READNC
640 FORJ=0TO2:PO(J)=CO(1):NEXT:PO(3)=CO(2):PO(4)=CO(1):PO(5)=CO(2):PO(6)=CO(3)
650 RETURN
660 REM PRINT POSSIBLE SQUARES
670 SYSBOX,4,12,2,22,32,15:X=4:Y=2:GOSUB240
680 FORJ=1TONR(NC)+1:POKE646,PO(J-1):PRINT""; :FORI=1TO4:PRINTQ1$(J,I);"[146]";
690 NEXT
700 Y=Y+3:GOSUB240:NEXT
710 RETURN
720 REM  COLORS-MOVE CURSOR
730 X=6:Y=4:GOSUB240:PRINT"[158]^":K=1:J=0
740 CH$=CHR$(13)+"[145][157]D"   :GOSUB170:ONIGOTO750,760,780,800,820,1100
750 CO(M)=CL(2*J+K):PRINT"  ":RETURN
760 IFJ=0THEN740
770 PRINT"  ":Y=Y-3:GOSUB240:PRINT"^":J=J-1:GOTO740
780 IFJ=6THEN740
790 PRINT"  ":Y=Y+3:GOSUB240:PRINT"^":J=J+1:GOTO740
800 IFK=1THEN740
810 PRINT"  ":X=X-4:GOSUB240:PRINT"^":K=1:GOTO740
820 IFK=2THEN740
830 PRINT"  ":X=X+4:GOSUB240:PRINT"^":K=2:GOTO740
840 REM SCREEN
850 PRINT"[147]":POKE53272,31:POKE198,0
860 POKE53265,PEEK(53265)OR64:POKE53281,15:POKE53280,09
870 SYSBOX,0,39,0,24,0,08:SYSBOX,3,13,1,23,32,15:SYSBOX,3,3,1,23,63,08
880 SYSBOX,13,13,1,23,61,08:SYSBOX,21,32,3,14,32,15:SYSBOX,21,21,3,14,63,08
890 SYSBOX,32,32,3,14,61,08:SYSBOX,18,35,17,21,32,15:SYSBOX,18,35,17,17,60,08
900 SYSBOX,18,35,21,21,62,08:
910 POKE646,8:X=18:Y=17:GOSUB240:PRINT"[[157]?[157]?[157]?[157]*"
920 POKE646,8:X=35:Y=17:GOSUB240:PRINT"][157]=[157]=[157]=[157]+"
930 X=03:Y=23:GOSUB240:PRINT"*>>>>>>>>>+"
940 X=03:Y=1:GOSUB240:POKE646,08:PRINT"[<<<<<<<<<]
950 X[178]21:Y[178]3:[141]240:[151]646,08:[153]"[<<<<<<<<<<]
960 X=21:Y=14:GOSUB240:PRINT"*>>>>>>>>>>+"
970 RETURN
980 REM PRINT COLOR SQUARES
990 X=6:Y=3:GOSUB240:FORJ=0TO 6:FORI=1TO2:POKE646,CL(2*J+I):PRINT"'";:NEXT
1000 Y=Y+3:GOSUB240:NEXT:RETURN
1010 REM PRINT A BLOCK
1020 POKE646,CO(1):POKE53282,CO(2):POKE53283,CO(3):POKE53284,CO(4)
1030 W=0:FORM1=0TO3:FORN=0TO3:W=W+1:J=FNJ(Q(W)):K=FNK(Q(W))
1040 IFJ<0THEN1060
1050 POKE646,PO(J):PRINT"[146]"  B$(J+1,K);"[146][145]";
1060 NEXT
1070 PRINT"[157][157][157][157][157][157][157][157]";:NEXT:PRINT"[145][145]";
1080 RETURN
1090 REM A PATCH ON SUB250!
1100 ONMGOTO740,740,1110,1120
1110 CO(3)=CO(2):CO(4)=CO(2):NC=2:RETURN
1120 CO(4)=CO(3):NC=3: M=4:RETURN
1130 REM DRAW GRID
1140 POKE646,00
1150 X=23:Y=5:GOSUB240:PRINT"\][][][][157][157][157][157][157][157][157][157]*+*+*+*+[157][157][157][157][157][157][157][157][][][][][157][157][157][157][157][157][157][157]";
1160 PRINT"*+*+*+*+[157][157][157][157][157][157][157][157][][][][][157][157][157][157][157][157][157][157]";
1170 PRINT"*+*+*+*+[157][157][157][157][157][157][157][157][][][][][157][157][157][157][157][157][157][157]";
1180 PRINT"*+*+*+*+[157][157][157][157][157][157][157][157]"; :RETURN
1190 REM DISK DIRECTORY
1200 POKE53272,21
1210 PRINT"[158][147]":SYSMT+51,"$:"+"Q.*",DV:OPEN15,8,15:   GOSUB1970:IFE<20THEN1230
1220 PRINT"[158]      DRIVE ERROR":PRINT:PRINT:PRINT"";E;E$;T;S
1230 CLOSE15:GOSUB210:GOTO1520
1240 REMSAVE
1250 PRINT"[147]":POKE53272,23:FORI=1TO16:IFQ(I)<1ORQ(I)>28THEN 1330:NEXT
1260 CLOSE15:CLOSE3:IFF$=""THEN1262
1261 PRINT"[147]SAVE AS "F$"? (Y/N)":SYSMT+45,"YN":IFF%=1THEN1268
1262 PRINT:PRINT"FILENAME: ";:SYSCM+66,1,13,20:IFW$=""THEN1520
1264 F$=W$
1268 IFLEFT$(F$,2)<>"Q."THENF$="Q."+F$
1269 Q9$=F$:CLOSE15:OPEN15,DV,15,"S:"+F$:OPEN2,DV,2,Q9$+",P,W"
1270 FORI=1TO4:PRINT#2,CO(I):NEXT:FORI=1TO16:PRINT#2,Q(I):NEXT:PRINT#2,NC
1280 GOSUB1970:PRINT"[146][159]
1290 [139]E[179]20[167]1310:[153]"WAITOPEN"
1300 [153]:[153]"SAVE FAILED":[153]:[153]E;E$;T;S:[137]1320
1310 [153]:[153]"SYS     "Q9$" SAVED"
1320 [160]2:[160]15: [141]210:[137]1520
1330 [160]2:[160]15:[137]1520
1340 [143] LOAD
1350 [158]BOX,0,39,3,21,102,10:[151]53272,23:[141]3050
1355 [158]CM[170]42,"I0",DV:[139][197](E$)[167]1359
1357 MS$[178]"CHR$ETTING DIRECTORY...":[141]3000:[158]MT[170]6,"$:Q.*",DV,53248
1358 [139]F%[178]0[167]MS$[178]"(null)O QUILTS ON THIS DISK":[141]3030:[137]1520
1359 [139][197](E$)[167]MS$[178]E$:[141]3030:[137]1520
1360 MS$[178]"(null)LEASE SELECT QUILT":[141]3000:[158]CM[170]72,10,29,5,19
1362 [158]CM[170]3,11,4,11,3,1:[139]F$[178]""[167]1530
1369 Q9$[178]F$:[160]3:[159]3,DV,3,Q9$[170]",P,R"
1370 [129]I[178]1[164]4:[132]3,CO(I):[130]:[129]I[178]1[164]16:[132]3,Q(I):[130]:[132]3,NC
1380 [160]3:[158]CM[170]42,"",DV:[139][197](E$)[167]MS$[178]E$:[141]3030:[137]1520
1410 [137]1450
1420 [151]53265,[194](53265)[176]64:[151]53281,15:[151]53280,09
1430 [129]J[178]0[164]2:PO(J)[178]CO(1):[130]:PO(3)[178]CO(2):PO(4)[178]CO(1):PO(5)[178]CO(2):PO(6)[178]CO(3)
1440 [141]850:[137]1860
1450 [129]I[178]1[164]16:[139]Q(I)[179]1[176]Q(I)[177]28[167]1470
1460 [130]: [137]1420
1470 [153]"     SYS    THIS IS NOT A QUILT":[141]210:[137]1520
1480 [143] INSTRUCTIONS
1490 [151]53272,21:[153][199](14):[158]MT[170]51,"T.INSTRUCTIONS",DV
1500 [151]53272,31:[137]1520
1510 [141]380
1520 [151]53265,[194](53265)[175]191:[151]53280,0:[151]53281,0:[151]646,3:[151]198,0
1530 [153]"LOAD":[151]53272,31:Y[178]7:[158]BOX,0,39,3,21,0,10:[158]BOX,0,39,0,0,121,8
1532 [158]BOX,0,39,1,1,160,10:[158]BOX,0,39,2,2,120,2
1534 [153]"DEF";:[158]CE,1,"(null)CLOSEATN (null) LEN LEFT$ (null) (null) (null) (null)   (null) (null) RIGHT$ (null) (null)"
1536 [158]BOX,0,39,23,23,160,10:[158]BOX,0,39,24,24,120,2:[158]BOX,0,39,22,22,121,8
1538 [158]CE,23,"LEN(null)(null)(null)/(null)VAL(null)(null)(null)(null) (null)(null)CLOSEMID$(null)(null)(null)(null)RIGHT$LEN(null) (null)(null) (null)VAL(null)VALLEN(null)"
1539 [158]MT[170]72,8,30,8,17:[158]BOX,9,31,7,16,160,7
1540 Y[178]Y[170]1:[158]CE,Y,"SYS RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null)      "
1550 Y[178]Y[170]1:[158]CE,Y," LENLEFT$(null)(null)(null)VAL (null)VAL(null) LEN(null)(null)(null)(null)(null)  "
1560 Y[178]Y[170]1:[158]CE,Y," STR$VAL(null)RIGHT$CHR$(null) (null)VAL(null) PEEK(null)(null)LEN(null)   "
1570 Y[178]Y[170]1:[158]CE,Y," (null)(null)ATNSTR$ ATN (null)(null)RIGHT$(null)(null)       "
1580 Y[178]Y[170]1:[158]CE,Y," (null)ATN(null)VAL LEN(null)(null)(null)VAL(null)(null) (null)(null)RIGHT$(null)(null) "
1590 [143]:Y=Y+1:SYSCE,Y,"6. DISK DRIGHT$(null)VALLEN(null)(null)(null)(null)     "
1600 Y[178]Y[170]1:[158]CE,Y," (null)RIGHT$VAL(null) LEN(null)(null)(null)VAL(null)(null) (null)(null)RIGHT$(null)(null) "
1610 Y[178]Y[170]1:[158]CE,Y," LEN(null)VALATN(null)VAL (null)ATN(null)STR$(null)(null) (null)(null)RIGHT$(null)(null)"
1620 Y[178]Y[170]1:[158]CE,Y," (null)VAL(null)(null)(null)(null) (null)(null) (null)(null)ATNSTR$(null)(null)ATN(null) "
1625 [158]MT[170]48,8,10,30,8,7,1,3:I[178]F%
1630 [145]I[137]1490,1650,1740,1350,1250,1880, 2230,2340
1640 [143] CHOOSE COLORS
1650 [141]850:[141]990
1660 NC[178]4:[129]M[178]1[164]4:X[178]20:Y[178]18:[141]240:[153]"STOPRETURN SELECTS";
1670 X[178]20:Y[178]20:[141]240:[153]"D - DONE":[141]730:[139]NC[179][177]2[167]1690
1680 X[178]28:Y[178]9:[141]240:[151]646,CO(3):[153]"'":M[178]4
1690 X[178]19[170]3[172]M:Y[178]9:[141]240:[151]646,CO(M):[153]"'":[130]:[158]BOX,19,34,18,20,32,15
1700 [151]646,CO(1):[151]53282,CO(2):[151]53283,CO(3):[151]53284,CO(4)
1710 [129]J[178]0[164]2:PO(J)[178]CO(1):[130]:PO(3)[178]CO(2):PO(4)[178]CO(1):PO(5)[178]CO(2):PO(6)[178]CO(3)
1720 [158]BOX,4,12,2,22,32,15:[137]1770
1730 [143] MAKE A BLOCK
1740 [141]850:[141]670
1750 [158]BOX,22,31,4,13,32,15:[158]BOX,19,34,18,20,32,15
1760 [129]I[178]1[164]16:Q(I)[178]0:[130]:[141]1140:[137]1830
1770 [158]BOX,19,34,18,20,32,15:X[178]19
1780 Y[178]18:[141]240:[153]"STOPV - VIEW QUILT"
1790 Y[178]20:[141]240:[153]"M - MENU":CH$[178]"VM":[141]170
1800 [145]I[137]1880,1520
1810 [143] EDIT *****
1820 [151]53280,09:[141]850:X[178]23:Y[178]5:[141]240:[141]1020:[141]670
1830 X[178]20:Y[178]18:[141]240:[153]"WAITSTOPRETURN SELECTS";
1840 X[178]20:Y[178]20:[141]240:[153]"WAITSTOPD - DONE  "
1850 [141]1990
1860 X[178]23:Y[178]5:[141]240:[141]1020:[137]1770
1870 [143] PRINT QUILT
1880 [129]I[178]1[164]16:[139]Q(I)[179]1[176]Q(I)[177]28[167]1900
1890 [130]:[151]53265,[194](53265)[176]64:[151]53281,15:[137]1910
1900 [153]"SYSLOAD        NO QUILT IN MEMORY":[141]210: [137]1520
1910 [151]53280,15:[153]"LOAD":X[178]4:Y[178]0:[141]240:[129]I[178]1[164]3:[129]L[178]1[164]4:[141]1020:
1920 [153]"ONONONONONON";:[130]
1930 Y[178]Y[170]8:[141]240:[130]
1940 X[178]7:Y[178]24:[141]240:[153]"STOPWAITE - EDIT       M - MENU";
1950 I[178]0: CH$[178]"EM":[141]170:[145]I[137]1820,1520
1960 [143] DISK ERROR
1970 [132]15,E,E$,T,S:[142]
1980 [143] EDIT
1990 X[178]23:Y[178]5:[141]240:K1[178]1:J1[178]0:        CH$[178][199](13)[170]"ONCMDD"        :Z[178]1
2000 [153]"STOP\":  [141]170: [145]I[137]2010,2020,2040,2060,2080,2100
2010 M[178]4[172]J1[170]K1:[141]260:[137]2180
2020 [139]J1[178]0[167]2000
2030 [141]2140:J1[178]J1[171]1:[137]2120
2040 [139]J1[178]3[167]2000
2050 [141]2140:J1[178]J1[170]1:[137]2120
2060 [139]K1[178]1[167]2000
2070 [141]2140:K1[178]K1[171]1:[137]2120
2080 [139]K1[178]4[167]2000
2090 [141]2140:K1[178]K1[170]1:[137]2120
2100 [129]I[178]1[164]16:[139]Q(I)[178]0[167]Q(I)[178]1
2110 [130]:[142]
2120 Z[178]4[172]J1[170]K1:X[178]X(Z):Y[178]Y(Z):[141]240:[137]2000
2130 [143] SUB2060 PRINTS SQUARE TO ERASE CURSOR
2140 W[178]4[172]J1[170]K1:X[178]X(W):Y[178]Y(W):[141]240:
2150 J[178][165]J(Q(W)):K[178][165]K(Q(W)):[139]Q(W)[178]0[167]2210
2160 [151]646,PO(J)
2170 [153]"WAIT";B$(J[170]1,K):[142]
2180 Z[178]4[172]J1[170]K1:X[178]X(Z):Y[178]Y(Z):[141]240:J[178][165]J(Q(Z)):K[178][165]K(Q(Z)):[151]646,PO(J)
2190 [153]B$(J[170]1,K):[141]240:CH$[178][199](13)[170]"ONCMDD":[137]2000
2200 [143] NEXT TWO LINES PRINT BLOCK SELECTED
2210 [151]646,00: [153]"[":[142]
2220 [143] RANDOM
2230 CO(1)[178]CL([181](14[172][187](0))[170]1)
2240 CO(2)[178]CL([181](14[172][187](0))[170]1):[139]CO(2)[178]CO(1)[167]2230
2250 CO(3)[178]CL([181](14[172][187](0))[170]1):[139]CO(3)[178]CO(1)[176]CO(3)[178]CO(2)[167]2310
2260 CO(4)[178]CL([181](14[172][187](0))[170]1):[139]CO(4)[178]CO(1)[176]CO(4)[178]CO(2)[176]CO(4)[178]CO(3)[167]2320
2270 NC[178]4
2280 [129]J[178]0[164]2:PO(J)[178]CO(1):[130]:PO(3)[178]CO(2):PO(4)[178]CO(1):PO(5)[178]CO(2):PO(6)[178]CO(3)
2290 [151]646,C0(1):[151]53282,CO(2):[151]53283,CO(3):[151]53284,CO(4)
2300 [129]I[178]1[164]16:Q(I)[178][181](28[172][187](0))[170]1:[130]:[137]1880
2310 CO(3)[178]CO(2):CO(4)[178]CO(2):NC[178]2:[137]2280
2320 CO(4)[178]CO(3):NC[178]3:[137]2280
2330 [143] RECONNECT*
2340 [143]
2350 [158]52483:[153]"LOAD":[151]53281,0:[151]53280,0
2360 A$[178]"HELLO CONNECT":[129]I[178]8[164]9:[160]2:[159]2,I,2:[160]2:[139]ST[167] 2400
2370 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167] 2400
2380 [130]:[153]"LOADOPEN":[151]2048,0:[151]44,8:[151]53272,23:[151]186,DV
2390 [151]53272,21:[151]V[170]21,0:[151]56,160:[156]:[153]"LOAD"[199](9):[128]
2400 [153]"LOADSTOPLOAD"[199](34)A$[199](34)","I
2410 [153]"RUN":[151]631,13:[151]632,13:[151]198,2:[128]
2420 [159]15,9,15,"S0:QUILT":[160]15:[148]"QUILT",9 :[128]
3000 [141]3010:[141]3020:[142]
3010 [158]BOX,0,39,23,23,160,7:[153]"SYS";:[158]CM[170]27,23,MS$:MS$[178]"":[142]
3020 [129]J[178]1[164]16:[158]CM[170]72,0,39,23,23:[130]:[158]BOX,0,39,23,23,255,7:[142]
3030 [141]3000:[151]198,0:[146]198,15:[161]A$:[142]
3040 [151]198,0:[146]198,15:[161]A$:[142]
3050 [158]CM[170]72,17,22,4,14:[158]BOX,18,23,3,13,160,12
3060 [153]"PRINT#";:[129]I[178]8[164]16:[158]CM[170]24,22[171][195]([196](I)),I[171]4,[196](I):[130]
3070 [139]MS$[178]""[167]MS$[178]"(null)LEASE (null)ELECT ATN STR$RIVE (null)UMBER"
3080 [141]3010
3090 [158]ME,4,18,23,9,12[170]128,129,0:[160]2:[159]2,F%[170]7,2:[160]2:[139]ST[167]3090
3100 DV[178]F%[170]7:[141]3110:[158]CM[170]18,232:[141]3120:[158]CM[170]21,232:[142]
3110 MS$[178]"LEN(null)(null)(null)/(null)VAL(null)(null)(null)(null) (null)O (null)ELECT":[141]3010:[142]
3120 D[178]F%[170]7:[139][194](787)[167][151]787,0:[139]D[178]SD[167][142]
3130 [158]CM[170]42,"CP",D:P[178][197](E$):[139]P[179][177]2[167][142]
3140 [158]BOX,0,39,1,1,160,1:[151]199,1:[151]646,1:[158]CM[170]27,1,E$
3150 MS$[178]"(null)SE CURRENT PARTITION? ((null)/(null))":[141]3030:[139]A$[179][177]"N"[167]3230
3160 MS$[178]"(null)ELECT (null)ARTITION...":[141]3000:[158]CM,"$=P",D,16384,10,7,10,13,1
3170 [139][197](E$)[167]MS$[178]E$:[141]3030:[142]
3180 [139]F$[178]""[167][142]
3190 F$[178]"$=P:"[170]F$:[141]3410:P[178]BF:[139]P[178]0[167][142]
3200 [158]CM[170]42,"",D:[139][197](E$)[167]MS$[178]E$:[141]3030:[142]
3210 [158]CM[170]42,"C(null)"[170][199](P),D
3220 [158]BOX,0,39,1,1,160,1:[151]199,1:[151]646,1:[158]CM[170]27,1,E$
3230 [158]CM[170]42,"CD/",D:[141]3330:[139]D$[179][177]"H"[167][142]
3240 [158]CM[170]6,"$:*=B",D,16384:[139]F%[178]0[167]3310
3250 MS$[178]"(null)ELECT SUBDIRECTORY ((null)(null)(null)(null) FOR CURRENT)":[141]3000
3260 [158]CM[170]72,15,34,5,13:[158]CM[170]3,16,4,10,7,1
3270 [139][197](E$)[167]MS$[178]E$:[141]3030:[142]
3280 [139]F$[178]""[167]3310
3290 [158]CM[170]42,"CD:"[170]F$,D:[139][197](E$)[167]MS$[178]E$:[141]3030:[142]
3300 [137]3240
3310 [142]
3320 CHECK DIR TYPE
3330 [159]2,D,2,"$:":[161]#2,D$,E$:[129]I[178]4[164]33:[161]#2,A$:[130]
3340 A[178]0:[129]I[178]34[164]38:[161]#2,A$:A[178]A[170][198](A$[170][199](0)):[130]:[160]2
3350 [139]D$[178]"H"[167]DI$[178]"(null)OOT STR$IR":[139]A[179][177]0[167]DIR$[178]"(null)UBDIRECTORY
3360 IFD$="A"THENDI$="1541 170[203]":IFE$=CHR$(128)THENDI$="1571 340[203]"
3370 IFD$="D"THENDI$="1581 800[203]"
3380 RETURN
3390 OPEN4,D,0,"$:S^%_>.(":FORI=1TO34:GET#4,A$:NEXT:GET#4,L$,H$:CLOSE4
3400 BF=ASC(L$+CHR$(0))+ASC(H$+CHR$(0))*256:RETURN
3410 OPEN4,D,0,F$:FORI=1TO34:GET#4,A$:NEXT:GET#4,L$,H$:CLOSE4
3420 BF=ASC(L$+CHR$(0))+ASC(H$+CHR$(0))*256:RETURN
3430 POKE788,52:A$="HELLO CONNECT":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN3450
3440 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN3460
3450 NEXT:PRINT"[147]":POKE186,8:END
3460 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]"
3470 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
3480 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END
10000 CLOSE15:OPEN15,8,15,"S:QUILT":SAVE"QUILT",8