1 POKE55,0:POKE56,56:CLR
10 POKE53280,0:POKE53281,0:PRINTCHR$(14)
12 PRINT"[147][159]           [210]OBIN [200]OOD'S [199]OLD"
15 DIMS(7):FORI=1TO7:READS(I):NEXT
20 DATA 1450,1320,1243,1290,1283,1558,1599
25 DIMTN(7):FORI=1TO7:READTN(I):NEXT
30 DATA 15,9,13,19,13,17,20
35 DIMSN(7,20):FORI=1TO7:FORJ=1TOTN(I):READSN(I,J):NEXT:NEXT
40 DATA -2,-2,-2,-2,-80,2,160,-2,-2,-2,-80,-80,+2,+80,-4
41 DATA 80,2,80,80,2,-80,-4,80,6
42 DATA 320,-2,-240,4,240,-6,-80,-80,8,80,80,80,-8
43 DATA -2,80,-2,-2,-2,80,80,80,-2,-80,-80,4,2,-160,-2,240,-6,80,-2
44 DATA 80,80,-2,-2,160,8,-160,-2,-80,-4,160,2,2
45 DATA 2,2,-80,-2,-80,-80,2,80,2,2,80,80,-2,-80,-160,2,2
46 DATA 4,4,-160,-160,-4,-4,160,-2,80,6,160,2,-240,4,-80,-6,-160,-2,240,2
48 GOTO75
50 SA=14336:HI=INT(SA/256):LO=SA-HI*256
55 SYS57812"ROBIN.FONT",8,0
60 POKE780,0:POKE781,LO:POKE782,HI
65 SYS65493:POKE53272,31
70 POKE147,0:SYS57812"SS",8,1:SYS62631
72 POKE147,0:SYS57812"ROBIN.MUS",8,1:SYS62631
75 CO$="[159][156][158][129][149][150][151][152][153][154]":MS=1
80 DIMA(7,21):FORI=1TO7:FORJ=1TOTN(I)+1:READA(I,J):NEXT:NEXT
82 DATA 1358,2,2,2,72,2,2,2,2,2,2,2,68,2,2,2
84 DATA 1320,80,2,78,2,2,76,2,2,2
86 DATA 1243,78,4,74,8,72,8,72,2,2,2,2,72,8
88 DATA 1284,2,2,2,72,2,2,2,72,2,2,2,72,2,2,2,72,2,2,2
90 DATA 1283,78,2,2,74,2,2,2,2,74,2,2,74,8
92 DATA 1320,2,2,2,2,72,2,2,2,74,2,2,2,72,2,2,2,2
94 DATA 1201,2,76,4,4,76,6,68,2,2,2,2,2,2,68,6,76,4,4,76,2
99 :
100 PRINT"[147][159]           [210]OBIN [200]OOD'S [199]OLD"
102 PRINTTAB(9)"1] [198]RIAR [212]UCK'S [198]OREST"
105 PRINTTAB(9)"2] [205]AID [205]ARIAN'S [198]OREST"
110 PRINTTAB(9)"3] [204]ITTLE [202]OHN'S [198]OREST"
115 PRINTTAB(9)"4] [203]ING [210]ICHARD'S [198]OREST"
120 PRINTTAB(9)"5] [195]HILDE [200]AROLD'S [198]OREST"
125 PRINTTAB(9)"6] [204]ORD [210]ANDLE'S [198]OREST"
130 PRINTTAB(9)"7] [210]OBIN [200]OOD'S [198]OREST"
135 PRINTTAB(9)"8] [200]ELP
140 [153][163]9)"9] (null)OGGLE (null)USIC
145 PRINTTAB(9)"0] [204]OADSTAR
150 [161]K$:[139]K$[178]""[167]150
155 K[178][197](K$):[139]K$[179]"0"[176]K$[177]"9"[167]150
157 [141]8500
160 [145]K[170]1[141]9000,1000,1500,2000,2500,3000,3500,4000,5000,6000
165 [139]K[178]8[176]K[178]9[176]K[178]0[167]150
170 [141]7500:[141]4500:TN[178]0:D[178]0
171 [151]X,38:[151]X[170]54272,1
175 [161]K$:[139]K$[178]""[167]175
180 [139]K$[178]"Q"[167][141]8500:[137]100
185 [139]K$[178]"H"[167][141]8500:[141]5000:[143] HELP
190 [139]K$[178]"M"[167][141]6000:[143] TOGGLE MUSIC
195 [139]K$[178]"S"[167][141]8500:[137]7000:[143] SOLUTIONS
200 [139]K$[178]""[167][141]8000:[143] RIGHT
205 [139]K$[178]"CMD"[167][141]8100:[143] LEFT
210 [139]K$[178]"ON"[167][141]8200:[143] UP
215 [139]K$[178]""[167][141]8300:[143] DOWN
220 [139]TN[179]TN(K)[167]175
221 [129]I[178]1[164]14:[153][200](CO$,I);
225 [153]" (null)HERIFF (null)OTTINGHAM IS FOILED AGAIN!  "
227 [141]8500
230 [129]T[178]1[164]10:[130]:[130]
231 [153]"             (null)RESS (null)VAL(null)(null)(null)(null)             "
232 [161]K$:[139]K$[179][177][199](13)[167]232
233 [141]8500
235 [137]100
240 :
1000 [153]"LOAD"[163]10)"DEFASCRIAR (null)UCK'S ASCOREST"
1005 [153][163]10)"                   "
1007 [153][163]10)"      ####         "
1010 [153][163]10)"    ########       "
1015 [153][163]10)"   ############    "
1020 [153][163]10)" ################# "
1025 [153][163]10)"###################"
1030 [153][163]10)"####SYS$#SYS$#SYS$#SYS$########"
1035 [153][163]10)"###################"
1040 [153][163]10)"##SYS$#SYS$#SYS$#SYS$#SYS$#SYS$#SYS$#SYS$##"
1045 [153][163]10)"###################"
1050 [153][163]10)"####SYS$#SYS$#SYS$#SYS$########"
1055 [153][163]10)"###################"
1060 [153][163]10)" ################# "
1065 [153][163]10)"  ###############  "
1070 [153][163]10)"    ###########    "
1075 [153][163]10)"       ######      "
1080 [153][163]10)"                   "
1085 [142]
1090 :
1500 [153]"LOAD"[163]10)"DEF(null)AID (null)ARIAN'S ASCOREST
1505 PRINTTAB(10)"                   "
1507 PRINTTAB(10)"  ###############  "
1510 PRINTTAB(10)" ################# "
1515 PRINTTAB(10)"  ###############  "
1517 PRINTTAB(10)"###################"
1520 PRINTTAB(10)"######[158]$############"
1525 PRINTTAB(10)"###################"
1530 PRINTTAB(10)"######[158]$#[158]$##########"
1535 PRINTTAB(10)"  ###############  "
1540 PRINTTAB(10)" #####[158]$#[158]$#[158]$####### "
1545 PRINTTAB(10)"  ###############  "
1550 PRINTTAB(10)"######[158]$#[158]$#[158]$#[158]$######"
1555 PRINTTAB(10)"###################"
1560 PRINTTAB(10)"   #############   "
1565 PRINTTAB(10)" ################# "
1570 PRINTTAB(10)"   #############   "
1575 PRINTTAB(10)"                   "
1585 RETURN
1590 :
2000 PRINT"[147]"TAB(10)"[150][204]ITTLE [202]OHN'S [198]OREST"
2005 PRINTTAB(10)"    ###########    "
2010 PRINTTAB(10)"   #############   "
2015 PRINTTAB(10)"  ###############  "
2020 PRINTTAB(10)"#########[158]$#########"
2025 PRINTTAB(10)"###################"
2030 PRINTTAB(10)"#######[158]$#[129]%#[158]$#######"
2035 PRINTTAB(10)"###################"
2040 PRINTTAB(10)"#####[158]$#[129]%#[129]%#[129]%#[158]$#####"
2045 PRINTTAB(10)"###################"
2050 PRINTTAB(10)"#####[158]$#[129]%#[129]%#[129]%#[158]$#####"
2055 PRINTTAB(10)"###################"
2060 PRINTTAB(10)"#####[158]$#[158]$#[158]$#[158]$#[158]$#####"
2065 PRINTTAB(10)"###################"
2070 PRINTTAB(10)"#####[158]$#[129]%#[129]%#[129]%#[158]$#####"
2075 PRINTTAB(10)"  ###############  "
2080 PRINTTAB(10)"   #############   "
2082 PRINTTAB(10)"    ###########    "
2085 RETURN
2090 :
2500 PRINT"[147]"TAB(9)"[150][203]ING [210]ICHARD'S [198]OREST"
2505 PRINTTAB(10)"     ##############"
2507 PRINTTAB(10)"    ###############"
2510 PRINTTAB(10)"   ################"
2515 PRINTTAB(10)"  #################"
2520 PRINTTAB(10)" #########[158]$#[158]$#[158]$#[158]$##"
2525 PRINTTAB(10)"###################"
2530 PRINTTAB(10)"########[158]$#[158]$#[158]$#[158]$####"
2535 PRINTTAB(10)"###################"
2540 PRINTTAB(10)"######[158]$#[158]$#[158]$#[158]$######"
2545 PRINTTAB(10)"###################"
2550 PRINTTAB(10)"####[158]$#[158]$#[158]$#[158]$########"
2555 PRINTTAB(10)"###################"
2560 PRINTTAB(10)"##[158]$#[158]$#[158]$#[158]$##########"
2565 PRINTTAB(10)"################## "
2570 PRINTTAB(10)"#################  "
2575 PRINTTAB(10)"################   "
2580 PRINTTAB(10)"###############    "
2585 RETURN
2590 :
3000 PRINT"[147]"TAB(9)"[150][195]HILDE [200]AROLD'S [198]OREST"
3005 PRINTTAB(10)"                   "
3007 PRINTTAB(10)"    ############   "
3010 PRINTTAB(10)"   ##############  "
3015 PRINTTAB(10)"  ################ "
3020 PRINTTAB(10)" ########[158]$#########"
3025 PRINTTAB(10)"###################"
3030 PRINTTAB(10)"#######[158]$#[158]$#[158]$#######"
3035 PRINTTAB(10)"###################"
3040 PRINTTAB(10)"#####[158]$#[158]$#[158]$#[158]$#[158]$#####"
3045 PRINTTAB(10)"###################"
3050 PRINTTAB(10)"#####[129]%#[158]$#[158]$#[158]$#[129]%#####"
3055 PRINTTAB(10)"###################"
3060 PRINTTAB(10)"#####[158]$#[129]%#[129]%#[129]%#[158]$#####"
3065 PRINTTAB(10)"  ###############  "
3070 PRINTTAB(10)" ################# "
3075 PRINTTAB(10)"  ###############  "
3080 PRINTTAB(10)"                   "
3085 RETURN
3090 :
3500 PRINT"[147]"TAB(10)"[150][204]ORD [210]ANDLE'S [198]OREST"
3505 PRINTTAB(10)"                   "
3510 PRINTTAB(10)"                   "
3515 PRINTTAB(10)" ##################"
3520 PRINTTAB(10)"###################"
3525 PRINTTAB(10)"###################"
3530 PRINTTAB(10)"######[158]$#[158]$#[158]$#[158]$#[158]$####"
3535 PRINTTAB(10)"###################"
3540 PRINTTAB(10)"######[158]$#[158]$#[158]$#[158]$######"
3545 PRINTTAB(10)"###################"
3550 PRINTTAB(10)"######[158]$#[158]$#[158]$#[158]$######"
3555 PRINTTAB(10)"###################"
3560 PRINTTAB(10)"####[158]$#[158]$#[158]$#[158]$#[158]$######"
3565 PRINTTAB(10)"###################"
3570 PRINTTAB(10)"###################"
3575 PRINTTAB(10)"################## "
3580 PRINTTAB(10)"                   "
3582 PRINTTAB(10)"                   "
3585 RETURN
3590 :
4000 PRINT"[147]"TAB(11)"[150][210]OBIN [200]OOD'S [198]OREST"
4005 PRINTTAB(10)"###################"
4007 PRINTTAB(10)"###################"
4010 PRINTTAB(10)"#######[158]$#[158]$#########"
4015 PRINTTAB(10)"###################"
4020 PRINTTAB(10)"#####[158]$#[129]%#[158]$#[129]%#[158]$#####"
4025 PRINTTAB(10)"###################"
4030 PRINTTAB(10)"#####[129]%#[129]%#[158]$#[129]%#[129]%#[158]$###"
4035 PRINTTAB(10)"###################"
4040 PRINTTAB(10)"###[158]$#[158]$#[158]$#[158]$#[158]$#[158]$#[158]$###"
4045 PRINTTAB(10)"###################"
4050 PRINTTAB(10)"###[158]$#[129]%#[129]%#[158]$#[129]%#[129]%#####"
4055 PRINTTAB(10)"###################"
4060 PRINTTAB(10)"#####[158]$#[129]%#[158]$#[129]%#[158]$#####"
4065 PRINTTAB(10)"###################"
4070 PRINTTAB(10)"#########[158]$#[158]$#######"
4075 PRINTTAB(10)"###################"
4080 PRINTTAB(10)"###################"
4085 RETURN
4090 :
4500 POKE214,20:PRINT:PRINT"[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][192][192][192][192][192][192][174]";
4505 PRINT"[221] [209]=[209]UIT  [205]=[205]USIC  [211]=[211]OLUTION  [200]=[200]ELP  [221]";
4510 PRINT"[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][192][192][192][192][192][192][192][189]";
4515 RETURN
4520 :
5000 SYS928
5005 PRINT""TAB(6)"[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][174]"
5008 PRINTTAB(6)"[221]                          [146][221]"
5010 PRINTTAB(6)"[221] [213]SE CURSOR KEYS TO MOVE. [146][221]"
5012 PRINTTAB(6)"[221]                          [146][221]"
5015 PRINTTAB(6)"[221] [217]OU MAY NOT RETRACE YOUR [146][221]"
5020 PRINTTAB(6)"[221] PREVIOUS MOVE.           [146][221]"
5025 PRINTTAB(6)"[221]                          [146][221]"
5030 PRINTTAB(6)"[221] [217]OU MUST MOVE FROM GOLD  [146][221]"
5035 PRINTTAB(6)"[221] BAG TO GOLD BAG.         [146][221]"
5040 PRINTTAB(6)"[221]                          [146][221]"
5045 PRINTTAB(6)"[221] [208]RESS [210][197][212][213][210][206].            [146][221]"
5050 PRINTTAB(6)"[221]                          [146][221]"
5055 PRINTTAB(6)"[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][189]"
5060 GETK$:IFK$<>CHR$(13)THEN5060
5065 SYS949:RETURN
5070 :
6000 MS=(MSOR1)ANDNOT(MSAND1)
6005 IFMS=0THENSYS49152
6010 IFMS=1THENSYS49155
6015 RETURN
6020 :
7000 ONKGOSUB1000,1500,2000,2500,3000,3500,4000
7001 PRINT"[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][192][192][192][192][192][192][174]";
7002 PRINT"[221]        [207]NE [208]OSSIBLE [211]OLUTION         [221]";
7003 PRINT"[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][192][192][192][192][192][192][192][189]";
7004 POKES(K),38:POKES(K)+54272,1
7005 X=S(K)
7010 FORI=1TOTN(K)
7015 FORT=1TO500:NEXT
7020 POKEX,37:POKEX+54272,8
7025 X=X+SN(K,I)
7030 POKEX,38:POKEX+54272,1
7032 GOSUB8600
7035 NEXT:GOSUB8500:GOTO231
7040 :
7500 PRINT"[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][192][192][192][192][192][192][174]";
7502 PRINT"[221] [208]RESS [210][197][212][213][210][206] TO SELECT STARTING PT.  [221]";
7503 PRINT"[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][192][192][192][192][192][192][192][189]";
7504 X=A(K,1)
7505 POKEX,38:POKEX+54272,1
7510 I=2
7515 GOSUB8600:FORT=1TO500:NEXT
7516 GETK$:IFK$=CHR$(13)THENRETURN
7520 POKEX,36:POKEX+54272,7
7525 X=X+A(K,I)
7530 POKEX,38:POKEX+54272,1
7535 I=I+1:IFI<=TN(K)+1THEN7515
7536 GOSUB8600:FORT=1TO500:NEXT
7537 GETK$:IFK$=CHR$(13)THENRETURN
7538 POKEX,36:POKEX+54272,7
7539 GOTO7504
7540 :
8000 IFD=2THENRETURN
8005 J=1:X1=X
8010 X1=X1+2:IFPEEK(X1)=35THENRETURN
8011 IFPEEK(X1)=36THEN8015
8012 J=J+1:IFJ<8THEN8010
8013 RETURN
8015 POKEX,37:POKEX+54272,8
8020 POKEX1,38:POKEX1+54272,1
8025 X=X1:D=1:TN=TN+1:GOSUB8600:RETURN
8030 :
8100 IFD=1THENRETURN
8105 J=1:X1=X
8110 X1=X1-2:IFPEEK(X1)=35THENRETURN
8111 IFPEEK(X1)=36THEN8115
8112 J=J+1:IFJ<8THEN8110
8113 RETURN
8115 POKEX,37:POKEX+54272,8
8120 POKEX1,38:POKEX1+54272,1
8125 X=X1:D=2:TN=TN+1:GOSUB8600:RETURN
8130 :
8200 IFD=4THENRETURN
8205 J=1:X1=X
8210 X1=X1-80:IFPEEK(X1)=35THENRETURN
8211 IFPEEK(X1)=36THEN8215
8212 J=J+1:IFJ<8THEN8210
8213 RETURN
8215 POKEX,37:POKEX+54272,8
8220 POKEX1,38:POKEX1+54272,1
8225 X=X1:D=3:TN=TN+1:GOSUB8600:RETURN
8230 :
8300 IFD=3THENRETURN
8305 J=1:X1=X
8310 X1=X1+80:IFPEEK(X1)=35THENRETURN
8311 IFPEEK(X1)=36THEN8315
8312 J=J+1:IFJ<8THEN8310
8313 RETURN
8315 POKEX,37:POKEX+54272,8
8320 POKEX1,38:POKEX1+54272,1
8325 X=X1:D=4:TN=TN+1:GOSUB8600:RETURN
8330 :
8500 IFMS=0THENRETURN
8502 POKE54296,15:POKE54291,9:POKE54292,0
8505 POKE54290,17
8510 POKE54286,97:POKE54287,51
8515 FORT=1TO100:NEXT
8520 POKE54290,16
8530 RETURN
8535 :
8600 IFMS=0THENRETURN
8602 POKE54296,15:POKE54291,9:POKE54292,0
8605 POKE54290,17
8610 POKE54286,216:POKE54287,12
8615 FORT=1TO100:NEXT
8620 POKE54290,16
8630 RETURN
8635 :
9000 SYS928
9001 PRINT"[153]"TAB(11)"[193]RE [217]OU [211]URE [Y/N]"
9005 GETK$:IFK$=""THEN9005
9010 IFK$<>"Y"THENSYS949:RETURN
9011 POKE53272,21:PRINT"[147]":SYS49155
9015 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT"
9020 INPUT#15,ER%:CLOSE15
9025 IFER%<>63THENEND
9030 POKE646,PEEK(53281)
9035 PRINT"[147]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
9040 PRINT"RUN"
9045 POKE631,13:POKE632,13:POKE633,13:POKE198,3:END
9050 :
9999 :
10000 OPEN15,8,15,"S0:ROBIN":CLOSE15:SAVE"+:ROBIN",8:END
11000 RETURN:REM INSTRUCTIONS