[P0] 1 PRINT "Lyus":S=1:Z=9:G=0:M=1:D$="=":E$="\UA":F$="-": GOTO #4 [P1] 1 I=0:Y=0:IF KEY="1";I=SGN(1-X) 2 IF KEY="3";I=SGN(H-X) 3 IF KEY="X";W=W+1:Q=0:IF W=4;W=1 4 PRINT CSR 9;C$(W);"\BX\BX";:V$=MID(X+I+4,1):IF V$="_"; GOSUB #3 5 IF V$<>"O";X=X+I 6 PRINT CSR 0;MID(X,4);"\CL";MID(X+5,3);"\BX"; 7 IF Q=2; GOSUB #8:RETURN 8 IF KEY="Z"; GOSUB #8 9 RETURN [P3] 1 PRINT CSR3;"\BX\BX\BX";:Z=Z-1:IF Z>0;RETURN 2 PRINT CSR2;"OVER","SC:";G*10 [P4] 1 $="] I O IO _ I_ O_IOOOI\SQI [":H=23:N=0:A=5:U=0:X=1:W=2 4 IF X=22;M=1-M:Z=Z+5:PRINT : P=M+6: GOTO #P 5 IF N=0;IF RAN#*5>(5-S);N=1:A=0 6 GOSUB #1:IF N=0 THEN 4 7 V=A+1-I:IF V>7;N=0: GOTO 4 9 A=V:PRINT CSR A;"m";:IF A=4;IF Q=0; GOSUB #3 11 IF MID(X+A,1)<>"O" THEN 4 12 J$="\BX":K$="o":L$=".":FOR V=0 TO 2 STEP .2:PRINT CSR A;J$(V);:NEXT V 13 N=0:T$=" ":V=X+A-1: GOSUB #5: GOTO 4 [P5] 1 $=MID(1,V)+T$+MID(V+2):RETURN [P6] 1 X=1:A=17:B=0:C=0:U=0:PRINT "Lyu's room" 21 IF RAN#*7>6;B=SGN(X-A)*.5 22 IF A<3; B=.5 23 IF A>19;B=-.5 24 J$="=\DG\GE\GE=-":K$=" \LE=\GE\GE ":L$="-=\LE\LE\DG=" 25 $="] I I I I I [" 26 A=A+B:$=MID(1,A)+J$(B*2+1)+MID(A+7): GOSUB #1 27 IF C=0;IF RAN#*5>(5-S);IF ABS(ABS(A-X)-4)<=1;C=1 28 U=U+Y:IF U>S*10 THEN #9 29 IF C=0 THEN 21 30 IF C=2 THEN 33 31 B=SGN(X-A)*.5:V=A+1+(B+.5)*3:T$="\DI":GOSUB #5:IF B=0;B=.5 32 C=2:A=A-B:PRINT CSR0;MID(X,8);:GOTO 24 33 R=A-X+6*(B+.5):C=0:P=B*2 34 FOR V=R TO R+P*2 STEP P:PRINT CSR V;"w";:NEXT V 35 FOR V=R TO R+P*2 STEP P:PRINT CSR V;MID(X+V,1);:NEXT V 36 IF Q=0; GOSUB #3 37 GOTO 21 [P7] 1 PRINT "Mos's room":H=19 2 A=24:X=1:O=23:U=0:$="] I I I II \LE\DG))\GE [" 5 O=O+SGN(X-O+3)*.2:IF MID(O+1,1)=" ";V=O:T$="_": GOSUB #5 8 GOSUB #1:U=U+Y:IF U>S*10 THEN #9 9 GOTO 5 [P8] 1 R=1:GOTO W*5 5 J$="=":K$="\BX":L$=" ":FOR V=0 TO 3 STEP .2:PRINT CSR5;J$(V);:NEXT V 6 IF MID(X+5,1)="_";V=X+4:T$=" ":GOSUB #5:G=G+1:O=O+SGN(29-O) 7 RETURN 10 IF Q=0;PRINT CSR4;"\HT";:Q=2:RETURN 11 Q=0:Z=Z-.2:RETURN 15 FOR V=4 TO 6:PRINT CSR V;MID(X+V,1);"-";CSR4;"\CL";:NEXT V 17 Y=0:IF ABS(A-X-4)<=3;Y=1:G=G+1:PRINT CSR7;"*"; 18 RETURN [P9] 1 FOR V=1 TO 8:PRINT CSR0;"\BX\BX\BX\BX\BX\BX\BX\BX";CSR0;" \CL ";:NEXT V 2 PRINT CSR1;"100pts":FOR V=0 TO 6:PRINT CSR V/2;" \CL";:NEXT V 3 S=S+.5:G=G+10:IF S<5 THEN #4 4 PRINT CSR5;"\DIEND";