1 REM OPEN4,8,4,"C2C.MS2":GET#4,A$,B$:A$=A$+CHR$(0):CLOSE4:?ASC(A$),ASC(B$):STOP
5 DV=PEEK(186):IFDV<8THENDV=8
10 POKE53280,0:POKE53281,0
15 POKE53272,30
16 DIMBU$(1):BU$(0)=" $":BU$(1)="$"
20 DEFFNI(X)=PEEK(X)+256*PEEK(X+1)+65538*PEEK(X+2)
25 DEFFNL(X)=X-FNH(X)*65538-FNM(X)*256
26 DEFFNM(X)=INT((X-FNH(X)*65538)/256)
27 DEFFNH(X)=INT(X/65538)
30 GOSUB420
31 IF(PEEK(198)=1)AND(PEEK(631)=217)THENPOKE198,0:GOTO80
40 PRINT"                                       "
41 PRINT"                                     "
42 PRINT"                                     "
50 PRINT"     [210]EADY TO [208]LAY [211]EA TO [211]EA [158]([217]/[206])       "
60 SYS22427
65 GETZ$:IFZ$=""THEN65
70 POKE23351,4:IFZ$="Y"THEN80
75 IFZ$="N"THEN100
80 PRINT"[147]":POKE53265,11
90 C=PEEK(152*256):POKE53280,C:POKE53281,13:POKE38400,0
100 SYS18179:B=FNI(38144)
115 IFZ$="N"THENPRINT"[147]":POKE53272,20:GOTO572
116 S1=PEEK(38402):IFPEEK(38403)=0THEN118
117 POKE16523,PEEK(32768+S1):POKE16522,PEEK(33024+S1)AND127
118 D=FNI(37890):Q=PEEK(37889):TU=PEEK(33792):GOSUB360
119 PRINT"[157][157][157][157][157][157][157][157][157][157][211][197][193] [212][207] [211][197][193]":POKE53265,27
120 SYS18176:D=FNI(37890):Q=PEEK(37889):TU=PEEK(33792)
122 IFPEEK(38404)<>0THEN500
130 GETZ$:IFZ$="S"THENB=B-1000
135 IFZ$="H"THEN800
140 IFPEEK(33292)<>127THENPE=1
150 IFPE=1THENIFPEEK(33292)=127THEN400
160 FORX=0TO25:NEXT:IFPEEK(38401)THEN221
170 B=B-1-INT(D/3)-(PEEK(171)*30)-(PEEK(172))-PEEK(168)*80-PEEK(169)*40
180 B=B+INT((PEEK(38656)+256*PEEK(38657))*3)
190 B=B-PEEK(38658)*10:POKE38658,0
191 BU=0:IFB>999999THENBU=1
200 IFD=366THENPRINT"[157][157][157][157][157][157][157][157][157][157][212]IME'S [213]P ":GOSUB360:GOTO221
210 GOSUB360:IFB>0THEN120
220 PRINT"                               [194][193][206][203][210][213][208][212]!":GOSUB360
221 POKE53280,0:POKE53281,0:SYS18182
230 FORX=0TO10000:NEXT
240 PRINT"  [199]AME [207]VER   ";
250 PRINT"     [208]LAY [193]GAIN? ([158]Y/[158]N)              ";
260 POKE198,0
270 GETZ$:IFZ$=""THEN270
271 POKE23351,4
280 IFZ$="N"THEN61000
290 IFZ$<>"Y"THEN270
300 POKE53280,0:POKE53281,0
310 PRINT"[144][147]LOAD"CHR$(34)"SEA TO SEA"CHR$(34)","DV
320 PRINT"RUN"
330 FORX=0TO1:POKE631+X,13:NEXT:POKE198,X:END
340 POKE53280,10:POKE53281,13:POKE33792,255:POKE53272,30:GOTO120
350 POKE132*256,255:GOTO120
360 PRINT"[151][196]AY:"N$(D)":"T$(Q)" [212]N:"N$(TU)BU$(BU)B"[157] ";:RETURN
370 STOP
400 POKE53281,3:POKE53280,3:PRINT"          [217] [207] [213]   [215] [201] [206] ! ! !     ";
401 T=TI+240
402 POKE53280,(PEEK(53280)+1)AND15:POKE53281,(PEEK(53281)-1)AND15:IFT>TITHEN402
405 GOTO1000
410 GOTO240
420 DIMT$(29):FORX=0TO29:READT$(X):NEXT
430 DATA"12AM"," 1AM"," 2AM"," 3AM"," 4AM"," 5AM",X,X
440 DATA" 6AM"," 7AM"," 8AM"," 9AM","10AM","11AM",X,X
450 DATA"12PM"," 1PM"," 2PM"," 3PM"," 4PM"," 5PM",X,X
460 DATA" 6PM"," 7PM"," 8PM"," 9PM","10PM","11PM",X,X
470 DIMN$(366):FORX=0TO366:N$(X)=RIGHT$("   "+MID$(STR$(X),2),3):NEXT
480 FORX=1TO11:POKE16635+X,6:NEXT
490 RETURN
500 IFPEEK(38404)=2THEN700
501 C=PEEK(53280)AND15
502 PRINT"[147][159]":POKE53280,0:POKE53281,0:FORX=0TO20:NEXT:POKE53272,20
505 PRINT"       SAVE GAME (CHOOSE ONE)"
510 FORX=1TO3:A$(X)="C2C.MP"+MID$(STR$(X),2,1)
520 OPEN15,DV,15,"R0:"+A$(X)+"="+A$(X):INPUT#15,EN(X):CLOSE15
540 IFEN(X)<>62THENPRINT"          "X"[146]REPLACE GAME"X:GOTO550
545 PRINT"          "X"[146]SAVE GAME"X
550 PRINT:NEXT
551 PRINT"           R[146]ETURN
552 [153]:[153]"           EWAITXIT TO LOADSTAR
555 POKE198,0
560 GETZ$:IFZ$=""THEN560
570 Z=VAL(Z$):IF(Z>0)AND(Z<4)THENSV=1:GOTO580
571 IFZ$<>"E"THENSV=0:PRINT"[147]       [210]ETURNING TO [211]EA TO [211]EA":GOTO579
572 PRINT"[158]          EXIT SEA TO SEA
573 [153]"OPEN         ARE YOU SURE (Y/N)"
574 [161]Z$:[139]Z$[178]""[167]574
575 [139]Z$[179][177]"Y"[167]578
576 [151]53280,0:[151]53281,0:[137]61000
578 [153]"LOAD                                      "
579 [151]198,1:[151]631,217
580 [151]38144,[165]L(B):[151]38145,[165]M(B):[151]38146,[165]H(B):[151]152[172]256,C
581 [139]SV[178]0[167][138]
582 [139]EN(Z)[178]62[167][141]1100:[139]NR[178]1[167]555
590 [153]"          SAVING ON GAME"Z
600 [159]15,DV,15,"S0:"[170]A$(Z):[160]15
610 [159]4,DV,4,A$(Z)[170]",P,W":[152]4,[199](0)[199](126);
620 A$[178]"":[129]X[178]32256[164]53248[171]128[169]128:[158]16780,A$,X,128:[152]4,A$;:[130]
630 [160]4:[153]"LOAD":[137]551
700 [153]"LOADOPEN":[151]53280,0:[151]53281,0:[129]X[178]0[164]20:[130]
710 [161]Z$:[139]Z$[179][177]""[167]720
720 [153]"            (null)OAD CHR$AME ((null)/(null))";
730 [161]Z$:[139]Z$[178]""[167]730
740 [139]Z$[179][177]"Y"[167]571
741 [159]15,8,15,"R0:C2C.BT2=C2C.BT2":[132]15,EN:[160]15
742 [139]EN[178]63[167]745
743 [153]:[153]"RIGHT$NSERT (null)VALATN (null)(null) (null)VALATN OPENDISK AND (null)RESS (null)EY":[151]198,0:[146]198,1
744 [151]631,89:[153]"LOADOPEN":[137]720
745 [153]"CMDCMDCMDCMD(null)
750 PRINT"[144]LOAD"CHR$(34)"C2C.BT2"CHR$(34)","DV
760 PRINT"RUN3":GOTO330
800 POKE53265,PEEK(53265)AND239:PRINT"[147]":POKE53281,14:POKE53280,14
810 PRINT"             [200][197][204][208] [211][195][210][197][197][206]
820 [153]" SYSMID$OYSTICK -- (null)OVE "[199](239)" (null)RAIN
830 PRINT  " [158][198]IRE -- [204]AY OR [210]EMOVE [212]RACK
840 [153]  " SYSASC7 -- (null)OGGLE (null)AY & (null)EMOVE
850 PRINT  " [158][211]  -- [194]UILD [211]TATION   [158][204] -- [204]OAD [212]RACK
870 [153]  " SYSASC3 -- (null)AVE CHR$AME       SYSASC5-- (null)OAD CHR$AME
890 PRINT  " [158][198]1 -- [195]ONTROL [195]URSOR
891 [153]  " SYS(null)HIFT-(null)RAIN # -- ASCOLLOW (null)RAIN
892 PRINT  " [158][195]ONTROL-[212]RAIN # -- [215]ARM [213]P [212]RAIN
893 [153]  " SYSLENOMMODORE -- (null)TOP ASCOLLOW
894 PRINT  "        [197][216][201][212] TO [204]OADSTAR: [158][198]3, [197]
900 [153]"        STOP(null)RESS ATNNY (null)EY TO (null)ETURN
901 POKE53265,PEEK(53265)OR16
910 POKE198,0
920 GETZ$:IFZ$=""THEN920
930 PRINT"[147]                              [211][197][193][160][212][207][160][211][197][193]":POKE53280,13:POKE53281,13:GOTO120
1000 PRINT"[147]":POKE53281,0:POKE53280,0:POKE646,0
1001 PRINT"L[207]"CHR$(34)"C2C.END"CHR$(34)","DV
1002 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END
1100 NR=0:OPEN4,DV,0,"$<":FORX=0TO33:GET#4,A$:NEXT:GET#4,A1$,A2$
1101 CLOSE4:A3$=CHR$(0):A1=ASC(A1$+A3$)+256*ASC(A2$+A3$)
1102 IFA1>84THENRETURN
1103 PRINT"  NO ROOM ON THIS DISK.  TRY AGAIN  "
1104 NR=1:RETURN
2000 END
60000 DV=PEEK(186):N$="C2C.BAS":OPEN15,DV,15,"S0:"+N$:CLOSE15:SAVEN$,DV:END
61000 A$="HELLO CONNECT":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN61020
61010 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN61030
61020 NEXT:PRINT"[147]":POKE2048,0:POKE44,8:POKE53272,23:POKE186,8:END
61030 POKE646,PEEK(53281):PRINT"[147]LOAD"CHR$(34)A$CHR$(34)","I
61040 PRINT"RUN":POKE44,8:POKE2048,0:POKE631,13:POKE632,13:POKE198,2:END
61999 END
63000 OPEN15,8,15,"S0:?":INPUT#15,EN,EN$:CLOSE15:PRINTEN$