5 POKE56,158:CLR:POKE650,128
10 DV=PEEK(186):IFDV<8THENDV=8
12 SYS57812"TOOLBOX C000",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
15 SYS49152+30,"READER C000",DV,240*256
16 SYS49152+54,240*256,248*256,53248
17 SYS49152+30,"SWAPPYMEM",DV,159*256
20 DIM Q$(11),RQ$(111),TN$(11),D1(6),D2(6),F1(10),F2(10),G1(15),G2(15)
25 DIM M1(21),M2(21),Q1(28),Q2(28),U1(36),U2(36),V1(45),V2(45),S1(55),S2(55)
30 M=49152:QT$=CHR$(34):GOSUB1000:GOSUB3400:GOSUB4000
34 :
35 REM RESTORE MENU
45 POKE198,0:POKE64,206:PRINTCHR$(14)
65 POKE200,0:SYSM+21,224:GOSUB3800
100 SYSM+48,7,9,31,10,3+128,1+128,0:POKE199,0
110 IFF%=1THEN2100
120 IFF%=2THEN250
130 IFF%=3THEN2400
140 IFF%=4THEN1650
150 IFF%=5ANDF$=""THEN2950
155 IFF%=5THENGOSUB2500:GOSUB2550:GOTO2600
160 IFF%=6ANDSD$=""THEN2950
165 IFF%=6THENGOSUB2500:GOSUB2550:GOTO2640
170 IFF%=7ANDQ$(1)=""THEN2950
175 IFF%=7THENGOSUB2500:GOTO2650
180 IFF%=8ANDRQ$(1)=""THEN2950
185 IFF%=8THENGOSUB2500:GOTO2680
190 IFF%=9THEN3000
192 IFF%<>10THEN45
200 PRINT"[147][204] [154]- [204][207][193][196][211][212][193][210]
202 [153]"(null) CONT- (null)ENU
204 PRINT"[209] [154]- [209]UIT TO [194][193][211][201][195]
210 [161]W$:[139]W$[178]""[167]210
220 [139]W$[178]"L"[167]245
225 [139]W$[178]"M"[167][141]2500:[137]35
230 [139]W$[178]"Q"[167][153]"LOAD":[151]53280,14:[151]53281,6:[151]646,14:[162]
235 [137]210
245 [141]2500:[141]2975:[153][199](147):[137]60000
249 :
250 [158]M[170]15,0,39,0,22,102,14
255 N[178]0:F$[178]"":SD$[178]"***":[151]646,3:[141]2500:
260 [153][163]91)"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
265 PRINTTAB(11)"[221]  [198]ILE [197]NTRIES  [221]
270 [153][163]11)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
275 PRINTTAB(164)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
280 PRINTTAB(4)"[221] [198]ILE [206]AME...=                 [221]
285 [153][163]4)"(null) (null)UB DIV.NAME=***              (null)
290 PRINTTAB(4)"[221] #[212]EAMS(4-11)=                 [221]
295 [153][163]4)"(null) VALXIT                          (null)
300 PRINTTAB(4)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
305 [158]M[170]27,24," VALNTER/(null)VAL(null)(null)(null)(null) ATN(null)STR$ (null)(null)/STR$(null)(null)(null)/(null)VAL(null)(null)(null)(null) "
310 [129]I[178]1[164]2:[158]M[170]24,19,I[170]10,""
315 [158]M[170]66,1,1,16:[139]W$[178]""[167]315
320 [141]2500
325 [139]I[178]1[167]F$[178]W$
330 [139]I[178]2[167]SD$[178]W$
332 [130]
335 [158]M[170]24,19,13,"":[158]M[170]66,1,1,2
337 [139]W$[178]""[167]335
338 N[178][197](W$)
340 [139]N[179]4[167]335
342 [139]N[177]11[167][158]M[170]15,19,21,13,13,160,0:[137]335
344 [141]2500:[158]M[170]48,11,5,18,4,3,1,0
345 [153][163]19)
346 [139]F%[178]1[167][158]M[170]66,1,1,16:F$[178]W$:[137]344
347 [139]F%[178]2[167][158]M[170]66,1,1,16:SD$[178]W$:[137]344
348 [139]F%[178]3[167][158]M[170]24,19,13,"":[158]M[170]66,1,1,2:N[178][197](W$):[139]N[179]4[167]348
349 [139]F%[178]3[175]N[177]11[167][158]M[170]24,19,13,"  ":[137]348
350 [139]F%[178]3[167]344
351 [141]2500
352 :
355 [158]M[170]15,1,39,0,22,102,14:[151]646,3
360 [153][163]50)"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
365 PRINTTAB(10)"[221][197]NTER [212]EAM [206]AMES [221]
370 [153][163]10)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
371 IFN=4THENTB=160:TN=4
372 IFN=5THENTB=120:TN=3
373 IFN=6THENTB= 80:TN=2
374 IFN=7THENTB=80:TN= 2
375 IFN=8THENTB=40:TN=1
376 IFN=9THENTB=40:TN=1
377 IFN=10THENTB=40:TN=1
378 IFN=11THENTB=0:TN=0
380 PRINTTAB(80):PRINTTAB(TB)
385 PRINTTAB(8)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
390 [129]I[178]1[164]N:[153][163]8)"(null)  ";TN$(I);"         (null)":[130]
395 [153][163]8)"(null)  VALXIT (null)AMES         (null)
400 PRINTTAB(8)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
410 [158]M[170]27,24," VALNTER/(null)VAL(null)(null)(null)(null) ATN(null)STR$ (null)(null)/STR$(null)(null)(null)/(null)VAL(null)(null)(null)(null) "
412 [129]I[178]1[164]N:[158]M[170]24,21,6[170]I[170]TN,""
415 [158]M[170]66,1,1,7:[139]W$[178]""[167]415
420 [141]3600:Q$(I)[178]W$:[141]2500:[130]
425 [158]M[170]48,7[170]TN,11,20,N[170]1,3,1,0
430 [139]F%[178]N[170]1[175]Q$(N)[177]""[167]446
435 [153][163]21):[158]M[170]66,1,1,7:[139]W$[178]""[167]435
440 [141]3600:Q$(F%)[178]W$:[141]2500
442 [137]425
445 :
446 [141]2500:[158]M[170]15,1,39,0,22,102,14:[153][163]45)"OPEN"
450 [153][163]10)"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
455 PRINTTAB(10)"[221] [159]# [207]F [199]AMES [197]NTRY  [221]
460 [153][163]10)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
462 PRINTTAB(123)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
465 [153][163]3)"(null)SYS# (null)OURN.  VALACH-TEAM  (null)OTAL-GAMESOPEN(null)"
470 [153][163]3)"OPEN(null)                                (null)"
475 [139]N[178]4[167][141]600:RX[178]7
480 [139]N[178]5[167][141]650:RX[178]6
490 [139]N[178]6[167][141]700:RX[178]5
500 [139]N[178]7[167][141]750:RX[178]4
510 [139]N[178]8[167][141]800:RX[178]3
520 [139]N[178]9[167][141]850:RX[178]3
530 [139]N[178]10[167][141]900:RX[178]2
540 [139]N[178]11[167][141]950:RX[178]2
550 [153][163]3)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
560 [158]M[170]27,24,"    LEN(null)(null)(null) (null)(null)/STR$(null)(null)(null)  (null)VAL(null)(null)(null)(null)=VALNTER   "
570 [141]3800
575 [158]M[170]48,11,6,33,RX,3,1,0:PC[178]F%:[141]2500
585 [137]1400
599 :
600 [143] N=4
605 [153][163]3)"(null)     1         3         6      (null)
610 PRINTTAB(3)"[221]     2         6         12     [221]
615 [153][163]3)"(null)     3         9         18     (null)
620 PRINTTAB(3)"[221]     4         12        24     [221]
630 [153][163]3)"(null)     5         15        30     (null)
635 PRINTTAB(3)"[221]     6         18        36     [221]
640 [153][163]3)"(null)     7         21        42     (null)":[142]
650 [143] N=5
655 [153][163]3)"(null)     1         4         10     (null)
660 PRINTTAB(3)"[221]     2         8         20     [221]
665 [153][163]3)"(null)     3         12        30     (null)"
670 [153][163]3)"(null)     4         16        40     (null)
675 PRINTTAB(3)"[221]     5         20        50     [221]
680 [153][163]3)"(null)     6         24        60     (null)":[142]
700 [143] N=6
710 [153][163]3)"(null)     1         5         15     (null)
720 PRINTTAB(3)"[221]     2         10        30     [221]
730 [153][163]3)"(null)     3         15        45     (null)
740 PRINTTAB(3)"[221]     4         20        60     [221]
745 [153][163]3)"(null)     5         25        75     (null)":[142]
750 [143] N=7
755 [153][163]3)"(null)     1         6         21     (null)
760 PRINTTAB(3)"[221]     2         12        42     [221]
770 [153][163]3)"(null)     3         18        63     (null)
780 PRINTTAB(3)"[221]     4         24        84     [221]":RETURN
800 REM N=8
810 PRINTTAB(3)"[221]     1         7         28     [221]
820 [153][163]3)"(null)     2         14        56     (null)
840 PRINTTAB(3)"[221]     3         21        84     [221]
845 [153][163]3)"(null)                                (null)":[142]
850 [143] N=9
860 [153][163]3)"(null)     1         8         36     (null)
870 PRINTTAB(3)"[221]     2         16        72     [221]
875 [153][163]3)"(null)     3         24        108    (null)
885 PRINTTAB(3)"[221]                                [221]":RETURN
900 REM N=10
910 PRINTTAB(3)"[221]     1         9          45    [221]
930 [153][163]3)"(null)     2         18         90    (null)
940 PRINTTAB(3)"[221]                                [221]":RETURN
950 REM N=11
960 PRINTTAB(3)"[221]     1         10         55    [221]
970 [153][163]3)"(null)     2         20         110   (null)
980 PRINTTAB(3)"[221]                                [221]":RETURN
998 :
999 REM PERM TABLE
1000 D1(1)=1:D2(1)=3:D1(2)=4:D2(2)=2:D1(3)=3:D2(3)=4:D1(4)=1:D2(4)=2
1010 D1(5)=2:D2(5)=3:D1(6)=4:D2(6)=1
1020 F1(1)=3:F2(1)=4:F1(2)=1:F2(2)=2:F1(3)=1:F2(3)=5:F1(4)=2:F2(4)=3
1030 F1(5)=3:F2(5)=1:F1(6)=4:F2(6)=5:F1(7)=5:F2(7)=2:F1(8)=4:F2(8)=1:F1(9)=2
1040 F2(9)=4:F1(10)=5:F2(10)=3
1050 G1(1)=1:G2(1)=2:G1(2)=4:G2(2)=3:G1(3)=6:G2(3)=5:G1(4)=3:G2(4)=6:G1(5)=2
1055 G2(5)=5:G1(6)=1:G2(6)=4:G1(7)=5:G2(7)=4:G1(8)=3:G2(8)=1
1060 G1(9)=6:G2(9)=2:G1(10)=2:G2(10)=4:G1(11)=6:G2(11)=1:G1(12)=5
1065 G2(12)=3:G1(13)=1:G2(13)=5:G1(14)=4:G2(14)=6:G1(15)=2:G2(15)=3
1070 M1(1)=5:M2(1)=2:M1(2)=4:M2(2)=1:M1(3)=3:M2(3)=7:M1(4)=1:M2(4)=3
1075 M1(5)=2:M2(5)=4:M1(6)=6:M2(6)=5:M1(7)=6:M2(7)=1:M1(8)=5:M2(8)=7
1080 M1(9)=4:M2(9)=3:M1(10)=7:M2(10)=4:M1(11)=1:M2(11)=5:M1(12)=2:M2(12)=6
1085 M1(13)=2:M2(13)=7:M1(14)=6:M2(14)=3:M1(15)=5:M2(15)=4:M1(16)=3:M2(16)=5
1090 M1(17)=7:M2(17)=6:M1(18)=1:M2(18)=2:M1(19)=4:M2(19)=6:M1(20)=3:M2(20)=2
1095 M1(21)=7:M2(21)=1
1100 Q1(1)=5:Q2(1)=8:Q1(2)=4:Q2(2)=3:Q1(3)=2:Q2(3)=6:Q1(4)=1:Q2(4)=7:Q1(5)=2
1105 Q2(5)=8:Q1(6)=6:Q2(6)=4:Q1(7)=5:Q2(7)=1:Q1(8)=3:Q2(8)=7:Q1(9)=6:Q2(9)=1
1110 Q1(10)=7:Q2(10)=5:Q1(11)=8:Q2(11)=3:Q1(12)=2:Q2(12)=4:Q1(13)=7:Q2(13)=2
1115 Q1(14)=1:Q2(14)=8:Q1(15)=5:Q2(15)=4:Q1(16)=3:Q2(16)=6:Q1(17)=5:Q2(17)=3
1120 Q1(18)=8:Q2(18)=6:Q1(19)=4:Q2(19)=7:Q1(20)=1:Q2(20)=2:Q1(21)=4:Q2(21)=1
1125 Q1(22)=3:Q2(22)=2:Q1(23)=7:Q2(23)=8:Q1(24)=6:Q2(24)=5:Q1(25)=7:Q2(25)=6
1130 Q1(26)=2:Q2(26)=5:Q1(27)=3:Q2(27)=1:Q1(28)=8:Q2(28)=4
1140 U1(1)=3:U2(1)=2:U1(2)=7:U2(2)=4:U1(3)=9:U2(3)=1:U1(4)=5:U2(4)=8:U1(5)=8
1145 U2(5)=4:U1(6)=5:U2(6)=3:U1(7)=9:U2(7)=6:U1(8)=2:U2(8)=7:U1(9)=6:U2(9)=7
1150 U1(10)=3:U2(10)=9:U1(11)=4:U2(11)=5:U1(12)=1:U2(12)=8:U1(13)=3:U2(13)=1
1155 U1(14)=8:U2(14)=6:U1(15)=5:U2(15)=2:U1(16)=9:U2(16)=7:U1(17)=2:U2(17)=9
1160 U1(18)=6:U2(18)=5:U1(19)=3:U2(19)=8:U1(20)=4:U2(20)=1:U1(21)=4:U2(21)=6
1165 U1(22)=1:U2(22)=2:U1(23)=8:U2(23)=7:U1(24)=5:U2(24)=9:U1(25)=7:U2(25)=5
1170 U1(26)=2:U2(26)=8:U1(27)=1:U2(27)=6:U1(28)=4:U2(28)=3:U1(29)=8:U2(29)=9
1175 U1(30)=7:U2(30)=1:U1(31)=2:U2(31)=4:U1(32)=6:U2(32)=3:U1(33)=1:U2(33)=5
1180 U1(34)=9:U2(34)=4:U1(35)=7:U2(35)=3:U1(36)=6:U2(36)=2
1190 V1(1)=5:V2(1)=7:V1(2)=9:V2(2)=6:V1(3)=10:V2(3)=2:V1(4)=8:V2(4)=1:V1(5)=3
1195 V2(5)=4:V1(6)=1:V2(6)=9:V1(7)=7:V2(7)=10:V1(8)=6:V2(8)=3:V1(9)=4:V2(9)=5
1200 V1(10)=2:V2(10)=8:V1(11)=3:V2(11)=2:V1(12)=4:V2(12)=8:V1(13)=1:V2(13)=5
1205 V1(14)=6:V2(14)=10:V1(15)=9:V2(15)=7:V1(16)=7:V2(16)=8:V1(17)=3:V2(17)=1
1210 V1(18)=4:V2(18)=10:V1(19)=9:V2(19)=2:V1(20)=6:V2(20)=5:V1(21)=6:V2(21)=4
1215 V1(22)=5:V2(22)=2:V1(23)=3:V2(23)=9:V1(24)=10:V2(24)=8:V1(25)=7:V2(25)=1
1220 V1(26)=10:V2(26)=1:V1(27)=8:V2(27)=9:V1(28)=7:V2(28)=6:V1(29)=5:V2(29)=3
1225 V1(30)=4:V2(30)=2:V1(31)=9:V2(31)=5:V1(32)=10:V2(32)=3:V1(33)=2:V2(33)=1
1230 V1(34)=7:V2(34)=4:V1(35)=8:V2(35)=6:V1(36)=8:V2(36)=3:V1(37)=2:V2(37)=7
1235 V1(38)=9:V2(38)=4:V1(39)=1:V2(39)=6:V1(40)=5:V2(40)=10:V1(41)=2:V2(41)=6
1240 V1(42)=1:V2(42)=4:V1(43)=5:V2(43)=8:V1(44)=3:V2(44)=7:V1(45)=10:V2(45)=9
1250 S1(1)=5:S2(1)=9:S1(2)=4:S2(2)=11:S1(3)=6:S2(3)=1:S1(4)=2:S2(4)=8:S1(5)=3
1255 S2(5)=7:S1(6)=8:S2(6)=3:S1(7)=2:S2(7)=6:S1(8)=1:S2(8)=11:S1(9)=9:S2(9)=4
1260 S1(10)=10:S2(10)=5:S1(11)=10:S2(11)=11:S1(12)=6:S2(12)=5:S1(13)=4
1265 S2(13)=8:S1(14)=1:S2(14)=7:S1(15)=2:S2(15)=3:S1(16)=7:S2(16)=2:S1(17)=8
1267 S2(17)=1:S1(18)=6:S2(18)=4
1270 S1(19)=11:S2(19)=5:S1(20)=9:S2(20)=10:S1(21)=9:S2(21)=6:S1(22)=10
1275 S2(22)=8:S1(23)=5:S2(23)=7:S1(24)=4:S2(24)=3:S1(25)=1:S2(25)=2:S1(26)=3
1280 S2(26)=1:S1(27)=7:S2(27)=4:S1(28)=8:S2(28)=5:S1(29)=6:S2(29)=10
1285 S1(30)=9:S2(30)=11:S1(31)=11:S2(31)=8:S1(32)=7:S2(32)=9:S1(33)=10
1290 S2(33)=3:S1(34)=5:S2(34)=2:S1(35)=4:S2(35)=1:S1(36)=2:S2(36)=4:S1(37)=3
1295 S2(37)=5:S1(38)=10:S2(38)=7:S1(39)=8:S2(39)=9:S1(40)=11:S2(40)=6:S1(41)=6
1300 S2(41)=7:S1(42)=11:S2(42)=3:S1(43)=9:S2(43)=2:S1(44)=1:S2(44)=10:S1(45)=5
1305 S2(45)=4:S1(46)=5:S2(46)=1:S1(47)=2:S2(47)=10:S1(48)=3:S2(48)=9:S1(49)=7
1310 S2(49)=11:S1(50)=8:S2(50)=6:S1(51)=4:S2(51)=10:S1(52)=1:S2(52)=9:S1(53)=11
1315 S2(53)=2:S1(54)=3:S2(54)=6:S1(55)=7:S2(55)=8
1320 RETURN
1330 :
1400 P=N*(N-1)/2:G=PC*P:T%=(40-LEN(F$))/2:Z=1:I=0:Y=0:PRINT"[159]"
1405 SYSM+15,1,39,0,22,102,14:SYSM+15,8,34,10,16,255,0
1415 PRINTTAB(54)" [197]NTER #     "
1425 PRINTTAB(48)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
1430 [153][163]8)"(null)SYS(null)EAMSOPEN                   (null)
1435 PRINTTAB(8)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
1440 [158]M[170]24,8,8," (null)ON STR$A (null)EEK CHR$AME   ASCIELD  WAIT
1450 SYSM+24,8,9," TH  TE DAY  [212]IME   [211]ITE   [146]
1460 [129]Y[178]1[164]P:I[178]I[170]1:[153][199](141)
1470 [151]646,3
1480 [139]N[178]4[167][158]M[170]24,15,4,"":[153]Q$(D1(Y));" VS "Q$(D2(Y))
1490 [139]N[178]5[167][158]M[170]24,15,4,"":[153]Q$(F1(Y));" VS ";Q$(F2(Y))
1500 [139]N[178]6[167][158]M[170]24,15,4,"":[153]Q$(G1(Y));" VS ";Q$(G2(Y))
1510 [139]N[178]7[167][158]M[170]24,15,4,"":[153]Q$(M1(Y));" VS ";Q$(M2(Y))
1520 [139]N[178]8[167][158]M[170]24,15,4,"":[153]Q$(Q1(Y));" VS ";Q$(Q2(Y))
1530 [139]N[178]9[167][158]M[170]24,15,4,"":[153]Q$(U1(Y));" VS ";Q$(U2(Y))
1540 [139]N[178]10[167][158]M[170]24,15,4,"":[153]Q$(V1(Y));" VS ";Q$(V2(Y))
1550 [139]N[178]11[167][158]M[170]24,15,4,"":[153]Q$(S1(Y));" VS ";Q$(S2(Y))
1552 [158]M[170]27,24,"      [VALNTER DATA]/(null)VAL(null)(null)(null)(null)    "
1555 [158]M[170]24,22,1,"OPEN":[153]I
1557 [158]M[170]24,8,19,"OPENORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
1560 IFNAND1THENSYSM+24,8,20,"[221][199]AME [212]IME = [206]ORMAL [197]NTRY[221]
1565 [139][168]N[175]1[175][168]Z[175]1[167][158]M[170]24,8,20,"(null)CHR$AME (null)IME = (null)EVERSEOPEN (null)IME(null)
1570 IFNOTNAND1ANDZAND1THENSYSM+24,8,20,"[221][199]AME TIME = [206]ORMAL ENTRY[221]
1575 [158]M[170]24,8,21,"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
1580 SYSM+36,8,32,10,16,1
1585 SYSM+39,0,0:PRINTTAB(9)
1588 GOSUB3800:B=0
1590 SYSM+66,1,1,24:IFW$="_"THENB=1:GOSUB3200
1592 IFW$="(BYE)"THENRQ$(I)=W$:GOTO1630
1594 IFW$=""THEN1590
1596 IFB=1THENRQ$(I)=W1$+W$:GOSUB2500:GOTO1610
1598 IFB=0THENRQ$(I)=W$:GOSUB2500
1610 IFY=PTHENY=0:Z=Z+1
1615 IFI=GTHEN1630
1620 NEXT
1630 SYSM+24,9,16,"[159]SCHEDULE COMPLETE     "
1640 FORW=1TO1500:NEXT:SYSM+15,1,39,3,22,102,14:GOTO35
1645 :
1650 PRINTCHR$(147):GOSUB2500:GOSUB4500
1651 IFN=0THENPRINTTAB(240)TAB(166)"[158] [206]O DATA IN MEMORY TO PRINT!
1653 [139]N[178]0[167][129]W[178]1[164]2000:[130]:[137]35
1655 P[178]N[172](N[171]1)[173]2:PC[178]G[173]P:[153][199](147)
1656 [158]M[170]15,0,39,1,5,102,14:[153]:[153]
1657 [153][163]5)"                              "
1660 [153][163]5)" (null)(null)(null)(null)STR$ (null)(null)PEEKRIGHT$(null) (null)CHEDULE (null)RINTER "
1663 [153][163]5)"                              ":[153]""
1665 [153]"OPEN(null)URN ON PRINTER & SET PAPER EDGE 3/4    INCH ABOVE PRINT HEAD.
1670 PRINT:PRINT"[201]F YOUR PRINTER HAS THE CAPABILITY, SET FONT TO SANSERIF ";
1675 PRINT "AND PITCH TO 10 CPI.":PRINT
1680 PRINT"[196]O YOU WANT THE SUB-DIVISION TITLE      PRINTED (Y/N)?":PRINT
1685 GOSUB3800:SYSM+66,3,3,1:GOSUB2500:PRINT:GOSUB4500
1687 IFW$="Y"OR W$="N"THEN1690
1689 PRINTCHR$(145)CHR$(157):GOTO1685
1690 PRINT:PRINT"[158][200]IT ANY  KEY TO START PRINTER
1700 [161]J1$:[139]J1$[178]""[167]1700
1705 [141]2500:[159]4,4:[157]4
1720 T%[178](80[171][195](F$))[173]2:U%[178](80[171][195](SD$))[173]2
1730 [153][163]T%)F$:[153]
1740 [139]W$[178]"Y"[167][153][163]U%)SD$:[153]:[153]
1750 I[178]0:Z[178]1:L[178]20
1760 [129]Y[178]1[164]P:I[178]I[170]1
1770 [139]RQ$(I)[178]"(BYE)"[167]1970
1780 [139]Z[175]1[175]N[178]4[167][153][166]L)Q$(D1(Y));" VS ";Q$(D2(Y));".";RQ$(I)
1785 [139][168]Z[175]1[175]N[178]4[167][153][166]L)Q$(D2(Y));" VS ";Q$(D1(Y));".";RQ$(I)
1790 [139]Z[175]1[175]N[178]5[167][153][166]L)Q$(F1(Y));" VS ";Q$(F2(Y));".";RQ$(I)
1795 [139][168]Z[175]1[175]N[178]5[167][153][166]L)Q$(F2(Y));" VS ";Q$(F1(Y));".";RQ$(I)
1800 [139]Z[175]1[175]N[178]6[167][153][166]L)Q$(G1(Y));" VS ";Q$(G2(Y));".";RQ$(I)
1805 [139][168]Z[175]1[175]N[178]6[167][153][166]L)Q$(G2(Y));" VS ";Q$(G1(Y));".";RQ$(I)
1810 [139]Z[175]1[175]N[178]7[167][153][166]L)Q$(M1(Y));" VS ";Q$(M2(Y));".";RQ$(I)
1815 [139][168]Z[175]1[175]N[178]7[167][153][166]L)Q$(M2(Y));" VS ";Q$(M1(Y));".";RQ$(I)
1820 [139]Z[175]1[175]N[178]8[167][153][166]L)Q$(Q1(Y));" VS ";Q$(Q2(Y));".";RQ$(I)
1825 [139][168]Z[175]1[175]N[178]8[167][153][166]L)Q$(Q2(Y));" VS ";Q$(Q1(Y));".";RQ$(I)
1830 [139]Z[175]1[175]N[178]11[167][153][166]L)Q$(S1(Y));" VS ";Q$(S2(Y));".";RQ$(I)
1835 [139][168]Z[175]1[175]N[178]11[167][153][166]L)Q$(S2(Y));" VS ";Q$(S1(Y));".";RQ$(I)
1840 [139]Z[175]1[175]N[178]10[167][153][166]L)Q$(V1(Y));" VS ";Q$(V2(Y));".";RQ$(I)
1845 [139][168]Z[175]1[175]N[178]10[167][153][166]L)Q$(V2(Y));" VS ";Q$(V1(Y));".";RQ$(I)
1850 [139]Z[175]1[175]N[178]9[167][153][166]L)Q$(U1(Y));" VS ";Q$(U2(Y));".";RQ$(I)
1860 [139][168]Z[175]1[175]N[178]9[167][153][166]L)Q$(U2(Y));" VS ";Q$(U1(Y));".";RQ$(I)
1890 [139][200](RQ$(I[170]1),9)[179][177][200](RQ$(I),9)[167][153]:[137]1900
1895 [137]1955
1900 [139]I[178]G[167]1970
1905 [139]N[179]8[175]I[178]30[167]1930
1907 [139]N[179]8[175]I[178]60[167]1930
1910 [139]N[177]7[175]N[179]10[175]I[178]36[167]1930
1912 [139]N[177]7[175]N[179]10[175]I[178]72[167]1930
1915 [139]N[177]9[175]I[178]40[167]1930
1917 [139]N[177]9[175]I[178]80[167]1930
1925 [137]1955
1930 [139]N[178]11[167]KV[178]13
1932 [139](N[178]8)[176](N[178]9)[176](N[178]10)[167]KV[178]15
1933 [139]N[178]4[167]KV[178]18
1935 [139](N[178]5)[176](N[178]6)[176](N[178]7)[167]KV[178]22
1940 [129]J[178]1[164]KV:[153]:[130]
1942 T%[178](66[171][195](F$))[173]2
1945 [153][163]T%)F$;" (CONTINUED)":[153]
1955 [139]I[178]G[167]1970
1960 [139]Y[178]P[167]Z[178]Z[170]1:Y[178]0
1965 [130]
1970 [152]4:[160]4:[137]35
1975 :
2100 [153][199](147):[141]2500:[141]2975
2115 [153]"LOAD":[151]53281,0:[151]53280,0:[151] 788,52
2120 [158]M[170]27,0,"(null)ISTING SCHEDULE FILES
2125 SYSM+27,24,"[158][211][212][207][208] KEY = ABORT TO MENU
2130 [158]M[170]15,0,39,2,22,102,14:[158]M[170]15,9,28,4,18,255,6
2135 [158]M,"$:RR.*=S",DV,217[172]256,10,3,11,3,1:[141]2500:[153]
2136 [139]F$[178]""[167][153][199](147)[163]250)[163]173)
2140 [139]F$[178]""[167][153]"SYSASCILES NOT FOUND!":[137]2192
2145 [153][199](147):[153][163]9)"LOADING ";[202](F$,4);" FILE" :[153]
2147 [129]I[178]1[164]110:RQ$(I)[178]"":[130]
2150 [160]15:[159]15,DV,15,"I"
2155 [159]2,DV,2,"0:"[170]F$[170]",S,R:F$=MID$(F$,4)
2160 INPUT#2,F$:PRINTTAB(9)F$
2165 INPUT#2,N:PRINTTAB(8)N
2170 FORJ=1TON:INPUT#2,Q$(J):PRINTTAB(9)Q$(J):NEXT
2175 INPUT#2,G:PRINTTAB(8)G
2180 FORT=1TOG:INPUT#2,RQ$(T):PRINTTAB(9)RQ$(T):NEXT
2185 INPUT#2,SD$:PRINTTAB(9)SD$:PRINT
2190 PRINTTAB(8)" FILE LOAD COMPLETE
2192 [160]2:[160]15:[153]
2195 [151]788,49:[129]W[178]1[164]1500:[130]:[137]35
2200 :
2400 [153][199](147):[141]2975:[141]2500:[153]
2405 [139]N[178]0[167][158]M[170]24,5,11,"SYS NO FILE DATA IN MEMORY TO SAVE":[137]2480
2410 [158]M[170]42,"S0:RR."[170]F$,DV
2411 [139][197](E$)[179][177]1[167][158]M[170]27,[194](214),E$:[160]15:[151]198,0:[146]198,15:[137]35
2415 [159] 2,DV,2,"0:RR."[170]F$[170]",S,W"
2425 [153][163]8)"OPEN SAVING ";F$;" FILE":[153]
2435 [152]2,F$:[153][163]9)F$
2440 [152]2,N:[153][163]8)N
2445 [129]J[178]1[164]N:[152]2,Q$(J):[153][163]9)Q$(J):[130]
2450 [152]2,G:[153][163]8)G
2460 [129]T[178]1[164]G:[152]2,QT$[170]RQ$(T):[153][163]9)RQ$(T):[130]
2465 [152]2,SD$:[153][163]9)SD$
2475 [153][163]13)"(null)AVE COMPLETE
2477 CLOSE2:SYSM+42,"",DV:CLOSE15:PRINT"":SYSM+27,PEEK(214),E$
2480 POKE198,0:WAIT198,15:POKE198,0:GOTO35
2490 :
2500 SYSM+69:S=54272:FORK=S+1 TO S+24:POKEK,0:NEXT
2510 POKES+24,15:POKES+1,90:POKES+5,15:POKES+4,33
2515 FORK=1TO60:NEXT
2520 POKES+4,32:RETURN
2530 :
2550 SYSM+15,0,39,1,1,160,13
2560 SYSM+15,4,35,5,17,160,13:SYSM+72,5,34,6,16
2570 SYSM+27,24,"     [197]NTER [196]ATA/[210][197][212][213][210][206]     "
2580 PRINT"[153]";:SYSM+27,1,"[195]HANGE [206]AMES":PRINT
2585 SYSM+72,6,33,7,15
2590 SYSM+15,7,32,10,11,160,0
2595 RETURN
2599 :
2600 PRINTTAB(247)TAB(167)"[159][198]ILE [206]AME=";F$
2610 PRINTTAB(7)"[206]EW [206]AME =";
2620 SYSM+66,1,1,16:F$=W$:IFF$=""ORF$=CHR$(32)THEN2620
2630 GOSUB2500:SYSM+15,1,39,3,22,102,14:GOTO35
2635 :
2640 PRINTTAB(247)TAB(167)"[159][211]UB [198]ILE=";SD$
2645 PRINTTAB(7)"NEW SUB =";
2646 SYSM+66,1,1,16:SD$=W$:IFW$=""ORW$=CHR$(32)THEN2646
2648 GOSUB2500:SYSM+15,1,39,3,22,102,14:GOTO35
2649 :
2650 SYSM+15,0,39,3,22,102,14:SYSM+15,0,39,1,1,160,13:PRINT"[153]";
2652 SYSM+27,1,"[195]HANGE [206]AMES":PRINT
2653 SYSM+15,6,33,5,11+N,160,13:SYSM+72,7,32,6,10+N:SYSM+15,8,31,7,9+N,160,0
2655 SYSM+24,1,8,"":F%=0
2660 FORI=1TON:PRINTTAB(11)"[159]";TN$(I);" ";Q$(I):NEXT:PRINTTAB(11)"[197]XIT [206]AMES"
2662 REM  SYSM+27,24," [195]URSOR/[210][197][212][213][210][206] TO SELECT"
2663 GOSUB3800
2665 SYSM+48,8,11,20,N+1,3,1,0:GOSUB2672:PRINTTAB(22)
2668 SYSM+66,1,1,7:IFW$=""THEN2668
2670 GOSUB3600:Q$(F%)=W$:GOSUB2500:GOTO2665
2672 IFF%=N+1THENGOSUB2500:SYSM+15,1,39,3,22,102,14:GOTO35
2675 RETURN
2679 :
2680 SYSM+15,0,39,0,22,102,14
2685 P=N*(N-1)/2:I=0:Y=0:
2695 SYSM+27,24,"     [[197]NTER DATA]/[210][197][212][213][210][206]     "
2700 SYSM+15,7,33,12,19,255,0
2710 PRINTTAB(53)"[159][176][192][192][192][192][192][192][192][192][192][192][192][174]
2715 [153][163]13)"OPEN(null)(null)INE #  OPEN   (null)
2720 PRINTTAB(13)"[173][192][192][192][192][192][192][192][192][192][192][192][189]
2725 [153][163]47)"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
2730 PRINTTAB(7)"[221][158][212]EAMS[159]                   [221]
2732 [153][163]7)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
2735 SYSM+24,7,10," [205]ON [196]A [215]EEK [199]AME   [198]IELD  [146]
2740 [158]M[170]24,7,11," TH  TE STR$AY  (null)IME   (null)ITE   WAIT
2743 FORL=1TO2:SYSM+24,7,11+L,"[221]":SYSM+24,33,11+L,"[221]":NEXT
2745 SYSM+24,7,14,"[163]":SYSM+24,33,14,"[163]"
2750 FORY=1TOP:I=I+1
2755 POKE646,3
2760 IFN=4THENSYSM+24,13,6," ":PRINTQ$(D1(Y));" VS ";Q$(D2(Y))
2765 IFN=5THENSYSM+24,13,6," ":PRINTQ$(F1(Y));" VS ";Q$(F2(Y))
2770 IFN=6THENSYSM+24,13,6," ":PRINTQ$(G1(Y));" VS ";Q$(G2(Y))
2775 IFN=7THENSYSM+24,13,6," ":PRINTQ$(M1(Y));" VS ";Q$(M2(Y))
2780 IFN=8THENSYSM+24,13,6," ":PRINTQ$(Q1(Y));" VS ";Q$(Q2(Y))
2785 IFN=9THENSYSM+24,13,6," ":PRINTQ$(U1(Y));" VS ";Q$(U2(Y))
2790 IFN=10THENSYSM+24,13,6," ":PRINTQ$(V1(Y));" VS ";Q$(V2(Y))
2795 IFN=11THENSYSM+24,13,6," ":PRINTQ$(S1(Y));" VS ";Q$(S2(Y))
2800 SYSM+24,20,2,"   ":SYSM+24,20,2,"":PRINT(I)
2805 DD=LEN(RQ$(I)):FF=24-DD
2807 SYSM+15,8,8+FF+DD,12,12,160,0
2810 SYSM+24,8,12,"":PRINTRQ$(I)
2820 SYSM+36,8,31,12,18,1:POKE646,13:REM SCROLL
2825 SYSM+39,0,0:GOSUB3800
2830 SYSM+24,8,12,"":SYSM+66,1,1,24
2835 IFW$=""THEN 2865
2840 RQ$(I)=W$:CC=24-LEN(W$)
2845 FORK=1TOCC:W$=W$+CHR$(32):NEXT
2850 SYSM+24,8,13,"":PRINTW$
2855 W$="":IFI<GTHENGOSUB2500
2865 IF I=G THEN 2910
2890 IFY=PTHENY=0
2900 NEXT
2910 SYSM+24,8,18,"[158][210]ETURNING [212]O [205]ENU       "
2915 SYSM+24,8,12,"[159]    -[204]AST [197]NTRY-        "
2920 GOSUB2500:GOTO2955
2950 PRINTCHR$(147)TAB(240)TAB(214)"[206]O [198]ILE [196]ATA"
2955 FORW=1TO2000:NEXT: SYSM+15,1,39,3,22,102,14:GOTO35
2960 :
2975 CLOSE15:OPEN15,DV,15:CLOSE15
2985 IFST<>0THENPRINT"[147]";TAB(255)TAB(253) "DRIVE NOT ON
2990 [139]ST[179][177]0[167][129]W[178]1[164]2000:[130]:[137]35
2995 [142]
2999 :
3000 [141]2500:[141]2975:[158]40704[170]7,208[172]256,216[172]256,49152
3010 [151]186,DV:[158]49152,"T.RR HELP","(null) (null) (null) (null) STR$   (null) (null) PEEK RIGHT$ (null)   LEFT$ VAL (null) (null)"
3015 [158]40704[170]7,208[172]256,216[172]256,49152
3020 [141]2500:[137]35
3030 :
3200 W$[178]"":[139]I[177]1[167][158]M[170]24,9,10,"":W1$[178][200](RQ$(I[171]1),11):[153]W1$
3210 [139]I[177]1[167][158]M[170]24,20,10,"":[158]M[170]66,1,1,13
3215 [139]I[178]1[167][151]211,9
3220 [142]
3400 [129]I[178]1[164]11:[135]TN$(I):[130]
3405 [131]"(null)EAM # 01=
3410 DATA"[212]EAM # 02=
3415 [131]"(null)EAM # 03=
3420 DATA"[212]EAM # 04=
3425 [131]"(null)EAM # 05=
3430 DATA"[212]EAM # 06=
3455 [131]"(null)EAM # 07=
3460 DATA"[212]EAM # 08=
3465 [131]"(null)EAM # 09=
3470 DATA"[212]EAM # 10=
3475 [131]"(null)EAM # 11=
3480 RETURN
3485 :
3600 REM ADD PERIODS TO W$
3610 IR=7-LEN(W$)
3620 IFIR=0THENRETURN
3630 FORJ=1TOIR
3640 W$=W$+CHR$(46)
3650 IFJ=IRTHENRETURN
3660 NEXT
3670 :
3800 GETJUNK$:IFJUNK$<>""THEN3800
3810 RETURN
3815 :
3999 REM MAIN MENU
4000 PRINTCHR$(147)CHR$(14):POKE53280,0:POKE53281,0
4010 SYSM+15,0,39,3,22,160,7:SYSM+15,1,38,4,21,102,14:SYSM+72,7,31,7,18
4020 SYSM+15,0,39,1,1,160,13:SYSM+15,0,39,0,0,100,1:SYSM+15,0,39,2,2,99,5
4040 PRINT"[153]";:SYSM+27,1,"[210][207][213][206][196][160][210][207][194][201][206] [211][195][200][197][196][213][204][197] [199][197][206][197][210][193][212][207][210]     "
4080 SYSM+24,8,6,"[159]                         "
4090 SYSM+24,8,7,"  [204]OAD [211]CHEDULE [198]ILE     "
4100 SYSM+24,8,8,"  [199]ENERATE [211]CHEDULE      "
4110 SYSM+24,8,9,"  [211]AVE [211]CHEDULE          "
4115 SYSM+24,8,10,"  [208]RINT [211]CHEDULE         "
4120 SYSM+24,8,11,"  [195]HANGE [198]ILE [206]AME       "
4125 SYSM+24,8,12,"  [195]HANGE [211]UB [198]ILE [206]AME   "
4130 SYSM+24,8,13,"  [195]HANGE [212]EAM [206]AMES      "
4135 SYSM+24,8,14,"  [195]HANGE [196]ATES/[212]IMES     "
4145 SYSM+24,8,15,"  [210]EAD [200]ELP [198]ILE         "
4150 SYSM+24,8,16,"  [209]UIT [208]ROGRAM           "
4160 SYSM+24,8,17,"                         [146][158]"
4170 SYSM+27,24,"[195]RSR/[210][197][212][213][210][206] [212]O [211]ELECT"
4180 POKE200,0:SYSM+18,224
4200 RETURN
4205 :
4500 OPEN4,4,7:CLOSE4
4510 IFST=0THENRETURN
4520 PRINTTAB(240)TAB(163)"[208]RINTER IS OFF! [210]ETURNING [212]O [205]ENU!"
4525 FORW=1TO2500:NEXT:GOTO35
5175 :
10000 CLOSE15:OPEN15,8,15,"S0:SCHED-GEN":CLOSE15:SAVE"SCHED-GEN",8:END
60000 A$="HELLO CONNECT":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN60020
60010 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN60030
60020 NEXT:PRINT"[147]":POKE186,8:END
60030 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]"
60040 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
60050 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END