[P0]
1 GOTO 30
2 MODE 6-B:PRINT:PRINT MID(D,1);CSR 2;MID(24-H(D),Q(D)-2);:C=2
3 E=E+SGN(C-E)*.05*(A+1:F=F+.2*SGN(D-INT F:IF C>H(D);H(D)=C:G=G+1
4 PRINT CSR E;MID(11-SGN(D-INT F,1);CSR C;:IF D=INT F;IF C=INT E THEN 20
5 IF G>=H THEN 10
6 IF KEY="W";IF C<Q(D);PRINT "\EX\BX";:C=C+1:GOTO 3
7 PRINT "\BX";:IF KEY="6";IF H>=544;D=D+8-9*SGN LOG D:GOTO 2
8 IF KEY<>"-" THEN 3
9 D=1+D*SGN(9-D:GOTO 2
10 PRINT G,CSR 6;A;CSR 0;"READY P":NEXT A:PRINT "CLEAR A":GOTO 40
20 NEXT B:PRINT "*",G;" steps"
30 VAC
40 PRINT "GOTO PB";-100-A:FOR A=0 TO 9:FOR C=2 TO 10:G(C)=2:P(C)=6
41 NEXT C:$=" _________0123456789":PRINT "P"+MID(1,1+A)+MID(C+A)
42 $=MID(12)+"'\OM,\EX\EX\EX\EX\EX\EX\EX\EX\EX"+MID(2,9):D=1:E=H+36:H=E+4*A+INT(A/6
50 FOR E=E TO H-1:F=1+RAN#*9:IF Q(F)>=C THEN 50
51 Q(F)=Q(F)+SGN A:NEXT E:FOR B=B*SGN INT(SQR H/34 TO 2:E=Q(F):GOTO 2
