0 BEEP:CLS:PRINT:PRINTTAB(12)"CrAzY LiKe a BOX":PRINT:LINE(60,6)-(180,16),1,B
1 PRINT"  Program from 'PORTABLE 100' Sept '87" :'6/27/86 E.Carmody
2 PRINT"     from UTILITY CORNER page 36 ->":PRINT:PRINT"     <1> Play Game  <<>>  <9> MENU"
3 K$=INKEY$:IFK$=""THEN3
4 IFK$="1"THEN9ELSEIFK$="9"THENMENU
5 BEEP:GOTO3
9 CALL16959:CLEAR1000
10 DEFINTC,F,I,N,P,S,X,Y:DIMA(40,5),S(2):P=1
30 CLS:CALL17001:PRINT@50," cRaZy LiKe a BOX ";:CALL17006
40 PRINT@80,"2 Players take turns. Connect dot-pairs"
50 PRINT"to draw 4 sides & close boxes. Select"
70 PRINT"boxes & sides by coordinates -"
80 PRINT"e.g. a3,2 = BOX a3 Side 2. Close box &"
90 PRINT"keep your turn.":PRINTTAB(16)"<ENTER> to continue____";
95 IFINKEY$=""THEN95
100 CLS:CALL17001:PRINT@42," cRaZy LiKe a BOX.":CALL17006:PRINT@25,"abcdefgh"
102 PRINT@202,"<< k7, side 1-4 >>"
103 LINE(10,38)-(120,48),1,B
110 FORX=1TO5:PRINT@22+(X+1)*40,X:NEXTX
120 FORY=15TO55STEP8:FORX=149TO197STEP6
130 PSET(X,Y):PSET(X+1,Y):PSET(X,Y+1):PSET(X+1,Y+1)
140 NEXTX:NEXTY
149 ' My note SEK
150 PRINT@116,"Memo":PRINT@195,"CALL":PRINT@274,"16964"
210 S=0:F1=0:F2=0:PRINT@80,"PLAYER";P:BEEP:INPUT"BOX, SIDE";B$,S
220 C1=ASC(LEFT$(B$,1))
230 C2=VAL(RIGHT$(B$,1))
240 IFC1<97ORC1>104ORC2<1ORC2>5ORS<1ORS>4THEN1000
250 N=(C1-72)+(C2+1)*40 :'Cursor pos
260 N1=N-(72+C2*32)  :'BOX #
270 IFA(N1,S)=1ORA(N1,5)=4THEN1000
280 X=(NMOD40)*6
290 Y=8*INT(N/40)
300 ONSGOTO1000,2000,3000,4000
1000 LINE(X,Y-1)-(X+5,Y-1):LINE(X,Y)-(X+5,Y):P$=RIGHT$(STR$(P),1)
1010 A(N1,1)=1:A(N1,5)=A(N1,5)+1
1020 IFC2=1THEN1040
1030 A(N1-8,3)=1:A(N1-8,5)=A(N1-8,5)+1
1040 IFA(N1,5)=4THENBEEP:PRINT@N,P$:S(P)=S(P)+1:F1=1
1045 IFC2=1THEN1060
1050 IFA(N1-8,5)=4THENBEEP:PRINT@N-40,P$:S(P)=S(P)+1:F2=1
1060 IFF1=1ORF2=1THEN1210
1070 IFP=1THENP=2:PRINT@120,SPACE$(20):GOTO210
1080 IFP=2THENP=1:PRINT@120,SPACE$(20):GOTO210
1210 FORI=1TO40:IFA(I,5)<>4THENPRINT@120,SPACE$(20):GOSUB5000:GOTO210
1220 NEXTI
1230 GOTO4230
2000 LINE(X+5,Y)-(X+5,Y+7):LINE(X+6,Y)-(X+6,Y+7):P$=RIGHT$(SRT$(P),1)
2010 A(N1,2)=1:A(N1,5)=A(N1,5)+1
2020 IFC1=104THEN2040
2030 A(N1+1,4)=1:A(N1+1,5)=A(N1+1,5)+1
2040 IFA(N1,5)=4THENBEEP:PRINT@N,P$:S(P)=S(P)+1:F1=1
2045 IFC1=104THEN2060
2050 IFA(N1+1,5)=4THENBEEP:PRINT@N+1,P$:S(P)=S(P)+11:F2=1
2060 IFF1=1ORF2=1THEN2210
2070 IFP=1THENP=2:PRINT@120,SPACE$(20):GOTO210
2080 IFP=2THENP=1:PRINT@120,SPACE$(20):GOTO210
2210 FORI=1TO40:IFA(I,5)<>4THENPRINT@120,SPACE$(20):GOSUB5000:GOTO210
2220 NEXTI
2230 GOTO4230
3000 LINE(X,Y+7)-(X+5,Y+7):LINE(X,Y+8)-(X+5,Y+8):P$=RIGHT$(STR$(P),1)
3010 A(N1,3)=1:A(N1,5)=A(N1,5)+1
3020 IFC2=5THEN3040
3030 A(N1+8,1)=1:A(N1+8,5)=A(N1+8,5)+1
3040 IFA(N1,5)=4THENBEEP:PRINT@N,P$:S(P)=S(P)+1:F1=1
3045 IFC2=5THEN3060
3050 IFA(N1+8,5)=4THENBEEP:PRINT@N+40,P$:S(P)=S(P)+1:F2=1
3060 IFF1=1ORF2=1THEN3210
3070 IFP=1THENP=2:PRINT@120,SPACE$(20):GOTO210
3080 IFP=2THENP=1:PRINT@120,SPACE$(20):GOTO210
3210 FORI=1TO40:IFA(I,5)<>4THENPRINT@120,SPACE$(20):GOSUB5000:GOTO210
3220 NEXTI
3230 GOTO4230
4000 LINE(X-1,Y)-(X-1,Y+7):LINE(X,Y)-(X,Y+7):P$=RIGHT$(STR$(P),1)
4010 A(N1,4)=1:A(N1,5)=A(N1,5)+1
4020 IFC1=97THEN4040
4030 A(N1-1,2)=1:A(N1-1,5)=A(N1-1,5)+1
4040 IFA(N1,5)=4THENBEEP:PRINT@N,P$:S(P)=S(P)+1:F1=1
4045 IFC1=97THEN4060
4050 IFA(N1-1,5)=4THENBEEP:P@N-1,P$:S(P)=S(P)+1:F2=1
4060 IFF1=1ORF2=1THEN4210
4070 IFP=1THENP=2:PRINT@120,SPACE$(20):GOTO210
4080 IFP=2THENP=1:PRINT@120,SPACE$(20):GOTO210
4210 FORI=1TO40:IFA(I,5)<>4THENPRINT@120,SPACE$(20):GOSUB5000:GOTO210
4220 NEXTI
4230 GOSUB5000:BEEP:BEEP:PRINT@240,"FINAL"
4240 PRINT:PRINTSPACE$(17)"<ENTER>";
4250 IFINKEY$=""THEN4250
4260 CALL16964:BEEP:MENU
5000 PRINT@280,"SCORE: #1:"S(1);" #2";S(2):RETURN
10000 BEEP:PRINT@120,"INPUT ERROR    ":BEEP:BEEP:FORI=1TO500:NEXTI:BEEP
10010 IFP=1THENP2:GOTO210
10020 IFP2THENP=1:GOTO210