0 REM MAHJONG BOOT * RBCOOK * 10.93
100 IFDV<>0THEN130
110 DV=PEEK(186):IFDV<8THENDV=8
120 GOSUB41000:LOAD"OBJ.MAHJONG",DV,1
130 SYS4608
140 POKE53280,1:POKE53281,1:POKE198,0
150 PRINT"[147]"TAB(7)"[152][\\\\\\\\\\\\\\\\\\\\\\\]"
160 PRINTTAB(7)"#     M A H J O N G     [152]$[144]@"
170 PRINTTAB(7)"[152]&+++++++++++++++++++++++'[144]@"
180 PRINTTAB(7)"[152]#                       $[144]@"
190 PRINTTAB(7)"[152]# F1 [144]SOLITAIRE GAME     [152]$[144]@"
200 PRINTTAB(7)"[152]# F3 [144]NEW TOURNAMENT     [152]$[144]@"
210 PRINTTAB(7)"[152]# F5 [144]RESTART TOURNAMENT [152]$[144]@"
220 PRINTTAB(7)"[152]# F7 [144]TOURNAMENT GAME    [152]$[144]@"
230 PRINTTAB(7)"[152]# F8 [144]RETURN TO LOADSTAR [151]$[144]@"
240 PRINTTAB(7)"[152]#                       $[144]@"
250 PRINTTAB(7)"[152]^!!!!!!!!!!!!!!!!!!!!!!!_[144]@"
260 PRINTTAB(7)"[144] @@@@@@@@@@@@@@@@@@@@@@@@@":IFA$="[133]"THEN300
270 PRINTTAB(14)"[151]PLAYER UP%[150]"A+1+(A=8)*8""
280 FORL=1TO7STEP2:PRINTTAB(4)"[144]PLAYER[152]"L"[157][144]%[154]"SC(L);
290 PRINTTAB(22)"[144]PLAYER[152]"L+1"[157][144]%[154]"SC(L+1):NEXT
300 GETA$:IFA$="[133]"THENSYS4614:GOTO140
310 IFA$="[134]"THENPOKE253,0:POKE254,0:SYS4614:FORL=1TO8:SC(L)=0:NEXT:A=0:GOTO360
320 IFA$="[135]"THENSYS4614:A=0:GOTO360
330 IFA$="[136]"THENSYS4618:GOTO360
340 IFA$="[140]"THEN40000
350 GOTO300
360 A=A+1+(A=8)*8:SC(A)=SC(A)+PEEK(252)*256+PEEK(251):GOTO140
10000 DV=PEEK(186):N$="B.MAHJONG":OPEN15,DV,15,"S0:"+N$:CLOSE15:SAVEN$,DV:END
40000 POKE53280,0:POKE53281,0:DV=PEEK(186):Q$=CHR$(34):PRINT"[144][147]";
40010 A$="HELLO CONNECT":R$=CHR$(13)+"R[213]"+CHR$(13):Q$=CHR$(34)
40020 CLOSE2:OPEN2,DV,2,A$:GET#2,B$:CLOSE2:IFST=0THEN40050
40030 CLOSE15:OPEN15,DV,15,"I0":INPUT#15,EN:CLOSE15
40035 POKE53280,14:POKE53281,6:PRINT"[147][154]"
40040 POKE44,8:POKE8*256,0:POKE55,0:POKE56,160:POKE53272,20:CLR:NEW
40050 PRINT"[146]LOAD"Q$A$Q$","DV""
40055 FORX=1TO4:POKE630+X,ASC(MID$(R$,X)):NEXT:POKE198,4:GOTO40040
41000 POKE53280,0:POKE53281,0:POKE53272,22:PRINT"[147]"
41002 POKE214,14:PRINT
41004 PRINTTAB(1)"[155]                                     "
41005 FORX=1TO6
41006 PRINTTAB(1)"[152]                                     "
41007 NEXT
41013 PRINTTAB(1)"[151]                                     "
41020 FORX=1TO4:READA$:POKE214,15+X:PRINT
41022 PRINTTAB(19-LEN(A$)/2)"[152]"A$
41024 NEXT
41030 T=TI+60
41031 IFT>TITHEN41031
41032 PRINT"":RETURN
41050 DATA"[205] [193] [200] [202] [207] [206] [199]
41051 [131]"BY (null)OBERT PEEK. LENOOK
41052 DATA"(C) 2000 BY [202] & [198] [208]UBLISHING, [201]NC.
41053 [131]"WWW.LOADSTAR.COM